From 238c1a5f910296f70afda49186a73fc146271c88 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 30 Sep 2008 17:24:53 +0000 Subject: [PATCH] Fallo de inicializacion cuando no hay dis de vencimiento en los contactos git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@652 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Controller/uFacturasClienteController.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index 014758bf..fc5936f0 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -1077,12 +1077,12 @@ begin ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA; AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS; + ADiasMas := 0; if (AFactura.Cliente.VENCIMIENTO_FACTURAS_1 <> 0) or (AFactura.Cliente.VENCIMIENTO_FACTURAS_2 <> 0) or (AFactura.Cliente.VENCIMIENTO_FACTURAS_3 <> 0) then begin ADiaVencimiento := DayOf(AFechaVencimiento); - ADiasMas := 0; while (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_1) and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_2) and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_3) do