FiveTech Software tech support forums

... } oTree:SetImageList( oImageList ) oItem = oTree:Add(itemid1) odb1:=oServer:Query("select bom2.itemidc itemidc,cversion,goods2.descrip descrip,goods2.size size,unit.unit unit,substring(bom2.mem,1,25) mem,bom2.qty/bom2.qtydevisor*(1+ifnull(bom2.scraprate,0)/100)+bom2.fixscrap ...

... ValToPrg(<xValue>)->cPRGcode ValToPrgExp(<xValue>)->cMacroExpression ValType(<exp>)->cType Version()->cVersion VolSerial([<cDrive>])->nVolumeSerial Volume(<cVolumeName>)->lSuccess W2Bin(<nNumber>)->cInteger Wild2RegEx(<cWildCard>,[<lCaseSensitive>])->cRegEx ...

... ValToPrg(<xValue>)->cPRGcode ValToPrgExp(<xValue>)->cMacroExpression ValType(<exp>)->cType Version()->cVersion VolSerial([<cDrive>])->nVolumeSerial Volume(<cVolumeName>)->lSuccess W2Bin(<nNumber>)->cInteger Wild2RegEx(<cWildCard>,[<lCaseSensitive>])->cRegEx ...

... HB_ZIPTestPk(<cFile>)->nReturnCode HB_ZIPWithPassword()->cPassword HB_ZLibVersion()->cVersion HB_ZUnCompress(<cPackedData>,[<@cBuffer|nBufLen>],[<@nResult>])->cUnPackedData HB_ZUnCompressLen(<cPackedData>,[<@nResult>])->nBytes ...

Revisa esta dll e de fabrica ACR120U.dll Function Main3() local cVersion := SPACE(40) ,Puerto:=0 PUBLIC hDLL := LoadLibrary("libreriacreadaDLL") ?? iLeerDatosBono(Puerto,cVersion) MsgInfo( cVersion ) FreeLibrary( hDLL ) return nil DLL FUNCTION ...

... para pago en autobuses ect y otros medios electronicos. #include "FiveWin.ch" #include "dll.ch" Function Main6() local cVersion := "69;50000;0;1;010110;011215;0;0" ,Puerto:=0 // 2 paratros PUBLIC hDLL := LoadLibrary("libreriacreada.DLL") ?? iRecargarMonedero(Puerto,cVersion) ...

Many thanks

Here the FWH sample:

obj:=CreateObject("Scripting.FileSystemObject")
cversion:=obj:GetFileVersion("FULL-PATH-EXE-DLL-FILE")

... ASI EMPEZE , SE CUELGA UN SEGUNDO , PERO DESPUES TERMINA.. #include "FiveWin.ch" #include "dll.ch" Function Main3() local cVersion := SPACE(100) ,Puerto:=0 PUBLIC hDLL := LoadLibrary("BTK_BADILLA.DLL") iLeerDatosBono(Puerto,cVersion) MsgInfo( cVersion ) FreeLibrary( ...

... INT PASCAL LIB "BTK_BADILLA.DLL" creo que algo falto. #include "FiveWin.ch" #include "dll.ch" Function Main() local cVersion := Space( 100 ) PUBLIC hDLL := LoadLibrary("BTK_BADILLA.DLL") sVersionDLL( cVersion ) MsgInfo( cVersion ) FreeLibrary( hDLL ) return ...

... ),; IF(lVal,MsgInfo("Restauracion completada con éxito"+CRLF+CRLF,cVersion),; MsgStop("No se han podido restaurar los datos")),; oDlg:END()} ACTIVATE DIALOG oDlg CENTERED ENDIF RETURN NIL Ojo: en tu fichero ...

... ),; IF(lVal,MsgInfo("Proceso Realizado con éxito"+CRLF+CRLF+; "Fichero guardado "+cFile,cVersion),; MsgStop("No se pudo realizar el Backup")),; oDlg:END()} ACTIVATE DIALOG oDlg CENTERED RETURN lVal //---------------------------------- ...

... ma_arti") xExi_Suc:GoTop() If (xExi_Suc:Reccount) == 0 MsgAlert( "Codigo de Producto "+AllTrim(m_codi)+ " no Existe",oApp:cVersion) SQL CLOSE xExi_Suc Return .F. Else aDatos[oBrw:nArrayAt,1]:=SQLField(xExi_Suc,"ma_arti") aDatos[oBrw:nArrayAt,2]:=SQLField(xExi_Suc,"ma_des1") ...

... Twain application METHOD Register() LOCAL nMaiorNum := 1 LOCAL nMinorNum := 0 // Result -> 1.0 LOCAL nLanguage := 0 LOCAL nCountry := 0 LOCAL cVersion := "1.0" LOCAL cManifact := "The Genius" LOCAL cFamily := "Digitizer" LOCAL cProduct := StrTran(cFileName(GetModuleFileName(GetInstance())),".EXE","") ...

... ; HEADER ' ', ::cDlgTitle CENTERED ; FOOTER ' ', "Fecha: "+dtoc(date())+ " Página.: "+str(::oReport:nPage,3) ; CAPTION oVar:cVersion ; TO DEVICE ::oPrn ELSEIF ::nDevice == 2 // Imprimir REPORT ::oReport ; TITLE " ",::cTitulo1,::cTitulo2,iif(::cTitulo3!=NIL,::cTitulo3," ...

... funcion y me resulta ok, utilizo el FW 2.4 y en este caso el Listbox nativo, debe funcionar igual con los otros browses Function DelItem( oLbx,cVersion ) LOCAL cCodItm:=Items->CODITM LOCAL lResultado:=.F. IF Acceso()" // Movimiento del Almacen USE BASEALM NEW SHARED Alias Almacen Almacen->(OrdSetFocus(2)) ...