ayuda con ADO

[jpcavagnaro]

Hola me pueden decir que estoy haciendo mal:

csql:="SELECT CASE tipo WHEN 'CA' then importe *-1 when 'CB' THEN importe*-1 ELSE importe END AS credito FROM ventas"
oRs1 := FW_OpenRecordSet( oCnM, cSQL )
IF oRS1 = nil .or. oRS1:RecordCount = 0
msginfo("No anda")
retu
else
xbrowse(ors1)
ors1:close()
endif

Da error unrecognized prhase
Pruebo en sql managment y funciona bien, no puedo encontrar el error

Saludos
Jorge

[Antonio Linares]

Estimado Jorge,

En la primera cláusula WHEN, usas importe *-1 (con espacio antes de *), lo cual es correcto y se interpreta como multiplicación por -1.

En la segunda, es importe*-1 (sin espacio). Esto podría confundir al parser, ya que en SQL los operadores aritméticos como * necesitan espaciado adecuado para evitar ambigüedades. Aunque SQL Server lo maneja bien en Management Studio, ADO o Harbour podrían fallar aquí

[jpcavagnaro]

Antonio, gracias por contestar, probe separarlo y sigue dando el mismo error.

[jacgsoft]

Acabo de probar tu código y funciona bien.

¿Puedes copiar el error que te genera?

[jpcavagnaro]

Hola, desde mi programa da:

Da error unrecognized prhase
Pruebo en sql managment y funciona bien, no puedo encontrar el error

Saludos
Jorge

[Antonio Linares]

Que versión de FWH y que versión de ADO usas ?

[jpcavagnaro]

De fivewin 2307 de ADO como se que versión es?

Saludos
Jorge

[carlos vargas]

Usa
OCn:execute( cSql )