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
This commit is contained in:
parent
cde55cdfcd
commit
936abc3407
@ -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;
|
||||
|
||||
|
||||
@ -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
|
||||
|
||||
@ -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>
|
||||
|
||||
Binary file not shown.
@ -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);
|
||||
|
||||
@ -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);
|
||||
|
||||
@ -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' +
|
||||
'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 = '<unknown>'
|
||||
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 = <>
|
||||
|
||||
@ -21,7 +21,6 @@ uses
|
||||
type
|
||||
{ TsrvArticulos }
|
||||
TsrvArticulos = class(TDataAbstractService, IsrvArticulos)
|
||||
Diagrams: TDADiagrams;
|
||||
bpArticulos: TDABusinessProcessor;
|
||||
Bin2DataStreamer: TDABin2DataStreamer;
|
||||
schArticulos: TDASchema;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user