Delete a record ? To Mr. Rao

[Armando]

Mr. Rao:

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