FiveTech Software tech support forums

Jose buenas tardes como vas? Creo que lo mas sencillo es que conviertas el array a dbf con la función fw_arraytodbf() y luego la tratas como una dbf https://forums.fivetechsupport.com/viewtopic.php?f=3&t=42209&p=253485&hilit=FW_ArrayToDBF&sid=ffb92644037a32e90c67912f3...

I have a Meter on a dialog @ 55, 40 METER oProgress VAR nActual SIZE 120,20 PIXEL OF oDlgAgg ; COLOR 0x60ff0000, CLR_BLACK ; BARCOLOR 0x6000ff00, CLR_WHITE ; TOTAL nTotal FONT oFont BORDER CLR_BLACK ; // CIRCULAR INNERDIA { |n| 0.2 + ( 0.6 * n ) } ; FILLCOLOR { |n| NARGB( 210 - ( n * 200 ), CLR_BLAC...

Inserting new records: For testing, I have used a small portion of the "storico.txt" We already have some data in STORICO.DBF and now we will try to insert new records. https://imagizer.imageshack.com/v2/xq90/924/VDGZAz.png #include "fivewin.ch"REQUEST DBFCDXfunc...

Rao, on my test I have the dMaxDate "10/09/2022" and on storico.txt I arrive until 2022/09/17 when I execute aNew := {} AEval( aData, { |a| If( a[ 1 ] > dMaxDate, AAdd( aNew, a ), ) } ) oStorico:FW_ArrayToDbf( anew ) XBROWSER oStorico SHOW RECID I not see any records why ?

Inserting new records: For testing, I have used a small portion of the "storico.txt" We already have some data in STORICO.DBF and now we will try to insert new records. https://imagizer.imageshack.com/v2/xq90/924/VDGZAz.png #include "fivewin.ch"REQUEST DBFCDXfunc...

For n= 1 to len(aData)If ctod(aData[1][n]) > dUltimaDataAaDd(aNewData,{aData[1][n],;aData[2][n],;aData[3][n],;aData[4][n],;aData[5][n],;aData[6][n],;aData[...

Most of the above comments were made, not knowing the full capabilities of FW_ArrayToDBF. The function FW_ArrayToDBF( aData ) converts any string values to the destination field type, before saving the data. This function is made keeping in view conversion from CSV. This type conversion is made usin...

I have an array previously built from a txt file, in this array as the first field there is a date field, I have to convert this array into a dbf file all records if the date field (dUltimaData) is greater than the last passed date oTemp:= TDatabase():Open( , cPath+"LOTTO", "DBFCDX&qu...

When I make a conversion I use local bprogress := { || ( oProgress:SetPos( npos++ ),; SysRefresh() ) } oProgress:SetRange( 0, (len(aData)/1000) ) oProgress:SetPos( 0 ) oLotto2:fw_ArrayToDBF( aData,,bProgress) aData is big https://i.postimg.cc/d3Zc418S/gg.png and the bar is immediate,...

... oLotto:DbfToArray() oVirtuale:=TDatabase():Open( , cDir+"Virtuale", "DBFCDX", .T. ) oVirtuale:SetOrder( 0 ) oVirtuale:ArrayToDBF( atempDbf, , nil, .t., .t. ) oVirtuale:close() else oLotto:gobottom() atempDbf:= oLotto:DbfToArray() oIntegrale:=TDatabase():Open( , cDir+"Integrale", ...

Instead of

Code: Select all  Expand view

       Adel(aData,1)
 

please try

Code: Select all  Expand view

       HB_Adel(aData,1, .t.)
 

Any solution Please ?

today I converted another file and I have the same problem see the picture

When I convert from a csv file to an array, the fw_ArrayToDBF (aData ,, bProgress) function inserts me an empty record, how do I avoid this   local  csvfile:=".\csv\file.csv"   local  cSymbol := ","   local  cText := StrTran( MemoRead( csvfile ), CHR( 10 ), Ch...