Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fallo de inicializacion cuando no hay dis de vencimiento en los contactos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@652 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-09-30 17:24:53 +00:00
parent 8cab9e126d
commit 238c1a5f91
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -1077,12 +1077,12 @@ begin
ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA; ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS; AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS;
ADiasMas := 0;
if (AFactura.Cliente.VENCIMIENTO_FACTURAS_1 <> 0) if (AFactura.Cliente.VENCIMIENTO_FACTURAS_1 <> 0)
or (AFactura.Cliente.VENCIMIENTO_FACTURAS_2 <> 0) or (AFactura.Cliente.VENCIMIENTO_FACTURAS_2 <> 0)
or (AFactura.Cliente.VENCIMIENTO_FACTURAS_3 <> 0) then or (AFactura.Cliente.VENCIMIENTO_FACTURAS_3 <> 0) then
begin begin
ADiaVencimiento := DayOf(AFechaVencimiento); ADiaVencimiento := DayOf(AFechaVencimiento);
ADiasMas := 0;
while (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_1) while (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_1)
and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_2) and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_2)
and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_3) do and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_3) do