Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
081bfba5ff
AbetoDesign_FactuGES2/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas

3688 lines
165 KiB
ObjectPascal
Raw Normal View History

Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
unit schArticulosServer_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schArticulosClient_Intf;
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 }
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
RID_Articulos_ProveedoresDelta = '{6A153FBC-7E26-4510-9EE0-6C3141E4CC0B}';
RID_ArticulosDelta = '{8E6E3A79-C705-4C94-B2BB-3ED599BD814E}';
RID_ArticulosParaCompraDelta = '{776187FA-9868-4D23-935F-1F0AFA404EE8}';
RID_ArticulosParaClienteDelta = '{C53985C4-A448-401B-BDD5-18EBA6D738F5}';
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
type
Primer acercamiento a pedidos de proveedor y logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@152 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-12-28 16:54:17 +00:00
{ IArticulos_ProveedoresDelta }
IArticulos_ProveedoresDelta = interface(IArticulos_Proveedores)
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
['{6A153FBC-7E26-4510-9EE0-6C3141E4CC0B}']
Primer acercamiento a pedidos de proveedor y logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@152 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-12-28 16:54:17 +00:00
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ARTICULOValue : Integer;
function GetOldID_PROVEEDORValue : Integer;
function GetOldREFERENCIA_PROVValue : String;
function GetOldPRECIO_COSTEValue : Currency;
function GetOldDESCUENTOValue : Float;
function GetOldPRECIO_NETOValue : Currency;
function GetOldPRECIO_PORTEValue : Currency;
function GetOldPRECIO_PVP_VENTAValue : Currency;
function GetOldPRECIO_PVP_TOTALValue : Currency;
function GetOldFECHA_ACTUALIZACIONValue : DateTime;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
property OldPRECIO_PVP_VENTA : Currency read GetOldPRECIO_PVP_VENTAValue;
property OldPRECIO_PVP_TOTAL : Currency read GetOldPRECIO_PVP_TOTALValue;
property OldFECHA_ACTUALIZACION : DateTime read GetOldFECHA_ACTUALIZACIONValue;
end;
{ TArticulos_ProveedoresBusinessProcessorRules }
TArticulos_ProveedoresBusinessProcessorRules = class(TDABusinessProcessorRules, IArticulos_Proveedores, IArticulos_ProveedoresDelta)
private
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_ARTICULOValue: Integer; virtual;
function GetID_ARTICULOIsNull: Boolean; virtual;
function GetOldID_ARTICULOValue: Integer; virtual;
function GetOldID_ARTICULOIsNull: Boolean; virtual;
procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual;
function GetOldID_PROVEEDORValue: Integer; virtual;
function GetOldID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVValue: String; virtual;
function GetREFERENCIA_PROVIsNull: Boolean; virtual;
function GetOldREFERENCIA_PROVValue: String; virtual;
function GetOldREFERENCIA_PROVIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
function GetPRECIO_COSTEValue: Currency; virtual;
function GetPRECIO_COSTEIsNull: Boolean; virtual;
function GetOldPRECIO_COSTEValue: Currency; virtual;
function GetOldPRECIO_COSTEIsNull: Boolean; virtual;
procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
function GetOldDESCUENTOValue: Float; virtual;
function GetOldDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_NETOValue: Currency; virtual;
function GetPRECIO_NETOIsNull: Boolean; virtual;
function GetOldPRECIO_NETOValue: Currency; virtual;
function GetOldPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PORTEValue: Currency; virtual;
function GetPRECIO_PORTEIsNull: Boolean; virtual;
function GetOldPRECIO_PORTEValue: Currency; virtual;
function GetOldPRECIO_PORTEIsNull: Boolean; virtual;
procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual;
procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVP_VENTAValue: Currency; virtual;
function GetPRECIO_PVP_VENTAIsNull: Boolean; virtual;
function GetOldPRECIO_PVP_VENTAValue: Currency; virtual;
function GetOldPRECIO_PVP_VENTAIsNull: Boolean; virtual;
procedure SetPRECIO_PVP_VENTAValue(const aValue: Currency); virtual;
procedure SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PVP_TOTALValue: Currency; virtual;
function GetPRECIO_PVP_TOTALIsNull: Boolean; virtual;
function GetOldPRECIO_PVP_TOTALValue: Currency; virtual;
function GetOldPRECIO_PVP_TOTALIsNull: Boolean; virtual;
procedure SetPRECIO_PVP_TOTALValue(const aValue: Currency); virtual;
procedure SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean); virtual;
function GetFECHA_ACTUALIZACIONValue: DateTime; virtual;
function GetFECHA_ACTUALIZACIONIsNull: Boolean; virtual;
function GetOldFECHA_ACTUALIZACIONValue: DateTime; virtual;
function GetOldFECHA_ACTUALIZACIONIsNull: Boolean; virtual;
procedure SetFECHA_ACTUALIZACIONValue(const aValue: DateTime); virtual;
procedure SetFECHA_ACTUALIZACIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property REFERENCIA_PROVIsNull : Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property OldREFERENCIA_PROVIsNull : Boolean read GetOldREFERENCIA_PROVIsNull;
property PRECIO_COSTE : Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull : Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
property OldPRECIO_COSTEIsNull : Boolean read GetOldPRECIO_COSTEIsNull;
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
property PRECIO_NETO : Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull;
property PRECIO_PORTE : Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
property PRECIO_PORTEIsNull : Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
property OldPRECIO_PORTEIsNull : Boolean read GetOldPRECIO_PORTEIsNull;
property PRECIO_PVP_VENTA : Currency read GetPRECIO_PVP_VENTAValue write SetPRECIO_PVP_VENTAValue;
property PRECIO_PVP_VENTAIsNull : Boolean read GetPRECIO_PVP_VENTAIsNull write SetPRECIO_PVP_VENTAIsNull;
property OldPRECIO_PVP_VENTA : Currency read GetOldPRECIO_PVP_VENTAValue;
property OldPRECIO_PVP_VENTAIsNull : Boolean read GetOldPRECIO_PVP_VENTAIsNull;
property PRECIO_PVP_TOTAL : Currency read GetPRECIO_PVP_TOTALValue write SetPRECIO_PVP_TOTALValue;
property PRECIO_PVP_TOTALIsNull : Boolean read GetPRECIO_PVP_TOTALIsNull write SetPRECIO_PVP_TOTALIsNull;
property OldPRECIO_PVP_TOTAL : Currency read GetOldPRECIO_PVP_TOTALValue;
property OldPRECIO_PVP_TOTALIsNull : Boolean read GetOldPRECIO_PVP_TOTALIsNull;
property FECHA_ACTUALIZACION : DateTime read GetFECHA_ACTUALIZACIONValue write SetFECHA_ACTUALIZACIONValue;
property FECHA_ACTUALIZACIONIsNull : Boolean read GetFECHA_ACTUALIZACIONIsNull write SetFECHA_ACTUALIZACIONIsNull;
property OldFECHA_ACTUALIZACION : DateTime read GetOldFECHA_ACTUALIZACIONValue;
property OldFECHA_ACTUALIZACIONIsNull : Boolean read GetOldFECHA_ACTUALIZACIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
{ IArticulosDelta }
IArticulosDelta = interface(IArticulos)
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
['{8E6E3A79-C705-4C94-B2BB-3ED599BD814E}']
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldDESCRIPCIONValue : String;
function GetOldFAMILIAValue : String;
function GetOldIMAGENValue : IROStream;
function GetOldCOMISIONABLEValue : Integer;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldREFERENCIA_PROVValue : String;
function GetOldPRECIO_COSTEValue : Currency;
function GetOldPRECIO_PORTEValue : Currency;
function GetOldDESCUENTOValue : Float;
function GetOldPRECIO_NETOValue : Currency;
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
function GetOldPRECIO_PVPValue : Currency;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
function GetOldINVENTARIABLEValue : SmallInt;
function GetOldID_PROVEEDORValue : Integer;
function GetOldNOMBRE_PROVEEDORValue : String;
function GetOldELIMINADOValue : SmallInt;
Tarifas git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@147 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-06 10:08:12 +00:00
function GetOldTARIFAValue : String;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function GetOldFABRICANTEValue : String;
function GetOldREFERENCIA_FABValue : String;
function GetOldSTOCK_MINValue : Integer;
function GetOldUNIDAD_MEDIDAValue : String;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldFAMILIA : String read GetOldFAMILIAValue;
property OldIMAGEN : IROStream read GetOldIMAGENValue;
property OldCOMISIONABLE : Integer read GetOldCOMISIONABLEValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
Tarifas git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@147 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-06 10:08:12 +00:00
property OldTARIFA : String read GetOldTARIFAValue;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
property OldFABRICANTE : String read GetOldFABRICANTEValue;
property OldREFERENCIA_FAB : String read GetOldREFERENCIA_FABValue;
property OldSTOCK_MIN : Integer read GetOldSTOCK_MINValue;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
{ TArticulosBusinessProcessorRules }
TArticulosBusinessProcessorRules = class(TDABusinessProcessorRules, IArticulos, IArticulosDelta)
private
f_IMAGEN: IROStream;
procedure IMAGEN_OnChange(Sender: Tobject);
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetFAMILIAValue: String; virtual;
function GetFAMILIAIsNull: Boolean; virtual;
function GetOldFAMILIAValue: String; virtual;
function GetOldFAMILIAIsNull: Boolean; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
function GetIMAGENValue: IROStream; virtual;
function GetIMAGENIsNull: Boolean; virtual;
function GetOldIMAGENValue: IROStream; virtual;
function GetOldIMAGENIsNull: Boolean; virtual;
procedure SetIMAGENIsNull(const aValue: Boolean); virtual;
function GetCOMISIONABLEValue: Integer; virtual;
function GetCOMISIONABLEIsNull: Boolean; virtual;
function GetOldCOMISIONABLEValue: Integer; virtual;
function GetOldCOMISIONABLEIsNull: Boolean; virtual;
procedure SetCOMISIONABLEValue(const aValue: Integer); virtual;
procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual;
function GetOldFECHA_ALTAIsNull: Boolean; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
function GetUSUARIOIsNull: Boolean; virtual;
function GetOldUSUARIOValue: String; virtual;
function GetOldUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVValue: String; virtual;
function GetREFERENCIA_PROVIsNull: Boolean; virtual;
function GetOldREFERENCIA_PROVValue: String; virtual;
function GetOldREFERENCIA_PROVIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
function GetPRECIO_COSTEValue: Currency; virtual;
function GetPRECIO_COSTEIsNull: Boolean; virtual;
function GetOldPRECIO_COSTEValue: Currency; virtual;
function GetOldPRECIO_COSTEIsNull: Boolean; virtual;
procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PORTEValue: Currency; virtual;
function GetPRECIO_PORTEIsNull: Boolean; virtual;
function GetOldPRECIO_PORTEValue: Currency; virtual;
function GetOldPRECIO_PORTEIsNull: Boolean; virtual;
procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual;
procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
function GetOldDESCUENTOValue: Float; virtual;
function GetOldDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_NETOValue: Currency; virtual;
function GetPRECIO_NETOIsNull: Boolean; virtual;
function GetOldPRECIO_NETOValue: Currency; virtual;
function GetOldPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
function GetPRECIO_PVPValue: Currency; virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual;
function GetOldPRECIO_PVPValue: Currency; virtual;
function GetOldPRECIO_PVPIsNull: Boolean; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
function GetINVENTARIABLEValue: SmallInt; virtual;
function GetINVENTARIABLEIsNull: Boolean; virtual;
function GetOldINVENTARIABLEValue: SmallInt; virtual;
function GetOldINVENTARIABLEIsNull: Boolean; virtual;
procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual;
procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual;
function GetOldID_PROVEEDORValue: Integer; virtual;
function GetOldID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_PROVEEDORValue: String; virtual;
function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
function GetOldNOMBRE_PROVEEDORValue: String; virtual;
function GetOldNOMBRE_PROVEEDORIsNull: Boolean; virtual;
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetELIMINADOValue: SmallInt; virtual;
function GetELIMINADOIsNull: Boolean; virtual;
function GetOldELIMINADOValue: SmallInt; virtual;
function GetOldELIMINADOIsNull: Boolean; virtual;
procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
Tarifas git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@147 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-06 10:08:12 +00:00
function GetTARIFAValue: String; virtual;
function GetTARIFAIsNull: Boolean; virtual;
function GetOldTARIFAValue: String; virtual;
function GetOldTARIFAIsNull: Boolean; virtual;
procedure SetTARIFAValue(const aValue: String); virtual;
procedure SetTARIFAIsNull(const aValue: Boolean); virtual;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
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_FABValue: String; virtual;
function GetREFERENCIA_FABIsNull: Boolean; virtual;
function GetOldREFERENCIA_FABValue: String; virtual;
function GetOldREFERENCIA_FABIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABValue(const aValue: String); virtual;
procedure SetREFERENCIA_FABIsNull(const aValue: Boolean); virtual;
function GetSTOCK_MINValue: Integer; virtual;
function GetSTOCK_MINIsNull: Boolean; virtual;
function GetOldSTOCK_MINValue: Integer; virtual;
function GetOldSTOCK_MINIsNull: Boolean; virtual;
procedure SetSTOCK_MINValue(const aValue: Integer); virtual;
procedure SetSTOCK_MINIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
function GetOldUNIDAD_MEDIDAValue: String; virtual;
function GetOldUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property OldFAMILIA : String read GetOldFAMILIAValue;
property OldFAMILIAIsNull : Boolean read GetOldFAMILIAIsNull;
property IMAGEN : IROStream read GetIMAGENValue;
property IMAGENIsNull : Boolean read GetIMAGENIsNull write SetIMAGENIsNull;
property OldIMAGEN : IROStream read GetOldIMAGENValue;
property OldIMAGENIsNull : Boolean read GetOldIMAGENIsNull;
property COMISIONABLE : Integer read GetCOMISIONABLEValue write SetCOMISIONABLEValue;
property COMISIONABLEIsNull : Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
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;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property REFERENCIA_PROVIsNull : Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property OldREFERENCIA_PROVIsNull : Boolean read GetOldREFERENCIA_PROVIsNull;
property PRECIO_COSTE : Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull : Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
property OldPRECIO_COSTEIsNull : Boolean read GetOldPRECIO_COSTEIsNull;
property PRECIO_PORTE : Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
property PRECIO_PORTEIsNull : Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
property OldPRECIO_PORTEIsNull : Boolean read GetOldPRECIO_PORTEIsNull;
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
property PRECIO_NETO : Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull;
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
property PRECIO_PVP : Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull : Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue;
property OldPRECIO_PVPIsNull : Boolean read GetOldPRECIO_PVPIsNull;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
property INVENTARIABLE : SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull : Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue;
property OldINVENTARIABLEIsNull : Boolean read GetOldINVENTARIABLEIsNull;
property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull : Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldNOMBRE_PROVEEDORIsNull : Boolean read GetOldNOMBRE_PROVEEDORIsNull;
property ELIMINADO : SmallInt read GetELIMINADOValue write SetELIMINADOValue;
property ELIMINADOIsNull : Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
property OldELIMINADOIsNull : Boolean read GetOldELIMINADOIsNull;
Tarifas git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@147 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-06 10:08:12 +00:00
property TARIFA : String read GetTARIFAValue write SetTARIFAValue;
property TARIFAIsNull : Boolean read GetTARIFAIsNull write SetTARIFAIsNull;
property OldTARIFA : String read GetOldTARIFAValue;
property OldTARIFAIsNull : Boolean read GetOldTARIFAIsNull;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
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_FAB : String read GetREFERENCIA_FABValue write SetREFERENCIA_FABValue;
property REFERENCIA_FABIsNull : Boolean read GetREFERENCIA_FABIsNull write SetREFERENCIA_FABIsNull;
property OldREFERENCIA_FAB : String read GetOldREFERENCIA_FABValue;
property OldREFERENCIA_FABIsNull : Boolean read GetOldREFERENCIA_FABIsNull;
property STOCK_MIN : Integer read GetSTOCK_MINValue write SetSTOCK_MINValue;
property STOCK_MINIsNull : Boolean read GetSTOCK_MINIsNull write SetSTOCK_MINIsNull;
property OldSTOCK_MIN : Integer read GetOldSTOCK_MINValue;
property OldSTOCK_MINIsNull : Boolean read GetOldSTOCK_MINIsNull;
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;
property OldUNIDAD_MEDIDAIsNull : Boolean read GetOldUNIDAD_MEDIDAIsNull;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
{ IArticulosParaCompraDelta }
IArticulosParaCompraDelta = interface(IArticulosParaCompra)
['{776187FA-9868-4D23-935F-1F0AFA404EE8}']
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldDESCRIPCIONValue : String;
function GetOldFAMILIAValue : String;
function GetOldIMAGENValue : IROStream;
function GetOldCOMISIONABLEValue : SmallInt;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldREFERENCIA_PROVValue : String;
function GetOldPRECIO_COSTEValue : Currency;
function GetOldPRECIO_PORTEValue : Currency;
function GetOldDESCUENTOValue : Float;
function GetOldPRECIO_NETOValue : Currency;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function GetOldPRECIO_PVPValue : Currency;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
function GetOldINVENTARIABLEValue : SmallInt;
function GetOldID_PROVEEDORValue : Integer;
function GetOldNOMBRE_PROVEEDORValue : String;
function GetOldELIMINADOValue : SmallInt;
Filtro por tarifas en articulos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@148 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-15 09:26:45 +00:00
function GetOldTARIFAValue : String;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function GetOldFABRICANTEValue : String;
function GetOldREFERENCIA_FABValue : String;
function GetOldSTOCK_MINValue : Integer;
function GetOldUNIDAD_MEDIDAValue : String;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldFAMILIA : String read GetOldFAMILIAValue;
property OldIMAGEN : IROStream read GetOldIMAGENValue;
property OldCOMISIONABLE : SmallInt read GetOldCOMISIONABLEValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
Filtro por tarifas en articulos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@148 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-15 09:26:45 +00:00
property OldTARIFA : String read GetOldTARIFAValue;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
property OldFABRICANTE : String read GetOldFABRICANTEValue;
property OldREFERENCIA_FAB : String read GetOldREFERENCIA_FABValue;
property OldSTOCK_MIN : Integer read GetOldSTOCK_MINValue;
property OldUNIDAD_MEDIDA : String read GetOldUNIDAD_MEDIDAValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
{ TArticulosParaCompraBusinessProcessorRules }
TArticulosParaCompraBusinessProcessorRules = class(TDABusinessProcessorRules, IArticulosParaCompra, IArticulosParaCompraDelta)
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
private
f_IMAGEN: IROStream;
procedure IMAGEN_OnChange(Sender: Tobject);
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetFAMILIAValue: String; virtual;
function GetFAMILIAIsNull: Boolean; virtual;
function GetOldFAMILIAValue: String; virtual;
function GetOldFAMILIAIsNull: Boolean; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
function GetIMAGENValue: IROStream; virtual;
function GetIMAGENIsNull: Boolean; virtual;
function GetOldIMAGENValue: IROStream; virtual;
function GetOldIMAGENIsNull: Boolean; virtual;
procedure SetIMAGENIsNull(const aValue: Boolean); virtual;
function GetCOMISIONABLEValue: SmallInt; virtual;
function GetCOMISIONABLEIsNull: Boolean; virtual;
function GetOldCOMISIONABLEValue: SmallInt; virtual;
function GetOldCOMISIONABLEIsNull: Boolean; virtual;
procedure SetCOMISIONABLEValue(const aValue: SmallInt); virtual;
procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual;
function GetOldFECHA_ALTAIsNull: Boolean; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
function GetUSUARIOIsNull: Boolean; virtual;
function GetOldUSUARIOValue: String; virtual;
function GetOldUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVValue: String; virtual;
function GetREFERENCIA_PROVIsNull: Boolean; virtual;
function GetOldREFERENCIA_PROVValue: String; virtual;
function GetOldREFERENCIA_PROVIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
function GetPRECIO_COSTEValue: Currency; virtual;
function GetPRECIO_COSTEIsNull: Boolean; virtual;
function GetOldPRECIO_COSTEValue: Currency; virtual;
function GetOldPRECIO_COSTEIsNull: Boolean; virtual;
procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PORTEValue: Currency; virtual;
function GetPRECIO_PORTEIsNull: Boolean; virtual;
function GetOldPRECIO_PORTEValue: Currency; virtual;
function GetOldPRECIO_PORTEIsNull: Boolean; virtual;
procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual;
procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
function GetOldDESCUENTOValue: Float; virtual;
function GetOldDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_NETOValue: Currency; virtual;
function GetPRECIO_NETOIsNull: Boolean; virtual;
function GetOldPRECIO_NETOValue: Currency; virtual;
function GetOldPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function GetPRECIO_PVPValue: Currency; virtual;
function GetPRECIO_PVPIsNull: Boolean; virtual;
function GetOldPRECIO_PVPValue: Currency; virtual;
function GetOldPRECIO_PVPIsNull: Boolean; virtual;
procedure SetPRECIO_PVPValue(const aValue: Currency); virtual;
procedure SetPRECIO_PVPIsNull(const aValue: Boolean); virtual;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
function GetINVENTARIABLEValue: SmallInt; virtual;
function GetINVENTARIABLEIsNull: Boolean; virtual;
function GetOldINVENTARIABLEValue: SmallInt; virtual;
function GetOldINVENTARIABLEIsNull: Boolean; virtual;
procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual;
procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual;
function GetOldID_PROVEEDORValue: Integer; virtual;
function GetOldID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_PROVEEDORValue: String; virtual;
function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
function GetOldNOMBRE_PROVEEDORValue: String; virtual;
function GetOldNOMBRE_PROVEEDORIsNull: Boolean; virtual;
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetELIMINADOValue: SmallInt; virtual;
function GetELIMINADOIsNull: Boolean; virtual;
function GetOldELIMINADOValue: SmallInt; virtual;
function GetOldELIMINADOIsNull: Boolean; virtual;
procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
Filtro por tarifas en articulos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@148 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-15 09:26:45 +00:00
function GetTARIFAValue: String; virtual;
function GetTARIFAIsNull: Boolean; virtual;
function GetOldTARIFAValue: String; virtual;
function GetOldTARIFAIsNull: Boolean; virtual;
procedure SetTARIFAValue(const aValue: String); virtual;
procedure SetTARIFAIsNull(const aValue: Boolean); virtual;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
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_FABValue: String; virtual;
function GetREFERENCIA_FABIsNull: Boolean; virtual;
function GetOldREFERENCIA_FABValue: String; virtual;
function GetOldREFERENCIA_FABIsNull: Boolean; virtual;
procedure SetREFERENCIA_FABValue(const aValue: String); virtual;
procedure SetREFERENCIA_FABIsNull(const aValue: Boolean); virtual;
function GetSTOCK_MINValue: Integer; virtual;
function GetSTOCK_MINIsNull: Boolean; virtual;
function GetOldSTOCK_MINValue: Integer; virtual;
function GetOldSTOCK_MINIsNull: Boolean; virtual;
procedure SetSTOCK_MINValue(const aValue: Integer); virtual;
procedure SetSTOCK_MINIsNull(const aValue: Boolean); virtual;
function GetUNIDAD_MEDIDAValue: String; virtual;
function GetUNIDAD_MEDIDAIsNull: Boolean; virtual;
function GetOldUNIDAD_MEDIDAValue: String; virtual;
function GetOldUNIDAD_MEDIDAIsNull: Boolean; virtual;
procedure SetUNIDAD_MEDIDAValue(const aValue: String); virtual;
procedure SetUNIDAD_MEDIDAIsNull(const aValue: Boolean); virtual;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property OldFAMILIA : String read GetOldFAMILIAValue;
property OldFAMILIAIsNull : Boolean read GetOldFAMILIAIsNull;
property IMAGEN : IROStream read GetIMAGENValue;
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 COMISIONABLEIsNull : Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
property OldCOMISIONABLE : SmallInt 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;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property REFERENCIA_PROVIsNull : Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property OldREFERENCIA_PROVIsNull : Boolean read GetOldREFERENCIA_PROVIsNull;
property PRECIO_COSTE : Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull : Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
property OldPRECIO_COSTEIsNull : Boolean read GetOldPRECIO_COSTEIsNull;
property PRECIO_PORTE : Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
property PRECIO_PORTEIsNull : Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
property OldPRECIO_PORTEIsNull : Boolean read GetOldPRECIO_PORTEIsNull;
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
property PRECIO_NETO : Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
property PRECIO_PVP : Currency read GetPRECIO_PVPValue write SetPRECIO_PVPValue;
property PRECIO_PVPIsNull : Boolean read GetPRECIO_PVPIsNull write SetPRECIO_PVPIsNull;
property OldPRECIO_PVP : Currency read GetOldPRECIO_PVPValue;
property OldPRECIO_PVPIsNull : Boolean read GetOldPRECIO_PVPIsNull;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
property INVENTARIABLE : SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull : Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue;
property OldINVENTARIABLEIsNull : Boolean read GetOldINVENTARIABLEIsNull;
property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull : Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldNOMBRE_PROVEEDORIsNull : Boolean read GetOldNOMBRE_PROVEEDORIsNull;
property ELIMINADO : SmallInt read GetELIMINADOValue write SetELIMINADOValue;
property ELIMINADOIsNull : Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
property OldELIMINADOIsNull : Boolean read GetOldELIMINADOIsNull;
Filtro por tarifas en articulos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@148 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-15 09:26:45 +00:00
property TARIFA : String read GetTARIFAValue write SetTARIFAValue;
property TARIFAIsNull : Boolean read GetTARIFAIsNull write SetTARIFAIsNull;
property OldTARIFA : String read GetOldTARIFAValue;
property OldTARIFAIsNull : Boolean read GetOldTARIFAIsNull;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
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_FAB : String read GetREFERENCIA_FABValue write SetREFERENCIA_FABValue;
property REFERENCIA_FABIsNull : Boolean read GetREFERENCIA_FABIsNull write SetREFERENCIA_FABIsNull;
property OldREFERENCIA_FAB : String read GetOldREFERENCIA_FABValue;
property OldREFERENCIA_FABIsNull : Boolean read GetOldREFERENCIA_FABIsNull;
property STOCK_MIN : Integer read GetSTOCK_MINValue write SetSTOCK_MINValue;
property STOCK_MINIsNull : Boolean read GetSTOCK_MINIsNull write SetSTOCK_MINIsNull;
property OldSTOCK_MIN : Integer read GetOldSTOCK_MINValue;
property OldSTOCK_MINIsNull : Boolean read GetOldSTOCK_MINIsNull;
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;
property OldUNIDAD_MEDIDAIsNull : Boolean read GetOldUNIDAD_MEDIDAIsNull;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
{ IArticulosParaClienteDelta }
IArticulosParaClienteDelta = interface(IArticulosParaCliente)
['{C53985C4-A448-401B-BDD5-18EBA6D738F5}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldDESCRIPCIONValue : String;
function GetOldFAMILIAValue : String;
function GetOldIMAGENValue : IROStream;
function GetOldCOMISIONABLEValue : SmallInt;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldREFERENCIA_PROVValue : String;
function GetOldPRECIO_COSTEValue : Currency;
function GetOldPRECIO_PORTEValue : Currency;
function GetOldDESCUENTOValue : Float;
function GetOldPRECIO_NETOValue : Currency;
function GetOldINVENTARIABLEValue : SmallInt;
function GetOldID_PROVEEDORValue : Integer;
function GetOldNOMBRE_PROVEEDORValue : String;
function GetOldELIMINADOValue : SmallInt;
function GetOldTARIFAValue : String;
Primer acercamiento a pedidos de proveedor y logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@152 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-12-28 16:54:17 +00:00
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldFAMILIA : String read GetOldFAMILIAValue;
property OldIMAGEN : IROStream read GetOldIMAGENValue;
property OldCOMISIONABLE : SmallInt read GetOldCOMISIONABLEValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
property OldTARIFA : String read GetOldTARIFAValue;
end;
Primer acercamiento a pedidos de proveedor y logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@152 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-12-28 16:54:17 +00:00
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
{ TArticulosParaClienteBusinessProcessorRules }
TArticulosParaClienteBusinessProcessorRules = class(TDABusinessProcessorRules, IArticulosParaCliente, IArticulosParaClienteDelta)
private
f_IMAGEN: IROStream;
procedure IMAGEN_OnChange(Sender: Tobject);
protected
{ Property getters and setters }
function GetIDValue: Integer; virtual;
function GetIDIsNull: Boolean; virtual;
function GetOldIDValue: Integer; virtual;
function GetOldIDIsNull: Boolean; virtual;
procedure SetIDValue(const aValue: Integer); virtual;
procedure SetIDIsNull(const aValue: Boolean); virtual;
function GetID_EMPRESAValue: Integer; virtual;
function GetID_EMPRESAIsNull: Boolean; virtual;
function GetOldID_EMPRESAValue: Integer; virtual;
function GetOldID_EMPRESAIsNull: Boolean; virtual;
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
function GetREFERENCIAValue: String; virtual;
function GetREFERENCIAIsNull: Boolean; virtual;
function GetOldREFERENCIAValue: String; virtual;
function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetDESCRIPCIONValue: String; virtual;
function GetDESCRIPCIONIsNull: Boolean; virtual;
function GetOldDESCRIPCIONValue: String; virtual;
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
function GetFAMILIAValue: String; virtual;
function GetFAMILIAIsNull: Boolean; virtual;
function GetOldFAMILIAValue: String; virtual;
function GetOldFAMILIAIsNull: Boolean; virtual;
procedure SetFAMILIAValue(const aValue: String); virtual;
procedure SetFAMILIAIsNull(const aValue: Boolean); virtual;
function GetIMAGENValue: IROStream; virtual;
function GetIMAGENIsNull: Boolean; virtual;
function GetOldIMAGENValue: IROStream; virtual;
function GetOldIMAGENIsNull: Boolean; virtual;
procedure SetIMAGENIsNull(const aValue: Boolean); virtual;
function GetCOMISIONABLEValue: SmallInt; virtual;
function GetCOMISIONABLEIsNull: Boolean; virtual;
function GetOldCOMISIONABLEValue: SmallInt; virtual;
function GetOldCOMISIONABLEIsNull: Boolean; virtual;
procedure SetCOMISIONABLEValue(const aValue: SmallInt); virtual;
procedure SetCOMISIONABLEIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual;
function GetOldFECHA_ALTAIsNull: Boolean; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
function GetUSUARIOValue: String; virtual;
function GetUSUARIOIsNull: Boolean; virtual;
function GetOldUSUARIOValue: String; virtual;
function GetOldUSUARIOIsNull: Boolean; virtual;
procedure SetUSUARIOValue(const aValue: String); virtual;
procedure SetUSUARIOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PROVValue: String; virtual;
function GetREFERENCIA_PROVIsNull: Boolean; virtual;
function GetOldREFERENCIA_PROVValue: String; virtual;
function GetOldREFERENCIA_PROVIsNull: Boolean; virtual;
procedure SetREFERENCIA_PROVValue(const aValue: String); virtual;
procedure SetREFERENCIA_PROVIsNull(const aValue: Boolean); virtual;
function GetPRECIO_COSTEValue: Currency; virtual;
function GetPRECIO_COSTEIsNull: Boolean; virtual;
function GetOldPRECIO_COSTEValue: Currency; virtual;
function GetOldPRECIO_COSTEIsNull: Boolean; virtual;
procedure SetPRECIO_COSTEValue(const aValue: Currency); virtual;
procedure SetPRECIO_COSTEIsNull(const aValue: Boolean); virtual;
function GetPRECIO_PORTEValue: Currency; virtual;
function GetPRECIO_PORTEIsNull: Boolean; virtual;
function GetOldPRECIO_PORTEValue: Currency; virtual;
function GetOldPRECIO_PORTEIsNull: Boolean; virtual;
procedure SetPRECIO_PORTEValue(const aValue: Currency); virtual;
procedure SetPRECIO_PORTEIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
function GetDESCUENTOIsNull: Boolean; virtual;
function GetOldDESCUENTOValue: Float; virtual;
function GetOldDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetPRECIO_NETOValue: Currency; virtual;
function GetPRECIO_NETOIsNull: Boolean; virtual;
function GetOldPRECIO_NETOValue: Currency; virtual;
function GetOldPRECIO_NETOIsNull: Boolean; virtual;
procedure SetPRECIO_NETOValue(const aValue: Currency); virtual;
procedure SetPRECIO_NETOIsNull(const aValue: Boolean); virtual;
function GetINVENTARIABLEValue: SmallInt; virtual;
function GetINVENTARIABLEIsNull: Boolean; virtual;
function GetOldINVENTARIABLEValue: SmallInt; virtual;
function GetOldINVENTARIABLEIsNull: Boolean; virtual;
procedure SetINVENTARIABLEValue(const aValue: SmallInt); virtual;
procedure SetINVENTARIABLEIsNull(const aValue: Boolean); virtual;
function GetID_PROVEEDORValue: Integer; virtual;
function GetID_PROVEEDORIsNull: Boolean; virtual;
function GetOldID_PROVEEDORValue: Integer; virtual;
function GetOldID_PROVEEDORIsNull: Boolean; virtual;
procedure SetID_PROVEEDORValue(const aValue: Integer); virtual;
procedure SetID_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetNOMBRE_PROVEEDORValue: String; virtual;
function GetNOMBRE_PROVEEDORIsNull: Boolean; virtual;
function GetOldNOMBRE_PROVEEDORValue: String; virtual;
function GetOldNOMBRE_PROVEEDORIsNull: Boolean; virtual;
procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
procedure SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetELIMINADOValue: SmallInt; virtual;
function GetELIMINADOIsNull: Boolean; virtual;
function GetOldELIMINADOValue: SmallInt; virtual;
function GetOldELIMINADOIsNull: Boolean; virtual;
procedure SetELIMINADOValue(const aValue: SmallInt); virtual;
procedure SetELIMINADOIsNull(const aValue: Boolean); virtual;
function GetTARIFAValue: String; virtual;
function GetTARIFAIsNull: Boolean; virtual;
function GetOldTARIFAValue: String; virtual;
function GetOldTARIFAIsNull: Boolean; virtual;
procedure SetTARIFAValue(const aValue: String); virtual;
procedure SetTARIFAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
property OldID : Integer read GetOldIDValue;
property OldIDIsNull : Boolean read GetOldIDIsNull;
property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
property FAMILIA : String read GetFAMILIAValue write SetFAMILIAValue;
property FAMILIAIsNull : Boolean read GetFAMILIAIsNull write SetFAMILIAIsNull;
property OldFAMILIA : String read GetOldFAMILIAValue;
property OldFAMILIAIsNull : Boolean read GetOldFAMILIAIsNull;
property IMAGEN : IROStream read GetIMAGENValue;
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 COMISIONABLEIsNull : Boolean read GetCOMISIONABLEIsNull write SetCOMISIONABLEIsNull;
property OldCOMISIONABLE : SmallInt 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;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
property USUARIO : String read GetUSUARIOValue write SetUSUARIOValue;
property USUARIOIsNull : Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldUSUARIOIsNull : Boolean read GetOldUSUARIOIsNull;
property REFERENCIA_PROV : String read GetREFERENCIA_PROVValue write SetREFERENCIA_PROVValue;
property REFERENCIA_PROVIsNull : Boolean read GetREFERENCIA_PROVIsNull write SetREFERENCIA_PROVIsNull;
property OldREFERENCIA_PROV : String read GetOldREFERENCIA_PROVValue;
property OldREFERENCIA_PROVIsNull : Boolean read GetOldREFERENCIA_PROVIsNull;
property PRECIO_COSTE : Currency read GetPRECIO_COSTEValue write SetPRECIO_COSTEValue;
property PRECIO_COSTEIsNull : Boolean read GetPRECIO_COSTEIsNull write SetPRECIO_COSTEIsNull;
property OldPRECIO_COSTE : Currency read GetOldPRECIO_COSTEValue;
property OldPRECIO_COSTEIsNull : Boolean read GetOldPRECIO_COSTEIsNull;
property PRECIO_PORTE : Currency read GetPRECIO_PORTEValue write SetPRECIO_PORTEValue;
property PRECIO_PORTEIsNull : Boolean read GetPRECIO_PORTEIsNull write SetPRECIO_PORTEIsNull;
property OldPRECIO_PORTE : Currency read GetOldPRECIO_PORTEValue;
property OldPRECIO_PORTEIsNull : Boolean read GetOldPRECIO_PORTEIsNull;
property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
property PRECIO_NETO : Currency read GetPRECIO_NETOValue write SetPRECIO_NETOValue;
property PRECIO_NETOIsNull : Boolean read GetPRECIO_NETOIsNull write SetPRECIO_NETOIsNull;
property OldPRECIO_NETO : Currency read GetOldPRECIO_NETOValue;
property OldPRECIO_NETOIsNull : Boolean read GetOldPRECIO_NETOIsNull;
property INVENTARIABLE : SmallInt read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
property INVENTARIABLEIsNull : Boolean read GetINVENTARIABLEIsNull write SetINVENTARIABLEIsNull;
property OldINVENTARIABLE : SmallInt read GetOldINVENTARIABLEValue;
property OldINVENTARIABLEIsNull : Boolean read GetOldINVENTARIABLEIsNull;
property ID_PROVEEDOR : Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
property ID_PROVEEDORIsNull : Boolean read GetID_PROVEEDORIsNull write SetID_PROVEEDORIsNull;
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldID_PROVEEDORIsNull : Boolean read GetOldID_PROVEEDORIsNull;
property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
property NOMBRE_PROVEEDORIsNull : Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldNOMBRE_PROVEEDORIsNull : Boolean read GetOldNOMBRE_PROVEEDORIsNull;
property ELIMINADO : SmallInt read GetELIMINADOValue write SetELIMINADOValue;
property ELIMINADOIsNull : Boolean read GetELIMINADOIsNull write SetELIMINADOIsNull;
property OldELIMINADO : SmallInt read GetOldELIMINADOValue;
property OldELIMINADOIsNull : Boolean read GetOldELIMINADOIsNull;
property TARIFA : String read GetTARIFAValue write SetTARIFAValue;
property TARIFAIsNull : Boolean read GetTARIFAIsNull write SetTARIFAIsNull;
property OldTARIFA : String read GetOldTARIFAValue;
property OldTARIFAIsNull : Boolean read GetOldTARIFAIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
implementation
uses
Variants, uROBinaryHelpers, uDAInterfaces;
{ TArticulos_ProveedoresBusinessProcessorRules }
constructor TArticulos_ProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TArticulos_ProveedoresBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresID];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresID]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_ARTICULO];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_ARTICULO]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresID_ARTICULO];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresID_ARTICULO]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_ARTICULO] := aValue;
end;
Primer acercamiento a pedidos de proveedor y logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@152 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-12-28 16:54:17 +00:00
procedure TArticulos_ProveedoresBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_ARTICULO] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_PROVEEDOR];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_PROVEEDOR]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresID_PROVEEDOR];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresID_PROVEEDOR]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_PROVEEDOR] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresID_PROVEEDOR] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresREFERENCIA_PROV];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetREFERENCIA_PROVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresREFERENCIA_PROV]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresREFERENCIA_PROV];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldREFERENCIA_PROVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresREFERENCIA_PROV]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresREFERENCIA_PROV] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresREFERENCIA_PROV] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_COSTE];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_COSTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_COSTE]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_COSTE];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_COSTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_COSTE]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_COSTE] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_COSTE] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresDESCUENTO];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresDESCUENTO]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresDESCUENTO];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresDESCUENTO]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresDESCUENTO] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresDESCUENTO] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_NETOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_NETO];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_NETOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_NETO]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_NETO];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_NETOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_NETO]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_NETO] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_NETO] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_PORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PORTE];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_PORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PORTE]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_PORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_PORTE];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_PORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_PORTE]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PORTE] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PORTE] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_PVP_VENTAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_VENTA];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_PVP_VENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_VENTA]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_PVP_VENTAValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_PVP_VENTA];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_PVP_VENTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_PVP_VENTA]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_PVP_VENTAValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_VENTA] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_PVP_VENTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_VENTA] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_PVP_TOTALValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_TOTAL];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetPRECIO_PVP_TOTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_TOTAL]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_PVP_TOTALValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_PVP_TOTAL];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldPRECIO_PVP_TOTALIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresPRECIO_PVP_TOTAL]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_PVP_TOTALValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_TOTAL] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetPRECIO_PVP_TOTALIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresPRECIO_PVP_TOTAL] := Null;
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetFECHA_ACTUALIZACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresFECHA_ACTUALIZACION];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetFECHA_ACTUALIZACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresFECHA_ACTUALIZACION]);
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldFECHA_ACTUALIZACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresFECHA_ACTUALIZACION];
end;
function TArticulos_ProveedoresBusinessProcessorRules.GetOldFECHA_ACTUALIZACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Articulos_ProveedoresFECHA_ACTUALIZACION]);
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetFECHA_ACTUALIZACIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresFECHA_ACTUALIZACION] := aValue;
end;
procedure TArticulos_ProveedoresBusinessProcessorRules.SetFECHA_ACTUALIZACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_Articulos_ProveedoresFECHA_ACTUALIZACION] := Null;
end;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
{ TArticulosBusinessProcessorRules }
constructor TArticulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
ROStream: TROStream;
begin
inherited;
ROStream := TROStream.Create;
ROStream.OnChange := IMAGEN_OnChange;
f_IMAGEN := ROStream;
end;
destructor TArticulosBusinessProcessorRules.Destroy;
begin
inherited;
end;
procedure TArticulosBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject);
begin
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
function TArticulosBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID];
end;
function TArticulosBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID]);
end;
function TArticulosBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID];
end;
function TArticulosBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID]);
end;
procedure TArticulosBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID] := Null;
end;
function TArticulosBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_EMPRESA];
end;
function TArticulosBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_EMPRESA]);
end;
function TArticulosBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID_EMPRESA];
end;
function TArticulosBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID_EMPRESA]);
end;
procedure TArticulosBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_EMPRESA] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_EMPRESA] := Null;
end;
function TArticulosBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA];
end;
function TArticulosBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA]);
end;
function TArticulosBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA];
end;
function TArticulosBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA]);
end;
procedure TArticulosBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA] := Null;
end;
function TArticulosBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCRIPCION];
end;
function TArticulosBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCRIPCION]);
end;
function TArticulosBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosDESCRIPCION];
end;
function TArticulosBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosDESCRIPCION]);
end;
procedure TArticulosBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCRIPCION] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCRIPCION] := Null;
end;
function TArticulosBusinessProcessorRules.GetFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFAMILIA];
end;
function TArticulosBusinessProcessorRules.GetFAMILIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFAMILIA]);
end;
function TArticulosBusinessProcessorRules.GetOldFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFAMILIA];
end;
function TArticulosBusinessProcessorRules.GetOldFAMILIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFAMILIA]);
end;
procedure TArticulosBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFAMILIA] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetFAMILIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFAMILIA] := Null;
end;
function TArticulosBusinessProcessorRules.GetIMAGENValue: IROStream;
begin
result := f_IMAGEN;
result.Position := 0;
if not Result.InUpdateMode then begin
BlobVariantToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN], result.Stream);
result.Position := 0;
end;
end;
function TArticulosBusinessProcessorRules.GetIMAGENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN]);
end;
function TArticulosBusinessProcessorRules.GetOldIMAGENValue: IROStream;
begin
result := NewROStream();
BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosIMAGEN], result.Stream);
end;
function TArticulosBusinessProcessorRules.GetOldIMAGENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosIMAGEN]);
end;
procedure TArticulosBusinessProcessorRules.SetIMAGENIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosIMAGEN] := Null;
end;
function TArticulosBusinessProcessorRules.GetCOMISIONABLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCOMISIONABLE];
end;
function TArticulosBusinessProcessorRules.GetCOMISIONABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCOMISIONABLE]);
end;
function TArticulosBusinessProcessorRules.GetOldCOMISIONABLEValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosCOMISIONABLE];
end;
function TArticulosBusinessProcessorRules.GetOldCOMISIONABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosCOMISIONABLE]);
end;
procedure TArticulosBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCOMISIONABLE] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetCOMISIONABLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosCOMISIONABLE] := Null;
end;
function TArticulosBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_ALTA];
end;
function TArticulosBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_ALTA]);
end;
function TArticulosBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFECHA_ALTA];
end;
function TArticulosBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFECHA_ALTA]);
end;
procedure TArticulosBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_ALTA] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_ALTA] := Null;
end;
function TArticulosBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_MODIFICACION];
end;
function TArticulosBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_MODIFICACION]);
end;
function TArticulosBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFECHA_MODIFICACION];
end;
function TArticulosBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFECHA_MODIFICACION]);
end;
procedure TArticulosBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_MODIFICACION] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFECHA_MODIFICACION] := Null;
end;
function TArticulosBusinessProcessorRules.GetUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUSUARIO];
end;
function TArticulosBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUSUARIO]);
end;
function TArticulosBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosUSUARIO];
end;
function TArticulosBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosUSUARIO]);
end;
procedure TArticulosBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUSUARIO] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUSUARIO] := Null;
end;
function TArticulosBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_PROV];
end;
function TArticulosBusinessProcessorRules.GetREFERENCIA_PROVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_PROV]);
end;
function TArticulosBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA_PROV];
end;
function TArticulosBusinessProcessorRules.GetOldREFERENCIA_PROVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA_PROV]);
end;
procedure TArticulosBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_PROV] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_PROV] := Null;
end;
function TArticulosBusinessProcessorRules.GetPRECIO_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_COSTE];
end;
function TArticulosBusinessProcessorRules.GetPRECIO_COSTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_COSTE]);
end;
function TArticulosBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_COSTE];
end;
function TArticulosBusinessProcessorRules.GetOldPRECIO_COSTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_COSTE]);
end;
procedure TArticulosBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_COSTE] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_COSTE] := Null;
end;
function TArticulosBusinessProcessorRules.GetPRECIO_PORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PORTE];
end;
function TArticulosBusinessProcessorRules.GetPRECIO_PORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PORTE]);
end;
function TArticulosBusinessProcessorRules.GetOldPRECIO_PORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PORTE];
end;
function TArticulosBusinessProcessorRules.GetOldPRECIO_PORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PORTE]);
end;
procedure TArticulosBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PORTE] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PORTE] := Null;
end;
function TArticulosBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCUENTO];
end;
function TArticulosBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCUENTO]);
end;
function TArticulosBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosDESCUENTO];
end;
function TArticulosBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosDESCUENTO]);
end;
procedure TArticulosBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCUENTO] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosDESCUENTO] := Null;
end;
function TArticulosBusinessProcessorRules.GetPRECIO_NETOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_NETO];
end;
function TArticulosBusinessProcessorRules.GetPRECIO_NETOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_NETO]);
end;
function TArticulosBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_NETO];
end;
function TArticulosBusinessProcessorRules.GetOldPRECIO_NETOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_NETO]);
end;
procedure TArticulosBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_NETO] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_NETO] := Null;
end;
function TArticulosBusinessProcessorRules.GetPRECIO_PVPValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP];
end;
function TArticulosBusinessProcessorRules.GetPRECIO_PVPIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP]);
end;
function TArticulosBusinessProcessorRules.GetOldPRECIO_PVPValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP];
end;
function TArticulosBusinessProcessorRules.GetOldPRECIO_PVPIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosPRECIO_PVP]);
end;
procedure TArticulosBusinessProcessorRules.SetPRECIO_PVPValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetPRECIO_PVPIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosPRECIO_PVP] := Null;
end;
function TArticulosBusinessProcessorRules.GetINVENTARIABLEValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosINVENTARIABLE];
end;
function TArticulosBusinessProcessorRules.GetINVENTARIABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosINVENTARIABLE]);
end;
function TArticulosBusinessProcessorRules.GetOldINVENTARIABLEValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosINVENTARIABLE];
end;
function TArticulosBusinessProcessorRules.GetOldINVENTARIABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosINVENTARIABLE]);
end;
procedure TArticulosBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosINVENTARIABLE] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosINVENTARIABLE] := Null;
end;
function TArticulosBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_PROVEEDOR];
end;
function TArticulosBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_PROVEEDOR]);
end;
function TArticulosBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID_PROVEEDOR];
end;
function TArticulosBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosID_PROVEEDOR]);
end;
procedure TArticulosBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_PROVEEDOR] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosID_PROVEEDOR] := Null;
end;
function TArticulosBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosNOMBRE_PROVEEDOR];
end;
function TArticulosBusinessProcessorRules.GetNOMBRE_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosNOMBRE_PROVEEDOR]);
end;
function TArticulosBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosNOMBRE_PROVEEDOR];
end;
function TArticulosBusinessProcessorRules.GetOldNOMBRE_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosNOMBRE_PROVEEDOR]);
end;
procedure TArticulosBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosNOMBRE_PROVEEDOR] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosNOMBRE_PROVEEDOR] := Null;
end;
function TArticulosBusinessProcessorRules.GetELIMINADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosELIMINADO];
end;
function TArticulosBusinessProcessorRules.GetELIMINADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosELIMINADO]);
end;
function TArticulosBusinessProcessorRules.GetOldELIMINADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosELIMINADO];
end;
function TArticulosBusinessProcessorRules.GetOldELIMINADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosELIMINADO]);
end;
procedure TArticulosBusinessProcessorRules.SetELIMINADOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosELIMINADO] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetELIMINADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosELIMINADO] := Null;
end;
function TArticulosBusinessProcessorRules.GetTARIFAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTARIFA];
end;
function TArticulosBusinessProcessorRules.GetTARIFAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTARIFA]);
end;
function TArticulosBusinessProcessorRules.GetOldTARIFAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosTARIFA];
end;
function TArticulosBusinessProcessorRules.GetOldTARIFAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosTARIFA]);
end;
procedure TArticulosBusinessProcessorRules.SetTARIFAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTARIFA] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetTARIFAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosTARIFA] := Null;
end;
function TArticulosBusinessProcessorRules.GetFABRICANTEValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE];
end;
function TArticulosBusinessProcessorRules.GetFABRICANTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE]);
end;
function TArticulosBusinessProcessorRules.GetOldFABRICANTEValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFABRICANTE];
end;
function TArticulosBusinessProcessorRules.GetOldFABRICANTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosFABRICANTE]);
end;
procedure TArticulosBusinessProcessorRules.SetFABRICANTEValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetFABRICANTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosFABRICANTE] := Null;
end;
function TArticulosBusinessProcessorRules.GetREFERENCIA_FABValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FAB];
end;
function TArticulosBusinessProcessorRules.GetREFERENCIA_FABIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FAB]);
end;
function TArticulosBusinessProcessorRules.GetOldREFERENCIA_FABValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA_FAB];
end;
function TArticulosBusinessProcessorRules.GetOldREFERENCIA_FABIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosREFERENCIA_FAB]);
end;
procedure TArticulosBusinessProcessorRules.SetREFERENCIA_FABValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FAB] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetREFERENCIA_FABIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosREFERENCIA_FAB] := Null;
end;
function TArticulosBusinessProcessorRules.GetSTOCK_MINValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosSTOCK_MIN];
end;
function TArticulosBusinessProcessorRules.GetSTOCK_MINIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosSTOCK_MIN]);
end;
function TArticulosBusinessProcessorRules.GetOldSTOCK_MINValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosSTOCK_MIN];
end;
function TArticulosBusinessProcessorRules.GetOldSTOCK_MINIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosSTOCK_MIN]);
end;
procedure TArticulosBusinessProcessorRules.SetSTOCK_MINValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosSTOCK_MIN] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetSTOCK_MINIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosSTOCK_MIN] := Null;
end;
function TArticulosBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUNIDAD_MEDIDA];
end;
function TArticulosBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUNIDAD_MEDIDA]);
end;
function TArticulosBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosUNIDAD_MEDIDA];
end;
function TArticulosBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosUNIDAD_MEDIDA]);
end;
procedure TArticulosBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUNIDAD_MEDIDA] := aValue;
end;
procedure TArticulosBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosUNIDAD_MEDIDA] := Null;
end;
{ TArticulosParaCompraBusinessProcessorRules }
constructor TArticulosParaCompraBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
ROStream: TROStream;
begin
inherited;
ROStream := TROStream.Create;
ROStream.OnChange := IMAGEN_OnChange;
f_IMAGEN := ROStream;
end;
destructor TArticulosParaCompraBusinessProcessorRules.Destroy;
begin
inherited;
end;
procedure TArticulosParaCompraBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream);
end;
function TArticulosParaCompraBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID];
end;
function TArticulosParaCompraBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraID];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraID]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_EMPRESA];
end;
function TArticulosParaCompraBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_EMPRESA]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraID_EMPRESA];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraID_EMPRESA]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_EMPRESA] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_EMPRESA] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA];
end;
function TArticulosParaCompraBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraREFERENCIA];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraREFERENCIA]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCRIPCION];
end;
function TArticulosParaCompraBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCRIPCION]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraDESCRIPCION];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraDESCRIPCION]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCRIPCION] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCRIPCION] := Null;
end;
function TArticulosParaCompraBusinessProcessorRules.GetFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFAMILIA];
end;
function TArticulosParaCompraBusinessProcessorRules.GetFAMILIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFAMILIA]);
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFAMILIA];
end;
function TArticulosParaCompraBusinessProcessorRules.GetOldFAMILIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFAMILIA]);
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFAMILIA] := aValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetFAMILIAIsNull(const aValue: Boolean);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFAMILIA] := Null;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetIMAGENValue: IROStream;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := f_IMAGEN;
result.Position := 0;
if not Result.InUpdateMode then begin
BlobVariantToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN], result.Stream);
result.Position := 0;
end;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetIMAGENIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldIMAGENValue: IROStream;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := NewROStream();
BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraIMAGEN], result.Stream);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldIMAGENIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraIMAGEN]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetIMAGENIsNull(const aValue: Boolean);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraIMAGEN] := Null;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetCOMISIONABLEValue: SmallInt;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraCOMISIONABLE];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetCOMISIONABLEIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraCOMISIONABLE]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldCOMISIONABLEValue: SmallInt;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraCOMISIONABLE];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldCOMISIONABLEIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraCOMISIONABLE]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: SmallInt);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraCOMISIONABLE] := aValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetCOMISIONABLEIsNull(const aValue: Boolean);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraCOMISIONABLE] := Null;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_ALTA];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_ALTA]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFECHA_ALTA];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFECHA_ALTA]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_ALTA] := aValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_ALTA] := Null;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_MODIFICACION];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_MODIFICACION]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFECHA_MODIFICACION];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFECHA_MODIFICACION]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_MODIFICACION] := aValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFECHA_MODIFICACION] := Null;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetUSUARIOValue: String;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUSUARIO];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUSUARIO]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldUSUARIOValue: String;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraUSUARIO];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraUSUARIO]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUSUARIO] := aValue;
end;
procedure TArticulosParaCompraBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUSUARIO] := Null;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_PROV];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetREFERENCIA_PROVIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_PROV]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraREFERENCIA_PROV];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldREFERENCIA_PROVIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraREFERENCIA_PROV]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_PROV] := aValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_PROV] := Null;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_COSTEValue: Currency;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_COSTE];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_COSTEIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_COSTE]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_COSTE];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_COSTEIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_COSTE]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_COSTE] := aValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_COSTE] := Null;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_PORTEValue: Currency;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PORTE];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_PORTEIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PORTE]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_PORTEValue: Currency;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_PORTE];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_PORTEIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_PORTE]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Currency);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PORTE] := aValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PORTE] := Null;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetDESCUENTOValue: Float;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCUENTO];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCUENTO]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldDESCUENTOValue: Float;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraDESCUENTO];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraDESCUENTO]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCUENTO] := aValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraDESCUENTO] := Null;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_NETOValue: Currency;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_NETO];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_NETOIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_NETO]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_NETO];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_NETOIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_NETO]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_NETO] := aValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_NETO] := Null;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_PVPValue: Currency;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PVP];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetPRECIO_PVPIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PVP]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_PVPValue: Currency;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_PVP];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldPRECIO_PVPIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraPRECIO_PVP]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_PVPValue(const aValue: Currency);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PVP] := aValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetPRECIO_PVPIsNull(const aValue: Boolean);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraPRECIO_PVP] := Null;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetINVENTARIABLEValue: SmallInt;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraINVENTARIABLE];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetINVENTARIABLEIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraINVENTARIABLE]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldINVENTARIABLEValue: SmallInt;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraINVENTARIABLE];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldINVENTARIABLEIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraINVENTARIABLE]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: SmallInt);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraINVENTARIABLE] := aValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraINVENTARIABLE] := Null;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_PROVEEDOR];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_PROVEEDOR]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraID_PROVEEDOR];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraID_PROVEEDOR]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_PROVEEDOR] := aValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraID_PROVEEDOR] := Null;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraNOMBRE_PROVEEDOR];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetNOMBRE_PROVEEDORIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraNOMBRE_PROVEEDOR]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraNOMBRE_PROVEEDOR];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldNOMBRE_PROVEEDORIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraNOMBRE_PROVEEDOR]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraNOMBRE_PROVEEDOR] := aValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraNOMBRE_PROVEEDOR] := Null;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetELIMINADOValue: SmallInt;
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraELIMINADO];
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetELIMINADOIsNull: Boolean;
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraELIMINADO]);
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldELIMINADOValue: SmallInt;
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraELIMINADO];
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldELIMINADOIsNull: Boolean;
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraELIMINADO]);
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetELIMINADOValue(const aValue: SmallInt);
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraELIMINADO] := aValue;
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetELIMINADOIsNull(const aValue: Boolean);
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraELIMINADO] := Null;
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetTARIFAValue: String;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraTARIFA];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetTARIFAIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraTARIFA]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldTARIFAValue: String;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraTARIFA];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldTARIFAIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraTARIFA]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetTARIFAValue(const aValue: String);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraTARIFA] := aValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetTARIFAIsNull(const aValue: Boolean);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraTARIFA] := Null;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetFABRICANTEValue: String;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFABRICANTE];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetFABRICANTEIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFABRICANTE]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldFABRICANTEValue: String;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFABRICANTE];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldFABRICANTEIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraFABRICANTE]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetFABRICANTEValue(const aValue: String);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFABRICANTE] := aValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetFABRICANTEIsNull(const aValue: Boolean);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraFABRICANTE] := Null;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetREFERENCIA_FABValue: String;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_FAB];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetREFERENCIA_FABIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_FAB]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldREFERENCIA_FABValue: String;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraREFERENCIA_FAB];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldREFERENCIA_FABIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraREFERENCIA_FAB]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetREFERENCIA_FABValue(const aValue: String);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_FAB] := aValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetREFERENCIA_FABIsNull(const aValue: Boolean);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraREFERENCIA_FAB] := Null;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetSTOCK_MINValue: Integer;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraSTOCK_MIN];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetSTOCK_MINIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraSTOCK_MIN]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldSTOCK_MINValue: Integer;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraSTOCK_MIN];
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldSTOCK_MINIsNull: Boolean;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraSTOCK_MIN]);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetSTOCK_MINValue(const aValue: Integer);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraSTOCK_MIN] := aValue;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetSTOCK_MINIsNull(const aValue: Boolean);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraSTOCK_MIN] := Null;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetUNIDAD_MEDIDAValue: String;
Tarifas git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@147 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-06 10:08:12 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUNIDAD_MEDIDA];
Tarifas git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@147 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-06 10:08:12 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetUNIDAD_MEDIDAIsNull: Boolean;
Tarifas git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@147 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-06 10:08:12 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUNIDAD_MEDIDA]);
Tarifas git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@147 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-06 10:08:12 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldUNIDAD_MEDIDAValue: String;
Tarifas git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@147 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-06 10:08:12 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraUNIDAD_MEDIDA];
Tarifas git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@147 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-06 10:08:12 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
function TArticulosParaCompraBusinessProcessorRules.GetOldUNIDAD_MEDIDAIsNull: Boolean;
Tarifas git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@147 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-06 10:08:12 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaCompraUNIDAD_MEDIDA]);
Tarifas git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@147 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-06 10:08:12 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetUNIDAD_MEDIDAValue(const aValue: String);
Tarifas git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@147 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-06 10:08:12 +00:00
begin
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUNIDAD_MEDIDA] := aValue;
Tarifas git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@147 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-06 10:08:12 +00:00
end;
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
procedure TArticulosParaCompraBusinessProcessorRules.SetUNIDAD_MEDIDAIsNull(const aValue: Boolean);
Tarifas git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@147 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-06 10:08:12 +00:00
begin
if aValue then
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaCompraUNIDAD_MEDIDA] := Null;
Tarifas git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@147 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-06 10:08:12 +00:00
end;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
{ TArticulosParaClienteBusinessProcessorRules }
constructor TArticulosParaClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
var
ROStream: TROStream;
begin
inherited;
ROStream := TROStream.Create;
ROStream.OnChange := IMAGEN_OnChange;
f_IMAGEN := ROStream;
end;
destructor TArticulosParaClienteBusinessProcessorRules.Destroy;
begin
inherited;
end;
procedure TArticulosParaClienteBusinessProcessorRules.IMAGEN_OnChange(Sender: TObject);
begin
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN] := BinaryToBlobVariant((TROStream(Sender) as IROStream).Stream);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
function TArticulosParaClienteBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID];
end;
function TArticulosParaClienteBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteID];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteID]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_EMPRESA];
end;
function TArticulosParaClienteBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_EMPRESA]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteID_EMPRESA];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteID_EMPRESA]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_EMPRESA] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_EMPRESA] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA];
end;
function TArticulosParaClienteBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldREFERENCIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteREFERENCIA];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteREFERENCIA]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCRIPCION];
end;
function TArticulosParaClienteBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCRIPCION]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteDESCRIPCION];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteDESCRIPCION]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCRIPCION] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCRIPCION] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFAMILIA];
end;
function TArticulosParaClienteBusinessProcessorRules.GetFAMILIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFAMILIA]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldFAMILIAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFAMILIA];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldFAMILIAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFAMILIA]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetFAMILIAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFAMILIA] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetFAMILIAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFAMILIA] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetIMAGENValue: IROStream;
begin
result := f_IMAGEN;
result.Position := 0;
if not Result.InUpdateMode then begin
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
BlobVariantToBinary(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN], result.Stream);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
result.Position := 0;
end;
end;
function TArticulosParaClienteBusinessProcessorRules.GetIMAGENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldIMAGENValue: IROStream;
begin
result := NewROStream();
Versión 2.5.4 Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
2012-07-11 15:39:13 +00:00
BlobVariantToBinary(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteIMAGEN], result.Stream);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldIMAGENIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteIMAGEN]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetIMAGENIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteIMAGEN] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetCOMISIONABLEValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE];
end;
function TArticulosParaClienteBusinessProcessorRules.GetCOMISIONABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldCOMISIONABLEValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteCOMISIONABLE];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldCOMISIONABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteCOMISIONABLE]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetCOMISIONABLEValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetCOMISIONABLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteCOMISIONABLE] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_ALTA];
end;
function TArticulosParaClienteBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_ALTA]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFECHA_ALTA];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFECHA_ALTA]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_ALTA] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_ALTA] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_MODIFICACION];
end;
function TArticulosParaClienteBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_MODIFICACION]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFECHA_MODIFICACION];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteFECHA_MODIFICACION]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_MODIFICACION] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteFECHA_MODIFICACION] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUSUARIO];
end;
function TArticulosParaClienteBusinessProcessorRules.GetUSUARIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUSUARIO]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldUSUARIOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteUSUARIO];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldUSUARIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteUSUARIO]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetUSUARIOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUSUARIO] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetUSUARIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteUSUARIO] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetREFERENCIA_PROVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_PROV];
end;
function TArticulosParaClienteBusinessProcessorRules.GetREFERENCIA_PROVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_PROV]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldREFERENCIA_PROVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteREFERENCIA_PROV];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldREFERENCIA_PROVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteREFERENCIA_PROV]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetREFERENCIA_PROVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_PROV] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetREFERENCIA_PROVIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteREFERENCIA_PROV] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE];
end;
function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_COSTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_COSTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_COSTE];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_COSTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_COSTE]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_COSTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_COSTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_COSTE] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_PORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE];
end;
function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_PORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_PORTEValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PORTE];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_PORTEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_PORTE]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_PORTEValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_PORTEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_PORTE] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCUENTO];
end;
function TArticulosParaClienteBusinessProcessorRules.GetDESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCUENTO]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldDESCUENTOValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteDESCUENTO];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldDESCUENTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteDESCUENTO]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCUENTO] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetDESCUENTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteDESCUENTO] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_NETOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO];
end;
function TArticulosParaClienteBusinessProcessorRules.GetPRECIO_NETOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_NETOValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_NETO];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldPRECIO_NETOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClientePRECIO_NETO]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_NETOValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetPRECIO_NETOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClientePRECIO_NETO] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetINVENTARIABLEValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE];
end;
function TArticulosParaClienteBusinessProcessorRules.GetINVENTARIABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldINVENTARIABLEValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteINVENTARIABLE];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldINVENTARIABLEIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteINVENTARIABLE]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetINVENTARIABLEValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetINVENTARIABLEIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteINVENTARIABLE] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetID_PROVEEDORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_PROVEEDOR];
end;
function TArticulosParaClienteBusinessProcessorRules.GetID_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_PROVEEDOR]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldID_PROVEEDORValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteID_PROVEEDOR];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldID_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteID_PROVEEDOR]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetID_PROVEEDORValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_PROVEEDOR] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetID_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteID_PROVEEDOR] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetNOMBRE_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR];
end;
function TArticulosParaClienteBusinessProcessorRules.GetNOMBRE_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldNOMBRE_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldNOMBRE_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetNOMBRE_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetNOMBRE_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR] := Null;
end;
function TArticulosParaClienteBusinessProcessorRules.GetELIMINADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO];
end;
function TArticulosParaClienteBusinessProcessorRules.GetELIMINADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldELIMINADOValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteELIMINADO];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldELIMINADOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteELIMINADO]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetELIMINADOValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetELIMINADOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO] := Null;
end;
Filtro por tarifas en articulos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@148 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-05-15 09:26:45 +00:00
function TArticulosParaClienteBusinessProcessorRules.GetTARIFAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTARIFA];
end;
function TArticulosParaClienteBusinessProcessorRules.GetTARIFAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTARIFA]);
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldTARIFAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteTARIFA];
end;
function TArticulosParaClienteBusinessProcessorRules.GetOldTARIFAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteTARIFA]);
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetTARIFAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTARIFA] := aValue;
end;
procedure TArticulosParaClienteBusinessProcessorRules.SetTARIFAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteTARIFA] := Null;
end;
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
initialization
Primer acercamiento a pedidos de proveedor y logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@152 93f398dd-4eb6-7a46-baf6-13f46f578da2
2020-12-28 16:54:17 +00:00
RegisterBusinessProcessorRules(RID_Articulos_ProveedoresDelta, TArticulos_ProveedoresBusinessProcessorRules);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
RegisterBusinessProcessorRules(RID_ArticulosDelta, TArticulosBusinessProcessorRules);
Subida incial, con módulo de logistica git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@153 93f398dd-4eb6-7a46-baf6-13f46f578da2
2021-02-07 17:20:37 +00:00
RegisterBusinessProcessorRules(RID_ArticulosParaCompraDelta, TArticulosParaCompraBusinessProcessorRules);
Subida inicial Abeto Design - Se parte de la versión de Acana (2.4.6) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@2 93f398dd-4eb6-7a46-baf6-13f46f578da2
2011-11-14 17:40:41 +00:00
RegisterBusinessProcessorRules(RID_ArticulosParaClienteDelta, TArticulosParaClienteBusinessProcessorRules);
end.
Reference in New Issue Copy Permalink