Albaranes de proveedor: poder imprimirlos y exportarlos a Word.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@851 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Base/Base.dproj

@@ -54,57 +54,57 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxExportD11.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxGridD11.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxIntl6D11.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\cxIntl6D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxPageControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\designide.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\GUISDK_D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Indy_D11.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>

Source/Cliente/FactuGES.dproj

@@ -54,7 +54,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.6.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.6.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.6.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.6.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
       
       
       

Source/Cliente/FactuGES.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 1,6,3,0
+FILEVERSION 1,6,4,0
-PRODUCTVERSION 1,6,3,0
+PRODUCTVERSION 1,6,4,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "1.6.3.0\0"
+              VALUE "FileVersion", "1.6.4.0\0"
               VALUE "InternalName", "FactuGES\0"
               VALUE "ProductName", "FactuGES\0"
-              VALUE "ProductVersion", "1.6.3.0\0"
+              VALUE "ProductVersion", "1.6.4.0\0"
          END
     END
     BLOCK "VarFileInfo"

Source/Informes/2/InfPedidoProveedor.fr3

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39827,7433114468" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;{  DatosEmpresa.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  NombreEmpresa.Lines.Clear;&#13;&#10;  NombreEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_EMPRESA&#34;&#62;);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if &#60;frxDBCabecera.&#34;FECHA_ENTREGA&#34;&#62; = 0 then&#13;&#10;     Memo11.Visible := False                                                      &#13;&#10;  else&#13;&#10;     Memo11.Visible := True;      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo35OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not &#60;ImprimirPrecio&#62; then                                                    &#13;&#10;       Memo35.Lines.Clear;        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo36OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not &#60;ImprimirPrecio&#62; then                                                    &#13;&#10;       Memo36.Lines.Clear;        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo6OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not &#60;ImprimirRefProveedor&#62; then                                                    &#13;&#10;       Memo6.Lines.Clear;        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not Engine.FinalPass then&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;     Set('Pagina', (&#60;Pagina&#62; + 1));  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Set('Pagina', 0);&#13;&#10;  Set('TotalPaginas', 0);    &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo34OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not &#60;ImprimirPrecio&#62; then                                                    &#13;&#10;       Memo34.Lines.Clear;  &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403890003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C16000000204E616D653D22496D7072696D697250726563696F2200010C1C000000204E616D653D22496D7072696D697252656650726F766565646F72220000055374796C650100">
+<TfrxReport Version="4.3" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Por defecto" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="39065,8724234954" ReportOptions.Description.Text="" ReportOptions.LastChange="39829,8788472917" ScriptLanguage="PascalScript" ScriptText.Text="&#13;&#10;procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  Cadena: String;&#13;&#10;begin&#13;&#10;{  DatosEmpresa.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := 'TLF: ' + &#60;frxDBCabecera.&#34;TELEFONO_1_EMPRESA&#34;&#62;;&#13;&#10;  if (&#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62; &#60;&#62; '') then&#13;&#10;       Cadena := Cadena + ' FAX: ' + &#60;frxDBCabecera.&#34;FAX_EMPRESA&#34;&#62;;&#13;&#10;  DatosEmpresa.Lines.Add(Cadena);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;{  NombreEmpresa.Lines.Clear;&#13;&#10;  NombreEmpresa.Lines.Add(&#60;frxDBCabecera.&#34;NOMBRE_EMPRESA&#34;&#62;);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo11OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if &#60;frxDBCabecera.&#34;FECHA_ENTREGA&#34;&#62; = 0 then&#13;&#10;     Memo11.Visible := False                                                      &#13;&#10;  else&#13;&#10;     Memo11.Visible := True;      &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo35OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not &#60;ImprimirPrecio&#62; then                                                    &#13;&#10;       Memo35.Lines.Clear;        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo36OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not &#60;ImprimirPrecio&#62; then                                                    &#13;&#10;       Memo36.Lines.Clear;        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo6OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not &#60;ImprimirRefProveedor&#62; then                                                    &#13;&#10;       Memo6.Lines.Clear;        &#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader2OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not Engine.FinalPass then&#13;&#10;     Set('TotalPaginas', (&#60;TotalPaginas&#62; + 1));&#13;&#10;&#13;&#10;  if Engine.FinalPass then&#13;&#10;     Set('Pagina', (&#60;Pagina&#62; + 1));  &#13;&#10;end;&#13;&#10;&#13;&#10;procedure frxReportOnStartReport(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  Set('Pagina', 0);&#13;&#10;  Set('TotalPaginas', 0);    &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo34OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  if not &#60;ImprimirPrecio&#62; then                                                    &#13;&#10;       Memo34.Lines.Clear;  &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F732200010C16000000204E616D653D22496D7072696D697250726563696F2200010C1C000000204E616D653D22496D7072696D697252656650726F766565646F72220000055374796C650100">
   <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000"/>
   <TfrxReportPage Name="Page3" Font.Charset="1" Font.Color="13056" Font.Height="-13" Font.Name="Arial" Font.Style="0" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="15" BottomMargin="15" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="PageHeader2" Height="234,83460906" Left="0" Top="18,89765" Width="718,1107" OnBeforePrint="PageHeader2OnBeforePrint">
@@ -10,15 +10,15 @@
       <TfrxMemoView Name="Memo1" Left="548,03185" Top="114,33859" Width="172,12585" Height="20,78740402" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" HAlign="haRight" ParentFont="False" Text="Página nº: &#60;b&#62;[&#60;Pagina&#62;]/[&#60;TotalPaginas&#62;]&#60;/b&#62;"/>
       <TfrxMemoView Name="Memo12" Left="239,90569" Top="27,45671" Width="160,629921259843" Height="20,78740402" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="Pedido nº:"/>
       <TfrxMemoView Name="Memo13" Left="502,65399" Top="27,45671" Width="126,77149" Height="20,78740402" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text=" Fecha del pedido:"/>
-      <TfrxMemoView Name="Memo14" Left="239,90569" Top="47,78740157" Width="160,62992126" Height="20,78740402" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="Lugar de entrega:"/>
+      <TfrxMemoView Name="Memo14" Left="239,90569" Top="48,03154" Width="160,62992126" Height="20,78740402" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="Lugar de entrega:"/>
-      <TfrxMemoView Name="Memo15" Left="239,90569" Top="68,57480315" Width="160,629921259843" Height="20,78740402" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="Entregar a:"/>
+      <TfrxMemoView Name="Memo15" Left="239,90569" Top="89,57480315" Width="160,62992126" Height="20,78740402" StretchMode="smActualHeight" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="Entregar a:"/>
       <TfrxMemoView Name="Memo16" Left="400,53543307" Top="27,45671" Width="102,25943" Height="20,78740402" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="[frxDBCabecera.&#34;REFERENCIA&#34;]"/>
       <TfrxMemoView Name="Memo17" Left="628,51237" Top="27,45671" Width="89,14131" Height="20,78740402" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_PEDIDO&#34;]"/>
       <TfrxMemoView Name="Memo18" Left="400,53543307" Top="48,03154" Width="317,69264" Height="20,78740402" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="[&#60;frxDBCabecera.&#34;CALLE&#34;&#62;], [&#60;frxDBCabecera.&#34;POBLACION&#34;&#62;], [&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;]"/>
-      <TfrxMemoView Name="Memo20" Left="400,53543307" Top="68,70872" Width="317,69264" Height="20,78740402" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="[&#60;frxDBCabecera.&#34;ENTREGAR_A&#34;&#62;]"/>
+      <TfrxMemoView Name="Memo20" Left="400,53543307" Top="89,70872" Width="317,69264" Height="20,78740402" StretchMode="smActualHeight" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="[&#60;frxDBCabecera.&#34;ENTREGAR_A&#34;&#62;]"/>
       <TfrxMemoView Name="Memo7" Left="3,77953" Top="138,28355" Width="714,82715" Height="22,67716535" Color="13434828" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="DATOS DEL PROVEEDOR"/>
-      <TfrxMemoView Name="Memo22" Left="239,90569" Top="88,60637" Width="160,62992126" Height="20,78740402" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="Fecha prev. de entrega:"/>
+      <TfrxMemoView Name="Memo22" Left="239,90569" Top="68,60637" Width="160,62992126" Height="20,78740402" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="Fecha prev. de entrega:"/>
-      <TfrxMemoView Name="Memo23" Left="400,53543307" Top="88,74028685" Width="317,69264" Height="20,78740402" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HideZeros="True" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_ENTREGA&#34;]"/>
+      <TfrxMemoView Name="Memo23" Left="400,53543307" Top="68,74028685" Width="317,69264" Height="20,78740402" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Color="13056" Frame.Typ="15" HideZeros="True" ParentFont="False" Text="[frxDBCabecera.&#34;FECHA_ENTREGA&#34;]"/>
       <TfrxMemoView Name="Memo11" Left="3,77953" Top="159,96073" Width="115,4329" Height="20,78740402" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="Proveedor:"/>
       <TfrxMemoView Name="Memo24" Left="3,77953" Top="180,29142157" Width="115,4329" Height="20,78740402" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="32768" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="A la atención de:"/>
       <TfrxMemoView Name="Memo25" Left="118,85838" Top="159,96073" Width="408,40136" Height="20,78740402" AllowHTMLTags="True" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Color="13056" Frame.Typ="15" ParentFont="False" Text="[frxDBCabecera.&#34;NOMBRE&#34;]"/>

Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas

@@ -144,7 +144,7 @@ uses
   uIEditorElegirAlbaranesProveedor, uIEditorDireccionEntregaAlbaranProveedor,
   schContactosClient_Intf, Forms,  schPedidosProveedorClient_Intf, uFactuGES_App,
   uBizPedidosProveedor, uPedidosProveedorController,
-  schInventarioClient_Intf, uStringsUtils,
+  schInventarioClient_Intf, uStringsUtils, uIntegerListUtils,
   uArticulosController, uBizArticulos, uControllerDetallesBase, Classes,
   schArticulosClient_Intf, uControllerDetallesArticulos, Variants, uDialogUtils,
   uIEditorAlbaranDevProveedor, uAlbaranesProveedorReportController;
@@ -1029,72 +1029,66 @@ end;
 procedure TAlbaranesProveedorController.Preview(AAlbaran: IBizAlbaranProveedor; AllItems: Boolean = false);
 var
   AReportController : IAlbaranesProveedorReportController;
-  ID_Albaranes: TStringList;
+  ID_Albaranes: TIntegerList;
-
 begin
   AReportController := TAlbaranesProveedorReportController.Create;
-  ID_Albaranes := TStringList.Create;
+  ID_Albaranes := TIntegerList.Create;
 
   try
-
+    //Si deseamos previsualizar todos los items del objeto albaran
-   //Si deseamos previsualizar todos los items del objeto albaran
+    if AllItems then
-   if AllItems then
+    begin
-   begin
      with AAlbaran.DataTable do
      begin
        First;
        while not EOF do
        begin
-         ID_Albaranes.Add(IntToStr(AAlbaran.ID));
+         ID_Albaranes.Add(AAlbaran.ID);
          Next;
        end;
      end;
-   end
+    end
-   //Solo previsualizamos el item seleccionado
+    //Solo previsualizamos el item seleccionado
-   else
+    else
-     ID_Albaranes.Add(IntToStr(AAlbaran.ID));
+     ID_Albaranes.Add(AAlbaran.ID);
-
-    AReportController.Preview(ID_Albaranes.CommaText);
 
+    AReportController.Preview(ID_Albaranes);
   finally
     AReportController := NIL;
-    ID_Albaranes.Free;
+    FreeANDNIL(ID_Albaranes)
   end;
 end;
 
 procedure TAlbaranesProveedorController.Print(AAlbaran: IBizAlbaranProveedor; AllItems: Boolean = false);
 var
   AReportController : IAlbaranesProveedorReportController;
-  ID_Albaranes: TStringList;
+  ID_Albaranes: TIntegerList;
-
 begin
   AReportController := TAlbaranesProveedorReportController.Create;
-  ID_Albaranes := TStringList.Create;
+  ID_Albaranes := TIntegerList.Create;
 
   try
-
+    //Si deseamos previsualizar todos los items del objeto albaran
-   //Si deseamos previsualizar todos los items del objeto albaran
+    if AllItems then
-   if AllItems then
+    begin
-   begin
      with AAlbaran.DataTable do
      begin
        First;
        while not EOF do
        begin
-         ID_Albaranes.Add(IntToStr(AAlbaran.ID));
+         ID_Albaranes.Add(AAlbaran.ID);
          Next;
        end;
      end;
-   end
+    end
-   //Solo previsualizamos el item seleccionado
+    //Solo previsualizamos el item seleccionado
-   else
+    else
-     ID_Albaranes.Add(IntToStr(AAlbaran.ID));
+     ID_Albaranes.Add(AAlbaran.ID);
-
-    AReportController.Print(ID_Albaranes.CommaText);
 
+    AReportController.Print(ID_Albaranes);
   finally
     AReportController := NIL;
-    ID_Albaranes.Free;
+    FreeANDNIL(ID_Albaranes)
   end;
 end;
 

Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorReportController.pas

@@ -5,13 +5,15 @@ interface
 uses
   Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleAlbaranesProveedorReport,
   uAlbaranesProveedorController, uDetallesAlbaranProveedorController,
-  uBizAlbaranesProveedor;
+  uBizAlbaranesProveedor, uIntegerListUtils;
 
 type
   IAlbaranesProveedorReportController = interface(IControllerBase)
-  ['{AAE252CE-D407-4FF4-AF2A-350C5A421C89}']
+  ['{11F9D087-C6BE-4401-AB13-4342025D62BB}']
-    procedure Preview(const AID : String);
+    procedure Preview(const AListaID : TIntegerList);
-    procedure Print(const AID : String);
+    procedure Print(const AListaID : TIntegerList);
+    function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;
+    function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
   end;
 
   TAlbaranesProveedorReportController = class(TControllerBase, IAlbaranesProveedorReportController)
@@ -22,8 +24,10 @@ type
     constructor Create; override;
     destructor Destroy; override;
 
-    procedure Preview(const AID : String);
+    procedure Preview(const AListaID : TIntegerList);
-    procedure Print(const AID : String);
+    procedure Print(const AListaID : TIntegerList);
+    function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;
+    function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
   end;
 
 
@@ -31,7 +35,8 @@ implementation
 
 uses
   uROTypes, uEditorRegistryUtils, uIEditorAlbaranesProveedorPreview,
-  uEditorPreview, uDataModuleAlbaranesProveedor, uEditorBase, cxControls;
+  uEditorPreview, uDataModuleAlbaranesProveedor, uEditorBase, cxControls,
+  uStringsUtils, uSistemaFunc, uFactuGES_App;
 
 { TAlbaranesProveedorReportController }
 
@@ -54,46 +59,109 @@ begin
   inherited;
 end;
 
-procedure TAlbaranesProveedorReportController.Preview(const AID : String);
+function TAlbaranesProveedorReportController.ExportToPDF(const AID: Integer;
+  const AFileName: String): Boolean;
+var
+  AStream: Binary;
+begin
+  Result := False;
+  if EsCadenaVacia(AFileName) then
+    Exit;
+
+  ShowHourglassCursor;
+  try
+    AStream := FDataModule.GetRptPDFAlbaran(AID);
+    try
+      AStream.SaveToFile(AFileName);
+      Result := True;
+    finally
+      FreeAndNil(AStream);
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+function TAlbaranesProveedorReportController.ExportToWord(const AID: Integer;
+  const AFileName: String): Boolean;
+var
+  AStream: Binary;
+  AFile : String;
+begin
+  Result := False;
+  AFile := AFileName;
+  
+  if EsCadenaVacia(AFile) and (not PreguntarFicheroWordExportar(AFile)) then
+    Exit;
+
+  ShowHourglassCursor;
+  try
+    AStream := FDataModule.GetRptWordAlbaran(AID);
+    try
+      AStream.SaveToFile(AFile);
+      Result := True;
+    finally
+      FreeAndNil(AStream);
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+procedure TAlbaranesProveedorReportController.Preview(
+  const AListaID: TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorAlbaranesProveedorPreview;
 begin
   AEditor := NIL;
-  AStream := FDataModule.GetReport(AID);
+
+  AStream := FDataModule.GetReport(AListaID);
   try
     CreateEditor('EditorAlbaranesProveedorPreview', IEditorAlbaranesProveedorPreview, AEditor);
     if Assigned(AEditor) then
+    begin
       try
+        AEditor.Controller := Self;
+        AEditor.ListaID := AListaID;
+        AEditor.Title := 'Albarán de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE;
         AEditor.LoadFromStream(AStream);
         AEditor.Preview;
       finally
         AEditor.Release;
+        AEditor := Nil;
       end;
+    end;
   finally
-    FreeAndNil(AStream);
+    FreeANDNil(AStream)
-    AEditor := Nil;
   end;
 end;
 
-procedure TAlbaranesProveedorReportController.Print(const AID : String);
+procedure TAlbaranesProveedorReportController.Print(
+  const AListaID: TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorAlbaranesProveedorPreview;
 begin
   AEditor := NIL;
+
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetReport(AID);
+    AStream := FDataModule.GetReport(AListaID);
     try
       CreateEditor('EditorAlbaranesProveedorPreview', IEditorAlbaranesProveedorPreview, AEditor);
       if Assigned(AEditor) then
+      begin
         try
+          AEditor.Controller := Self;
+          AEditor.ListaID := AListaID;
+        AEditor.Title := 'Albarán de proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE;
           AEditor.LoadFromStream(AStream);
           AEditor.Print;
         finally
           AEditor.Release;
         end;
+      end;
     finally
       FreeAndNil(AStream);
       AEditor := Nil;

Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.pas

@@ -9,7 +9,7 @@ uses
   uROTypes, uIDataModuleAlbaranesProveedorReport, uDataModuleBase,
   uIDataModuleAlbaranesProveedor, uBizAlbaranesProveedor, uBizDetallesAlbaranProveedor,
   uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces,
-  uDAMemDataTable;
+  uDAMemDataTable, uIntegerListUtils;
 
 type
   TDataModuleAlbaranesProveedor = class(TDataModuleBase, IDataModuleAlbaranesProveedor, IDataModuleAlbaranesProveedorReport)
@@ -34,7 +34,9 @@ type
     function NewItem : IBizAlbaranProveedor;
 
     // Report
-    function GetReport(const AID: String): Binary;
+    function GetReport(const ListaID: TIntegerList): Binary;
+    function GetRptWordAlbaran(const AID: Integer): Binary;
+    function GetRptPDFAlbaran(const AID: Integer): Binary;
   end;
 
 implementation
@@ -58,9 +60,37 @@ begin
   RORemoteService.Message := dmConexion.Message;
 end;
 
-function TDataModuleAlbaranesProveedor.GetReport(const AID: String): Binary;
+function TDataModuleAlbaranesProveedor.GetReport(
+  const ListaID: TIntegerList): Binary;
+var
+  AParam : TIntegerArray;
 begin
-//  Result := (RORemoteService as IsrvAlbaranesProveedor).GenerateReport(AID)
+  AParam := ListaID.ToIntegerArray;
+  try
+    Result := (RORemoteService as IsrvAlbaranesProveedor).GenerarInforme(AParam);
+  finally
+    FreeANDNil(AParam);
+  end;
+end;
+
+function TDataModuleAlbaranesProveedor.GetRptPDFAlbaran(
+  const AID: Integer): Binary;
+var
+  AParam : TIntegerArray;
+begin
+  AParam := TIntegerArray.Create;
+  try
+    AParam.Add(AID);
+    Result := (RORemoteService as IsrvAlbaranesProveedor).GenerarInformeEnPDF(AParam);
+  finally
+    FreeANDNil(AParam);
+  end;
+end;
+
+function TDataModuleAlbaranesProveedor.GetRptWordAlbaran(
+  const AID: Integer): Binary;
+begin
+  Result := (RORemoteService as IsrvAlbaranesProveedor).GenerarInformeEnWord(AID);
 end;
 
 function TDataModuleAlbaranesProveedor.NewItem: IBizAlbaranProveedor;

Source/Modulos/Albaranes de proveedor/Model/Data/uIDataModuleAlbaranesProveedorReport.pas

@@ -3,14 +3,18 @@ unit uIDataModuleAlbaranesProveedorReport;
 interface
 
 uses
-  uROTypes;
+  uROTypes, uIntegerListUtils;
 
 type
   IDataModuleAlbaranesProveedorReport = interface
-  ['{AF3C54C4-A892-46FD-9689-081A637DE321}']
+  ['{FC37B698-7FBF-4658-BBD0-CBD4F6891CDF}']
-    function GetReport(const AID: String): Binary;
+    function GetReport(const ListaID: TIntegerList): Binary;
+    function GetRptWordAlbaran(const AID: Integer): Binary;
+    function GetRptPDFAlbaran(const AID: Integer): Binary;
   end;
 
 implementation
 
 end.
+
+

Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.pas

@@ -7,15 +7,13 @@ uses
   Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
   uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
   frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
-  uDAInterfaces, uDADataStreamer;
+  uDAInterfaces, uDADataStreamer, IBCustomDataSet, IBQuery, IBDatabase,
+  uDAMemDataTable, frxExportPDF, FactuGES_Intf, uDABin2DataStreamer;
 
 type
   TRptAlbaranesProveedor = class(TDataModule)
-    DADataCabecera: TDADataSource;
+    DADSCabecera: TDADataSource;
-    DADataDetalles: TDADataSource;
+    DADSDetalles: TDADataSource;
-    tbl_Cabecera: TDACDSDataTable;
-    tbl_Detalles: TDACDSDataTable;
-    DABINAdapter: TDABINAdapter;
     frxRichObject1: TfrxRichObject;
     frxBarCodeObject1: TfrxBarCodeObject;
     frxOLEObject1: TfrxOLEObject;
@@ -25,16 +23,35 @@ type
     frxChartObject1: TfrxChartObject;
     frxDBCabecera: TfrxDBDataset;
     frxDBDetalles: TfrxDBDataset;
-    schReport: TDASchema;
-    DataDictionary: TDADataDictionary;
     frxReport: TfrxReport;
+    IBDatabase1: TIBDatabase;
+    IBTransaction1: TIBTransaction;
+    DataSource1: TDataSource;
+    DataSource3: TDataSource;
+    detalles: TIBQuery;
+    cabecera: TIBQuery;
+    detallesID: TIntegerField;
+    detallesID_ALBARAN: TIntegerField;
+    detallesPOSICION: TIntegerField;
+    detallesTIPO_DETALLE: TIBStringField;
+    detallesCONCEPTO: TIBStringField;
+    detallesCANTIDAD: TIntegerField;
+    detallesIMPORTE_UNIDAD: TIBBCDField;
+    detallesIMPORTE_TOTAL: TIBBCDField;
+    detallesREFERENCIA: TIBStringField;
+    tbl_Cabecera: TDAMemDataTable;
+    tbl_Detalles: TDAMemDataTable;
+    frxPDFExport1: TfrxPDFExport;
+    DABin2DataStreamer1: TDABin2DataStreamer;
+    schReport: TDASchema;
     procedure DataModuleCreate(Sender: TObject);
   private
     FConnection: IDAConnection;
     //Genera cada uno de los albaranes a imprimir
-    procedure GenerarAlbaran(const ID: integer); overload;
+    procedure _GenerarAlbaran(const AID: Integer);
   public
-    function GenerarAlbaran(const AID : String): Binary; overload;
+    function GenerarAlbaran(const AListaID : TIntegerArray): Binary;
+    function GenerarAlbaranEnPDF(const ListaID : TIntegerArray): Binary;
   end;
 
 implementation
@@ -52,7 +69,7 @@ const
   ds_InformeDetalles = 'Informe_Detalles';
 
 
-{ TRptAlbaranesCliente }
+{ TRptAlbaranesProveedor }
 
 
 procedure TRptAlbaranesProveedor.DataModuleCreate(Sender: TObject);
@@ -60,63 +77,66 @@ begin
   schReport.ConnectionManager := dmServer.ConnectionManager;
   FConnection := dmServer.DarNuevaConexion;
   frxReport.EngineOptions.NewSilentMode := simReThrow;
+
+  frxDBCabecera.DataSource := DADSCabecera;
+  frxDBDetalles.DataSource := DADSDetalles;
 end;
 
-function TRptAlbaranesProveedor.GenerarAlbaran(const AID: String): Binary;
+function TRptAlbaranesProveedor.GenerarAlbaran(const AListaID : TIntegerArray): Binary;
 var
-  ID_Albaranes: TStringList;
   i: Integer;
 begin
   Result := Binary.Create;
-  FConnection.BeginTransaction;
-
   try
-    ID_Albaranes := TStringList.Create;
-    ID_Albaranes.CommaText := AID;
-
     //Vamos generando todos y cada uno de los albaranes recibidos
-    for i := 0 to ID_Albaranes.Count - 1 do
+    for i := 0 to AListaID.Count - 1 do
-        GenerarAlbaran(StrToInt(ID_Albaranes.Strings[i]));
+        _GenerarAlbaran(AListaID.Items[i]);
-
     frxReport.PreviewPages.SaveToStream(Result);
-
   finally
-    FConnection.RollbackTransaction;
   end;
 end;
 
-procedure TRptAlbaranesProveedor.GenerarAlbaran(const ID: integer);
+function TRptAlbaranesProveedor.GenerarAlbaranEnPDF(
+  const ListaID: TIntegerArray): Binary;
 var
-  AStream: TMemoryStream;
+  i: Integer;
-  dsMaster: IDADataset;
-  dsDetail: IDADataset;
-  AInforme: Variant;
 begin
-  AStream := TMemoryStream.Create;
+  Result := Binary.Create;
-
   try
-    dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [ID]);
+    //Vamos generando todos y cada uno de los presupuestos recibidos
-    dsDetail := schReport.NewDataset(FConnection, ds_InformeDetalles, ['ID_ALBARAN'], [ID], False);
+    for i := 0 to ListaID.Count - 1 do
+        _GenerarAlbaran(ListaID.Items[i]);
 
-    AStream.Clear;
+    frxPDFExport1.Stream := Result;
-    DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
+    frxReport.Export(frxPDFExport1)
-    DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
+  finally
+  end;
+end;
 
-    AStream.Clear;
+procedure TRptAlbaranesProveedor._GenerarAlbaran(const AID: Integer);
-    DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
+var
-    DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
+  AInforme: Variant;
 
-    AInforme := DarRutaFichero(DarRutaInformes, rptInforme);
+begin
+  FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
+  try
+    tbl_Cabecera.Active := False;
+    tbl_Detalles.Active := False;
+
+    tbl_Cabecera.ParamByName('ID').AsInteger := AID;
+    tbl_Detalles.ParamByName('ID_ALBARAN').AsInteger := AID;
+
+    tbl_Cabecera.Active := True;
+    tbl_Detalles.Active := True;
+
+    AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
     if VarIsNull(AInforme) then
-       raise Exception.Create (('Error Servidor: GenerarAlbaran, no encuentra informe ' + rptInforme));
+       raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptInforme));
 
     frxReport.LoadFromFile(AInforme, True);
     frxReport.PrepareReport(False);
-
   finally
-    AStream.Free;
+    FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
-    dsMaster := Nil;
-    dsDetail := Nil;
   end;
 end;
 

Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.dfm

@@ -0,0 +1,547 @@
+object RptWordAlbaranProveedor: TRptWordAlbaranProveedor
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Height = 223
+  Width = 337
+  object schReport: TDASchema
+    ConnectionManager = dmServer.ConnectionManager
+    DataDictionary = DataDictionary
+    Datasets = <
+      item
+        IsPublic = False
+        Params = <
+          item
+            Name = 'ID'
+            Value = '3'
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            SQL = 
+              'SELECT'#10'  ALBARANES_PROVEEDOR.ID,'#10'  ALBARANES_PROVEEDOR.ID_EMPRES' +
+              'A,'#10'  ALBARANES_PROVEEDOR.TIPO,'#10'  ALBARANES_PROVEEDOR.REFERENCIA,' +
+              #10'  ALBARANES_PROVEEDOR.FECHA_ALBARAN,'#10'  ALBARANES_PROVEEDOR.OBSE' +
+              'RVACIONES,'#10'  CONTACTOS.NOMBRE,'#10'  COALESCE(CONTACTOS_DIRECCIONES.' +
+              'FAX, CONTACTOS.FAX) AS FAX,'#10'  ALBARANES_PROVEEDOR.PERSONA_CONTAC' +
+              'TO_PROV AS PERSONA_CONTACTO,'#10'  PROVEEDORES_DATOS.CODIGO_ASIGNADO' +
+              ' AS CODIGO_CLIENTE,'#10'  ALBARANES_PROVEEDOR.ID_ALMACEN,'#10'  COALESCE' +
+              '(ALMACENES.CALLE, ALBARANES_PROVEEDOR.CALLE) AS CALLE,'#10'  COALESC' +
+              'E(ALMACENES.POBLACION, ALBARANES_PROVEEDOR.POBLACION) AS POBLACI' +
+              'ON,'#10'  COALESCE(ALMACENES.PROVINCIA, ALBARANES_PROVEEDOR.PROVINCI' +
+              'A) AS PROVINCIA,'#10'  COALESCE(ALMACENES.CODIGO_POSTAL, ALBARANES_P' +
+              'ROVEEDOR.CODIGO_POSTAL) AS CODIGO_POSTAL,'#10'  ALBARANES_PROVEEDOR.' +
+              'PERSONA_CONTACTO AS ENTREGAR_A,'#10'  ALBARANES_PROVEEDOR.IMPORTE_TO' +
+              'TAL'#10'FROM'#10'  ALBARANES_PROVEEDOR'#10'  INNER JOIN CONTACTOS ON (CONTAC' +
+              'TOS.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR)'#10'  LEFT OUTER JOIN PRO' +
+              'VEEDORES_DATOS ON (PROVEEDORES_DATOS.ID_PROVEEDOR = ALBARANES_PR' +
+              'OVEEDOR.ID_PROVEEDOR)'#10'  LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON' +
+              ' (CONTACTOS_DIRECCIONES.ID = ALBARANES_PROVEEDOR.ID_DIRECCION)'#10' ' +
+              ' LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDO' +
+              'R.ID_ALMACEN)'#10'WHERE ALBARANES_PROVEEDOR.ID = :ID'#10#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID'
+                TableField = 'ID'
+              end
+              item
+                DatasetField = 'ID_EMPRESA'
+                TableField = 'ID_EMPRESA'
+              end
+              item
+                DatasetField = 'REFERENCIA'
+                TableField = 'REFERENCIA'
+              end
+              item
+                DatasetField = 'OBSERVACIONES'
+                TableField = 'OBSERVACIONES'
+              end
+              item
+                DatasetField = 'NOMBRE'
+                TableField = 'NOMBRE'
+              end
+              item
+                DatasetField = 'FAX'
+                TableField = 'FAX'
+              end
+              item
+                DatasetField = 'PERSONA_CONTACTO'
+                TableField = 'PERSONA_CONTACTO'
+              end
+              item
+                DatasetField = 'IMPORTE_TOTAL'
+                TableField = 'IMPORTE_TOTAL'
+              end
+              item
+                DatasetField = 'ID_ALMACEN'
+                TableField = 'ID_ALMACEN'
+              end
+              item
+                DatasetField = 'CODIGO_CLIENTE'
+                TableField = 'CODIGO_CLIENTE'
+              end
+              item
+                DatasetField = 'TIPO'
+                TableField = 'TIPO'
+              end
+              item
+                DatasetField = 'FECHA_ALBARAN'
+                TableField = 'FECHA_ALBARAN'
+              end
+              item
+                DatasetField = 'CALLE'
+                TableField = 'CALLE'
+              end
+              item
+                DatasetField = 'POBLACION'
+                TableField = 'POBLACION'
+              end
+              item
+                DatasetField = 'PROVINCIA'
+                TableField = 'PROVINCIA'
+              end
+              item
+                DatasetField = 'CODIGO_POSTAL'
+                TableField = 'CODIGO_POSTAL'
+              end
+              item
+                DatasetField = 'ENTREGAR_A'
+                TableField = 'ENTREGAR_A'
+              end>
+          end>
+        Name = 'Informe_Cabecera'
+        Fields = <
+          item
+            Name = 'ID'
+            DataType = datInteger
+          end
+          item
+            Name = 'ID_EMPRESA'
+            DataType = datInteger
+          end
+          item
+            Name = 'TIPO'
+            DataType = datString
+            Size = 1
+          end
+          item
+            Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'FECHA_ALBARAN'
+            DataType = datDateTime
+          end
+          item
+            Name = 'OBSERVACIONES'
+            DataType = datMemo
+          end
+          item
+            Name = 'NOMBRE'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'FAX'
+            DataType = datString
+            Size = 25
+          end
+          item
+            Name = 'PERSONA_CONTACTO'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'CODIGO_CLIENTE'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'ID_ALMACEN'
+            DataType = datInteger
+          end
+          item
+            Name = 'CALLE'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'POBLACION'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'PROVINCIA'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'CODIGO_POSTAL'
+            DataType = datString
+            Size = 10
+          end
+          item
+            Name = 'ENTREGAR_A'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'IMPORTE_TOTAL'
+            DataType = datCurrency
+          end>
+        ReadOnly = True
+      end
+      item
+        IsPublic = False
+        Params = <
+          item
+            Name = 'ID_ALBARAN'
+            Value = ''
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            SQL = 
+              'SELECT DET.ID, DET.ID_ALBARAN,'#10'       DET.POSICION, DET.TIPO_DET' +
+              'ALLE,'#10'       ARTICULOS.REFERENCIA, DET.CONCEPTO, DET.CANTIDAD,'#10' ' +
+              '      DET.UNIDAD_MEDIDA, DET.IMPORTE_UNIDAD - (DET.IMPORTE_UNIDA' +
+              'D * (COALESCE(DET.DESCUENTO,0) / 100)) as IMPORTE_UNIDAD, DET.IM' +
+              'PORTE_TOTAL,'#10'       ARTICULOS_PROVEEDORES.REFERENCIA_PROV as REF' +
+              'ERENCIA_PROVEEDOR,'#10'       ARTICULOS.REFERENCIA_FABR as REFERENCI' +
+              'A_FABRICANTE'#10'FROM ALBARANES_PROVEEDOR_DETALLES DET'#10'LEFT OUTER JO' +
+              'IN ARTICULOS ON (DET.ID_ARTICULO = ARTICULOS.ID)'#10'LEFT JOIN ALBAR' +
+              'ANES_PROVEEDOR ON (ALBARANES_PROVEEDOR.ID = DET.ID_ALBARAN)'#10'LEFT' +
+              ' JOIN ARTICULOS_PROVEEDORES ON ((ARTICULOS_PROVEEDORES.ID_ARTICU' +
+              'LO = ARTICULOS.ID) AND (ARTICULOS_PROVEEDORES.ID_PROVEEDOR = ALB' +
+              'ARANES_PROVEEDOR.ID_PROVEEDOR))'#10'WHERE DET.ID_ALBARAN = :ID_ALBAR' +
+              'AN AND DET.VISIBLE = 1 AND {Where}'#10'ORDER BY DET.ID_ALBARAN, DET.' +
+              'POSICION;'#10#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID'
+                TableField = 'ID'
+              end
+              item
+                DatasetField = 'ID_ALBARAN'
+                TableField = 'ID_ALBARAN'
+              end
+              item
+                DatasetField = 'POSICION'
+                TableField = 'POSICION'
+              end
+              item
+                DatasetField = 'TIPO_DETALLE'
+                TableField = 'TIPO_DETALLE'
+              end
+              item
+                DatasetField = 'REFERENCIA'
+                TableField = 'REFERENCIA'
+              end
+              item
+                DatasetField = 'CONCEPTO'
+                TableField = 'CONCEPTO'
+              end
+              item
+                DatasetField = 'CANTIDAD'
+                TableField = 'CANTIDAD'
+              end
+              item
+                DatasetField = 'UNIDAD_MEDIDA'
+                TableField = 'UNIDAD_MEDIDA'
+              end
+              item
+                DatasetField = 'IMPORTE_UNIDAD'
+                TableField = 'IMPORTE_UNIDAD'
+              end
+              item
+                DatasetField = 'IMPORTE_TOTAL'
+                TableField = 'IMPORTE_TOTAL'
+              end
+              item
+                DatasetField = 'REFERENCIA_PROVEEDOR'
+                TableField = 'REFERENCIA_PROVEEDOR'
+              end
+              item
+                DatasetField = 'REFERENCIA_FABRICANTE'
+                TableField = 'REFERENCIA_FABRICANTE'
+              end>
+          end>
+        Name = 'Informe_Detalles'
+        Fields = <
+          item
+            Name = 'ID'
+            DataType = datInteger
+          end
+          item
+            Name = 'ID_ALBARAN'
+            DataType = datInteger
+          end
+          item
+            Name = 'POSICION'
+            DataType = datInteger
+          end
+          item
+            Name = 'TIPO_DETALLE'
+            DataType = datString
+            Size = 25
+          end
+          item
+            Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'CONCEPTO'
+            DataType = datString
+            Size = 2000
+          end
+          item
+            Name = 'CANTIDAD'
+            DataType = datFloat
+          end
+          item
+            Name = 'UNIDAD_MEDIDA'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'IMPORTE_UNIDAD'
+            DataType = datFloat
+          end
+          item
+            Name = 'IMPORTE_TOTAL'
+            DataType = datCurrency
+          end
+          item
+            Name = 'REFERENCIA_PROVEEDOR'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'REFERENCIA_FABRICANTE'
+            DataType = datString
+            Size = 255
+          end>
+        ReadOnly = True
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Version = 0
+    Left = 48
+    Top = 16
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <>
+    Left = 46
+    Top = 142
+  end
+  object DABin2DataStreamer: TDABin2DataStreamer
+    Left = 48
+    Top = 80
+  end
+  object tbl_Cabecera: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ID'
+        DataType = datInteger
+      end
+      item
+        Name = 'ID_EMPRESA'
+        DataType = datInteger
+      end
+      item
+        Name = 'TIPO'
+        DataType = datString
+        Size = 1
+      end
+      item
+        Name = 'REFERENCIA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'FECHA_ALBARAN'
+        DataType = datDateTime
+      end
+      item
+        Name = 'OBSERVACIONES'
+        DataType = datMemo
+      end
+      item
+        Name = 'NOMBRE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'FAX'
+        DataType = datString
+        Size = 25
+      end
+      item
+        Name = 'PERSONA_CONTACTO'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'CODIGO_CLIENTE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'ID_ALMACEN'
+        DataType = datInteger
+      end
+      item
+        Name = 'CALLE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'POBLACION'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'PROVINCIA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'CODIGO_POSTAL'
+        DataType = datString
+        Size = 10
+      end
+      item
+        Name = 'ENTREGAR_A'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'IMPORTE_TOTAL'
+        DataType = datCurrency
+      end>
+    Params = <
+      item
+        Name = 'ID'
+        Value = '3'
+        ParamType = daptInput
+      end>
+    LogChanges = False
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    LocalSchema = schReport
+    LocalDataStreamer = DABin2DataStreamer
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Informe_Cabecera'
+    IndexDefs = <>
+    Left = 168
+    Top = 16
+  end
+  object tbl_Detalles: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ID'
+        DataType = datInteger
+      end
+      item
+        Name = 'ID_ALBARAN'
+        DataType = datInteger
+      end
+      item
+        Name = 'POSICION'
+        DataType = datInteger
+      end
+      item
+        Name = 'TIPO_DETALLE'
+        DataType = datString
+        Size = 25
+      end
+      item
+        Name = 'REFERENCIA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'CONCEPTO'
+        DataType = datString
+        Size = 2000
+      end
+      item
+        Name = 'CANTIDAD'
+        DataType = datFloat
+      end
+      item
+        Name = 'UNIDAD_MEDIDA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'IMPORTE_UNIDAD'
+        DataType = datFloat
+      end
+      item
+        Name = 'IMPORTE_TOTAL'
+        DataType = datCurrency
+      end
+      item
+        Name = 'REFERENCIA_PROVEEDOR'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'REFERENCIA_FABRICANTE'
+        DataType = datString
+        Size = 255
+      end>
+    Params = <
+      item
+        Name = 'ID_ALBARAN'
+        Value = ''
+        ParamType = daptInput
+      end>
+    MasterParamsMappings.Strings = (
+      'ID_PRESUPUESTO=ID_PRESUPUESTO')
+    LogChanges = False
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    LocalSchema = schReport
+    LocalDataStreamer = DABin2DataStreamer
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Informe_Detalles'
+    IndexDefs = <>
+    Left = 264
+    Top = 16
+  end
+  object tbl_Empresa: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <>
+    Params = <
+      item
+        Name = 'ID'
+        Value = '31'
+        ParamType = daptInput
+      end>
+    LogChanges = False
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteFetchEnabled = False
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Empresa'
+    IndexDefs = <>
+    Left = 168
+    Top = 80
+  end
+end

Source/Modulos/Albaranes de proveedor/Reports/uRptWordAlbaranProveedor.pas

@@ -0,0 +1,268 @@
+unit uRptWordAlbaranProveedor;
+
+interface
+
+uses
+  SysUtils, Classes, AHWord97, IB, IBCustomDataSet, IBDatabase,
+  Word2000, uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAClasses,
+  uDAScriptingProvider, uDADataTable, uDAMemDataTable;
+
+type
+  TRptWordAlbaranProveedor = class(TDataModule)
+    DABin2DataStreamer: TDABin2DataStreamer;
+    tbl_Cabecera: TDAMemDataTable;
+    tbl_Detalles: TDAMemDataTable;
+    tbl_Empresa: TDAMemDataTable;
+    schReport: TDASchema;
+    DataDictionary: TDADataDictionary;
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    FConnection: IDAConnection;
+    FPlantilla : string;
+    FWordApp : TWordApp;
+    FDocumento : TWordDoc;
+    FCodigoAlbaran : string;
+    FNombreFichero : String;
+
+    function Generar : Boolean;
+    function RellenarDatosAlbaran : Boolean;
+    function RellenarDatosDetalle : Boolean;
+    procedure _GenerarAlbaran(const AID: String);
+  public
+    function Exportar(Codigo, Fichero : String): Boolean;
+    constructor Create (AOwner : TComponent); override;
+    destructor Destroy; override;
+  end;
+
+implementation
+
+{ TRptWordAlbaranProveedor }
+
+{$R *.dfm}
+
+uses
+  Windows, Variants, Dialogs, uDataModuleServer, uStringsUtils, uSistemaFunc,
+  srvEmpresas_Impl, uROTypes, uROClasses;
+
+const
+  rptInforme = 'AlbaranProveedor.rdx';  
+  
+constructor TRptWordAlbaranProveedor.Create(AOwner: TComponent);
+begin
+  inherited;
+  FDocumento := NIL;
+end;
+
+destructor TRptWordAlbaranProveedor.Destroy;
+begin
+  if FDocumento <> NIL then
+    FDocumento.Free;
+  FDocumento := NIL;
+  inherited;
+end;
+
+function TRptWordAlbaranProveedor.Exportar(Codigo, Fichero: String): Boolean;
+begin
+  if EsCadenaVacia(Fichero) then
+  begin
+    Result := False;
+    raise Exception.Create('Falta indicar el fichero donde se exportará el listado.');
+  end;
+
+  FNombreFichero := Fichero;
+  FCodigoAlbaran := Codigo;
+  _GenerarAlbaran(Codigo);
+  Result := True;
+end;
+
+procedure TRptWordAlbaranProveedor.DataModuleCreate(Sender: TObject);
+begin
+  schReport.ConnectionManager := dmServer.ConnectionManager;
+  FConnection := dmServer.DarNuevaConexion;
+end;
+
+function TRptWordAlbaranProveedor.Generar : Boolean;
+var
+  Aux : OleVariant;
+begin
+  FWordApp := TWordApp.Create (False, False);
+  with FWordApp do
+  begin
+    Visible := False;
+    ScreenUpdating := False;
+  end;
+
+  FDocumento := TWordDoc.CreateNewDoc(FWordApp, FPlantilla);
+  FWordApp.SaveActiveDocAs(FNombreFichero);
+  try
+    if not RellenarDatosAlbaran then
+      RaiseError('Se producido un error al generar la cabecera en MS Word.');
+
+    if not RellenarDatosDetalle then
+      RaiseError('Se producido un error al generar el informe en MS Word.');
+
+    FWordApp.CloseApp(wdSaveChanges);
+    Result := True;
+  finally
+    FDocumento := NIL;
+    FWordApp := NIL;
+  end;
+end;
+
+
+function TRptWordAlbaranProveedor.RellenarDatosDetalle : Boolean;
+var
+  numRows, numCols, mergesplit : OleVariant;
+  MaxCols, iRowCount : Integer;
+begin
+  iRowCount := 2;
+  numrows := 2;
+  numcols := 1;
+  mergeSplit := False;
+  MaxCols := 12;
+
+  with FDocumento.Document.Tables.Item(1), tbl_Detalles do
+  begin
+    tbl_Detalles.First;
+    while not tbl_Detalles.EOF do
+    begin
+        Rows.Item (iRowCount).Cells.Split (numRows, numCols, mergesplit);
+
+        Cell(iRowCount, 1).Range.Text := FieldByName('REFERENCIA_PROVEEDOR').AsString;
+
+        Cell(iRowCount, 2).Range.Text := FieldByName('REFERENCIA_FABRICANTE').AsString;
+        Cell(iRowCount, 3).Range.Text := FieldByName('CONCEPTO').AsString;
+        Cell(iRowCount, 4).Range.Text := FieldByName('CANTIDAD').AsString + ' ' + FieldByName('UNIDAD_MEDIDA').AsString;
+
+        Cell(iRowCount, 5).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_UNIDAD').AsFloat);
+        Cell(iRowCount, 6).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat);
+        Next;
+        Inc (iRowCount);
+    end;
+
+    Rows.Item(iRowCount).Delete;
+
+    {while iRowCount <= MaxCols do
+    begin
+        Rows.Item (iRowCount).Cells.Split (numRows, numCols, mergesplit);
+        inc (iRowCount);
+    end;}
+  end;
+  Result := True;
+end;
+
+function TRptWordAlbaranProveedor.RellenarDatosAlbaran : Boolean;
+var
+  DireccionEntrega, FicheroTemporal : String;
+  LinkToFile, SaveWithDocument, _Range : OleVariant;
+  Imagen : InlineShape;
+
+begin
+
+  //PARA DIBUJAR EL LOGOTIPO MULTIEMPRESA
+  {if (EmpresaActiva.Logotipo <> Nil) then
+  begin
+    //Activamos cabecera
+    FWordApp.Application.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader;
+    LinkToFile := False;
+    SaveWithDocument := True;
+    _Range := EmptyParam;
+    FicheroTemporal := DarFicheroTemporal;
+    EmpresaActiva.Logotipo.SaveToFile (FicheroTemporal);
+    Imagen := FWordApp.Application.ActiveWindow.ActivePane.Selection.InlineShapes.AddPicture(ficherotemporal, LinkToFile, SaveWithDocument, _Range);
+
+    //Formateamos imagen
+    if ((Imagen.Get_Width > ANCHO_LOGO_INF)) then
+    begin
+      Imagen.Set_Height(((ANCHO_LOGO_INF * Imagen.Get_Height) /Imagen.Get_Width));
+      Imagen.Set_Width(ANCHO_LOGO_INF);
+    end;
+  end;}
+
+  with FDocumento, tbl_Cabecera do
+  begin
+    if FieldByName('TIPO').AsString = 'D' then 
+      ReplaceBookmark('TituloDocumento', 'ORDEN DE DEVOLUCIÓN');    
+
+
+    ReplaceBookmark('CodigoAlbaran', FieldByName('REFERENCIA').AsString);
+    ReplaceBookmark('FechaAlbaran', FieldByName('FECHA_ALBARAN').AsString);
+
+    // En la dirección mostrar aquellos campos que estén rellenos.
+    DireccionEntrega := '';
+    if not EsCadenaVacia(FieldByName('CALLE').AsString) then
+      DireccionEntrega := DireccionEntrega + FieldByName('CALLE').AsString;
+    if not EsCadenaVacia(FieldByName('CODIGO_POSTAL').AsString) then
+      DireccionEntrega := DireccionEntrega + ', ' + FieldByName('CODIGO_POSTAL').AsString;
+    if not EsCadenaVacia(FieldByName('POBLACION').AsString) then
+      DireccionEntrega := DireccionEntrega + ', ' + FieldByName('POBLACION').AsString;
+    if not EsCadenaVacia(FieldByName('PROVINCIA').AsString) then
+      DireccionEntrega := DireccionEntrega + ', ' + FieldByName('PROVINCIA').AsString;
+    ReplaceBookmark('LugarEntrega', DireccionEntrega);
+
+    {    ReplaceBookmark('LugarEntrega', FieldByName('CALLEALMACEN').AsString + ' ' +
+      FieldByName('NUMEROALMACEN').AsString + ', '  + FieldByName('PISOALMACEN').AsString + ', ' +
+      FieldByName('CODIGOPOSTALALMACEN').AsString + ' ' + FieldByName('POBLACIONALMACEN').AsString + ', ' + FieldByName('PROVINCIAALMACEN').AsString);}
+
+//    ReplaceBookmark('PersonaEntrega', FieldByName('ENTREGAR_A').AsString);
+
+{    if FieldByName('FECHA_ENTREGA').IsNull then
+       ReplaceBookmark('FechaEntrega', '')
+    else
+       ReplaceBookmark('FechaEntrega', 'FECHA DE ENTREGA PREVISTA: ' + FieldByName('FECHA_ENTREGA').AsString);}
+
+	ReplaceBookmark('NombreProveedor', FieldByName('NOMBRE').AsString);
+    ReplaceBookmark('FaxProveedor', FieldByName('FAX').AsString);
+    ReplaceBookmark('PersonaContactoProveedor', FieldByName('PERSONA_CONTACTO').AsString);
+    ReplaceBookmark('CodigoClienteProveedor', FieldByName('CODIGO_CLIENTE').AsString);
+
+    ReplaceBookmark('ImporteTotal', FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat));
+
+    ReplaceBookmark('NotasAlbaran', FieldByName('OBSERVACIONES').AsString);
+
+    ReplaceBookmark('NombreEmpresa', tbl_Empresa.FieldByName('NOMBRE').AsString);
+    ReplaceBookmark('NombreEmpresa2', tbl_Empresa.FieldByName('NOMBRE').AsString);
+    ReplaceBookmark('CifEmpresa', tbl_Empresa.FieldByName('NIF_CIF').AsString);
+    ReplaceBookmark('DireccionEmpresa',
+      Format('%s. %s %s', [tbl_Empresa.FieldByName('CALLE').AsString,
+      tbl_Empresa.FieldByName('CODIGO_POSTAL').AsString, tbl_Empresa.FieldByName('POBLACION').AsString]));
+    ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString);
+    ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString);
+    ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString);
+  end;
+  Result := True;  
+end;
+
+procedure TRptWordAlbaranProveedor._GenerarAlbaran(const AID: String);
+var
+  ACopiaPlantilla : String;
+begin
+  FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
+  try
+    tbl_Cabecera.ParamByName('ID').AsString := AID;
+    tbl_Detalles.ParamByName('ID_ALBARAN').AsString := AID;
+
+    tbl_Cabecera.Active := True;
+    tbl_Detalles.Active := True;
+
+    FPlantilla := DarRutaInformes + tbl_Cabecera.FieldByName('ID_EMPRESA').AsString + '\' + rptInforme;
+    FCodigoAlbaran := AID;
+
+    if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then
+    begin
+      ACopiaPlantilla := DarFicheroTemporal;
+      CopiarFichero(FPlantilla, ACopiaPlantilla);
+      FPlantilla := ACopiaPlantilla;
+      try
+        Generar;
+      finally
+        SysUtils.DeleteFile(ACopiaPlantilla);
+      end;
+    end;
+  finally
+    FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
+  end;
+end;
+
+
+end.

Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.pas

@@ -31,8 +31,14 @@ type
     procedure DARemoteServiceCreate(Sender: TObject);
     procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
       var aConnectionName: string);
+  protected
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerarInformeEnWord(const ID: Integer): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
   end;
 
+
+
 implementation
 
 {$R *.dfm}
@@ -40,8 +46,8 @@ uses
   Dialogs,
   {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
   schAlbaranesProveedorClient_Intf, uRestriccionesUsuarioUtils,
-  uBizAlbaranProveedorServer;
+  uBizAlbaranProveedorServer, uRptAlbaranesProveedor_Server,
-//  uRptAlbaranesProveedor_Server;
+  uRptWordAlbaranProveedor, uSistemaFunc;
 
 procedure Create_srvAlbaranesProveedor(out anInstance : IUnknown);
 begin
@@ -75,6 +81,52 @@ begin
   ConnectionName := dmServer.ConnectionName;
 end;
 
+function TsrvAlbaranesProveedor.GenerarInforme(
+  const ListaID: TIntegerArray): Binary;
+var
+  AReportGenerator : TRptAlbaranesProveedor;
+begin
+  AReportGenerator := TRptAlbaranesProveedor.Create(nil);
+  try
+    Result := AReportGenerator.GenerarAlbaran(ListaID);
+  finally
+    FreeAndNIL(AReportGenerator);
+  end;
+end;
+
+function TsrvAlbaranesProveedor.GenerarInformeEnPDF(
+  const ListaID: TIntegerArray): Binary;
+var
+  AReportGenerator : TRptAlbaranesProveedor;
+begin
+  AReportGenerator := TRptAlbaranesProveedor.Create(nil);
+  try
+    Result := AReportGenerator.GenerarAlbaranEnPDF(ListaID);
+  finally
+    FreeAndNIL(AReportGenerator);
+  end;
+end;
+
+function TsrvAlbaranesProveedor.GenerarInformeEnWord(const ID: Integer): Binary;
+var
+  AReportGenerator : TRptWordAlbaranProveedor;
+  AFicheroTMP : TFileName;
+begin
+  Result := NIL;
+  AFicheroTMP := DarFicheroTemporal;
+  AReportGenerator := TRptWordAlbaranProveedor.Create(nil);
+  try
+    if AReportGenerator.Exportar(IntToStr(ID), AFicheroTMP) then
+    begin
+      Result := Binary.Create;
+      Result.LoadFromFile(AFicheroTMP);
+      SysUtils.DeleteFile(AFicheroTMP)
+    end;
+  finally
+    FreeAndNIL(AReportGenerator);
+  end;
+end;
+
 initialization
   TROClassFactory.Create('srvAlbaranesProveedor', Create_srvAlbaranesProveedor, TsrvAlbaranesProveedor_Invoker);
 

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranDevProveedor.dfm

@@ -38,8 +38,50 @@ inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor
   inherited pgPaginas: TPageControl
     inherited pagContenido: TTabSheet
       inherited frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor
+        inherited ToolBar1: TToolBar
+          inherited UpDown1: TUpDown [7]
+            Left = 666
+            Top = 0
+            ExplicitLeft = 666
+            ExplicitTop = 0
+          end
+          inherited ToolButton13: TToolButton [8]
+          end
+          inherited ToolButton6: TToolButton
+            Left = 0
+            ExplicitLeft = 0
+          end
+          inherited ToolButton7: TToolButton
+            Left = 66
+            ExplicitLeft = 66
+          end
+          inherited ToolButton8: TToolButton
+            Left = 133
+            ExplicitLeft = 133
+          end
+          inherited ToolButton12: TToolButton
+            Left = 216
+            ExplicitLeft = 216
+          end
+          inherited ToolButton9: TToolButton
+            Left = 224
+            ExplicitLeft = 224
+          end
+          inherited ToolButton10: TToolButton
+            Left = 369
+            ExplicitLeft = 369
+          end
+          inherited ToolButton11: TToolButton
+            Left = 494
+            ExplicitLeft = 494
+          end
+        end
         inherited cxGrid: TcxGrid
-          ExplicitTop = 72
+          ExplicitTop = 99
+          ExplicitHeight = 345
+        end
+        inherited TBXDock1: TTBXDock
+          ExplicitTop = 73
         end
         inherited cxGridPopupMenu: TcxGridPopupMenu
           PopupMenus = <
@@ -68,26 +110,12 @@ inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor
   inherited frViewTotales1: TfrViewTotales
     inherited dxLayoutControl1: TdxLayoutControl
       LookAndFeel = dxLayoutOfficeLookAndFeel1
-      inherited Bevel1: TBevel
-        Width = 73
-        ExplicitWidth = 73
-      end
-      inherited Bevel3: TBevel
-        Height = 30
-        ExplicitHeight = 30
-      end
-      inherited Bevel4: TBevel
-        Width = 21
-        ExplicitWidth = 21
-      end
       inherited ImporteDto: TcxDBCurrencyEdit
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitWidth = 199
-        Width = 199
       end
       inherited ImporteIVA: TcxDBCurrencyEdit
         Style.LookAndFeel.SkinName = ''
@@ -95,8 +123,6 @@ inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitWidth = 192
-        Width = 192
       end
       inherited ImporteTotal: TcxDBCurrencyEdit
         Style.LookAndFeel.SkinName = ''
@@ -104,8 +130,6 @@ inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitWidth = 262
-        Width = 262
       end
       inherited edtDescuento: TcxDBSpinEdit
         Style.LookAndFeel.SkinName = ''
@@ -127,8 +151,6 @@ inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitWidth = 263
-        Width = 263
       end
       inherited edtRE: TcxDBSpinEdit
         Style.LookAndFeel.SkinName = ''
@@ -143,8 +165,6 @@ inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitWidth = 192
-        Width = 192
       end
       inherited eImporteNeto: TcxDBCurrencyEdit
         Style.LookAndFeel.SkinName = ''
@@ -152,8 +172,6 @@ inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitWidth = 270
-        Width = 270
       end
       inherited ePorte: TcxDBCurrencyEdit
         Style.LookAndFeel.SkinName = ''
@@ -161,24 +179,18 @@ inherited fEditorAlbaranDevProveedor: TfEditorAlbaranDevProveedor
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitWidth = 270
-        Width = 270
       end
       inherited eIVA: TcxDBLookupComboBox
         Style.LookAndFeel.SkinName = ''
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitWidth = 132
-        Width = 132
       end
       inherited cbRecargoEquivalencia: TcxDBCheckBox
         Style.LookAndFeel.SkinName = ''
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitWidth = 270
-        Width = 270
       end
       inherited edtRetencion: TcxDBSpinEdit
         Style.LookAndFeel.SkinName = ''

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.dfm

@@ -5,7 +5,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
   ClientHeight = 619
   ClientWidth = 765
   OnClose = CustomEditorClose
-  ExplicitTop = -105
   ExplicitWidth = 773
   ExplicitHeight = 653
   PixelsPerInch = 96
@@ -134,7 +133,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
     Width = 765
     ExplicitWidth = 765
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 330
+      ExplicitWidth = 488
       inherited TBXItem2: TTBXItem
         Visible = False
       end
@@ -155,17 +154,16 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
     TabOrder = 1
     OnChanging = pgPaginasChanging
     ExplicitWidth = 759
-    ExplicitHeight = 454
+    ExplicitHeight = 472
     inherited pagGeneral: TTabSheet
       ExplicitLeft = 4
       ExplicitTop = 24
       ExplicitWidth = 751
-      ExplicitHeight = 426
+      ExplicitHeight = 444
     end
     object pagContenido: TTabSheet
       Caption = 'Contenido'
       ImageIndex = 1
-      ExplicitHeight = 426
       inline frViewDetallesAlbaranProveedor1: TfrViewDetallesAlbaranProveedor
         Left = 0
         Top = 0
@@ -183,7 +181,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 751
-        ExplicitHeight = 426
+        ExplicitHeight = 444
         inherited ToolBar1: TToolBar
           Width = 751
           Height = 51
@@ -214,10 +212,10 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
           inherited FontSize: TEdit
             Left = 544
             Top = 0
-            Width = 106
+            Width = 122
             ExplicitLeft = 544
             ExplicitTop = 0
-            ExplicitWidth = 106
+            ExplicitWidth = 122
           end
           inherited ToolButton13: TToolButton [7]
             Left = 0
@@ -282,7 +280,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
           Height = 367
           ExplicitTop = 77
           ExplicitWidth = 751
-          ExplicitHeight = 349
+          ExplicitHeight = 367
         end
         inherited TBXDock1: TTBXDock
           Top = 51
@@ -307,7 +305,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
     object pagInicidencias: TTabSheet
       Caption = 'Incidencias'
       ImageIndex = 2
-      ExplicitHeight = 426
       inline frViewIncidenciasCli: TfrViewIncidencias
         Left = 0
         Top = 0
@@ -323,7 +320,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 751
-        ExplicitHeight = 426
+        ExplicitHeight = 444
         inherited pnlSup: TPanel
           Width = 751
           ExplicitWidth = 751
@@ -335,10 +332,10 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
           Width = 751
           Height = 416
           ExplicitWidth = 751
-          ExplicitHeight = 398
+          ExplicitHeight = 416
           inherited eIncidencias: TcxDBMemo
             ExplicitWidth = 734
-            ExplicitHeight = 371
+            ExplicitHeight = 389
             Height = 389
             Width = 734
           end
@@ -353,8 +350,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
       item
         Width = 200
       end>
-    ExplicitLeft = 8
+    ExplicitTop = 600
-    ExplicitTop = 601
     ExplicitWidth = 765
   end
   inline frViewTotales1: TfrViewTotales [4]
@@ -371,7 +367,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
     ParentFont = False
     TabOrder = 4
     ReadOnly = False
-    ExplicitTop = 573
+    ExplicitTop = 554
     ExplicitWidth = 765
     ExplicitHeight = 46
     inherited dxLayoutControl1: TdxLayoutControl
@@ -379,7 +375,7 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
       Height = 46
       LookAndFeel = dxLayoutOfficeLookAndFeel1
       ExplicitWidth = 765
-      ExplicitHeight = 64
+      ExplicitHeight = 46
       inherited Bevel3: TBevel
         Left = 425
         Top = 11
@@ -663,14 +659,6 @@ inherited fEditorAlbaranProveedor: TfEditorAlbaranProveedor
     inherited actConfPagina: TAction
       Visible = False
     end
-    inherited actPrevisualizar: TAction
-      Enabled = False
-      Visible = False
-    end
-    inherited actImprimir: TAction
-      Enabled = False
-      Visible = False
-    end
   end
   inherited SmallImages: TPngImageList [6]
   end

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas

@@ -216,12 +216,12 @@ begin
 end;
 
 procedure TfEditorAlbaranProveedor.ImprimirInterno;
+var
+  AllItems: Boolean;
 begin
-AppFactuGES.ShowCapado;
-{
   inherited;
-  FController.Print(FAlbaran);
+  AllItems := False;
-}
+  FController.Print(FAlbaran, AllItems);
 end;
 
 procedure TfEditorAlbaranProveedor.OnProveedorChanged(Sender: TObject);
@@ -268,12 +268,12 @@ begin
 end;
 
 procedure TfEditorAlbaranProveedor.PrevisualizarInterno;
+var
+  AllItems: Boolean;
 begin
-AppFactuGES.ShowCapado;
-{
   inherited;
-  FController.Preview(FAlbaran);
+  AllItems := False;
-}  
+  FController.Preview(FAlbaran, AllItems);
 end;
 
 procedure TfEditorAlbaranProveedor.RecalcularPortePorUnidad;

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.dfm

@@ -2,7 +2,6 @@ inherited fEditorAlbaranesProveedor: TfEditorAlbaranesProveedor
   Caption = 'Lista de albaranes de proveedor'
   ClientWidth = 606
   ExplicitWidth = 614
-  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas

@@ -197,14 +197,11 @@ begin
 end;
 
 procedure TfEditorAlbaranesProveedor.ImprimirInterno;
-{var
+var
   Respuesta : Integer;
   AAlbaranes: IBizAlbaranProveedor;
   AllItems: Boolean;
-}
 begin
-  inherited;
-{
   AAlbaranes := Nil;
   AllItems := False;
 
@@ -212,7 +209,7 @@ begin
      AllItems :=  (ViewGrid.NumSeleccionados > 1);
 
   //Si esta agrupado solo podré imprimir la lista de elementos visibles
-  if not ViewGrid.esSeleccionCeldaDatos then
+  if not ViewGrid.EsSeleccionCeldaDatos then
      inherited
   else
   begin
@@ -238,7 +235,6 @@ begin
       end;
     end;
   end;
-}  
 end;
 
 function TfEditorAlbaranesProveedor.GetAlbaranes: IBizAlbaranProveedor;
@@ -285,13 +281,11 @@ begin
 end;
 
 procedure TfEditorAlbaranesProveedor.PrevisualizarInterno;
-{var
+var
   Respuesta : Integer;
   AAlbaranes: IBizAlbaranProveedor;
-  AllItems: Boolean;}
+  AllItems: Boolean;
 begin
-  inherited;
-{
   AAlbaranes := Nil;
   AllItems := False;
 
@@ -299,7 +293,7 @@ begin
      AllItems :=  (ViewGrid.NumSeleccionados > 1);
 
   //Si esta agrupado solo podré imprimir la lista de elementos visibles
-  if not ViewGrid.esSeleccionCeldaDatos then
+  if not ViewGrid.EsSeleccionCeldaDatos then
      inherited
   else
   begin
@@ -325,7 +319,6 @@ begin
       end;
     end;
   end;
-}  
 end;
 
 procedure TfEditorAlbaranesProveedor.SetController(const Value: IAlbaranesProveedorController);

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.dfm

@@ -1,12 +1,14 @@
 inherited fEditorAlbaranesProveedorPreview: TfEditorAlbaranesProveedorPreview
   Caption = 'Previsualizar el albar'#225'n de proveedor'
-  ExplicitWidth = 320
-  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
-  inherited frxReport1: TfrxReport
+  inherited TBXDock: TTBXDock
-    Datasets = <>
+    inherited TBXToolbar1: TTBXToolbar
-    Variables = <>
+      ExplicitWidth = 540
-    Style = <>
+      object TBXItem58: TTBXItem [1]
+        Action = actExportarRTF
+        Images = SmallImages
+      end
+    end
   end
 end

Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.pas

@@ -9,14 +9,36 @@ uses
   TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
   ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesProveedorPreview,
   JvExComCtrls, JvStatusBar, frxExportImage, frxExportPDF, frxDCtrl, frxClass,
-  frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode;
+  frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode,
+  frxExportText, frxExportRTF, frxExportMail, frxExportXLS;
 
 type
   TfEditorAlbaranesProveedorPreview = class(TfEditorPreview, IEditorAlbaranesProveedorPreview)
+    TBXItem58: TTBXItem;
+    procedure actExportarRTFExecute(Sender: TObject);
   end;
 
 
 implementation
 {$R *.dfm}
 
+uses
+  uAlbaranesProveedorReportController, uDialogUtils;
+
+procedure TfEditorAlbaranesProveedorPreview.actExportarRTFExecute(
+  Sender: TObject);
+var
+  I: Integer;
+begin
+  // inherited; <- No llamar al padre
+  if not Assigned(Controller) then
+    raise Exception.Create('No se ha asignado el controlador necesario');
+
+  for I := 0 to ListaID.Count - 1 do
+		(Controller as IAlbaranesProveedorReportController).ExportToWord(ListaID[I], '');
+
+	ShowInfoMessage('El pedido se ha exportado correctamente.');
+
+end;
+
 end.

Source/Servicios/FactuGES.RODL

@@ -412,6 +412,30 @@
 <Interfaces>
 <Interface Name="Default" UID="{66B71884-5CE4-4574-B825-60CDA956B628}">
 <Operations>
+<Operation Name="GenerarInforme" UID="{5E961F20-1EDD-4832-A353-FB366E53E8F2}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GenerarInformeEnWord" UID="{42BF6C64-3ABC-4EE8-9D2B-E21948AAF33C}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="ID" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="GenerarInformeEnPDF" UID="{950DBECF-9C9A-4B46-B9FD-637BBEC925D5}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
 </Operations>
 </Interface>
 </Interfaces>

Source/Servicios/FactuGES_Intf.pas

@@ -613,6 +613,9 @@ type
   { IsrvAlbaranesProveedor }
   IsrvAlbaranesProveedor = interface(IDataAbstractService)
     ['{66B71884-5CE4-4574-B825-60CDA956B628}']
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerarInformeEnWord(const ID: Integer): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
   end;
 
   { CosrvAlbaranesProveedor }
@@ -625,6 +628,9 @@ type
   protected
     function __GetInterfaceName:string; override;
 
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerarInformeEnWord(const ID: Integer): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
   end;
 
   { IsrvReferencias }
@@ -1964,11 +1970,64 @@ begin
   result := TsrvAlbaranesProveedor_Proxy.Create(aMessage, aTransportChannel);
 end;
 
+{ TsrvAlbaranesProveedor_Proxy }
+
 function TsrvAlbaranesProveedor_Proxy.__GetInterfaceName:string;
 begin
   result := 'srvAlbaranesProveedor';
 end;
 
+function TsrvAlbaranesProveedor_Proxy.GenerarInforme(const ListaID: TIntegerArray): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TsrvAlbaranesProveedor_Proxy.GenerarInformeEnWord(const ID: Integer): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnWord');
+    __Message.Write('ID', TypeInfo(Integer), ID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
+function TsrvAlbaranesProveedor_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
 { CosrvReferencias }
 
 class function CosrvReferencias.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvReferencias;

Source/Servicios/FactuGES_Invk.pas

@@ -177,6 +177,9 @@ type
   private
   protected
   published
+    procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
   TsrvReferencias_Invoker = class(TDataAbstractService_Invoker)
@@ -1014,6 +1017,96 @@ begin
   end;
 end;
 
+{ TsrvAlbaranesProveedor_Invoker }
+
+procedure TsrvAlbaranesProveedor_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInforme(const ListaID: TIntegerArray): Binary; }
+var
+  ListaID: FactuGES_Intf.TIntegerArray;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  ListaID := nil;
+  lResult := nil;
+  try
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+
+    lResult := (__Instance as IsrvAlbaranesProveedor).GenerarInforme(ListaID);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesProveedor', 'GenerarInformeResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(ListaID);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TsrvAlbaranesProveedor_Invoker.Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInformeEnWord(const ID: Integer): Binary; }
+var
+  ID: Integer;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    __Message.Read('ID', TypeInfo(Integer), ID, []);
+
+    lResult := (__Instance as IsrvAlbaranesProveedor).GenerarInformeEnWord(ID);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesProveedor', 'GenerarInformeEnWordResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
+procedure TsrvAlbaranesProveedor_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; }
+var
+  ListaID: FactuGES_Intf.TIntegerArray;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  ListaID := nil;
+  lResult := nil;
+  try
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+
+    lResult := (__Instance as IsrvAlbaranesProveedor).GenerarInformeEnPDF(ListaID);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesProveedor', 'GenerarInformeEnPDFResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(ListaID);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
 { TsrvReferencias_Invoker }
 
 procedure TsrvReferencias_Invoker.Invoke_DarNuevaReferencia(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);

Source/Servidor/FactuGES_Server.dpr

@@ -132,7 +132,9 @@ uses
   schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
   schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
   schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
-  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
+  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
+  uRptAlbaranesProveedor_Server in '..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas' {RptAlbaranesProveedor: TDataModule},
+  uRptWordAlbaranProveedor in '..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas' {RptWordAlbaranProveedor: TDataModule};
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -1,323 +1,331 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <PropertyGroup>
+	<PropertyGroup>
-    <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
+		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
-    <MainSource>FactuGES_Server.dpr</MainSource>
+		<MainSource>FactuGES_Server.dpr</MainSource>
-    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+		<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
-    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+		<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+		<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
-    <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
+		<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
-    <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
+		<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
-  </PropertyGroup>
+	</PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-    <Version>7.0</Version>
+		<Version>7.0</Version>
-    <DCC_DebugInformation>False</DCC_DebugInformation>
+		<DCC_DebugInformation>False</DCC_DebugInformation>
-    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+		<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
-    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+		<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-    <DCC_MapFile>3</DCC_MapFile>
+		<DCC_MapFile>3</DCC_MapFile>
-    <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
+		<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
-    <DCC_Define>RELEASE</DCC_Define>
+		<DCC_Define>RELEASE</DCC_Define>
-  </PropertyGroup>
+	</PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <Version>7.0</Version>
+		<Version>7.0</Version>
-    <DCC_MapFile>3</DCC_MapFile>
+		<DCC_MapFile>3</DCC_MapFile>
-    <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
+		<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
-    <DCC_Define>DEBUG;</DCC_Define>
+		<DCC_Define>DEBUG;</DCC_Define>
-    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+		<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
-    <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
+		<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
-    <DCC_DebugVN>True</DCC_DebugVN>
+		<DCC_DebugVN>True</DCC_DebugVN>
-    <DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
+		<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
-    <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
+		<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
-    <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
+		<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
-    <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
+		<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
-  </PropertyGroup>
+	</PropertyGroup>
-  <ProjectExtensions>
+	<ProjectExtensions>
-    <Borland.Personality>Delphi.Personality</Borland.Personality>
+		<Borland.Personality>Delphi.Personality</Borland.Personality>
-    <Borland.ProjectType />
+		<Borland.ProjectType/>
-    <BorlandProject>
+		<BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.6.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.6.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 15 de enero de 2009 14:12</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">6</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.6.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.6.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 16 de enero de 2009 21:22</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-  </ProjectExtensions>
+	</ProjectExtensions>
-  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
-  <ItemGroup>
+	<ItemGroup>
-    <DelphiCompile Include="FactuGES_Server.dpr">
+		<DelphiCompile Include="FactuGES_Server.dpr">
-      <MainSource>MainSource</MainSource>
+			<MainSource>MainSource</MainSource>
-    </DelphiCompile>
+		</DelphiCompile>
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
-    <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
+		<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
-    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-      <Form>srvEmpresas</Form>
+			<Form>srvEmpresas</Form>
-      <DesignClass>TDARemoteService</DesignClass>
+			<DesignClass>TDARemoteService</DesignClass>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
+		<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
-      <Form>srvProvinciasPoblaciones_Impl</Form>
+			<Form>srvProvinciasPoblaciones_Impl</Form>
-      <DesignClass>TDataModule</DesignClass>
+			<DesignClass>TDataModule</DesignClass>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
+		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
+		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
-      <Form>srvUsuarios</Form>
+			<Form>srvUsuarios</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
+			<DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="..\Base\schBase_Intf.pas" />
+		<DCCReference Include="..\Base\schBase_Intf.pas"/>
-    <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
+		<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
-    <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
+		<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
-      <Form>RptAlbaranesCliente</Form>
+			<Form>RptAlbaranesCliente</Form>
-      <DesignClass>TDataModule</DesignClass>
+			<DesignClass>TDataModule</DesignClass>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
-      <Form>RptWordAlbaranCliente</Form>
+			<Form>RptWordAlbaranCliente</Form>
-      <DesignClass>TDataModule</DesignClass>
+			<DesignClass>TDataModule</DesignClass>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
+		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-      <Form>srvAlbaranesCliente</Form>
+			<Form>srvAlbaranesCliente</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
+			<DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas">
-      <Form>srvAlbaranesProveedor</Form>
+			<Form>RptAlbaranesProveedor</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
+			<DesignClass>TDataModule</DesignClass>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
-    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
+			<Form>RptWordAlbaranProveedor</Form>
-    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+			<DesignClass>TDataModule</DesignClass>
-      <Form>srvAlmacenes</Form>
+		</DCCReference>
-      <DesignClass>TDARemoteService</DesignClass>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
-    </DCCReference>
+			<Form>srvAlbaranesProveedor</Form>
-    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
+		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
+		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
-      <Form>srvArticulos</Form>
+		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-      <DesignClass>TDARemoteService</DesignClass>
+			<Form>srvAlmacenes</Form>
-    </DCCReference>
+			<DesignClass>TDARemoteService</DesignClass>
-    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
+		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
+		<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
+		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
-    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
+			<Form>srvArticulos</Form>
-    <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
+			<DesignClass>TDARemoteService</DesignClass>
-      <Form>RptEtiquetasContacto</Form>
+		</DCCReference>
-      <DesignClass>TDataModule</DesignClass>
+		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
-      <Form>RptFichasEmpleado</Form>
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
-      <DesignClass>TDataModule</DesignClass>
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
-    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+		<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
-      <Form>srvContactos</Form>
+			<Form>RptEtiquetasContacto</Form>
-      <DesignClass>TDARemoteService</DesignClass>
+			<DesignClass>TDataModule</DesignClass>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
-    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
+			<Form>RptFichasEmpleado</Form>
-    <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
+			<DesignClass>TDataModule</DesignClass>
-      <Form>srvFabricantes</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-    </DCCReference>
+			<Form>srvContactos</Form>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
+			<DesignClass>TDARemoteService</DesignClass>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
+		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
+		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
-      <Form>RptFacturasCliente</Form>
+		<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvFabricantes</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
+		</DCCReference>
-      <Form>RptWordFacturaCliente</Form>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
-      <DesignClass>TDataModule</DesignClass>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
-      <Form>srvFacturasCliente</Form>
+			<Form>RptFacturasCliente</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
+			<DesignClass>TDataModule</DesignClass>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
+			<Form>RptWordFacturaCliente</Form>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
+		</DCCReference>
-      <Form>RptFacturasProveedor</Form>
+		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvFacturasCliente</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
+		</DCCReference>
-      <Form>srvFacturasProveedor</Form>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas">
-    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
+			<Form>RptFacturasProveedor</Form>
-    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
+			<DesignClass>TDataModule</DesignClass>
-      <Form>srvFamilias</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-    </DCCReference>
+			<Form>srvFacturasProveedor</Form>
-    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
+		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
-      <Form>srvFormasPago</Form>
+		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas">
-    </DCCReference>
+			<Form>srvFamilias</Form>
-    <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvGestorDocumentos</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
+		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas">
-      <Form>srvGestorInformes</Form>
+			<Form>srvFormasPago</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
+			<DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
-    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
+			<Form>srvGestorDocumentos</Form>
-    <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvHistoricoMovimientos</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
-    </DCCReference>
+			<Form>srvGestorInformes</Form>
-    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
+		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
-      <Form>srvInventario</Form>
+		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
-    </DCCReference>
+			<Form>srvHistoricoMovimientos</Form>
-    <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
+		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
+		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
-      <Form>srvObras</Form>
+		<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
-      <DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvInventario</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
+		<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
+		<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
-      <Form>RptPedidosProveedor</Form>
+		<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvObras</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
+		</DCCReference>
-      <Form>RptWordPedidoProveedor</Form>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
-      <DesignClass>TDataModule</DesignClass>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
-    <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
-      <Form>srvPedidosProveedor</Form>
+			<Form>RptPedidosProveedor</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
+			<DesignClass>TDataModule</DesignClass>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
+			<Form>RptWordPedidoProveedor</Form>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+		</DCCReference>
-      <Form>RptPresupuestosCliente</Form>
+		<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvPedidosProveedor</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
+		</DCCReference>
-      <Form>RptWordCertificadoTrabajo</Form>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
-      <DesignClass>TDataModule</DesignClass>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-      <Form>RptWordPresupuestoCliente</Form>
+			<Form>RptPresupuestosCliente</Form>
-      <DesignClass>TDataModule</DesignClass>
+			<DesignClass>TDataModule</DesignClass>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
-      <Form>srvPresupuestosCliente</Form>
+			<Form>RptWordCertificadoTrabajo</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
+			<DesignClass>TDataModule</DesignClass>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
-    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
+			<Form>RptWordPresupuestoCliente</Form>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
+			<DesignClass>TDataModule</DesignClass>
-      <Form>RptRecibosCliente</Form>
+		</DCCReference>
-      <DesignClass>TDataModule</DesignClass>
+		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-    </DCCReference>
+			<Form>srvPresupuestosCliente</Form>
-    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvRecibosCliente</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
+			<Form>RptRecibosCliente</Form>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
+			<DesignClass>TDataModule</DesignClass>
-      <Form>RptRecibosProveedor</Form>
+		</DCCReference>
-      <DesignClass>TDataModule</DesignClass>
+		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-    </DCCReference>
+			<Form>srvRecibosCliente</Form>
-    <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>srvRecibosProveedor</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas">
-    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
+			<Form>RptRecibosProveedor</Form>
-    <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
+			<DesignClass>TDataModule</DesignClass>
-      <Form>srvReferencias</Form>
+		</DCCReference>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-    </DCCReference>
+			<Form>srvRecibosProveedor</Form>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
+		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
+		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
-      <Form>srvRemesasCliente</Form>
+		<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
-      <DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvReferencias</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
+		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
-      <Form>srvRemesasProveedor</Form>
+		<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-      <DesignClass>TDataAbstractService</DesignClass>
+			<Form>srvRemesasCliente</Form>
-    </DCCReference>
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
-    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
-      <Form>srvTiposIVA</Form>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-    </DCCReference>
+			<Form>srvRemesasProveedor</Form>
-    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
+		</DCCReference>
-    <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
+		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
-      <Form>srvUnidadesMedida</Form>
+		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas">
-    </DCCReference>
+			<Form>srvTiposIVA</Form>
-    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+			<DesignClass>TDataAbstractService</DesignClass>
-    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
+		</DCCReference>
-    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
-      <Form>srvConfiguracion</Form>
+		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
-      <DesignClass>TDataAbstractService</DesignClass>
+		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-    </DCCReference>
+			<Form>srvUnidadesMedida</Form>
-    <DCCReference Include="Configuracion\uConexionBD.pas">
+			<DesignClass>TDataAbstractService</DesignClass>
-      <Form>frConexionBD</Form>
+		</DCCReference>
-      <DesignClass>TFrame</DesignClass>
+		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
-    </DCCReference>
+		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
-    <DCCReference Include="Configuracion\uConfGeneral.pas">
+		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-      <Form>frConfGeneral</Form>
+			<Form>srvConfiguracion</Form>
-      <DesignClass>TFrame</DesignClass>
+			<DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="Configuracion\uConfiguracion.pas">
+		<DCCReference Include="Configuracion\uConexionBD.pas">
-      <Form>fConfiguracion</Form>
+			<Form>frConexionBD</Form>
-      <DesignClass>TForm</DesignClass>
+			<DesignClass>TFrame</DesignClass>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+		<DCCReference Include="Configuracion\uConfGeneral.pas">
-      <Form>FrameConfiguracion</Form>
+			<Form>frConfGeneral</Form>
-      <DesignClass>TFrame</DesignClass>
+			<DesignClass>TFrame</DesignClass>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="srvLogin_Impl.pas">
+		<DCCReference Include="Configuracion\uConfiguracion.pas">
-      <Form>srvLogin</Form>
+			<Form>fConfiguracion</Form>
-      <DesignClass>TDARemoteService</DesignClass>
+			<DesignClass>TForm</DesignClass>
-    </DCCReference>
+		</DCCReference>
-    <DCCReference Include="uAcercaDe.pas">
+		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-      <Form>fAcercaDe</Form>
+			<Form>FrameConfiguracion</Form>
-    </DCCReference>
+			<DesignClass>TFrame</DesignClass>
-    <DCCReference Include="uDataModuleServer.pas">
+		</DCCReference>
-      <Form>dmServer</Form>
+		<DCCReference Include="srvLogin_Impl.pas">
-      <DesignClass>TDataModule</DesignClass>
+			<Form>srvLogin</Form>
-    </DCCReference>
+			<DesignClass>TDARemoteService</DesignClass>
-    <DCCReference Include="uServerMainForm.pas">
+		</DCCReference>
-      <Form>fServerForm</Form>
+		<DCCReference Include="uAcercaDe.pas">
-    </DCCReference>
+			<Form>fAcercaDe</Form>
-    <DCCReference Include="Utiles\AHWord97.pas" />
+		</DCCReference>
-    <DCCReference Include="Utiles\RegExpr.pas" />
+		<DCCReference Include="uDataModuleServer.pas">
-    <DCCReference Include="Utiles\uBusinessUtils.pas" />
+			<Form>dmServer</Form>
-    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
+			<DesignClass>TDataModule</DesignClass>
-    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
+		</DCCReference>
-    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
+		<DCCReference Include="uServerMainForm.pas">
-    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
+			<Form>fServerForm</Form>
-    <DCCReference Include="Utiles\uServerAppUtils.pas" />
+		</DCCReference>
-    <DCCReference Include="Utiles\uSesionesUtils.pas" />
+		<DCCReference Include="Utiles\AHWord97.pas"/>
-  </ItemGroup>
+		<DCCReference Include="Utiles\RegExpr.pas"/>
+		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
+		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
+		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
+		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
+		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
+		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
+		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
+	</ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]

Source/Servidor/FactuGES_Server.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 1,6,3,0
+FILEVERSION 1,6,4,0
-PRODUCTVERSION 1,6,3,0
+PRODUCTVERSION 1,6,4,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -12,9 +12,9 @@ BEGIN
     BEGIN
          BLOCK "0C0A04E4"
          BEGIN
-              VALUE "FileVersion", "1.6.3.0\0"
+              VALUE "FileVersion", "1.6.4.0\0"
-              VALUE "ProductVersion", "1.6.3.0\0"
+              VALUE "ProductVersion", "1.6.4.0\0"
-              VALUE "CompileDate", "viernes, 16 de enero de 2009 16:53\0"
+              VALUE "CompileDate", "domingo, 18 de enero de 2009 20:55\0"
          END
     END
     BLOCK "VarFileInfo"