diff --git a/Build/Build.fbl6 b/Build/Build.fbl6 index f6a49fb..70f4578 100644 Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ diff --git a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm index fdd210b..66c24af 100644 --- a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm +++ b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm @@ -186,6 +186,34 @@ object srvEmpresas: TsrvEmpresas Size = 2 end> end + item + Params = < + item + Name = 'ID_EMPRESA' + Value = '' + end> + Statements = < + item + Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True + Name = 'IBX' + SQL = 'SELECT NOMBRE'#10'FROM EMPRESAS'#10'WHERE ID = :ID_EMPRESA'#10 + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'NOMBRE' + TableField = 'NOMBRE' + end> + end> + Name = 'DarNombre' + Fields = < + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + end> + end item Params = <> Statements = < diff --git a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas index 37de456..e3c5ec3 100644 --- a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas +++ b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.pas @@ -10,7 +10,7 @@ unit srvEmpresas_Impl; interface uses - {vcl:} Classes, SysUtils, + {vcl:} Classes, SysUtils, {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, {Ancestor Implementation:} DataAbstractService_Impl, {Used RODLs:} DataAbstract4_Intf, @@ -33,6 +33,7 @@ type private protected function DarTiendaUsuario(const ID_EMPRESA: Integer; const ID_USUARIO: Integer): Integer; + function DarNombre(const ID_EMPRESA: Integer): AnsiString; function DarListaFormasPago: Binary; function DarListaTiposIVA: Binary; end; @@ -81,6 +82,22 @@ begin end; end; +function TsrvEmpresas.DarNombre(const ID_EMPRESA: Integer): AnsiString; +var + ADataSet : IDADataset; +begin + try + ADataSet := schEmpresas.NewDataset(Connection, 'DarNombre', ['ID_EMPRESA'], [ID_EMPRESA]); + ADataSet.Open; + if ADataSet.Dataset.RecordCount > 0 then + Result := ADataSet.Dataset.Fields[0].AsString + else + Result := 'NO EXISTE' + finally + ADataSet.Close; + end; +end; + function TsrvEmpresas.DarTiendaUsuario(const ID_EMPRESA, ID_USUARIO: Integer): Integer; var AContactosService : IsrvContactos; diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 7dae4e8..a730d90 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,13 +44,6 @@ 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 @@ -65,54 +58,54 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Informes/InfEtiquetasAlbaranCliente.fr3 b/Source/Informes/InfEtiquetasAlbaranCliente.fr3 deleted file mode 100644 index ad8c77c..0000000 --- a/Source/Informes/InfEtiquetasAlbaranCliente.fr3 +++ /dev/null @@ -1,18 +0,0 @@ - - - - - - - - - - - - - - - - - - diff --git a/Source/Informes/InfEtiquetasContacto.fr3 b/Source/Informes/InfEtiquetasContacto.fr3 deleted file mode 100644 index f1fcad7..0000000 --- a/Source/Informes/InfEtiquetasContacto.fr3 +++ /dev/null @@ -1,8 +0,0 @@ - - - - - - - - diff --git a/Source/Informes/InformeIVAClientes.fr3 b/Source/Informes/InformeIVAClientes.fr3 index 8e18b80..6fb6fe6 100644 --- a/Source/Informes/InformeIVAClientes.fr3 +++ b/Source/Informes/InformeIVAClientes.fr3 @@ -1,29 +1,29 @@ - + - + - + - - - + + - + + - - - - - - - - + + + + + + + + - + @@ -32,17 +32,16 @@ - - - - - + + + + + - - + - + @@ -51,20 +50,20 @@ - - - - - - - - + + + + + + + + - - - - - + + + + + diff --git a/Source/Informes/InformeIVAClientesDesglosado.fr3 b/Source/Informes/InformeIVAClientesDesglosado.fr3 index 37447d1..540f183 100644 --- a/Source/Informes/InformeIVAClientesDesglosado.fr3 +++ b/Source/Informes/InformeIVAClientesDesglosado.fr3 @@ -1,14 +1,13 @@ - + - + - - - + + @@ -16,15 +15,15 @@ - - - - - - - + + + + + + + - + @@ -34,10 +33,10 @@ - - - - + + + + @@ -46,7 +45,7 @@ - + @@ -56,19 +55,19 @@ - - - - - - - + + + + + + + - - - - + + + + diff --git a/Source/Informes/InformeIVAProveedores.fr3 b/Source/Informes/InformeIVAProveedores.fr3 index 1f0f511..ad220a0 100644 --- a/Source/Informes/InformeIVAProveedores.fr3 +++ b/Source/Informes/InformeIVAProveedores.fr3 @@ -1,29 +1,28 @@ - + - + - - - + + - - - - - - - + + + + + + + - + @@ -33,16 +32,16 @@ - - - - + + + + - + @@ -52,19 +51,19 @@ - - - - - - - + + + + + + + - - - - + + + + diff --git a/Source/Informes/InformeIVAProveedoresDesglosado.fr3 b/Source/Informes/InformeIVAProveedoresDesglosado.fr3 index 0f43ffa..1a78de7 100644 --- a/Source/Informes/InformeIVAProveedoresDesglosado.fr3 +++ b/Source/Informes/InformeIVAProveedoresDesglosado.fr3 @@ -1,29 +1,28 @@ - + - + - - - + + - - - - - - - + + + + + + + - + @@ -33,10 +32,10 @@ - - - - + + + + @@ -46,7 +45,7 @@ - + @@ -56,19 +55,19 @@ - - - - - - - + + + + + + + - - - - + + + + diff --git a/Source/Informes/InformeListadoFacturasCliente.fr3 b/Source/Informes/InformeListadoFacturasCliente.fr3 index 3c8cda3..52250d0 100644 --- a/Source/Informes/InformeListadoFacturasCliente.fr3 +++ b/Source/Informes/InformeListadoFacturasCliente.fr3 @@ -1,30 +1,29 @@ - + - + - - - + + - - - - - - - + + + + + + + - + @@ -34,15 +33,15 @@ - - - - + + + + - + @@ -52,19 +51,19 @@ - - - - - - - + + + + + + + - - - - + + + + diff --git a/Source/Informes/InformeListadoFacturasClienteDesglosado.fr3 b/Source/Informes/InformeListadoFacturasClienteDesglosado.fr3 index a6a0da8..4280f4d 100644 --- a/Source/Informes/InformeListadoFacturasClienteDesglosado.fr3 +++ b/Source/Informes/InformeListadoFacturasClienteDesglosado.fr3 @@ -1,29 +1,28 @@ - + - + - - - + + - - - - - - - + + + + + + + - + @@ -33,24 +32,24 @@ - - - - + + + + - - - - + + + + - + @@ -60,19 +59,19 @@ - - - - - - - + + + + + + + - - - - + + + + diff --git a/Source/Informes/InformeListadoFacturasClientePendientes.fr3 b/Source/Informes/InformeListadoFacturasClientePendientes.fr3 index 55137d7..10f95ba 100644 --- a/Source/Informes/InformeListadoFacturasClientePendientes.fr3 +++ b/Source/Informes/InformeListadoFacturasClientePendientes.fr3 @@ -1,27 +1,26 @@ - + - + - - - + + - - - - - + + + + + - + @@ -29,15 +28,15 @@ - - - + + + - + @@ -47,19 +46,19 @@ - - - - - - - + + + + + + + - - - - + + + + diff --git a/Source/Informes/InformeListadoFacturasClientePendientesDesglosado.fr3 b/Source/Informes/InformeListadoFacturasClientePendientesDesglosado.fr3 index 14ab835..f01667d 100644 --- a/Source/Informes/InformeListadoFacturasClientePendientesDesglosado.fr3 +++ b/Source/Informes/InformeListadoFacturasClientePendientesDesglosado.fr3 @@ -1,27 +1,26 @@ - + - + - - - + + - - - - - + + + + + - + @@ -29,9 +28,9 @@ - - - + + + @@ -41,7 +40,7 @@ - + @@ -51,19 +50,19 @@ - - - - - - - + + + + + + + - - - - + + + + diff --git a/Source/Informes/InformeListadoFacturasProveedor.fr3 b/Source/Informes/InformeListadoFacturasProveedor.fr3 index d82b243..2c9edae 100644 --- a/Source/Informes/InformeListadoFacturasProveedor.fr3 +++ b/Source/Informes/InformeListadoFacturasProveedor.fr3 @@ -1,30 +1,29 @@ - + - + - - - + + - - - - - - - + + + + + + + - + - + @@ -35,16 +34,16 @@ - - - - + + + + - + @@ -54,19 +53,19 @@ - - - - - - - + + + + + + + - - - - + + + + diff --git a/Source/Informes/InformeListadoFacturasProveedorDesglosado.fr3 b/Source/Informes/InformeListadoFacturasProveedorDesglosado.fr3 index d79bfec..e699e3e 100644 --- a/Source/Informes/InformeListadoFacturasProveedorDesglosado.fr3 +++ b/Source/Informes/InformeListadoFacturasProveedorDesglosado.fr3 @@ -1,30 +1,29 @@ - + - + - - - + + - - - - - - + + + + + + - - + + - + @@ -35,10 +34,10 @@ - - - - + + + + @@ -48,7 +47,7 @@ - + @@ -58,19 +57,19 @@ - - - - - - - + + + + + + + - - - - + + + + diff --git a/Source/Informes/InformeListadoFacturasProveedorPendientes.fr3 b/Source/Informes/InformeListadoFacturasProveedorPendientes.fr3 index f4f5cf2..c484f5d 100644 --- a/Source/Informes/InformeListadoFacturasProveedorPendientes.fr3 +++ b/Source/Informes/InformeListadoFacturasProveedorPendientes.fr3 @@ -1,28 +1,27 @@ - + - + - - - + + - - - - + + + + - - + + - + @@ -31,15 +30,15 @@ - - - + + + - + @@ -49,19 +48,19 @@ - - - - - - - + + + + + + + - - - - + + + + diff --git a/Source/Informes/InformeListadoFacturasProveedorPendientesDesglosado.fr3 b/Source/Informes/InformeListadoFacturasProveedorPendientesDesglosado.fr3 index 60225d6..7901990 100644 --- a/Source/Informes/InformeListadoFacturasProveedorPendientesDesglosado.fr3 +++ b/Source/Informes/InformeListadoFacturasProveedorPendientesDesglosado.fr3 @@ -1,28 +1,27 @@ - + - + - - - + + - - - - + + + + - - + + - + @@ -31,9 +30,9 @@ - - - + + + @@ -43,7 +42,7 @@ - + @@ -53,19 +52,19 @@ - - - - - - - + + + + + + + - - - - + + + + diff --git a/Source/Informes/InformeListadoPresupuestos.fr3 b/Source/Informes/InformeListadoPresupuestos.fr3 index 26719ff..e820f70 100644 --- a/Source/Informes/InformeListadoPresupuestos.fr3 +++ b/Source/Informes/InformeListadoPresupuestos.fr3 @@ -1,28 +1,27 @@ - + - + - - - + + - - - - - - - + + + + + + + @@ -35,8 +34,8 @@ - - + + diff --git a/Source/Informes/InformeListadoPresupuestosDesglosado.fr3 b/Source/Informes/InformeListadoPresupuestosDesglosado.fr3 index 7abc004..da24346 100644 --- a/Source/Informes/InformeListadoPresupuestosDesglosado.fr3 +++ b/Source/Informes/InformeListadoPresupuestosDesglosado.fr3 @@ -1,28 +1,27 @@ - + - + - - - + + - - - - - - - + + + + + + + @@ -35,8 +34,8 @@ - - + + diff --git a/Source/Informes/InformeListadoRecibosCliPendientes.fr3 b/Source/Informes/InformeListadoRecibosCliPendientes.fr3 index 1c801f0..30fabe9 100644 --- a/Source/Informes/InformeListadoRecibosCliPendientes.fr3 +++ b/Source/Informes/InformeListadoRecibosCliPendientes.fr3 @@ -1,40 +1,40 @@ - + - - - - - - - + + + + + + + - - - - - - + + + + + + - - - - - - - + + + + + + + - - + + diff --git a/Source/Informes/InformeListadoRecibosCliPendientesDesglosado.fr3 b/Source/Informes/InformeListadoRecibosCliPendientesDesglosado.fr3 index 80f3304..db3f151 100644 --- a/Source/Informes/InformeListadoRecibosCliPendientesDesglosado.fr3 +++ b/Source/Informes/InformeListadoRecibosCliPendientesDesglosado.fr3 @@ -1,40 +1,40 @@ - + - - - - - - - + + + + + + + - - - - - - + + + + + + - - - - - - + + + + + + - - + + diff --git a/Source/Informes/InformeListadoRecibosCliente.fr3 b/Source/Informes/InformeListadoRecibosCliente.fr3 index 0830d29..7600f8d 100644 --- a/Source/Informes/InformeListadoRecibosCliente.fr3 +++ b/Source/Informes/InformeListadoRecibosCliente.fr3 @@ -1,40 +1,40 @@ - + - - - - - - - + + + + + + + - - - - - + + + + + - + - - - - - - + + + + + + - - + + diff --git a/Source/Informes/InformeListadoRecibosClienteDesglosado.fr3 b/Source/Informes/InformeListadoRecibosClienteDesglosado.fr3 index 2ec49cc..2fc26d1 100644 --- a/Source/Informes/InformeListadoRecibosClienteDesglosado.fr3 +++ b/Source/Informes/InformeListadoRecibosClienteDesglosado.fr3 @@ -1,40 +1,40 @@ - + - - - - - - - + + + + + + + - - - - - - + + + + + + - - - - - - + + + + + + - - + + diff --git a/Source/Informes/InformeListadoRecibosProvPendientes.fr3 b/Source/Informes/InformeListadoRecibosProvPendientes.fr3 index 2564e11..9c1a566 100644 --- a/Source/Informes/InformeListadoRecibosProvPendientes.fr3 +++ b/Source/Informes/InformeListadoRecibosProvPendientes.fr3 @@ -1,30 +1,30 @@ - + - - - - - - - + + + + + + + - - - - - - + + + + + + - + @@ -33,8 +33,8 @@ - - + + diff --git a/Source/Informes/InformeListadoRecibosProvPendientesDesglosado.fr3 b/Source/Informes/InformeListadoRecibosProvPendientesDesglosado.fr3 index 1c5b425..3da9ef2 100644 --- a/Source/Informes/InformeListadoRecibosProvPendientesDesglosado.fr3 +++ b/Source/Informes/InformeListadoRecibosProvPendientesDesglosado.fr3 @@ -1,30 +1,30 @@ - + - - - - - - - + + + + + + + - - - - - - + + + + + + - + @@ -33,8 +33,8 @@ - - + + diff --git a/Source/Informes/InformeListadoRecibosProveedor.fr3 b/Source/Informes/InformeListadoRecibosProveedor.fr3 index a236a18..029524c 100644 --- a/Source/Informes/InformeListadoRecibosProveedor.fr3 +++ b/Source/Informes/InformeListadoRecibosProveedor.fr3 @@ -1,30 +1,30 @@ - + - - - - - - - + + + + + + + - - - - - - + + + + + + - + @@ -33,8 +33,8 @@ - - + + diff --git a/Source/Informes/InformeListadoRecibosProveedorDesglosado.fr3 b/Source/Informes/InformeListadoRecibosProveedorDesglosado.fr3 index 215b902..ea85915 100644 --- a/Source/Informes/InformeListadoRecibosProveedorDesglosado.fr3 +++ b/Source/Informes/InformeListadoRecibosProveedorDesglosado.fr3 @@ -1,30 +1,30 @@ - + - - - - - - - + + + + + + + - - - - - - + + + + + + - + @@ -33,8 +33,8 @@ - - + + diff --git a/Source/Lib/ApplicationBase.dcp b/Source/Lib/ApplicationBase.dcp index bd3bd90..30d8d18 100644 Binary files a/Source/Lib/ApplicationBase.dcp and b/Source/Lib/ApplicationBase.dcp differ diff --git a/Source/Lib/Base.dcp b/Source/Lib/Base.dcp index 0c86d17..a24600b 100644 Binary files a/Source/Lib/Base.dcp and b/Source/Lib/Base.dcp differ diff --git a/Source/Lib/GUIBase.dcp b/Source/Lib/GUIBase.dcp index d1f131b..6f911da 100644 Binary files a/Source/Lib/GUIBase.dcp and b/Source/Lib/GUIBase.dcp differ diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm index 20afafe..4d1fa9e 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm @@ -1413,16 +1413,11 @@ object RptFacturasCliente: TRptFacturasCliente EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] - PreviewOptions.OutlineWidth = 180 PreviewOptions.Zoom = 1.000000000000000000 - PrintOptions.Printer = 'Default' + PrintOptions.Printer = 'Por defecto' PrintOptions.PrintOnSheet = 0 - ReportOptions.CreateDate = 37871.995398692100000000 - ReportOptions.LastChange = 40122.799261608790000000 - ReportOptions.VersionBuild = '1' - ReportOptions.VersionMajor = '12' - ReportOptions.VersionMinor = '13' - ReportOptions.VersionRelease = '1' + ReportOptions.CreateDate = 37800.807714351900000000 + ReportOptions.LastChange = 40871.744534236110000000 ScriptLanguage = 'PascalScript' ShowProgress = False StoreInDFM = False diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas index 92bf1d2..f420e19 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas @@ -73,7 +73,7 @@ implementation {$R *.dfm} uses - uSistemaFunc, StrUtils, uROServer, DataAbstract4_Intf, + uRORemoteDataModule, uSistemaFunc, StrUtils, uROServer, DataAbstract4_Intf, uDataModuleServer, schFacturasClienteClient_Intf; const @@ -327,10 +327,21 @@ procedure TRptFacturasCliente.IniciarParametrosInforme; var ATextos : TStringList; ACadena : String; + AEmpresasService : IsrvEmpresas; + Intf : IInterface; + AClientID: TGUID; + + begin ATextos := TStringList.Create; try + CreateGUID(AClientID); + GetClassFactory('srvEmpresas').CreateInstance(AClientID, Intf); + AEmpresasService := Intf as IsrvEmpresas; + ATextos.Add(AEmpresasService.DarNombre(FIdEmpresa)); + + if (not VarIsNull(FFechaInicio)) and (not VarIsNull(FFechaFin)) then ACadena := Format('Fechas de factura desde el %s hasta el %s', [VarToStr(FFechaInicio), VarToStr(FFechaFin)]) else @@ -379,6 +390,7 @@ var i: Integer; begin + // Filtrar el informe por empresa with ATabla.DynamicWhere do begin diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm index b8135ff..b2683e6 100644 --- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm +++ b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm @@ -498,7 +498,7 @@ object RptFacturasProveedor: TRptFacturasProveedor Top = 158 end object frxReport: TfrxReport - Version = '4.3' + Version = '4.8.11' DotMatrixReport = False EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' @@ -509,25 +509,6 @@ object RptFacturasProveedor: TRptFacturasProveedor ReportOptions.CreateDate = 37800.807714351900000000 ReportOptions.LastChange = 39884.811485821760000000 ScriptLanguage = 'PascalScript' - ScriptText.Strings = ( - 'procedure mContinuaOnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if Engine.FinalPass then' - ' begin' - ' if ( = ) then' - ' begin ' - ' mContinua.Visible := False;' - ' end ' - ' else' - ' begin ' - ' mContinua.Visible := True;' - ' end ' - ' end; ' - 'end;' - '' - 'begin' - '' - 'end.') ShowProgress = False StoreInDFM = False OnStartReport = 'frxReportOnStartReport' @@ -619,6 +600,7 @@ object RptFacturasProveedor: TRptFacturasProveedor UserName = 'frxDBInformeListadoFacturas' CloseDataSource = True DataSource = DADSInformeListadoFacturas + BCDToCurrency = False Left = 464 Top = 16 end @@ -630,6 +612,7 @@ object RptFacturasProveedor: TRptFacturasProveedor UserName = 'frxDBInformeListadoFacturasResumen' CloseDataSource = True DataSource = DADSInformeListadoFacturasResumen + BCDToCurrency = False Left = 648 Top = 24 end diff --git a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas index 06e8160..3aa046d 100644 --- a/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas +++ b/Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas @@ -308,10 +308,19 @@ procedure TRptFacturasProveedor.IniciarParametrosInforme; var ATextos : TStringList; ACadena : String; + AEmpresasService : IsrvEmpresas; + Intf : IInterface; + AClientID: TGUID; + begin ATextos := TStringList.Create; try + CreateGUID(AClientID); + GetClassFactory('srvEmpresas').CreateInstance(AClientID, Intf); + AEmpresasService := Intf as IsrvEmpresas; + ATextos.Add(AEmpresasService.DarNombre(FIdEmpresa)); + if (not VarIsNull(FFechaInicio)) and (not VarIsNull(FFechaFin)) then ACadena := Format('Fechas de factura desde el %s hasta el %s', [VarToStr(FFechaInicio), VarToStr(FFechaFin)]) else diff --git a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas index 4494e8c..7d3d9ad 100644 --- a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas +++ b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas @@ -50,7 +50,7 @@ implementation {$R *.dfm} uses - uSistemaFunc, uDataModuleServer, schRecibosClienteClient_Intf; + uROServer, uSistemaFunc, uDataModuleServer, schRecibosClienteClient_Intf; const rptInforme = 'InfReciboCliente.fr3'; @@ -144,10 +144,15 @@ var Condicion: TDAWhereExpression; i: Integer; AInforme: Variant; + Intf : IInterface; + AClientID: TGUID; + AEmpresasService : IsrvEmpresas; + ATextos : TStringList; begin Result := Binary.Create; FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" + ATextos := TStringList.Create; try @@ -236,6 +241,13 @@ begin raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe ' + TipoInforme)); frxReport.LoadFromFile(AInforme, True); + + CreateGUID(AClientID); + GetClassFactory('srvEmpresas').CreateInstance(AClientID, Intf); + AEmpresasService := Intf as IsrvEmpresas; + ATextos.Add(AEmpresasService.DarNombre(IdEmpresa)); + + frxReport.Variables.Variables['TextoParametros'] := ATextos.Text; frxReport.Variables.Variables['FechaInicio'] := FechaInicio; frxReport.Variables.Variables['FechaFin'] := FechaFin; @@ -243,6 +255,7 @@ begin frxReport.PreviewPages.SaveToStream(Result); finally + FreeAndNil(ATextos); FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" end; end; diff --git a/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.dfm b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.dfm index 663e223..04da435 100644 --- a/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.dfm +++ b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.dfm @@ -194,7 +194,7 @@ object RptRecibosProveedor: TRptRecibosProveedor Top = 158 end object frxReport: TfrxReport - Version = '4.3' + Version = '4.8.11' DotMatrixReport = False EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' @@ -212,39 +212,6 @@ object RptRecibosProveedor: TRptRecibosProveedor ReportOptions.VersionMinor = '13' ReportOptions.VersionRelease = '1' ScriptLanguage = 'PascalScript' - ScriptText.Strings = ( - 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);' - 'var' - ' Cadena: String;' - 'begin' - ' DatosEmpresa.Lines.Clear;' - ' DatosEmpresa.Lines.Add();' - ' DatosEmpresa.Lines.Add();' - '' - ' Cadena := '#39#39';' - ' if ( <> '#39#39') then' - ' Cadena := '#39'TLF: '#39' + ;' - ' if ( <> '#39#39') then' - ' Cadena := Cadena + '#39' FAX: '#39' + ;' - ' DatosEmpresa.Lines.Add(Cadena);' - '' - ' Cadena := '#39#39';' - ' if ( <> '#39#39') then' - ' Cadena := ;' - ' if ( <> '#39#39') then' - - ' Cadena := Cadena + '#39' '#39' + ;' - ' if ( <> '#39#39') then' - - ' Cadena := Cadena + '#39' - '#39' + ;' - ' DatosEmpresa.Lines.Add(Cadena);' - 'end;' - '' - 'begin' - '' - 'end.') ShowProgress = False StoreInDFM = False Left = 169 @@ -308,8 +275,6 @@ object RptRecibosProveedor: TRptRecibosProveedor RemoteFetchEnabled = False LocalSchema = schReport LocalDataStreamer = Bin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'InformeListadoRecibos' IndexDefs = <> Left = 360 @@ -325,6 +290,7 @@ object RptRecibosProveedor: TRptRecibosProveedor UserName = 'frxDBInformeListadoRecibos' CloseDataSource = True DataSource = DADSInformeListadoRecibos + BCDToCurrency = False Left = 360 Top = 16 end diff --git a/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas index 92a2680..3966e6e 100644 --- a/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas +++ b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas @@ -40,7 +40,7 @@ implementation {$R *.dfm} uses - uSistemaFunc, uDataModuleServer, schRecibosProveedorClient_Intf; + uROServer, uSistemaFunc, uDataModuleServer, schRecibosProveedorClient_Intf; const rptInformeListadoRecibosProveedorDesglosado = 'InformeListadoRecibosProveedorDesglosado.fr3'; @@ -121,10 +121,15 @@ var Condicion: TDAWhereExpression; i: Integer; AInforme: Variant; + Intf : IInterface; + AClientID: TGUID; + AEmpresasService : IsrvEmpresas; + ATextos : TStringList; begin Result := Binary.Create; FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" + ATextos := TStringList.Create; try @@ -213,6 +218,14 @@ begin raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe ' + TipoInforme)); frxReport.LoadFromFile(AInforme, True); + + CreateGUID(AClientID); + GetClassFactory('srvEmpresas').CreateInstance(AClientID, Intf); + AEmpresasService := Intf as IsrvEmpresas; + ATextos.Add(AEmpresasService.DarNombre(IdEmpresa)); + + frxReport.Variables.Variables['TextoParametros'] := ATextos.Text; + frxReport.Variables.Variables['FechaInicio'] := FechaInicio; frxReport.Variables.Variables['FechaFin'] := FechaFin; @@ -220,6 +233,7 @@ begin frxReport.PreviewPages.SaveToStream(Result); finally + FreeAndNil(ATextos); FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" end; end; diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL index 132ab49..42a329d 100644 --- a/Source/Servicios/FactuGES.RODL +++ b/Source/Servicios/FactuGES.RODL @@ -115,6 +115,14 @@ + + + + + + + + diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas index 111c7d4..d884dcf 100644 --- a/Source/Servicios/FactuGES_Intf.pas +++ b/Source/Servicios/FactuGES_Intf.pas @@ -289,6 +289,7 @@ type function DarTiendaUsuario(const ID_EMPRESA: Integer; const ID_USUARIO: Integer): Integer; function DarListaFormasPago: Binary; function DarListaTiposIVA: Binary; + function DarNombre(const ID_EMPRESA: Integer): AnsiString; end; { CosrvEmpresas } @@ -304,6 +305,7 @@ type function DarTiendaUsuario(const ID_EMPRESA: Integer; const ID_USUARIO: Integer): Integer; function DarListaFormasPago: Binary; function DarListaTiposIVA: Binary; + function DarNombre(const ID_EMPRESA: Integer): AnsiString; end; { IsrvConfiguracion } @@ -1483,6 +1485,22 @@ begin end end; +function TsrvEmpresas_Proxy.DarNombre(const ID_EMPRESA: Integer): AnsiString; +begin + try + __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarNombre'); + __Message.Write('ID_EMPRESA', TypeInfo(Integer), ID_EMPRESA, []); + __Message.Finalize; + + __TransportChannel.Dispatch(__Message); + + __Message.Read('Result', TypeInfo(AnsiString), result, []); + finally + __Message.UnsetAttributes(__TransportChannel); + __Message.FreeStream; + end +end; + { CosrvConfiguracion } class function CosrvConfiguracion.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvConfiguracion; diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas index 4b07853..57a2d23 100644 --- a/Source/Servicios/FactuGES_Invk.pas +++ b/Source/Servicios/FactuGES_Invk.pas @@ -67,6 +67,7 @@ type procedure Invoke_DarTiendaUsuario(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure Invoke_DarListaFormasPago(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure Invoke_DarListaTiposIVA(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); + procedure Invoke_DarNombre(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); end; TsrvConfiguracion_Invoker = class(TDataAbstractService_Invoker) @@ -579,6 +580,26 @@ begin end; end; +procedure TsrvEmpresas_Invoker.Invoke_DarNombre(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); +{ function DarNombre(const ID_EMPRESA: Integer): AnsiString; } +var + ID_EMPRESA: Integer; + lResult: AnsiString; +begin + try + __Message.Read('ID_EMPRESA', TypeInfo(Integer), ID_EMPRESA, []); + + lResult := (__Instance as IsrvEmpresas).DarNombre(ID_EMPRESA); + + __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvEmpresas', 'DarNombreResponse'); + __Message.Write('Result', TypeInfo(AnsiString), lResult, []); + __Message.Finalize; + __Message.UnsetAttributes(__Transport); + + finally + end; +end; + { TsrvConfiguracion_Invoker } constructor TsrvConfiguracion_Invoker.Create; diff --git a/Source/Servicios/RODLFile.res b/Source/Servicios/RODLFile.res index 4626e4d..54ae147 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 992d7f9..47e4292 100644 Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ diff --git a/Source/Servidor/uDataModuleServer.dfm b/Source/Servidor/uDataModuleServer.dfm index ab90464..57ff57e 100644 --- a/Source/Servidor/uDataModuleServer.dfm +++ b/Source/Servidor/uDataModuleServer.dfm @@ -41,9 +41,9 @@ object dmServer: TdmServer item Name = 'IBX' ConnectionString = - 'IBX?Server=localhost;Database=C:\Codigo Acana\Output\Debug\Datab' + - 'ase\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Char' + - 'set=ISO8859_1;' + 'IBX?Server=localhost;Database=C:\Codigo\Output\Debug\Database\FA' + + 'CTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=IS' + + 'O8859_1;' ConnectionType = 'Interbase' Default = True end>