AcotaCocinas/AlonsoYSal_FactuGES
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambio LOPD en presupuestos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@48 9a1d36f3-7752-2d40-8ccb-50eb49674c68
This commit is contained in:
roberto 2019-10-28 16:21:01 +00:00
parent db1bf7e089
commit d3d3c317ee
13 changed files with 72 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
BD/BASEDATOS.FDB
View File

Binary file not shown.

14
Cliente/FactuGES.dof
View File

@ -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

BIN
Cliente/FactuGES.res
View File

Binary file not shown.

18
Modulos/Presupuestos/Cliente/uDataModulePresupuestos.pas
View File

@ -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;

23
Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.dfm
View File

@ -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 (<lopd> = 1) then'
' PageLOPD.visible := true'
' else'
' begin'
' PageLOPD.visible := false;'
' set ('#39'TotalPages#'#39', <TotalPages> - 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'

8
Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.pas
View File

@ -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

16
Output/Servidor/Informes/InfPresupuesto.fr3
View File

File diff suppressed because one or more lines are too long

2
Servidor/FactuGES.rodl
View File

@ -94,6 +94,8 @@
</Parameter>
<Parameter Name="TamLetra" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="pagLOPD" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="PuedoEliminarPresupuesto" UID="{72E29F64-4D4A-4FF0-8283-BB733595E172}">

7
Servidor/FactuGES_Intf.pas
View File

@ -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);

6
Servidor/FactuGES_Invk.pas
View File

@ -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, []);

14
Servidor/FactuGES_Server.dof
View File

@ -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

BIN
Servidor/FactuGES_Server.res
View File

Binary file not shown.

BIN
Servidor/RODLFILE.res
View File

Binary file not shown.