diff --git a/Source/Modulos/Articulos/Controller/uArticulosController.pas b/Source/Modulos/Articulos/Controller/uArticulosController.pas
index 09fd67a8..d5bcedc4 100644
--- a/Source/Modulos/Articulos/Controller/uArticulosController.pas
+++ b/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;
diff --git a/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm b/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm
index 58a4ef60..5ef9b732 100644
--- a/Source/Modulos/Articulos/Data/uDataModuleArticulos.dfm
+++ b/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
- item
- Name = 'FABRICANTE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'REFERENCIA_FABR'
- DataType = datString
- Size = 255
+ DisplayLabel = 'Descripci'#243'n'
+ DictionaryEntry = 'Articulos_DESCRIPCION'
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
diff --git a/Source/Modulos/Articulos/Model/Articulos_model.dproj b/Source/Modulos/Articulos/Model/Articulos_model.dproj
index 640b74ad..dd7ca438 100644
--- a/Source/Modulos/Articulos/Model/Articulos_model.dproj
+++ b/Source/Modulos/Articulos/Model/Articulos_model.dproj
@@ -47,7 +47,7 @@
Delphi.Personality
Package
-FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Articulos_model.dpk
+FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Articulos_model.dpk
diff --git a/Source/Modulos/Articulos/Model/Articulos_model.res b/Source/Modulos/Articulos/Model/Articulos_model.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Articulos/Model/Articulos_model.res and b/Source/Modulos/Articulos/Model/Articulos_model.res differ
diff --git a/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas b/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
index 801176ec..0b531f9e 100644
--- a/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
+++ b/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_ArticulosParaCliente = '{6EAEF27D-F41C-4537-9818-45A931D61E50}';
+ RID_Articulos = '{D722C372-EBBB-4076-B05F-7D3D558AD018}';
+ 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_ArticulosParaClienteREFERENCIA_FABR = 5;
- idx_ArticulosParaClienteUNIDAD_MEDIDA = 6;
- idx_ArticulosParaClienteFAMILIA = 7;
- idx_ArticulosParaClienteIMAGEN = 8;
- idx_ArticulosParaClienteCOMISIONABLE = 9;
- idx_ArticulosParaClienteFECHA_ALTA = 10;
- idx_ArticulosParaClienteFECHA_MODIFICACION = 11;
- idx_ArticulosParaClienteUSUARIO = 12;
- idx_ArticulosParaClienteREFERENCIA_PROV = 13;
- idx_ArticulosParaClientePRECIO_COSTE = 14;
- idx_ArticulosParaClientePRECIO_PORTE = 15;
- idx_ArticulosParaClienteDESCUENTO = 16;
- idx_ArticulosParaClientePRECIO_NETO = 17;
- idx_ArticulosParaClienteINVENTARIABLE = 18;
- idx_ArticulosParaClienteID_PROVEEDOR = 19;
- idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 20;
- idx_ArticulosParaClienteELIMINADO = 21;
+ idx_ArticulosParaClienteUNIDAD_MEDIDA = 4;
+ idx_ArticulosParaClienteFAMILIA = 5;
+ idx_ArticulosParaClienteIMAGEN = 6;
+ idx_ArticulosParaClienteCOMISIONABLE = 7;
+ idx_ArticulosParaClienteFECHA_ALTA = 8;
+ idx_ArticulosParaClienteFECHA_MODIFICACION = 9;
+ idx_ArticulosParaClienteUSUARIO = 10;
+ idx_ArticulosParaClienteREFERENCIA_PROV = 11;
+ idx_ArticulosParaClientePRECIO_COSTE = 12;
+ idx_ArticulosParaClientePRECIO_PORTE = 13;
+ idx_ArticulosParaClienteDESCUENTO = 14;
+ idx_ArticulosParaClientePRECIO_NETO = 15;
+ idx_ArticulosParaClienteINVENTARIABLE = 16;
+ idx_ArticulosParaClienteID_PROVEEDOR = 17;
+ idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 18;
+ idx_ArticulosParaClienteELIMINADO = 19;
+ idx_ArticulosParaClienteFABRICANTE = 20;
+ 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;
- procedure SetCOMISIONABLEValue(const aValue: SmallInt);
+ function GetCOMISIONABLEValue: Integer;
+ 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;
- procedure SetCOMISIONABLEValue(const aValue: SmallInt); virtual;
+ function GetCOMISIONABLEValue: Integer; 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);
diff --git a/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas b/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas
index aabcc217..a2a212c7 100644
--- a/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas
+++ b/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_ArticulosParaClienteDelta = '{56F158DA-2821-4DC3-AF59-B88CD666DD5E}';
+ RID_ArticulosDelta = '{2FE9AA89-2E24-415F-BDC4-C0DB800D978E}';
+ 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);
diff --git a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm b/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
index 7443676f..bb662c5f 100644
--- a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
+++ b/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 = ''#13#10''#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' +
- 'ENCIA, V_ARTICULOS.DESCRIPCION,'#10' V_ARTICULOS.FABRICANTE,'#10' ' +
- ' V_ARTICULOS.REFERENCIA_FABR,'#10' V_ARTICULOS.UNIDAD_MED' +
- 'IDA,'#10' V_ARTICULOS.FAMILIA, V_ARTICULOS.IMAGEN, V_ARTICULOS' +
- '.COMISIONABLE, V_ARTICULOS.FECHA_ALTA,'#10' V_ARTICULOS.FECHA_' +
- 'MODIFICACION, V_ARTICULOS.USUARIO,'#10' V_ARTICULOS.REFERENCIA' +
- '_PROV,'#10' V_ARTICULOS.PRECIO_COSTE,'#10' V_ARTICULOS.PRECI' +
- 'O_PORTE,'#10' CLIENTES_DTOS_PROVEEDORES.DESCUENTO,'#10' V_AR' +
- 'TICULOS.PRECIO_NETO,'#10' V_ARTICULOS.INVENTARIABLE,'#10' V_' +
- 'ARTICULOS.ID_PROVEEDOR,'#10' V_ARTICULOS.NOMBRE_PROVEEDOR,'#10' ' +
- ' V_ARTICULOS.ELIMINADO'#10'FROM V_ARTICULOS'#10'LEFT OUTER JOIN CLIEN' +
- 'TES_DTOS_PROVEEDORES'#10'ON ((CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR' +
- ' = V_ARTICULOS.ID_PROVEEDOR)'#10'AND (CLIENTES_DTOS_PROVEEDORES.ID_C' +
- 'LIENTE = :ID_CLIENTE))'#10'where {where}'#10
+ 'SELECT'#10' V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.R' +
+ 'EFERENCIA,'#10#9'V_ARTICULOS.DESCRIPCION, V_ARTICULOS.UNIDAD_MEDIDA,'#10 +
+ ' V_ARTICULOS.FAMILIA, V_ARTICULOS.IMAGEN, V_ARTICULOS.COMISIO' +
+ 'NABLE,'#10#9'V_ARTICULOS.FECHA_ALTA, V_ARTICULOS.FECHA_MODIFICACION,'#10 +
+ ' V_ARTICULOS.USUARIO, V_ARTICULOS.REFERENCIA_PROV, V_ARTICULO' +
+ 'S.PRECIO_COSTE,'#10#9'V_ARTICULOS.PRECIO_PORTE, CLIENTES_DTOS_PROVEED' +
+ 'ORES.DESCUENTO,'#10#9'V_ARTICULOS.PRECIO_NETO, V_ARTICULOS.INVENTARIA' +
+ 'BLE,'#10#9'V_ARTICULOS.ID_PROVEEDOR, V_ARTICULOS.NOMBRE_PROVEEDOR,'#10#9'V' +
+ '_ARTICULOS.ELIMINADO, V_ARTICULOS.FABRICANTE, V_ARTICULOS.REFERE' +
+ 'NCIA_FABR'#10' FROM'#10' V_ARTICULOS'#10' LEFT OUTER JOIN CLIENTES_DTOS' +
+ '_PROVEEDORES'#10#9'ON ((CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR = V_AR' +
+ 'TICULOS.ID_PROVEEDOR)'#10#9#9'AND (CLIENTES_DTOS_PROVEEDORES.ID_CLIENT' +
+ 'E = :ID_CLIENTE))'#10' WHERE {Where}'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -470,8 +463,7 @@ object srvArticulos: TsrvArticulos
end
item
DatasetField = 'NOMBRE_PROVEEDOR'
- TableField = ''
- SQLOrigin = 'NOMBRE_PROVEEDOR'
+ TableField = '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
- item
- Name = 'FABRICANTE'
- DataType = datString
- Size = 255
- end
- item
- Name = 'REFERENCIA_FABR'
- DataType = datString
- Size = 255
+ DictionaryEntry = 'Articulos_DESCRIPCION'
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 = <>
diff --git a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.pas b/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.pas
index c59e56db..bd3b2bef 100644
--- a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.pas
+++ b/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;