From d3d3c317ee1b49e5dd381083f81c32593e4eec47 Mon Sep 17 00:00:00 2001 From: roberto Date: Mon, 28 Oct 2019 16:21:01 +0000 Subject: [PATCH] Cambio LOPD en presupuestos git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@48 9a1d36f3-7752-2d40-8ccb-50eb49674c68 --- BD/BASEDATOS.FDB | Bin 23820288 -> 23820288 bytes Cliente/FactuGES.dof | 14 +++++------ Cliente/FactuGES.res | Bin 172184 -> 172184 bytes .../Cliente/uDataModulePresupuestos.pas | 18 +++++++++++--- .../Servidor/srvPresupuestos_Impl.dfm | 23 ++++++++++++++++-- .../Servidor/srvPresupuestos_Impl.pas | 8 +++--- Output/Servidor/Informes/InfPresupuesto.fr3 | 16 ++++++------ Servidor/FactuGES.rodl | 2 ++ Servidor/FactuGES_Intf.pas | 7 +++--- Servidor/FactuGES_Invk.pas | 6 +++-- Servidor/FactuGES_Server.dof | 14 +++++------ Servidor/FactuGES_Server.res | Bin 23472 -> 23472 bytes Servidor/RODLFILE.res | Bin 23286 -> 23358 bytes 13 files changed, 72 insertions(+), 36 deletions(-) diff --git a/BD/BASEDATOS.FDB b/BD/BASEDATOS.FDB index d82c7004827d8d11703b8062d59fceb00a780df7..3d2d6a9b3c973fccc281244650a87141d5b059be 100644 GIT binary patch delta 1276 zcmYMoWpot;9ENf3?%jw114b`k3`WCfMt3)ij!TD$9jHUyqoSf%vlClTRP4a+F6_cC zOr}1@|AXiFp7ZyhEV-7aJ zhS&&mu`xEmrq~RdV+(AFd6@kvIxR;}{%^<8VAqz==2sC*u^Hiqmj9 z&cK;C3(Ijf&cV4j59i|oT!@QsF)qP0F2!ZI99Q5D7(BlsvjhL7VD_#{4sPvbNAEIxc5r4v;@fZ9Rf5UxPjlbg`_$P{g;otbrCKH=Ygp803sgN16Ld{Ss z)DCq*cBmWbh58{UGzbktqmUaKhbEzEXcn4>7NKRx3;CfS6oyuzbtnpLLUCvt+J%zP zK6D5jL#NO=bO~KUx6nP5h9043=oNa0KA~^u7y5^?Fdz&JgTml2Bn%D1!tgL6j0~f~ z=rAUX4dcT2Fd<9~lfvXMB}@&|!t^jB%nY+ad6*sMgt=i}m>(8|g<(-x9F~N1SQ?gv W@L(r<*BIHVs|SxV2efA-QC>^>NDoU zbDT5xW2WqfwZ&yoQm{jxF3%P2@PEn`mlgfDHs#+OTMExEDJk4sxT17rX~D|U!gZxZ z>$eqdEnHJ!d(p-X&9|5DTZCyjERPkiB38m3u`(8872FA{Vl}LeHLxbu!rE8|>*CH> z59?zCY>17pF*d=b*bJLv3v7w4ur-!o8*Gd1a2ITk9k3&I!p_(QyJ9!o6}w{(?1{aw zH}=84*bn>T033*ea4-(Rp*ReO;|LsyyWuDtjbm^uj>GX-iW6`mPQuAJ1*hUP+#UD8 z={N&t;w+qvb8t_bi}P?kF2IGj2p8jCxCHmcrML|D!F_Q*+#e6X1Mwg{7!Sci@i06b zkH91GC_EaE!R2@?9*4(c8Lq$+@I*WbS0Z>ao`R?1Dm)EO$1`v>o{4AS*?10~i|66_ zcmb}#3-Kbn7%#y~@iM#|ufQwuD!dx6!E5n4ydH1B8}TN*8E?T`aV_44x8ognC*Fm3 z<2|?z*W(7f7w^OS@d11gAHs+65!{H6;$!$YK7mi-Cftl$a4SBAPvbNAEIxh=$Q98b_088qK14w1}3`Dq2TLw28LSE_R9b(IGlU zr|2AAqHA=EU88&Sh@R0adPkq=8~vhx42Xd-C~*#<&x4?X3UD&F(>wnxiK&1$AVZGi(+x?6-#38SXywK%Lh($ 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 bf08909e8d5d5e62dec7896a76c8152d95ecdc3a..dc3a26acb271409ece73e0dc7760ff7f6f11ce74 100644 GIT binary patch delta 43 zcmbPnkZZ<4u7(!IElgtbIN2E37#JBC7}%!E&tv+^XtrH+K9e*fquF%B1x)Dx4F3yd delta 43 zcmbPnkZZ<4u7(!IElgtbI9VCk7#JBC7+9yv&tv+^Xu4f=K9e*fqv>?R1x)Dx47m$o 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 a85e4dd5d5bd4e0b214c7e0a2c1a628feea30d5b..6addba73f6a3b78d4aefa361c04b2b4360232d9e 100644 GIT binary patch delta 36 qcmdn6opA#Y8AWokF|aW(GB7Z(O}38w%4oLPFiM<}(QLA3bUFaL;t8ez delta 36 qcmdn6opA#Y8AWokGO#f)GB7Z(PPUHx%4oXTFiM<}(R8wBbUFaLr3s<{ diff --git a/Servidor/RODLFILE.res b/Servidor/RODLFILE.res index 968622e264c246dded1171ec73d413707f2761ef..0e3569e3d59bc32ba7e8d92451128986ea7b524c 100644 GIT binary patch delta 39 vcmeyim2uxT#t90H?=~uamziw9EWlonnC{~r;4-<9J#O+jbKcECvP*0MKfwkd(RdCT4M;Q