FiveTech Software tech support forums

... Open( , cPath+"STORICO", "DBFCDX", .T. )
SET DELETED ON
olotto2:setorder(0)
oLotto2:gotop()

//FW_ArrayToDBF( aData, cFieldList, bProgress, lOverWrite, lRecallDeleted, bTrigger )


oLotto2:fw_ArrayToDBF( aData,,bProgress) // how insert conditions ?

I need to create it because when I update ...

If I delete a record on aData then I must save the aData on dbf

from yunus.prg I saw there is
//FW_ArrayToDBF( aData, cFieldList, bProgress, lOverWrite, lRecallDeleted, bTrigger )
if ! Empty( oBrw:aDeleted ) AEval( oBrw:aDeleted, { |a| a[ 9 ] := -a[ 9 ] } &#41 ...

... también
puede incluir funciones internas, obsoletas y en desarrollo.

* Mejora: function FW_ArrayToDBF( aArray, [fieldlist], [bProgress], [lOverwrite], ;
[lRecallDeleted], [bTrigger] )
2. fieldlist (opcional): Lista separada por comas o matriz de nombres de campo.
Por defecto todos los ...

... may include internal,
obsolete and under development functions also.

* Enhancement: function FW_ArrayToDBF( aArray, [fieldlist], [bProgress], [lOverwrite], ;
[lRecallDeleted], [bTrigger] )
2. fieldlist (optional): Comma separated list or array of field names.
Default all fields. Values are ...

We confirm that the function FW_ArrayToDBF(...) with the new lOverWrite parameter is working perfectly.

This is the test program to demonstrate its functionality.
#include "fivewin.ch"REQUEST DBFCDXfunction Main()   local aData   local cFieldList  := "FLD1,FLD2,FLD3 ...

At present FW_ArrayToDbf(...) only appends records. For this reason, you need to Zap the dbf. In FWH 19.01, we added a new 4th parameter lOverWrite. If this parameter is set to .T., it overwrites the existing data from the current record. Using this enhancement you do not need to zap the dbf.

This is ...

... nError>)->cError
HB_ZIPDeleteFiles(<cFile>,<cFiletoDelete>|<aFiles>)->lDeleted
HB_ZIPFile(<cFile>,<cFileToCompress>|<aFiles>,<nLevel>,<bBlock>,<lOverWrite>,<cPassword>,<lWithPath>,<lWithDrive>,[<bFileProgress>])->lCompress
HB_ZIPFileByPKSpan(<cFile>,<cFileToCompress>|<aFiles>,<nLevel>,<bBlock ...

Arerra,

The error message you posted before is occurring in the second line here (6394 in ADORDD.PRG):

if lOverWrite
hb_adoRddDrop( oCn, cBaseDir + aFile[ F_NAME ], , , DBEngine ) // erroring here
endif

But since you are passing .f. for lOverwrite, that line is not being executed, so it must be ...

... adordd SETs:

hb_AdoUpload&#40; "C:\My root databse path", "DBFCDX", "MY SQL CHOSEN ENGINE", .f. &#41;&nbsp;

Choosing the last parameter .f. lOverwrite it allows you if you need to interrupt
porting of dbfs to SQL to run it again from the last uploaded table.
After loading it your app will ...

... única pero debe wok con todos los demás.

Nueva SET ADO TABLENAME CON EL CAMINO DE ON / OFF

Nueva hb_AdoUpload (cBaseDir, CRDD, DBEngine, lOverWrite)
Nueva HB_adorddFile (cFichero) Reemplaza archivos ()
Nueva hb_ADOrddCOPYFILE (cTableOrigin, cTableDestination) Reemplaza CopyFile ()
Nueva hb ...

... MySql and ACCESS only but should wok with all others.

New SET ADO TABLENAME WITH PATH ON /OFF

New hb_AdoUpload( cBaseDir, cRDD, dbEngine, lOverWrite )
New HB_adorddFile( cFile) Replaces File()
New hb_ADOrddCOPYFILE( cTableOrigin, cTableDestination ) Replaces CopyFile()
New hb_adordddir ...

HB_ZIPFILE:HB_ZIPFILE()

Create a zip file

Syntax
HB_ZIPFILE( <cFile> , <cFileToCompress> | <aFiles>, <nLevel> ,
<bBlock>,<lOverWrite> ,<cPassword>,<lWithPath>,<lWithDrive>) ---> lCompress
Arguments
<cFile> Name of the zip file

<cFileToCompress> Name of a file to Compress, Drive and/or path can be ...

Hello,

I don't know, i don't use,

Best Regard,

Lautaro Moreira

Tank you , Lautaro, is a good idea.

But this means that the function HB_ZIPFILE() doesn't work with lOverwrite flag = .F. ?


Best regards
Walter Zafferami

Hello,

I'm using this :
#include "hbmzip.ch"......local nhzipfilenhzipfile := HB_ZipOpen&#40; "zipfile.zip", HB_ZIP_OPEN_ADDINZIP &#41;for nveces = 1 to len &#40; afiles &#41;&nbsp; &nbsp;HB_ZipStoreFile&#40; nhzipfile,afiles&#91;nveces&#93;&#41;next nveceshb_zipclose&#40;nhzipfile&#41;&nbsp ...