FiveTech Support Forums

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 )

 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

 oRigheInvoice:=TRigheReserva():New()
        oRigheInvoice:setorder("res_rr")
        oRigheInvoice:gotop()

static cItemFlds := "ICO,TIPO,DESC,QTA,PREUNI,TOTQTA,DATAINI,DATAFIN,GIORNI,SCONTO,TOTALE,INVOICE,PRINTA4,PRINTPOS,STRUCTURE,BREVEDESC,PREZZOBASE,SERIAL,RECNO()"

Time from start: 0 hours 0 mins 42 secs 
   Error occurred at: 18-08-2021, 22:36:03
   Error description: Error BASE/1132  Limiti superati: accesso all'array
   Args:
     [   1] = A   {".\bitmaps\servizio.png","01","servizio",1,9,9,,,,0,0,"RR210818223522",.T.,.T.,"","",1,1} length: 18
     [   2] = N   19

Stack Calls
===========

function FW_SaveArrayToDBF( acFieldList, aData )

   local nSaveRec    := RECNO()

   if If( ValType( acFieldList ) == 'C', "RECNO()" $ Upper( acFieldList ), ;
      If( ValType( acFieldList ) == 'A', AScan( acFieldList, { |c| Upper( c ) == "RECNO()" } ) > 0 , ;
          .f. ) )

      AEval( aData, { |a| FW_FieldsPut( acFieldList, a ) } )
      DBGOTO( nSaveRec )
   else
      ? "One of the field name should be RECNO()"
   endif

return nil

//----------------------------------------------------------------------------//

function FW_FieldsPut( aFields, aValues, nLockWaitSecs, lAppend, bTrigger )

   local nRecNo      := 0
   local n, nLen, fld, u, v
   local nSecs       := 0
   local lReady      := .f.
   local lLocked     := .f.
   local lDelete     := .f.

   if DBINFO( DBI_ISREADONLY )
      return 0
   endif

   if ValType( aFields ) == 'A'
      if aValues == nil .and. ValType( aFields[ 1 ] ) == 'A'
         aFields     := ArrTranspose( aFields )
         aValues     := aFields[ 2 ]
         aFields     := aFields[ 1 ]
      endif
   else
      if aFields == nil
         aFields     := Array( FCOUNT() )
         for n := 1 to Len( aFields )
            aFields[ n ]   := n
         next n
      elseif ValType( aFields ) == 'C'
         aFields     := FW_ListAsArray( aFields )
      else
         aFields     := { aFields }
      endif
   endif
   if ValType( aValues ) != 'A'
      aValues     := { aValues }
   endif

   if ValType( lAppend ) == 'N'
      DBGOTO( Abs( lAppend ) )
      lDelete  := ( lAppend < 0 )
      lAppend  := nil
   elseif lAppend == nil
      n  := AScan( aFields, { |c| ValType( c ) == 'C' .and. Upper( c ) == "RECNO()" } )
      if ( n > 0 )
         DBGOTO( ABS( aValues [ n ] ) )
         lDelete  := ( aValues[ n ] < 0 )
      endif
   endif

   DEFAULT lAppend   := EOF()
   if lAppend .and. lDelete
      return 0
   endif

   if ( ! DBINFO( DBI_SHARED ) ) .or. DBINFO( DBI_ISFLOCK ) // exclusive or flocked
      if lAppend
         DBFAPPEND()
      endif
      lReady      := .t.
   endif
   if ! lReady .and. ! lAppend
      lReady      := DBRECORDINFO( DBRI_LOCKED )
   endif

   if ! lReady
      nSecs       := 0
      nLockWaitSecs  := If( nLockWaitSecs == nil, -1, If( nLockWaitSecs == 0, 120, nLockWaitSecs ) )
      do while ( ! ( lLocked := If( lAppend, ( DBAPPEND(), !NetErr() ), DBRLOCK() ) ) )  ;
               .and. nLockWaitSecs > 0 ;
               .and. nSecs < nLockWaitSecs
         SysWait( 0.5 )
         nSecs    += 0.5
      enddo
      lReady      := lLocked
   endif

   if lReady

      nRecNo      := RECNO()
      if lDelete
         DBDELETE()
      else
         if lAppend
            DBSKIP( 0 )
         endif
         nLen  := Min( Len( aFields ), Len( aValues ) )
         for n := 1 to nLen

            fld := aFields[ n ]
            if ValType( fld ) == 'C'
               fld   := If( ISDIGIT( fld ), Val( fld ), FIELDPOS( fld ) )
            endif
            if ! Empty( fld ) .and. !( FieldType( fld ) $ "+=@" )
               if ValType( u := FieldGet( fld ) ) == 'C'
                  u  := Trim( u )
               endif
               if ( v := XEval( aValues[ n ], lAppend ) ) != nil
                  if ! ( u == If( ValType( v ) == 'C', Trim( v ), v ) )
                     FieldPut( fld, v  )
                  endif
               endif
            endif
         next n

         if DELETED()
            RECALL
         endif

         if ValType( bTrigger ) == 'B'
            Eval( bTrigger )
         endif
      endif

   endif

   If lLocked
      DBRUNLOCK()
   endif

return nRecNo

//----------------------------------------------------------------------------//

CLASS TXData from TDataBase

DATA cDbfPath init cFilePath(GetModuleFileName( GetInstance() ))

ENDCLASS

CLASS TReserva from TXData
   METHOD New()
ENDCLASS

METHOD New( lShared ) CLASS TReserva
   Default lShared := .t.
   ::super:Open(,::cDbfPath + "Reserva" ,"DBFCDX", lShared)
   if ::use()
      ::setOrder(1)
      ::gotop()
   endif
   RETURN Self
 CLASS TRigheReserva from TXData
   METHOD New()
ENDCLASS

METHOD New( lShared ) CLASS TRigheReserva
   Default lShared := .t.
   ::super:Open(,::cDbfPath + "Rig_Res" ,"DBFCDX", lShared)
   if ::use()
      ::setOrder(1)
      ::gotop()
   endif
   RETURN Self