FiveTech Software tech support forums

... http://forums.fivetechsupport.com/viewtopic.php?f=6&t=39322&p=234654#p234654 * Función FWCheckExpression( cExpression, [uVal], [@uRet] ) --> lValid El tercer nuevo parámetro opcional por referencia contiene el resultado de la evaluación de la expresión. * xbrowser.prg: Presionando ...

... fixed. http://forums.fivetechsupport.com/viewtopic.php?f=6&t=39322&p=234654#p234654 * function FWCheckExpression( cExpression, [uVal], [@uRet] ) --> lValid Optional 3rd new param by ref contains the result on evaluation of the expression. * xbrowser.prg: Pressing Ctrl-E + Ctrl-X enables ...

... 1078 )<-START( 96 )" cSql = "SELECT * FROM tipos as TIP ORDER BY CTIPO LIMIT 1000 WHERE `TIP`.`CTIPO` = '01'" uRet = ::nError = 1064 ::cError = "You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the ...

Antonio Linares wrote:En vez de:

hb_HrbRun( oHrb )

Hazlo así:

uRet = hb_HrbDo( hb_HrbLoad( oHrb ), ... )

El mismo error de corrupcion

En vez de:

hb_HrbRun( oHrb )

Hazlo así:

uRet = hb_HrbDo( hb_HrbLoad( oHrb ), ... )

... = '11:36WHERE esc.cemp = '018' 8' AND `esc`.`TIPO` = 'S1010' AND `esc`.`CAMPO` = '005' AND ( esc.cemp = '018' ) ORDER BY data,hora" uRet = ::nError = 1064 ::cError = "You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the ...

... = '10:46WHERE esc.cemp = '018' 3' AND `esc`.`TIPO` = 'S1030' AND `esc`.`CAMPO` = '10200513' AND ( esc.cemp = '018' ) ORDER BY data,hora" uRet = ::nError = 1064 ::cError = "You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the ...

... este codigo en mi aplicacion (Dentro como una funcion o desde un archivo externo) function Execute( cCode, ... ) local oHrb, cResult, bOldError, uRet local cFWheaders := If( lIsDir( ".\include" ), ".\include", "c:\FWH\include" ) local cHBheaders := If( lIsDir( ".\include" ...

... Now NIL is returned in such cases and error is set as Invalid SQL. - Calling stored procedures and functions: Additional syntax: Till FWH 16.10 [uRet := ] oCn:Call( "<function>", [p1], ... [pN] ) [oRs := ] oCn:Call( "<procedure>", [[@]p1],...[[@]pN] ) Additional ...

... auth=" + AuthCode) msginfo(cResponse) Return Nil Function SendPostToUrl( cUrl, cParams,cContentType,cAuthorization ) Local oOle,cRet:='',uRet default cContentType:="application/x-www-form-urlencoded" default cAuthorization:="" Try oOle := CreateObject( 'MSXML2.XMLHTTP' ...

... please locate the method SqlQuery and go to the end of the method You will find these lines.             if Len( uRet ) == 1               uRet  := uRet[ 1 ]              ...

... auth=" + AuthCode) msginfo(cResponse) Return Nil Function SendPostToUrl( cUrl, cParams,cContentType,cAuthorization ) Local oOle,cRet:='',uRet default cContentType:="application/x-www-form-urlencoded" default cAuthorization:="" Try oOle := CreateObject( 'MSXML2.XMLHTTP' ...

... METHOD Do( cMethodName, uParam1, uParam2, uParam3, uParam4 ) CLASS TActiveX local uRet do case case PCount() == 1 uRet = ActXInvoke( ActXPdisp( ::hActiveX ), cMethodName ) case PCount() == 2 uRet = ActXInvoke( ActXPdisp( ::hActiveX ...

Antonio,

Muchas gracias.

Voy a implementarlo

Me imagino que es un error de escritura pero creo que lo correcto es:
uRet $ 'AD'
en lugar de:
uRet $ 'AB'

Fernando,

// lSorted := ( uRet == .t. .or. uRet == "A" .or. uRet == "D" )

lSorted := ValType( uRet ) == 'C' .and. uRet $ 'AB' .and. ! ( uRet == ::cOrder )