print a array
Posted: Thu Jul 08, 2021 9:27 pm
I saw print01.prg I wish print an array
How converte my adata into this format
I take thea data with
aRighe:= oRigheInvoice:DbfToArray( cItemFlds, { || FIELD->Invoice ==alltrim(nInvoice) } )
for n= 1 to len(arighe)
aadd( aItems,aRighe[n])
next
aData:= aItems
@ 13.0, 2.0 PRINT TO oPrn TABLE aData SIZE 7.0, 4.0 CM TITLE "Services" BORDER
I have this error
How converte my adata into this format
I take thea data with
aRighe:= oRigheInvoice:DbfToArray( cItemFlds, { || FIELD->Invoice ==alltrim(nInvoice) } )
for n= 1 to len(arighe)
aadd( aItems,aRighe[n])
next
aData:= aItems
@ 13.0, 2.0 PRINT TO oPrn TABLE aData SIZE 7.0, 4.0 CM TITLE "Services" BORDER
I have this error
- Code: Select all Expand view
- Args:
[ 1] = N 1
Stack Calls
===========
Called from: => LEN( 0 )
Called from: .\source\classes\TARRDATA.PRG => (b)AUTOSTRUCT( 2425 )
Called from: => AEVAL( 0 )
Called from: .\source\classes\TARRDATA.PRG => AUTOSTRUCT( 2425 )
Called from: .\source\classes\TARRDATA.PRG => STR2STRUCT( 2372 )
Called from: .\source\classes\TARRDATA.PRG => TARRAYDATA:NEW( 244 )
Called from: .\source\classes\PRINTER.PRG => TPRINTER:PRINTTABLE( 1277 )
Called from: test.prg => STAMPA_RICEVUTA( 253 )
Called from: test.prg => MAIN( 32 )