FiveTech Software tech support forums

Hola,
Temo que quizá se me esté escapando la tortuga.
Tengo este código:

Code: Select all  Expand view

FUNCTION DatosCortesHora( oCn, aDatosCortesHora )
     LOCAL cScript
     
     cScript := 'SELECT p.fecha, p.hora, p.corte, p.corte_descripcion, p.cajas, p.piezas, p.kilosnetos, r.target FROM prodalba AS p INNER JOIN rendcortes AS r ON p.corte = r.idcorte ORDER BY r.ordinal'
           
     aDatosCortesHora := oCn:QueryResult( cScript, .t. )  
     ?oCn:nError
     ?oCn:cError
RETURN nil

oCn:nError da 0
oCn:cError da ''

y si hago :
?aDatosCortesHora
resulta en : {}

si copio el script en HeidiSQL y lo ejecuto funciona perfectamente.

Me tiene desconcertado........
Gracias desde ya por vuestra ayuda.

Hola, prueba con:

Code: Select all  Expand view

aDatosCortesHora := oCn:Query( cScript )  

espero que este ejemplo aclare lo que quieras obtener
aVerultpr:=MEMVAR->oConex:QueryResult("SELECT B.feccpg,A.precio,A.undmed FROM movimdet AS A "+;
"LEFT JOIN movimmov AS B ON B.tipcpg=A.tipcpg AND B.sercpg=A.sercpg AND B.nrocpg=A.nrocpg "+;
"WHERE A.tipcpg='"+iTabVta+"' AND A.codart='"+cCodArt+"' AND B.tipcod='C' AND B.codigo='"+cCodCli+"' "+;
"ORDER BY B.feccpg DESC LIMIT 1")
IF aVerultpr!=Nil
::vGet:dFecUltVta:=aVerultpr[1]
::vGet:nPreUltVta:=aVerultpr[2]
::vGet:cUndUltVta:=aVerultpr[3]
ENDIF