currently I use the following code to delete a record in a table
- Code: Select all Expand view
cCmdSql := "DELETE FROM " +;
"HdrPro " +;
"WHERE " +;
"HDR_PRO = " + Str(oRsHdr:Fields("HDR_PRO"):Value,05,0)
TRY
oApp:oCon:Execute(cCmdSql)
CATCH oError
MsgInfo("No pude ejecutar el comando " + cCmdSql,oApp:cAplicacion)
FW_ShowAdoError(oApp:oCon)
cCmdSql := "ROLLBACK"
TRY
oApp:oCon:Execute(cCmdSql)
CATCH oError
MsgInfo("No pude ejecutar el comando " + cCmdSql,oApp:cAplicacion)
END
END
Or
- Code: Select all Expand view
oRsHdr:Delete()
is there a shorter code to do the same?, I mean in your FWFuncs.
With best regards