FiveTech Support Forums

   local  csvfile:=".\csv\file.csv"
   local  cSymbol := ","
   local  cText := StrTran( MemoRead( csvfile ), CHR( 10 ), Chr(1) )
   local  aData := HB_ATokens( cText, Chr(1), .t., .t. )
   AEval( aData, { |c,i| c := StrTran( c, Chr(1), CRLF ), aData[ i ] := HB_ATokens( c, cSymbol, .t., .t. ) } )

      if len( ATail( aData ) ) < 2
           ASize( aData, Len( aData ) - 1 )
        endif
        Adel(aData,1)

       
          oDbf:= TDatabase():Open( , cPath+"mydb",DBFCDX", .T. )
         SET DELETED  ON

         oDbf:setorder(0)
         oDbf:gotop()
         oDbf:fw_ArrayToDBF( aData,,bProgress)

CodCausM,ContrMag,Controp,DescrCausM,EsclAggMag,Obsoleto,Storno,TipoCaus
00001,false,Fornitore,Acquisto,false,false,false,Acquisto
00002,false,Nessuna,Carico,false,false,false,Carico
00003,false,Cliente,C/Deposito,false,false,false,C/Deposito clienti
00004,false,Fornitore,C/Deposito da fornitori,false,false,false,C/Deposito fornitori
00005,false,Cliente,C/Lavoro da clienti,false,false,false,C/Lavoro attivo
00006,false,Fornitore,C/Lavoro,false,false,false,C/Lavoro passivo
00007,false,Cliente,Carico per riparazione,false,false,false,Carico
00008,false,Cliente,C/Visione,false,false,false,C/Terzi
00009,false,Nessuna,Inventario,false,false,false,Inventario
00011,false,Cliente,Reso da C/Visione,false,false,true,C/Terzi
00012,false,Cliente,Reso da cliente,false,false,true,Vendita
00013,false,Fornitore,Reso a fornitore,false,false,true,Acquisto
00014,false,Nessuna,Scarico,false,false,false,Scarico
00015,false,Cliente,Reso da C/Deposito clienti,false,false,true,C/Deposito clienti
00016,false,Fornitore,Reso da C/Deposito,false,false,true,C/Deposito fornitori
00017,false,Cliente,Reso da C/Lavoro,false,false,true,C/Lavoro attivo
00018,false,Fornitore,Reso da C/Lavoro fornitori,false,false,true,C/Lavoro passivo
00019,false,Cliente,Scarico da riparazione,false,false,false,Scarico
00020,false,Cliente,Vendita,false,false,false,Vendita
00021,true,Fornitore,Consegna a terzista,false,false,false,Scarico
00022,false,Cliente,Reso riparato,false,false,false,Vendita
00023,false,Cliente,Reso non riparato,false,false,false,Scarico
00024,false,Nessuna,Carico per rettifica giacenze,false,false,false,Carico
00025,false,Nessuna,Scarico per rettifica giacenze,false,false,false,Scarico
00026,false,Nessuna,Scarico per produzione,false,false,false,Scarico
00027,false,Nessuna,Carico per produzione,false,false,false,Carico

        Adel(aData,1)

        HB_Adel(aData,1, .t.)