Ventana de seleccion visulaizar precios detalles y totales en contratos cliente

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

Source/Cliente/FactuGES.dproj

@@ -51,7 +51,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">9</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.5.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">0</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.6.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.6.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></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.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

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

@@ -54,8 +54,12 @@ type
     function EsModificable(AContrato : IBizContratoCliente): Boolean;
     function EsEliminable(AContrato : IBizContratoCliente): Boolean;
 
-    procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
+    procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
-    procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
+    const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
+    procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
+    const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
     procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente);
     function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
 
@@ -126,8 +130,12 @@ type
     function EsModificable(AContrato : IBizContratoCliente): Boolean;
     function EsEliminable(AContrato : IBizContratoCliente): Boolean;
 
-    procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
+    procedure Preview(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
-    procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
+    const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
+    procedure Print(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
+    const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
     procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente);
     function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
 
@@ -979,7 +987,9 @@ begin
   Result := AContrato;
 end;
 
-procedure TContratosClienteController.Preview(AContrato: IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
+procedure TContratosClienteController.Preview(AContrato: IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
+const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
 var
   AReportController : IContratosClienteReportController;
   ID_Contratos: TIntegerList;
@@ -1005,14 +1015,16 @@ begin
    else
      ID_Contratos.Add(AContrato.ID);
 
-    AReportController.Preview(ID_Contratos, VerLogotipo);
+    AReportController.Preview(ID_Contratos, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
   finally
     AReportController := NIL;
     FreeAndNil(ID_Contratos);
   end;
 end;
 
-procedure TContratosClienteController.Print(AContrato: IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true);
+procedure TContratosClienteController.Print(AContrato: IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true;
+const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
 var
   AReportController : IContratosClienteReportController;
   ID_Contratos: TIntegerList;
@@ -1037,7 +1049,7 @@ begin
    else
      ID_Contratos.Add(AContrato.ID);
 
-   AReportController.Print(ID_Contratos, VerLogotipo);
+   AReportController.Print(ID_Contratos, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
 
   finally
     AReportController := NIL;

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

@@ -10,8 +10,12 @@ uses
 type
   IContratosClienteReportController = interface(IControllerBase)
   ['{FEF47B69-26A3-462A-AF6D-4B2073D4F9DC}']
-    procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
+    procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
-    procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
+    const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
+    procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
+    const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
     function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
   end;
 
@@ -23,8 +27,12 @@ type
     constructor Create; override;
     destructor Destroy; override;
 
-    procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
+    procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
-    procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
+    const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
+    procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
+    const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
     function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
   end;
 
@@ -83,7 +91,9 @@ begin
 }  
 end;
 
-procedure TContratosClienteReportController.Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean);
+procedure TContratosClienteReportController.Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean;
+    const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
 var
   AStream: Binary;
   AEditor : IEditorContratosClientePreview;
@@ -92,7 +102,7 @@ begin
 
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetRptContratos(AListaID, VerLogotipo);
+    AStream := FDataModule.GetRptContratos(AListaID, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
     try
       CreateEditor('EditorContratosClientePreview', IEditorContratosClientePreview, AEditor);
       if Assigned(AEditor) then
@@ -116,7 +126,9 @@ begin
   end;
 end;
 
-procedure TContratosClienteReportController.Print(const AListaID : TIntegerList; const VerLogotipo: Boolean);
+procedure TContratosClienteReportController.Print(const AListaID : TIntegerList; const VerLogotipo: Boolean;
+    const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
 var
   AStream: Binary;
   AEditor : IEditorContratosClientePreview;
@@ -125,7 +137,7 @@ begin
 
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetRptContratos(AListaID, VerLogotipo);
+    AStream := FDataModule.GetRptContratos(AListaID, VerLogotipo, VerImprimirPrecios, VerImprimirTotales);
     try
       CreateEditor('EditorContratosClientePreview', IEditorContratosClientePreview, AEditor);
       if Assigned(AEditor) then

Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas

@@ -45,8 +45,12 @@ type
     function NewItem : IBizContratoCliente;
 
     // Report
-    function GetRptContratos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
+    function GetRptContratos(const AListaID: TIntegerList; const VerLogotipo: Boolean;
-    function GetRptPDFContrato(const AID: Integer; const VerLogotipo: Boolean): Binary;
+    const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
+    function GetRptPDFContrato(const AID: Integer; const VerLogotipo: Boolean;
+    const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
 
     function GetAnosItems : TStringList;
     function GetContratosClienteBeneficios : IBizContratosClienteBeneficios;
@@ -73,26 +77,30 @@ begin
   RORemoteService.Message := dmConexion.Message;
 end;
 
-function TDataModuleContratosCliente.GetRptPDFContrato(const AID: Integer; const VerLogotipo: Boolean): Binary;
+function TDataModuleContratosCliente.GetRptPDFContrato(const AID: Integer; const VerLogotipo: Boolean;
+const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
 var
   AParam : TIntegerArray;
 begin
   AParam := TIntegerArray.Create;
   try
     AParam.Add(AID);
-    Result := (RORemoteService as IsrvContratosCliente).GenerarInformeEnPDF(AParam, AppFactuGES.EmpresaActiva.RAZON_SOCIAL, VerLogotipo)
+    Result := (RORemoteService as IsrvContratosCliente).GenerarInformeEnPDF(AParam, AppFactuGES.EmpresaActiva.RAZON_SOCIAL, VerLogotipo, VerImprimirPrecios, VerImprimirTotales)
   finally
     FreeANDNIL(AParam)
   end;
 end;
 
-function TDataModuleContratosCliente.GetRptContratos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
+function TDataModuleContratosCliente.GetRptContratos(const AListaID: TIntegerList; const VerLogotipo: Boolean;
+const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
 var
   AParam : TIntegerArray;
 begin
   AParam := AListaID.ToIntegerArray;
   try
-    Result := (RORemoteService as IsrvContratosCliente).GenerarInforme(AParam, AppFactuGES.EmpresaActiva.RAZON_SOCIAL, VerLogotipo)
+    Result := (RORemoteService as IsrvContratosCliente).GenerarInforme(AParam, AppFactuGES.EmpresaActiva.RAZON_SOCIAL, VerLogotipo, VerImprimirPrecios, VerImprimirTotales)
   finally
     FreeANDNIL(AParam)
   end;

Source/Modulos/Contratos de cliente/Model/Data/uIDataModuleContratosClienteReport.pas

@@ -8,8 +8,12 @@ uses
 type
   IDataModuleContratosClienteReport = interface
   ['{6AB7469B-842A-413E-AF33-9506477A9666}']
-    function GetRptContratos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary;
+    function GetRptContratos(const AListaID: TIntegerList; const VerLogotipo: Boolean;
-    function GetRptPDFContrato(const AID: Integer; const VerLogotipo: Boolean): Binary;
+    const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
+    function GetRptPDFContrato(const AID: Integer; const VerLogotipo: Boolean;
+    const VerImprimirPrecios: Boolean = False; const VerImprimirTotales: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
+    const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False): Binary;
   end;
 
 implementation

Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas

@@ -84,6 +84,8 @@ type
     FDesglosado : Boolean;
     FVerLogotipo : Boolean;
     FNombreEmpresa: String;
+    FVerPrecios: Boolean;
+    FVerTotales: Boolean;
 
     procedure _GenerarContrato(const AID : Integer);
 
@@ -94,8 +96,10 @@ type
     procedure IniciarParametrosInforme;
     procedure RecuperarNombresClientes;
   public
-    function GenerarContrato(const ListaID : TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean = True): Binary;
+    function GenerarContrato(const ListaID : TIntegerArray; const NombreEmpresa: AnsiString;
-    function GenerarContratoEnPDF(const ListaID : TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean = True): Binary;
+             const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary;
+    function GenerarContratoEnPDF(const ListaID : TIntegerArray; const NombreEmpresa: AnsiString;
+             const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary;
     function GenerarInformeListadoContratos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
   end;
 
@@ -143,7 +147,8 @@ begin
   end;
 end;
 
-function TRptContratosCliente.GenerarContratoEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean = True): Binary;
+function TRptContratosCliente.GenerarContratoEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString;
+         const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary;
 var
   i: Integer;
 begin
@@ -152,6 +157,8 @@ begin
     //Inicializamos parametros
     FVerLogotipo := VerLogotipo;
     FNombreEmpresa := NombreEmpresa;
+    FVerPrecios := VerPrecios;
+    FVerTotales := VerTotales;
 
     //Vamos generando todos y cada uno de los Contratos recibidos
     for i := 0 to ListaID.Count - 1 do
@@ -484,7 +491,8 @@ begin
   end;
 end;
 
-function TRptContratosCliente.GenerarContrato(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean = True): Binary;
+function TRptContratosCliente.GenerarContrato(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString;
+         const VerLogotipo: Boolean = True; const VerPrecios: Boolean = True; const VerTotales: Boolean = True): Binary;
 var
   i: Integer;
 begin
@@ -493,6 +501,8 @@ begin
     //Inicializamos parametros
     FVerLogotipo := VerLogotipo;
     FNombreEmpresa := NombreEmpresa;
+    FVerPrecios := VerPrecios;
+    FVerTotales := VerTotales;
 
     //Vamos generando todos y cada uno de los Contratos recibidos
     for i := 0 to ListaID.Count - 1 do
@@ -549,7 +559,9 @@ begin
 
     frxReport.LoadFromFile(AInforme, True);
     frxReport.Variables.Variables['VerLogotipo'] := FVerLogotipo;
-    frxReport.Variables.Variables['NombreEmpresa'] := ''''+FNombreEmpresa+'''';    
+    frxReport.Variables.Variables['NombreEmpresa'] := ''''+FNombreEmpresa+'''';
+    frxReport.Variables.Variables['VerPrecios'] := FVerPrecios;
+    frxReport.Variables.Variables['VerTotales'] := FVerTotales;            
     frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function','');
     frxReport.ReportOptions.Name := 'Contrato ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString;
     frxReport.PrepareReport(False);

Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.pas

@@ -33,8 +33,8 @@ type
     procedure DARemoteServiceCreate(Sender: TObject);
   protected
     { IsrvContratosCliente methods }
-    function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
-    function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
 
   end;
 
@@ -78,25 +78,27 @@ begin
   ConnectionName := dmServer.ConnectionName;
 end;
 
-function TsrvContratosCliente.GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
+function TsrvContratosCliente.GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString;
+         const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
 var
   AReportGenerator : TRptContratosCliente;
 begin
   AReportGenerator := TRptContratosCliente.Create(nil);
   try
-    Result := AReportGenerator.GenerarContrato(ListaID, NombreEmpresa, VerLogotipo);
+    Result := AReportGenerator.GenerarContrato(ListaID, NombreEmpresa, VerLogotipo, VerPrecios, VerTotales);
   finally
     FreeAndNIL(AReportGenerator);
   end;
 end;
 
-function TsrvContratosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
+function TsrvContratosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString;
+         const VerLogotipo: Boolean; const VerPrecios: Boolean; const VerTotales: Boolean): Binary;
 var
   AReportGenerator : TRptContratosCliente;
 begin
   AReportGenerator := TRptContratosCliente.Create(nil);
   try
-    Result := AReportGenerator.GenerarContratoEnPDF(ListaID, NombreEmpresa, VerLogotipo);
+    Result := AReportGenerator.GenerarContratoEnPDF(ListaID, NombreEmpresa, VerLogotipo, VerPrecios, VerTotales);
   finally
     FreeAndNIL(AReportGenerator);
   end;

Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dpk

@@ -92,6 +92,7 @@ contains
   uViewDocumentosContratoCliente in 'uViewDocumentosContratoCliente.pas' {frViewDocumentosContratoCliente: TFrame},
   uViewDatosYSeleccionClienteContrato in 'uViewDatosYSeleccionClienteContrato.pas' {frViewDatosYSeleccionClienteContrato: TFrame},
   uViewContratosClienteBeneficios in 'uViewContratosClienteBeneficios.pas' {frViewContratosClienteBeneficios: TFrame},
-  uEditorContratosClienteBeneficios in 'uEditorContratosClienteBeneficios.pas' {fEditorContratosClienteBeneficios: TFrame};
+  uEditorContratosClienteBeneficios in 'uEditorContratosClienteBeneficios.pas' {fEditorContratosClienteBeneficios: TFrame},
+  uDialogOpcionesImpresionContratosCliente in 'uDialogOpcionesImpresionContratosCliente.pas' {fDialogOpcionesImpresionContratosCliente: Tform};
 
 end.

Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj

@@ -49,58 +49,55 @@
     <DelphiCompile Include="ContratosCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Lib\adortl.dcp" />
+    <DCCReference Include="adortl.dcp" />
-    <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
+    <DCCReference Include="Articulos_view.dcp" />
-    <DCCReference Include="..\..\Lib\Base.dcp" />
+    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="..\..\Lib\ConCli_AlbCli_relation.dcp" />
+    <DCCReference Include="ConCli_AlbCli_relation.dcp" />
-    <DCCReference Include="..\..\Lib\ConCli_FacCli_relation.dcp" />
+    <DCCReference Include="ConCli_FacCli_relation.dcp" />
-    <DCCReference Include="..\..\Lib\ContratosCliente_controller.dcp" />
+    <DCCReference Include="ContratosCliente_controller.dcp" />
-    <DCCReference Include="..\..\Lib\ContratosCliente_model.dcp" />
+    <DCCReference Include="ContratosCliente_model.dcp" />
-    <DCCReference Include="..\..\Lib\cxDataD11.dcp" />
+    <DCCReference Include="cxDataD11.dcp" />
-    <DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
+    <DCCReference Include="cxEditorsD11.dcp" />
-    <DCCReference Include="..\..\Lib\cxExportD11.dcp" />
+    <DCCReference Include="cxExportD11.dcp" />
-    <DCCReference Include="..\..\Lib\cxExtEditorsD11.dcp" />
+    <DCCReference Include="cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\..\Lib\cxGridD11.dcp" />
+    <DCCReference Include="cxGridD11.dcp" />
-    <DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
+    <DCCReference Include="cxLibraryD11.dcp" />
-    <DCCReference Include="..\..\Lib\cxPageControlD11.dcp" />
+    <DCCReference Include="cxPageControlD11.dcp" />
-    <DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\..\Lib\dbrtl.dcp" />
+    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="..\..\Lib\dclcxLibraryD11.dcp" />
+    <DCCReference Include="dclcxLibraryD11.dcp" />
-    <DCCReference Include="..\..\Lib\dcldxCoreD11.dcp" />
+    <DCCReference Include="dcldxCoreD11.dcp" />
-    <DCCReference Include="..\..\Lib\designide.dcp" />
+    <DCCReference Include="designide.dcp" />
-    <DCCReference Include="..\..\Lib\dsnap.dcp" />
+    <DCCReference Include="dsnap.dcp" />
-    <DCCReference Include="..\..\Lib\dxComnD11.dcp" />
+    <DCCReference Include="dxComnD11.dcp" />
-    <DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
+    <DCCReference Include="dxCoreD11.dcp" />
-    <DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
+    <DCCReference Include="dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
+    <DCCReference Include="dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\..\Lib\dxPSCoreD11.dcp" />
+    <DCCReference Include="dxPSCoreD11.dcp" />
-    <DCCReference Include="..\..\Lib\dxPScxCommonD11.dcp" />
+    <DCCReference Include="dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\..\Lib\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\..\Lib\dxPSLnksD11.dcp" />
+    <DCCReference Include="dxPSLnksD11.dcp" />
-    <DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
+    <DCCReference Include="dxThemeD11.dcp" />
-    <DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
+    <DCCReference Include="GestorInformes_controller.dcp" />
-    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="..\..\Lib\GUISDK_D11R.dcp" />
+    <DCCReference Include="GUISDK_D11R.dcp" />
-    <DCCReference Include="..\..\Lib\Jcl.dcp" />
+    <DCCReference Include="Jcl.dcp" />
-    <DCCReference Include="..\..\Lib\JclVcl.dcp" />
+    <DCCReference Include="JclVcl.dcp" />
-    <DCCReference Include="..\..\Lib\JvCoreD11R.dcp" />
+    <DCCReference Include="JvCoreD11R.dcp" />
-    <DCCReference Include="..\..\Lib\JvPageCompsD11R.dcp" />
+    <DCCReference Include="JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\..\Lib\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\..\Lib\JvSystemD11R.dcp" />
+    <DCCReference Include="JvSystemD11R.dcp" />
-    <DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
+    <DCCReference Include="PngComponentsD10.dcp" />
-    <DCCReference Include="..\..\Lib\PNG_D10.dcp" />
+    <DCCReference Include="PNG_D10.dcp" />
-    <DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\..\Lib\rtl.dcp" />
+    <DCCReference Include="rtl.dcp" />
-    <DCCReference Include="..\..\Lib\tb2k_d10.dcp" />
+    <DCCReference Include="tb2k_d10.dcp" />
-    <DCCReference Include="..\..\Lib\tbx_d10.dcp" />
+    <DCCReference Include="tbx_d10.dcp" />
-    <DCCReference Include="..\..\Lib\vcl.dcp" />
-    <DCCReference Include="..\..\Lib\vclactnband.dcp" />
-    <DCCReference Include="..\..\Lib\vcldb.dcp" />
-    <DCCReference Include="..\..\Lib\vcljpg.dcp" />
-    <DCCReference Include="..\..\Lib\vclshlctrls.dcp" />
-    <DCCReference Include="..\..\Lib\vclx.dcp" />
-    <DCCReference Include="..\..\Lib\xmlrtl.dcp" />
     <DCCReference Include="uContratosClienteViewRegister.pas" />
+    <DCCReference Include="uDialogOpcionesImpresionContratosCliente.pas">
+      <Form>fDialogOpcionesImpresionContratosCliente</Form>
+      <DesignClass>T</DesignClass>
+    </DCCReference>
     <DCCReference Include="uEditorContratoCliente.pas">
       <Form>fEditorPresupuestoCliente</Form>
       <DesignClass>TfEditorPedidoCliente</DesignClass>
@@ -157,6 +154,13 @@
       <Form>frViewElegirArticulosContratosCliente</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vclactnband.dcp" />
+    <DCCReference Include="vcldb.dcp" />
+    <DCCReference Include="vcljpg.dcp" />
+    <DCCReference Include="vclshlctrls.dcp" />
+    <DCCReference Include="vclx.dcp" />
+    <DCCReference Include="xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Modulos/Contratos de cliente/Views/uDialogOpcionesImpresionContratosCliente.dfm

@@ -0,0 +1,130 @@
+inherited fDialogOpcionesImpresionContratosCliente: TfDialogOpcionesImpresionContratosCliente
+  Caption = 'Opciones para el contrato de cliente'
+  ClientHeight = 262
+  ClientWidth = 393
+  ExplicitWidth = 399
+  ExplicitHeight = 298
+  PixelsPerInch = 96
+  TextHeight = 13
+  inherited Bevel2: TBevel
+    Width = 393
+    ExplicitWidth = 393
+  end
+  inherited Bevel3: TBevel
+    Top = 218
+    Width = 393
+    ExplicitTop = 195
+    ExplicitWidth = 393
+  end
+  inherited pnlBotones: TPanel
+    Top = 220
+    Width = 393
+    ExplicitTop = 220
+    ExplicitWidth = 393
+    inherited btnAceptar: TButton
+      Left = 229
+      ExplicitLeft = 229
+    end
+    inherited btnCancelar: TButton
+      Left = 308
+      ExplicitLeft = 308
+    end
+  end
+  inherited pnlHeader: TPanel
+    Width = 393
+    ExplicitWidth = 393
+    inherited lblTitle: TLabel
+      Width = 343
+      Caption = 'Indique las siguiente opciones para el contrato de cliente:'
+      ExplicitWidth = 325
+    end
+    inherited lblComments: TLabel
+      Width = 318
+      Height = 27
+      Visible = False
+    end
+  end
+  inherited pnlCuerpo: TPanel
+    Width = 393
+    Height = 152
+    ExplicitWidth = 393
+    ExplicitHeight = 152
+    object cbVerPrecios: TCheckBox
+      AlignWithMargins = True
+      Left = 50
+      Top = 29
+      Width = 415
+      Height = 17
+      Caption = 'Mostrar los precios en los conceptos'
+      Checked = True
+      State = cbChecked
+      TabOrder = 0
+    end
+    object cbVerRefProveedor: TCheckBox
+      AlignWithMargins = True
+      Left = 50
+      Top = 121
+      Width = 441
+      Height = 17
+      Caption = 'Mostrar las referencias de proveedor de los conceptos'
+      Checked = True
+      State = cbChecked
+      TabOrder = 1
+      Visible = False
+    end
+    object cbVerIncidencias: TCheckBox
+      AlignWithMargins = True
+      Left = 50
+      Top = 75
+      Width = 441
+      Height = 17
+      Caption = 'Mostrar las incidencias del albar'#225'n'
+      Checked = True
+      State = cbChecked
+      TabOrder = 2
+      Visible = False
+    end
+    object cbVerObservaciones: TCheckBox
+      AlignWithMargins = True
+      Left = 50
+      Top = 98
+      Width = 441
+      Height = 17
+      Caption = 'Mostrar las observaciones del albar'#225'n'
+      Checked = True
+      State = cbChecked
+      TabOrder = 3
+      Visible = False
+    end
+    object cbVerLogotipo: TCheckBox
+      AlignWithMargins = True
+      Left = 50
+      Top = 6
+      Width = 415
+      Height = 17
+      Caption = 'Mostrar logotipo'
+      Checked = True
+      State = cbChecked
+      TabOrder = 4
+    end
+    object cbVerTotales: TCheckBox
+      AlignWithMargins = True
+      Left = 50
+      Top = 52
+      Width = 415
+      Height = 17
+      Caption = 'Mostrar importes totales'
+      Checked = True
+      State = cbChecked
+      TabOrder = 5
+    end
+  end
+  inherited ActionListDialog: TActionList
+    inherited actAceptar: TAction
+      OnExecute = actAceptarExecute
+    end
+    inherited actCancelar: TAction
+      OnExecute = actCancelarExecute
+    end
+  end
+end

Source/Modulos/Contratos de cliente/Views/uDialogOpcionesImpresionContratosCliente.pas

@@ -0,0 +1,68 @@
+unit uDialogOpcionesImpresionContratosCliente;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls;
+
+type
+  TfDialogOpcionesImpresionContratosCliente = class(TfDialogBase)
+    cbVerPrecios: TCheckBox;
+    cbVerRefProveedor: TCheckBox;
+    cbVerIncidencias: TCheckBox;
+    cbVerObservaciones: TCheckBox;
+    cbVerLogotipo: TCheckBox;
+    cbVerTotales: TCheckBox;
+    procedure actAceptarExecute(Sender: TObject);
+    procedure actCancelarExecute(Sender: TObject);
+  end;
+
+  function ElegirOpcionesImpresionContratoCliente(var AVerLogotipo: Boolean; var AVerPrecios : Boolean; var AVerTotales : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
+
+implementation
+
+{$R *.dfm}
+
+function ElegirOpcionesImpresionContratoCliente(var AVerLogotipo: Boolean; var AVerPrecios : Boolean; var AVerTotales : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
+var
+  AEditor : TfDialogOpcionesImpresionContratosCliente;
+begin
+  AEditor := TfDialogOpcionesImpresionContratosCliente.Create(NIL);
+  try
+    AEditor.cbVerLogotipo.Checked := AVerLogotipo;
+    AEditor.cbVerPrecios.Checked := AVerPrecios;
+    AEditor.cbVerTotales.Checked := AVerTotales;
+    AEditor.cbVerRefProveedor.Checked := AVerRefProveedor;
+    AEditor.cbVerObservaciones.Checked := AVerObservaciones;
+    AEditor.cbVerIncidencias.Checked := AVerIncidencias;
+
+
+    Result := (AEditor.ShowModal = mrOk);
+    if Result then
+    begin
+      AVerLogotipo := AEditor.cbVerLogotipo.Checked;    
+      AVerPrecios := AEditor.cbVerPrecios.Checked;
+      AVerTotales := AEditor.cbVerTotales.Checked;      
+      AVerRefProveedor := AEditor.cbVerRefProveedor.Checked;
+      AVerObservaciones := AEditor.cbVerObservaciones.Checked;
+      AVerIncidencias := AEditor.cbVerIncidencias.Checked;
+    end;
+  finally
+    AEditor.Release;
+  end;
+end;
+
+procedure TfDialogOpcionesImpresionContratosCliente.actAceptarExecute(Sender: TObject);
+begin
+  inherited;
+  ModalResult := mrOk
+end;
+
+procedure TfDialogOpcionesImpresionContratosCliente.actCancelarExecute(Sender: TObject);
+begin
+  inherited;
+  ModalResult := mrCancel;
+end;
+
+end.

Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm

@@ -6,7 +6,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
   ClientWidth = 845
   OnClose = CustomEditorClose
   ExplicitWidth = 853
-  ExplicitHeight = 629
+  ExplicitHeight = 633
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -129,7 +129,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
     Width = 845
     ExplicitWidth = 845
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 488
+      ExplicitWidth = 551
       inherited TBXItem2: TTBXItem
         Visible = False
       end
@@ -173,12 +173,12 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
   end
   inherited pgPaginas: TPageControl
     Width = 839
-    Height = 270
+    Height = 267
     ActivePage = pagContenido
     TabOrder = 1
     OnChanging = pgPaginasChanging
     ExplicitWidth = 839
-    ExplicitHeight = 270
+    ExplicitHeight = 267
     inherited pagGeneral: TTabSheet
       ExplicitLeft = 4
       ExplicitTop = 24
@@ -192,7 +192,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
         Left = 0
         Top = 0
         Width = 831
-        Height = 242
+        Height = 239
         Align = alClient
         BiDiMode = bdLeftToRight
         Font.Charset = DEFAULT_CHARSET
@@ -205,91 +205,62 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 831
-        ExplicitHeight = 242
+        ExplicitHeight = 239
         inherited ToolBar1: TToolBar
           Width = 831
-          Height = 24
           ExplicitWidth = 831
-          ExplicitHeight = 24
+          inherited FontSize: TEdit [5]
-          inherited ToolButton14: TToolButton
+            Left = 0
-            Wrap = False
-          end
-          inherited FontName: TJvFontComboBox
-            Left = 368
-            Top = 0
-            ExplicitLeft = 368
-            ExplicitTop = 0
-          end
-          inherited ToolButton13: TToolButton [6]
-            Left = 513
-            Top = 0
-            ExplicitLeft = 513
-            ExplicitTop = 0
-          end
-          inherited ToolButton6: TToolButton [7]
-            Left = 521
-            Top = 0
-            ExplicitLeft = 521
-            ExplicitTop = 0
-          end
-          inherited ToolButton7: TToolButton [8]
-            Left = 555
-            Top = 0
-            ExplicitLeft = 555
-            ExplicitTop = 0
-          end
-          inherited ToolButton8: TToolButton [9]
-            Left = 589
-            Top = 0
-            ExplicitLeft = 589
-            ExplicitTop = 0
-          end
-          inherited ToolButton12: TToolButton [10]
-            Left = 623
-            Top = 0
-            ExplicitLeft = 623
-            ExplicitTop = 0
-          end
-          inherited ToolButton9: TToolButton [11]
-            Left = 631
-            Top = 0
-            ExplicitLeft = 631
-            ExplicitTop = 0
-          end
-          inherited ToolButton10: TToolButton [12]
-            Left = 665
-            Top = 0
-            ExplicitLeft = 665
-            ExplicitTop = 0
-          end
-          inherited ToolButton11: TToolButton [13]
-            Left = 699
-            Top = 0
-            ExplicitLeft = 699
-            ExplicitTop = 0
-          end
-          inherited FontSize: TEdit [14]
-            Left = 733
-            Top = 0
             Width = 90
-            ExplicitLeft = 733
+            ExplicitLeft = 0
-            ExplicitTop = 0
             ExplicitWidth = 90
           end
-          inherited UpDown1: TUpDown [15]
+          inherited UpDown1: TUpDown [6]
-            Left = 823
+            Left = 90
-            Top = 0
+            ExplicitLeft = 90
-            ExplicitLeft = 823
+          end
-            ExplicitTop = 0
+          inherited FontName: TJvFontComboBox [7]
+            Left = 107
+            ExplicitLeft = 107
+          end
+          inherited ToolButton13: TToolButton
+            Left = 252
+            ExplicitLeft = 252
+          end
+          inherited ToolButton6: TToolButton
+            Left = 260
+            ExplicitLeft = 260
+          end
+          inherited ToolButton7: TToolButton
+            Left = 294
+            ExplicitLeft = 294
+          end
+          inherited ToolButton8: TToolButton
+            Left = 328
+            ExplicitLeft = 328
+          end
+          inherited ToolButton12: TToolButton
+            Left = 362
+            ExplicitLeft = 362
+          end
+          inherited ToolButton9: TToolButton
+            Left = 370
+            ExplicitLeft = 370
+          end
+          inherited ToolButton10: TToolButton
+            Left = 404
+            ExplicitLeft = 404
+          end
+          inherited ToolButton11: TToolButton
+            Left = 438
+            ExplicitLeft = 438
           end
         end
         inherited cxGrid: TcxGrid
-          Top = 50
           Width = 831
-          Height = 192
+          Height = 167
-          ExplicitTop = 50
           ExplicitWidth = 831
-          ExplicitHeight = 192
+          ExplicitHeight = 167
           inherited cxGridView: TcxGridDBTableView
             inherited cxGridViewPROPIEDAD: TcxGridDBColumn
               IsCaptionAssigned = True
@@ -297,12 +268,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
           end
         end
         inherited TBXDock1: TTBXDock
-          Top = 24
           Width = 831
-          ExplicitTop = 24
           ExplicitWidth = 831
           inherited TBXToolbar1: TTBXToolbar
-            ExplicitWidth = 665
+            ExplicitWidth = 753
           end
         end
         inherited cxLookupComboBox1: TcxLookupComboBox
@@ -323,7 +292,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
         Left = 0
         Top = 0
         Width = 831
-        Height = 242
+        Height = 239
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -334,7 +303,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 831
-        ExplicitHeight = 242
+        ExplicitHeight = 239
         inherited pnlSup: TPanel
           Width = 831
           ExplicitWidth = 831
@@ -344,13 +313,13 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
         end
         inherited GroupBox1: TGroupBox
           Width = 831
-          Height = 214
+          Height = 211
           ExplicitWidth = 831
           ExplicitHeight = 214
           inherited eIncidencias: TcxDBMemo
             ExplicitWidth = 827
-            ExplicitHeight = 197
+            ExplicitHeight = 194
-            Height = 197
+            Height = 194
             Width = 827
           end
         end
@@ -363,7 +332,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
         Left = 0
         Top = 0
         Width = 831
-        Height = 242
+        Height = 239
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -374,14 +343,14 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 831
-        ExplicitHeight = 242
+        ExplicitHeight = 239
         inherited TBXDock: TTBXDock
           Width = 831
           ExplicitWidth = 834
         end
         inherited ListView1: TListView
           Width = 831
-          Height = 219
+          Height = 213
           ExplicitWidth = 834
           ExplicitHeight = 300
         end

Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas

@@ -103,6 +103,7 @@ implementation
 
 uses
   uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
+  uDialogOpcionesImpresionContratosCliente,
   uBizDireccionesContacto, uDialogUtils, uFactuGES_App, uDataTableUtils;
 
 {$R *.dfm}
@@ -285,15 +286,25 @@ end;
 
 procedure TfEditorContratoCliente.ImprimirInterno;
 var
-  AVerLogotipo: Boolean;
+  FVerLogotipo: Boolean;
+  FImprimirPrecios : Boolean;
+  FImprimirTotales : Boolean;
+  FImprimirRefProveedor : Boolean;
+  FImprimirObservaciones: Boolean;
+  FImprimirIncidencias: Boolean;
+
 begin
   inherited;
-  AVerLogotipo := True;
+  FVerLogotipo := True;
+  FImprimirPrecios := False;
+  FImprimirTotales := True;
+  FImprimirRefProveedor := False;
+  FImprimirObservaciones := False;
+  FImprimirIncidencias := False;
+
   if not Modified then
-  begin
+     if ElegirOpcionesImpresionContratoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
-    AVerLogotipo := (Application.MessageBox('¿Desea imprimir el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
+        FController.Print(FContrato, False, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
-    FController.Print(FContrato, False, AVerLogotipo);
-  end;
 end;
 
 procedure TfEditorContratoCliente.OnClienteChanged(Sender: TObject);
@@ -351,16 +362,26 @@ end;
 
 procedure TfEditorContratoCliente.PrevisualizarInterno;
 var
-  AVerLogotipo: Boolean;
+  FVerLogotipo: Boolean;
+  FImprimirPrecios : Boolean;
+  FImprimirTotales : Boolean;
+  FImprimirRefProveedor : Boolean;
+  FImprimirObservaciones: Boolean;
+  FImprimirIncidencias: Boolean;
+
   
 begin
   inherited;
-  AVerLogotipo := True;
+  FVerLogotipo := True;
+  FImprimirPrecios := False;
+  FImprimirTotales := True;
+  FImprimirRefProveedor := False;
+  FImprimirObservaciones := False;
+  FImprimirIncidencias := False;
+
   if not Modified then
-  begin
+     if ElegirOpcionesImpresionContratoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
-    AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el documento con logotipo?', 'Atención', MB_YESNO) = IDYES);
+        FController.Preview(FContrato, False, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
-    FController.Preview(FContrato, False, AVerLogotipo);
-  end;
 end;
 
 {procedure TfEditorContratoCliente.RecalcularPortePorUnidad;

Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm

@@ -2,6 +2,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
   Caption = 'Lista de contratos de cliente'
   ClientWidth = 805
   ExplicitWidth = 813
+  ExplicitHeight = 482
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -124,7 +125,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
     Width = 805
     ExplicitWidth = 805
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 632
+      ExplicitWidth = 711
       object TBXSubmenuItem3: TTBXSubmenuItem [0]
         Caption = 'Nuevo'
         DisplayMode = nbdmImageAndText
@@ -159,7 +160,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
       end
     end
     inherited tbxFiltro: TTBXToolbar
-      ExplicitWidth = 431
+      ExplicitWidth = 454
       inherited lblAno: TTBXLabelItem
         Visible = True
       end
@@ -192,11 +193,11 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
       end
     end
     inherited TBXTMain2: TTBXToolbar
-      Left = 431
+      Left = 454
       DockPos = 343
       Visible = True
-      ExplicitLeft = 431
+      ExplicitLeft = 454
-      ExplicitWidth = 374
+      ExplicitWidth = 351
       object TBXSeparatorItem18: TTBXSeparatorItem
       end
       object TBXItem40: TTBXItem

Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas

@@ -102,7 +102,7 @@ uses
   uDataModuleContratosCliente, uDataModuleUsuarios, uFactuGES_App,
   uEditorBase, uEditorDBBase, uDialogUtils, Dialogs,
   uDBSelectionListUtils, uGridUtils, uGenerarFacturasCliUtils,
-  uGenerarAlbaranesCliUtils,
+  uGenerarAlbaranesCliUtils,  uDialogOpcionesImpresionContratosCliente,
 
 
 
@@ -476,12 +476,24 @@ var
   Respuesta : Integer;
   AContratos: IBizContratoCliente;
   AllItems: Boolean;
-  AVerLogotipo: Boolean;
+  FVerLogotipo: Boolean;
+  FImprimirPrecios : Boolean;
+  FImprimirTotales : Boolean;
+  FImprimirRefProveedor : Boolean;
+  FImprimirObservaciones: Boolean;
+  FImprimirIncidencias: Boolean;
+
 
 begin
   AContratos := Nil;
   AllItems := False;
-  AVerLogotipo := True;
+  FVerLogotipo := True;
+  FImprimirPrecios := False;
+  FImprimirTotales := True;
+  FImprimirRefProveedor := False;
+  FImprimirObservaciones := False;
+  FImprimirIncidencias := False;
+
 
   if MultiSelect and Assigned(ViewGrid) then
      AllItems :=  (ViewGrid.NumSeleccionados > 1);
@@ -509,8 +521,8 @@ begin
 
                   if Assigned(AContratos) then
                   begin
-                    AVerLogotipo := (Application.MessageBox('¿Desea imprimir el/los documento/s con logotipo?', 'Atención', MB_YESNO) = IDYES);
+                    if ElegirOpcionesImpresionContratoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
-                    FController.Print(AContratos, AllItems, AVerLogotipo);
+                       FController.Print(AContratos, AllItems, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
                   end;
                 end;
       end;
@@ -555,12 +567,24 @@ var
   Respuesta : Integer;
   AContratos: IBizContratoCliente;
   AllItems: Boolean;
-  AVerLogotipo: Boolean;
+  FVerLogotipo: Boolean;
+  FImprimirPrecios : Boolean;
+  FImprimirTotales : Boolean;
+  FImprimirRefProveedor : Boolean;
+  FImprimirObservaciones: Boolean;
+  FImprimirIncidencias: Boolean;
+
     
 begin
   AContratos := Nil;
   AllItems := False;
-  AVerLogotipo := True;
+  FVerLogotipo := True;
+  FImprimirPrecios := False;
+  FImprimirTotales := True;  
+  FImprimirRefProveedor := False;
+  FImprimirObservaciones := False;
+  FImprimirIncidencias := False;
+
 
   if MultiSelect and Assigned(ViewGrid) then
      AllItems :=  (ViewGrid.NumSeleccionados > 1);
@@ -588,8 +612,8 @@ begin
 
                   if Assigned(AContratos) then
                   begin
-                    AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el/los documento/s con logotipo?', 'Atención', MB_YESNO) = IDYES);
+                    if ElegirOpcionesImpresionContratoCliente(FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
-                    FController.Preview(AContratos, AllItems, AVerLogotipo);
+                       FController.Preview(AContratos, AllItems, FVerLogotipo, FImprimirPrecios, FImprimirTotales, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
                   end;
                 end;
       end;

Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm

@@ -395,17 +395,17 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
         Size = 255
         DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA'
       end
-      item
-        Name = 'REFERENCIA_PROVEEDOR'
-        DataType = datString
-        Size = 255
-        DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA_PROVEEDOR'
-      end
       item
         Name = 'VALORADO'
         DataType = datSmallInt
         DisplayLabel = #191'Valorado?'
         DictionaryEntry = 'FacturasProveedor_Detalles_VALORADO'
+      end
+      item
+        Name = 'REFERENCIA_PROVEEDOR'
+        DataType = datString
+        Size = 255
+        DictionaryEntry = 'FacturasProveedor_Detalles_REFERENCIA_PROVEEDOR'
       end>
     Params = <>
     MasterMappingMode = mmWhere

Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj

@@ -131,15 +131,6 @@
   <Target Name="FacturasProveedor_data:Make">
     <MSBuild Projects="Data\FacturasProveedor_data.dproj" Targets="Make" />
   </Target>
-  <Target Name="FacturasProveedor_controller">
-    <MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="" />
-  </Target>
-  <Target Name="FacturasProveedor_controller:Clean">
-    <MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="FacturasProveedor_controller:Make">
-    <MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="Make" />
-  </Target>
   <Target Name="FacturasProveedor_view">
     <MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="" />
   </Target>
@@ -149,6 +140,15 @@
   <Target Name="FacturasProveedor_view:Make">
     <MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="Make" />
   </Target>
+  <Target Name="FacturasProveedor_controller">
+    <MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="" />
+  </Target>
+  <Target Name="FacturasProveedor_controller:Clean">
+    <MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FacturasProveedor_controller:Make">
+    <MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="Make" />
+  </Target>
   <Target Name="FacturasProveedor_plugin">
     <MSBuild Projects="Plugin\FacturasProveedor_plugin.dproj" Targets="" />
   </Target>
@@ -222,13 +222,13 @@
     <MSBuild Projects="..\Contactos\Data\Contactos_data.dproj" Targets="Make" />
   </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_controller;AlbaranesProveedor_controller;RecibosProveedor_controller;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;Contabilidad_view;Contabilidad_controller;Contactos_model;Contactos_controller;Contactos_data" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;PedidosProveedor_controller;AlbaranesProveedor_controller;RecibosProveedor_controller;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_view;FacturasProveedor_controller;FacturasProveedor_plugin;FactuGES;FactuGES_Server;Contabilidad_view;Contabilidad_controller;Contactos_model;Contactos_controller;Contactos_data" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;RecibosProveedor_controller:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_view:Clean;Contabilidad_controller:Clean;Contactos_model:Clean;Contactos_controller:Clean;Contactos_data:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;RecibosProveedor_controller:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_view:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_view:Clean;Contabilidad_controller:Clean;Contactos_model:Clean;Contactos_controller:Clean;Contactos_data:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;RecibosProveedor_controller:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_view:Make;Contabilidad_controller:Make;Contactos_model:Make;Contactos_controller:Make;Contactos_data:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;RecibosProveedor_controller:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_view:Make;FacturasProveedor_controller:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_view:Make;Contabilidad_controller:Make;Contactos_model:Make;Contactos_controller:Make;Contactos_data:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas

@@ -307,7 +307,7 @@ begin
   ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
   
   RE := 0;
-//  SITUACION := CTE_PENDIENTE;
+  SITUACION := CTE_PENDIENTE;
   ID_TIENDA := AppFactuGES.TiendaActiva.ID;
   TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
 

Source/Modulos/Relaciones/Contratos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas

@@ -20,7 +20,7 @@ implementation
 {$R *.dfm}
 
 uses
-  uDialogUtils, uBizDetallesContratoCliente, uBizDetallesAlbaranCliente,
+  uFactuGES_App, uDialogUtils, uBizDetallesContratoCliente, uBizDetallesAlbaranCliente,
   uContratosClienteController, uAlbaranesClienteController, uClientesController,
   uDetallesAlbaranClienteController, uControllerDetallesBase,
   uBizContactos, schContratosClienteClient_Intf,
@@ -205,6 +205,10 @@ begin
     end;
 }
     AuxAlbaran := AAlbaranesClienteController.Nuevo;
+    AuxAlbaran.ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
+    AuxAlbaran.ID_TIENDA := AppFactuGES.TiendaActiva.ID;
+    AuxAlbaran.TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
+
     CopiarContratoAAlbaran(AContrato, AuxAlbaran);
     CopiarDetallesAAlbaran(AContrato, AuxAlbaran, AContrato.Detalles);
 

Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas

@@ -70,7 +70,6 @@ begin
   AFactura.IVA := AContrato.IVA;
   AFactura.IMPORTE_IVA := AContrato.IMPORTE_IVA;
   AFactura.IMPORTE_TOTAL := AContrato.IMPORTE_TOTAL;
-  AFactura.ID_TIENDA := AppFactuGES.TiendaActiva.ID;
 //  AFactura.ID_VENDEDOR := AContrato.ID_VENDEDOR;
   AFactura.RECARGO_EQUIVALENCIA := AContrato.RECARGO_EQUIVALENCIA;
   AFactura.RE := AContrato.RE;
@@ -197,6 +196,10 @@ begin
 
   try
     AFactura := AFacturasClienteController.Nuevo;
+    AFactura.ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
+    AFactura.ID_TIENDA := AppFactuGES.TiendaActiva.ID;
+    AFactura.TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
+
     CopiarContratoAFactura(AContrato, AFactura);
     CopiarDetallesAFactura(AContrato, AFactura, AContrato.Detalles);
 

Source/Modulos/Relaciones/Presupuestos de cliente - Contratos de cliente/uGenerarContratosCliUtils.pas

@@ -117,7 +117,6 @@ begin
   AContrato.IVA := APresupuesto.IVA;
   AContrato.IMPORTE_IVA := APresupuesto.IMPORTE_IVA;
   AContrato.IMPORTE_TOTAL := APresupuesto.IMPORTE_TOTAL;
-  AContrato.ID_TIENDA := APresupuesto.ID_TIENDA;
   AContrato.ID_VENDEDOR := APresupuesto.ID_VENDEDOR;
   AContrato.RECARGO_EQUIVALENCIA := APresupuesto.RECARGO_EQUIVALENCIA;
   AContrato.RE := APresupuesto.RE;
@@ -253,6 +252,9 @@ begin
   try
     AContrato := AContratosClienteController.Nuevo;
     AContrato.ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
+    AContrato.ID_TIENDA := AppFactuGES.TiendaActiva.ID;
+    AContrato.TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
+
     CopiarPresupuestoAContrato(APresupuesto, AContrato);
     CopiarDetallesAContrato(APresupuesto, AContrato, APresupuesto.Detalles);
 

Source/Servicios/FactuGES.RODL

@@ -937,6 +937,10 @@
 </Parameter>
 <Parameter Name="VerLogotipo" DataType="Boolean" Flag="In" >
 </Parameter>
+<Parameter Name="VerPrecios" DataType="Boolean" Flag="In" >
+</Parameter>
+<Parameter Name="VerTotales" DataType="Boolean" Flag="In" >
+</Parameter>
 </Parameters>
 </Operation>
 <Operation Name="GenerarInformeEnPDF" UID="{BFA4B911-5DE4-44DF-BB65-1A37D64AF78E}">
@@ -949,6 +953,10 @@
 </Parameter>
 <Parameter Name="VerLogotipo" DataType="Boolean" Flag="In" >
 </Parameter>
+<Parameter Name="VerPrecios" DataType="Boolean" Flag="In" >
+</Parameter>
+<Parameter Name="VerTotales" DataType="Boolean" Flag="In" >
+</Parameter>
 </Parameters>
 </Operation>
 </Operations>

Source/Servicios/FactuGES_Intf.pas

@@ -859,8 +859,10 @@ type
   { IsrvContratosCliente }
   IsrvContratosCliente = interface(IDataAbstractService)
     ['{ADBF1627-F507-4A0F-818E-38BAE28579B6}']
-    function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean; 
-    function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
+                            const VerTotales: Boolean): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean; 
+                                 const VerTotales: Boolean): Binary;
   end;
 
   { CosrvContratosCliente }
@@ -873,8 +875,10 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean; 
-    function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
+                            const VerTotales: Boolean): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean; 
+                                 const VerTotales: Boolean): Binary;
   end;
 
   { IsrvSubfamilias }
@@ -2786,7 +2790,8 @@ begin
   result := 'srvContratosCliente';
 end;
 
-function TsrvContratosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
+function TsrvContratosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean; 
+                                                   const VerTotales: Boolean): Binary;
 begin
   try
     result := nil;
@@ -2794,6 +2799,8 @@ begin
     __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
     __Message.Write('NombreEmpresa', TypeInfo(AnsiString), NombreEmpresa, []);
     __Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
+    __Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
+    __Message.Write('VerTotales', TypeInfo(Boolean), VerTotales, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
@@ -2805,7 +2812,8 @@ begin
   end
 end;
 
-function TsrvContratosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary;
+function TsrvContratosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean; 
+                                                        const VerTotales: Boolean): Binary;
 begin
   try
     result := nil;
@@ -2813,6 +2821,8 @@ begin
     __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
     __Message.Write('NombreEmpresa', TypeInfo(AnsiString), NombreEmpresa, []);
     __Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
+    __Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
+    __Message.Write('VerTotales', TypeInfo(Boolean), VerTotales, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);

Source/Servicios/FactuGES_Invk.pas

@@ -2276,11 +2276,14 @@ begin
 end;
 
 procedure TsrvContratosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary; }
+{ function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean; 
+                            const VerTotales: Boolean): Binary; }
 var
   ListaID: FactuGES_Intf.TIntegerArray;
   NombreEmpresa: AnsiString;
   VerLogotipo: Boolean;
+  VerPrecios: Boolean;
+  VerTotales: Boolean;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
@@ -2290,8 +2293,10 @@ begin
     __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
     __Message.Read('NombreEmpresa', TypeInfo(AnsiString), NombreEmpresa, []);
     __Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
+    __Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
+    __Message.Read('VerTotales', TypeInfo(Boolean), VerTotales, []);
 
-    lResult := (__Instance as IsrvContratosCliente).GenerarInforme(ListaID, NombreEmpresa, VerLogotipo);
+    lResult := (__Instance as IsrvContratosCliente).GenerarInforme(ListaID, NombreEmpresa, VerLogotipo, VerPrecios, VerTotales);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContratosCliente', 'GenerarInformeResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
@@ -2310,11 +2315,14 @@ begin
 end;
 
 procedure TsrvContratosCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary; }
+{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean; const VerPrecios: Boolean; 
+                                 const VerTotales: Boolean): Binary; }
 var
   ListaID: FactuGES_Intf.TIntegerArray;
   NombreEmpresa: AnsiString;
   VerLogotipo: Boolean;
+  VerPrecios: Boolean;
+  VerTotales: Boolean;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
@@ -2324,8 +2332,10 @@ begin
     __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
     __Message.Read('NombreEmpresa', TypeInfo(AnsiString), NombreEmpresa, []);
     __Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []);
+    __Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
+    __Message.Read('VerTotales', TypeInfo(Boolean), VerTotales, []);
 
-    lResult := (__Instance as IsrvContratosCliente).GenerarInformeEnPDF(ListaID, NombreEmpresa, VerLogotipo);
+    lResult := (__Instance as IsrvContratosCliente).GenerarInformeEnPDF(ListaID, NombreEmpresa, VerLogotipo, VerPrecios, VerTotales);
 
     __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContratosCliente', 'GenerarInformeEnPDFResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);

Source/Servidor/FactuGES_Server.dproj

@@ -28,7 +28,7 @@
 		<Borland.Personality>Delphi.Personality</Borland.Personality>
 		<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">5</VersionInfo><VersionInfo Name="Release">9</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.5.9.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.5.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 03 de junio de 2013 12:33</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+			<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">6</VersionInfo><VersionInfo Name="Release">0</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.6.0.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.6.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 13 de junio de 2013 17:17</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>