FiveTech Software tech support forums

now I'm using IF URLDOWNLOADTOFILE( 0,cUrl , cZipFile) =0 lreturn := .t. else lreturn := .f. endif DLL FUNCTION URLDOWNLOADTOFILE( pCaller AS LONG, cUrl AS LPSTR, cFileName AS LPSTR, nReserved AS DWORD, nFnCB AS LONG ) AS LONG; PASCAL FROM "URLDownloadToFileA" ...

... Function HB_HasTrovato(hVars,xKey,lValore,lUpper) Local lReturn := .f. DEFAULT lValore := .f. DEFAULT lUpper := .t. IF lUpper xKey := upper(xKey) endif IF HB_ISHASH(hVars) .and. HHasKey( hVars , xKey ) IF ...

Silvio.Falconi wrote:Now I resolve with

IF oImport:ExcelToDBF( oRange, nil, .t. )
lreturn :=.t.
ENDIF

But I not Know if it is correct!!

Correct.

Now I resolve with

IF oImport:ExcelToDBF( oRange, nil, .t. )
lreturn :=.t.
ENDIF

But I not Know if it is correct!!

oImport:=TImport():New() IF FW_ExcelToDBF( oRange, nil, .t. ) lreturn :=.t. ENDIF give me error wich is the right command ? Error Error occurred at: 19-01-2022, 13:39:00   Error description: Error DBCMD/2001  Workarea non in use: DBINFOStack ...

... rRuta := "/public_ftp/ruta" local CantFiles,nSize:= 0 local oDlg,oSay,oBtnCancel,oMeter,lEnd:=.F.,nAmount,lOk:= .F.,lValRet:= .F. local lReturn := .F. MsgRun( "Connecting to Internet...", "Please, wait",{ || oInternet := TInternet():New()}) MsgRun( "Conectando ...

...  RETURN Self could i create another method for order search? example METHOD SearchInvoice(nInvoice,oPre,oRes) CLASS TReserva local oRes,lReturn:=.f. oRes:setOrder(res_pre) If oRes:seek(Invoice) oPre:=:=oRes:record() lreturn :=.t. else msginfo("error") endif return lreturn :=.t. ...

... oCliente:Clicognome, aGet[2], 1,oDbf,oCliente:Clinome ) function SearchCli ( cCognome, oGet, nMode,oDbf,cNome )   local lreturn  := .f.   local nRecno   := oDbf:RecNo()   local nOrder   := oDbf:OrdNumber()   local nArea    := Select() if Empty( ...

... in my program: SetHelpFile("our Helpfile") as my helpfiles are online I changed help32.prg static function IsHelpFile( cHelpFile ) local lReturn := .F. return lReturn //-----------------------------------------------------------------------// FUNCTION HelpIndex( ) // activa F1 local cHelpFile ...

oDB := DBServer {"d:\demo10.dbf", DBShared,, "AXDBFCDX"}
lReturn := AdsGetLastError( @dwError, pacError, @wLen)

if !AdsConnect60( "C:\", 2 )

cMsg = Space( 300 )

adsGetLastError( @cMsg )

winMsgInfo( cMsg ), "Error connecting do C:\" )

endif

... if an error occurred while attempting to open a table: LOCAL oDB AS DBServer LOCAL dwError AS DWORD LOCAL pacError AS PSZ LOCAL wLen AS WORD LOCAL lReturn AS LONGINT pacError := MemAlloc( 200 ) wLen := 200 RDDSETDEFAULT("AXDBFCDX") oDB := DBServer {"d:\demo10.dbf", DBShared,, ...

... <windows.h> // Funcion Para Conectar el Dispositivo BOOL WINAPI Connect( int pHostWin ); HB_FUNC( MYHIDCONNECT ) { INT pHostWin; BOOL lReturn; pHostWin = hb_parni(1); lReturn = Connect(pHostWin); hb_retl(lReturn); } LONG WINAPI GetHandle( int pVendoID,int pProductID); HB_FUNC( MYHIDGETHANDLE ...

... IF calsslib(ngiorno,nore,nora) ... the function I found on old clipper app I must converte static function GIORNOLIB(nGiorno, nOre, nOra) Local lreturn := .f. if (Val(do->giornoli) == nGiorno .AND. nOra == 1 .AND. ; do->punti < "3" .AND. Val(do->giornoli) == nGiorno ; .AND. ...

... IPAdd AS LPSTR, Portl AS LONG ) AS BOOL PASCAL LIB "xxxxxx.dll" Thisis my code... PUBLIC hDLL := LoadLibrary("xxxxxx.dll") lReturn:=Conectar("192.168.1.1",9999) MsgInfo( lReturn ) FreeLibrary( hDLL ) But I get a nil value, instead of .T. or .F. What am I doing ...

... IPAdd AS LPSTR, Portl AS LONG ) AS BOOL PASCAL LIB "xxxxxx.dll" Mi codigo es este... PUBLIC hDLL := LoadLibrary("xxxxxx.dll") lReturn:=Conectar("192.168.1.1",9999) MsgInfo( lReturn ) FreeLibrary( hDLL ) Pero siempre obtengo NIL, no .T. o .F. como espero Cualquier ...