Albaranes de cliente: generación del informe en Word.

Presupuestos de cliente: repaso del informe en Word.

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

Source/ApplicationBase/ApplicationBase.dproj

@@ -46,13 +46,6 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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.0.0.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.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@@ -67,27 +60,27 @@
     <DelphiCompile Include="ApplicationBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\Base.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\dbrtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\dclIndyCore.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\designide.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\GUIBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\IndyCore.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\IndyProtocols.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\IndySystem.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvJansD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\JvJansD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\pckMD5.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\pckUCDataConnector.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\pckUserControl_RT.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PLuginSDK_D10R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\PLuginSDK_D10R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\rtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\vcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\vclactnband.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\vcldb.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\vcljpg.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\VclSmp.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\vclx.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\xmlrtl.dcp" />
     <DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
     <DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
     <DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />

Source/Base/Base.dproj

@@ -146,7 +146,6 @@
     <DCCReference Include="Utiles\uStringsUtils.pas" />
   </ItemGroup>
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6011

Source/GUIBase/GUIBase.dproj

@@ -58,22 +58,22 @@
     <DelphiCompile Include="GUIBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\Base.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\dbrtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\dxBarD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\dxBarExtItemsD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\dxLayoutControlD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\dxPScxCommonD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\dxPsPrVwAdvD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\frx11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\frxe11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\fs11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\JvAppFrmD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\JvCtrlsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\rtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\vcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Model\vcldb.dcp" />
     <DCCReference Include="uDialogBase.pas">
       <Form>fDialogBase</Form>
     </DCCReference>

Source/Informes/InfAlbaranCliente.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="39460,761954919" 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 DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ACadena : String;&#13;&#10;begin&#13;&#10;{  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62;;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + '  ' + &#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;;&#13;&#10;&#13;&#10;  DireccionEnvio.Lines.Add(ACadena);&#13;&#10;  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;&#13;&#10;  if (ACadena &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(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;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F73220000055374796C650100">
+<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="39485,4538528935" 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 DireccionEnvioOnBeforePrint(Sender: TfrxComponent);&#13;&#10;var&#13;&#10;  ACadena : String;&#13;&#10;begin&#13;&#10;{  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Clear;&#13;&#10;  if (&#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;REFERENCIA_CLIENTE&#34;&#62;;&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + '  ' + &#60;frxDBCabecera.&#34;PERSONA_CONTACTO&#34;&#62;;&#13;&#10;&#13;&#10;  DireccionEnvio.Lines.Add(ACadena);&#13;&#10;  ACadena := '';&#13;&#10;  DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62; + ' ';&#13;&#10;  if (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     ACadena := ACadena + &#60;frxDBCabecera.&#34;CODIGO_POSTAL&#34;&#62;;&#13;&#10;&#13;&#10;  if (ACadena &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(ACadena);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;PROVINCIA&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62; &#60;&#62; '') then&#13;&#10;       DireccionEnvio.Lines.Add(&#60;frxDBCabecera.&#34;TELEFONO&#34;&#62;);&#13;&#10;}&#13;&#10;end;&#13;&#10;&#13;&#10;procedure PageHeader1OnBeforePrint(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;&#13;&#10;begin&#13;&#10;&#13;&#10;end." ShowProgress="False" StoreInDFM="False" OnStartReport="frxReportOnStartReport" PropData="044C65667403910003546F70021008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C657301010C13000000204E616D653D2220506167696E6163696F6E2200010C0E000000204E616D653D22506167696E612200010C14000000204E616D653D22546F74616C506167696E61732200010C10000000204E616D653D2220496E666F726D652200010C10000000204E616D653D224361706974756C6F2200010C14000000204E616D653D224E756D4361706974756C6F73220000055374796C650100">
   <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="20" RightMargin="20" TopMargin="20" BottomMargin="20" ColumnWidth="0" ColumnPositions.Text="" LargeDesignHeight="True" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="PageHeader2" Height="222,99227" Left="0" Top="18,89765" Width="642,5201">
@@ -31,11 +31,11 @@
       <TfrxMemoView Name="Memo34" Left="0" Top="0" Width="642,5201" Height="18,89765" Color="13434828" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="13056" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" GapX="5" HAlign="haRight" ParentFont="False" Text=""/>
     </TfrxFooter>
     <TfrxMasterData Name="MasterData1" Height="22,67718" Left="0" Top="355,27582" Width="642,5201" ColumnWidth="0" ColumnGap="0" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" RowCount="0" Stretched="True">
-      <TfrxMemoView Name="frxDBDetallesPOSICION" Left="363,96852835" Top="0" Width="105,44880913" Height="22,67718" StretchMode="smMaxHeight" DataField="CANTIDAD" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
+      <TfrxMemoView Name="frxDBDetallesPOSICION" Left="363,96852835" Top="0" Width="105,44880913" Height="22,67718" StretchMode="smMaxHeight" DataField="CANTIDAD" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles.&#34;CANTIDAD&#34;]"/>
-      <TfrxMemoView Name="Memo35" Left="468,79529024" Top="0" Width="77,48030276" Height="22,67718" StretchMode="smMaxHeight" DataField="IMPORTE_UNIDAD" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_UNIDAD&#34;]"/>
+      <TfrxMemoView Name="Memo35" Left="468,79529024" Top="0" Width="77,48030276" Height="22,67718" StretchMode="smMaxHeight" DataField="IMPORTE_UNIDAD" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_UNIDAD&#34;]"/>
-      <TfrxMemoView Name="Memo36" Left="546,03185" Top="0" Width="96,48825" Height="22,67718" StretchMode="smMaxHeight" DataField="IMPORTE_TOTAL" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
+      <TfrxMemoView Name="Memo36" Left="546,03185" Top="0" Width="96,48825" Height="22,67718" StretchMode="smMaxHeight" DataField="IMPORTE_TOTAL" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%2.2m" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" HAlign="haRight" ParentFont="False" Text="[frxDBDetalles.&#34;IMPORTE_TOTAL&#34;]"/>
-      <TfrxMemoView Name="frxDBDetallesCONCEPTO" Left="86,92919" Top="0" Width="276,66136118" Height="22,67716535" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" ParentFont="False" Text="[frxDBDetalles.&#34;CONCEPTO&#34;]"/>
+      <TfrxMemoView Name="frxDBDetallesCONCEPTO" Left="86,92919" Top="0" Width="276,66136118" Height="22,67716535" DataField="CONCEPTO" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="14" Frame.RightLine.Style="fsDot" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" ParentFont="False" Text="[frxDBDetalles.&#34;CONCEPTO&#34;]"/>
-      <TfrxMemoView Name="Memo2" Left="0" Top="0" Width="86,55115913" Height="22,67718" StretchMode="smMaxHeight" DataField="REFERENCIA" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" Frame.RightLine.Style="fsDot" GapX="5" GapY="2" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA&#34;]"/>
+      <TfrxMemoView Name="Memo2" Left="0" Top="0" Width="86,55115913" Height="22,67718" StretchMode="smMaxHeight" DataField="REFERENCIA" DataSet="frxDBDetalles" DataSetName="frxDBDetalles" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="%g" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="0" Frame.Typ="15" Frame.RightLine.Style="fsDot" Frame.BottomLine.Style="fsDot" GapX="5" GapY="2" ParentFont="False" Text="[frxDBDetalles.&#34;REFERENCIA&#34;]"/>
     </TfrxMasterData>
   </TfrxReportPage>
 </TfrxReport>

Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas

@@ -8,15 +8,16 @@ uses
   uBizAlbaranesCliente;
 
 type
-  IAlbaranesClienteReportController = interface
+  IAlbaranesClienteReportController = interface(IControllerBase)
   ['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}']
-    procedure Preview(const AID : String);
+    procedure Preview(const AListaID : String);
-    procedure Print(const AID : String);
+    procedure Print(const AListaID : String);
     procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
     procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
+    function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;    
   end;
 
-  TAlbaranesClienteReportController = class(TInterfacedObject, IAlbaranesClienteReportController)
+  TAlbaranesClienteReportController = class(TControllerBase, IAlbaranesClienteReportController)
   private
     FDataModule : IDataModuleAlbaranesClienteReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
@@ -25,8 +26,9 @@ type
     constructor Create;
     destructor Destroy; override;
 
-    procedure Preview(const AID : String);
+    procedure Preview(const AListaID : String);
-    procedure Print(const AID : String);
+    procedure Print(const AListaID : String);
+    function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;
     procedure EtiquetasPreview(const AID : integer; const withRefCliente: Boolean);
     procedure EtiquetasPrint(const AID : integer; const withRefCliente: Boolean);
   end;
@@ -36,7 +38,8 @@ implementation
 
 uses
   uROTypes, uEditorRegistryUtils, uIEditorAlbaranesClientePreview,
-  uEditorPreview, uDataModuleAlbaranesCliente, uEditorBase, cxControls;
+  uEditorPreview, uDataModuleAlbaranesCliente, uEditorBase, cxControls,
+  uStringsUtils, uSistemaFunc, uFactuGES_App;
 
 { TAlbaranesClienteReportController }
 
@@ -112,7 +115,31 @@ begin
   end;
 end;
 
-procedure TAlbaranesClienteReportController.Preview(const AID : String);
+function TAlbaranesClienteReportController.ExportToWord(const AID: Integer;
+  const AFileName: String): Boolean;
+var
+  AStream: Binary;
+  AFile : String;
+begin
+  AFile := AFileName;
+  if EsCadenaVacia(AFile) and (not DarFicheroWordExportar(AFile)) then
+    Exit;
+
+  ShowHourglassCursor;
+  try
+    AStream := FDataModule.GetRptWordAlbaran(AID);
+    try
+      AStream.SaveToFile(AFile);
+      Result := True;
+    finally
+      FreeAndNil(AStream);
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+procedure TAlbaranesClienteReportController.Preview(const AListaID : String);
 var
   AStream: Binary;
   AEditor : IEditorAlbaranesClientePreview;
@@ -120,16 +147,19 @@ begin
   AEditor := NIL;
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetReport(AID); //Lista de seleccionados (Array de integers)
+    AStream := FDataModule.GetReport(AListaID); //Lista de seleccionados (Array de integers)
     try
       CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
       if Assigned(AEditor) then
-      with AEditor do
+        with AEditor do
-      begin
+        begin
-        LoadFromStream(AStream);
+          AEditor.Controller := Self;
-        Preview;
+          AEditor.ListaID := AListaID;
-        Release;
+          Title := 'Albarán - ' + AppFactuGES.EmpresaActiva.NOMBRE;
-      end;
+          LoadFromStream(AStream);
+          Preview;
+          Release;
+        end;
     finally
       FreeAndNil(AStream);
       AEditor := Nil;
@@ -139,7 +169,7 @@ begin
   end;
 end;
 
-procedure TAlbaranesClienteReportController.Print(const AID : String);
+procedure TAlbaranesClienteReportController.Print(const AListaID : String);
 var
   AStream: Binary;
   AEditor : IEditorAlbaranesClientePreview;
@@ -147,16 +177,18 @@ begin
   AEditor := NIL;
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetReport(AID);
+    AStream := FDataModule.GetReport(AListaID);
     try
       CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
       if Assigned(AEditor) then
-      with AEditor do
+        with AEditor do
-      begin
+        begin
-        LoadFromStream(AStream);
+          AEditor.Controller := Self;
-        Print;
+          AEditor.ListaID := AListaID;
-        Release;
+          LoadFromStream(AStream);
-      end;
+          Print;
+          Release;
+        end;
     finally
       FreeAndNil(AStream);
       AEditor := Nil;

Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.dproj

@@ -48,15 +48,15 @@
     <DelphiCompile Include="AlbaranesCliente_data.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\adortl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\cxLibraryD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\dbrtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\dsnap.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\dxThemeD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\rtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\vcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\vcldb.dcp" />
     <DCCReference Include="uDataModuleAlbaranesCliente.pas">
       <Form>DataModuleAlbaranesCliente</Form>
     </DCCReference>

Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas

@@ -35,6 +35,7 @@ type
 
     // Report
     function GetReport(const AID: String): Binary;
+    function GetRptWordAlbaran(const AID: Integer): Binary;
     function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
   end;
 
@@ -64,6 +65,12 @@ begin
   Result := (RORemoteService as IsrvAlbaranesCliente).GenerateReport(AID);
 end;
 
+function TDataModuleAlbaranesCliente.GetRptWordAlbaran(
+  const AID: Integer): Binary;
+begin
+  Result := (RORemoteService as IsrvAlbaranesCliente).GenerateReportEnWord(AID)
+end;
+
 function TDataModuleAlbaranesCliente.NewItem: IBizAlbaranCliente;
 begin
   Result := GetItem(ID_NULO)

Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.dproj

@@ -51,9 +51,9 @@
     <DelphiCompile Include="AlbaranesCliente_model.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\Lib\ApplicationBase.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\..\Lib\Base.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\Base.dcp" />
-    <DCCReference Include="..\..\..\Lib\Contactos_model.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\Contactos_model.dcp" />
     <DCCReference Include="Data\uIDataModuleAlbaranesCliente.pas" />
     <DCCReference Include="Data\uIDataModuleAlbaranesClienteReport.pas" />
     <DCCReference Include="schAlbaranesClienteClient_Intf.pas" />
@@ -64,7 +64,7 @@
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]
-EurekaLog Version=6006
+EurekaLog Version=6011
 Activate=1
 Activate Handle=1
 Save Log File=1

Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas

@@ -9,6 +9,7 @@ type
   IDataModuleAlbaranesClienteReport = interface
   ['{42C55204-5AB9-403E-8385-1A62B02D8234}']
     function GetReport(const AID: String): Binary;
+    function GetRptWordAlbaran(const AID: Integer): Binary;
     function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;    
   end;
 

Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.dpk

@@ -25,8 +25,13 @@ package AlbaranesCliente_plugin;
 {$IMPLICITBUILD ON}
 
 requires
-  AlbaranesCliente_view,
+  Base,
-  AlbaranesCliente_model;
+  GUIBase,
+  ApplicationBase,
+  Contactos_view,
+  Articulos_view,
+  AlbaranesCliente_controller,
+  AlbaranesCliente_view;
 
 contains
   uPluginAlbaranesCliente in 'uPluginAlbaranesCliente.pas' {PluginAlbaranesCliente};

Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.dproj

@@ -1,4 +1,5 @@
-<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
     <ProjectGuid>{e7d762a1-3a15-46b2-bd5b-3821d13b8347}</ProjectGuid>
     <MainSource>AlbaranesCliente_plugin.dpk</MainSource>
@@ -41,44 +42,21 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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.0.0.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.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      <Parameters Name="UseLauncher">False</Parameters>
+      
-      <Parameters Name="LoadAllSymbols">True</Parameters>
+      
-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+      
-    </Parameters>
+      
-    <Package_Options>
+      
-      <Package_Options Name="ImplicitBuild">True</Package_Options>
+      
-      <Package_Options Name="DesigntimeOnly">False</Package_Options>
+      
-      <Package_Options Name="RuntimeOnly">False</Package_Options>
+      
-    </Package_Options>
+      
-    <VersionInfo>
+      
-      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
+      
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      
-      <VersionInfo Name="MajorVer">1</VersionInfo>
+      
-      <VersionInfo Name="MinorVer">0</VersionInfo>
+      
-      <VersionInfo Name="Release">0</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.0.0.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.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
-    </VersionInfoKeys>
-    <Excluded_Packages>
       
       
       
@@ -89,28 +67,40 @@
       
       <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
       <Excluded_Packages Name="C:\Archivos de programa\EurekaLog 5\Delphi10\ExceptionExpert10.bpl">EurekaLog 5.1.9</Excluded_Packages>
-    </Excluded_Packages>
+    </Excluded_Packages><Source><Source Name="MainSource">AlbaranesCliente_plugin.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-    <Source>
-      <Source Name="MainSource">AlbaranesCliente_plugin.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="AlbaranesCliente_plugin.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Lib\AlbaranesCliente_model.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_.dcp" />
-    <DCCReference Include="..\..\Lib\AlbaranesCliente_view.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_c.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_co.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_con.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_cont.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_contr.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_contro.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_control.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_controll.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_controlle.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_controller.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_v.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_vi.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\AlbaranesCliente_vie.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\ApplicationBase.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\Articulos_view.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\Base.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\Contactos_view.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\GUIBase.dcp" />
     <DCCReference Include="uPluginAlbaranesCliente.pas">
       <Form>PluginAlbaranesCliente</Form>
     </DCCReference>
   </ItemGroup>
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
-EurekaLog Version=6006
+EurekaLog Version=6011
 Activate=1
 Activate Handle=1
 Save Log File=1

Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.rc

@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+    BLOCK "StringFileInfo"
+    BEGIN
+         BLOCK "0C0A04E4"
+         BEGIN
+              VALUE "FileVersion", "1.0.0.0\0"
+              VALUE "ProductVersion", "1.0.0.0\0"
+         END
+    END
+    BLOCK "VarFileInfo"
+    BEGIN
+         VALUE "Translation", 0x0C0A, 1252
+    END
+END

Source/Modulos/Albaranes de cliente/Reports/uRptWordAlbaranCliente.dfm

@@ -0,0 +1,493 @@
+object RptWordAlbaranCliente: TRptWordAlbaranCliente
+  OldCreateOrder = False
+  Height = 262
+  Width = 374
+  object schReport: TDASchema
+    ConnectionManager = dmServer.ConnectionManager
+    DataDictionary = DataDictionary
+    Datasets = <
+      item
+        Params = <
+          item
+            Name = 'ID'
+            Value = '2'
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            SQL = 
+              'SELECT'#10'  V_ALBARANES_CLIENTE.ID, V_ALBARANES_CLIENTE.ID_EMPRESA,' +
+              #10'  V_ALBARANES_CLIENTE.ID_CLIENTE,'#10'  V_ALBARANES_CLIENTE.FECHA_A' +
+              'LBARAN,'#10'  V_ALBARANES_CLIENTE.REFERENCIA,'#10'  V_ALBARANES_CLIENTE.' +
+              'REFERENCIA_CLIENTE,'#10'  V_ALBARANES_CLIENTE.ID_PEDIDO,'#10'  V_ALBARAN' +
+              'ES_CLIENTE.REF_PEDIDO,'#10'  V_ALBARANES_CLIENTE.OBSERVACIONES,'#10'  V_' +
+              'ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10'  V_CLIENTES.NIF_CIF, V_CLIENTE' +
+              'S.NOMBRE,'#10'  V_CLIENTES.PERSONA_CONTACTO, V_CLIENTES.CALLE, V_CLI' +
+              'ENTES.POBLACION,'#10'  V_CLIENTES.PROVINCIA, V_CLIENTES.CODIGO_POSTA' +
+              'L'#10'FROM'#10'  V_ALBARANES_CLIENTE'#10'  INNER JOIN V_CLIENTES ON (V_CLIEN' +
+              'TES.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10'WHERE V_ALBARANES_CLIEN' +
+              'TE.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 = 'ID_CLIENTE'
+                TableField = 'ID_CLIENTE'
+              end
+              item
+                DatasetField = 'REFERENCIA_CLIENTE'
+                TableField = 'REFERENCIA_CLIENTE'
+              end
+              item
+                DatasetField = 'NIF_CIF'
+                TableField = 'NIF_CIF'
+              end
+              item
+                DatasetField = 'NOMBRE'
+                TableField = 'NOMBRE'
+              end
+              item
+                DatasetField = 'IMPORTE_TOTAL'
+                TableField = 'IMPORTE_TOTAL'
+              end
+              item
+                DatasetField = 'PERSONA_CONTACTO'
+                TableField = 'PERSONA_CONTACTO'
+              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 = 'FECHA_ALBARAN'
+                TableField = 'FECHA_ALBARAN'
+              end
+              item
+                DatasetField = 'ID_PEDIDO'
+                TableField = 'ID_PEDIDO'
+              end
+              item
+                DatasetField = 'REF_PEDIDO'
+                TableField = 'REF_PEDIDO'
+              end>
+          end>
+        Name = 'Informe_Cabecera'
+        Fields = <
+          item
+            Name = 'ID'
+            DataType = datInteger
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'ID_EMPRESA'
+            DataType = datInteger
+          end
+          item
+            Name = 'ID_CLIENTE'
+            DataType = datInteger
+          end
+          item
+            Name = 'FECHA_ALBARAN'
+            DataType = datDateTime
+          end
+          item
+            Name = 'REFERENCIA'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'REFERENCIA_CLIENTE'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'ID_PEDIDO'
+            DataType = datInteger
+          end
+          item
+            Name = 'REF_PEDIDO'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'OBSERVACIONES'
+            DataType = datMemo
+          end
+          item
+            Name = 'IMPORTE_TOTAL'
+            DataType = datCurrency
+          end
+          item
+            Name = 'NIF_CIF'
+            DataType = datString
+            Size = 15
+          end
+          item
+            Name = 'NOMBRE'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'PERSONA_CONTACTO'
+            DataType = datString
+            Size = 255
+          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>
+        ReadOnly = True
+      end
+      item
+        Params = <
+          item
+            Name = 'ID_ALBARAN'
+            Value = ''
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            SQL = 
+              'SELECT ALBARANES_CLIENTE_DETALLES.ID, ALBARANES_CLIENTE_DETALLES' +
+              '.ID_ALBARAN,'#10'       ALBARANES_CLIENTE_DETALLES.POSICION, ALBARAN' +
+              'ES_CLIENTE_DETALLES.TIPO_DETALLE,'#10'       F_RTFTOTEXT(ALBARANES_C' +
+              'LIENTE_DETALLES.CONCEPTO) as CONCEPTO, ALBARANES_CLIENTE_DETALLE' +
+              'S.CANTIDAD,'#10'       ALBARANES_CLIENTE_DETALLES.IMPORTE_UNIDAD, AL' +
+              'BARANES_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10'       ARTICULOS.REFEREN' +
+              'CIA'#10'FROM ALBARANES_CLIENTE_DETALLES'#10'     LEFT JOIN ARTICULOS ON ' +
+              '(ALBARANES_CLIENTE_DETALLES.ID_ARTICULO = ARTICULOS.ID)'#10'  WHERE ' +
+              '{Where}'#10'    AND (VISIBLE) <> 0'#10'    AND (ID_ALBARAN = :ID_ALBARAN' +
+              ')'#10'  ORDER BY ID_ALBARAN, POSICION'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID'
+                TableField = 'ID'
+              end
+              item
+                DatasetField = 'POSICION'
+                TableField = 'POSICION'
+              end
+              item
+                DatasetField = 'TIPO_DETALLE'
+                TableField = 'TIPO_DETALLE'
+              end
+              item
+                DatasetField = 'CONCEPTO'
+                TableField = 'CONCEPTO'
+              end
+              item
+                DatasetField = 'IMPORTE_TOTAL'
+                TableField = 'IMPORTE_TOTAL'
+              end
+              item
+                DatasetField = 'CANTIDAD'
+                TableField = 'CANTIDAD'
+              end
+              item
+                DatasetField = 'IMPORTE_UNIDAD'
+                TableField = 'IMPORTE_UNIDAD'
+              end
+              item
+                DatasetField = 'ID_ALBARAN'
+                TableField = 'ID_ALBARAN'
+              end
+              item
+                DatasetField = 'REFERENCIA'
+                TableField = 'REFERENCIA'
+              end>
+          end>
+        Name = 'Informe_Detalles'
+        Fields = <
+          item
+            Name = 'ID'
+            DataType = datInteger
+            InPrimaryKey = True
+          end
+          item
+            Name = 'ID_ALBARAN'
+            DataType = datInteger
+          end
+          item
+            Name = 'POSICION'
+            DataType = datInteger
+          end
+          item
+            Name = 'TIPO_DETALLE'
+            DataType = datString
+            Size = 10
+          end
+          item
+            Name = 'CONCEPTO'
+            DataType = datString
+            Size = 254
+          end
+          item
+            Name = 'CANTIDAD'
+            DataType = datInteger
+          end
+          item
+            Name = 'IMPORTE_UNIDAD'
+            DataType = datCurrency
+          end
+          item
+            Name = 'IMPORTE_TOTAL'
+            DataType = datCurrency
+          end
+          item
+            Name = 'REFERENCIA'
+            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
+        Required = True
+        InPrimaryKey = True
+      end
+      item
+        Name = 'ID_EMPRESA'
+        DataType = datInteger
+      end
+      item
+        Name = 'ID_CLIENTE'
+        DataType = datInteger
+      end
+      item
+        Name = 'FECHA_ALBARAN'
+        DataType = datDateTime
+      end
+      item
+        Name = 'REFERENCIA'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'REFERENCIA_CLIENTE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'ID_PEDIDO'
+        DataType = datInteger
+      end
+      item
+        Name = 'REF_PEDIDO'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'OBSERVACIONES'
+        DataType = datMemo
+      end
+      item
+        Name = 'IMPORTE_TOTAL'
+        DataType = datCurrency
+      end
+      item
+        Name = 'NIF_CIF'
+        DataType = datString
+        Size = 15
+      end
+      item
+        Name = 'NOMBRE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'PERSONA_CONTACTO'
+        DataType = datString
+        Size = 255
+      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>
+    Params = <
+      item
+        Name = 'ID'
+        Value = '2'
+        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
+        InPrimaryKey = True
+      end
+      item
+        Name = 'ID_ALBARAN'
+        DataType = datInteger
+      end
+      item
+        Name = 'POSICION'
+        DataType = datInteger
+      end
+      item
+        Name = 'TIPO_DETALLE'
+        DataType = datString
+        Size = 10
+      end
+      item
+        Name = 'CONCEPTO'
+        DataType = datString
+        Size = 254
+      end
+      item
+        Name = 'CANTIDAD'
+        DataType = datInteger
+      end
+      item
+        Name = 'IMPORTE_UNIDAD'
+        DataType = datCurrency
+      end
+      item
+        Name = 'IMPORTE_TOTAL'
+        DataType = datCurrency
+      end
+      item
+        Name = 'REFERENCIA'
+        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 cliente/Reports/uRptWordAlbaranCliente.pas

@@ -0,0 +1,252 @@
+unit uRptWordAlbaranCliente;
+
+interface
+
+uses
+  SysUtils, Classes, AHWord97, IB, IBCustomDataSet, IBDatabase,
+  Word2000,
+  uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAClasses,
+  uDAScriptingProvider, uDADataTable, uDAMemDataTable;
+  
+type
+  TRptWordAlbaranCliente = class(TDataModule)
+    DABin2DataStreamer: TDABin2DataStreamer;
+    tbl_Cabecera: TDAMemDataTable;
+    tbl_Detalles: TDAMemDataTable;
+    schReport: TDASchema;
+    DataDictionary: TDADataDictionary;
+    tbl_Empresa: TDAMemDataTable;
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    FConnection: IDAConnection;
+    FWordApp : TWordApp;
+    FDocumento : TWordDoc;
+    FPlantilla : string;
+    FCodigoAlbaran : string;
+    FNombreFichero : string;
+    function RellenarInforme : Boolean;
+    procedure RellenarDatosAlbaran;
+    procedure RellenarDatosDetalle;
+    function Generar: Boolean;
+    procedure _GenerarAlbaran(const AID: String);
+  public
+    function Exportar(Codigo, Fichero : String): Boolean;
+    constructor Create (AOwner : TComponent); override;
+    destructor Destroy; override;
+  end;
+
+implementation
+
+{ TRptWordAlbaranCliente }
+
+{$R *.dfm}
+
+uses
+  Windows, Variants, Dialogs, uDataModuleServer, uStringsUtils, uSistemaFunc,
+  srvEmpresas_Impl, uROTypes, uROClasses;
+
+const
+  rptInforme = 'AlbaranCliente.rdx';
+
+constructor TRptWordAlbaranCliente.Create(AOwner: TComponent);
+begin
+  inherited;
+  FDocumento := NIL;
+
+  FPlantilla := DarRutaInformes + rptInforme;
+end;
+
+procedure TRptWordAlbaranCliente.DataModuleCreate(Sender: TObject);
+begin
+  schReport.ConnectionManager := dmServer.ConnectionManager;
+  FConnection := dmServer.DarNuevaConexion;
+end;
+
+destructor TRptWordAlbaranCliente.Destroy;
+begin
+  if FDocumento <> NIL then
+    FDocumento.Free;
+  FDocumento := NIL;
+
+  inherited;
+end;
+
+function TRptWordAlbaranCliente.Generar: Boolean;
+begin
+  FWordApp := TWordApp.Create (False, False);
+  with FWordApp do
+  begin
+    Visible := False;
+    ScreenUpdating := False;
+  end;
+
+  FDocumento := TWordDoc.CreateOpenDoc (FWordApp, FPlantilla);
+  try
+    if not RellenarInforme then
+      RaiseError('Se producido un error al generar el informe en MS Word.');
+
+    FDocumento.SaveAs(FNombreFichero);
+    FWordApp.CloseApp(wdDoNotSaveChanges);
+    Result := True;
+  finally
+    FDocumento := NIL;
+    FWordApp := NIL;
+  end;
+end;
+
+function TRptWordAlbaranCliente.RellenarInforme: Boolean;
+begin
+  RellenarDatosAlbaran;
+  RellenarDatosDetalle;
+  Result := True;
+end;
+
+procedure TRptWordAlbaranCliente.RellenarDatosAlbaran;
+var
+  FicheroTemporal : String;
+  LinkToFile, SaveWithDocument, _Range : OleVariant;
+  Imagen : InlineShape;
+
+begin
+
+  //PARA DIBUJAR EL LOGOTIPO MULTIEMPRESA
+  {---------------------------  PENDIENTE
+  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
+    ReplaceBookmark('CodigoAlbaranCab', FieldByName('REFERENCIA').AsString);
+    ReplaceBookmark('FechaAlbaranCab', FieldByName('FECHA_ALBARAN').AsString);
+
+    ReplaceBookmark('NombreClienteCab', FieldByName('NOMBRE').AsString);
+    ReplaceBookmark('DireccionClienteCab', FieldByName('CALLE').AsString);
+    ReplaceBookmark('PoblacionClienteCab',
+       FieldByName('CODIGO_POSTAL').AsString + ' ' +
+       FieldByName('POBLACION').AsString + ' ' + FieldByName('PROVINCIA').AsString);
+    ReplaceBookmark('ContactoClienteCab', FieldByName('PERSONA_CONTACTO').AsString);
+
+{P571
+    ReplaceBookmark('BaseImponible', FieldByName('BASEIMPONIBLE').DisplayText);
+    if esCadenaVacia(FieldByName('Descuento').DisplayText)
+    then ReplaceBookmark('Descuento', '0')
+    else ReplaceBookmark('Descuento', FieldByName('DESCUENTO').DisplayText);
+    ReplaceBookmark('ImporteDescuento', FieldByName('IMPORTEDESCUENTO').DisplayText);
+    if esCadenaVacia(FieldByName('IVA').DisplayText)
+    then ReplaceBookmark('IVA', '0')
+    else ReplaceBookmark('IVA', FieldByName('IVA').DisplayText);
+    ReplaceBookmark('ImporteIVA', FieldByName('IMPORTEIVA').DisplayText);
+    ReplaceBookmark('ImporteTotal', FieldByName('IMPORTETOTAL').DisplayText);
+}
+
+    ReplaceBookmark('NombreEmpresa', 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;
+end;
+
+procedure TRptWordAlbaranCliente.RellenarDatosDetalle;
+var
+  numRows, numCols, mergesplit : OleVariant;
+  MaxCols, iRowCount : Integer;
+begin
+  iRowCount := 2;
+  numrows := 2;
+  numcols := 1;
+  mergeSplit := False;
+  MaxCols := 24;
+
+  with FDocumento.Document.Tables.Item(1), tbl_Detalles do
+  begin
+    First;
+    while not EOF do
+    begin
+        Rows.Item (iRowCount).Cells.Split (numRows, numCols, mergesplit);
+        Cell(iRowCount, 1).Range.Text := FieldByName('REFERENCIA').AsString;
+        Cell(iRowCount, 2).Range.Text := FieldByName('CONCEPTO').AsString;
+        Cell(iRowCount, 3).Range.Text := FieldByName('CANTIDAD').AsString; {------- PENDIENTE  + ' ' +
+                                       FieldByName('UNIDADESMEDIDA').AsString; ------}
+        if (FieldByName('IMPORTE_UNIDAD').AsFloat = 0) then
+          Cell(iRowCount, 4).Range.Text := ''
+        else
+          Cell(iRowCount, 4).Range.Text := FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_UNIDAD').AsFloat);
+
+        if (FieldByName('IMPORTE_TOTAL').AsFloat = 0) then
+          Cell(iRowCount, 5).Range.Text := ''
+        else
+          Cell(iRowCount, 5).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;
+end;
+
+
+function TRptWordAlbaranCliente.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 TRptWordAlbaranCliente._GenerarAlbaran(const AID: String);
+var
+  ACopiaPlantilla : String;
+begin
+  tbl_Cabecera.ParamByName('ID').AsString := AID;
+  tbl_Detalles.ParamByName('ID_ALBARAN').AsString := AID;
+
+  tbl_Cabecera.Active := True;
+  tbl_Detalles.Active := True;
+
+  FCodigoAlbaran := AID;
+
+  ACopiaPlantilla := DarFicheroTemporal;
+  CopiarFichero(FPlantilla, ACopiaPlantilla);
+  FPlantilla := ACopiaPlantilla;
+  try
+    if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then
+      Generar;
+  finally
+    SysUtils.DeleteFile(ACopiaPlantilla);
+  end;
+end;
+
+
+end.

Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm

@@ -1,7 +1,6 @@
 object srvAlbaranesCliente: TsrvAlbaranesCliente
   OldCreateOrder = True
   OnCreate = DARemoteServiceCreate
-  RequiresSession = True
   SessionManager = dmServer.SessionManager
   ConnectionName = 'IBX'
   ServiceSchema = schAlbaranesCliente

Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas

@@ -35,6 +35,7 @@ type
     { IsrvAlbaranesCliente methods }
     function GenerateReport(const ID: String): Binary;
     function GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
+    function GenerateReportEnWord(const ID: Integer): Binary;    
   end;
 
 implementation
@@ -43,7 +44,8 @@ implementation
 uses
   {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
   schAlbaranesClienteClient_Intf, uRestriccionesUsuarioUtils,
-  uRptAlbaranesCliente_Server, uBizAlbaranClienteServer;
+  uRptAlbaranesCliente_Server, uBizAlbaranClienteServer, uRptWordAlbaranCliente,
+  uSistemaFunc;
 
 procedure Create_srvAlbaranesCliente(out anInstance : IUnknown);
 begin
@@ -102,6 +104,26 @@ begin
   end;
 end;
 
+function TsrvAlbaranesCliente.GenerateReportEnWord(const ID: Integer): Binary;
+var
+  AReportGenerator : TRptWordAlbaranCliente;
+  AFicheroTMP : TFileName;
+begin
+  Result := NIL;
+  AFicheroTMP := DarFicheroTemporal;
+  AReportGenerator := TRptWordAlbaranCliente.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('srvAlbaranesCliente', Create_srvAlbaranesCliente, TsrvAlbaranesCliente_Invoker);
 

Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk

@@ -28,7 +28,27 @@ requires
   AlbaranesCliente_model,
   AlbaranesCliente_controller,
   Articulos_view,
-  Almacenes_controller;
+  Almacenes_controller,
+  vcl,
+  rtl,
+  PNG_D10,
+  PngComponentsD10,
+  vclactnband,
+  vclx,
+  tb2k_d10,
+  tbx_d10,
+  JvCoreD11R,
+  vcldb,
+  dbrtl,
+  vcljpg,
+  Jcl,
+  JclVcl,
+  JvSystemD11R,
+  JvStdCtrlsD11R,
+  JvPageCompsD11R,
+  frx11,
+  fs11,
+  frxe11;
 
 contains
   uAlbaranesClienteViewRegister in 'uAlbaranesClienteViewRegister.pas',

Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj

@@ -1,4 +1,5 @@
-<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
     <ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid>
     <MainSource>AlbaranesCliente_view.dpk</MainSource>
@@ -41,136 +42,104 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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.0.0.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.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      <Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="LoadAllSymbols">True</Parameters>
-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-    </Parameters>
-    <Package_Options>
-      <Package_Options Name="ImplicitBuild">True</Package_Options>
-      <Package_Options Name="DesigntimeOnly">False</Package_Options>
-      <Package_Options Name="RuntimeOnly">False</Package_Options>
-    </Package_Options>
-    <VersionInfo>
-      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-      <VersionInfo Name="MajorVer">1</VersionInfo>
-      <VersionInfo Name="MinorVer">0</VersionInfo>
-      <VersionInfo Name="Release">0</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.0.0.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.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
-    </VersionInfoKeys>
-    <Excluded_Packages>
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages>
       <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages>
       <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages>
       <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclie100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclie100.bpl not found</Excluded_Packages>
-    </Excluded_Packages>
+    </Excluded_Packages><Source><Source Name="MainSource">AlbaranesCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-    <Source>
-      <Source Name="MainSource">AlbaranesCliente_view.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="AlbaranesCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Lib\AlbaranesCliente_controller.dcp" />
+    <DCCReference Include="AlbaranesCliente_controller.dcp" />
-    <DCCReference Include="..\..\Lib\AlbaranesCliente_model.dcp" />
+    <DCCReference Include="AlbaranesCliente_model.dcp" />
-    <DCCReference Include="..\..\Lib\Almacenes_controller.dcp" />
+    <DCCReference Include="Almacenes_controller.dcp" />
-    <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
+    <DCCReference Include="Articulos_view.dcp" />
+    <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="frx11.dcp" />
+    <DCCReference Include="frxe11.dcp" />
+    <DCCReference Include="fs11.dcp" />
+    <DCCReference Include="Jcl.dcp" />
+    <DCCReference Include="JclVcl.dcp" />
+    <DCCReference Include="JvCoreD11R.dcp" />
+    <DCCReference Include="JvPageCompsD11R.dcp" />
+    <DCCReference Include="JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="JvSystemD11R.dcp" />
+    <DCCReference Include="PngComponentsD10.dcp" />
+    <DCCReference Include="PNG_D10.dcp" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="tb2k_d10.dcp" />
+    <DCCReference Include="tbx_d10.dcp" />
     <DCCReference Include="uAlbaranesClienteViewRegister.pas" />
     <DCCReference Include="uEditorAlbaranCliente.pas">
       <Form>fEditorAlbaranCliente</Form>
+      <DesignClass>TfEditorAlbaranCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorAlbaranDevCliente.pas">
       <Form>fEditorAlbaranDevCliente</Form>
+      <DesignClass>TCustomEditor</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorAlbaranesCliente.pas">
       <Form>fEditorAlbaranesCliente</Form>
+      <DesignClass>TfEditorPedidosCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorAlbaranesClienteReport.pas">
       <Form>fEditorAlbaranesClienteReport</Form>
+      <DesignClass>TfEditorAlbaranesClienteReport</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorAlbaranesDevCliente.pas">
       <Form>fEditorAlbaranesDevCliente</Form>
+      <DesignClass>TCustomEditor</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorElegirAlbaranesCliente.pas">
       <Form>fEditorElegirAlbaranesCliente</Form>
+      <DesignClass>TfEditorElegirAlbaranesCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uEditorElegirArticulosAlbaranCliente.pas">
       <Form>fEditorElegirArticulosAlbaranCliente</Form>
+      <DesignClass>TfEditorElegirArticulosAlbaranCliente</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewAlbaranCliente.pas">
       <Form>frViewAlbaranCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewAlbaranDevCliente.pas">
       <Form>frViewAlbaranDevCliente</Form>
+      <DesignClass>TCustomView</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewAlbaranesCliente.pas">
       <Form>frViewAlbaranesCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewAlbaranesDevCliente.pas">
       <Form>frViewAlbaranesDevCliente</Form>
+      <DesignClass>TCustomView</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewDetallesAlbaranCliente.pas">
       <Form>frViewDetallesAlbaranCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewDireccionEntregaAlbaranCliente.pas">
       <Form>frViewDireccionEntregaAlbaranCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
     <DCCReference Include="uViewElegirArticulosAlbaranesCliente.pas">
       <Form>frViewElegirArticulosAlbaranesCliente</Form>
+      <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vclactnband.dcp" />
+    <DCCReference Include="vcldb.dcp" />
+    <DCCReference Include="vcljpg.dcp" />
+    <DCCReference Include="vclx.dcp" />
   </ItemGroup>
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
-EurekaLog Version=6006
+EurekaLog Version=6011
 Activate=1
 Activate Handle=1
 Save Log File=1

Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.rc

@@ -0,0 +1,22 @@
+1 VERSIONINFO
+FILEVERSION 1,0,0,0
+PRODUCTVERSION 1,0,0,0
+FILEFLAGSMASK 0x3FL
+FILEFLAGS 0x00L
+FILEOS 0x40004L
+FILETYPE 0x1L
+FILESUBTYPE 0x0L
+BEGIN
+    BLOCK "StringFileInfo"
+    BEGIN
+         BLOCK "0C0A04E4"
+         BEGIN
+              VALUE "FileVersion", "1.0.0.0\0"
+              VALUE "ProductVersion", "1.0.0.0\0"
+         END
+    END
+    BLOCK "VarFileInfo"
+    BEGIN
+         VALUE "Translation", 0x0C0A, 1252
+    END
+END

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.dfm

@@ -2,4 +2,13 @@ inherited fEditorAlbaranesClientePreview: TfEditorAlbaranesClientePreview
   Caption = 'Previsualizar el albar'#225'n de cliente'
   PixelsPerInch = 96
   TextHeight = 13
+  inherited TBXDock: TTBXDock
+    inherited TBXToolbar1: TTBXToolbar
+      ExplicitWidth = 540
+      object TBXItem58: TTBXItem [1]
+        Action = actExportarRTF
+        Images = SmallImages
+      end
+    end
+  end
 end

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas

@@ -16,10 +16,36 @@ uses
 
 type
   TfEditorAlbaranesClientePreview = class(TfEditorPreview, IEditorAlbaranesClientePreview)
+    TBXItem58: TTBXItem;
+    procedure actExportarRTFExecute(Sender: TObject);
   end;
 
 
 implementation
+
 {$R *.dfm}
 
+uses
+  uAlbaranesClienteReportController;
+
+procedure TfEditorAlbaranesClientePreview.actExportarRTFExecute(
+  Sender: TObject);
+var
+  AListaID : TStringList;
+  I: Integer;
+begin
+  // inherited; <- No llamar al padre
+  if not Assigned(Controller) then
+    raise Exception.Create('No se ha asignado el controlador necesario');
+
+  AListaID := TStringList.Create;
+  try
+    AListaID.CommaText := Self.ListaID;
+    for I := 0 to AListaID.Count - 1 do
+      (Controller as IAlbaranesClienteReportController).ExportToWord(StrToInt(AListaID[I]));
+  finally
+    FreeAndNIL(AListaID);
+  end;
+end;
+
 end.

Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas

@@ -4,7 +4,7 @@ interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, uViewDetallesArticulos, cxStyles, cxCustomData, cxGraphics, cxFilter,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter,
   cxData, cxDataStorage, cxEdit, DB, cxDBData, ImgList, PngImageList,
   uDADataTable, ActnList, ComCtrls, ToolWin, cxGridLevel, cxClasses, cxControls,
   cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
@@ -13,7 +13,8 @@ uses
   JvExStdCtrls, JvCombobox, JvColorCombo, TB2Item, TBX, TB2Dock, TB2Toolbar,
   uControllerDetallesArticulos, uBizAlbaranesCliente, cxDropDownEdit,
   cxCalendar, cxDBEdit, dxLayoutControl, cxContainer, cxLookupEdit,
-  cxDBLookupEdit, cxDBLookupComboBox, uDAInterfaces, cxButtonEdit;
+  cxDBLookupEdit, cxDBLookupComboBox, uDAInterfaces, cxButtonEdit,
+  uViewDetallesArticulos;
 
 type
   IViewDetallesAlbaranCliente = interface(IViewDetallesArticulos)

Source/Modulos/Articulos/Controller/Articulos_controller.dproj

@@ -42,76 +42,33 @@
     <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
     <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
     <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
-    <DCC_Define>DEBUG</DCC_Define>
   </PropertyGroup>
   <ProjectExtensions>
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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.0.0.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.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Articulos_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-      <Parameters Name="UseLauncher">False</Parameters>
-      <Parameters Name="LoadAllSymbols">True</Parameters>
-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
-    </Parameters>
-    <Package_Options>
-      <Package_Options Name="ImplicitBuild">True</Package_Options>
-      <Package_Options Name="DesigntimeOnly">False</Package_Options>
-      <Package_Options Name="RuntimeOnly">False</Package_Options>
-    </Package_Options>
-    <VersionInfo>
-      <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-      <VersionInfo Name="MajorVer">1</VersionInfo>
-      <VersionInfo Name="MinorVer">0</VersionInfo>
-      <VersionInfo Name="Release">0</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.0.0.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.0.0.0</VersionInfoKeys>
-      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
-    </VersionInfoKeys>
-    <Source>
-      <Source Name="MainSource">Articulos_controller.dpk</Source>
-    </Source>
-  </Delphi.Personality> </BorlandProject></BorlandProject>
   </ProjectExtensions>
-  <ItemGroup />
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="Articulos_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="Articulos_data.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\Articulos_data.dcp" />
-    <DCCReference Include="Articulos_model.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\Articulos_model.dcp" />
-    <DCCReference Include="Contactos_controller.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\Contactos_controller.dcp" />
-    <DCCReference Include="Contactos_model.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\Contactos_model.dcp" />
-    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\GUIBase.dcp" />
     <DCCReference Include="uArticulosController.pas" />
     <DCCReference Include="uControllerDetallesArticulos.pas" />
     <DCCReference Include="View\uIEditorArticulo.pas" />
     <DCCReference Include="View\uIEditorArticulos.pas" />
     <DCCReference Include="View\uIEditorElegirArticulos.pas" />
   </ItemGroup>
-  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
-EurekaLog Version=6006
+EurekaLog Version=6011
 Activate=0
 Activate Handle=1
 Save Log File=1

Source/Modulos/Articulos/Views/Articulos_view.dproj

@@ -54,12 +54,12 @@
     <DelphiCompile Include="Articulos_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_controller.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\Articulos_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_model.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\Articulos_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\Contactos_view.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Familias_controller.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\Familias_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\GUIBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\UnidadesMedida_controller.dcp" />
+    <DCCReference Include="..\..\Contactos\Model\UnidadesMedida_controller.dcp" />
     <DCCReference Include="uArticulosViewRegister.pas" />
     <DCCReference Include="uEditorArticulo.pas">
       <Form>fEditorArticulo</Form>

Source/Modulos/Contactos/Model/schContactosClient_Intf.pas

@@ -9,19 +9,19 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_Contactos = '{01CE9CDB-E726-469B-A566-3FD8E74E2C36}';
+  RID_Contactos = '{C115B421-4BB9-4A74-9C72-DC05360DB831}';
-  RID_GruposCliente = '{EFD8258F-5EA4-4877-9C27-CAB5C72DA74B}';
+  RID_GruposCliente = '{3445A902-A22B-4B61-A8AD-6757AFF10F12}';
-  RID_DatosBancarios = '{8506D0C1-D84B-4FAC-984E-6D954F2719FB}';
+  RID_DatosBancarios = '{70368AEC-FBFA-4E34-9451-57BD7B9417CC}';
-  RID_Clientes = '{887D55BC-0EBB-48C5-8E93-398F7465D379}';
+  RID_Clientes = '{BF8CDD3B-FEB5-416F-8A10-050513FCB6B9}';
-  RID_Proveedores = '{628FC67C-08CB-42E6-B92D-93A8C6ACCD3C}';
+  RID_Proveedores = '{C5E90BF8-A2BD-4D48-9E31-A8B6ACFB3F6B}';
-  RID_Empleados = '{EB5B27DC-6A00-4BCD-A079-E046CC23C6F6}';
+  RID_Empleados = '{57106E54-5E47-4FC6-959F-140B5B037456}';
-  RID_DireccionesContacto = '{226A0A42-99A1-4FF0-ADC6-FF2E281C4E6E}';
+  RID_DireccionesContacto = '{B3F87076-62C7-4C8C-A75A-7D75A4E5676E}';
-  RID_ClientesDescuentos = '{7D2A9F93-92EC-4E24-AA27-1AAC02B56687}';
+  RID_ClientesDescuentos = '{BFC90D18-9C3E-48E2-9ECF-DEDE503C9840}';
-  RID_GruposProveedor = '{0AC9FC90-A9C3-4107-8ECF-0FEB163A5146}';
+  RID_GruposProveedor = '{2D30AB4E-2FBA-4A98-98EC-B8B8F6CC4511}';
-  RID_GruposEmpleado = '{99E32C39-1135-4B8F-9611-D0034FACD8D9}';
+  RID_GruposEmpleado = '{CB61D651-65EA-4C1E-B687-782E7B0913EF}';
-  RID_Contactos_Refresh = '{09A2CA71-0994-44EE-A10A-28C86E54F64D}';
+  RID_Contactos_Refresh = '{0FD3262C-7F50-488E-AA21-FF9544500886}';
-  RID_ContratosEmpleados = '{40F36840-7E89-4DFD-BA85-8E34E36A81AD}';
+  RID_ContratosEmpleados = '{782086DB-6B6E-4A41-AD72-5B68A3E5D81A}';
-  RID_DescripcionesProveedores = '{3BAF62F7-6D80-4F31-A321-E2268F0219A4}';
+  RID_DescripcionesProveedores = '{311D75FD-C603-4AA2-846A-BAC7029441BD}';
 
   { Data table names }
   nme_Contactos = 'Contactos';
@@ -453,7 +453,7 @@ const
 type
   { IContactos }
   IContactos = interface(IDAStronglyTypedDataTable)
-  ['{7B181D3B-747F-43F4-BBF3-9785D0D4D67B}']
+  ['{719844C6-2A70-424C-B789-FA36D4D6FDA6}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -752,7 +752,7 @@ type
 
   { IGruposCliente }
   IGruposCliente = interface(IDAStronglyTypedDataTable)
-  ['{2382AA28-EE2C-4691-A770-CB1BA5D70897}']
+  ['{732A532F-BB92-4DBA-9EE4-ECC2C34A43CF}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -799,7 +799,7 @@ type
 
   { IDatosBancarios }
   IDatosBancarios = interface(IDAStronglyTypedDataTable)
-  ['{F72B1F33-9B14-42D6-9A25-EAC2E0238671}']
+  ['{3DD35211-F85E-4803-8A3E-950C72CEF7A4}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -930,7 +930,7 @@ type
 
   { IClientes }
   IClientes = interface(IDAStronglyTypedDataTable)
-  ['{9355C5A0-5E01-4F9D-86CC-BDB1274A2A7B}']
+  ['{6B82F05A-B609-4FBD-9F12-CD3BF7A9649A}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1361,7 +1361,7 @@ type
 
   { IProveedores }
   IProveedores = interface(IDAStronglyTypedDataTable)
-  ['{D3C0A4E7-F3FD-43DC-B2B8-BAE7ACD8A8F1}']
+  ['{B54134B3-CB2B-4070-B699-9BBD573D3207}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1780,7 +1780,7 @@ type
 
   { IEmpleados }
   IEmpleados = interface(IDAStronglyTypedDataTable)
-  ['{82522988-9A9D-43E4-9B44-B1A6A8F60D85}']
+  ['{BE9A5BFB-4B2A-4D75-8443-81A62F176DBE}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2175,7 +2175,7 @@ type
 
   { IDireccionesContacto }
   IDireccionesContacto = interface(IDAStronglyTypedDataTable)
-  ['{79BE8405-A1EE-42C2-AB10-5574D6C0E89B}']
+  ['{F7A5D42D-DA30-4AC0-B4A8-CB8C3DC64B5C}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2390,7 +2390,7 @@ type
 
   { IClientesDescuentos }
   IClientesDescuentos = interface(IDAStronglyTypedDataTable)
-  ['{F09E5068-595E-4249-813D-5E910D208E3D}']
+  ['{E9DDB7B2-B15E-4AEE-A2A3-BA763DC98120}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2473,7 +2473,7 @@ type
 
   { IGruposProveedor }
   IGruposProveedor = interface(IDAStronglyTypedDataTable)
-  ['{3E7AE0C8-CB2A-4BFC-8ABC-870455595C62}']
+  ['{B151DCD3-F752-461E-AA83-46F24DBFB790}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2520,7 +2520,7 @@ type
 
   { IGruposEmpleado }
   IGruposEmpleado = interface(IDAStronglyTypedDataTable)
-  ['{10BBAC28-3D57-455D-AFD3-FE86A98648FD}']
+  ['{61C86566-7AFA-4838-A56E-9E38E30ADC7F}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2567,7 +2567,7 @@ type
 
   { IContactos_Refresh }
   IContactos_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{8CE36C56-56F3-40F5-9E18-06647B1D50AB}']
+  ['{544611C3-BA00-43EF-B22E-90A364702420}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2842,7 +2842,7 @@ type
 
   { IContratosEmpleados }
   IContratosEmpleados = interface(IDAStronglyTypedDataTable)
-  ['{9DCC16EF-A79F-42AF-A083-01A09B70F1C0}']
+  ['{A6A978AC-03FD-4411-9A0B-9E0CBB512563}']
     { Property getters and setters }
     function GetCONTRATOValue: String;
     procedure SetCONTRATOValue(const aValue: String);
@@ -2877,7 +2877,7 @@ type
 
   { IDescripcionesProveedores }
   IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
-  ['{A405B7BB-0753-4B81-BE6D-0BE49B548F77}']
+  ['{C4B8E28F-E02E-4B73-ACF7-C7C25DDF5C94}']
     { Property getters and setters }
     function GetDESCRIPCION_PROVEEDORValue: String;
     procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);

Source/Modulos/Contactos/Model/schContactosServer_Intf.pas

@@ -3,7 +3,8 @@ unit schContactosServer_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schContactosClient_Intf;
+  Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf,
+  schContactosClient_Intf;
 
 const
   { Delta rules ids 

Source/Modulos/Contactos/Views/Contactos_view.dproj

@@ -49,18 +49,18 @@
     <DelphiCompile Include="Contactos_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
+    <DCCReference Include="..\Model\ApplicationBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="..\Model\Base.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
+    <DCCReference Include="..\Model\Contactos_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
+    <DCCReference Include="..\Model\Contactos_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
+    <DCCReference Include="..\Model\FormasPago_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
+    <DCCReference Include="..\Model\FormasPago_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="..\Model\GUIBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
+    <DCCReference Include="..\Model\JvGlobusD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="..\Model\rtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
+    <DCCReference Include="..\Model\TiposIVA_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" />
+    <DCCReference Include="..\Model\TiposIVA_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="..\Model\vcl.dcp" />
     <DCCReference Include="uContactosViewRegister.pas" />
     <DCCReference Include="uEditorCliente.pas">
       <Form>fEditorCliente</Form>

Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas

@@ -57,7 +57,7 @@ implementation
 
 uses
   Windows, Variants, Dialogs, uDataModuleServer, uStringsUtils, uSistemaFunc,
-  srvEmpresas_Impl, uROTypes;
+  srvEmpresas_Impl, uROTypes, uROClasses;
 
 const
   rptInforme = 'Presupuesto.rdx';
@@ -93,7 +93,7 @@ begin
   if EsCadenaVacia(Fichero) then
   begin
     Result := False;
-    raise Exception.Create('Falta indicar el fichero donde se exportará el listado.');
+    RaiseError('Falta indicar el fichero donde se exportará el listado.');
   end;
 
   FNombreFichero := Fichero;
@@ -117,18 +117,18 @@ begin
   FWordApp.ScreenUpdating := False;
   try
     if not RellenarPortada then
-      raise Exception.Create('Se producido un error al generar la portada del informe en MS Word.');
+      RaiseError('Se producido un error al generar la portada del informe en MS Word.');
 
     if not RellenarCabecera then
-      raise Exception.Create('Se producido un error al generar la cabecera del informe en MS Word.');
+      RaiseError('Se producido un error al generar la cabecera del informe en MS Word.');
 
     if not RellenarInforme then
-      raise Exception.Create('Se producido un error al generar el informe en MS Word.');
+      RaiseError('Se producido un error al generar el informe en MS Word.');
 
     if (FNumCapitulos <> 0) and (FNumCapOpc < FNumCapitulos) then
     begin
       if not RellenarResumen then
-        raise Exception.Create('Se producido un error al generar el resumen en MS Word.');
+        RaiseError('Se producido un error al generar el resumen en MS Word.');
     end
     else begin
       FDocumento.Document.Tables.Item(FDocumento.Document.Tables.Count-1).Delete;
@@ -497,6 +497,8 @@ begin
 end;
 
 procedure TRptWordPresupuestosCliente._GenerarPresupuesto(const AID: String);
+var
+  ACopiaPlantilla: string;
 begin
   tbl_Cabecera.ParamByName('ID').AsString := AID;
   tbl_Detalles.ParamByName('ID_PRESUPUESTO').AsString := AID;
@@ -505,8 +507,18 @@ begin
   tbl_Detalles.Active := True;
 
   FCodigoPresupuesto := AID;
+
   if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then
-    Generar;
+  begin
+    ACopiaPlantilla := DarFicheroTemporal;
+    CopiarFichero(FPlantilla, ACopiaPlantilla);
+    FPlantilla := ACopiaPlantilla;
+    try
+      Generar;
+    finally
+      SysUtils.DeleteFile(ACopiaPlantilla);
+    end;
+  end;
 end;
 
 end.

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas

@@ -33,18 +33,17 @@ var
   I: Integer;
 begin
   // inherited; <- No llamar al padre
-  if Assigned(Controller) then
+  if not Assigned(Controller) then
-  begin
+    raise Exception.Create('No se ha asignado el controlador necesario');
-    AListaID := TStringList.Create;
-    try
-      AListaID.CommaText := Self.ListaID;
-      for I := 0 to AListaID.Count - 1 do
-        (Controller as IPresupuestosClienteReportController).ExportToWord(StrToInt(AListaID[I]));
-    finally
-      FreeAndNIL(AListaID);
-    end;
-  end;
   
+	AListaID := TStringList.Create;
+	try
+	  AListaID.CommaText := Self.ListaID;
+	  for I := 0 to AListaID.Count - 1 do
+		(Controller as IPresupuestosClienteReportController).ExportToWord(StrToInt(AListaID[I]));
+	finally
+	  FreeAndNIL(AListaID);
+	end;
 end;
 
 end.

Source/Servicios/FactuGES.RODL

@@ -324,6 +324,14 @@
 </Parameter>
 </Parameters>
 </Operation>
+<Operation Name="GenerateReportEnWord" UID="{FFBAE6B2-0F77-4F2F-A630-9A09AD7A2379}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="ID" DataType="Integer" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
 </Operations>
 </Interface>
 </Interfaces>

Source/Servicios/FactuGES_Intf.pas

@@ -532,6 +532,7 @@ type
     ['{6E910718-9AB0-47BB-9875-B0DE66A68D7A}']
     function GenerateReport(const ID: String): Binary;
     function GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
+    function GenerateReportEnWord(const ID: Integer): Binary;
   end;
 
   { CosrvAlbaranesCliente }
@@ -546,6 +547,7 @@ type
 
     function GenerateReport(const ID: String): Binary;
     function GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
+    function GenerateReportEnWord(const ID: Integer): Binary;
   end;
 
   { IsrvAlbaranesProveedor }
@@ -1474,6 +1476,23 @@ begin
   end
 end;
 
+function TsrvAlbaranesCliente_Proxy.GenerateReportEnWord(const ID: Integer): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReportEnWord');
+    __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;
+
 { CosrvAlbaranesProveedor }
 
 class function CosrvAlbaranesProveedor.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAlbaranesProveedor;

Source/Servicios/FactuGES_Invk.pas

@@ -163,6 +163,7 @@ type
   published
     procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_GenerateEtiquetas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerateReportEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
   TsrvAlbaranesProveedor_Invoker = class(TDataAbstractService_Invoker)
@@ -699,6 +700,34 @@ begin
   end;
 end;
 
+procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerateReportEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerateReportEnWord(const ID: Integer): Binary; }
+var
+  ID: Integer;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  lResult := nil;
+  try
+    __Message.Read('ID', TypeInfo(Integer), ID, []);
+
+    lResult := (__Instance as IsrvAlbaranesCliente).GenerateReportEnWord(ID);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerateReportEnWordResponse');
+    __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;
+
 { TsrvAlbaranesProveedor_Invoker }
 
 procedure TsrvAlbaranesProveedor_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);

Source/Servidor/FactuGES_Server.dpr

@@ -28,8 +28,6 @@ uses
   uSchemaUtilsServer in 'Utiles\uSchemaUtilsServer.pas',
   uServerAppUtils in 'Utiles\uServerAppUtils.pas',
   uSesionesUtils in 'Utiles\uSesionesUtils.pas',
-  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
-  schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
   uBizProveedoresServer in '..\Modulos\Contactos\Model\uBizProveedoresServer.pas',
   uBizClientesServer in '..\Modulos\Contactos\Model\uBizClientesServer.pas',
   uBizContactosServer in '..\Modulos\Contactos\Model\uBizContactosServer.pas',
@@ -107,7 +105,10 @@ uses
   AHWord97 in 'Utiles\AHWord97.pas',
   uSistemaFunc in '..\Base\Utiles\uSistemaFunc.pas',
   schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
-  schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas';
+  schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
+  uRptWordAlbaranCliente in '..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas' {RptWordAlbaranCliente: TDataModule},
+  schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
+  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -1,243 +1,259 @@
-<?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><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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.0.0.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"></VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</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.0.0.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"></VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
+      
-						<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+      
-						<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+      
-					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+      
-	</ProjectExtensions>
+      
-	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
+      
-	<ItemGroup>
+      
-		<DelphiCompile Include="FactuGES_Server.dpr">
+      
-			<MainSource>MainSource</MainSource>
+      
-		</DelphiCompile>
+      
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
+      
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
+      
-		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+      <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
-			<Form>srvEmpresas</Form>
+      <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
-			<DesignClass>TDARemoteService</DesignClass>
+      <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
-		</DCCReference>
+    </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
+  </ProjectExtensions>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
-		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
+  <ItemGroup>
-		<DCCReference Include="..\Base\schBase_Intf.pas"/>
+    <DelphiCompile Include="FactuGES_Server.dpr">
-		<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
+      <MainSource>MainSource</MainSource>
-		<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
+    </DelphiCompile>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
+    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
+      <Form>srvEmpresas</Form>
-			<Form>RptAlbaranesCliente</Form>
+      <DesignClass>TDARemoteService</DesignClass>
-			<DesignClass>TDataModule</DesignClass>
+    </DCCReference>
-		</DCCReference>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
-			<Form>srvAlbaranesCliente</Form>
+    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Base\schBase_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
-			<Form>srvAlbaranesProveedor</Form>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>RptAlbaranesCliente</Form>
-		</DCCReference>
+      <DesignClass>TDataModule</DesignClass>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
-		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+      <Form>RptWordAlbaranCliente</Form>
-			<Form>srvAlmacenes</Form>
+      <DesignClass>TDataModule</DesignClass>
-			<DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
+      <Form>srvAlbaranesCliente</Form>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
+      <Form>srvAlbaranesProveedor</Form>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+    </DCCReference>
-			<Form>srvContactos</Form>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
-			<DesignClass>TDARemoteService</DesignClass>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
+      <Form>srvAlmacenes</Form>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
-			<Form>RptFacturasCliente</Form>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
-			<DesignClass>TDataModule</DesignClass>
+    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
-			<Form>srvFacturasCliente</Form>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
+      <Form>srvContactos</Form>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
+      <DesignClass>TDARemoteService</DesignClass>
-			<Form>srvFacturasProveedor</Form>
+    </DCCReference>
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
-		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
+      <Form>RptFacturasCliente</Form>
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
+      <DesignClass>TDataModule</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\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas"/>
+      <Form>srvFacturasCliente</Form>
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
-			<Form>srvHistoricoMovimientos</Form>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
+      <Form>srvFacturasProveedor</Form>
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
+    </DCCReference>
-			<Form>srvInventario</Form>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
+    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas" />
-			<Form>srvPedidosProveedor</Form>
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
+      <Form>srvHistoricoMovimientos</Form>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
-			<Form>RptPresupuestosCliente</Form>
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
+      <Form>srvInventario</Form>
-			<Form>RptWordPresupuestosCliente</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
-			<DesignClass>TDataModule</DesignClass>
+    </DCCReference>
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
-			<Form>srvPresupuestosCliente</Form>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-		</DCCReference>
+      <Form>srvPedidosProveedor</Form>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
-			<Form>srvRecibosCliente</Form>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
+      <Form>RptPresupuestosCliente</Form>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
-			<Form>srvRecibosProveedor</Form>
+      <Form>RptWordPresupuestosCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataModule</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
+      <Form>srvPresupuestosCliente</Form>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
+    </DCCReference>
-			<Form>srvRemesasCliente</Form>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
+      <Form>srvRecibosCliente</Form>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
-			<Form>srvRemesasProveedor</Form>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
-			<DesignClass>TDataAbstractService</DesignClass>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-		</DCCReference>
+      <Form>srvRecibosProveedor</Form>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
+    </DCCReference>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
-		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
+    <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-			<Form>srvUnidadesMedida</Form>
+      <Form>srvRemesasCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
-		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
-		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
-			<Form>srvConfiguracion</Form>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-			<DesignClass>TDataAbstractService</DesignClass>
+      <Form>srvRemesasProveedor</Form>
-		</DCCReference>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="Configuracion\uConexionBD.pas">
+    </DCCReference>
-			<Form>frConexionBD</Form>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
-			<DesignClass>TFrame</DesignClass>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
-		<DCCReference Include="Configuracion\uConfGeneral.pas">
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
-			<Form>frConfGeneral</Form>
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
-			<DesignClass>TFrame</DesignClass>
+    <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-		</DCCReference>
+      <Form>srvUnidadesMedida</Form>
-		<DCCReference Include="Configuracion\uConfiguracion.pas">
+      <DesignClass>TDataAbstractService</DesignClass>
-			<Form>fConfiguracion</Form>
+    </DCCReference>
-			<DesignClass>TForm</DesignClass>
+    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-		</DCCReference>
+    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
-		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-			<Form>FrameConfiguracion</Form>
+      <Form>srvConfiguracion</Form>
-			<DesignClass>TFrame</DesignClass>
+      <DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="srvLogin_Impl.pas">
+    <DCCReference Include="Configuracion\uConexionBD.pas">
-			<Form>srvLogin</Form>
+      <Form>frConexionBD</Form>
-			<DesignClass>TDARemoteService</DesignClass>
+      <DesignClass>TFrame</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="srvReferencias_Impl.pas">
+    <DCCReference Include="Configuracion\uConfGeneral.pas">
-			<Form>srvReferencias</Form>
+      <Form>frConfGeneral</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
+      <DesignClass>TFrame</DesignClass>
-		</DCCReference>
+    </DCCReference>
-		<DCCReference Include="uAcercaDe.pas">
+    <DCCReference Include="Configuracion\uConfiguracion.pas">
-			<Form>fAcercaDe</Form>
+      <Form>fConfiguracion</Form>
-		</DCCReference>
+      <DesignClass>TForm</DesignClass>
-		<DCCReference Include="uDataModuleServer.pas">
+    </DCCReference>
-			<Form>dmServer</Form>
+    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-			<DesignClass>TDataModule</DesignClass>
+      <Form>FrameConfiguracion</Form>
-		</DCCReference>
+      <DesignClass>TFrame</DesignClass>
-		<DCCReference Include="uServerMainForm.pas">
+    </DCCReference>
-			<Form>fServerForm</Form>
+    <DCCReference Include="srvLogin_Impl.pas">
-		</DCCReference>
+      <Form>srvLogin</Form>
-		<DCCReference Include="Utiles\AHWord97.pas"/>
+      <DesignClass>TDARemoteService</DesignClass>
-		<DCCReference Include="Utiles\RegExpr.pas"/>
+    </DCCReference>
-		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
+    <DCCReference Include="srvReferencias_Impl.pas">
-		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
+      <Form>srvReferencias</Form>
-		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
+      <DesignClass>TDataAbstractService</DesignClass>
-		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
+    </DCCReference>
-		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
+    <DCCReference Include="uAcercaDe.pas">
-		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
+      <Form>fAcercaDe</Form>
-		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
+    </DCCReference>
-	</ItemGroup>
+    <DCCReference Include="uDataModuleServer.pas">
+      <Form>dmServer</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uServerMainForm.pas">
+      <Form>fServerForm</Form>
+    </DCCReference>
+    <DCCReference Include="Utiles\AHWord97.pas" />
+    <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.groupproj

@@ -0,0 +1,54 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{5a4cf240-2ee5-443f-895d-3232f63ddec6}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup>
+    <Projects Include="C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Samples\Named Pipes\NamedPipeServer.dproj" />
+    <Projects Include="FactuGES_Server.dproj" />
+    <Projects Include="FactuGES_Server_Service.dproj" />
+  </ItemGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="FactuGES_Server_Service">
+    <MSBuild Projects="FactuGES_Server_Service.dproj" Targets="" />
+  </Target>
+  <Target Name="FactuGES_Server_Service:Clean">
+    <MSBuild Projects="FactuGES_Server_Service.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FactuGES_Server_Service:Make">
+    <MSBuild Projects="FactuGES_Server_Service.dproj" Targets="Make" />
+  </Target>
+  <Target Name="FactuGES_Server">
+    <MSBuild Projects="FactuGES_Server.dproj" Targets="" />
+  </Target>
+  <Target Name="FactuGES_Server:Clean">
+    <MSBuild Projects="FactuGES_Server.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FactuGES_Server:Make">
+    <MSBuild Projects="FactuGES_Server.dproj" Targets="Make" />
+  </Target>
+  <Target Name="NamedPipeServer">
+    <MSBuild Projects="C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Samples\Named Pipes\NamedPipeServer.dproj" Targets="" />
+  </Target>
+  <Target Name="NamedPipeServer:Clean">
+    <MSBuild Projects="C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Samples\Named Pipes\NamedPipeServer.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="NamedPipeServer:Make">
+    <MSBuild Projects="C:\Archivos de programa\RemObjects Software\RemObjects SDK for Delphi\Samples\Named Pipes\NamedPipeServer.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="FactuGES_Server_Service;FactuGES_Server;NamedPipeServer" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="FactuGES_Server_Service:Clean;FactuGES_Server:Clean;NamedPipeServer:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="FactuGES_Server_Service:Make;FactuGES_Server:Make;NamedPipeServer:Make" />
+  </Target>
+  <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
+</Project>

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.0.0.0\0"
               VALUE "ProductVersion", "1.0.0.0\0"
-              VALUE "CompileDate", "miércoles, 06 de febrero de 2008 20:03\0"
+              VALUE "CompileDate", "jueves, 07 de febrero de 2008 10:17\0"
          END
     END
     BLOCK "VarFileInfo"