From 536cac7274b3e441792044c3a02b2d5e24a9555e Mon Sep 17 00:00:00 2001 From: david Date: Thu, 20 Sep 2007 10:17:34 +0000 Subject: [PATCH] Se ha corregido el mensaje de aviso cuando se da de alta una forma de pago sin plazos. git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@157 c93665c3-c93d-084d-9b98-7d5f4a9c3376 --- .../Formas de pago/Controller/uFormasPagoController.pas | 5 ----- Source/Modulos/Formas de pago/Views/uEditorFormaPago.pas | 4 ++++ 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas b/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas index 804915c6..8194af9a 100644 --- a/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas +++ b/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas @@ -184,11 +184,6 @@ begin if Length(AFormaPago.DESCRIPCION) = 0 then raise Exception.Create('Debe indicar una descripción para esta forma de pago.'); - if not Assigned(AFormaPago.Plazos) - or (AFormaPago.Plazos.RecordCount = 0) then - if (ShowConfirmMessage('¿La forma de pago no tiene plazos establecidos, por lo tanto no se generarán recibos para facturas con esta forma de pago, ¿desea continuar?', '') = IDNO) then - Exit; - Result := True; end; diff --git a/Source/Modulos/Formas de pago/Views/uEditorFormaPago.pas b/Source/Modulos/Formas de pago/Views/uEditorFormaPago.pas index 8b16e476..2d9edf79 100644 --- a/Source/Modulos/Formas de pago/Views/uEditorFormaPago.pas +++ b/Source/Modulos/Formas de pago/Views/uEditorFormaPago.pas @@ -153,6 +153,10 @@ end; procedure TfEditorFormaPago.actAceptarExecute(Sender: TObject); begin + if not Assigned(FFormaPago.Plazos) or (FFormaPago.Plazos.RecordCount = 0) then + if (ShowConfirmMessage('Forma de pago sin plazos', 'No ha indicado plazos de pago para esta forma de pago por lo tanto no se podrán generarar los recibos correspondientes.' + #10#13 + '¿Desea continuar guardando la forma de pago?') = IDNO) then + Exit; + if FController.Guardar(FFormaPago) then actCerrar.Execute; end;