Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se ha corregido el mensaje de aviso cuando se da de alta una forma de pago sin plazos.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@157 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
David Arranz 2007-09-20 10:17:34 +00:00
parent ed6bed6a8b
commit 536cac7274
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas
View File

@ -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;

4
Source/Modulos/Formas de pago/Views/uEditorFormaPago.pas
View File

@ -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;