diff --git a/Resources/Iconos/Barras.jpg b/Resources/Iconos/Barras.jpg new file mode 100644 index 0000000..0ca7437 Binary files /dev/null and b/Resources/Iconos/Barras.jpg differ diff --git a/Resources/Iconos/Titulo2.jpg b/Resources/Iconos/Titulo2.jpg new file mode 100644 index 0000000..b07e409 Binary files /dev/null and b/Resources/Iconos/Titulo2.jpg differ diff --git a/Resources/Iconos/logoacana.jpg b/Resources/Iconos/logoacana.jpg deleted file mode 100644 index 0926f90..0000000 Binary files a/Resources/Iconos/logoacana.jpg and /dev/null differ diff --git a/Resources/Iconos/logotipo abeto design.jpg b/Resources/Iconos/logotipo abeto design.jpg new file mode 100644 index 0000000..495419f Binary files /dev/null and b/Resources/Iconos/logotipo abeto design.jpg differ diff --git a/Resources/Iconos/logotipo abeto pie de hoja.bmp b/Resources/Iconos/logotipo abeto pie de hoja.bmp new file mode 100644 index 0000000..5baa57e Binary files /dev/null and b/Resources/Iconos/logotipo abeto pie de hoja.bmp differ diff --git a/Source/Informes/InfPresupuestoCliente.fr3 b/Source/Informes/InfPresupuestoCliente.fr3 index ec2f164..0124d84 100644 --- a/Source/Informes/InfPresupuestoCliente.fr3 +++ b/Source/Informes/InfPresupuestoCliente.fr3 @@ -1,40 +1,44 @@ - + - - - - - - - - + + + + + + + + + + + + - + - + - - - - - + + + + + - - + + + - - + - + @@ -50,15 +54,16 @@ - - + + - - + + + - - + + diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas index a29bbf0..1854548 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas @@ -92,8 +92,8 @@ type function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean; function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean; - procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false); - procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false); + procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true); + procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true); procedure EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente); function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean; @@ -168,8 +168,8 @@ type function EsModificable(APresupuesto : IBizPresupuestoCliente): Boolean; function EsEliminable(APresupuesto : IBizPresupuestoCliente): Boolean; - procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false); - procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false); + procedure Preview(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true); + procedure Print(APresupuesto : IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true); procedure EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente); function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean; @@ -1089,7 +1089,7 @@ begin } end; -procedure TPresupuestosClienteController.Preview(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false); +procedure TPresupuestosClienteController.Preview(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true); var AReportController : IPresupuestosClienteReportController; ID_Presupuestos: TIntegerList; @@ -1115,14 +1115,14 @@ begin else ID_Presupuestos.Add(APresupuesto.ID); - AReportController.Preview(ID_Presupuestos); + AReportController.Preview(ID_Presupuestos, VerLogotipo); finally AReportController := NIL; FreeAndNil(ID_Presupuestos); end; end; -procedure TPresupuestosClienteController.Print(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false); +procedure TPresupuestosClienteController.Print(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false; VerLogotipo: Boolean = true); var AReportController : IPresupuestosClienteReportController; ID_Presupuestos: TIntegerList; @@ -1147,7 +1147,7 @@ begin else ID_Presupuestos.Add(APresupuesto.ID); - AReportController.Print(ID_Presupuestos); + AReportController.Print(ID_Presupuestos, VerLogotipo); finally AReportController := NIL; diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas index 69ca18e..15a9f32 100644 --- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas +++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas @@ -10,8 +10,8 @@ uses type IPresupuestosClienteReportController = interface(IControllerBase) ['{41AE4B36-6114-4DDE-8BCF-288AA0E12449}'] - procedure Preview(const AListaID : TIntegerList); - procedure Print(const AListaID : TIntegerList); + procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean); + procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean); function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; end; @@ -23,8 +23,8 @@ type constructor Create; override; destructor Destroy; override; - procedure Preview(const AListaID : TIntegerList); - procedure Print(const AListaID : TIntegerList); + procedure Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean); + procedure Print(const AListaID : TIntegerList; const VerLogotipo: Boolean); function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; end; @@ -57,8 +57,7 @@ begin inherited; end; -function TPresupuestosClienteReportController.ExportToPDF(const AID: Integer; - const AFileName: String): Boolean; +function TPresupuestosClienteReportController.ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean; var AStream: Binary; begin @@ -68,7 +67,7 @@ begin ShowHourglassCursor; try - AStream := FDataModule.GetRptPDFPresupuesto(AID); + AStream := FDataModule.GetRptPDFPresupuesto(AID, True); try AStream.SaveToFile(AFileName); Result := True; @@ -80,7 +79,7 @@ begin end; end; -procedure TPresupuestosClienteReportController.Preview(const AListaID : TIntegerList); +procedure TPresupuestosClienteReportController.Preview(const AListaID : TIntegerList; const VerLogotipo: Boolean); var AStream: Binary; AEditor : IEditorPresupuestosClientePreview; @@ -89,7 +88,7 @@ begin ShowHourglassCursor; try - AStream := FDataModule.GetRptPresupuestos(AListaID); + AStream := FDataModule.GetRptPresupuestos(AListaID, VerLogotipo); try CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor); if Assigned(AEditor) then @@ -113,16 +112,16 @@ begin end; end; -procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList); +procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList; const VerLogotipo: Boolean); var AStream: Binary; AEditor : IEditorPresupuestosClientePreview; begin AEditor := NIL; - + ShowHourglassCursor; try - AStream := FDataModule.GetRptPresupuestos(AListaID); + AStream := FDataModule.GetRptPresupuestos(AListaID, VerLogotipo); try CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor); if Assigned(AEditor) then diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas index fabbb52..dc156f4 100644 --- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas @@ -51,8 +51,8 @@ type function GetCapitulo(const TIPO_ARTICULO : String) : IBizCapitulo; // Report - function GetRptPresupuestos(const AListaID: TIntegerList): Binary; - function GetRptPDFPresupuesto(const AID: Integer): Binary; + function GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary; + function GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean): Binary; function GetAnosItems : TStringList; end; @@ -78,27 +78,26 @@ begin RORemoteService.Message := dmConexion.Message; end; -function TDataModulePresupuestosCliente.GetRptPDFPresupuesto( - const AID: Integer): Binary; +function TDataModulePresupuestosCliente.GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean): Binary; var AParam : TIntegerArray; begin AParam := TIntegerArray.Create; try AParam.Add(AID); - Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam) + Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam, VerLogotipo) finally FreeANDNIL(AParam) end; end; -function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: TIntegerList): Binary; +function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary; var AParam : TIntegerArray; begin AParam := AListaID.ToIntegerArray; try - Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam) + Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam, VerLogotipo) finally FreeANDNIL(AParam) end; diff --git a/Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas b/Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas index 887a8f5..c0ea076 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas @@ -8,8 +8,8 @@ uses type IDataModulePresupuestosClienteReport = interface ['{70CEBB06-376F-4363-B80F-DDA4324E0F85}'] - function GetRptPresupuestos(const AListaID: TIntegerList): Binary; - function GetRptPDFPresupuesto(const AID: Integer): Binary; + function GetRptPresupuestos(const AListaID: TIntegerList; const VerLogotipo: Boolean): Binary; + function GetRptPDFPresupuesto(const AID: Integer; const VerLogotipo: Boolean): Binary; end; implementation diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm index 3372b54..a4269b4 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm @@ -868,7 +868,7 @@ object RptPresupuestosCliente: TRptPresupuestosCliente PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 40141.552037754600000000 + ReportOptions.LastChange = 40869.748848321760000000 ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas index 1fbf33e..baa6f29 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas @@ -92,7 +92,8 @@ type FListaNombresClientes: TStringList; FImporteMinimo: Currency; FDesglosado : Boolean; - + FVerLogotipo : Boolean; + procedure _GenerarPresupuesto(const AID : Integer); procedure PrepararTablaInforme(ATabla: TDAMemDataTable); @@ -100,10 +101,10 @@ type function _GenerarInforme(const TipoInforme: String): Binary; procedure IniciarParametrosInforme; - procedure RecuperarNombresClientes; + procedure RecuperarNombresClientes; public - function GenerarPresupuesto(const ListaID : TIntegerArray): Binary; - function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray): Binary; + function GenerarPresupuesto(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True): Binary; + function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True): Binary; function GenerarInformeListadoPresupuestos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; end; @@ -151,12 +152,15 @@ begin end; end; -function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray): Binary; +function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True): Binary; var i: Integer; begin Result := Binary.Create; try + //Inicializamos parametros + FVerLogotipo := VerLogotipo; + //Vamos generando todos y cada uno de los presupuestos recibidos for i := 0 to ListaID.Count - 1 do _GenerarPresupuesto(ListaID.Items[i]); @@ -486,12 +490,15 @@ begin end; end; -function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: TIntegerArray): Binary; +function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True): Binary; var i: Integer; begin Result := Binary.Create; try + //Inicializamos parametros + FVerLogotipo := VerLogotipo; + //Vamos generando todos y cada uno de los presupuestos recibidos for i := 0 to ListaID.Count - 1 do _GenerarPresupuesto(ListaID.Items[i]); @@ -544,6 +551,7 @@ begin raise Exception.Create (('Error Servidor: _GenerarPresupuesto, no encuentra informe ' + rptInforme)); frxReport.LoadFromFile(AInforme, True); + frxReport.Variables.Variables['VerLogotipo'] := FVerLogotipo; frxReport.AddFunction('function PONERJUSTIFICACIONCOMPLETA(ARTFText : String): String', 'User Function',''); frxReport.ReportOptions.Name := 'Presupuesto ' + tbl_Cabecera.FieldByName('REFERENCIA').AsString; frxReport.PrepareReport(False); diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas index 998f221..0384217 100644 --- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas +++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas @@ -33,8 +33,8 @@ type procedure DARemoteServiceCreate(Sender: TObject); protected { IsrvPresupuestosCliente methods } - function GenerarInforme(const ListaID: TIntegerArray): Binary; - function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; + function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; + function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; end; implementation @@ -78,26 +78,25 @@ begin ConnectionName := dmServer.ConnectionName; end; -function TsrvPresupuestosCliente.GenerarInforme(const ListaID: TIntegerArray): Binary; +function TsrvPresupuestosCliente.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; var AReportGenerator : TRptPresupuestosCliente; begin AReportGenerator := TRptPresupuestosCliente.Create(nil); try - Result := AReportGenerator.GenerarPresupuesto(ListaID); + Result := AReportGenerator.GenerarPresupuesto(ListaID, VerLogotipo); finally FreeAndNIL(AReportGenerator); end; end; -function TsrvPresupuestosCliente.GenerarInformeEnPDF( - const ListaID: TIntegerArray): Binary; +function TsrvPresupuestosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; var AReportGenerator : TRptPresupuestosCliente; begin AReportGenerator := TRptPresupuestosCliente.Create(nil); try - Result := AReportGenerator.GenerarPresupuestoEnPDF(ListaID); + Result := AReportGenerator.GenerarPresupuestoEnPDF(ListaID, VerLogotipo); finally FreeAndNIL(AReportGenerator); end; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm index 08dffe4..2d80432 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm @@ -5,7 +5,6 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ClientHeight = 676 ClientWidth = 848 OnClose = CustomEditorClose - ExplicitTop = -147 ExplicitWidth = 856 ExplicitHeight = 710 PixelsPerInch = 96 @@ -232,57 +231,57 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ExplicitWidth = 58 end inherited UpDown1: TUpDown - Left = 587 + Left = 571 Top = 0 - ExplicitLeft = 587 + ExplicitLeft = 571 ExplicitTop = 0 end inherited ToolButton13: TToolButton - Left = 604 + Left = 588 Top = 0 - ExplicitLeft = 604 + ExplicitLeft = 588 ExplicitTop = 0 end inherited ToolButton6: TToolButton - Left = 612 + Left = 596 Top = 0 - ExplicitLeft = 612 + ExplicitLeft = 596 ExplicitTop = 0 end inherited ToolButton7: TToolButton - Left = 646 + Left = 630 Top = 0 - ExplicitLeft = 646 + ExplicitLeft = 630 ExplicitTop = 0 end inherited ToolButton8: TToolButton - Left = 680 + Left = 664 Top = 0 - ExplicitLeft = 680 + ExplicitLeft = 664 ExplicitTop = 0 end inherited ToolButton12: TToolButton - Left = 714 + Left = 698 Top = 0 - ExplicitLeft = 714 + ExplicitLeft = 698 ExplicitTop = 0 end inherited ToolButton9: TToolButton - Left = 722 + Left = 706 Top = 0 - ExplicitLeft = 722 + ExplicitLeft = 706 ExplicitTop = 0 end inherited ToolButton10: TToolButton - Left = 756 + Left = 740 Top = 0 - ExplicitLeft = 756 + ExplicitLeft = 740 ExplicitTop = 0 end inherited ToolButton11: TToolButton - Left = 790 + Left = 774 Top = 0 - ExplicitLeft = 790 + ExplicitLeft = 774 ExplicitTop = 0 end end diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas index 73a2934..14437c9 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas @@ -284,10 +284,16 @@ begin end; procedure TfEditorPresupuestoCliente.ImprimirInterno; +var + AVerLogotipo: Boolean; begin inherited; + AVerLogotipo := True; if not Modified then - FController.Print(FPresupuesto); + begin + AVerLogotipo := (Application.MessageBox('¿Desea imprimir el documento con logotipo?', 'Atención', MB_YESNO) = IDYES); + FController.Print(FPresupuesto, False, AVerLogotipo); + end; end; procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject); @@ -345,10 +351,16 @@ begin end; procedure TfEditorPresupuestoCliente.PrevisualizarInterno; +var + AVerLogotipo: Boolean; begin inherited; + AVerLogotipo := True; if not Modified then - FController.Preview(FPresupuesto); + begin + AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el documento con logotipo?', 'Atención', MB_YESNO) = IDYES); + FController.Preview(FPresupuesto, False, AVerLogotipo); + end; end; function TfEditorPresupuestoCliente.PuedoImprimir: Boolean; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas index ef27a90..1fb7d17 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas @@ -484,9 +484,11 @@ var Respuesta : Integer; APresupuestos: IBizPresupuestoCliente; AllItems: Boolean; + AVerLogotipo: Boolean; begin APresupuestos := Nil; AllItems := False; + AVerLogotipo := True; if MultiSelect and Assigned(ViewGrid) then AllItems := (ViewGrid.NumSeleccionados > 1); @@ -513,7 +515,10 @@ begin APresupuestos := Presupuestos; if Assigned(APresupuestos) then - FController.Print(APresupuestos, AllItems); + begin + AVerLogotipo := (Application.MessageBox('¿Desea imprimir el documento con logotipo?', 'Atención', MB_YESNO) = IDYES); + FController.Print(APresupuestos, AllItems, AVerLogotipo); + end; end; end; end; @@ -557,9 +562,11 @@ var Respuesta : Integer; APresupuestos: IBizPresupuestoCliente; AllItems: Boolean; + AVerLogotipo: Boolean; begin APresupuestos := Nil; AllItems := False; + AVerLogotipo := True; if MultiSelect and Assigned(ViewGrid) then AllItems := (ViewGrid.NumSeleccionados > 1); @@ -586,7 +593,10 @@ begin APresupuestos := Presupuestos; if Assigned(APresupuestos) then - FController.Preview(APresupuestos, AllItems); + begin + AVerLogotipo := (Application.MessageBox('¿Desea previsualizar el documento con logotipo?', 'Atención', MB_YESNO) = IDYES); + FController.Preview(APresupuestos, AllItems, AVerLogotipo); + end; end; end; end; diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL index 8b38e3f..0d12562 100644 --- a/Source/Servicios/FactuGES.RODL +++ b/Source/Servicios/FactuGES.RODL @@ -308,6 +308,8 @@ + + @@ -316,6 +318,8 @@ + + diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas index efb6c35..42ad626 100644 --- a/Source/Servicios/FactuGES_Intf.pas +++ b/Source/Servicios/FactuGES_Intf.pas @@ -548,8 +548,8 @@ type { IsrvPresupuestosCliente } IsrvPresupuestosCliente = interface(IDataAbstractService) ['{8A06D5A7-8461-4F6E-8A8B-EC49C84C45D1}'] - function GenerarInforme(const ListaID: TIntegerArray): Binary; - function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; + function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; + function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; end; { CosrvPresupuestosCliente } @@ -562,8 +562,8 @@ type protected function __GetInterfaceName:string; override; - function GenerarInforme(const ListaID: TIntegerArray): Binary; - function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; + function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; + function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; end; { IsrvPedidosProveedor } @@ -1817,12 +1817,13 @@ begin result := 'srvPresupuestosCliente'; end; -function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray): Binary; +function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; begin try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme'); __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); + __Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); @@ -1834,12 +1835,13 @@ begin end end; -function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; +function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; begin try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF'); __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); + __Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []); __Message.Finalize; __TransportChannel.Dispatch(__Message); diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas index cf348f1..b07da32 100644 --- a/Source/Servicios/FactuGES_Invk.pas +++ b/Source/Servicios/FactuGES_Invk.pas @@ -923,9 +923,10 @@ begin end; procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerarInforme(const ListaID: TIntegerArray): Binary; } +{ function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; } var ListaID: FactuGES_Intf.TIntegerArray; + VerLogotipo: Boolean; lResult: Binary; __lObjectDisposer: TROObjectDisposer; begin @@ -933,8 +934,9 @@ begin lResult := nil; try __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); + __Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []); - lResult := (__Instance as IsrvPresupuestosCliente).GenerarInforme(ListaID); + lResult := (__Instance as IsrvPresupuestosCliente).GenerarInforme(ListaID, VerLogotipo); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); @@ -953,9 +955,10 @@ begin end; procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; } +{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; } var ListaID: FactuGES_Intf.TIntegerArray; + VerLogotipo: Boolean; lResult: Binary; __lObjectDisposer: TROObjectDisposer; begin @@ -963,8 +966,9 @@ begin lResult := nil; try __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); + __Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []); - lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnPDF(ListaID); + lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnPDF(ListaID, VerLogotipo); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPresupuestosCliente', 'GenerarInformeEnPDFResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); diff --git a/Source/Servicios/RODLFile.res b/Source/Servicios/RODLFile.res index 3e9c8c9..a68fab6 100644 Binary files a/Source/Servicios/RODLFile.res and b/Source/Servicios/RODLFile.res differ diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index 32e79f9..eb63e52 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ