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 AutoIncBuild=0
MajorVer=1 MajorVer=1
MinorVer=6 MinorVer=6
Release=5 Release=6
Build=0 Build=0
Debug=0 Debug=0
PreRelease=0 PreRelease=0
@ -126,13 +126,13 @@ CodePage=1252
[Version Info Keys] [Version Info Keys]
CompanyName=Rodax Software S.L. CompanyName=Rodax Software S.L.
FileDescription= FileDescription=
FileVersion=1.6.5.0 FileVersion=1.6.6.0
InternalName=FactuGES InternalName=FactuGES
LegalCopyright= LegalCopyright=
LegalTrademarks= LegalTrademarks=
OriginalFilename= OriginalFilename=
ProductName=FactuGES ProductName=FactuGES
ProductVersion=1.6.5.0 ProductVersion=1.6.6.0
Comments= Comments=
[Excluded Packages] [Excluded Packages]
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc. 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; Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlSearchPath] [HistoryLists\hlSearchPath]
Count=16 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 Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
Item1=..\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 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 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 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=.\ Item0=.\
[HistoryLists\hlOutputDirectorry] [HistoryLists\hlOutputDirectorry]
Count=2 Count=2
Item0=..\Output\Cliente Item0=..\Output\Servidor
Item1=..\Output\Servidor Item1=..\Output\Cliente
[HistoryLists\hlBPLOutput] [HistoryLists\hlBPLOutput]
Count=3 Count=3
Item0=..\..\..\Output\Cliente 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, Forms, Controls, cxControls, uDataTableUtils, uBizContacto, Dialogs, Variants,
uDataModuleContactos, uDataModuleBase, schPresupuestosClient_Intf, uDataModuleContactos, uDataModuleBase, schPresupuestosClient_Intf,
uDAInterfaces, uEditorPreview, uEditorPreviewPresupuesto, uROTypes, uDAInterfaces, uEditorPreview, uEditorPreviewPresupuesto, uROTypes,
uDBSelectionList; uDBSelectionList, Windows;
function TdmPresupuestos.GetPresupuestos: IBizPresupuestos; function TdmPresupuestos.GetPresupuestos: IBizPresupuestos;
var var
@ -176,10 +176,15 @@ procedure TdmPresupuestos.Preview(Const Codigo: Integer);
var var
AStream: TROBinaryMemoryStream; AStream: TROBinaryMemoryStream;
AEditorPreviewPresupuesto : TfEditorPreviewPresupuesto; AEditorPreviewPresupuesto : TfEditorPreviewPresupuesto;
lopd: integer;
begin begin
lopd := 1;
AEditorPreviewPresupuesto := TfEditorPreviewPresupuesto.Create(Application); AEditorPreviewPresupuesto := TfEditorPreviewPresupuesto.Create(Application);
try 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.Report.PreviewPages.LoadFromStream(AStream);
AEditorPreviewPresupuesto.Codigo := Codigo; AEditorPreviewPresupuesto.Codigo := Codigo;
AEditorPreviewPresupuesto.ShowModal; AEditorPreviewPresupuesto.ShowModal;
@ -219,10 +224,15 @@ procedure TdmPresupuestos.Print(const Codigo: Integer);
var var
AStream: TROBinaryMemoryStream; AStream: TROBinaryMemoryStream;
AEditorPreview : TfEditorPreview; AEditorPreview : TfEditorPreview;
lopd: integer;
begin begin
lopd := 1;
AEditorPreview := TfEditorPreview.Create(Application); AEditorPreview := TfEditorPreview.Create(Application);
try 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.Report.PreviewPages.LoadFromStream(AStream);
AEditorPreview.Print; AEditorPreview.Print;
finally finally
@ -323,7 +333,7 @@ procedure TdmPresupuestos.Refrescar(lReport: TfrxReport; Const Codigo: Integer;
var var
AStream: TROBinaryMemoryStream; AStream: TROBinaryMemoryStream;
begin begin
AStream := (RORemoteService as IsrvPresupuestos).GenerateReport(Codigo, TamLetra); AStream := (RORemoteService as IsrvPresupuestos).GenerateReport(Codigo, TamLetra, 0);
lReport.PreviewPages.LoadFromStream(AStream); lReport.PreviewPages.LoadFromStream(AStream);
lReport.ShowPreparedReport; lReport.ShowPreparedReport;
end; end;

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

@ -1921,7 +1921,7 @@ object srvPresupuestos: TsrvPresupuestos
ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.Description.Strings = ( ReportOptions.Description.Strings = (
'Demonstrates how to create simple list report.') 'Demonstrates how to create simple list report.')
ReportOptions.LastChange = 43487.523822719910000000 ReportOptions.LastChange = 43766.726568657410000000
ReportOptions.VersionBuild = '1' ReportOptions.VersionBuild = '1'
ReportOptions.VersionMajor = '12' ReportOptions.VersionMajor = '12'
ReportOptions.VersionMinor = '13' ReportOptions.VersionMinor = '13'
@ -2026,6 +2026,17 @@ object srvPresupuestos: TsrvPresupuestos
' end;' ' end;'
'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' 'begin'
'' ''
'end.') 'end.')
@ -2041,7 +2052,15 @@ object srvPresupuestos: TsrvPresupuestos
DataSet = frxDBDetalles DataSet = frxDBDetalles
DataSetName = 'frxDBDetalles' DataSetName = 'frxDBDetalles'
end> end>
Variables = <> Variables = <
item
Name = ' paginaLOPD'
Value = Null
end
item
Name = 'lopd'
Value = Null
end>
Style = < Style = <
item item
Name = 'Concepto normal' Name = 'Concepto normal'

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

@ -36,7 +36,7 @@ type
aSession: TROSession; const aMessage: IROMessage); aSession: TROSession; const aMessage: IROMessage);
private private
protected 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 GetNextAutoinc: Integer;
function PuedoEliminarPresupuesto(const CodigoPresupuesto: Integer): Boolean; function PuedoEliminarPresupuesto(const CodigoPresupuesto: Integer): Boolean;
end; end;
@ -62,7 +62,7 @@ begin
TIBXConnection).Database.TraceFlags := [tfQPrepare, tfQExecute, tfQFetch, tfError, tfStmt, tfConnect, tfTransact, tfBlob, tfService, tfMisc]; TIBXConnection).Database.TraceFlags := [tfQPrepare, tfQExecute, tfQFetch, tfError, tfStmt, tfConnect, tfTransact, tfBlob, tfService, tfMisc];
end; 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 var
dsMaster: IDADataset; dsMaster: IDADataset;
dsDetail: IDADataset; dsDetail: IDADataset;
@ -85,8 +85,10 @@ begin
if (dsMaster.Dataset.FieldByName(fld_DetallesPresupuestosTIPO).AsString = 'Inciencia') then if (dsMaster.Dataset.FieldByName(fld_DetallesPresupuestosTIPO).AsString = 'Inciencia') then
frxReport1.LoadFromFile(DarRutaInformes + 'InfIncidencia.fr3', True) frxReport1.LoadFromFile(DarRutaInformes + 'InfIncidencia.fr3', True)
else else begin
frxReport1.LoadFromFile(DarRutaInformes + 'InfPresupuesto.fr3', True); frxReport1.LoadFromFile(DarRutaInformes + 'InfPresupuesto.fr3', True);
frxReport1.Variables['lopd'] := pagLOPD;
end;
//Tamaño de letra //Tamaño de letra
if TamLetra <> 0 then 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>
<Parameter Name="TamLetra" DataType="Integer" Flag="In" > <Parameter Name="TamLetra" DataType="Integer" Flag="In" >
</Parameter> </Parameter>
<Parameter Name="pagLOPD" DataType="Integer" Flag="In" >
</Parameter>
</Parameters> </Parameters>
</Operation> </Operation>
<Operation Name="PuedoEliminarPresupuesto" UID="{72E29F64-4D4A-4FF0-8283-BB733595E172}"> <Operation Name="PuedoEliminarPresupuesto" UID="{72E29F64-4D4A-4FF0-8283-BB733595E172}">

7
Servidor/FactuGES_Intf.pas
View File

@ -168,7 +168,7 @@ type
IsrvPresupuestos = interface(IDARemoteService) IsrvPresupuestos = interface(IDARemoteService)
['{B89887A1-264C-4BF9-8D0F-C20B4709F180}'] ['{B89887A1-264C-4BF9-8D0F-C20B4709F180}']
function GetNextAutoinc: Integer; 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; function PuedoEliminarPresupuesto(const CodigoPresupuesto: Integer): Boolean;
end; end;
@ -183,7 +183,7 @@ type
function __GetInterfaceName:string; override; function __GetInterfaceName:string; override;
function GetNextAutoinc: Integer; 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; function PuedoEliminarPresupuesto(const CodigoPresupuesto: Integer): Boolean;
end; end;
@ -836,7 +836,7 @@ begin
end end
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 var
__request, __response : TMemoryStream; __request, __response : TMemoryStream;
begin begin
@ -848,6 +848,7 @@ begin
__Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport'); __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
__Message.Write('Codigo', TypeInfo(Integer), Codigo, []); __Message.Write('Codigo', TypeInfo(Integer), Codigo, []);
__Message.Write('TamLetra', TypeInfo(Integer), TamLetra, []); __Message.Write('TamLetra', TypeInfo(Integer), TamLetra, []);
__Message.Write('pagLOPD', TypeInfo(Integer), pagLOPD, []);
__Message.Finalize; __Message.Finalize;
__Message.WriteToStream(__request); __Message.WriteToStream(__request);

6
Servidor/FactuGES_Invk.pas
View File

@ -366,10 +366,11 @@ begin
end; end;
procedure TsrvPresupuestos_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); 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 var
Codigo: Integer; Codigo: Integer;
TamLetra: Integer; TamLetra: Integer;
pagLOPD: Integer;
lResult: Binary; lResult: Binary;
__lObjectDisposer: TROObjectDisposer; __lObjectDisposer: TROObjectDisposer;
begin begin
@ -377,8 +378,9 @@ begin
try try
__Message.Read('Codigo', TypeInfo(Integer), Codigo, []); __Message.Read('Codigo', TypeInfo(Integer), Codigo, []);
__Message.Read('TamLetra', TypeInfo(Integer), TamLetra, []); __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.Initialize(__Transport, 'FactuGES', 'srvPresupuestos', 'GenerateReportResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []); __Message.Write('Result', TypeInfo(Binary), lResult, []);

14
Servidor/FactuGES_Server.dof
View File

@ -114,7 +114,7 @@ IncludeVerInfo=1
AutoIncBuild=0 AutoIncBuild=0
MajorVer=1 MajorVer=1
MinorVer=6 MinorVer=6
Release=5 Release=6
Build=0 Build=0
Debug=0 Debug=0
PreRelease=0 PreRelease=0
@ -126,13 +126,13 @@ CodePage=1252
[Version Info Keys] [Version Info Keys]
CompanyName=Rodax Software S.L. CompanyName=Rodax Software S.L.
FileDescription= FileDescription=
FileVersion=1.6.5.0 FileVersion=1.6.6.0
InternalName= InternalName=
LegalCopyright= LegalCopyright=
LegalTrademarks= LegalTrademarks=
OriginalFilename= OriginalFilename=
ProductName=FactuGES Server ProductName=FactuGES Server
ProductVersion=1.6.5.0 ProductVersion=1.6.6.0
Comments= Comments=
[Excluded Packages] [Excluded Packages]
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc. 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; Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
[HistoryLists\hlSearchPath] [HistoryLists\hlSearchPath]
Count=16 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 Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
Item1=..\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 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 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 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=.\ Item0=.\
[HistoryLists\hlOutputDirectorry] [HistoryLists\hlOutputDirectorry]
Count=2 Count=2
Item0=..\Output\Cliente Item0=..\Output\Servidor
Item1=..\Output\Servidor Item1=..\Output\Cliente
[HistoryLists\hlBPLOutput] [HistoryLists\hlBPLOutput]
Count=3 Count=3
Item0=..\..\..\Output\Cliente Item0=..\..\..\Output\Cliente

BIN
Servidor/FactuGES_Server.res
View File

Binary file not shown.

BIN
Servidor/RODLFILE.res
View File

Binary file not shown.