FiveTech Software tech support forums

//IF (lAdd,oDbf:Blank(),oDbf:Load()) SELECT( oDbf:cAlias ) DATABASE oDbf IF lAdd //-> Para Anadir oDbf:SetBuffer( .T. ) oDbf:Blank() ELSE //-> Para Alterar oDbf:Load() ENDIF O /* IF NetUse( "CADETIQ", .T. ) OrdListAdd( "CADETIQ", "RAZ_MATRIC", "DEST_NOME", "END", ; "NOME_ARTIS", ...

... cPath, cFileName If !open( "AGENCIAS" ) Error_Msg( cFile, "NO SE PUDO ABRIR AGENCIAS", "CONSULTA_EMPRESA" ) Return NIL Endif DATABASE oDbf oDbf:SetBuffer( .F. ) // Buscando codigo oIter := TXMLIteratorScan():New( oNodo ) oNode := oIter:Find( "PARAM", "id", "codigo" ) nCodigo := oNode:GetAttribute("valor") ...

That sample is for 16 bit only. Use xHarbour ZIP management instead. This is the docs from xHarbour CVS: /* * $DOC$ * $FUNCNAME$ * HB_ZIPFILE() * $CATEGORY$ * Zip Functions * $ONELINER$ * Create a zip file * $SYNTAX$ * HB_ZIPFILE( <cFile>, <cFileToCompress> | <aFiles>, <nLevel&g...

... 0007:451C 0025AH SETTXT CODE 0007:4776 02138H WBRWLINE_TEXT CODE 0007:68AE 0036DH LCHECKDBF CODE 0007:6C1C 000D6H COPYREC CODE 0007:6CF2 000FCH LSETBUFFER CODE 0007:6DEE 00054H NEXTVAL CODE 0007:6E42 0004DH C2BLOCK CODE 0007:6E90 0005AH DBROW CODE 0007:6EEA 0004AH ORDLISTLEN CODE 0007:6F34 00063H ...

... 0007:451C 0025AH SETTXT CODE 0007:4776 02138H WBRWLINE_TEXT CODE 0007:68AE 0036DH LCHECKDBF CODE 0007:6C1C 000D6H COPYREC CODE 0007:6CF2 000FCH LSETBUFFER CODE 0007:6DEE 00054H NEXTVAL CODE 0007:6E42 0004DH C2BLOCK CODE 0007:6E90 0005AH DBROW CODE 0007:6EEA 0004AH ORDLISTLEN CODE 0007:6F34 00063H ...

Here it is: /* * $DOC$ * $FUNCNAME$ * HB_ZIPFILE() * $CATEGORY$ * Zip Functions * $ONELINER$ * Create a zip file * $SYNTAX$ * HB_ZIPFILE( <cFile>, <cFileToCompress> | <aFiles>, <nLevel>, * <bBlock>, <lOverWrite>, <cPassword>, <lWithPath>, <lWithDriv...

/* * $DOC$ * $FUNCNAME$ * HB_ZIPFILE() * $CATEGORY$ * Zip Functions * $ONELINER$ * Create a zip file * $SYNTAX$ * HB_ZIPFILE( <cFile>, <cFileToCompress> | <aFiles>, <nLevel>, * <bBlock>, <lOverWrite>, <cPassword>, <lWithPath>, <lWithDrive>, * <...