diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index 2f2fa66..68a2c51 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Database/scripts/factuges_sysdata_plan_general_contable_Abeto.sql b/Database/scripts/factuges_sysdata_plan_general_contable_Abeto.sql index 5428e1c..55b199e 100644 --- a/Database/scripts/factuges_sysdata_plan_general_contable_Abeto.sql +++ b/Database/scripts/factuges_sysdata_plan_general_contable_Abeto.sql @@ -1,5 +1,6 @@ INSERT INTO CONT_EJERCICIOS (ID, ID_EMPRESA, NOMBRE, FECHA_INICIO, FECHA_FIN, ESTADO, LONG_SUB_CUENTA, ID_ASIENTO_APERTURA, ID_ASIENTO_PERYGAN, ID_ASIENTO_CIERRE, ACTIVO) VALUES (3, 1, 'Ejercicio 2012', '2012-01-01', '2012-12-31', 'ABIERTO', NULL, NULL, NULL, NULL, 1); -INSERT INTO CONT_EJERCICIOS (ID, ID_EMPRESA, NOMBRE, FECHA_INICIO, FECHA_FIN, ESTADO, LONG_SUB_CUENTA, ID_ASIENTO_APERTURA, ID_ASIENTO_PERYGAN, ID_ASIENTO_CIERRE, ACTIVO) VALUES (2, 2, 'Ejercicio 2011', '2011-01-01', '2011-12-31', 'ABIERTO', NULL, NULL, NULL, NULL, 1); +INSERT INTO CONT_EJERCICIOS (ID, ID_EMPRESA, NOMBRE, FECHA_INICIO, FECHA_FIN, ESTADO, LONG_SUB_CUENTA, ID_ASIENTO_APERTURA, ID_ASIENTO_PERYGAN, ID_ASIENTO_CIERRE, ACTIVO) VALUES (2, 2, 'Ejercicio 2012', '2012-01-01', '2012-12-31', 'ABIERTO', NULL, NULL, NULL, NULL, 1); +INSERT INTO CONT_EJERCICIOS (ID, ID_EMPRESA, NOMBRE, FECHA_INICIO, FECHA_FIN, ESTADO, LONG_SUB_CUENTA, ID_ASIENTO_APERTURA, ID_ASIENTO_PERYGAN, ID_ASIENTO_CIERRE, ACTIVO) VALUES (4, 3, 'Ejercicio 2012', '2012-01-01', '2012-12-31', 'ABIERTO', NULL, NULL, NULL, NULL, 1); COMMIT WORK; diff --git a/Source/ApplicationBase/ApplicationBase.dpk b/Source/ApplicationBase/ApplicationBase.dpk index 93c02c0..51b687a 100644 --- a/Source/ApplicationBase/ApplicationBase.dpk +++ b/Source/ApplicationBase/ApplicationBase.dpk @@ -59,7 +59,10 @@ requires dxCoreD11, cxEditorsD11, cxDataD11, - cxExtEditorsD11; + cxExtEditorsD11, + PngComponentsD10, + PNG_D10, + PluginSDK_D11R; contains uFactuGES_App in 'uFactuGES_App.pas', diff --git a/Source/ApplicationBase/ApplicationBase.dproj b/Source/ApplicationBase/ApplicationBase.dproj index 7c7c24d..54e841d 100644 --- a/Source/ApplicationBase/ApplicationBase.dproj +++ b/Source/ApplicationBase/ApplicationBase.dproj @@ -46,6 +46,9 @@ Package FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + RemObjects Data Abstract - SQLite Driver Microsoft Office 2000 Sample Automation Server Wrapper Components Microsoft Office XP Sample Automation Server Wrapper Components @@ -58,48 +61,17 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fConfiguracionEditor
 - + +
frViewConfiguracionBase
+ TFrame +
frViewConfiguracionGeneral
TFrame - - - - - - @@ -111,6 +83,43 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorEjercicio
TCustomEditor diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index b7775b7..7dae4e8 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,6 +44,13 @@ Package FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + + + + + VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components @@ -58,54 +65,54 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 8b251f3..1641339 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.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/InfContratoCliente.fr3 b/Source/Informes/InfContratoCliente.fr3 index 0e800e6..d889d6f 100644 --- a/Source/Informes/InfContratoCliente.fr3 +++ b/Source/Informes/InfContratoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -61,8 +61,8 @@ - - + + diff --git a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas index 94b293f..83fee85 100644 --- a/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas +++ b/Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.pas @@ -61,7 +61,7 @@ implementation {$R *.DFM} uses - cxControls, FactuGES_Intf, uDataModuleConexion, Dialogs, DataAbstract4_Intf, + cxControls, FactuGES_Intf, uFactuGES_App, uDataModuleConexion, Dialogs, DataAbstract4_Intf, uDataTableUtils, schContratosClienteClient_Intf, uBizContactos; { TdmContratosCliente } @@ -84,7 +84,7 @@ begin AParam := TIntegerArray.Create; try AParam.Add(AID); - Result := (RORemoteService as IsrvContratosCliente).GenerarInformeEnPDF(AParam, VerLogotipo) + Result := (RORemoteService as IsrvContratosCliente).GenerarInformeEnPDF(AParam, AppFactuGES.EmpresaActiva.RAZON_SOCIAL, VerLogotipo) finally FreeANDNIL(AParam) end; @@ -96,7 +96,7 @@ var begin AParam := AListaID.ToIntegerArray; try - Result := (RORemoteService as IsrvContratosCliente).GenerarInforme(AParam, VerLogotipo) + Result := (RORemoteService as IsrvContratosCliente).GenerarInforme(AParam, AppFactuGES.EmpresaActiva.RAZON_SOCIAL, VerLogotipo) finally FreeANDNIL(AParam) end; diff --git a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm index dbe85a1..33ad321 100644 --- a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm +++ b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm @@ -837,7 +837,7 @@ object RptContratosCliente: TRptContratosCliente PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 40420.450887569440000000 + ReportOptions.LastChange = 40925.778794479160000000 ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False diff --git a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas index 0eaca56..2adf900 100644 --- a/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas +++ b/Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas @@ -64,11 +64,11 @@ type cabeceraPOBLACION: TIBStringField; cabeceraPROVINCIA: TIBStringField; cabeceraCODIGO_POSTAL: TIBStringField; - schReport: TDASchema; - DataDictionary: TDADataDictionary; frxDBCondiciones: TfrxDBDataset; DADSCondiciones: TDADataSource; tbl_Condiciones: TDAMemDataTable; + schReport: TDASchema; + DataDictionary: TDADataDictionary; procedure DataModuleCreate(Sender: TObject); procedure DataModuleDestroy(Sender: TObject); function frxReportUserFunction(const MethodName: string; @@ -83,6 +83,7 @@ type FImporteMinimo: Currency; FDesglosado : Boolean; FVerLogotipo : Boolean; + FNombreEmpresa: String; procedure _GenerarContrato(const AID : Integer); @@ -93,8 +94,8 @@ type procedure IniciarParametrosInforme; procedure RecuperarNombresClientes; public - function GenerarContrato(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True): Binary; - function GenerarContratoEnPDF(const ListaID : TIntegerArray; const VerLogotipo: Boolean = True): Binary; + 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 GenerarInformeListadoContratos(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDClientes: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary; end; @@ -142,7 +143,7 @@ begin end; end; -function TRptContratosCliente.GenerarContratoEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True): Binary; +function TRptContratosCliente.GenerarContratoEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean = True): Binary; var i: Integer; begin @@ -150,6 +151,7 @@ begin try //Inicializamos parametros FVerLogotipo := VerLogotipo; + FNombreEmpresa := NombreEmpresa; //Vamos generando todos y cada uno de los Contratos recibidos for i := 0 to ListaID.Count - 1 do @@ -482,7 +484,7 @@ begin end; end; -function TRptContratosCliente.GenerarContrato(const ListaID: TIntegerArray; const VerLogotipo: Boolean = True): Binary; +function TRptContratosCliente.GenerarContrato(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean = True): Binary; var i: Integer; begin @@ -490,6 +492,7 @@ begin try //Inicializamos parametros FVerLogotipo := VerLogotipo; + FNombreEmpresa := NombreEmpresa; //Vamos generando todos y cada uno de los Contratos recibidos for i := 0 to ListaID.Count - 1 do @@ -546,6 +549,7 @@ begin frxReport.LoadFromFile(AInforme, True); frxReport.Variables.Variables['VerLogotipo'] := FVerLogotipo; + frxReport.Variables.Variables['NombreEmpresa'] := ''''+FNombreEmpresa+''''; 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 13967ec..0dcd93e 100644 --- a/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.pas +++ b/Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.pas @@ -33,8 +33,9 @@ type procedure DARemoteServiceCreate(Sender: TObject); protected { IsrvContratosCliente methods } - function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; - function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; + function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary; + function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary; + end; implementation @@ -77,25 +78,25 @@ begin ConnectionName := dmServer.ConnectionName; end; -function TsrvContratosCliente.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; +function TsrvContratosCliente.GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary; var AReportGenerator : TRptContratosCliente; begin AReportGenerator := TRptContratosCliente.Create(nil); try - Result := AReportGenerator.GenerarContrato(ListaID, VerLogotipo); + Result := AReportGenerator.GenerarContrato(ListaID, NombreEmpresa, VerLogotipo); finally FreeAndNIL(AReportGenerator); end; end; -function TsrvContratosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; +function TsrvContratosCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary; var AReportGenerator : TRptContratosCliente; begin AReportGenerator := TRptContratosCliente.Create(nil); try - Result := AReportGenerator.GenerarContratoEnPDF(ListaID, VerLogotipo); + Result := AReportGenerator.GenerarContratoEnPDF(ListaID, NombreEmpresa, VerLogotipo); finally FreeAndNIL(AReportGenerator); end; diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas index b715f3d..054350b 100644 --- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas +++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas @@ -260,7 +260,7 @@ begin with Result.DataTable.DynamicWhere do begin //No podrá compensarse un recibo a si mismo - Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID), NewConstant(Recibo.ID, datInteger), dboNotEqual); + Condicion := NewBinaryExpression(NewField('V_RECIBOS_CLIENTE', fld_RecibosClienteID), NewConstant(Recibo.ID, datInteger), dboNotEqual); if IsEmpty then Expression := Condicion @@ -647,7 +647,7 @@ begin begin ShowHourglassCursor; try - DuplicarRegistros(ARecibosACompensar.DataTable, ARecibo.RecibosCompensados.DataTable, mdrTodos, True, True, False); + DuplicarRegistros(ARecibosACompensar.DataTable, ARecibo.RecibosCompensados.DataTable, mdrTodos, True, True, True); Result := True; finally HideHourglassCursor; diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm index df20070..857cac5 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm @@ -61,7 +61,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente inherited pgPaginas: TPageControl Width = 879 Height = 331 - ActivePage = pagPagos + ActivePage = pagCompensados OnChanging = pgPaginasChanging ExplicitWidth = 879 ExplicitHeight = 331 @@ -405,18 +405,6 @@ inherited fEditorReciboCliente: TfEditorReciboCliente inherited ToolBar1: TToolBar Width = 871 ExplicitWidth = 871 - inherited ToolButton1: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton4: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton2: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton7: TToolButton - ExplicitWidth = 113 - end inherited ToolButton3: TToolButton ExplicitWidth = 98 end diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas index 24b09d0..d12d420 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas @@ -65,7 +65,7 @@ type procedure PonerTitulos(const ATitulo: string = ''); override; procedure OnClienteChanged(Sender: TObject); - function PuedoImprimir: Boolean; override; + function PuedoImprimir: Boolean; override; public property Recibo: IBizRecibosCliente read GetRecibo write SetRecibo; @@ -89,7 +89,11 @@ begin if not VarIsNull(frViewRecibosCliCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0]) then ImporteAux := frViewRecibosCliCompensados1.cxGridView.DataController.Summary.FooterSummaryValues[0]; - frViewReciboCliImportes1.eImporteTotalRecibo.Value := frViewReciboCliImportes1.eImporte.Value + frViewReciboCliImportes1.eOtrosGastos.Value + ImporteAux; + frViewReciboCliImportes1.eImporteTotalRecibo.Value := frViewReciboCliImportes1.eImporte.Value + frViewReciboCliImportes1.eOtrosGastos.Value; // + ImporteAux; + + if (ImporteAux > frViewReciboCliImportes1.eImporteTotalRecibo.Value) then + raise Exception.Create ('El importe de los recibos compensados es superior al importe del recibo'); + end; constructor TfEditorReciboCliente.Create(AOwner: TComponent); @@ -98,8 +102,6 @@ begin FImporteRestante := 0; pgPaginas.ActivePageIndex := 0; - //RECIBOS COMPENSADOS DESHABILITADOS - pagCompensados.TabVisible := False; ViewRecibo := frViewReciboCliente1; end; @@ -107,6 +109,9 @@ procedure TfEditorReciboCliente.CustomEditorClose(Sender: TObject; var Action: TCloseAction); begin inherited; + frViewRecibosCliCompensados1.cxGridView.DataController.Summary.OnAfterSummary := Nil; + frViewReciboCliImportes1.eImporte.Properties.OnEditValueChanged := NIL; + dsDataTable.DataTable := NIL; FViewRecibo := NIL; FRecibo := NIL; diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm index b99a81d..b0fb9dd 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm @@ -125,6 +125,9 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente Kind = skSum Column = frViewRecibosCliente1.cxGridViewOTROS_GASTOS end> + inherited cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn + Visible = True + end end end inherited frViewFiltroBase1: TfrViewFiltroBase diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm index 6bca187..ee2bbc8 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm @@ -29,9 +29,13 @@ inherited frViewRecibosCliCompensados: TfrViewRecibosCliCompensados DataBinding.FieldName = 'RecId' Visible = False end + inherited cxGridViewID: TcxGridDBColumn + VisibleForCustomization = False + end object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn DataBinding.FieldName = 'ID_RECIBO_COMPENSADO' Visible = False + VisibleForCustomization = False end object cxGridViewREFERENCIA: TcxGridDBColumn Caption = 'Referencia' diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas index 7b7c6d2..8f58f29 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas @@ -83,7 +83,7 @@ uses procedure TfrViewRecibosCliCompensados.actAnadirUpdate(Sender: TObject); begin inherited; - (Sender as TAction).Enabled := (ReciboCliente.SITUACION <> CTE_COBRADO); + (Sender as TAction).Enabled := not (ReciboCliente.ID_RECIBO_COMPENSADO > 0); //(ReciboCliente.SITUACION <> CTE_COBRADO); end; procedure TfrViewRecibosCliCompensados.actContraerExecute(Sender: TObject); @@ -103,7 +103,8 @@ begin inherited; (Sender as TAction).Enabled := ((cxGridView.Controller.SelectedRowCount > 0) and (cxGridView.Controller.SelectedRows[0].HasCells) - and (ReciboCliente.SITUACION <> CTE_COBRADO)); + and not (ReciboCliente.ID_RECIBO_COMPENSADO > 0)); +// and (ReciboCliente.SITUACION <> CTE_COBRADO)); end; procedure TfrViewRecibosCliCompensados.actExpandirExecute(Sender: TObject); diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL index 42a329d..afe037e 100644 --- a/Source/Servicios/FactuGES.RODL +++ b/Source/Servicios/FactuGES.RODL @@ -887,6 +887,8 @@ + + @@ -897,6 +899,8 @@ + + diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas index d884dcf..911068d 100644 --- a/Source/Servicios/FactuGES_Intf.pas +++ b/Source/Servicios/FactuGES_Intf.pas @@ -851,8 +851,8 @@ type { IsrvContratosCliente } IsrvContratosCliente = interface(IDataAbstractService) ['{ADBF1627-F507-4A0F-818E-38BAE28579B6}'] - function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; - function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; + function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary; + function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary; end; { CosrvContratosCliente } @@ -865,8 +865,8 @@ type protected function __GetInterfaceName:string; override; - function GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; - function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; + function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary; + function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary; end; implementation @@ -2701,12 +2701,13 @@ begin result := 'srvContratosCliente'; end; -function TsrvContratosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; +function TsrvContratosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary; begin try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme'); __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); + __Message.Write('NombreEmpresa', TypeInfo(AnsiString), NombreEmpresa, []); __Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []); __Message.Finalize; @@ -2719,12 +2720,13 @@ begin end end; -function TsrvContratosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerLogotipo: Boolean): Binary; +function TsrvContratosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary; begin try result := nil; __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF'); __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); + __Message.Write('NombreEmpresa', TypeInfo(AnsiString), NombreEmpresa, []); __Message.Write('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []); __Message.Finalize; diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas index 57a2d23..cd2b64a 100644 --- a/Source/Servicios/FactuGES_Invk.pas +++ b/Source/Servicios/FactuGES_Invk.pas @@ -2167,9 +2167,10 @@ 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 VerLogotipo: Boolean): Binary; } +{ function GenerarInforme(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary; } var ListaID: FactuGES_Intf.TIntegerArray; + NombreEmpresa: AnsiString; VerLogotipo: Boolean; lResult: Binary; __lObjectDisposer: TROObjectDisposer; @@ -2178,9 +2179,10 @@ begin lResult := nil; try __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); + __Message.Read('NombreEmpresa', TypeInfo(AnsiString), NombreEmpresa, []); __Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []); - lResult := (__Instance as IsrvContratosCliente).GenerarInforme(ListaID, VerLogotipo); + lResult := (__Instance as IsrvContratosCliente).GenerarInforme(ListaID, NombreEmpresa, VerLogotipo); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContratosCliente', 'GenerarInformeResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); @@ -2199,9 +2201,10 @@ 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 VerLogotipo: Boolean): Binary; } +{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const NombreEmpresa: AnsiString; const VerLogotipo: Boolean): Binary; } var ListaID: FactuGES_Intf.TIntegerArray; + NombreEmpresa: AnsiString; VerLogotipo: Boolean; lResult: Binary; __lObjectDisposer: TROObjectDisposer; @@ -2210,9 +2213,10 @@ begin lResult := nil; try __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []); + __Message.Read('NombreEmpresa', TypeInfo(AnsiString), NombreEmpresa, []); __Message.Read('VerLogotipo', TypeInfo(Boolean), VerLogotipo, []); - lResult := (__Instance as IsrvContratosCliente).GenerarInformeEnPDF(ListaID, VerLogotipo); + lResult := (__Instance as IsrvContratosCliente).GenerarInformeEnPDF(ListaID, NombreEmpresa, VerLogotipo); __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContratosCliente', 'GenerarInformeEnPDFResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); diff --git a/Source/Servicios/RODLFile.res b/Source/Servicios/RODLFile.res index 54ae147..a038e8e 100644 Binary files a/Source/Servicios/RODLFile.res and b/Source/Servicios/RODLFile.res differ