Tipos de IVA: Error en literal (ponía eliminar forma de pago).

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@267 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-07-10 10:29:35 +00:00
parent 23bf48f313
commit 5de8d0e1a4

View File

@ -28,7 +28,7 @@ interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
uIEditorTiposIVA, uBizTiposIVA, uTiposIVAController, DB, uDADataTable, uIEditorTiposIVA, uBizTiposIVA, uTiposIVAController, DB, uDADataTable,
ActnList, Grids, DBGrids, StdCtrls, ComCtrls; ActnList, Grids, DBGrids, StdCtrls, ComCtrls, uDAInterfaces;
type type
TfEditorTiposIVA = class(TForm, IEditorTiposIVA) TfEditorTiposIVA = class(TForm, IEditorTiposIVA)
@ -106,7 +106,7 @@ end;
procedure TfEditorTiposIVA.actEliminarExecute(Sender: TObject); procedure TfEditorTiposIVA.actEliminarExecute(Sender: TObject);
begin begin
if (ShowConfirmMessage('¿Desea borrar esta forma de pago?', '') = IDYES) then if (ShowConfirmMessage('¿Desea borrar este tipo de IVA?', '') = IDYES) then
FController.Eliminar(FTiposIVA) FController.Eliminar(FTiposIVA)
end; end;