- Code: Select all Expand view
for z = 1 to len(adet)
cQuery1 := "UPDATE cheque SET desfech='"+Transform(Dtos(aCHe:fechin),"@r 9999-99-99")+"',"
cQuery1 += " destino='"+aChe:napea+"',"
cQuery1 += " npro='"+ alltrim(Str(aChe:ncli))+ "',"
cQuery1 += " recibopro='"+ alltrim(aChe:nRecibo) + "'"
cQuery1 += " WHERE codigo = "+ alltrim( Str(adet[z,1] ) )
(1) oMysql:Query(cQuery1 )
if oMysql:NetErr()
msginfo( "Error ejecutando Query " + CRLF + cQuery1 + CRLF + oMysql:Error() )
return nil
Endif
next
Destino es string
Todos los demás son numéricos, salvo desfech
con tdolphin llega a (1) y se cuelga el programa
En cambio si hago lo siguiente funciona bien
- Code: Select all Expand view
cQuery := "SELECT * FROM CHEQUE ORDER BY codigo"
oCheque := oMysql:Query( cQuery )
///etc
for z = 1 TO Len(adet)
IF oCheque:Seek( AllTrim( Str( adet[ z,1 ] ) ), "codigo" ) > 0
oCheque:fechin := aChe:fechin
oCheque:destino := aChe:napea
oCheque:npro := aChe:ncli
oCheque:recibopro := aChe:nrecibo
oCheque:save()
endif
next
ocheque:end()
Alguna idea del porque de esta discrepancia
Luis