FiveTech Software tech support forums

Hola amigos del forum.

Estoy intentando borrar varios registros que cumplen ciertas condiciones:
CODIGO VIGENCIA VALOR
010036 2016 100
010036 2017 200
010040 2013 120
010040 2014 80
010040 2015 50
.
.
.
Osea quiero borrar todos los registros del codigo 010036, la rutina que utililzo siempre me deja un registro sin borrar, este es el codigo:

cCSql :="DELETE " + "* " + "FROM " + "impcont " + "WHERE " + "CODIGO='" + oUni:ccodigop + "'"
TRY
oCn:Execute(cCSql)
Msginfo("registros Borrados " )
CATCH oError
MsgInfo("No pude ejecutar el comando " )
RETURN(.F.)
END

Is codigo VarChar(6) ?

Such behavior can be expected when you save data with trailing spaces.
In any RDBMS like MySql, it is a good practice to save trimmed data.

Please try
DELETE FROM <table> WHERE RTRIM(codigo) = '<yourvalue>'

Mr. Rao

thanks, solved

Perfect is VarChar code (6)


cCmdSql :="DELETE FROM impcont WHERE rtrim(CODIGO)" + "='" + oUni:ccodigop + "'"

TRY
oApp:oCn:Execute(cCmdSql)
Msginfo("Tabla Con los registros Borrados " )
CATCH oError
MsgInfo("No pude ejecutar el comando " )
RETURN(.F.)
END