Version 2.7.2

SE incluye gestión de precio punto en presupuestos de cliente, cuando se duplica un presupuesto se establece el precio punto actual de la empresa y se recalculan importes

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@131 93f398dd-4eb6-7a46-baf6-13f46f578da2

Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas

@@ -424,6 +424,7 @@ begin
 //      ID_FACTURAIsNull := True;
       REFERENCIA := '';
       SITUACION := SITUACION_CONTRATO_PENDIENTE;
+//      PRECIO_PUNTO := AppFactuGES.EmpresaActiva.PRECIO_PUNTO;      
     end;
     Result.Post;
   finally

Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas

@@ -256,7 +256,7 @@ begin
   USUARIO := AppFactuGES.UsuarioActivo.UserName;
 //  ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO;   //En abeto la forma de pago por defecto la da la configuración de tipo de documento
   ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
-  PRECIO_PUNTO := AppFactuGES.EmpresaActiva.PRECIO_PUNTO;  
+//  PRECIO_PUNTO := AppFactuGES.EmpresaActiva.PRECIO_PUNTO;  
 
   FECHA_CONTRATO := DateOf(Date);
 

Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas

@@ -496,8 +496,7 @@ begin
   inherited;
 end;
 
-function TPresupuestosClienteController.Duplicar(
-  APresupuesto: IBizPresupuestoCliente): IBizPresupuestoCliente;
+function TPresupuestosClienteController.Duplicar(APresupuesto: IBizPresupuestoCliente): IBizPresupuestoCliente;
 begin
   Result := Self._Vacio;
   ShowHourglassCursor;
@@ -520,8 +519,10 @@ begin
       FECHA_DECISIONIsNull := True;
       REFERENCIA := '';
       SITUACION := SITUACION_PRESUPUESTO_PENDIENTE;
+      PRECIO_PUNTO := AppFactuGES.EmpresaActiva.PRECIO_PUNTO;
     end;
     Result.Post;
+
   finally
     HideHourglassCursor;
   end;

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm

@@ -375,7 +375,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
           Top = 50
           Width = 989
           Height = 236
-          ExplicitTop = 50
           ExplicitWidth = 989
           ExplicitHeight = 236
           inherited cxGridView: TcxGridDBTableView

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas

@@ -141,6 +141,8 @@ end;
 
 procedure TfEditorPresupuestoCliente.actRecalcularPrecioPuntoExecute(Sender: TObject);
 begin
+  ShowHourglassCursor;
+  try
     inherited;
     //Esta lógica se llamará en el editor porque es para facilitar el rellenado de información del documento
     //no puede ir en la clase de negocio porque no es una lógica que tenga sentido fuera del editor.
@@ -152,6 +154,9 @@ begin
         Controller.DetallesController.PrecioPunto := FPresupuesto.PRECIO_PUNTO;
         Controller.DetallesController.RecalcularPrecioPuntoDetalles(FPresupuesto.PRECIO_PUNTO, FPresupuesto.Detalles)
     end;
+  finally
+    HideHourglassCursor;
+  end;
 end;
 
 constructor TfEditorPresupuestoCliente.Create(AOwner: TComponent);
@@ -362,7 +367,6 @@ end;
 
 procedure TfEditorPresupuestoCliente.OnPrecioPuntoPropertiesEditValueChanged(Sender: TObject);
 begin
-
   actRecalcularPrecioPunto.Execute;
 end;
 

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas

@@ -113,7 +113,8 @@ uses
   uEditorBase, uEditorDBBase, uDialogUtils, Dialogs,
   uDBSelectionListUtils, uGridUtils,
   uGenerarContratosCliUtils, uDialogOpcionesImpresionPresupuestosCliente,
-  uGestorInformesController, uEditorFechaDecisionPresupuesto;
+  uGestorInformesController, uEditorFechaDecisionPresupuesto,
+  cxControls;
 
 
 {$R *.dfm}
@@ -396,11 +397,15 @@ procedure TfEditorPresupuestosCliente.DuplicarInterno;
 var
   APresupuesto : IBizPresupuestoCliente;
 begin
+  ShowHourglassCursor;
+  try
     inherited;
     APresupuesto := FController.Duplicar(Presupuestos);
-  try
+    //Recalculamos el presupuesto copiado con el precio punto actual
+    FController.DetallesController.RecalcularPrecioPuntoDetalles(APresupuesto.PRECIO_PUNTO, APresupuesto.Detalles);
     FController.Ver(APresupuesto);
   finally
+    HideHourglassCursor;  
     actRefrescar.Execute;
   end;
 end;

Source/Servidor/FactuGES_Server.dproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
 	<PropertyGroup>
 		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@@ -29,7 +29,6 @@
 		<Borland.ProjectType/>
 		<BorlandProject>
 			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">7</VersionInfo><VersionInfo Name="Release">2</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.7.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.7.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 26 de marzo de 2018 17:23</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
 						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
 					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
 	</ProjectExtensions>