From fc9e51cab4d44fe6c07f3206ce038b897b6b8202 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Thu, 18 Feb 2016 17:44:43 +0000
Subject: [PATCH] Se arregla para que al duplicar se calcule la vigencia del
 presupuesto en base a la nueva fecha

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@110 93f398dd-4eb6-7a46-baf6-13f46f578da2
---
 .../Controller/uPresupuestosClienteController.pas                | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
index 70cc0bc..e72ec91 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas	
@@ -513,6 +513,7 @@ begin
       ID_TIENDA := AppFactuGES.TiendaActiva.ID;
       USUARIO := AppFactuGES.UsuarioActivo.UserName;
       FECHA_PRESUPUESTO := DateOf(Now);
+      FECHA_VIGENCIA := IncMonth(Date, AppFactuGES.EmpresaActiva.VALIDEZ_PRESUPUESTOS);
       INCIDENCIAS_ACTIVAS := 0;
       INCIDENCIASIsNull := True;
       ID_CONTRATOIsNull := True;