From 1b477397a6d9a9278492d11d2f773a756b374592 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 30 Sep 2008 17:25:06 +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@653 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Controller/uFacturasProveedorController.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index dcb32740..1ed478d2 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -889,12 +889,12 @@ begin ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA; AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS; + ADiasMas := 0; if (AFactura.Proveedor.VENCIMIENTO_FACTURAS_1 <> 0) or (AFactura.Proveedor.VENCIMIENTO_FACTURAS_2 <> 0) or (AFactura.Proveedor.VENCIMIENTO_FACTURAS_3 <> 0) then begin ADiaVencimiento := DayOf(AFechaVencimiento); - ADiasMas := 0; while (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_1) and (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_2) and (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_3) do