- Code: Select all
Type rcArt
arNr As Short
arArt As String * 20
arSize As Short
arType As String
arID As String * 15
arIndate As String
arInpris As Short
arAntut As Short
arTotut As Integer
arStat As Byte
arKvnr As Short
arRedat As String
arKr As Integer
arKrtot As Integer
arAge As Short
arPris As Short
End Type
Public Dim ArtRec[1] As rcArt
In Module1 this line rise the error
- Code: Select all
ArtRec[rc].arNr = Records.Value(sRecordsId, "artnr")
Q7B_ASSIGNMENT(q7b_type_get(*q7b_array_at(Q7B_Global_Class(Q7B_Global_Object())->ArtRec, rc, Q7B_ID((qint64) -1), Q7B_ID((qint64) -1), Q7B_ID((qint64) -1)), Q7B_ID((qint64) 0), Q7B_ID(-1), Q7B_ID(-1), Q7B_ID(-1), Q7B_ID(-1)), &Q7B__SHORT(Q7B_RECORDS_VALUE(Q7B_Records_Object(), sRecordsId, Q7B_ID("artnr"))));
Seems .arNr is missing?
/Henning