- Code: Select all Expand view RUN
- Application
===========
Path and name: C:\Work\errori\Ricerca_invoice_salvtaggio_ok\test.Exe (32 bits)
Size: 4,657,664 bytes
Compiler version: Harbour 3.2.0dev (r1904111533)
FiveWin version: FWH 21.06
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.1, Build 7601 Service Pack 1
Time from start: 0 hours 0 mins 8 secs
Error occurred at: 18-08-2021, 12:04:36
Error description: Error BASE/1132 Limiti superati: accesso all'array
Args:
[ 1] = A {"","01","servizio",1,9,9,,,,0,0,"RR210818120430",.T.,.T.,"","",1,1} length: 18
[ 2] = N 19
Stack Calls
===========
Called from: .\source\function\DBFFUNC2.PRG => FW_FIELDSPUT( 911 )
Called from: .\source\function\DBFFUNC2.PRG => (b)FW_SAVEARRAYTODBF( 859 )
Called from: => AEVAL( 0 )
Called from: .\source\function\DBFFUNC2.PRG => FW_SAVEARRAYTODBF( 859 )
Called from: .\source\classes\DATABASE.PRG => TRIGHERESERVA:HB_EXECFROMARRAY( 0 )
Called from: .\source\classes\DATABASE.PRG => TRIGHERESERVA:SAVEARRAYTODBF( 1624 )
Called from: test.prg => EDITINVOICE( 327 )
Called from: test.prg => (b)ORDERS( 84 )
Called from: .\source\classes\BUTTON.PRG => TBUTTONBMP:CLICK( 179 )
Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1781 )
Called from: .\source\classes\BUTTONB.PRG => TBUTTONBMP:HANDLEEVENT( 261 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3560 )
Called from: => SENDMESSAGE( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND( 433 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 1140 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: test.prg => ORDERS( 110 )
Called from: test.prg => MAIN( 35 )
I make the same I saw on yunus.prg
only I use 18 FIELDS
static cItemFlds := "ICO,TIPO,DESC,QTA,PREUNI,TOTQTA,DATAINI,DATAFIN,GIORNI,SCONTO,TOTALE,INVOICE,PRINTA4,PRINTPOS,STRUCTURE,BREVEDESC,PREZZOBASE,SERIAL,RECNO()"
to save I make
- Code: Select all Expand view RUN
IF oDlg:nresult == IDOK
if ! Empty( oBrowse:aDeleted )
AEval( oBrowse:aDeleted, { |a| a[ 19 ] := -a[ 19 ] } )
oRigheInvoice:SaveArrayToDBF( cItemFlds,oBrowse:aDeleted ) save the erased lines
endif
ADel( oBrowse:aArrayData, 1, .t. ) //erase first line
AEval( aData, { |a| a[ 12 ] := oRecPrenota:Invoice } ) // save the invoice number
AEval( aData, { |a,i| a[ 18 ] := i } ) //serials
xbrowser aData
oRigheInvoice:SaveArrayToDBF( cItemFlds,aData )
//save the other filed od reservation
oRecPrenota:Save()
endif
where is the error ?