Artículos: fallo en la definición del esquema que hacía que no fuera posible elegir artículos para añadir en detalles (facturas, presupuestos, etc.)

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

Source/Modulos/Articulos/Controller/uArticulosController.pas

@@ -565,7 +565,7 @@ var
   ASeleccionados : IBizArticulo;
 begin
   ASeleccionados := (Self.Buscar(ID_NULO) as IBizArticulo);
-  CopyDataTableDA3(AArticulos.DataTable, ASeleccionados.DataTable, True);
+  CopyDataTableDA5(AArticulos.DataTable, ASeleccionados.DataTable, True);
   Result := ASeleccionados;
 end;
 

Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm

@@ -186,102 +186,142 @@ inherited DataModuleArticulos: TDataModuleArticulos
     Fields = <
       item
         Name = 'ID'
-        DataType = datInteger
+        DataType = datAutoInc
+        GeneratorName = 'GEN_ARTICULOS_ID'
+        Required = True
+        ServerAutoRefresh = True
+        DictionaryEntry = 'Articulos_ID'
         InPrimaryKey = True
       end
       item
         Name = 'ID_EMPRESA'
         DataType = datInteger
+        DictionaryEntry = 'Articulos_ID_EMPRESA'
       end
       item
         Name = 'REFERENCIA'
         DataType = datString
         Size = 255
+        DisplayLabel = 'Referencia'
+        DictionaryEntry = 'Articulos_REFERENCIA'
       end
       item
         Name = 'DESCRIPCION'
         DataType = datString
         Size = 255
-      end
+        DisplayLabel = 'Descripci'#243'n'
-      item
+        DictionaryEntry = 'Articulos_DESCRIPCION'
-        Name = 'FABRICANTE'
-        DataType = datString
-        Size = 255
-      end
-      item
-        Name = 'REFERENCIA_FABR'
-        DataType = datString
-        Size = 255
       end
       item
         Name = 'UNIDAD_MEDIDA'
         DataType = datString
         Size = 255
+        DisplayLabel = 'Unidad de medida'
+        DictionaryEntry = 'Articulos_UNIDAD_MEDIDA'
       end
       item
         Name = 'FAMILIA'
         DataType = datString
         Size = 255
+        DisplayLabel = 'Familia'
+        DictionaryEntry = 'Articulos_FAMILIA'
       end
       item
         Name = 'IMAGEN'
         DataType = datBlob
+        DisplayLabel = 'Foto'
+        DictionaryEntry = 'Articulos_IMAGEN'
       end
       item
         Name = 'COMISIONABLE'
-        DataType = datSmallInt
+        DataType = datInteger
+        DisplayLabel = 'Comisionable'
+        DictionaryEntry = 'Articulos_COMISIONABLE'
       end
       item
         Name = 'FECHA_ALTA'
         DataType = datDateTime
+        DictionaryEntry = 'Articulos_FECHA_ALTA'
       end
       item
         Name = 'FECHA_MODIFICACION'
         DataType = datDateTime
+        DictionaryEntry = 'Articulos_FECHA_MODIFICACION'
       end
       item
         Name = 'USUARIO'
         DataType = datString
-        Size = 30
+        Size = 20
+        DictionaryEntry = 'Articulos_USUARIO'
       end
       item
         Name = 'REFERENCIA_PROV'
         DataType = datString
         Size = 255
+        DisplayLabel = 'Ref. proveedor'
+        DictionaryEntry = 'Articulos_REFERENCIA_PROVEEDOR'
       end
       item
         Name = 'PRECIO_COSTE'
         DataType = datCurrency
+        DisplayLabel = 'Importe'
+        DictionaryEntry = 'Articulos_PRECIO_COSTE'
       end
       item
         Name = 'PRECIO_PORTE'
         DataType = datCurrency
+        DisplayLabel = 'Precio porte'
+        DictionaryEntry = 'Articulos_PRECIO_PORTE'
       end
       item
         Name = 'DESCUENTO'
         DataType = datFloat
+        DisplayLabel = 'Descuento'
+        DictionaryEntry = 'Articulos_DESCUENTO'
       end
       item
         Name = 'PRECIO_NETO'
         DataType = datCurrency
+        DisplayLabel = 'Precio neto'
+        DictionaryEntry = 'Articulos_PRECIO_NETO'
       end
       item
         Name = 'INVENTARIABLE'
         DataType = datSmallInt
+        DisplayLabel = 'Inventariable'
+        DictionaryEntry = 'Articulos_INVENTARIABLE'
       end
       item
         Name = 'ID_PROVEEDOR'
         DataType = datInteger
+        DictionaryEntry = 'Articulos_ID_PROVEEDOR'
       end
       item
         Name = 'NOMBRE_PROVEEDOR'
         DataType = datString
         Size = 255
+        DisplayLabel = 'Nombre'
+        DictionaryEntry = 'Articulos_NOMBRE_PROVEEDOR'
       end
       item
         Name = 'ELIMINADO'
         DataType = datSmallInt
         DisplayLabel = 'Eliminado'
+        DictionaryEntry = 'Articulos_ELIMINADO'
+      end
+      item
+        Name = 'FABRICANTE'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Fabricante'
+        DictionaryEntry = 'Articulos_FABRICANTE'
+      end
+      item
+        Name = 'REFERENCIA_FABR'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Ref. fabricante'
+        DictionaryEntry = 'Articulos_REFERENCIA_FABR'
       end>
     Params = <
       item

Source/Modulos/Articulos/Model/Articulos_model.dproj

@@ -47,7 +47,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Articulos_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Articulos_model.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>

Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas

@@ -3,14 +3,14 @@ unit schArticulosClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, 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_Articulos = '{156CD895-4CAF-4DAD-B780-CE14A9E75C42}';
+  RID_Articulos = '{D722C372-EBBB-4076-B05F-7D3D558AD018}';
-  RID_ArticulosParaCliente = '{6EAEF27D-F41C-4537-9818-45A931D61E50}';
+  RID_ArticulosParaCliente = '{BD605A42-7AE2-464B-941D-FB4EB1C60932}';
 
   { Data table names }
   nme_Articulos = 'Articulos';
@@ -69,8 +69,6 @@ const
   fld_ArticulosParaClienteID_EMPRESA = 'ID_EMPRESA';
   fld_ArticulosParaClienteREFERENCIA = 'REFERENCIA';
   fld_ArticulosParaClienteDESCRIPCION = 'DESCRIPCION';
-  fld_ArticulosParaClienteFABRICANTE = 'FABRICANTE';
-  fld_ArticulosParaClienteREFERENCIA_FABR = 'REFERENCIA_FABR';
   fld_ArticulosParaClienteUNIDAD_MEDIDA = 'UNIDAD_MEDIDA';
   fld_ArticulosParaClienteFAMILIA = 'FAMILIA';
   fld_ArticulosParaClienteIMAGEN = 'IMAGEN';
@@ -87,35 +85,37 @@ const
   fld_ArticulosParaClienteID_PROVEEDOR = 'ID_PROVEEDOR';
   fld_ArticulosParaClienteNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
   fld_ArticulosParaClienteELIMINADO = 'ELIMINADO';
+  fld_ArticulosParaClienteFABRICANTE = 'FABRICANTE';
+  fld_ArticulosParaClienteREFERENCIA_FABR = 'REFERENCIA_FABR';
 
   { ArticulosParaCliente field indexes }
   idx_ArticulosParaClienteID = 0;
   idx_ArticulosParaClienteID_EMPRESA = 1;
   idx_ArticulosParaClienteREFERENCIA = 2;
   idx_ArticulosParaClienteDESCRIPCION = 3;
-  idx_ArticulosParaClienteFABRICANTE = 4;
+  idx_ArticulosParaClienteUNIDAD_MEDIDA = 4;
-  idx_ArticulosParaClienteREFERENCIA_FABR = 5;
+  idx_ArticulosParaClienteFAMILIA = 5;
-  idx_ArticulosParaClienteUNIDAD_MEDIDA = 6;
+  idx_ArticulosParaClienteIMAGEN = 6;
-  idx_ArticulosParaClienteFAMILIA = 7;
+  idx_ArticulosParaClienteCOMISIONABLE = 7;
-  idx_ArticulosParaClienteIMAGEN = 8;
+  idx_ArticulosParaClienteFECHA_ALTA = 8;
-  idx_ArticulosParaClienteCOMISIONABLE = 9;
+  idx_ArticulosParaClienteFECHA_MODIFICACION = 9;
-  idx_ArticulosParaClienteFECHA_ALTA = 10;
+  idx_ArticulosParaClienteUSUARIO = 10;
-  idx_ArticulosParaClienteFECHA_MODIFICACION = 11;
+  idx_ArticulosParaClienteREFERENCIA_PROV = 11;
-  idx_ArticulosParaClienteUSUARIO = 12;
+  idx_ArticulosParaClientePRECIO_COSTE = 12;
-  idx_ArticulosParaClienteREFERENCIA_PROV = 13;
+  idx_ArticulosParaClientePRECIO_PORTE = 13;
-  idx_ArticulosParaClientePRECIO_COSTE = 14;
+  idx_ArticulosParaClienteDESCUENTO = 14;
-  idx_ArticulosParaClientePRECIO_PORTE = 15;
+  idx_ArticulosParaClientePRECIO_NETO = 15;
-  idx_ArticulosParaClienteDESCUENTO = 16;
+  idx_ArticulosParaClienteINVENTARIABLE = 16;
-  idx_ArticulosParaClientePRECIO_NETO = 17;
+  idx_ArticulosParaClienteID_PROVEEDOR = 17;
-  idx_ArticulosParaClienteINVENTARIABLE = 18;
+  idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 18;
-  idx_ArticulosParaClienteID_PROVEEDOR = 19;
+  idx_ArticulosParaClienteELIMINADO = 19;
-  idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 20;
+  idx_ArticulosParaClienteFABRICANTE = 20;
-  idx_ArticulosParaClienteELIMINADO = 21;
+  idx_ArticulosParaClienteREFERENCIA_FABR = 21;
 
 type
   { IArticulos }
   IArticulos = interface(IDAStronglyTypedDataTable)
-  ['{83F55899-2640-40FA-AED6-7762EA6F1B4B}']
+  ['{7054C4D6-0703-46ED-90A8-66909C04B767}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -254,7 +254,7 @@ type
   end;
 
   { TArticulosDataTableRules }
-  TArticulosDataTableRules = class(TIntfObjectDADataTableRules, IArticulos)
+  TArticulosDataTableRules = class(TDADataTableRules, IArticulos)
   private
     f_IMAGEN: IROStream;
     procedure IMAGEN_OnChange(Sender: TObject);
@@ -400,9 +400,12 @@ type
 
   end;
 
+  {
+  ¡¡¡¡ Esta tabla debe tener los mismos campos y orden de campos que 'Artículos' !!!!
+  }
   { IArticulosParaCliente }
   IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
-  ['{5D392436-9A8E-4D59-ADCB-1C16AEB25EF7}']
+  ['{5D823EDE-5BC4-4583-A5B1-B571570AF822}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -420,14 +423,6 @@ type
     procedure SetDESCRIPCIONValue(const aValue: String);
     function GetDESCRIPCIONIsNull: Boolean;
     procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
-    function GetFABRICANTEValue: String;
-    procedure SetFABRICANTEValue(const aValue: String);
-    function GetFABRICANTEIsNull: Boolean;
-    procedure SetFABRICANTEIsNull(const aValue: Boolean);
-    function GetREFERENCIA_FABRValue: String;
-    procedure SetREFERENCIA_FABRValue(const aValue: String);
-    function GetREFERENCIA_FABRIsNull: Boolean;
-    procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean);
     function GetUNIDAD_MEDIDAValue: String;
     procedure SetUNIDAD_MEDIDAValue(const aValue: String);
     function GetUNIDAD_MEDIDAIsNull: Boolean;
@@ -439,8 +434,8 @@ type
     function GetIMAGENValue: IROStream;
     function GetIMAGENIsNull: Boolean;
     procedure SetIMAGENIsNull(const aValue: Boolean);
-    function GetCOMISIONABLEValue: SmallInt;
+    function GetCOMISIONABLEValue: Integer;
-    procedure SetCOMISIONABLEValue(const aValue: SmallInt);
+    procedure SetCOMISIONABLEValue(const aValue: Integer);
     function GetCOMISIONABLEIsNull: Boolean;
     procedure SetCOMISIONABLEIsNull(const aValue: Boolean);
     function GetFECHA_ALTAValue: DateTime;
@@ -491,6 +486,14 @@ type
     procedure SetELIMINADOValue(const aValue: SmallInt);
     function GetELIMINADOIsNull: Boolean;
     procedure SetELIMINADOIsNull(const aValue: Boolean);
+    function GetFABRICANTEValue: String;
+    procedure SetFABRICANTEValue(const aValue: String);
+    function GetFABRICANTEIsNull: Boolean;
+    procedure SetFABRICANTEIsNull(const aValue: Boolean);
+    function GetREFERENCIA_FABRValue: String;
+    procedure SetREFERENCIA_FABRValue(const aValue: String);
+    function GetREFERENCIA_FABRIsNull: Boolean;
+    procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -502,17 +505,13 @@ type
     property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
     property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
     property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
-    property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
-    property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
-    property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
-    property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
     property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
     property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
     property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
     property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
     property IMAGEN: IROStream read GetIMAGENValue;
     property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
-    property COMISIONABLE: SmallInt read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
+    property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
     property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
     property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
     property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
@@ -538,10 +537,14 @@ type
     property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
     property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
     property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
+    property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
+    property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
+    property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
+    property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
   end;
 
   { TArticulosParaClienteDataTableRules }
-  TArticulosParaClienteDataTableRules = class(TIntfObjectDADataTableRules, IArticulosParaCliente)
+  TArticulosParaClienteDataTableRules = class(TDADataTableRules, IArticulosParaCliente)
   private
     f_IMAGEN: IROStream;
     procedure IMAGEN_OnChange(Sender: TObject);
@@ -563,14 +566,6 @@ type
     procedure SetDESCRIPCIONValue(const aValue: String); virtual;
     function GetDESCRIPCIONIsNull: Boolean; virtual;
     procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
-    function GetFABRICANTEValue: String; virtual;
-    procedure SetFABRICANTEValue(const aValue: String); virtual;
-    function GetFABRICANTEIsNull: Boolean; virtual;
-    procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
-    function GetREFERENCIA_FABRValue: String; virtual;
-    procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
-    function GetREFERENCIA_FABRIsNull: Boolean; virtual;
-    procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
     function GetUNIDAD_MEDIDAValue: String; virtual;
     procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
     function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
@@ -582,8 +577,8 @@ type
     function GetIMAGENValue: IROStream; virtual;
     function GetIMAGENIsNull: Boolean; virtual;
     procedure SetIMAGENIsNull(const aValue: Boolean); virtual;
-    function GetCOMISIONABLEValue: SmallInt; virtual;
+    function GetCOMISIONABLEValue: Integer; virtual;
-    procedure SetCOMISIONABLEValue(const aValue: SmallInt); virtual;
+    procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
     function GetCOMISIONABLEIsNull: Boolean; virtual;
     procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual;
     function GetFECHA_ALTAValue: DateTime; virtual;
@@ -634,6 +629,14 @@ type
     procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
     function GetELIMINADOIsNull: Boolean; virtual;
     procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
+    function GetFABRICANTEValue: String; virtual;
+    procedure SetFABRICANTEValue(const aValue: String); virtual;
+    function GetFABRICANTEIsNull: Boolean; virtual;
+    procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_FABRValue: String; virtual;
+    procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
+    function GetREFERENCIA_FABRIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -644,17 +647,13 @@ type
     property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
     property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
     property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
-    property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
-    property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
-    property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
-    property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
     property UNIDAD_MEDIDA: String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
     property UNIDAD_MEDIDAIsNull: Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
     property FAMILIA: String read GetFAMILIAValue write SetFAMILIAValue;
     property FAMILIAIsNull: Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
     property IMAGEN: IROStream read GetIMAGENValue;
     property IMAGENIsNull: Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
-    property COMISIONABLE: SmallInt read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
+    property COMISIONABLE: Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
     property COMISIONABLEIsNull: Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
     property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
     property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
@@ -680,6 +679,10 @@ type
     property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
     property ELIMINADO: SmallInt read GetELIMINADOValue write SetELIMINADOValue;
     property ELIMINADOIsNull: Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
+    property FABRICANTE: String read GetFABRICANTEValue write SetFABRICANTEValue;
+    property FABRICANTEIsNull: Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
+    property REFERENCIA_FABR: String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
+    property REFERENCIA_FABRIsNull: Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -1282,48 +1285,6 @@ begin
     DataTable.Fields[idx_ArticulosParaClienteDESCRIPCION].AsVariant := Null;
 end;
 
-function TArticulosParaClienteDataTableRules.GetFABRICANTEValue: String;
-begin
-  result := DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].AsString;
-end;
-
-procedure TArticulosParaClienteDataTableRules.SetFABRICANTEValue(const aValue: String);
-begin
-  DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].AsString := aValue;
-end;
-
-function TArticulosParaClienteDataTableRules.GetFABRICANTEIsNull: boolean;
-begin
-  result := DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].IsNull;
-end;
-
-procedure TArticulosParaClienteDataTableRules.SetFABRICANTEIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].AsVariant := Null;
-end;
-
-function TArticulosParaClienteDataTableRules.GetREFERENCIA_FABRValue: String;
-begin
-  result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].AsString;
-end;
-
-procedure TArticulosParaClienteDataTableRules.SetREFERENCIA_FABRValue(const aValue: String);
-begin
-  DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].AsString := aValue;
-end;
-
-function TArticulosParaClienteDataTableRules.GetREFERENCIA_FABRIsNull: boolean;
-begin
-  result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].IsNull;
-end;
-
-procedure TArticulosParaClienteDataTableRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].AsVariant := Null;
-end;
-
 function TArticulosParaClienteDataTableRules.GetUNIDAD_MEDIDAValue: String;
 begin
   result := DataTable.Fields[idx_ArticulosParaClienteUNIDAD_MEDIDA].AsString;
@@ -1387,14 +1348,14 @@ begin
     DataTable.Fields[idx_ArticulosParaClienteIMAGEN].AsVariant := Null;
 end;
 
-function TArticulosParaClienteDataTableRules.GetCOMISIONABLEValue: SmallInt;
+function TArticulosParaClienteDataTableRules.GetCOMISIONABLEValue: Integer;
 begin
-  result := DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsSmallInt;
+  result := DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsInteger;
 end;
 
-procedure TArticulosParaClienteDataTableRules.SetCOMISIONABLEValue(const aValue: SmallInt);
+procedure TArticulosParaClienteDataTableRules.SetCOMISIONABLEValue(const aValue: Integer);
 begin
-  DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsSmallInt := aValue;
+  DataTable.Fields[idx_ArticulosParaClienteCOMISIONABLE].AsInteger := aValue;
 end;
 
 function TArticulosParaClienteDataTableRules.GetCOMISIONABLEIsNull: boolean;
@@ -1660,6 +1621,48 @@ begin
     DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsVariant := Null;
 end;
 
+function TArticulosParaClienteDataTableRules.GetFABRICANTEValue: String;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].AsString;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetFABRICANTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].AsString := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetFABRICANTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetFABRICANTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteFABRICANTE].AsVariant := Null;
+end;
+
+function TArticulosParaClienteDataTableRules.GetREFERENCIA_FABRValue: String;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].AsString;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetREFERENCIA_FABRValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].AsString := aValue;
+end;
+
+function TArticulosParaClienteDataTableRules.GetREFERENCIA_FABRIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].IsNull;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ArticulosParaClienteREFERENCIA_FABR].AsVariant := Null;
+end;
+
 
 initialization
   RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules);

Source/Modulos/Articulos/Model/schArticulosServer_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_ArticulosDelta = '{FE99E03A-3FCB-4C45-AC72-214C99EA279D}';
+  RID_ArticulosDelta = '{2FE9AA89-2E24-415F-BDC4-C0DB800D978E}';
-  RID_ArticulosParaClienteDelta = '{56F158DA-2821-4DC3-AF59-B88CD666DD5E}';
+  RID_ArticulosParaClienteDelta = '{9C8B3982-229A-489A-A29D-51F44D852F92}';
 
 type
   { IArticulosDelta }
   IArticulosDelta = interface(IArticulos)
-  ['{FE99E03A-3FCB-4C45-AC72-214C99EA279D}']
+  ['{2FE9AA89-2E24-415F-BDC4-C0DB800D978E}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -302,18 +302,16 @@ type
 
   { IArticulosParaClienteDelta }
   IArticulosParaClienteDelta = interface(IArticulosParaCliente)
-  ['{56F158DA-2821-4DC3-AF59-B88CD666DD5E}']
+  ['{9C8B3982-229A-489A-A29D-51F44D852F92}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
     function GetOldREFERENCIAValue : String;
     function GetOldDESCRIPCIONValue : String;
-    function GetOldFABRICANTEValue : String;
-    function GetOldREFERENCIA_FABRValue : String;
     function GetOldUNIDAD_MEDIDAValue : String;
     function GetOldFAMILIAValue : String;
     function GetOldIMAGENValue : IROStream;
-    function GetOldCOMISIONABLEValue : SmallInt;
+    function GetOldCOMISIONABLEValue : Integer;
     function GetOldFECHA_ALTAValue : DateTime;
     function GetOldFECHA_MODIFICACIONValue : DateTime;
     function GetOldUSUARIOValue : String;
@@ -326,18 +324,18 @@ type
     function GetOldID_PROVEEDORValue : Integer;
     function GetOldNOMBRE_PROVEEDORValue : String;
     function GetOldELIMINADOValue : SmallInt;
+    function GetOldFABRICANTEValue : String;
+    function GetOldREFERENCIA_FABRValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
     property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
     property OldREFERENCIA : String read GetOldREFERENCIAValue;
     property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
-    property OldFABRICANTE : String read GetOldFABRICANTEValue;
-    property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
     property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
     property OldFAMILIA : String read GetOldFAMILIAValue;
     property OldIMAGEN : IROStream read GetOldIMAGENValue;
-    property OldCOMISIONABLE : SmallInt read GetOldCOMISIONABLEValue;
+    property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
     property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
     property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
     property OldUSUARIO : String read GetOldUSUARIOValue;
@@ -350,6 +348,8 @@ type
     property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
     property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
     property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
+    property OldFABRICANTE : String read GetOldFABRICANTEValue;
+    property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
   end;
 
   { TArticulosParaClienteBusinessProcessorRules }
@@ -383,18 +383,6 @@ type
     function GetOldDESCRIPCIONIsNull: Boolean; virtual;
     procedure SetDESCRIPCIONValue(const aValue: String); virtual;
     procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
-    function GetFABRICANTEValue: String; virtual;
-    function GetFABRICANTEIsNull: Boolean; virtual;
-    function GetOldFABRICANTEValue: String; virtual;
-    function GetOldFABRICANTEIsNull: Boolean; virtual;
-    procedure SetFABRICANTEValue(const aValue: String); virtual;
-    procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
-    function GetREFERENCIA_FABRValue: String; virtual;
-    function GetREFERENCIA_FABRIsNull: Boolean; virtual;
-    function GetOldREFERENCIA_FABRValue: String; virtual;
-    function GetOldREFERENCIA_FABRIsNull: Boolean; virtual;
-    procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
-    procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
     function GetUNIDAD_MEDIDAValue: String; virtual;
     function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
     function GetOldUNIDAD_MEDIDAValue: String; virtual;
@@ -412,11 +400,11 @@ type
     function GetOldIMAGENValue: IROStream; virtual;
     function GetOldIMAGENIsNull: Boolean; virtual;
     procedure SetIMAGENIsNull(const aValue: Boolean); virtual;
-    function GetCOMISIONABLEValue: SmallInt; virtual;
+    function GetCOMISIONABLEValue: Integer; virtual;
     function GetCOMISIONABLEIsNull: Boolean; virtual;
-    function GetOldCOMISIONABLEValue: SmallInt; virtual;
+    function GetOldCOMISIONABLEValue: Integer; virtual;
     function GetOldCOMISIONABLEIsNull: Boolean; virtual;
-    procedure SetCOMISIONABLEValue(const aValue: SmallInt); virtual;
+    procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
     procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual;
     function GetFECHA_ALTAValue: DateTime; virtual;
     function GetFECHA_ALTAIsNull: Boolean; virtual;
@@ -490,6 +478,18 @@ type
     function GetOldELIMINADOIsNull: Boolean; virtual;
     procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
     procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
+    function GetFABRICANTEValue: String; virtual;
+    function GetFABRICANTEIsNull: Boolean; virtual;
+    function GetOldFABRICANTEValue: String; virtual;
+    function GetOldFABRICANTEIsNull: Boolean; virtual;
+    procedure SetFABRICANTEValue(const aValue: String); virtual;
+    procedure SetFABRICANTEIsNull(const aValue: Boolean); virtual;
+    function GetREFERENCIA_FABRValue: String; virtual;
+    function GetREFERENCIA_FABRIsNull: Boolean; virtual;
+    function GetOldREFERENCIA_FABRValue: String; virtual;
+    function GetOldREFERENCIA_FABRIsNull: Boolean; virtual;
+    procedure SetREFERENCIA_FABRValue(const aValue: String); virtual;
+    procedure SetREFERENCIA_FABRIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -508,14 +508,6 @@ type
     property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
     property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
     property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
-    property FABRICANTE : String read GetFABRICANTEValue write SetFABRICANTEValue;
-    property FABRICANTEIsNull : Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
-    property OldFABRICANTE : String read GetOldFABRICANTEValue;
-    property OldFABRICANTEIsNull : Boolean read GetOldFABRICANTEIsNull;
-    property REFERENCIA_FABR : String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
-    property REFERENCIA_FABRIsNull : Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
-    property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
-    property OldREFERENCIA_FABRIsNull : Boolean read GetOldREFERENCIA_FABRIsNull;
     property UNIDAD_MEDIDA : String read GetUNIDAD_MEDIDAValue write SetUNIDAD_MEDIDAValue;
     property UNIDAD_MEDIDAIsNull : Boolean read GetUNIDAD_MEDIDAIsNull write SetUNIDAD_MEDIDAIsNull;
     property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
@@ -528,9 +520,9 @@ type
     property IMAGENIsNull : Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
     property OldIMAGEN : IROStream read GetOldIMAGENValue;
     property OldIMAGENIsNull : Boolean read GetOldIMAGENIsNull;
-    property COMISIONABLE : SmallInt read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
+    property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
     property COMISIONABLEIsNull : Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
-    property OldCOMISIONABLE : SmallInt read GetOldCOMISIONABLEValue;
+    property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
     property OldCOMISIONABLEIsNull : Boolean read GetOldCOMISIONABLEIsNull;
     property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
     property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
@@ -580,6 +572,14 @@ type
     property ELIMINADOIsNull : Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
     property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
     property OldELIMINADOIsNull : Boolean read GetOldELIMINADOIsNull;
+    property FABRICANTE : String read GetFABRICANTEValue write SetFABRICANTEValue;
+    property FABRICANTEIsNull : Boolean read GetFABRICANTEIsNull write SetFABRICANTEIsNull;
+    property OldFABRICANTE : String read GetOldFABRICANTEValue;
+    property OldFABRICANTEIsNull : Boolean read GetOldFABRICANTEIsNull;
+    property REFERENCIA_FABR : String read GetREFERENCIA_FABRValue write SetREFERENCIA_FABRValue;
+    property REFERENCIA_FABRIsNull : Boolean read GetREFERENCIA_FABRIsNull write SetREFERENCIA_FABRIsNull;
+    property OldREFERENCIA_FABR : String read GetOldREFERENCIA_FABRValue;
+    property OldREFERENCIA_FABRIsNull : Boolean read GetOldREFERENCIA_FABRIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1444,68 +1444,6 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCRIPCION] := Null;
 end;
 
-function TArticulosParaClienteBusinessProcessorRules.GetFABRICANTEValue: String;
-begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFABRICANTE];
-end;
-
-function TArticulosParaClienteBusinessProcessorRules.GetFABRICANTEIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFABRICANTE]);
-end;
-
-function TArticulosParaClienteBusinessProcessorRules.GetOldFABRICANTEValue: String;
-begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFABRICANTE];
-end;
-
-function TArticulosParaClienteBusinessProcessorRules.GetOldFABRICANTEIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFABRICANTE]);
-end;
-
-procedure TArticulosParaClienteBusinessProcessorRules.SetFABRICANTEValue(const aValue: String);
-begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFABRICANTE] := aValue;
-end;
-
-procedure TArticulosParaClienteBusinessProcessorRules.SetFABRICANTEIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFABRICANTE] := Null;
-end;
-
-function TArticulosParaClienteBusinessProcessorRules.GetREFERENCIA_FABRValue: String;
-begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_FABR];
-end;
-
-function TArticulosParaClienteBusinessProcessorRules.GetREFERENCIA_FABRIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_FABR]);
-end;
-
-function TArticulosParaClienteBusinessProcessorRules.GetOldREFERENCIA_FABRValue: String;
-begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteREFERENCIA_FABR];
-end;
-
-function TArticulosParaClienteBusinessProcessorRules.GetOldREFERENCIA_FABRIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteREFERENCIA_FABR]);
-end;
-
-procedure TArticulosParaClienteBusinessProcessorRules.SetREFERENCIA_FABRValue(const aValue: String);
-begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_FABR] := aValue;
-end;
-
-procedure TArticulosParaClienteBusinessProcessorRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_FABR] := Null;
-end;
-
 function TArticulosParaClienteBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUNIDAD_MEDIDA];
@@ -1600,7 +1538,7 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN] := Null;
 end;
 
-function TArticulosParaClienteBusinessProcessorRules.GetCOMISIONABLEValue: SmallInt;
+function TArticulosParaClienteBusinessProcessorRules.GetCOMISIONABLEValue: Integer;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE];
 end;
@@ -1610,7 +1548,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE]);
 end;
 
-function TArticulosParaClienteBusinessProcessorRules.GetOldCOMISIONABLEValue: SmallInt;
+function TArticulosParaClienteBusinessProcessorRules.GetOldCOMISIONABLEValue: Integer;
 begin
   result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteCOMISIONABLE];
 end;
@@ -1620,7 +1558,7 @@ begin
   result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteCOMISIONABLE]);
 end;
 
-procedure TArticulosParaClienteBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: SmallInt);
+procedure TArticulosParaClienteBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: Integer);
 begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE] := aValue;
 end;
@@ -2003,6 +1941,68 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO] := Null;
 end;
 
+function TArticulosParaClienteBusinessProcessorRules.GetFABRICANTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFABRICANTE];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetFABRICANTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFABRICANTE]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldFABRICANTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFABRICANTE];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldFABRICANTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFABRICANTE]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetFABRICANTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFABRICANTE] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetFABRICANTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFABRICANTE] := Null;
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetREFERENCIA_FABRValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_FABR];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetREFERENCIA_FABRIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_FABR]);
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldREFERENCIA_FABRValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteREFERENCIA_FABR];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldREFERENCIA_FABRIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteREFERENCIA_FABR]);
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetREFERENCIA_FABRValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_FABR] := aValue;
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetREFERENCIA_FABRIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_FABR] := Null;
+end;
+
 
 initialization
   RegisterBusinessProcessorRules(RID_ArticulosDelta, TArticulosBusinessProcessorRules);

Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm

@@ -11,11 +11,6 @@ object srvArticulos: TsrvArticulos
   BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
   Height = 229
   Width = 349
-  object Diagrams: TDADiagrams
-    Left = 150
-    Top = 74
-    DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
-  end
   object DataDictionary: TDADataDictionary
     Fields = <
       item
@@ -148,7 +143,6 @@ object srvArticulos: TsrvArticulos
   object schArticulos: TDASchema
     ConnectionManager = dmServer.ConnectionManager
     DataDictionary = DataDictionary
-    Diagrams = Diagrams
     Datasets = <
       item
         Params = <>
@@ -382,22 +376,21 @@ object srvArticulos: TsrvArticulos
         Statements = <
           item
             Connection = 'IBX'
-            TargetTable = 'ARTICULOS'
+            TargetTable = 'V_ARTICULOS'
             SQL = 
-              'SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFER' +
+              'SELECT'#10'    V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.R' +
-              'ENCIA, V_ARTICULOS.DESCRIPCION,'#10'       V_ARTICULOS.FABRICANTE,'#10' ' +
+              'EFERENCIA,'#10#9'V_ARTICULOS.DESCRIPCION, V_ARTICULOS.UNIDAD_MEDIDA,'#10 +
-              '      V_ARTICULOS.REFERENCIA_FABR,'#10'       V_ARTICULOS.UNIDAD_MED' +
+              '    V_ARTICULOS.FAMILIA, V_ARTICULOS.IMAGEN, V_ARTICULOS.COMISIO' +
-              'IDA,'#10'       V_ARTICULOS.FAMILIA, V_ARTICULOS.IMAGEN, V_ARTICULOS' +
+              'NABLE,'#10#9'V_ARTICULOS.FECHA_ALTA, V_ARTICULOS.FECHA_MODIFICACION,'#10 +
-              '.COMISIONABLE, V_ARTICULOS.FECHA_ALTA,'#10'       V_ARTICULOS.FECHA_' +
+              '    V_ARTICULOS.USUARIO, V_ARTICULOS.REFERENCIA_PROV, V_ARTICULO' +
-              'MODIFICACION, V_ARTICULOS.USUARIO,'#10'       V_ARTICULOS.REFERENCIA' +
+              'S.PRECIO_COSTE,'#10#9'V_ARTICULOS.PRECIO_PORTE, CLIENTES_DTOS_PROVEED' +
-              '_PROV,'#10'       V_ARTICULOS.PRECIO_COSTE,'#10'       V_ARTICULOS.PRECI' +
+              'ORES.DESCUENTO,'#10#9'V_ARTICULOS.PRECIO_NETO, V_ARTICULOS.INVENTARIA' +
-              'O_PORTE,'#10'       CLIENTES_DTOS_PROVEEDORES.DESCUENTO,'#10'       V_AR' +
+              'BLE,'#10#9'V_ARTICULOS.ID_PROVEEDOR, V_ARTICULOS.NOMBRE_PROVEEDOR,'#10#9'V' +
-              'TICULOS.PRECIO_NETO,'#10'       V_ARTICULOS.INVENTARIABLE,'#10'       V_' +
+              '_ARTICULOS.ELIMINADO, V_ARTICULOS.FABRICANTE, V_ARTICULOS.REFERE' +
-              'ARTICULOS.ID_PROVEEDOR,'#10'       V_ARTICULOS.NOMBRE_PROVEEDOR,'#10'   ' +
+              'NCIA_FABR'#10'  FROM'#10'    V_ARTICULOS'#10'  LEFT OUTER JOIN CLIENTES_DTOS' +
-              '    V_ARTICULOS.ELIMINADO'#10'FROM V_ARTICULOS'#10'LEFT OUTER JOIN CLIEN' +
+              '_PROVEEDORES'#10#9'ON ((CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR = V_AR' +
-              'TES_DTOS_PROVEEDORES'#10'ON ((CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR' +
+              'TICULOS.ID_PROVEEDOR)'#10#9#9'AND (CLIENTES_DTOS_PROVEEDORES.ID_CLIENT' +
-              ' = V_ARTICULOS.ID_PROVEEDOR)'#10'AND (CLIENTES_DTOS_PROVEEDORES.ID_C' +
+              'E = :ID_CLIENTE))'#10'  WHERE {Where}'#10
-              'LIENTE = :ID_CLIENTE))'#10'where {where}'#10
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -470,8 +463,7 @@ object srvArticulos: TsrvArticulos
               end
               item
                 DatasetField = 'NOMBRE_PROVEEDOR'
-                TableField = '<unknown>'
+                TableField = 'NOMBRE_PROVEEDOR'
-                SQLOrigin = 'NOMBRE_PROVEEDOR'
               end
               item
                 DatasetField = 'ELIMINADO'
@@ -491,105 +483,131 @@ object srvArticulos: TsrvArticulos
               end>
           end>
         Name = 'ArticulosParaCliente'
+        Description = 
+          #161#161#161#161' Esta tabla debe tener los mismos campos y orden de campos q' +
+          'ue '#39'Art'#237'culos'#39' !!!!'
         Fields = <
           item
             Name = 'ID'
-            DataType = datInteger
+            DataType = datAutoInc
+            GeneratorName = 'GEN_ARTICULOS_ID'
+            ServerAutoRefresh = True
+            DictionaryEntry = 'Articulos_ID'
             InPrimaryKey = True
           end
           item
             Name = 'ID_EMPRESA'
             DataType = datInteger
+            DictionaryEntry = 'Articulos_ID_EMPRESA'
           end
           item
             Name = 'REFERENCIA'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'Articulos_REFERENCIA'
           end
           item
             Name = 'DESCRIPCION'
             DataType = datString
             Size = 255
-          end
+            DictionaryEntry = 'Articulos_DESCRIPCION'
-          item
-            Name = 'FABRICANTE'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'REFERENCIA_FABR'
-            DataType = datString
-            Size = 255
           end
           item
             Name = 'UNIDAD_MEDIDA'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'Articulos_UNIDAD_MEDIDA'
           end
           item
             Name = 'FAMILIA'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'Articulos_FAMILIA'
           end
           item
             Name = 'IMAGEN'
             DataType = datBlob
+            DictionaryEntry = 'Articulos_IMAGEN'
           end
           item
             Name = 'COMISIONABLE'
-            DataType = datSmallInt
+            DataType = datInteger
+            DictionaryEntry = 'Articulos_COMISIONABLE'
           end
           item
             Name = 'FECHA_ALTA'
             DataType = datDateTime
+            DictionaryEntry = 'Articulos_FECHA_ALTA'
           end
           item
             Name = 'FECHA_MODIFICACION'
             DataType = datDateTime
+            DictionaryEntry = 'Articulos_FECHA_MODIFICACION'
           end
           item
             Name = 'USUARIO'
             DataType = datString
-            Size = 30
+            Size = 20
+            DictionaryEntry = 'Articulos_USUARIO'
           end
           item
             Name = 'REFERENCIA_PROV'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'Articulos_REFERENCIA_PROVEEDOR'
           end
           item
             Name = 'PRECIO_COSTE'
             DataType = datCurrency
+            DictionaryEntry = 'Articulos_PRECIO_COSTE'
           end
           item
             Name = 'PRECIO_PORTE'
             DataType = datCurrency
+            DictionaryEntry = 'Articulos_PRECIO_PORTE'
           end
           item
             Name = 'DESCUENTO'
             DataType = datFloat
+            DictionaryEntry = 'Articulos_DESCUENTO'
           end
           item
             Name = 'PRECIO_NETO'
             DataType = datCurrency
+            DictionaryEntry = 'Articulos_PRECIO_NETO'
           end
           item
             Name = 'INVENTARIABLE'
             DataType = datSmallInt
+            DictionaryEntry = 'Articulos_INVENTARIABLE'
           end
           item
             Name = 'ID_PROVEEDOR'
             DataType = datInteger
+            DictionaryEntry = 'Articulos_ID_PROVEEDOR'
           end
           item
             Name = 'NOMBRE_PROVEEDOR'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'Articulos_NOMBRE_PROVEEDOR'
           end
           item
             Name = 'ELIMINADO'
             DataType = datSmallInt
-            DisplayLabel = 'Eliminado'
+            DictionaryEntry = 'Articulos_ELIMINADO'
+          end
+          item
+            Name = 'FABRICANTE'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Articulos_FABRICANTE'
+          end
+          item
+            Name = 'REFERENCIA_FABR'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Articulos_REFERENCIA_FABR'
           end>
       end>
     JoinDataTables = <>

Source/Modulos/Articulos/Servidor/srvArticulos_Impl.pas

@@ -21,7 +21,6 @@ uses
 type
   { TsrvArticulos }
   TsrvArticulos = class(TDataAbstractService, IsrvArticulos)
-    Diagrams: TDADiagrams;
     bpArticulos: TDABusinessProcessor;
     Bin2DataStreamer: TDABin2DataStreamer;
     schArticulos: TDASchema;