Version 4.4.8

Peticiones relacionadas Tareas #1430: Al generar un pedido de cliente a partir de varios presupuestos que me ordene por fecha y referencia
Tareas #1431: Poder establecer en pedidos de cliente otras direcciones campos telefono y persona de contacto
Tareas #1432: meter nombre comercial en lista de presupuesto, pedidos, albaranes, facturas...

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@254 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2

Source/Base/Base.dproj

@@ -58,6 +58,58 @@
       <Form>DataModuleImpresiones</Form>
       <DesignClass>TDataModule</DesignClass>
     </DCCReference>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\adortl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxDataD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxExportD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxGridD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntl6D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\cxPageControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\dclIndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\designide.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\dsnap.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\dxCoreD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\GUISDK_D11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\IndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\IndyProtocols.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\IndySystem.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Jcl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JclVcl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JSDialog100.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvMMD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvNetD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\pckMD5.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Indy_D11.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\TB2k_D10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\VclSmp.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\xmlrtl.dcp" />
     <DCCReference Include="..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas">
       <Form>DataModuleRegistroCorreos</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -86,59 +138,14 @@
       <Form>dmBase</Form>
       <DesignClass>TDataModule</DesignClass>
     </DCCReference>
-    <DCCReference Include="Utiles\adortl.dcp" />
     <DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClipboardUtils.pas" />
     <DCCReference Include="Utiles\Ctltortf.pas" />
-    <DCCReference Include="Utiles\cxDataD11.dcp" />
-    <DCCReference Include="Utiles\cxEditorsD11.dcp" />
-    <DCCReference Include="Utiles\cxExportD11.dcp" />
-    <DCCReference Include="Utiles\cxExtEditorsD11.dcp" />
-    <DCCReference Include="Utiles\cxGridD11.dcp" />
-    <DCCReference Include="Utiles\cxIntl6D11.dcp" />
-    <DCCReference Include="Utiles\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="Utiles\cxLibraryD11.dcp" />
-    <DCCReference Include="Utiles\cxPageControlD11.dcp" />
-    <DCCReference Include="Utiles\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="Utiles\dbrtl.dcp" />
-    <DCCReference Include="Utiles\dclIndyCore.dcp" />
-    <DCCReference Include="Utiles\designide.dcp" />
-    <DCCReference Include="Utiles\dsnap.dcp" />
-    <DCCReference Include="Utiles\dxCoreD11.dcp" />
-    <DCCReference Include="Utiles\dxGDIPlusD11.dcp" />
-    <DCCReference Include="Utiles\dxPSCoreD11.dcp" />
-    <DCCReference Include="Utiles\dxThemeD11.dcp" />
-    <DCCReference Include="Utiles\GUISDK_D11R.dcp" />
-    <DCCReference Include="Utiles\IndyCore.dcp" />
-    <DCCReference Include="Utiles\IndyProtocols.dcp" />
-    <DCCReference Include="Utiles\IndySystem.dcp" />
-    <DCCReference Include="Utiles\Jcl.dcp" />
-    <DCCReference Include="Utiles\JclVcl.dcp" />
-    <DCCReference Include="Utiles\JSDialog100.dcp" />
-    <DCCReference Include="Utiles\JvCmpD11R.dcp" />
-    <DCCReference Include="Utiles\JvCoreD11R.dcp" />
-    <DCCReference Include="Utiles\JvCtrlsD11R.dcp" />
-    <DCCReference Include="Utiles\JvDlgsD11R.dcp" />
-    <DCCReference Include="Utiles\JvMMD11R.dcp" />
-    <DCCReference Include="Utiles\JvNetD11R.dcp" />
-    <DCCReference Include="Utiles\JvPageCompsD11R.dcp" />
-    <DCCReference Include="Utiles\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="Utiles\JvSystemD11R.dcp" />
     <DCCReference Include="Utiles\MidasSpeedFix.pas" />
-    <DCCReference Include="Utiles\pckMD5.dcp" />
-    <DCCReference Include="Utiles\pckUCDataConnector.dcp" />
-    <DCCReference Include="Utiles\pckUserControl_RT.dcp" />
-    <DCCReference Include="Utiles\PngComponentsD10.dcp" />
-    <DCCReference Include="Utiles\PNG_D10.dcp" />
     <DCCReference Include="Utiles\RegExpr.pas" />
-    <DCCReference Include="Utiles\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="Utiles\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="Utiles\rtl.dcp" />
-    <DCCReference Include="Utiles\TB2k_D10.dcp" />
-    <DCCReference Include="Utiles\tbx_d10.dcp" />
     <DCCReference Include="Utiles\TIBAN\IBAN.pas" />
     <DCCReference Include="Utiles\TIBAN\IBANMetrics.pas" />
     <DCCReference Include="Utiles\uAppInfoUtils.pas" />
@@ -163,13 +170,6 @@
     <DCCReference Include="Utiles\uSistemaFunc.pas" />
     <DCCReference Include="Utiles\uStringsUtils.pas" />
     <DCCReference Include="Utiles\uValidacionUtils.pas" />
-    <DCCReference Include="Utiles\vcl.dcp" />
-    <DCCReference Include="Utiles\vclactnband.dcp" />
-    <DCCReference Include="Utiles\vcldb.dcp" />
-    <DCCReference Include="Utiles\vcljpg.dcp" />
-    <DCCReference Include="Utiles\VclSmp.dcp" />
-    <DCCReference Include="Utiles\vclx.dcp" />
-    <DCCReference Include="Utiles\xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Cliente/FactuGES.dproj

@@ -53,7 +53,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.4.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.4.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.4.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.4.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>

Source/Cliente/FactuGES.rc

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

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

@@ -331,6 +331,11 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
         Name = 'PAIS'
         DataType = datString
         Size = 255
+      end
+      item
+        Name = 'NOMBRE_COMERCIAL'
+        DataType = datString
+        Size = 255
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas

@@ -9,9 +9,9 @@ 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_ListaAnosAlbaranes = '{03DAEDC7-C84E-4A87-A22E-9DAD97D43FCF}';
+  RID_ListaAnosAlbaranes = '{034C47A7-9693-4782-B958-14F8CD312AFE}';
-  RID_AlbaranesCliente = '{EE2C2D99-4B20-4384-BADD-AD7D67C97868}';
+  RID_AlbaranesCliente = '{934CDBA2-5C88-4AC4-912C-8894C6949CA7}';
-  RID_AlbaranesCliente_Detalles = '{67AC6DA8-13FF-41B0-B4ED-91A0414CFA2D}';
+  RID_AlbaranesCliente_Detalles = '{92745445-63CF-41E4-9FEE-7216DE593332}';
 
   { Data table names }
   nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@@ -75,6 +75,7 @@ const
   fld_AlbaranesClienteNUM_CORREOS = 'NUM_CORREOS';
   fld_AlbaranesClienteBLOQUEADO = 'BLOQUEADO';
   fld_AlbaranesClientePAIS = 'PAIS';
+  fld_AlbaranesClienteNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
 
   { AlbaranesCliente field indexes }
   idx_AlbaranesClienteID = 0;
@@ -127,6 +128,7 @@ const
   idx_AlbaranesClienteNUM_CORREOS = 47;
   idx_AlbaranesClienteBLOQUEADO = 48;
   idx_AlbaranesClientePAIS = 49;
+  idx_AlbaranesClienteNOMBRE_COMERCIAL = 50;
 
   { AlbaranesCliente_Detalles fields }
   fld_AlbaranesCliente_DetallesID = 'ID';
@@ -167,7 +169,7 @@ const
 type
   { IListaAnosAlbaranes }
   IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
-  ['{8E4D7304-1E61-4D01-B63C-88061AE62045}']
+  ['{D8A27304-5AE1-4543-A18A-299B47F16584}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -202,7 +204,7 @@ type
 
   { IAlbaranesCliente }
   IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
-  ['{BAF2587E-A293-4C76-9392-32A6DC8D09E9}']
+  ['{EB356297-45DB-498B-A6B9-FBF107B4448A}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -402,6 +404,10 @@ type
     procedure SetPAISValue(const aValue: String);
     function GetPAISIsNull: Boolean;
     procedure SetPAISIsNull(const aValue: Boolean);
+    function GetNOMBRE_COMERCIALValue: String;
+    procedure SetNOMBRE_COMERCIALValue(const aValue: String);
+    function GetNOMBRE_COMERCIALIsNull: Boolean;
+    procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -505,6 +511,8 @@ type
     property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
     property PAIS: String read GetPAISValue write SetPAISValue;
     property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
+    property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+    property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
   end;
 
   { TAlbaranesClienteDataTableRules }
@@ -714,6 +722,10 @@ type
     procedure SetPAISValue(const aValue: String); virtual;
     function GetPAISIsNull: Boolean; virtual;
     procedure SetPAISIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_COMERCIALValue: String; virtual;
+    procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
+    function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
+    procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -816,6 +828,8 @@ type
     property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull;
     property PAIS: String read GetPAISValue write SetPAISValue;
     property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
+    property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+    property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -825,7 +839,7 @@ type
 
   { IAlbaranesCliente_Detalles }
   IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{FD39F0DD-9D93-41C2-A10E-AE78DDB72EA0}']
+  ['{433C3D4F-D610-48F2-86FA-0E601AEE7A41}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2148,6 +2162,27 @@ begin
     DataTable.Fields[idx_AlbaranesClientePAIS].AsVariant := Null;
 end;
 
+function TAlbaranesClienteDataTableRules.GetNOMBRE_COMERCIALValue: String;
+begin
+  result := DataTable.Fields[idx_AlbaranesClienteNOMBRE_COMERCIAL].AsString;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetNOMBRE_COMERCIALValue(const aValue: String);
+begin
+  DataTable.Fields[idx_AlbaranesClienteNOMBRE_COMERCIAL].AsString := aValue;
+end;
+
+function TAlbaranesClienteDataTableRules.GetNOMBRE_COMERCIALIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_AlbaranesClienteNOMBRE_COMERCIAL].IsNull;
+end;
+
+procedure TAlbaranesClienteDataTableRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_AlbaranesClienteNOMBRE_COMERCIAL].AsVariant := Null;
+end;
+
 
 { TAlbaranesCliente_DetallesDataTableRules }
 constructor TAlbaranesCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas

@@ -9,14 +9,14 @@ const
   { Delta 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_ListaAnosAlbaranesDelta = '{716CDFC8-9A78-48CE-A9EA-9D18F891CB8E}';
+  RID_ListaAnosAlbaranesDelta = '{1B3F6A95-0306-4C58-A2D5-E41F64C38109}';
-  RID_AlbaranesClienteDelta = '{C2C37F78-792A-4EB7-A9DA-2C2095DFDB6F}';
+  RID_AlbaranesClienteDelta = '{7FD609D3-56BD-4C74-8C82-745539276DED}';
-  RID_AlbaranesCliente_DetallesDelta = '{F4ADE8A0-DE1F-41FF-96C0-F9E986830529}';
+  RID_AlbaranesCliente_DetallesDelta = '{974A0361-032C-4488-8E80-D7643A1EE7BF}';
 
 type
   { IListaAnosAlbaranesDelta }
   IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
-  ['{716CDFC8-9A78-48CE-A9EA-9D18F891CB8E}']
+  ['{1B3F6A95-0306-4C58-A2D5-E41F64C38109}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -50,7 +50,7 @@ type
 
   { IAlbaranesClienteDelta }
   IAlbaranesClienteDelta = interface(IAlbaranesCliente)
-  ['{C2C37F78-792A-4EB7-A9DA-2C2095DFDB6F}']
+  ['{7FD609D3-56BD-4C74-8C82-745539276DED}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -102,6 +102,7 @@ type
     function GetOldNUM_CORREOSValue : SmallInt;
     function GetOldBLOQUEADOValue : SmallInt;
     function GetOldPAISValue : String;
+    function GetOldNOMBRE_COMERCIALValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -154,6 +155,7 @@ type
     property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
     property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue;
     property OldPAIS : String read GetOldPAISValue;
+    property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
   end;
 
   { TAlbaranesClienteBusinessProcessorRules }
@@ -463,6 +465,12 @@ type
     function GetOldPAISIsNull: Boolean; virtual;
     procedure SetPAISValue(const aValue: String); virtual;
     procedure SetPAISIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_COMERCIALValue: String; virtual;
+    function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
+    function GetOldNOMBRE_COMERCIALValue: String; virtual;
+    function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
+    procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
+    procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -665,6 +673,10 @@ type
     property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull;
     property OldPAIS : String read GetOldPAISValue;
     property OldPAISIsNull : Boolean read GetOldPAISIsNull;
+    property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+    property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
+    property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
+    property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -674,7 +686,7 @@ type
 
   { IAlbaranesCliente_DetallesDelta }
   IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
-  ['{F4ADE8A0-DE1F-41FF-96C0-F9E986830529}']
+  ['{974A0361-032C-4488-8E80-D7643A1EE7BF}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_ALBARANValue : Integer;
@@ -2509,6 +2521,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClientePAIS] := Null;
 end;
 
+function TAlbaranesClienteBusinessProcessorRules.GetNOMBRE_COMERCIALValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOMBRE_COMERCIAL];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOMBRE_COMERCIAL]);
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteNOMBRE_COMERCIAL];
+end;
+
+function TAlbaranesClienteBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteNOMBRE_COMERCIAL]);
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOMBRE_COMERCIAL] := aValue;
+end;
+
+procedure TAlbaranesClienteBusinessProcessorRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOMBRE_COMERCIAL] := Null;
+end;
+
 
 { TAlbaranesCliente_DetallesBusinessProcessorRules }
 constructor TAlbaranesCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@@ -247,6 +247,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
               item
                 DatasetField = 'PAIS'
                 TableField = 'PAIS'
+              end
+              item
+                DatasetField = 'NOMBRE_COMERCIAL'
+                TableField = 'NOMBRE_COMERCIAL'
               end>
           end>
         Name = 'AlbaranesCliente'
@@ -519,6 +523,11 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
             Name = 'PAIS'
             DataType = datString
             Size = 255
+          end
+          item
+            Name = 'NOMBRE_COMERCIAL'
+            DataType = datString
+            Size = 255
           end>
       end
       item

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

@@ -120,6 +120,10 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
         DataBinding.FieldName = 'NOMBRE'
         Width = 119
       end
+      object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn
+        Caption = 'Nombre comercial'
+        DataBinding.FieldName = 'NOMBRE_COMERCIAL'
+      end
       object cxGridViewAGENTE: TcxGridDBColumn
         Caption = 'Agente'
         DataBinding.FieldName = 'AGENTE'
@@ -258,6 +262,8 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
           ExplicitLeft = 638
+          ExplicitWidth = 215
+          Width = 215
         end
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel

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

@@ -68,6 +68,7 @@ type
     TBXSeparatorItem3: TTBXSeparatorItem;
     TBXItem4: TTBXItem;
     cxGridViewREF_CLIENTE: TcxGridDBColumn;
+    cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn;
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
             TcxGridLevel);
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm

@@ -293,6 +293,11 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
         Name = 'PAIS'
         DataType = datString
         Size = 255
+      end
+      item
+        Name = 'NOMBRE_COMERCIAL'
+        DataType = datString
+        Size = 255
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas

@@ -9,10 +9,10 @@ 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_ListaAnosFacturas = '{6464C43C-D41E-4702-BE3D-00E3AD993A8F}';
+  RID_ListaAnosFacturas = '{02AB48F1-470E-474A-92D7-F25AE742845D}';
-  RID_FacturasCliente = '{A5D73F73-E266-432C-9410-3F993A3E9275}';
+  RID_FacturasCliente = '{5ACD68C9-AB25-461E-801E-2A702D4010FA}';
-  RID_FacturasCliente_Detalles = '{8FEC9095-3334-4400-9F3D-B3CF200B0AC9}';
+  RID_FacturasCliente_Detalles = '{106B1153-506B-4F4F-89BD-3ED3CFCAE27C}';
-  RID_FacturasClienteDeAlbaran = '{D4867ECE-B4F0-491D-A7FE-FB2487A2FC0A}';
+  RID_FacturasClienteDeAlbaran = '{F35590A9-AE16-4478-B3B3-17A4E5A3A5F7}';
 
   { Data table names }
   nme_ListaAnosFacturas = 'ListaAnosFacturas';
@@ -72,6 +72,7 @@ const
   fld_FacturasClienteNUM_CORREOS = 'NUM_CORREOS';
   fld_FacturasClienteID_ALBARAN = 'ID_ALBARAN';
   fld_FacturasClientePAIS = 'PAIS';
+  fld_FacturasClienteNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
 
   { FacturasCliente field indexes }
   idx_FacturasClienteID = 0;
@@ -119,6 +120,7 @@ const
   idx_FacturasClienteNUM_CORREOS = 42;
   idx_FacturasClienteID_ALBARAN = 43;
   idx_FacturasClientePAIS = 44;
+  idx_FacturasClienteNOMBRE_COMERCIAL = 45;
 
   { FacturasCliente_Detalles fields }
   fld_FacturasCliente_DetallesID = 'ID';
@@ -249,7 +251,7 @@ const
 type
   { IListaAnosFacturas }
   IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
-  ['{C80A5F15-8C2B-44B8-ADE6-45178C1874DA}']
+  ['{BCBC17E8-5138-42CD-9874-B52C08C5748B}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -284,7 +286,7 @@ type
 
   { IFacturasCliente }
   IFacturasCliente = interface(IDAStronglyTypedDataTable)
-  ['{E362AA1E-2094-47CB-8BB6-DBA30D8FE86F}']
+  ['{4244914D-A271-4967-97C4-502EBBCABC1D}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -465,6 +467,10 @@ type
     procedure SetPAISValue(const aValue: String);
     function GetPAISIsNull: Boolean;
     procedure SetPAISIsNull(const aValue: Boolean);
+    function GetNOMBRE_COMERCIALValue: String;
+    procedure SetNOMBRE_COMERCIALValue(const aValue: String);
+    function GetNOMBRE_COMERCIALIsNull: Boolean;
+    procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -558,6 +564,8 @@ type
     property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
     property PAIS: String read GetPAISValue write SetPAISValue;
     property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
+    property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+    property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
   end;
 
   { TFacturasClienteDataTableRules }
@@ -746,6 +754,10 @@ type
     procedure SetPAISValue(const aValue: String); virtual;
     function GetPAISIsNull: Boolean; virtual;
     procedure SetPAISIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_COMERCIALValue: String; virtual;
+    procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
+    function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
+    procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -838,6 +850,8 @@ type
     property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
     property PAIS: String read GetPAISValue write SetPAISValue;
     property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
+    property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+    property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -847,7 +861,7 @@ type
 
   { IFacturasCliente_Detalles }
   IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{8D90FFD2-DC7F-47B8-A135-95E518144895}']
+  ['{3C6995B4-07EA-4767-9854-BDD151D83BE5}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1050,7 +1064,7 @@ type
 
   { IFacturasClienteDeAlbaran }
   IFacturasClienteDeAlbaran = interface(IDAStronglyTypedDataTable)
-  ['{5CCCE1E1-44D0-42EA-AB42-710BDEC93D50}']
+  ['{4326AA0D-927C-440F-9511-433694EC80D7}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2599,6 +2613,27 @@ begin
     DataTable.Fields[idx_FacturasClientePAIS].AsVariant := Null;
 end;
 
+function TFacturasClienteDataTableRules.GetNOMBRE_COMERCIALValue: String;
+begin
+  result := DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL].AsString;
+end;
+
+procedure TFacturasClienteDataTableRules.SetNOMBRE_COMERCIALValue(const aValue: String);
+begin
+  DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL].AsString := aValue;
+end;
+
+function TFacturasClienteDataTableRules.GetNOMBRE_COMERCIALIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL].IsNull;
+end;
+
+procedure TFacturasClienteDataTableRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasClienteNOMBRE_COMERCIAL].AsVariant := Null;
+end;
+
 
 { TFacturasCliente_DetallesDataTableRules }
 constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas

@@ -9,15 +9,15 @@ const
   { Delta 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_ListaAnosFacturasDelta = '{2E8D1188-764C-466A-B408-068244CC9C98}';
+  RID_ListaAnosFacturasDelta = '{38B4B73D-66DC-44E6-9FD6-A497533203B1}';
-  RID_FacturasClienteDelta = '{94A24AA8-418C-491F-BF5F-ABD52B147760}';
+  RID_FacturasClienteDelta = '{6A8B4E4D-5FEE-4C32-AFBF-2084F66563F5}';
-  RID_FacturasCliente_DetallesDelta = '{D846509F-6943-4DA5-82A6-BD02C2519385}';
+  RID_FacturasCliente_DetallesDelta = '{72D6D853-218D-4292-825E-633CC9413944}';
-  RID_FacturasClienteDeAlbaranDelta = '{5943336E-2EF5-4713-B44A-ED5CD0466FE0}';
+  RID_FacturasClienteDeAlbaranDelta = '{1BD62FD7-DB5A-435A-8428-FFD60E2015FA}';
 
 type
   { IListaAnosFacturasDelta }
   IListaAnosFacturasDelta = interface(IListaAnosFacturas)
-  ['{2E8D1188-764C-466A-B408-068244CC9C98}']
+  ['{38B4B73D-66DC-44E6-9FD6-A497533203B1}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -51,7 +51,7 @@ type
 
   { IFacturasClienteDelta }
   IFacturasClienteDelta = interface(IFacturasCliente)
-  ['{94A24AA8-418C-491F-BF5F-ABD52B147760}']
+  ['{6A8B4E4D-5FEE-4C32-AFBF-2084F66563F5}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -98,6 +98,7 @@ type
     function GetOldNUM_CORREOSValue : SmallInt;
     function GetOldID_ALBARANValue : String;
     function GetOldPAISValue : String;
+    function GetOldNOMBRE_COMERCIALValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -145,6 +146,7 @@ type
     property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
     property OldID_ALBARAN : String read GetOldID_ALBARANValue;
     property OldPAIS : String read GetOldPAISValue;
+    property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
   end;
 
   { TFacturasClienteBusinessProcessorRules }
@@ -423,6 +425,12 @@ type
     function GetOldPAISIsNull: Boolean; virtual;
     procedure SetPAISValue(const aValue: String); virtual;
     procedure SetPAISIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_COMERCIALValue: String; virtual;
+    function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
+    function GetOldNOMBRE_COMERCIALValue: String; virtual;
+    function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
+    procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
+    procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -605,6 +613,10 @@ type
     property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull;
     property OldPAIS : String read GetOldPAISValue;
     property OldPAISIsNull : Boolean read GetOldPAISIsNull;
+    property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+    property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
+    property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
+    property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -614,7 +626,7 @@ type
 
   { IFacturasCliente_DetallesDelta }
   IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
-  ['{D846509F-6943-4DA5-82A6-BD02C2519385}']
+  ['{72D6D853-218D-4292-825E-633CC9413944}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
@@ -816,7 +828,7 @@ type
 
   { IFacturasClienteDeAlbaranDelta }
   IFacturasClienteDeAlbaranDelta = interface(IFacturasClienteDeAlbaran)
-  ['{5943336E-2EF5-4713-B44A-ED5CD0466FE0}']
+  ['{1BD62FD7-DB5A-435A-8428-FFD60E2015FA}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -2827,6 +2839,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClientePAIS] := Null;
 end;
 
+function TFacturasClienteBusinessProcessorRules.GetNOMBRE_COMERCIALValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL]);
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNOMBRE_COMERCIAL];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNOMBRE_COMERCIAL]);
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL] := aValue;
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_COMERCIAL] := Null;
+end;
+
 
 { TFacturasCliente_DetallesBusinessProcessorRules }
 constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm

@@ -227,6 +227,10 @@ object srvFacturasCliente: TsrvFacturasCliente
               item
                 DatasetField = 'PAIS'
                 TableField = 'PAIS'
+              end
+              item
+                DatasetField = 'NOMBRE_COMERCIAL'
+                TableField = 'NOMBRE_COMERCIAL'
               end>
           end>
         Name = 'FacturasCliente'
@@ -464,6 +468,11 @@ object srvFacturasCliente: TsrvFacturasCliente
             Name = 'PAIS'
             DataType = datString
             Size = 255
+          end
+          item
+            Name = 'NOMBRE_COMERCIAL'
+            DataType = datString
+            Size = 255
           end>
       end
       item

Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm

@@ -104,6 +104,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
         DataBinding.FieldName = 'NOMBRE'
         Width = 181
       end
+      object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn
+        Caption = 'Nombre comercial'
+        DataBinding.FieldName = 'NOMBRE_COMERCIAL'
+      end
       object cxGridViewCALLE: TcxGridDBColumn
         DataBinding.FieldName = 'CALLE'
         Visible = False

Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas

@@ -61,6 +61,7 @@ type
     cxGridViewRE: TcxGridDBColumn;
     cxGridViewIMPORTE_RE: TcxGridDBColumn;
     cxGridViewPAIS: TcxGridDBColumn;
+    cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn;
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
       ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
       out AStyle: TcxStyle);

Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.dproj

@@ -49,8 +49,8 @@
     <DelphiCompile Include="PedidosCliente_data.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Lib\Base.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\Model\Base.dcp" />
-    <DCCReference Include="..\..\Lib\PedidosCliente_model.dcp" />
+    <DCCReference Include="..\..\Facturas de cliente\Model\PedidosCliente_model.dcp" />
     <DCCReference Include="uDataModulePedidosCliente.pas">
       <Form>DataModulePedidosCliente</Form>
     </DCCReference>

Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm

@@ -358,6 +358,11 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente
         Name = 'AGENTE'
         DataType = datString
         Size = 255
+      end
+      item
+        Name = 'NOMBRE_COMERCIAL'
+        DataType = datString
+        Size = 255
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas

@@ -9,13 +9,13 @@ 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_ListaAnosPedidos = '{1F0D1CEA-72FF-45DF-9F29-B717FF5CE397}';
+  RID_ListaAnosPedidos = '{3F58FA10-3D74-4ED7-B6A1-FBCBE1A48F09}';
-  RID_PedidosProveedor = '{02DD8FC4-99BB-4B51-B89E-68253F4083B7}';
+  RID_PedidosProveedor = '{D548BA5A-2E8B-45DC-854D-BC20BC047395}';
-  RID_PedidosCliente = '{86DA25A6-F592-4109-A0EC-AC01227830F7}';
+  RID_PedidosCliente = '{ACD76F7C-6014-4FCE-923B-099D03FDDE4F}';
-  RID_PedidosCliente_Detalles = '{C6F42BD9-08CD-46C4-A131-B65D54B2F57C}';
+  RID_PedidosCliente_Detalles = '{91D0F594-B6DE-4C42-9094-AF1A8118F035}';
-  RID_PedidosCliente_Articulos_Pendientes = '{3CE21E24-8BD5-466E-9C75-A614D7520177}';
+  RID_PedidosCliente_Articulos_Pendientes = '{B278735F-651F-4523-AA58-10CDF013B32B}';
-  RID_PedidoCliente_ArticulosPendientesPedirAProv = '{5E9768A3-7561-45F9-BE05-7AD4F8C62367}';
+  RID_PedidoCliente_ArticulosPendientesPedirAProv = '{58E57F41-F45A-4A06-AE6E-6DB0674C5A0D}';
-  RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{41259178-2A0A-428F-9413-F0F4DFDA2FE7}';
+  RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{FA1D7A91-B856-46D0-84D2-8D2C6A9CBFBC}';
 
   { Data table names }
   nme_ListaAnosPedidos = 'ListaAnosPedidos';
@@ -84,6 +84,7 @@ const
   fld_PedidosClienteREFERENCIA_FACTURA_PROFORMA = 'REFERENCIA_FACTURA_PROFORMA';
   fld_PedidosClienteID_AGENTE = 'ID_AGENTE';
   fld_PedidosClienteAGENTE = 'AGENTE';
+  fld_PedidosClienteNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
 
   { PedidosCliente field indexes }
   idx_PedidosClienteID = 0;
@@ -125,6 +126,7 @@ const
   idx_PedidosClienteREFERENCIA_FACTURA_PROFORMA = 36;
   idx_PedidosClienteID_AGENTE = 37;
   idx_PedidosClienteAGENTE = 38;
+  idx_PedidosClienteNOMBRE_COMERCIAL = 39;
 
   { PedidosCliente_Detalles fields }
   fld_PedidosCliente_DetallesID = 'ID';
@@ -225,7 +227,7 @@ const
 type
   { IListaAnosPedidos }
   IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
-  ['{177EEA18-7C34-4A84-A140-DBF289C2117A}']
+  ['{093AFBE6-AA0A-47A7-8C99-B05F511450D3}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -260,7 +262,7 @@ type
 
   { IPedidosProveedor }
   IPedidosProveedor = interface(IDAStronglyTypedDataTable)
-  ['{AEE1E4F3-43E6-4860-8B0D-0BA958ECECAD}']
+  ['{AF5205C8-4E28-4BFB-B62D-BC11657109C0}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -331,7 +333,7 @@ type
 
   { IPedidosCliente }
   IPedidosCliente = interface(IDAStronglyTypedDataTable)
-  ['{DF1ECC19-1402-4CD6-97F9-CE8B308AADA6}']
+  ['{ADE23B1B-9DA8-4C25-BBA3-0AD0FFC136FB}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -487,6 +489,10 @@ type
     procedure SetAGENTEValue(const aValue: String);
     function GetAGENTEIsNull: Boolean;
     procedure SetAGENTEIsNull(const aValue: Boolean);
+    function GetNOMBRE_COMERCIALValue: String;
+    procedure SetNOMBRE_COMERCIALValue(const aValue: String);
+    function GetNOMBRE_COMERCIALIsNull: Boolean;
+    procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -568,6 +574,8 @@ type
     property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
     property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
     property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
+    property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+    property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
   end;
 
   { TPedidosClienteDataTableRules }
@@ -733,6 +741,10 @@ type
     procedure SetAGENTEValue(const aValue: String); virtual;
     function GetAGENTEIsNull: Boolean; virtual;
     procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_COMERCIALValue: String; virtual;
+    procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
+    function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
+    procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -813,6 +825,8 @@ type
     property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
     property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
     property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
+    property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+    property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -822,7 +836,7 @@ type
 
   { IPedidosCliente_Detalles }
   IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{6C0A0A95-C28F-4BEB-8D19-028D81B5E95C}']
+  ['{DDEF5A65-A8C4-436E-A4DD-6E202D1AF4FF}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1013,7 +1027,7 @@ type
 
   { IPedidosCliente_Articulos_Pendientes }
   IPedidosCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
-  ['{9F5240B2-878F-47ED-B6EB-1925918DD1F4}']
+  ['{884573B7-04F2-4EE8-8F69-209321E6893D}']
     { Property getters and setters }
     function GetID_ARTICULOValue: Integer;
     procedure SetID_ARTICULOValue(const aValue: Integer);
@@ -1084,7 +1098,7 @@ type
 
   { IPedidoCliente_ArticulosPendientesPedirAProv }
   IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
-  ['{46D2A767-B41C-47B3-8678-EF4582DBA702}']
+  ['{0DEEC0CD-48D0-452C-B857-03DC10C9F82A}']
     { Property getters and setters }
     function GetID_PEDIDOValue: Integer;
     procedure SetID_PEDIDOValue(const aValue: Integer);
@@ -1239,7 +1253,7 @@ type
 
   { IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos }
   IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos = interface(IDAStronglyTypedDataTable)
-  ['{3E96988B-0D3B-44FC-9C12-AB89B024A7A3}']
+  ['{A9B5F8AC-5E1F-410F-8DF3-CD84B01ECC81}']
     { Property getters and setters }
     function GetID_PEDIDOValue: Integer;
     procedure SetID_PEDIDOValue(const aValue: Integer);
@@ -2367,6 +2381,27 @@ begin
     DataTable.Fields[idx_PedidosClienteAGENTE].AsVariant := Null;
 end;
 
+function TPedidosClienteDataTableRules.GetNOMBRE_COMERCIALValue: String;
+begin
+  result := DataTable.Fields[idx_PedidosClienteNOMBRE_COMERCIAL].AsString;
+end;
+
+procedure TPedidosClienteDataTableRules.SetNOMBRE_COMERCIALValue(const aValue: String);
+begin
+  DataTable.Fields[idx_PedidosClienteNOMBRE_COMERCIAL].AsString := aValue;
+end;
+
+function TPedidosClienteDataTableRules.GetNOMBRE_COMERCIALIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PedidosClienteNOMBRE_COMERCIAL].IsNull;
+end;
+
+procedure TPedidosClienteDataTableRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PedidosClienteNOMBRE_COMERCIAL].AsVariant := Null;
+end;
+
 
 { TPedidosCliente_DetallesDataTableRules }
 constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Pedidos de cliente/Model/schPedidosClienteServer_Intf.pas

@@ -9,18 +9,18 @@ const
   { Delta 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_ListaAnosPedidosDelta = '{9D5054B0-9042-4E8B-9A21-934C56BB7DE9}';
+  RID_ListaAnosPedidosDelta = '{74C73211-F355-4116-8822-1F8FC13F189F}';
-  RID_PedidosProveedorDelta = '{EC16A954-9598-4583-AEE4-6C7E97EA7EB1}';
+  RID_PedidosProveedorDelta = '{32E7A190-9EFA-49CA-9328-CA79C6376AFD}';
-  RID_PedidosClienteDelta = '{70F56B09-DB20-4AA9-A6B0-80E526A3FE87}';
+  RID_PedidosClienteDelta = '{362066F1-7AF9-425E-B376-9A0B357D4281}';
-  RID_PedidosCliente_DetallesDelta = '{DA4E3B5A-4E9B-4C9A-BD97-BEDA56DA2DC3}';
+  RID_PedidosCliente_DetallesDelta = '{3A9EBA41-20D2-4610-8FB3-2DCE896D00D6}';
-  RID_PedidosCliente_Articulos_PendientesDelta = '{EF9B7694-BF6A-4027-BA88-A4B4FBAEF511}';
+  RID_PedidosCliente_Articulos_PendientesDelta = '{BBEB5B53-6BA9-4974-B487-1D7EDBC7EF1A}';
-  RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{52337014-8D82-4655-ACD4-ED5D9D795653}';
+  RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{BF045EBA-51AD-4407-A060-E4801D3934C7}';
-  RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{D8ED7E2F-6543-4240-8533-68681E2B0DFA}';
+  RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{19708293-8478-4CD5-AECE-419EDB57E0E5}';
 
 type
   { IListaAnosPedidosDelta }
   IListaAnosPedidosDelta = interface(IListaAnosPedidos)
-  ['{9D5054B0-9042-4E8B-9A21-934C56BB7DE9}']
+  ['{74C73211-F355-4116-8822-1F8FC13F189F}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -54,7 +54,7 @@ type
 
   { IPedidosProveedorDelta }
   IPedidosProveedorDelta = interface(IPedidosProveedor)
-  ['{EC16A954-9598-4583-AEE4-6C7E97EA7EB1}']
+  ['{32E7A190-9EFA-49CA-9328-CA79C6376AFD}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREFERENCIAValue : String;
@@ -124,7 +124,7 @@ type
 
   { IPedidosClienteDelta }
   IPedidosClienteDelta = interface(IPedidosCliente)
-  ['{70F56B09-DB20-4AA9-A6B0-80E526A3FE87}']
+  ['{362066F1-7AF9-425E-B376-9A0B357D4281}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -165,6 +165,7 @@ type
     function GetOldREFERENCIA_FACTURA_PROFORMAValue : String;
     function GetOldID_AGENTEValue : Integer;
     function GetOldAGENTEValue : String;
+    function GetOldNOMBRE_COMERCIALValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -206,6 +207,7 @@ type
     property OldREFERENCIA_FACTURA_PROFORMA : String read GetOldREFERENCIA_FACTURA_PROFORMAValue;
     property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
     property OldAGENTE : String read GetOldAGENTEValue;
+    property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
   end;
 
   { TPedidosClienteBusinessProcessorRules }
@@ -449,6 +451,12 @@ type
     function GetOldAGENTEIsNull: Boolean; virtual;
     procedure SetAGENTEValue(const aValue: String); virtual;
     procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_COMERCIALValue: String; virtual;
+    function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
+    function GetOldNOMBRE_COMERCIALValue: String; virtual;
+    function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
+    procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
+    procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -607,6 +615,10 @@ type
     property AGENTEIsNull : Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
     property OldAGENTE : String read GetOldAGENTEValue;
     property OldAGENTEIsNull : Boolean read GetOldAGENTEIsNull;
+    property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+    property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
+    property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
+    property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -616,7 +628,7 @@ type
 
   { IPedidosCliente_DetallesDelta }
   IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles)
-  ['{DA4E3B5A-4E9B-4C9A-BD97-BEDA56DA2DC3}']
+  ['{3A9EBA41-20D2-4610-8FB3-2DCE896D00D6}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PEDIDOValue : Integer;
@@ -806,7 +818,7 @@ type
 
   { IPedidosCliente_Articulos_PendientesDelta }
   IPedidosCliente_Articulos_PendientesDelta = interface(IPedidosCliente_Articulos_Pendientes)
-  ['{EF9B7694-BF6A-4027-BA88-A4B4FBAEF511}']
+  ['{BBEB5B53-6BA9-4974-B487-1D7EDBC7EF1A}']
     { Property getters and setters }
     function GetOldID_ARTICULOValue : Integer;
     function GetOldCANTIDAD_PEDValue : Currency;
@@ -876,7 +888,7 @@ type
 
   { IPedidoCliente_ArticulosPendientesPedirAProvDelta }
   IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv)
-  ['{52337014-8D82-4655-ACD4-ED5D9D795653}']
+  ['{BF045EBA-51AD-4407-A060-E4801D3934C7}']
     { Property getters and setters }
     function GetOldID_PEDIDOValue : Integer;
     function GetOldPOSICIONValue : Integer;
@@ -1030,7 +1042,7 @@ type
 
   { IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta }
   IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos)
-  ['{D8ED7E2F-6543-4240-8533-68681E2B0DFA}']
+  ['{19708293-8478-4CD5-AECE-419EDB57E0E5}']
     { Property getters and setters }
     function GetOldID_PEDIDOValue : Integer;
     function GetOldPOSICIONValue : Integer;
@@ -2600,6 +2612,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteAGENTE] := Null;
 end;
 
+function TPedidosClienteBusinessProcessorRules.GetNOMBRE_COMERCIALValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteNOMBRE_COMERCIAL];
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteNOMBRE_COMERCIAL]);
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteNOMBRE_COMERCIAL];
+end;
+
+function TPedidosClienteBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteNOMBRE_COMERCIAL]);
+end;
+
+procedure TPedidosClienteBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteNOMBRE_COMERCIAL] := aValue;
+end;
+
+procedure TPedidosClienteBusinessProcessorRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteNOMBRE_COMERCIAL] := Null;
+end;
+
 
 { TPedidosCliente_DetallesBusinessProcessorRules }
 constructor TPedidosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/Modulos/Pedidos de cliente/PedidosCliente_Group.groupproj

@@ -10,6 +10,7 @@
     <Projects Include="..\..\GUIBase\GUIBase.dproj" />
     <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
     <Projects Include="..\Albaranes de cliente\Data\AlbaranesCliente_data.dproj" />
+    <Projects Include="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" />
     <Projects Include="..\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.dproj" />
     <Projects Include="..\Albaranes de proveedor\Data\AlbaranesProveedor_data.dproj" />
     <Projects Include="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" />
@@ -431,14 +432,23 @@
   <Target Name="PresupuestosCliente_view:Make">
     <MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
   </Target>
+  <Target Name="AlbaranesCliente_view">
+    <MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="" />
+  </Target>
+  <Target Name="AlbaranesCliente_view:Clean">
+    <MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="AlbaranesCliente_view:Make">
+    <MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;ApplicationBase;GUIBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;PedidosCliente_model;PedidosCliente_data;PedidosCliente_controller;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;PedCli_AlbCli_relation;PedCli_PedProv_relation;PedCli_FacProforma_relation;PreCli_PedCli_relation;FacturasProveedor_controller;PedidosCliente_view;PedidosCliente_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data;Inventario_view;AlbaranesProveedor_view;FacturasCliente_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_plugin;ProcesoPresupuestosCliente_controller;ProcesoPresupuestosCliente_view;ProcesoPresupuestosCliente_plugin;FacturasProforma_data;PresupuestosCliente_controller;PresupuestosCliente_view" />
+    <CallTarget Targets="Base;ApplicationBase;GUIBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;PedidosCliente_model;PedidosCliente_data;PedidosCliente_controller;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;PedCli_AlbCli_relation;PedCli_PedProv_relation;PedCli_FacProforma_relation;PreCli_PedCli_relation;FacturasProveedor_controller;PedidosCliente_view;PedidosCliente_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data;Inventario_view;AlbaranesProveedor_view;FacturasCliente_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_plugin;ProcesoPresupuestosCliente_controller;ProcesoPresupuestosCliente_view;ProcesoPresupuestosCliente_plugin;FacturasProforma_data;PresupuestosCliente_controller;PresupuestosCliente_view;AlbaranesCliente_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;ApplicationBase:Clean;GUIBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosCliente_model:Clean;PedidosCliente_data:Clean;PedidosCliente_controller:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;PedCli_AlbCli_relation:Clean;PedCli_PedProv_relation:Clean;PedCli_FacProforma_relation:Clean;PreCli_PedCli_relation:Clean;FacturasProveedor_controller:Clean;PedidosCliente_view:Clean;PedidosCliente_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean;Inventario_view:Clean;AlbaranesProveedor_view:Clean;FacturasCliente_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_plugin:Clean;ProcesoPresupuestosCliente_controller:Clean;ProcesoPresupuestosCliente_view:Clean;ProcesoPresupuestosCliente_plugin:Clean;FacturasProforma_data:Clean;PresupuestosCliente_controller:Clean;PresupuestosCliente_view:Clean" />
+    <CallTarget Targets="Base:Clean;ApplicationBase:Clean;GUIBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosCliente_model:Clean;PedidosCliente_data:Clean;PedidosCliente_controller:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;PedCli_AlbCli_relation:Clean;PedCli_PedProv_relation:Clean;PedCli_FacProforma_relation:Clean;PreCli_PedCli_relation:Clean;FacturasProveedor_controller:Clean;PedidosCliente_view:Clean;PedidosCliente_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean;Inventario_view:Clean;AlbaranesProveedor_view:Clean;FacturasCliente_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_plugin:Clean;ProcesoPresupuestosCliente_controller:Clean;ProcesoPresupuestosCliente_view:Clean;ProcesoPresupuestosCliente_plugin:Clean;FacturasProforma_data:Clean;PresupuestosCliente_controller:Clean;PresupuestosCliente_view:Clean;AlbaranesCliente_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;ApplicationBase:Make;GUIBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosCliente_model:Make;PedidosCliente_data:Make;PedidosCliente_controller:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;PedCli_AlbCli_relation:Make;PedCli_PedProv_relation:Make;PedCli_FacProforma_relation:Make;PreCli_PedCli_relation:Make;FacturasProveedor_controller:Make;PedidosCliente_view:Make;PedidosCliente_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make;Inventario_view:Make;AlbaranesProveedor_view:Make;FacturasCliente_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_plugin:Make;ProcesoPresupuestosCliente_controller:Make;ProcesoPresupuestosCliente_view:Make;ProcesoPresupuestosCliente_plugin:Make;FacturasProforma_data:Make;PresupuestosCliente_controller:Make;PresupuestosCliente_view:Make" />
+    <CallTarget Targets="Base:Make;ApplicationBase:Make;GUIBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosCliente_model:Make;PedidosCliente_data:Make;PedidosCliente_controller:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;PedCli_AlbCli_relation:Make;PedCli_PedProv_relation:Make;PedCli_FacProforma_relation:Make;PreCli_PedCli_relation:Make;FacturasProveedor_controller:Make;PedidosCliente_view:Make;PedidosCliente_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make;Inventario_view:Make;AlbaranesProveedor_view:Make;FacturasCliente_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_plugin:Make;ProcesoPresupuestosCliente_controller:Make;ProcesoPresupuestosCliente_view:Make;ProcesoPresupuestosCliente_plugin:Make;FacturasProforma_data:Make;PresupuestosCliente_controller:Make;PresupuestosCliente_view:Make;AlbaranesCliente_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm

@@ -254,6 +254,10 @@ object srvPedidosCliente: TsrvPedidosCliente
               item
                 DatasetField = 'AGENTE'
                 TableField = 'AGENTE'
+              end
+              item
+                DatasetField = 'NOMBRE_COMERCIAL'
+                TableField = 'NOMBRE_COMERCIAL'
               end>
           end>
         Name = 'PedidosCliente'
@@ -466,6 +470,11 @@ object srvPedidosCliente: TsrvPedidosCliente
             Name = 'AGENTE'
             DataType = datString
             Size = 255
+          end
+          item
+            Name = 'NOMBRE_COMERCIAL'
+            DataType = datString
+            Size = 255
           end>
       end
       item

Source/Modulos/Pedidos de cliente/Views/uEditorDireccionEntregaPedidoCliente.dfm

@@ -3,8 +3,8 @@ object fEditorDireccionEntregaPedidoCliente: TfEditorDireccionEntregaPedidoClien
   Top = 108
   BorderStyle = bsDialog
   Caption = 'Datos de la direcci'#243'n de entrega:'
-  ClientHeight = 189
+  ClientHeight = 262
-  ClientWidth = 453
+  ClientWidth = 586
   Color = clBtnFace
   ParentFont = True
   OldCreateOrder = True
@@ -14,15 +14,15 @@ object fEditorDireccionEntregaPedidoCliente: TfEditorDireccionEntregaPedidoClien
   OnDestroy = FormDestroy
   OnShow = FormShow
   DesignSize = (
-    453
+    586
-    189)
+    262)
   PixelsPerInch = 96
   TextHeight = 13
   object Bevel1: TBevel
     Left = 8
     Top = 14
-    Width = 349
+    Width = 482
-    Height = 163
+    Height = 243
     Anchors = [akLeft, akTop, akRight]
     Shape = bsFrame
   end
@@ -58,8 +58,32 @@ object fEditorDireccionEntregaPedidoCliente: TfEditorDireccionEntregaPedidoClien
     AutoSize = False
     Caption = 'Poblaci'#243'n:'
   end
+  object Label5: TLabel
+    Left = 20
+    Top = 197
+    Width = 110
+    Height = 13
+    AutoSize = False
+    Caption = 'Persona Contacto:'
+  end
+  object Label6: TLabel
+    Left = 20
+    Top = 224
+    Width = 110
+    Height = 13
+    AutoSize = False
+    Caption = 'Tel'#233'fono:'
+  end
+  object Label7: TLabel
+    Left = 20
+    Top = 171
+    Width = 110
+    Height = 13
+    AutoSize = False
+    Caption = 'Pa'#237's:'
+  end
   object OKBtn: TButton
-    Left = 370
+    Left = 503
     Top = 13
     Width = 75
     Height = 25
@@ -70,7 +94,7 @@ object fEditorDireccionEntregaPedidoCliente: TfEditorDireccionEntregaPedidoClien
     TabOrder = 0
   end
   object CancelBtn: TButton
-    Left = 370
+    Left = 503
     Top = 44
     Width = 75
     Height = 25
@@ -83,7 +107,7 @@ object fEditorDireccionEntregaPedidoCliente: TfEditorDireccionEntregaPedidoClien
   object eDireccion: TDBEdit
     Left = 136
     Top = 23
-    Width = 210
+    Width = 345
     Height = 57
     AutoSelect = False
     AutoSize = False
@@ -94,7 +118,7 @@ object fEditorDireccionEntregaPedidoCliente: TfEditorDireccionEntregaPedidoClien
   object eCodigoPostal: TDBEdit
     Left = 136
     Top = 140
-    Width = 210
+    Width = 345
     Height = 21
     DataField = 'CODIGO_POSTAL'
     DataSource = dsDireccion
@@ -123,10 +147,10 @@ object fEditorDireccionEntregaPedidoCliente: TfEditorDireccionEntregaPedidoClien
     StyleHot.LookAndFeel.Kind = lfStandard
     StyleHot.LookAndFeel.NativeStyle = True
     TabOrder = 4
-    Width = 210
+    Width = 345
   end
   object cbPoblacion: TcxDBComboBox
-    Left = 136
+    Left = 137
     Top = 113
     DataBinding.DataField = 'POBLACION'
     DataBinding.DataSource = dsDireccion
@@ -148,7 +172,50 @@ object fEditorDireccionEntregaPedidoCliente: TfEditorDireccionEntregaPedidoClien
     StyleHot.LookAndFeel.Kind = lfStandard
     StyleHot.LookAndFeel.NativeStyle = True
     TabOrder = 5
-    Width = 210
+    Width = 345
+  end
+  object eTelefono: TDBEdit
+    Left = 136
+    Top = 221
+    Width = 345
+    Height = 21
+    DataField = 'TELEFONO'
+    DataSource = dsDireccion
+    TabOrder = 6
+  end
+  object ePersonaContacto: TDBEdit
+    Left = 136
+    Top = 194
+    Width = 345
+    Height = 21
+    DataField = 'PERSONA_CONTACTO'
+    DataSource = dsDireccion
+    TabOrder = 7
+  end
+  object cbPais: TcxDBComboBox
+    Left = 136
+    Top = 167
+    DataBinding.DataField = 'PAIS'
+    DataBinding.DataSource = dsDireccion
+    Properties.ImmediatePost = True
+    Properties.ImmediateUpdateText = True
+    Properties.PostPopupValueOnTab = True
+    Properties.OnInitPopup = cbPaisPropertiesInitPopup
+    Style.BorderColor = clWindowFrame
+    Style.BorderStyle = ebs3D
+    Style.HotTrack = False
+    Style.LookAndFeel.Kind = lfStandard
+    Style.LookAndFeel.NativeStyle = True
+    Style.ButtonStyle = bts3D
+    Style.PopupBorderStyle = epbsFrame3D
+    StyleDisabled.LookAndFeel.Kind = lfStandard
+    StyleDisabled.LookAndFeel.NativeStyle = True
+    StyleFocused.LookAndFeel.Kind = lfStandard
+    StyleFocused.LookAndFeel.NativeStyle = True
+    StyleHot.LookAndFeel.Kind = lfStandard
+    StyleHot.LookAndFeel.NativeStyle = True
+    TabOrder = 8
+    Width = 345
   end
   object dsDireccion: TDADataSource
     Left = 16

Source/Modulos/Pedidos de cliente/Views/uEditorDireccionEntregaPedidoCliente.pas

@@ -22,6 +22,12 @@ type
     cbProvincia: TcxDBComboBox;
     Label2: TLabel;
     cbPoblacion: TcxDBComboBox;
+    eTelefono: TDBEdit;
+    Label5: TLabel;
+    ePersonaContacto: TDBEdit;
+    Label6: TLabel;
+    cbPais: TcxDBComboBox;
+    Label7: TLabel;
 
     procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
@@ -29,18 +35,24 @@ type
     procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure cbPaisPropertiesInitPopup(Sender: TObject);
 
   private
     pDireccion: String;
     pPoblacion: String;
     pProvincia: String;
+    pPais: String;
     FIDProvincia : Integer; //Almacenará la provincia que hay seleccionada para no cargar las poblaciones si no es necesario
     pCodigoPostal: String;
+    pPersonaContacto: String;
+    pTelefono: String;
     FProvincias : TStringList;
     FPoblaciones : TStringList;
+    FPaises : TStringList;
     FPedido : IBizPedidoCliente;
     procedure CargarProvincias;
     procedure CargarPoblaciones;
+    procedure CargarPaises;
     function GetPedido: IBizPedidoCliente;
     procedure SetPedido(const Value: IBizPedidoCliente);
   public
@@ -55,6 +67,30 @@ uses
 
 { TfEditorDireccionEntrega }
 
+procedure TfEditorDireccionEntregaPedidoCliente.CargarPaises;
+var
+  i : integer;
+begin
+  with TProvinciasPoblacionesController.Create do
+    try
+      FPaises := DarListaPaises;
+
+      with cbPais.Properties.Items do
+      begin
+        BeginUpdate;
+        try
+          Clear;
+          for i := 0 to FPaises.Count - 1 do
+            Add(FPaises.Names[i]);
+        finally
+          EndUpdate;
+        end;
+      end;
+    finally
+      Free;
+    end;
+end;
+
 procedure TfEditorDireccionEntregaPedidoCliente.CargarPoblaciones;
 var
   i : integer;
@@ -109,6 +145,18 @@ begin
     end;
 end;
 
+procedure TfEditorDireccionEntregaPedidoCliente.cbPaisPropertiesInitPopup(
+  Sender: TObject);
+begin
+  ShowHourglassCursor;
+  try
+    if not Assigned(FPaises) then
+      CargarPaises;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 procedure TfEditorDireccionEntregaPedidoCliente.cbPoblacionPropertiesInitPopup(
   Sender: TObject);
 begin
@@ -146,6 +194,9 @@ begin
     cbPoblacion.DataBinding.Field.Value := pPoblacion;
     cbProvincia.DataBinding.Field.Value := pProvincia;
     eCodigoPostal.Field.Value := pCodigoPostal;
+    cbPais.DataBinding.Field.Value := pPais;
+    ePersonaContacto.Field.Value := pPersonaContacto;    
+    eTelefono.Field.Value := pTelefono;
   end;
 end;
 
@@ -172,6 +223,9 @@ begin
   pPoblacion := cbPoblacion.Text;
   pProvincia := cbProvincia.Text;
   pCodigoPostal := eCodigoPostal.Text;
+  pPais := cbPais.Text;  
+  pPersonaContacto := ePersonaContacto.Text;  
+  pTelefono := eTelefono.Text;
 end;
 
 function TfEditorDireccionEntregaPedidoCliente.GetPedido: IBizPedidoCliente;

Source/Modulos/Pedidos de cliente/Views/uViewDireccionEntregaPedidoCli.dfm

@@ -1,27 +1,29 @@
 inherited frViewDireccionEntregaPedidoCli: TfrViewDireccionEntregaPedidoCli
   Width = 484
-  Height = 240
+  Height = 232
   ExplicitWidth = 484
-  ExplicitHeight = 240
+  ExplicitHeight = 232
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
     Width = 484
-    Height = 240
+    Height = 232
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
+    ExplicitHeight = 240
     DesignSize = (
       484
-      240)
+      232)
     object Bevel1: TBevel
       Left = 10
-      Top = 178
+      Top = 170
       Width = 566
       Height = 2
       Shape = bsTopLine
+      Visible = False
     end
     object lblObra: TLabel
       Left = 247
@@ -86,7 +88,7 @@ inherited frViewDireccionEntregaPedidoCli: TfrViewDireccionEntregaPedidoCli
     end
     object bModificar: TBitBtn
       Left = 346
-      Top = 142
+      Top = 134
       Width = 128
       Height = 25
       Caption = 'Modificar la direcci'#243'n...'
@@ -113,7 +115,7 @@ inherited frViewDireccionEntregaPedidoCli: TfrViewDireccionEntregaPedidoCli
     end
     object edtEntregarA: TcxDBTextEdit
       Left = 10
-      Top = 209
+      Top = 201
       DataBinding.DataField = 'PERSONA_CONTACTO'
       DataBinding.DataSource = dsPedido
       Properties.ReadOnly = True
@@ -227,6 +229,7 @@ inherited frViewDireccionEntregaPedidoCli: TfrViewDireccionEntregaPedidoCli
       object dxLayoutControl1Item7: TdxLayoutItem
         Caption = 'Entregar este pedido a la persona de contacto:'
         CaptionOptions.Layout = clTop
+        Visible = False
         Control = edtEntregarA
         ControlOptions.ShowBorder = False
       end

Source/Modulos/Pedidos de cliente/Views/uViewDireccionEntregaPedidoCli.pas

@@ -244,6 +244,7 @@ begin
       txtDireccion.Caption := FPedido.CALLE;
       txtDireccion.Caption := txtDireccion.Caption + #13#10 + FPedido.CODIGO_POSTAL + ' ' + FPedido.POBLACION;
       txtDireccion.Caption := txtDireccion.Caption + #13#10 + FPedido.PROVINCIA + #13#10 + FPedido.PAIS;
+      txtDireccion.Caption := txtDireccion.Caption + #13#10 + 'Persona contacto: ' + FPedido.PERSONA_CONTACTO;      
       if (not FPedido.TELEFONOIsNull) and (FPedido.TELEFONO <> '') then
         txtDireccion.Caption := txtDireccion.Caption + #13#10 + 'Teléfono: ' + FPedido.TELEFONO;
 

Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm

@@ -110,6 +110,10 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
         DataBinding.FieldName = 'NOMBRE'
         Width = 128
       end
+      object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn
+        Caption = 'Nombre comercial'
+        DataBinding.FieldName = 'NOMBRE_COMERCIAL'
+      end
       object cxGridViewCALLE: TcxGridDBColumn
         DataBinding.FieldName = 'CALLE'
         Visible = False
@@ -239,8 +243,6 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
       ExplicitWidth = 839
       inherited TBXToolbar1: TTBXToolbar
         Width = 829
-        ExplicitLeft = 3
-        ExplicitTop = 6
         ExplicitWidth = 829
         object TBXSeparatorItem2: TTBXSeparatorItem
         end

Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas

@@ -56,6 +56,7 @@ type
     actAgente: TAction;
     TBXItem2: TTBXItem;
     TBXSeparatorItem1: TTBXSeparatorItem;
+    cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn;
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
             TcxGridLevel);
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm

@@ -272,6 +272,11 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
       item
         Name = 'NUM_CORREOS'
         DataType = datSmallInt
+      end
+      item
+        Name = 'NOMBRE_COMERCIAL'
+        DataType = datString
+        Size = 255
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas

@@ -9,9 +9,9 @@ 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_ListaAnosPresupuestos = '{A5CCBECB-9270-4681-9429-ED71B913E585}';
+  RID_ListaAnosPresupuestos = '{C4B4264F-AD3E-4DE4-8448-FB0DE1F2C9CF}';
-  RID_PresupuestosCliente = '{4F26E768-ACDD-41DA-9C20-CB307CF45DA0}';
+  RID_PresupuestosCliente = '{FE032959-E1CC-4E33-AA4F-C98A02B497B4}';
-  RID_PresupuestosCliente_Detalles = '{90202BD4-1F2C-452F-B216-695F23808796}';
+  RID_PresupuestosCliente_Detalles = '{F8F201BA-7CBC-4C12-A5E1-545C65C73015}';
 
   { Data table names }
   nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos';
@@ -67,6 +67,7 @@ const
   fld_PresupuestosClienteAGENTE = 'AGENTE';
   fld_PresupuestosClienteNUM_COPIAS = 'NUM_COPIAS';
   fld_PresupuestosClienteNUM_CORREOS = 'NUM_CORREOS';
+  fld_PresupuestosClienteNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
 
   { PresupuestosCliente field indexes }
   idx_PresupuestosClienteID = 0;
@@ -111,6 +112,7 @@ const
   idx_PresupuestosClienteAGENTE = 39;
   idx_PresupuestosClienteNUM_COPIAS = 40;
   idx_PresupuestosClienteNUM_CORREOS = 41;
+  idx_PresupuestosClienteNOMBRE_COMERCIAL = 42;
 
   { PresupuestosCliente_Detalles fields }
   fld_PresupuestosCliente_DetallesID = 'ID';
@@ -149,7 +151,7 @@ const
 type
   { IListaAnosPresupuestos }
   IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
-  ['{347EB82F-86E0-44F8-89CC-1A41D79E8CC0}']
+  ['{165C3771-7AFC-4B54-982C-AAD2E6BD17F8}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -184,7 +186,7 @@ type
 
   { IPresupuestosCliente }
   IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
-  ['{52E0A5A8-9605-4DD9-B295-9074E20F5153}']
+  ['{19058AE4-2B57-4C1E-B6A7-0F6F780D56C7}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -350,6 +352,10 @@ type
     procedure SetNUM_CORREOSValue(const aValue: SmallInt);
     function GetNUM_CORREOSIsNull: Boolean;
     procedure SetNUM_CORREOSIsNull(const aValue: Boolean);
+    function GetNOMBRE_COMERCIALValue: String;
+    procedure SetNOMBRE_COMERCIALValue(const aValue: String);
+    function GetNOMBRE_COMERCIALIsNull: Boolean;
+    procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -437,6 +443,8 @@ type
     property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
     property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
     property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
+    property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+    property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
   end;
 
   { TPresupuestosClienteDataTableRules }
@@ -616,6 +624,10 @@ type
     procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual;
     function GetNUM_CORREOSIsNull: Boolean; virtual;
     procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_COMERCIALValue: String; virtual;
+    procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
+    function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
+    procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -702,6 +714,8 @@ type
     property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
     property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
     property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
+    property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+    property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -711,7 +725,7 @@ type
 
   { IPresupuestosCliente_Detalles }
   IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{B0C6CE39-F20B-4FAA-AB25-C7B30B765A40}']
+  ['{ACABC7DF-1143-478F-AF9D-ED6B0D6B6DBA}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1864,6 +1878,27 @@ begin
     DataTable.Fields[idx_PresupuestosClienteNUM_CORREOS].AsVariant := Null;
 end;
 
+function TPresupuestosClienteDataTableRules.GetNOMBRE_COMERCIALValue: String;
+begin
+  result := DataTable.Fields[idx_PresupuestosClienteNOMBRE_COMERCIAL].AsString;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetNOMBRE_COMERCIALValue(const aValue: String);
+begin
+  DataTable.Fields[idx_PresupuestosClienteNOMBRE_COMERCIAL].AsString := aValue;
+end;
+
+function TPresupuestosClienteDataTableRules.GetNOMBRE_COMERCIALIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PresupuestosClienteNOMBRE_COMERCIAL].IsNull;
+end;
+
+procedure TPresupuestosClienteDataTableRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PresupuestosClienteNOMBRE_COMERCIAL].AsVariant := Null;
+end;
+
 
 { TPresupuestosCliente_DetallesDataTableRules }
 constructor TPresupuestosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas

@@ -9,14 +9,14 @@ const
   { Delta 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_ListaAnosPresupuestosDelta = '{4E2ABD2B-B653-485B-B3D5-B907387C435D}';
+  RID_ListaAnosPresupuestosDelta = '{868973F6-5125-441B-9C1F-D9C11A47C39B}';
-  RID_PresupuestosClienteDelta = '{2147C1BA-1E8D-4946-83BD-F8C3EC79775A}';
+  RID_PresupuestosClienteDelta = '{EF9292FF-E23F-4E30-B915-5B8682CD68B1}';
-  RID_PresupuestosCliente_DetallesDelta = '{B125B872-E2D4-46B6-888E-472B62E2775F}';
+  RID_PresupuestosCliente_DetallesDelta = '{2D5B74BF-0ADE-437E-8E11-DF8D6F72AB75}';
 
 type
   { IListaAnosPresupuestosDelta }
   IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
-  ['{4E2ABD2B-B653-485B-B3D5-B907387C435D}']
+  ['{868973F6-5125-441B-9C1F-D9C11A47C39B}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -50,7 +50,7 @@ type
 
   { IPresupuestosClienteDelta }
   IPresupuestosClienteDelta = interface(IPresupuestosCliente)
-  ['{2147C1BA-1E8D-4946-83BD-F8C3EC79775A}']
+  ['{EF9292FF-E23F-4E30-B915-5B8682CD68B1}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -94,6 +94,7 @@ type
     function GetOldAGENTEValue : String;
     function GetOldNUM_COPIASValue : SmallInt;
     function GetOldNUM_CORREOSValue : SmallInt;
+    function GetOldNOMBRE_COMERCIALValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -138,6 +139,7 @@ type
     property OldAGENTE : String read GetOldAGENTEValue;
     property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
     property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
+    property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
   end;
 
   { TPresupuestosClienteBusinessProcessorRules }
@@ -401,6 +403,12 @@ type
     function GetOldNUM_CORREOSIsNull: Boolean; virtual;
     procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual;
     procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_COMERCIALValue: String; virtual;
+    function GetNOMBRE_COMERCIALIsNull: Boolean; virtual;
+    function GetOldNOMBRE_COMERCIALValue: String; virtual;
+    function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual;
+    procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual;
+    procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -571,6 +579,10 @@ type
     property NUM_CORREOSIsNull : Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
     property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
     property OldNUM_CORREOSIsNull : Boolean read GetOldNUM_CORREOSIsNull;
+    property NOMBRE_COMERCIAL : String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
+    property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull;
+    property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
+    property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -580,7 +592,7 @@ type
 
   { IPresupuestosCliente_DetallesDelta }
   IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
-  ['{B125B872-E2D4-46B6-888E-472B62E2775F}']
+  ['{2D5B74BF-0ADE-437E-8E11-DF8D6F72AB75}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PRESUPUESTOValue : Integer;
@@ -2167,6 +2179,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNUM_CORREOS] := Null;
 end;
 
+function TPresupuestosClienteBusinessProcessorRules.GetNOMBRE_COMERCIALValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNOMBRE_COMERCIAL];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetNOMBRE_COMERCIALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNOMBRE_COMERCIAL]);
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldNOMBRE_COMERCIALValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteNOMBRE_COMERCIAL];
+end;
+
+function TPresupuestosClienteBusinessProcessorRules.GetOldNOMBRE_COMERCIALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteNOMBRE_COMERCIAL]);
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetNOMBRE_COMERCIALValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNOMBRE_COMERCIAL] := aValue;
+end;
+
+procedure TPresupuestosClienteBusinessProcessorRules.SetNOMBRE_COMERCIALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNOMBRE_COMERCIAL] := Null;
+end;
+
 
 { TPresupuestosCliente_DetallesBusinessProcessorRules }
 constructor TPresupuestosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm

@@ -214,6 +214,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
               item
                 DatasetField = 'AGENTE'
                 TableField = 'AGENTE'
+              end
+              item
+                DatasetField = 'NOMBRE_COMERCIAL'
+                TableField = 'NOMBRE_COMERCIAL'
               end>
           end>
         Name = 'PresupuestosCliente'
@@ -434,6 +438,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
           item
             Name = 'NUM_CORREOS'
             DataType = datSmallInt
+          end
+          item
+            Name = 'NOMBRE_COMERCIAL'
+            DataType = datString
+            Size = 255
           end>
       end
       item

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm

@@ -1,25 +1,27 @@
 inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
-  Width = 929
+  Width = 981
-  Height = 459
+  Height = 557
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
-  ExplicitWidth = 929
+  ExplicitWidth = 981
-  ExplicitHeight = 459
+  ExplicitHeight = 557
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 929
+    Width = 981
-    Height = 459
+    Height = 557
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
+    ExplicitWidth = 929
+    ExplicitHeight = 459
     DesignSize = (
-      929
+      981
-      459)
+      557)
     object Label1: TLabel
-      Left = 614
+      Left = 648
       Top = 234
       Width = 383
       Height = 26
@@ -147,7 +149,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Width = 122
     end
     object bFormasPago: TButton
-      Left = 452
+      Left = 486
       Top = 190
       Width = 132
       Height = 21
@@ -156,7 +158,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       OnClick = bFormasPagoClick
     end
     object edtFechaDecision: TcxDBDateEdit
-      Left = 428
+      Left = 448
       Top = 136
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_DECISION'
@@ -211,7 +213,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Width = 260
     end
     object cbClienteFinal: TcxDBTextEdit
-      Left = 614
+      Left = 648
       Top = 268
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'CLIENTE_FINAL'
@@ -274,7 +276,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Width = 260
     end
     object eReferenciaAux: TcxDBTextEdit
-      Left = 377
+      Left = 399
       Top = 28
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'REFERENCIA_AUX'
@@ -303,7 +305,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       Width = 132
     end
     inline frViewDatosYSeleccionClientePresupuesto1: TfrViewDatosYSeleccionClientePresupuesto
-      Left = 614
+      Left = 648
       Top = 28
       Width = 427
       Height = 170
@@ -315,7 +317,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       ParentFont = False
       TabOrder = 11
       ReadOnly = False
-      ExplicitLeft = 614
+      ExplicitLeft = 648
       ExplicitTop = 28
       ExplicitWidth = 427
       ExplicitHeight = 170
@@ -333,16 +335,16 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
           Width = 224
         end
         inherited edtNIFCIF: TcxDBTextEdit
-          Left = 171
+          Left = 181
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 171
+          ExplicitLeft = 181
         end
         inherited Button3: TBitBtn
-          Left = 82
+          Left = 92
-          ExplicitLeft = 82
+          ExplicitLeft = 92
         end
         inherited edtPersonaContacto: TcxDBTextEdit
           Style.LookAndFeel.SkinName = ''
@@ -361,12 +363,12 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
           Width = 121
         end
         inherited Button4: TButton
-          Left = 251
+          Left = 261
-          ExplicitLeft = 251
+          ExplicitLeft = 261
         end
         inherited Button5: TButton
-          Left = 251
+          Left = 261
-          ExplicitLeft = 251
+          ExplicitLeft = 261
         end
         inherited edtDireccion: TcxMemo
           Style.LookAndFeel.SkinName = ''
@@ -379,7 +381,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
       end
     end
     object bElegirClienteFinal: TButton
-      Left = 884
+      Left = 936
       Top = 266
       Width = 23
       Height = 25

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm

@@ -141,6 +141,10 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
         DataBinding.FieldName = 'NOMBRE'
         Width = 161
       end
+      object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn
+        Caption = 'Nombre comercial'
+        DataBinding.FieldName = 'NOMBRE_COMERCIAL'
+      end
       object cxGridViewBASE_IMPONIBLE: TcxGridDBColumn
         Caption = 'Base Imponible'
         DataBinding.FieldName = 'BASE_IMPONIBLE'

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

@@ -57,6 +57,7 @@ type
     TBXItem4: TTBXItem;
     actAgente: TAction;
     TBXSeparatorItem3: TTBXSeparatorItem;
+    cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn;
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
             TcxGridLevel);
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

Source/Modulos/Relaciones/Presupuestos de cliente - Pedidos de cliente/uGenerarPedidosCliUtils.pas

@@ -171,7 +171,7 @@ begin
   APresupuestosController := TPresupuestosClienteController.Create;
   try
     // Ordenar por fecha de presupuesto
-    AListaPresupuestos.DataTable.Sort([fld_PresupuestosClienteFECHA_PRESUPUESTO], [uDADataTable.sdAscending]);
+    AListaPresupuestos.DataTable.Sort([fld_PresupuestosClienteFECHA_PRESUPUESTO, fld_PresupuestosClienteREFERENCIA], [uDADataTable.sdAscending,uDADataTable.sdAscending]);
     AListaPresupuestos.First;
     for I := 0 to AListaPresupuestos.DataTable.RecordCount - 1 do
     begin

Source/Servidor/FactuGES_Server.dpr

@@ -160,18 +160,18 @@ uses
   schTiposDocumentoServer_Intf in '..\Modulos\TiposDocumento\Model\schTiposDocumentoServer_Intf.pas',
   schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
   schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
-  schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
-  schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
-  schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
-  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
   schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
   schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
   schFacturasProformaClient_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaClient_Intf.pas',
   schFacturasProformaServer_Intf in '..\Modulos\Facturas proforma\Model\schFacturasProformaServer_Intf.pas',
+  schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
+  schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
+  schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
+  schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
   schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
   schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
-  schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
+  schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
-  schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas';
+  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -35,7 +35,7 @@
 		<Borland.Personality>Delphi.Personality</Borland.Personality>
 		<Borland.ProjectType/>
 		<BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">7</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">4.4.7.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">4.4.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 11 de enero de 2016 17:38</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">8</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">4.4.8.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">4.4.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 04 de abril de 2016 19:46</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
 						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
 					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
 	</ProjectExtensions>

Source/Servidor/FactuGES_Server.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 4,4,7,0
+FILEVERSION 4,4,8,0
-PRODUCTVERSION 4,4,7,0
+PRODUCTVERSION 4,4,8,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -12,9 +12,9 @@ BEGIN
     BEGIN
          BLOCK "0C0A04E4"
          BEGIN
-              VALUE "FileVersion", "4.4.7.0\0"
+              VALUE "FileVersion", "4.4.8.0\0"
-              VALUE "ProductVersion", "4.4.7.0\0"
+              VALUE "ProductVersion", "4.4.8.0\0"
-              VALUE "CompileDate", "lunes, 04 de abril de 2016 19:46\0"
+              VALUE "CompileDate", "jueves, 28 de abril de 2016 19:13\0"
          END
     END
     BLOCK "VarFileInfo"