diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index 991788b..f5b4d13 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 50cbb22..db9dc16 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -51,7 +51,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2590FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.5.9.0FactuGESFactuGES2.5.9.0 +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2600FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.6.0.0FactuGESFactuGES2.6.0.0 File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index ceae519..28bef4e 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res index 1641339..8b251f3 100644 Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ diff --git a/Source/Informes/1/InfContratoCliente.fr3 b/Source/Informes/1/InfContratoCliente.fr3 index 47727c5..0e7a137 100644 --- a/Source/Informes/1/InfContratoCliente.fr3 +++ b/Source/Informes/1/InfContratoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -16,19 +16,19 @@ - - - - + + + + - + - - - - - + + + + + diff --git a/Source/Informes/1/InfPresupuestoCliente.fr3 b/Source/Informes/1/InfPresupuestoCliente.fr3 index d763e16..97696a2 100644 --- a/Source/Informes/1/InfPresupuestoCliente.fr3 +++ b/Source/Informes/1/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -18,13 +18,13 @@ - + - + @@ -66,7 +66,7 @@ - + diff --git a/Source/Informes/2/InfContratoCliente.fr3 b/Source/Informes/2/InfContratoCliente.fr3 index 72f819b..093c36c 100644 --- a/Source/Informes/2/InfContratoCliente.fr3 +++ b/Source/Informes/2/InfContratoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -18,19 +18,19 @@ - - - - + + + + - + - - - - - + + + + + @@ -71,7 +71,7 @@ - + diff --git a/Source/Informes/2/InfPresupuestoCliente.fr3 b/Source/Informes/2/InfPresupuestoCliente.fr3 index 54539ec..3b5b2d4 100644 --- a/Source/Informes/2/InfPresupuestoCliente.fr3 +++ b/Source/Informes/2/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -20,13 +20,13 @@ - + - + @@ -68,7 +68,7 @@ - + diff --git a/Source/Informes/3/InfContratoCliente.fr3 b/Source/Informes/3/InfContratoCliente.fr3 index 6ca214e..6c03d1a 100644 --- a/Source/Informes/3/InfContratoCliente.fr3 +++ b/Source/Informes/3/InfContratoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -18,19 +18,19 @@ - - - + + + - - - - - + + + + + diff --git a/Source/Informes/3/InfPresupuestoCliente.fr3 b/Source/Informes/3/InfPresupuestoCliente.fr3 index 54539ec..6f4fdbb 100644 --- a/Source/Informes/3/InfPresupuestoCliente.fr3 +++ b/Source/Informes/3/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -20,13 +20,13 @@ - + - + @@ -68,7 +68,7 @@ - + diff --git a/Source/Informes/4/InfContratoCliente.fr3 b/Source/Informes/4/InfContratoCliente.fr3 index 1795779..9e1988a 100644 --- a/Source/Informes/4/InfContratoCliente.fr3 +++ b/Source/Informes/4/InfContratoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -16,19 +16,19 @@ - - - - + + + + - + - - - - - + + + + + diff --git a/Source/Informes/4/InfPresupuestoCliente.fr3 b/Source/Informes/4/InfPresupuestoCliente.fr3 index d763e16..82401d8 100644 --- a/Source/Informes/4/InfPresupuestoCliente.fr3 +++ b/Source/Informes/4/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -18,13 +18,13 @@ - + - + @@ -66,7 +66,7 @@ - + diff --git a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas index ba41be2..4459627 100644 --- a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas +++ b/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 Print(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true); + procedure 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); + 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 Print(AContrato : IBizContratoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true); + procedure 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); + 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; diff --git a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteReportController.pas b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteReportController.pas index 7a7f2bf..cbf19e8 100644 --- a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteReportController.pas +++ b/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 Print(const AListaID : TIntegerList; const VerLogotipo: Boolean); + procedure 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); + 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 Print(const AListaID : TIntegerList; const VerLogotipo: Boolean); + procedure 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); + 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 diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas index 139ee29..d6483a8 100644 --- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas +++ b/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 GetRptPDFContrato(const AID: Integer; const VerLogotipo: Boolean): Binary; + function 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; + 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; diff --git a/Source/Modulos/Contratos de cliente/Model/Data/uIDataModuleContratosClienteReport.pas b/Source/Modulos/Contratos de cliente/Model/Data/uIDataModuleContratosClienteReport.pas index 81cc31d..3353b44 100644 --- a/Source/Modulos/Contratos de cliente/Model/Data/uIDataModuleContratosClienteReport.pas +++ b/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 GetRptPDFContrato(const AID: Integer; const VerLogotipo: Boolean): Binary; + function 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; + 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 diff --git a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas index 2adf900..c1497a0 100644 --- a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas +++ b/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 GenerarContratoEnPDF(const ListaID : TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean = True): Binary; + function GenerarContrato(const ListaID : TIntegerArray; const NombreEmpresa: AnsiString; + 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); diff --git a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.pas b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.pas index 0dcd93e..bc4a13c 100644 --- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.pas +++ b/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 GenerarInformeEnPDF(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; 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; diff --git a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dpk b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dpk index 1ac9ca5..ae9e7f0 100644 --- a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dpk +++ b/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. diff --git a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj index e01742c..9b96fcb 100644 --- a/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj +++ b/Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj @@ -49,58 +49,55 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogOpcionesImpresionContratosCliente
+ T +
fEditorPresupuestoCliente
TfEditorPedidoCliente @@ -157,6 +154,13 @@
frViewElegirArticulosContratosCliente
TFrame + + + + + + +