Arreglo detalles de referencia en pedidos proveedor al enviar por correo

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@677 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/Cliente/FactuGES.rc

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

Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas

@@ -638,7 +638,7 @@ begin
   ShowHourglassCursor;
 
   // solicita por José Luís que el asunto del correo y el documento adunto sean igual que la referencia del pedido impreso
-  ATituloEnvio := Copy(APedido.REFERENCIA, 8, 8) + '-' + APedido.NOMBRE_CLIENTE + '-' + APedido.DESCRIPCION_GENERAL;
+  ATituloEnvio := Copy(APedido.REF_CON_CLIENTE, 8, 6) + '-' + APedido.REF_VENDEDOR + '-' + APedido.NOMBRE_CLIENTE + '-' + APedido.DESCRIPCION_GENERAL;
 
   AFicheroTMP := DarFicheroPDFTemporal(EscapeIllegalChars(ATituloEnvio));
   AReportController := TPedidosProveedorReportController.Create;

Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm

@@ -59,168 +59,251 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
         DataType = datString
         Size = 255
         ServerAutoRefresh = True
+        DictionaryEntry = 'PedidosProveedor_REFERENCIA'
       end
       item
         Name = 'SITUACION'
         DataType = datString
         Size = 9
+        DisplayLabel = 'Situaci'#243'n'
+        DictionaryEntry = 'PedidosProveedor_SITUACION'
       end
       item
         Name = 'FECHA_ENVIO'
         DataType = datDateTime
+        DisplayLabel = #191'Enviado?'
+        DictionaryEntry = 'PedidosProveedor_FECHA_ENVIO'
       end
       item
         Name = 'FECHA_PEDIDO'
         DataType = datDateTime
+        DisplayLabel = 'Fecha pedido'
+        DictionaryEntry = 'PedidosProveedor_FECHA_PEDIDO'
       end
       item
         Name = 'FECHA_CONFIRMACION'
         DataType = datDateTime
+        DisplayLabel = #191'Confirmado?'
+        DictionaryEntry = 'PedidosProveedor_FECHA_CONFIRMACION'
       end
       item
         Name = 'FECHA_ENTREGA'
         DataType = datDateTime
+        DisplayLabel = 'Entrega prevista'
+        DictionaryEntry = 'PedidosProveedor_FECHA_ENTREGA'
       end
       item
         Name = 'ID_ALMACEN'
         DataType = datInteger
+        DisplayLabel = 'PedidosProveedor_ID_ALMACEN'
+        DictionaryEntry = 'PedidosProveedor_ID_ALMACEN'
       end
       item
         Name = 'NOMBRE_ALMACEN'
         DataType = datString
         Size = 255
+        DisplayLabel = 'Almac'#233'n'
+        DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN'
       end
       item
         Name = 'OBSERVACIONES'
         DataType = datMemo
+        DisplayLabel = 'Observaciones'
+        DictionaryEntry = 'PedidosProveedor_OBSERVACIONES'
       end
       item
         Name = 'IMPORTE_TOTAL'
         DataType = datCurrency
+        DisplayLabel = 'Importe total'
+        Alignment = taRightJustify
+        DictionaryEntry = 'PedidosProveedor_IMPORTE_TOTAL'
       end
       item
         Name = 'INCIDENCIAS'
         DataType = datMemo
+        DictionaryEntry = 'PedidosProveedor_INCIDENCIAS'
       end
       item
         Name = 'INCIDENCIAS_ACTIVAS'
         DataType = datSmallInt
+        DictionaryEntry = 'PedidosProveedor_INCIDENCIAS_ACTIVAS'
       end
       item
         Name = 'CALLE'
         DataType = datString
         Size = 255
+        DisplayLabel = 'Calle'
+        DictionaryEntry = 'PedidosProveedor_CALLE'
       end
       item
         Name = 'POBLACION'
         DataType = datString
         Size = 255
+        DisplayLabel = 'Poblaci'#243'n'
+        DictionaryEntry = 'PedidosProveedor_POBLACION'
       end
       item
         Name = 'PROVINCIA'
         DataType = datString
         Size = 255
+        DisplayLabel = 'Provincia'
+        DictionaryEntry = 'PedidosProveedor_PROVINCIA'
       end
       item
         Name = 'CODIGO_POSTAL'
         DataType = datString
         Size = 10
+        DisplayLabel = 'C'#243'd. postal'
+        DictionaryEntry = 'PedidosProveedor_CODIGO_POSTAL'
       end
       item
         Name = 'PERSONA_CONTACTO'
         DataType = datString
         Size = 255
+        DisplayLabel = 'Persona de contacto'
+        DictionaryEntry = 'PedidosProveedor_PERSONA_CONTACTO'
       end
       item
         Name = 'TELEFONO'
         DataType = datString
         Size = 25
+        DisplayLabel = 'Tel'#233'fono'
+        DictionaryEntry = 'PedidosProveedor_TELEFONO'
       end
       item
         Name = 'FECHA_ALTA'
         DataType = datDateTime
+        DictionaryEntry = 'PedidosProveedor_FECHA_ALTA'
       end
       item
         Name = 'FECHA_MODIFICACION'
         DataType = datDateTime
+        DictionaryEntry = 'PedidosProveedor_FECHA_MODIFICACION'
       end
       item
         Name = 'USUARIO'
         DataType = datString
         Size = 30
+        DictionaryEntry = 'PedidosProveedor_USUARIO'
       end
       item
         Name = 'ID_CONTRATO_CLIENTE'
         DataType = datInteger
+        DisplayLabel = 'PedidosProveedor_ID_CONTRATO_CLIENTE'
+        DictionaryEntry = 'PedidosProveedor_ID_CONTRATO_CLIENTE'
       end
       item
         Name = 'REF_CON_CLIENTE'
         DataType = datString
         Size = 255
+        DisplayLabel = 'PedidosProveedor_REF_CON_CLIENTE'
+        DictionaryEntry = 'PedidosProveedor_REF_CON_CLIENTE'
       end
       item
         Name = 'NOMBRE_CLIENTE'
         DataType = datString
         Size = 255
+        DisplayLabel = 'PedidosProveedor_NOMBRE_CLIENTE'
+        DictionaryEntry = 'PedidosProveedor_NOMBRE_CLIENTE'
       end
       item
         Name = 'IMPORTE_NETO'
         DataType = datCurrency
+        DisplayLabel = 'Importe neto'
+        Alignment = taRightJustify
+        DictionaryEntry = 'PedidosProveedor_IMPORTE_NETO'
       end
       item
         Name = 'IMPORTE_PORTE'
         DataType = datCurrency
+        DisplayLabel = 'Importe del porte'
+        Alignment = taRightJustify
+        DictionaryEntry = 'PedidosProveedor_IMPORTE_PORTE'
       end
       item
         Name = 'DESCUENTO'
         DataType = datFloat
+        DisplayLabel = 'Descuento'
+        DisplayFormat = ',0.00 %;-,0.00 %'
+        Alignment = taRightJustify
+        DictionaryEntry = 'PedidosProveedor_DESCUENTO'
       end
       item
         Name = 'IMPORTE_DESCUENTO'
         DataType = datCurrency
+        DisplayLabel = 'Importe dto.'
+        Alignment = taRightJustify
+        DictionaryEntry = 'PedidosProveedor_IMPORTE_DESCUENTO'
       end
       item
         Name = 'BASE_IMPONIBLE'
         DataType = datCurrency
+        DisplayLabel = 'Base imponible'
+        Alignment = taRightJustify
+        DictionaryEntry = 'PedidosProveedor_BASE_IMPONIBLE'
       end
       item
         Name = 'IVA'
         DataType = datFloat
+        DisplayFormat = ',0.00 %;-,0.00 %'
+        Alignment = taRightJustify
+        DictionaryEntry = 'PedidosProveedor_IVA'
       end
       item
         Name = 'IMPORTE_IVA'
         DataType = datCurrency
+        DisplayLabel = 'Importe IVA'
+        Alignment = taRightJustify
+        DictionaryEntry = 'PedidosProveedor_IMPORTE_IVA'
       end
       item
         Name = 'ID_FORMA_PAGO'
         DataType = datInteger
+        DictionaryEntry = 'PedidosProveedor_ID_FORMA_PAGO'
       end
       item
         Name = 'ID_TIENDA'
         DataType = datInteger
+        DisplayLabel = 'PedidosProveedor_ID_TIENDA'
+        DictionaryEntry = 'PedidosProveedor_ID_TIENDA'
       end
       item
         Name = 'TIENDA'
         DataType = datString
         Size = 255
+        DisplayLabel = 'PedidosProveedor_TIENDA'
+        DictionaryEntry = 'PedidosProveedor_TIENDA'
       end
       item
         Name = 'ID_VENDEDOR'
         DataType = datInteger
+        DisplayLabel = 'PedidosProveedor_ID_VENDEDOR'
+        DictionaryEntry = 'PedidosProveedor_ID_VENDEDOR'
       end
       item
         Name = 'VENDEDOR'
         DataType = datString
         Size = 255
+        DisplayLabel = 'PedidosProveedor_VENDEDOR'
+        DictionaryEntry = 'PedidosProveedor_VENDEDOR'
+      end
+      item
+        Name = 'REF_VENDEDOR'
+        DataType = datString
+        Size = 255
       end
       item
         Name = 'DESCRIPCION_GENERAL'
         DataType = datString
         Size = 255
+        DisplayLabel = 'PedidosProveedor_DESCRIPCION_GENERAL'
+        DictionaryEntry = 'PedidosProveedor_DESCRIPCION_GENERAL'
       end
       item
         Name = 'ID_DIRECCION_CLIENTE'
         DataType = datInteger
+        DisplayLabel = 'PedidosProveedor_ID_DIRECCION_CLIENTE'
+        DictionaryEntry = 'PedidosProveedor_ID_DIRECCION_CLIENTE'
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas

@@ -3,14 +3,14 @@ unit schPedidosProveedorClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 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_PedidosProveedor = '{0FA0E444-2C09-4A09-AF1B-B0C792E6C02A}';
+  RID_PedidosProveedor = '{41528B44-11F2-4BC5-8A9B-25C0AA4AEC6C}';
-  RID_PedidosProveedor_Detalles = '{772E5829-8C5A-4EF5-8411-23B614592C6F}';
+  RID_PedidosProveedor_Detalles = '{8979C9BF-ACF0-42F3-A52F-F9086B95AA6B}';
 
   { Data table names }
   nme_PedidosProveedor = 'PedidosProveedor';
@@ -57,6 +57,7 @@ const
   fld_PedidosProveedorTIENDA = 'TIENDA';
   fld_PedidosProveedorID_VENDEDOR = 'ID_VENDEDOR';
   fld_PedidosProveedorVENDEDOR = 'VENDEDOR';
+  fld_PedidosProveedorREF_VENDEDOR = 'REF_VENDEDOR';
   fld_PedidosProveedorDESCRIPCION_GENERAL = 'DESCRIPCION_GENERAL';
   fld_PedidosProveedorID_DIRECCION_CLIENTE = 'ID_DIRECCION_CLIENTE';
 
@@ -101,8 +102,9 @@ const
   idx_PedidosProveedorTIENDA = 37;
   idx_PedidosProveedorID_VENDEDOR = 38;
   idx_PedidosProveedorVENDEDOR = 39;
-  idx_PedidosProveedorDESCRIPCION_GENERAL = 40;
+  idx_PedidosProveedorREF_VENDEDOR = 40;
-  idx_PedidosProveedorID_DIRECCION_CLIENTE = 41;
+  idx_PedidosProveedorDESCRIPCION_GENERAL = 41;
+  idx_PedidosProveedorID_DIRECCION_CLIENTE = 42;
 
   { PedidosProveedor_Detalles fields }
   fld_PedidosProveedor_DetallesID = 'ID';
@@ -135,7 +137,7 @@ const
 type
   { IPedidosProveedor }
   IPedidosProveedor = interface(IDAStronglyTypedDataTable)
-  ['{E2601C1F-FDAF-4BEE-82BF-1F8B1A14983A}']
+  ['{37B80D76-E710-4495-89B1-A118B885129A}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -295,6 +297,10 @@ type
     procedure SetVENDEDORValue(const aValue: String);
     function GetVENDEDORIsNull: Boolean;
     procedure SetVENDEDORIsNull(const aValue: Boolean);
+    function GetREF_VENDEDORValue: String;
+    procedure SetREF_VENDEDORValue(const aValue: String);
+    function GetREF_VENDEDORIsNull: Boolean;
+    procedure SetREF_VENDEDORIsNull(const aValue: Boolean);
     function GetDESCRIPCION_GENERALValue: String;
     procedure SetDESCRIPCION_GENERALValue(const aValue: String);
     function GetDESCRIPCION_GENERALIsNull: Boolean;
@@ -386,6 +392,8 @@ type
     property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull;
     property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue;
     property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
+    property REF_VENDEDOR: String read GetREF_VENDEDORValue write SetREF_VENDEDORValue;
+    property REF_VENDEDORIsNull: Boolean read GetREF_VENDEDORIsNull write SetREF_VENDEDORIsNull;
     property DESCRIPCION_GENERAL: String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue;
     property DESCRIPCION_GENERALIsNull: Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull;
     property ID_DIRECCION_CLIENTE: Integer read GetID_DIRECCION_CLIENTEValue write SetID_DIRECCION_CLIENTEValue;
@@ -393,7 +401,7 @@ type
   end;
 
   { TPedidosProveedorDataTableRules }
-  TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor)
+  TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor)
   private
     f_OBSERVACIONES: IROStrings;
     f_INCIDENCIAS: IROStrings;
@@ -559,6 +567,10 @@ type
     procedure SetVENDEDORValue(const aValue: String); virtual;
     function GetVENDEDORIsNull: Boolean; virtual;
     procedure SetVENDEDORIsNull(const aValue: Boolean); virtual;
+    function GetREF_VENDEDORValue: String; virtual;
+    procedure SetREF_VENDEDORValue(const aValue: String); virtual;
+    function GetREF_VENDEDORIsNull: Boolean; virtual;
+    procedure SetREF_VENDEDORIsNull(const aValue: Boolean); virtual;
     function GetDESCRIPCION_GENERALValue: String; virtual;
     procedure SetDESCRIPCION_GENERALValue(const aValue: String); virtual;
     function GetDESCRIPCION_GENERALIsNull: Boolean; virtual;
@@ -649,6 +661,8 @@ type
     property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull;
     property VENDEDOR: String read GetVENDEDORValue write SetVENDEDORValue;
     property VENDEDORIsNull: Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
+    property REF_VENDEDOR: String read GetREF_VENDEDORValue write SetREF_VENDEDORValue;
+    property REF_VENDEDORIsNull: Boolean read GetREF_VENDEDORIsNull write SetREF_VENDEDORIsNull;
     property DESCRIPCION_GENERAL: String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue;
     property DESCRIPCION_GENERALIsNull: Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull;
     property ID_DIRECCION_CLIENTE: Integer read GetID_DIRECCION_CLIENTEValue write SetID_DIRECCION_CLIENTEValue;
@@ -662,7 +676,7 @@ type
 
   { IPedidosProveedor_Detalles }
   IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{54914245-300B-4B3A-B1EA-5E77F73F3A8E}']
+  ['{51BAA98D-215D-4D3D-86CF-2AF8396CD9E6}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -742,7 +756,7 @@ type
   end;
 
   { TPedidosProveedor_DetallesDataTableRules }
-  TPedidosProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Detalles)
+  TPedidosProveedor_DetallesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Detalles)
   private
   protected
     { Property getters and setters }
@@ -1694,6 +1708,27 @@ begin
     DataTable.Fields[idx_PedidosProveedorVENDEDOR].AsVariant := Null;
 end;
 
+function TPedidosProveedorDataTableRules.GetREF_VENDEDORValue: String;
+begin
+  result := DataTable.Fields[idx_PedidosProveedorREF_VENDEDOR].AsString;
+end;
+
+procedure TPedidosProveedorDataTableRules.SetREF_VENDEDORValue(const aValue: String);
+begin
+  DataTable.Fields[idx_PedidosProveedorREF_VENDEDOR].AsString := aValue;
+end;
+
+function TPedidosProveedorDataTableRules.GetREF_VENDEDORIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PedidosProveedorREF_VENDEDOR].IsNull;
+end;
+
+procedure TPedidosProveedorDataTableRules.SetREF_VENDEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PedidosProveedorREF_VENDEDOR].AsVariant := Null;
+end;
+
 function TPedidosProveedorDataTableRules.GetDESCRIPCION_GENERALValue: String;
 begin
   result := DataTable.Fields[idx_PedidosProveedorDESCRIPCION_GENERAL].AsString;

Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas

@@ -9,13 +9,13 @@ 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_PedidosProveedorDelta = '{35F5A87E-FE86-4633-951A-CC8FDF16EA54}';
+  RID_PedidosProveedorDelta = '{9C00B86B-DEB7-412E-A5DE-D7706602F6DF}';
-  RID_PedidosProveedor_DetallesDelta = '{606BD1BC-BDFD-4B41-81DD-963DF48A7EBB}';
+  RID_PedidosProveedor_DetallesDelta = '{401F54DA-D0A1-46CC-9553-06252660F276}';
 
 type
   { IPedidosProveedorDelta }
   IPedidosProveedorDelta = interface(IPedidosProveedor)
-  ['{35F5A87E-FE86-4633-951A-CC8FDF16EA54}']
+  ['{9C00B86B-DEB7-412E-A5DE-D7706602F6DF}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -57,6 +57,7 @@ type
     function GetOldTIENDAValue : String;
     function GetOldID_VENDEDORValue : Integer;
     function GetOldVENDEDORValue : String;
+    function GetOldREF_VENDEDORValue : String;
     function GetOldDESCRIPCION_GENERALValue : String;
     function GetOldID_DIRECCION_CLIENTEValue : Integer;
 
@@ -101,6 +102,7 @@ type
     property OldTIENDA : String read GetOldTIENDAValue;
     property OldID_VENDEDOR : Integer read GetOldID_VENDEDORValue;
     property OldVENDEDOR : String read GetOldVENDEDORValue;
+    property OldREF_VENDEDOR : String read GetOldREF_VENDEDORValue;
     property OldDESCRIPCION_GENERAL : String read GetOldDESCRIPCION_GENERALValue;
     property OldID_DIRECCION_CLIENTE : Integer read GetOldID_DIRECCION_CLIENTEValue;
   end;
@@ -352,6 +354,12 @@ type
     function GetOldVENDEDORIsNull: Boolean; virtual;
     procedure SetVENDEDORValue(const aValue: String); virtual;
     procedure SetVENDEDORIsNull(const aValue: Boolean); virtual;
+    function GetREF_VENDEDORValue: String; virtual;
+    function GetREF_VENDEDORIsNull: Boolean; virtual;
+    function GetOldREF_VENDEDORValue: String; virtual;
+    function GetOldREF_VENDEDORIsNull: Boolean; virtual;
+    procedure SetREF_VENDEDORValue(const aValue: String); virtual;
+    procedure SetREF_VENDEDORIsNull(const aValue: Boolean); virtual;
     function GetDESCRIPCION_GENERALValue: String; virtual;
     function GetDESCRIPCION_GENERALIsNull: Boolean; virtual;
     function GetOldDESCRIPCION_GENERALValue: String; virtual;
@@ -526,6 +534,10 @@ type
     property VENDEDORIsNull : Boolean read GetVENDEDORIsNull write SetVENDEDORIsNull;
     property OldVENDEDOR : String read GetOldVENDEDORValue;
     property OldVENDEDORIsNull : Boolean read GetOldVENDEDORIsNull;
+    property REF_VENDEDOR : String read GetREF_VENDEDORValue write SetREF_VENDEDORValue;
+    property REF_VENDEDORIsNull : Boolean read GetREF_VENDEDORIsNull write SetREF_VENDEDORIsNull;
+    property OldREF_VENDEDOR : String read GetOldREF_VENDEDORValue;
+    property OldREF_VENDEDORIsNull : Boolean read GetOldREF_VENDEDORIsNull;
     property DESCRIPCION_GENERAL : String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue;
     property DESCRIPCION_GENERALIsNull : Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull;
     property OldDESCRIPCION_GENERAL : String read GetOldDESCRIPCION_GENERALValue;
@@ -543,7 +555,7 @@ type
 
   { IPedidosProveedor_DetallesDelta }
   IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
-  ['{606BD1BC-BDFD-4B41-81DD-963DF48A7EBB}']
+  ['{401F54DA-D0A1-46CC-9553-06252660F276}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PEDIDOValue : Integer;
@@ -1977,6 +1989,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorVENDEDOR] := Null;
 end;
 
+function TPedidosProveedorBusinessProcessorRules.GetREF_VENDEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_VENDEDOR];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetREF_VENDEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_VENDEDOR]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldREF_VENDEDORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREF_VENDEDOR];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldREF_VENDEDORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREF_VENDEDOR]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetREF_VENDEDORValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_VENDEDOR] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetREF_VENDEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_VENDEDOR] := Null;
+end;
+
 function TPedidosProveedorBusinessProcessorRules.GetDESCRIPCION_GENERALValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCRIPCION_GENERAL];

Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm

@@ -187,6 +187,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
               item
                 DatasetField = 'ID_DIRECCION_CLIENTE'
                 TableField = 'ID_DIRECCION_CLIENTE'
+              end
+              item
+                DatasetField = 'REF_VENDEDOR'
+                TableField = 'REF_VENDEDOR'
               end>
           end>
         Name = 'PedidosProveedor'
@@ -411,6 +415,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
             Size = 255
             DictionaryEntry = 'PedidosProveedor_VENDEDOR'
           end
+          item
+            Name = 'REF_VENDEDOR'
+            DataType = datString
+            Size = 255
+          end
           item
             Name = 'DESCRIPCION_GENERAL'
             DataType = datString

Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm

@@ -46,7 +46,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
     Width = 922
     ExplicitWidth = 922
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 634
+      ExplicitWidth = 488
       inherited TBXItem2: TTBXItem
         Visible = False
       end
@@ -73,21 +73,21 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
   end
   inherited pgPaginas: TPageControl
     Width = 916
-    Height = 482
+    Height = 491
     TabOrder = 1
     OnChanging = pgPaginasChanging
     ExplicitWidth = 916
-    ExplicitHeight = 482
+    ExplicitHeight = 491
     inherited pagGeneral: TTabSheet
       ExplicitLeft = 4
       ExplicitTop = 24
       ExplicitWidth = 908
-      ExplicitHeight = 454
+      ExplicitHeight = 463
       inline frViewPedidoProveedor1: TfrViewPedidoProveedor
         Left = 0
         Top = 0
         Width = 908
-        Height = 454
+        Height = 463
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -98,19 +98,20 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 908
-        ExplicitHeight = 454
+        ExplicitHeight = 463
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 908
-          Height = 454
+          Height = 463
           ExplicitWidth = 908
-          ExplicitHeight = 454
+          ExplicitHeight = 463
           inherited frViewProveedorPedido: TfrViewDatosYSeleccionProveedor
-            Left = 548
+            Left = 551
             Width = 357
-            ExplicitLeft = 548
+            ExplicitLeft = 551
             ExplicitWidth = 357
             inherited dxLayoutControl1: TdxLayoutControl
               Width = 357
+              ExplicitWidth = 318
               inherited edtlNombre: TcxDBTextEdit
                 ExplicitWidth = 283
                 Width = 283
@@ -132,12 +133,12 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
                 Width = 283
               end
               inherited edtCodigoPostal: TcxDBTextEdit
-                Left = 236
+                Left = 237
-                ExplicitLeft = 236
+                ExplicitLeft = 237
               end
               inherited Button3: TBitBtn
-                Left = 109
+                Left = 110
-                ExplicitLeft = 109
+                ExplicitLeft = 110
               end
             end
           end
@@ -165,6 +166,8 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
             inherited dxLayoutControl1: TdxLayoutControl
               Width = 273
               Height = 166
+              ExplicitWidth = 499
+              ExplicitHeight = 20
               inherited rdxDestino1: TRadioButton
                 Width = 253
                 ExplicitWidth = 253
@@ -178,8 +181,8 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
                 Width = 238
               end
               inherited bModificar: TBitBtn
-                Left = 285
+                Left = 292
-                ExplicitLeft = 285
+                ExplicitLeft = 292
               end
               inherited txtDireccion: TStaticText
                 Width = 238
@@ -202,8 +205,8 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
             Width = 20
           end
           inherited bFormasPago: TButton
-            Left = 386
+            Left = 389
-            ExplicitLeft = 386
+            ExplicitLeft = 389
           end
           inherited edtFechaEnvio: TcxDBDateEdit
             ExplicitWidth = 158
@@ -214,16 +217,17 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
             Width = 20
           end
           inherited Button1: TButton
-            Left = 386
+            Left = 389
-            ExplicitLeft = 386
+            ExplicitLeft = 389
           end
           inherited frViewTienda1: TfrViewTienda
-            Left = 548
+            Left = 551
             Width = 357
-            ExplicitLeft = 548
+            ExplicitLeft = 551
             ExplicitWidth = 357
             inherited dxLayoutControl1: TdxLayoutControl
               Width = 357
+              ExplicitWidth = 318
               inherited cbTienda: TcxComboBox
                 ExplicitWidth = 390
                 Width = 390
@@ -235,6 +239,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
             ExplicitWidth = 422
             inherited memObservaciones: TcxDBMemo
               DataBinding.DataSource = frViewPedidoProveedor1.DADataSource
+              ExplicitWidth = 363
               Width = 422
             end
           end
@@ -256,15 +261,11 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
     object pagContenido: TTabSheet
       Caption = 'Contenido'
       ImageIndex = 1
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
       inline frViewDetallesPedidoProveedor1: TfrViewDetallesPedidoProveedor
         Left = 0
         Top = 0
         Width = 908
-        Height = 454
+        Height = 463
         Align = alClient
         BiDiMode = bdLeftToRight
         Font.Charset = DEFAULT_CHARSET
@@ -277,7 +278,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 908
-        ExplicitHeight = 454
+        ExplicitHeight = 463
         inherited ToolBar1: TToolBar
           Width = 908
           Height = 24
@@ -360,9 +361,9 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
           end
         end
         inherited cxGrid: TcxGrid
-          Top = 53
+          Top = 50
           Width = 908
-          Height = 401
+          Height = 413
           ExplicitTop = 53
           ExplicitWidth = 908
           ExplicitHeight = 401
@@ -375,9 +376,10 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
         inherited TBXDock1: TTBXDock
           Top = 24
           Width = 908
+          ExplicitTop = 24
           ExplicitWidth = 908
           inherited TBXToolbar1: TTBXToolbar
-            ExplicitWidth = 731
+            ExplicitWidth = 548
           end
         end
       end
@@ -385,15 +387,11 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
     object pagInicidencias: TTabSheet
       Caption = 'Incidencias'
       ImageIndex = 2
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
       inline frViewIncidenciasProv: TfrViewIncidencias
         Left = 0
         Top = 0
         Width = 908
-        Height = 454
+        Height = 463
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -404,7 +402,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 908
-        ExplicitHeight = 454
+        ExplicitHeight = 463
         inherited pnlSup: TPanel
           Width = 908
           ExplicitWidth = 908
@@ -414,13 +412,13 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
         end
         inherited GroupBox1: TGroupBox
           Width = 908
-          Height = 426
+          Height = 435
           ExplicitWidth = 908
-          ExplicitHeight = 426
+          ExplicitHeight = 435
           inherited eIncidencias: TcxDBMemo
             ExplicitWidth = 904
-            ExplicitHeight = 409
+            ExplicitHeight = 418
-            Height = 409
+            Height = 418
             Width = 904
           end
         end
@@ -434,7 +432,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
         Left = 0
         Top = 0
         Width = 908
-        Height = 454
+        Height = 463
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -445,14 +443,14 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 908
-        ExplicitHeight = 454
+        ExplicitHeight = 463
         inherited TBXDock: TTBXDock
           Width = 908
           ExplicitWidth = 908
         end
         inherited ListView1: TListView
           Width = 908
-          Height = 425
+          Height = 440
           ExplicitTop = 29
           ExplicitWidth = 908
           ExplicitHeight = 425
@@ -657,6 +655,10 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
   inherited PnlComentario: TPanel [5]
     Width = 922
     ExplicitWidth = 922
+    inherited lbComentario: TLabel
+      Width = 912
+      Height = 25
+    end
   end
   inherited EditorActionList: TActionList [9]
     Left = 72

Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas

@@ -150,6 +150,8 @@ begin
 
   Pedido.DataTable.Active := True;
   pgPaginas.ActivePage := pagGeneral;
+
+  frViewPedidoProveedor1.frViewDireccionEntregaPedidoProv1.CambioDireccionAlmacen;
 end;
 
 procedure TfEditorPedidoProveedor.frViewTotales1ePortePropertiesValidate(

Source/Modulos/Pedidos a proveedor/Views/uViewDireccionEntregaPedidoProv.pas

@@ -18,6 +18,7 @@ type
     procedure SetPedidoProveedor(const Value: IBizPedidoProveedor);
     property PedidoProveedor: IBizPedidoProveedor read GetPedidoProveedor write SetPedidoProveedor;
     procedure RefrescarDireccion;
+    procedure CambioDireccionAlmacen;
   end;
 
   TfrViewDireccionEntregaPedidoProv = class(TfrViewBase, IViewDireccionEntregaPedidoProv)
@@ -61,7 +62,6 @@ type
     function GetPedidoProveedor: IBizPedidoProveedor;
     function HayContratoAsociado: Boolean;
     procedure SetPedidoProveedor(const Value: IBizPedidoProveedor);
-    procedure CambioDireccionAlmacen;
     procedure CambioDireccionCliente;
     procedure RecuperarClienteAsociado;
     procedure SetReadOnly(Value: Boolean); override;
@@ -71,6 +71,7 @@ type
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     procedure RefrescarDireccion;
+    procedure CambioDireccionAlmacen;    
   end;
 
 implementation
@@ -136,7 +137,7 @@ begin
     FPedido.PROVINCIA := FAlmacenes.PROVINCIA;
     FPedido.CODIGO_POSTAL := FAlmacenes.CODIGO_POSTAL;
     FPedido.PERSONA_CONTACTO := FAlmacenes.PERSONA_CONTACTO;
-    FPedido.TELEFONO := FAlmacenes.TELEFONO;
+    FPedido.TELEFONO := FAlmacenes.MOVIL;
     RefrescarDireccion;
   end;
 end;

Source/Servidor/FactuGES_Server.dpr

@@ -121,8 +121,6 @@ uses
   uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule},
   schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
   schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
-  schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
-  schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
   schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
   schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
   schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
@@ -138,7 +136,9 @@ uses
   schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
   schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
   schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
-  schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
+  schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
+  schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
+  schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -30,6 +30,8 @@
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">9</VersionInfo><VersionInfo Name="Release">2</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">2.9.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.9.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 17 de mayo de 2019 18:40</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
       
+      
+      
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>

Source/Servidor/FactuGES_Server.rc

@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 2,9,1,0
+FILEVERSION 2,9,2,0
-PRODUCTVERSION 2,9,1,0
+PRODUCTVERSION 2,9,2,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.9.1.0\0"
+              VALUE "FileVersion", "2.9.2.0\0"
               VALUE "ProductName", "FactuGES (Servidor)\0"
-              VALUE "ProductVersion", "2.9.1.0\0"
+              VALUE "ProductVersion", "2.9.2.0\0"
-              VALUE "CompileDate", "viernes, 17 de mayo de 2019 18:40\0"
+              VALUE "CompileDate", "viernes, 17 de mayo de 2019 18:59\0"
          END
     END
     BLOCK "VarFileInfo"