FiveTech Software tech support forums

I made another test

Function test()
Local ddata
Local nreturn

SET DATE ITALIAN
ddata:=date()

nReturn := dData- CTOD("01/01/"+RIGHT(DTOC(dData),2)) +1

RETURN nReturn

return 36577 ( today 21.02.2020)

why not run ok

Hi.
With the function changed like this, I have this result :

IMPORTO = L2BIN( NDBL2FLT( 0 ))
nReturn = AdsGetDouble(handle, "IMPORTO", @IMPORTO)
msginfo(NFLT2DBL(IMPORTO), str(nReturn))

Hi Enrico.
With this code I have this result :

IMPORTO = L2BIN( NDBL2FLT( 0 ))
nReturn = AdsGetDouble(handle, "IMPORTO", @IMPORTO)
msginfo(IMPORTO, str(nReturn))

Hi Enrico. With this code nReturn is 0 (correct) but IMPORTO is -343597384 IMPORTO = "0.00" nReturn = AdsGetDouble(handle, "IMP_FORN", @IMPORTO) msginfo(IMPORTO, str(nReturn)) IMPORTO = "0.00" is not correct. ...

Hi Enrico.
With this code nReturn is 0 (correct) but IMPORTO is -343597384

IMPORTO = "0.00"
nReturn = AdsGetDouble(handle, "IMP_FORN", @IMPORTO)
msginfo(IMPORTO, str(nReturn))

... HB_FReadAndSkip()->cLine HB_FReadLine(<nFileHandle>,@<cLine>,[<caEndOfLine>],[<nLineLength>])->nReturn HB_FReadLN()->cCurrentLine HB_FRecno()->nLineNumber HB_FSelect([<nNewArea>])->nOldArea HB_FSize(<cFileName>)->nFileSize ...

... in adordd.prg is called from tryadordd.prg: Code: MSGINFO("Relations in ADO SQL with record number are not allowed! See adordd.prg") nReturn := ADO_GOTO( aRelInfo[ UR_RI_CHILD ], uResult ) //-> uResult is type "C" The nRecord its always N type. Unless bookmarks are used ...

... LibFlags= [Abbreviations] //-=//------------------------------------------------------------------------------\n| fn=FUNCTION |()\nRETURN if=IF |\nENDIF ife=IF |\nELSE\nENDIF me=METHOD |() CLASS\nRETURN pr=PROCEDURE |()\nRETURN to=// TODO: tom=/* TODO: |\n*/ tr=TRY |\nCATCH\nEND ...

... the message hMessage := MimeComposeMessage(cFrom, cTo, cCC, cSubject, cMessage, , MIME_CHARSET_DEFAULT, MIME_ENCODING_DEFAULT ) send the message nReturn := SmtpSendMessage( hClient, cFrom, cTo, cExpFile, len(cMessageText), SMTP_MESSAGE_FILE ) My implementation of this library is highly customized ...

... %FI LinkFlags=-Gn -Tpe StandardIcons=.F. LibFlags= [Abbreviations] if=IF |\nENDIF ife=IF |\nELSE\nENDIF wi=WITH OBJECT |\nEND me=METHOD |() CLASS\nRETURN fn=FUNCTION |()\nRETURN pr=PROCEDURE |()\nRETURN tr=TRY |\nCATCH\nEND to=// TODO: tom=/* TODO: |\n*/ //-=//------------------------------------------------------------------------------\n| ...

... * HB_ZIPTESTPK() * $CATEGORY$ * Zip Functions * $ONELINER$ * Test pkSpanned zip files * $SYNTAX$ * HB_ZIPTESTPK( <cFile> ) --> <nReturnCode> * $ARGUMENTS$ * <cFile> File to be tested. * $RETURNS$ * <nReturn> A code that tells if the current disk is the last of ...

... The code below is working but a 2. array seems a little time-consuming. FUNCTION Backuploeschen(oBrw) local I := 0 local aTemp := {} local nreturn := 0 For I := 1 to len(aTageSort) aadd( aTemp, { aTageSort[ I ][ 1 ] ,; aTageSort[ I ][ 2 ],; aTageSort[ I ][ 3 ],; aTageSort[ I ][ 4 ],; aTageSort[ ...

... FUNCTION Escape: Directly access a device driver Syntax: Escape( <hDC>, <nEscape>, <cInput>,[ <@cOutPut>] ) --> nReturn Parameters: <hDC> Device context <nEscape> Specifies the escape function to be performed. <cInput> Specifies the Input Data ...

... #ifdef __HARBOUR__ HARBOUR HB_FUN_WSAASYNCSELECT( PARAMS ) // ( nSocket, nHWnd, nMsg, nModes ) --> nReturn #else CLIPPER WSAASYNCSE( PARAMS ) // LECT( nSocket, nHWnd, nMsg, nModes ) --> nReturn #endif { _retni( WSAAsyncSelect( _parni( 1 ), ( HWND ...

... FWH. Our need is to call a C function in a DLL. The problem we encounter is the Data Type LPLONG is not supported in FWH. So, the following call: nReturn := pp_lfopen( 'test.lf', LFOPEN_NOCACHE, LF_FILE, 'password', nLFhandle ) With the following DLL: DLL32 Function pp_lfopen( filename As LPSTR, ...