diff --git a/BD/BASEDATOS.FDB b/BD/BASEDATOS.FDB index d82c700..3d2d6a9 100644 Binary files a/BD/BASEDATOS.FDB and b/BD/BASEDATOS.FDB differ diff --git a/Cliente/FactuGES.dof b/Cliente/FactuGES.dof index dc88775..aee25af 100644 --- a/Cliente/FactuGES.dof +++ b/Cliente/FactuGES.dof @@ -114,7 +114,7 @@ IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=6 -Release=5 +Release=6 Build=0 Debug=0 PreRelease=0 @@ -126,13 +126,13 @@ CodePage=1252 [Version Info Keys] CompanyName=Rodax Software S.L. FileDescription= -FileVersion=1.6.5.0 +FileVersion=1.6.6.0 InternalName=FactuGES LegalCopyright= LegalTrademarks= OriginalFilename= ProductName=FactuGES -ProductVersion=1.6.5.0 +ProductVersion=1.6.6.0 Comments= [Excluded Packages] C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc. @@ -183,8 +183,8 @@ Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] Count=16 -Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas -Item1=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas +Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas +Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente @@ -204,8 +204,8 @@ Count=1 Item0=.\ [HistoryLists\hlOutputDirectorry] Count=2 -Item0=..\Output\Cliente -Item1=..\Output\Servidor +Item0=..\Output\Servidor +Item1=..\Output\Cliente [HistoryLists\hlBPLOutput] Count=3 Item0=..\..\..\Output\Cliente diff --git a/Cliente/FactuGES.res b/Cliente/FactuGES.res index bf08909..dc3a26a 100644 Binary files a/Cliente/FactuGES.res and b/Cliente/FactuGES.res differ diff --git a/Modulos/Presupuestos/Cliente/uDataModulePresupuestos.pas b/Modulos/Presupuestos/Cliente/uDataModulePresupuestos.pas index 7df00e6..c30c2d4 100644 --- a/Modulos/Presupuestos/Cliente/uDataModulePresupuestos.pas +++ b/Modulos/Presupuestos/Cliente/uDataModulePresupuestos.pas @@ -87,7 +87,7 @@ uses Forms, Controls, cxControls, uDataTableUtils, uBizContacto, Dialogs, Variants, uDataModuleContactos, uDataModuleBase, schPresupuestosClient_Intf, uDAInterfaces, uEditorPreview, uEditorPreviewPresupuesto, uROTypes, - uDBSelectionList; + uDBSelectionList, Windows; function TdmPresupuestos.GetPresupuestos: IBizPresupuestos; var @@ -176,10 +176,15 @@ procedure TdmPresupuestos.Preview(Const Codigo: Integer); var AStream: TROBinaryMemoryStream; AEditorPreviewPresupuesto : TfEditorPreviewPresupuesto; + lopd: integer; begin + lopd := 1; AEditorPreviewPresupuesto := TfEditorPreviewPresupuesto.Create(Application); try - AStream := (RORemoteService as IsrvPresupuestos).GenerateReport(Codigo, 0); + if (Application.MessageBox('¿Desea incluir hoja de GDPR?', 'Atención', MB_YESNO) = IDNO) then + lopd:= 0; + + AStream := (RORemoteService as IsrvPresupuestos).GenerateReport(Codigo, 0, lopd); AEditorPreviewPresupuesto.Report.PreviewPages.LoadFromStream(AStream); AEditorPreviewPresupuesto.Codigo := Codigo; AEditorPreviewPresupuesto.ShowModal; @@ -219,10 +224,15 @@ procedure TdmPresupuestos.Print(const Codigo: Integer); var AStream: TROBinaryMemoryStream; AEditorPreview : TfEditorPreview; + lopd: integer; begin + lopd := 1; AEditorPreview := TfEditorPreview.Create(Application); try - AStream := (RORemoteService as IsrvPresupuestos).GenerateReport(Codigo, 0); + if (Application.MessageBox('¿Desea incluir hoja de GDPR?', 'Atención', MB_YESNO) = IDNO) then + lopd:= 0; + + AStream := (RORemoteService as IsrvPresupuestos).GenerateReport(Codigo, 0, lopd); AEditorPreview.Report.PreviewPages.LoadFromStream(AStream); AEditorPreview.Print; finally @@ -323,7 +333,7 @@ procedure TdmPresupuestos.Refrescar(lReport: TfrxReport; Const Codigo: Integer; var AStream: TROBinaryMemoryStream; begin - AStream := (RORemoteService as IsrvPresupuestos).GenerateReport(Codigo, TamLetra); + AStream := (RORemoteService as IsrvPresupuestos).GenerateReport(Codigo, TamLetra, 0); lReport.PreviewPages.LoadFromStream(AStream); lReport.ShowPreparedReport; end; diff --git a/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.dfm b/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.dfm index c338bce..5b8ba4a 100644 --- a/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.dfm +++ b/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.dfm @@ -1921,7 +1921,7 @@ object srvPresupuestos: TsrvPresupuestos ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.Description.Strings = ( 'Demonstrates how to create simple list report.') - ReportOptions.LastChange = 43487.523822719910000000 + ReportOptions.LastChange = 43766.726568657410000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' @@ -2026,6 +2026,17 @@ object srvPresupuestos: TsrvPresupuestos ' end;' 'end;' '' + 'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' if ( = 1) then' + ' PageLOPD.visible := true' + ' else' + ' begin' + ' PageLOPD.visible := false;' + ' set ('#39'TotalPages#'#39', - 1);' + ' end;' + 'end;' + '' 'begin' '' 'end.') @@ -2041,7 +2052,15 @@ object srvPresupuestos: TsrvPresupuestos DataSet = frxDBDetalles DataSetName = 'frxDBDetalles' end> - Variables = <> + Variables = < + item + Name = ' paginaLOPD' + Value = Null + end + item + Name = 'lopd' + Value = Null + end> Style = < item Name = 'Concepto normal' diff --git a/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.pas b/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.pas index f549fbc..0a68153 100644 --- a/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.pas +++ b/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.pas @@ -36,7 +36,7 @@ type aSession: TROSession; const aMessage: IROMessage); private protected - function GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary; + function GenerateReport(const Codigo: Integer; const TamLetra: Integer; const pagLOPD: Integer = 1): Binary; function GetNextAutoinc: Integer; function PuedoEliminarPresupuesto(const CodigoPresupuesto: Integer): Boolean; end; @@ -62,7 +62,7 @@ begin TIBXConnection).Database.TraceFlags := [tfQPrepare, tfQExecute, tfQFetch, tfError, tfStmt, tfConnect, tfTransact, tfBlob, tfService, tfMisc]; end; -function TsrvPresupuestos.GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary; +function TsrvPresupuestos.GenerateReport(const Codigo: Integer; const TamLetra: Integer; const pagLOPD: Integer = 1): Binary; var dsMaster: IDADataset; dsDetail: IDADataset; @@ -85,8 +85,10 @@ begin if (dsMaster.Dataset.FieldByName(fld_DetallesPresupuestosTIPO).AsString = 'Inciencia') then frxReport1.LoadFromFile(DarRutaInformes + 'InfIncidencia.fr3', True) - else + else begin frxReport1.LoadFromFile(DarRutaInformes + 'InfPresupuesto.fr3', True); + frxReport1.Variables['lopd'] := pagLOPD; + end; //Tamaño de letra if TamLetra <> 0 then diff --git a/Output/Servidor/Informes/InfPresupuesto.fr3 b/Output/Servidor/Informes/InfPresupuesto.fr3 index 0862094..02827d4 100644 --- a/Output/Servidor/Informes/InfPresupuesto.fr3 +++ b/Output/Servidor/Informes/InfPresupuesto.fr3 @@ -1,5 +1,5 @@ - + @@ -19,11 +19,11 @@ - - - - - + + + + + @@ -69,8 +69,8 @@ - - + + diff --git a/Servidor/FactuGES.rodl b/Servidor/FactuGES.rodl index 917e330..bade2e2 100644 --- a/Servidor/FactuGES.rodl +++ b/Servidor/FactuGES.rodl @@ -94,6 +94,8 @@ + + diff --git a/Servidor/FactuGES_Intf.pas b/Servidor/FactuGES_Intf.pas index 50f648f..a147d30 100644 --- a/Servidor/FactuGES_Intf.pas +++ b/Servidor/FactuGES_Intf.pas @@ -168,7 +168,7 @@ type IsrvPresupuestos = interface(IDARemoteService) ['{B89887A1-264C-4BF9-8D0F-C20B4709F180}'] function GetNextAutoinc: Integer; - function GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary; + function GenerateReport(const Codigo: Integer; const TamLetra: Integer; const pagLOPD: Integer): Binary; function PuedoEliminarPresupuesto(const CodigoPresupuesto: Integer): Boolean; end; @@ -183,7 +183,7 @@ type function __GetInterfaceName:string; override; function GetNextAutoinc: Integer; - function GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary; + function GenerateReport(const Codigo: Integer; const TamLetra: Integer; const pagLOPD: Integer): Binary; function PuedoEliminarPresupuesto(const CodigoPresupuesto: Integer): Boolean; end; @@ -836,7 +836,7 @@ begin end end; -function TsrvPresupuestos_Proxy.GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary; +function TsrvPresupuestos_Proxy.GenerateReport(const Codigo: Integer; const TamLetra: Integer; const pagLOPD: Integer): Binary; var __request, __response : TMemoryStream; begin @@ -848,6 +848,7 @@ begin __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport'); __Message.Write('Codigo', TypeInfo(Integer), Codigo, []); __Message.Write('TamLetra', TypeInfo(Integer), TamLetra, []); + __Message.Write('pagLOPD', TypeInfo(Integer), pagLOPD, []); __Message.Finalize; __Message.WriteToStream(__request); diff --git a/Servidor/FactuGES_Invk.pas b/Servidor/FactuGES_Invk.pas index d39c288..f6227fb 100644 --- a/Servidor/FactuGES_Invk.pas +++ b/Servidor/FactuGES_Invk.pas @@ -366,10 +366,11 @@ begin end; procedure TsrvPresupuestos_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); -{ function GenerateReport(const Codigo: Integer; const TamLetra: Integer): Binary; } +{ function GenerateReport(const Codigo: Integer; const TamLetra: Integer; const pagLOPD: Integer): Binary; } var Codigo: Integer; TamLetra: Integer; + pagLOPD: Integer; lResult: Binary; __lObjectDisposer: TROObjectDisposer; begin @@ -377,8 +378,9 @@ begin try __Message.Read('Codigo', TypeInfo(Integer), Codigo, []); __Message.Read('TamLetra', TypeInfo(Integer), TamLetra, []); + __Message.Read('pagLOPD', TypeInfo(Integer), pagLOPD, []); - lResult := (__Instance as IsrvPresupuestos).GenerateReport(Codigo, TamLetra); + lResult := (__Instance as IsrvPresupuestos).GenerateReport(Codigo, TamLetra, pagLOPD); __Message.Initialize(__Transport, 'FactuGES', 'srvPresupuestos', 'GenerateReportResponse'); __Message.Write('Result', TypeInfo(Binary), lResult, []); diff --git a/Servidor/FactuGES_Server.dof b/Servidor/FactuGES_Server.dof index 30de0f5..cbb7095 100644 --- a/Servidor/FactuGES_Server.dof +++ b/Servidor/FactuGES_Server.dof @@ -114,7 +114,7 @@ IncludeVerInfo=1 AutoIncBuild=0 MajorVer=1 MinorVer=6 -Release=5 +Release=6 Build=0 Debug=0 PreRelease=0 @@ -126,13 +126,13 @@ CodePage=1252 [Version Info Keys] CompanyName=Rodax Software S.L. FileDescription= -FileVersion=1.6.5.0 +FileVersion=1.6.6.0 InternalName= LegalCopyright= LegalTrademarks= OriginalFilename= ProductName=FactuGES Server -ProductVersion=1.6.5.0 +ProductVersion=1.6.6.0 Comments= [Excluded Packages] C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc. @@ -183,8 +183,8 @@ Count=1 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; [HistoryLists\hlSearchPath] Count=16 -Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas -Item1=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas +Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas +Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente @@ -204,8 +204,8 @@ Count=1 Item0=.\ [HistoryLists\hlOutputDirectorry] Count=2 -Item0=..\Output\Cliente -Item1=..\Output\Servidor +Item0=..\Output\Servidor +Item1=..\Output\Cliente [HistoryLists\hlBPLOutput] Count=3 Item0=..\..\..\Output\Cliente diff --git a/Servidor/FactuGES_Server.res b/Servidor/FactuGES_Server.res index a85e4dd..6addba7 100644 Binary files a/Servidor/FactuGES_Server.res and b/Servidor/FactuGES_Server.res differ diff --git a/Servidor/RODLFILE.res b/Servidor/RODLFILE.res index 968622e..0e3569e 100644 Binary files a/Servidor/RODLFILE.res and b/Servidor/RODLFILE.res differ