Código Delphi [-]with frmdata do begin if not transaccion.Active=true then transaccion.Active:=true; dataset1.DeleteSQL.Text:= 'delete from tb_cd_tmp_cxc_t'; try dataset1.Delete; transaccion.Commit; except transaccion.Rollback; end; end;
with frmdata do begin if not transaccion.Active=true then transaccion.Active:=true; dataset1.DeleteSQL.Text:= 'delete from tb_cd_tmp_cxc_t'; try dataset1.Delete; transaccion.Commit; except transaccion.Rollback; end; end;