From 6da967d84c8d3dbf58f4418a2f9092ac270833d1 Mon Sep 17 00:00:00 2001 From: david Date: Thu, 18 Dec 2008 15:37:58 +0000 Subject: [PATCH] =?UTF-8?q?Se=20adaptan=20las=20fichas=20de=20cliente=20y?= =?UTF-8?q?=20de=20proveedor=20para=20que=20acepten=20varios=20dias=20de?= =?UTF-8?q?=20pago=20(en=20los=20clientes=20se=20desactiva=20para=20acana)?= =?UTF-8?q?,=20ademas=20de=20retocar=20la=20l=C3=B3gica=20de=20generacion?= =?UTF-8?q?=20de=20los=20recibos=20asociados=20a=20las=20facturas.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@367 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/Base/Utiles/uDateUtils.pas | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Source/Base/Utiles/uDateUtils.pas b/Source/Base/Utiles/uDateUtils.pas index 76b2be64..8d124dcc 100644 --- a/Source/Base/Utiles/uDateUtils.pas +++ b/Source/Base/Utiles/uDateUtils.pas @@ -11,11 +11,12 @@ function EsFechaVacia(AFecha : TDateTime): Boolean; function DarInicioAno(AFecha: TDateTime): TDateTime; function DarFinAno(AFecha: TDateTime): TDateTime; -implementation - const FECHA_NULA = -700000; +implementation + + function DarInicioAno(AFecha: TDateTime): TDateTime; var Year, Month, Day: Word;