roberto
8e46f632df
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@80 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
4451 lines
203 KiB
ObjectPascal
4451 lines
203 KiB
ObjectPascal
unit schTiendaWebServer_Intf;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schTiendaWebClient_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 }
|
|
RID_osc_CustomersDelta = '{231389E5-387B-485F-92BA-6A9D5A04B8C5}';
|
|
RID_GetLastIDDelta = '{297778AF-EA70-49C4-87B8-3A1872EB6864}';
|
|
RID_osc_AddressBookDelta = '{CA6AD7D9-BC5B-4928-8DF8-F2C4A41B1869}';
|
|
RID_TiendaWebDelta = '{F5C7B2A1-0B48-4C7D-B895-076D5824FFD5}';
|
|
RID_osc_ManufacturersDelta = '{6FF380D1-E143-4870-947A-581AAF9E9CF6}';
|
|
RID_osc_LanguagesDelta = '{CA42020F-6544-4029-BC84-51234090EB8F}';
|
|
RID_osc_ProductsDelta = '{6F4677C4-BDEF-43E8-BEE8-425AA74C13F5}';
|
|
RID_osc_OrdersDelta = '{E80B38F6-D0AA-4B8C-8110-427D492DDC37}';
|
|
RID_osc_Orders_productsDelta = '{2FCFD487-854D-420B-9586-E8F12C08F95D}';
|
|
RID_osc_Orders_status_historyDelta = '{8632B188-5EA5-4866-BFE4-90CB15C3A42B}';
|
|
|
|
type
|
|
{ Iosc_CustomersDelta }
|
|
Iosc_CustomersDelta = interface(Iosc_Customers)
|
|
['{231389E5-387B-485F-92BA-6A9D5A04B8C5}']
|
|
{ Property getters and setters }
|
|
function GetOldcustomers_idValue : Integer;
|
|
function GetOldcustomers_firstnameValue : String;
|
|
function GetOldcustomers_lastnameValue : String;
|
|
function GetOldcustomers_email_addressValue : String;
|
|
function GetOldcustomers_default_address_idValue : Integer;
|
|
function GetOldcustomers_telephoneValue : String;
|
|
function GetOldcustomers_faxValue : String;
|
|
function GetOldcustomers_passwordValue : String;
|
|
function GetOldrdx_customers_id_localValue : Integer;
|
|
function GetOlddate_account_createdValue : DateTime;
|
|
function GetOlddate_account_last_modifiedValue : DateTime;
|
|
|
|
{ Properties }
|
|
property Oldcustomers_id : Integer read GetOldcustomers_idValue;
|
|
property Oldcustomers_firstname : String read GetOldcustomers_firstnameValue;
|
|
property Oldcustomers_lastname : String read GetOldcustomers_lastnameValue;
|
|
property Oldcustomers_email_address : String read GetOldcustomers_email_addressValue;
|
|
property Oldcustomers_default_address_id : Integer read GetOldcustomers_default_address_idValue;
|
|
property Oldcustomers_telephone : String read GetOldcustomers_telephoneValue;
|
|
property Oldcustomers_fax : String read GetOldcustomers_faxValue;
|
|
property Oldcustomers_password : String read GetOldcustomers_passwordValue;
|
|
property Oldrdx_customers_id_local : Integer read GetOldrdx_customers_id_localValue;
|
|
property Olddate_account_created : DateTime read GetOlddate_account_createdValue;
|
|
property Olddate_account_last_modified : DateTime read GetOlddate_account_last_modifiedValue;
|
|
end;
|
|
|
|
{ Tosc_CustomersBusinessProcessorRules }
|
|
Tosc_CustomersBusinessProcessorRules = class(TDABusinessProcessorRules, Iosc_Customers, Iosc_CustomersDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function Getcustomers_idValue: Integer; virtual;
|
|
function Getcustomers_idIsNull: Boolean; virtual;
|
|
function GetOldcustomers_idValue: Integer; virtual;
|
|
function GetOldcustomers_idIsNull: Boolean; virtual;
|
|
procedure Setcustomers_idValue(const aValue: Integer); virtual;
|
|
procedure Setcustomers_idIsNull(const aValue: Boolean); virtual;
|
|
function Getcustomers_firstnameValue: String; virtual;
|
|
function Getcustomers_firstnameIsNull: Boolean; virtual;
|
|
function GetOldcustomers_firstnameValue: String; virtual;
|
|
function GetOldcustomers_firstnameIsNull: Boolean; virtual;
|
|
procedure Setcustomers_firstnameValue(const aValue: String); virtual;
|
|
procedure Setcustomers_firstnameIsNull(const aValue: Boolean); virtual;
|
|
function Getcustomers_lastnameValue: String; virtual;
|
|
function Getcustomers_lastnameIsNull: Boolean; virtual;
|
|
function GetOldcustomers_lastnameValue: String; virtual;
|
|
function GetOldcustomers_lastnameIsNull: Boolean; virtual;
|
|
procedure Setcustomers_lastnameValue(const aValue: String); virtual;
|
|
procedure Setcustomers_lastnameIsNull(const aValue: Boolean); virtual;
|
|
function Getcustomers_email_addressValue: String; virtual;
|
|
function Getcustomers_email_addressIsNull: Boolean; virtual;
|
|
function GetOldcustomers_email_addressValue: String; virtual;
|
|
function GetOldcustomers_email_addressIsNull: Boolean; virtual;
|
|
procedure Setcustomers_email_addressValue(const aValue: String); virtual;
|
|
procedure Setcustomers_email_addressIsNull(const aValue: Boolean); virtual;
|
|
function Getcustomers_default_address_idValue: Integer; virtual;
|
|
function Getcustomers_default_address_idIsNull: Boolean; virtual;
|
|
function GetOldcustomers_default_address_idValue: Integer; virtual;
|
|
function GetOldcustomers_default_address_idIsNull: Boolean; virtual;
|
|
procedure Setcustomers_default_address_idValue(const aValue: Integer); virtual;
|
|
procedure Setcustomers_default_address_idIsNull(const aValue: Boolean); virtual;
|
|
function Getcustomers_telephoneValue: String; virtual;
|
|
function Getcustomers_telephoneIsNull: Boolean; virtual;
|
|
function GetOldcustomers_telephoneValue: String; virtual;
|
|
function GetOldcustomers_telephoneIsNull: Boolean; virtual;
|
|
procedure Setcustomers_telephoneValue(const aValue: String); virtual;
|
|
procedure Setcustomers_telephoneIsNull(const aValue: Boolean); virtual;
|
|
function Getcustomers_faxValue: String; virtual;
|
|
function Getcustomers_faxIsNull: Boolean; virtual;
|
|
function GetOldcustomers_faxValue: String; virtual;
|
|
function GetOldcustomers_faxIsNull: Boolean; virtual;
|
|
procedure Setcustomers_faxValue(const aValue: String); virtual;
|
|
procedure Setcustomers_faxIsNull(const aValue: Boolean); virtual;
|
|
function Getcustomers_passwordValue: String; virtual;
|
|
function Getcustomers_passwordIsNull: Boolean; virtual;
|
|
function GetOldcustomers_passwordValue: String; virtual;
|
|
function GetOldcustomers_passwordIsNull: Boolean; virtual;
|
|
procedure Setcustomers_passwordValue(const aValue: String); virtual;
|
|
procedure Setcustomers_passwordIsNull(const aValue: Boolean); virtual;
|
|
function Getrdx_customers_id_localValue: Integer; virtual;
|
|
function Getrdx_customers_id_localIsNull: Boolean; virtual;
|
|
function GetOldrdx_customers_id_localValue: Integer; virtual;
|
|
function GetOldrdx_customers_id_localIsNull: Boolean; virtual;
|
|
procedure Setrdx_customers_id_localValue(const aValue: Integer); virtual;
|
|
procedure Setrdx_customers_id_localIsNull(const aValue: Boolean); virtual;
|
|
function Getdate_account_createdValue: DateTime; virtual;
|
|
function Getdate_account_createdIsNull: Boolean; virtual;
|
|
function GetOlddate_account_createdValue: DateTime; virtual;
|
|
function GetOlddate_account_createdIsNull: Boolean; virtual;
|
|
procedure Setdate_account_createdValue(const aValue: DateTime); virtual;
|
|
procedure Setdate_account_createdIsNull(const aValue: Boolean); virtual;
|
|
function Getdate_account_last_modifiedValue: DateTime; virtual;
|
|
function Getdate_account_last_modifiedIsNull: Boolean; virtual;
|
|
function GetOlddate_account_last_modifiedValue: DateTime; virtual;
|
|
function GetOlddate_account_last_modifiedIsNull: Boolean; virtual;
|
|
procedure Setdate_account_last_modifiedValue(const aValue: DateTime); virtual;
|
|
procedure Setdate_account_last_modifiedIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property customers_id : Integer read Getcustomers_idValue write Setcustomers_idValue;
|
|
property customers_idIsNull : Boolean read Getcustomers_idIsNull write Setcustomers_idIsNull;
|
|
property Oldcustomers_id : Integer read GetOldcustomers_idValue;
|
|
property Oldcustomers_idIsNull : Boolean read GetOldcustomers_idIsNull;
|
|
property customers_firstname : String read Getcustomers_firstnameValue write Setcustomers_firstnameValue;
|
|
property customers_firstnameIsNull : Boolean read Getcustomers_firstnameIsNull write Setcustomers_firstnameIsNull;
|
|
property Oldcustomers_firstname : String read GetOldcustomers_firstnameValue;
|
|
property Oldcustomers_firstnameIsNull : Boolean read GetOldcustomers_firstnameIsNull;
|
|
property customers_lastname : String read Getcustomers_lastnameValue write Setcustomers_lastnameValue;
|
|
property customers_lastnameIsNull : Boolean read Getcustomers_lastnameIsNull write Setcustomers_lastnameIsNull;
|
|
property Oldcustomers_lastname : String read GetOldcustomers_lastnameValue;
|
|
property Oldcustomers_lastnameIsNull : Boolean read GetOldcustomers_lastnameIsNull;
|
|
property customers_email_address : String read Getcustomers_email_addressValue write Setcustomers_email_addressValue;
|
|
property customers_email_addressIsNull : Boolean read Getcustomers_email_addressIsNull write Setcustomers_email_addressIsNull;
|
|
property Oldcustomers_email_address : String read GetOldcustomers_email_addressValue;
|
|
property Oldcustomers_email_addressIsNull : Boolean read GetOldcustomers_email_addressIsNull;
|
|
property customers_default_address_id : Integer read Getcustomers_default_address_idValue write Setcustomers_default_address_idValue;
|
|
property customers_default_address_idIsNull : Boolean read Getcustomers_default_address_idIsNull write Setcustomers_default_address_idIsNull;
|
|
property Oldcustomers_default_address_id : Integer read GetOldcustomers_default_address_idValue;
|
|
property Oldcustomers_default_address_idIsNull : Boolean read GetOldcustomers_default_address_idIsNull;
|
|
property customers_telephone : String read Getcustomers_telephoneValue write Setcustomers_telephoneValue;
|
|
property customers_telephoneIsNull : Boolean read Getcustomers_telephoneIsNull write Setcustomers_telephoneIsNull;
|
|
property Oldcustomers_telephone : String read GetOldcustomers_telephoneValue;
|
|
property Oldcustomers_telephoneIsNull : Boolean read GetOldcustomers_telephoneIsNull;
|
|
property customers_fax : String read Getcustomers_faxValue write Setcustomers_faxValue;
|
|
property customers_faxIsNull : Boolean read Getcustomers_faxIsNull write Setcustomers_faxIsNull;
|
|
property Oldcustomers_fax : String read GetOldcustomers_faxValue;
|
|
property Oldcustomers_faxIsNull : Boolean read GetOldcustomers_faxIsNull;
|
|
property customers_password : String read Getcustomers_passwordValue write Setcustomers_passwordValue;
|
|
property customers_passwordIsNull : Boolean read Getcustomers_passwordIsNull write Setcustomers_passwordIsNull;
|
|
property Oldcustomers_password : String read GetOldcustomers_passwordValue;
|
|
property Oldcustomers_passwordIsNull : Boolean read GetOldcustomers_passwordIsNull;
|
|
property rdx_customers_id_local : Integer read Getrdx_customers_id_localValue write Setrdx_customers_id_localValue;
|
|
property rdx_customers_id_localIsNull : Boolean read Getrdx_customers_id_localIsNull write Setrdx_customers_id_localIsNull;
|
|
property Oldrdx_customers_id_local : Integer read GetOldrdx_customers_id_localValue;
|
|
property Oldrdx_customers_id_localIsNull : Boolean read GetOldrdx_customers_id_localIsNull;
|
|
property date_account_created : DateTime read Getdate_account_createdValue write Setdate_account_createdValue;
|
|
property date_account_createdIsNull : Boolean read Getdate_account_createdIsNull write Setdate_account_createdIsNull;
|
|
property Olddate_account_created : DateTime read GetOlddate_account_createdValue;
|
|
property Olddate_account_createdIsNull : Boolean read GetOlddate_account_createdIsNull;
|
|
property date_account_last_modified : DateTime read Getdate_account_last_modifiedValue write Setdate_account_last_modifiedValue;
|
|
property date_account_last_modifiedIsNull : Boolean read Getdate_account_last_modifiedIsNull write Setdate_account_last_modifiedIsNull;
|
|
property Olddate_account_last_modified : DateTime read GetOlddate_account_last_modifiedValue;
|
|
property Olddate_account_last_modifiedIsNull : Boolean read GetOlddate_account_last_modifiedIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ IGetLastIDDelta }
|
|
IGetLastIDDelta = interface(IGetLastID)
|
|
['{297778AF-EA70-49C4-87B8-3A1872EB6864}']
|
|
{ Property getters and setters }
|
|
function GetOldlast_idValue : Integer;
|
|
|
|
{ Properties }
|
|
property Oldlast_id : Integer read GetOldlast_idValue;
|
|
end;
|
|
|
|
{ TGetLastIDBusinessProcessorRules }
|
|
TGetLastIDBusinessProcessorRules = class(TDABusinessProcessorRules, IGetLastID, IGetLastIDDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function Getlast_idValue: Integer; virtual;
|
|
function Getlast_idIsNull: Boolean; virtual;
|
|
function GetOldlast_idValue: Integer; virtual;
|
|
function GetOldlast_idIsNull: Boolean; virtual;
|
|
procedure Setlast_idValue(const aValue: Integer); virtual;
|
|
procedure Setlast_idIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property last_id : Integer read Getlast_idValue write Setlast_idValue;
|
|
property last_idIsNull : Boolean read Getlast_idIsNull write Setlast_idIsNull;
|
|
property Oldlast_id : Integer read GetOldlast_idValue;
|
|
property Oldlast_idIsNull : Boolean read GetOldlast_idIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ Iosc_AddressBookDelta }
|
|
Iosc_AddressBookDelta = interface(Iosc_AddressBook)
|
|
['{CA6AD7D9-BC5B-4928-8DF8-F2C4A41B1869}']
|
|
{ Property getters and setters }
|
|
function GetOldaddress_book_idValue : Integer;
|
|
function GetOldcustomers_idValue : Integer;
|
|
function GetOldentry_genderValue : String;
|
|
function GetOldentry_companyValue : String;
|
|
function GetOldentry_firstnameValue : String;
|
|
function GetOldentry_lastnameValue : String;
|
|
function GetOldentry_street_addressValue : String;
|
|
function GetOldentry_suburbValue : String;
|
|
function GetOldentry_postcodeValue : String;
|
|
function GetOldentry_cityValue : String;
|
|
function GetOldentry_stateValue : String;
|
|
function GetOldentry_country_idValue : Integer;
|
|
function GetOldentry_zone_idValue : Integer;
|
|
function GetOldentry_telephoneValue : String;
|
|
function GetOldrdx_address_book_id_localValue : Integer;
|
|
|
|
{ Properties }
|
|
property Oldaddress_book_id : Integer read GetOldaddress_book_idValue;
|
|
property Oldcustomers_id : Integer read GetOldcustomers_idValue;
|
|
property Oldentry_gender : String read GetOldentry_genderValue;
|
|
property Oldentry_company : String read GetOldentry_companyValue;
|
|
property Oldentry_firstname : String read GetOldentry_firstnameValue;
|
|
property Oldentry_lastname : String read GetOldentry_lastnameValue;
|
|
property Oldentry_street_address : String read GetOldentry_street_addressValue;
|
|
property Oldentry_suburb : String read GetOldentry_suburbValue;
|
|
property Oldentry_postcode : String read GetOldentry_postcodeValue;
|
|
property Oldentry_city : String read GetOldentry_cityValue;
|
|
property Oldentry_state : String read GetOldentry_stateValue;
|
|
property Oldentry_country_id : Integer read GetOldentry_country_idValue;
|
|
property Oldentry_zone_id : Integer read GetOldentry_zone_idValue;
|
|
property Oldentry_telephone : String read GetOldentry_telephoneValue;
|
|
property Oldrdx_address_book_id_local : Integer read GetOldrdx_address_book_id_localValue;
|
|
end;
|
|
|
|
{ Tosc_AddressBookBusinessProcessorRules }
|
|
Tosc_AddressBookBusinessProcessorRules = class(TDABusinessProcessorRules, Iosc_AddressBook, Iosc_AddressBookDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function Getaddress_book_idValue: Integer; virtual;
|
|
function Getaddress_book_idIsNull: Boolean; virtual;
|
|
function GetOldaddress_book_idValue: Integer; virtual;
|
|
function GetOldaddress_book_idIsNull: Boolean; virtual;
|
|
procedure Setaddress_book_idValue(const aValue: Integer); virtual;
|
|
procedure Setaddress_book_idIsNull(const aValue: Boolean); virtual;
|
|
function Getcustomers_idValue: Integer; virtual;
|
|
function Getcustomers_idIsNull: Boolean; virtual;
|
|
function GetOldcustomers_idValue: Integer; virtual;
|
|
function GetOldcustomers_idIsNull: Boolean; virtual;
|
|
procedure Setcustomers_idValue(const aValue: Integer); virtual;
|
|
procedure Setcustomers_idIsNull(const aValue: Boolean); virtual;
|
|
function Getentry_genderValue: String; virtual;
|
|
function Getentry_genderIsNull: Boolean; virtual;
|
|
function GetOldentry_genderValue: String; virtual;
|
|
function GetOldentry_genderIsNull: Boolean; virtual;
|
|
procedure Setentry_genderValue(const aValue: String); virtual;
|
|
procedure Setentry_genderIsNull(const aValue: Boolean); virtual;
|
|
function Getentry_companyValue: String; virtual;
|
|
function Getentry_companyIsNull: Boolean; virtual;
|
|
function GetOldentry_companyValue: String; virtual;
|
|
function GetOldentry_companyIsNull: Boolean; virtual;
|
|
procedure Setentry_companyValue(const aValue: String); virtual;
|
|
procedure Setentry_companyIsNull(const aValue: Boolean); virtual;
|
|
function Getentry_firstnameValue: String; virtual;
|
|
function Getentry_firstnameIsNull: Boolean; virtual;
|
|
function GetOldentry_firstnameValue: String; virtual;
|
|
function GetOldentry_firstnameIsNull: Boolean; virtual;
|
|
procedure Setentry_firstnameValue(const aValue: String); virtual;
|
|
procedure Setentry_firstnameIsNull(const aValue: Boolean); virtual;
|
|
function Getentry_lastnameValue: String; virtual;
|
|
function Getentry_lastnameIsNull: Boolean; virtual;
|
|
function GetOldentry_lastnameValue: String; virtual;
|
|
function GetOldentry_lastnameIsNull: Boolean; virtual;
|
|
procedure Setentry_lastnameValue(const aValue: String); virtual;
|
|
procedure Setentry_lastnameIsNull(const aValue: Boolean); virtual;
|
|
function Getentry_street_addressValue: String; virtual;
|
|
function Getentry_street_addressIsNull: Boolean; virtual;
|
|
function GetOldentry_street_addressValue: String; virtual;
|
|
function GetOldentry_street_addressIsNull: Boolean; virtual;
|
|
procedure Setentry_street_addressValue(const aValue: String); virtual;
|
|
procedure Setentry_street_addressIsNull(const aValue: Boolean); virtual;
|
|
function Getentry_suburbValue: String; virtual;
|
|
function Getentry_suburbIsNull: Boolean; virtual;
|
|
function GetOldentry_suburbValue: String; virtual;
|
|
function GetOldentry_suburbIsNull: Boolean; virtual;
|
|
procedure Setentry_suburbValue(const aValue: String); virtual;
|
|
procedure Setentry_suburbIsNull(const aValue: Boolean); virtual;
|
|
function Getentry_postcodeValue: String; virtual;
|
|
function Getentry_postcodeIsNull: Boolean; virtual;
|
|
function GetOldentry_postcodeValue: String; virtual;
|
|
function GetOldentry_postcodeIsNull: Boolean; virtual;
|
|
procedure Setentry_postcodeValue(const aValue: String); virtual;
|
|
procedure Setentry_postcodeIsNull(const aValue: Boolean); virtual;
|
|
function Getentry_cityValue: String; virtual;
|
|
function Getentry_cityIsNull: Boolean; virtual;
|
|
function GetOldentry_cityValue: String; virtual;
|
|
function GetOldentry_cityIsNull: Boolean; virtual;
|
|
procedure Setentry_cityValue(const aValue: String); virtual;
|
|
procedure Setentry_cityIsNull(const aValue: Boolean); virtual;
|
|
function Getentry_stateValue: String; virtual;
|
|
function Getentry_stateIsNull: Boolean; virtual;
|
|
function GetOldentry_stateValue: String; virtual;
|
|
function GetOldentry_stateIsNull: Boolean; virtual;
|
|
procedure Setentry_stateValue(const aValue: String); virtual;
|
|
procedure Setentry_stateIsNull(const aValue: Boolean); virtual;
|
|
function Getentry_country_idValue: Integer; virtual;
|
|
function Getentry_country_idIsNull: Boolean; virtual;
|
|
function GetOldentry_country_idValue: Integer; virtual;
|
|
function GetOldentry_country_idIsNull: Boolean; virtual;
|
|
procedure Setentry_country_idValue(const aValue: Integer); virtual;
|
|
procedure Setentry_country_idIsNull(const aValue: Boolean); virtual;
|
|
function Getentry_zone_idValue: Integer; virtual;
|
|
function Getentry_zone_idIsNull: Boolean; virtual;
|
|
function GetOldentry_zone_idValue: Integer; virtual;
|
|
function GetOldentry_zone_idIsNull: Boolean; virtual;
|
|
procedure Setentry_zone_idValue(const aValue: Integer); virtual;
|
|
procedure Setentry_zone_idIsNull(const aValue: Boolean); virtual;
|
|
function Getentry_telephoneValue: String; virtual;
|
|
function Getentry_telephoneIsNull: Boolean; virtual;
|
|
function GetOldentry_telephoneValue: String; virtual;
|
|
function GetOldentry_telephoneIsNull: Boolean; virtual;
|
|
procedure Setentry_telephoneValue(const aValue: String); virtual;
|
|
procedure Setentry_telephoneIsNull(const aValue: Boolean); virtual;
|
|
function Getrdx_address_book_id_localValue: Integer; virtual;
|
|
function Getrdx_address_book_id_localIsNull: Boolean; virtual;
|
|
function GetOldrdx_address_book_id_localValue: Integer; virtual;
|
|
function GetOldrdx_address_book_id_localIsNull: Boolean; virtual;
|
|
procedure Setrdx_address_book_id_localValue(const aValue: Integer); virtual;
|
|
procedure Setrdx_address_book_id_localIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property address_book_id : Integer read Getaddress_book_idValue write Setaddress_book_idValue;
|
|
property address_book_idIsNull : Boolean read Getaddress_book_idIsNull write Setaddress_book_idIsNull;
|
|
property Oldaddress_book_id : Integer read GetOldaddress_book_idValue;
|
|
property Oldaddress_book_idIsNull : Boolean read GetOldaddress_book_idIsNull;
|
|
property customers_id : Integer read Getcustomers_idValue write Setcustomers_idValue;
|
|
property customers_idIsNull : Boolean read Getcustomers_idIsNull write Setcustomers_idIsNull;
|
|
property Oldcustomers_id : Integer read GetOldcustomers_idValue;
|
|
property Oldcustomers_idIsNull : Boolean read GetOldcustomers_idIsNull;
|
|
property entry_gender : String read Getentry_genderValue write Setentry_genderValue;
|
|
property entry_genderIsNull : Boolean read Getentry_genderIsNull write Setentry_genderIsNull;
|
|
property Oldentry_gender : String read GetOldentry_genderValue;
|
|
property Oldentry_genderIsNull : Boolean read GetOldentry_genderIsNull;
|
|
property entry_company : String read Getentry_companyValue write Setentry_companyValue;
|
|
property entry_companyIsNull : Boolean read Getentry_companyIsNull write Setentry_companyIsNull;
|
|
property Oldentry_company : String read GetOldentry_companyValue;
|
|
property Oldentry_companyIsNull : Boolean read GetOldentry_companyIsNull;
|
|
property entry_firstname : String read Getentry_firstnameValue write Setentry_firstnameValue;
|
|
property entry_firstnameIsNull : Boolean read Getentry_firstnameIsNull write Setentry_firstnameIsNull;
|
|
property Oldentry_firstname : String read GetOldentry_firstnameValue;
|
|
property Oldentry_firstnameIsNull : Boolean read GetOldentry_firstnameIsNull;
|
|
property entry_lastname : String read Getentry_lastnameValue write Setentry_lastnameValue;
|
|
property entry_lastnameIsNull : Boolean read Getentry_lastnameIsNull write Setentry_lastnameIsNull;
|
|
property Oldentry_lastname : String read GetOldentry_lastnameValue;
|
|
property Oldentry_lastnameIsNull : Boolean read GetOldentry_lastnameIsNull;
|
|
property entry_street_address : String read Getentry_street_addressValue write Setentry_street_addressValue;
|
|
property entry_street_addressIsNull : Boolean read Getentry_street_addressIsNull write Setentry_street_addressIsNull;
|
|
property Oldentry_street_address : String read GetOldentry_street_addressValue;
|
|
property Oldentry_street_addressIsNull : Boolean read GetOldentry_street_addressIsNull;
|
|
property entry_suburb : String read Getentry_suburbValue write Setentry_suburbValue;
|
|
property entry_suburbIsNull : Boolean read Getentry_suburbIsNull write Setentry_suburbIsNull;
|
|
property Oldentry_suburb : String read GetOldentry_suburbValue;
|
|
property Oldentry_suburbIsNull : Boolean read GetOldentry_suburbIsNull;
|
|
property entry_postcode : String read Getentry_postcodeValue write Setentry_postcodeValue;
|
|
property entry_postcodeIsNull : Boolean read Getentry_postcodeIsNull write Setentry_postcodeIsNull;
|
|
property Oldentry_postcode : String read GetOldentry_postcodeValue;
|
|
property Oldentry_postcodeIsNull : Boolean read GetOldentry_postcodeIsNull;
|
|
property entry_city : String read Getentry_cityValue write Setentry_cityValue;
|
|
property entry_cityIsNull : Boolean read Getentry_cityIsNull write Setentry_cityIsNull;
|
|
property Oldentry_city : String read GetOldentry_cityValue;
|
|
property Oldentry_cityIsNull : Boolean read GetOldentry_cityIsNull;
|
|
property entry_state : String read Getentry_stateValue write Setentry_stateValue;
|
|
property entry_stateIsNull : Boolean read Getentry_stateIsNull write Setentry_stateIsNull;
|
|
property Oldentry_state : String read GetOldentry_stateValue;
|
|
property Oldentry_stateIsNull : Boolean read GetOldentry_stateIsNull;
|
|
property entry_country_id : Integer read Getentry_country_idValue write Setentry_country_idValue;
|
|
property entry_country_idIsNull : Boolean read Getentry_country_idIsNull write Setentry_country_idIsNull;
|
|
property Oldentry_country_id : Integer read GetOldentry_country_idValue;
|
|
property Oldentry_country_idIsNull : Boolean read GetOldentry_country_idIsNull;
|
|
property entry_zone_id : Integer read Getentry_zone_idValue write Setentry_zone_idValue;
|
|
property entry_zone_idIsNull : Boolean read Getentry_zone_idIsNull write Setentry_zone_idIsNull;
|
|
property Oldentry_zone_id : Integer read GetOldentry_zone_idValue;
|
|
property Oldentry_zone_idIsNull : Boolean read GetOldentry_zone_idIsNull;
|
|
property entry_telephone : String read Getentry_telephoneValue write Setentry_telephoneValue;
|
|
property entry_telephoneIsNull : Boolean read Getentry_telephoneIsNull write Setentry_telephoneIsNull;
|
|
property Oldentry_telephone : String read GetOldentry_telephoneValue;
|
|
property Oldentry_telephoneIsNull : Boolean read GetOldentry_telephoneIsNull;
|
|
property rdx_address_book_id_local : Integer read Getrdx_address_book_id_localValue write Setrdx_address_book_id_localValue;
|
|
property rdx_address_book_id_localIsNull : Boolean read Getrdx_address_book_id_localIsNull write Setrdx_address_book_id_localIsNull;
|
|
property Oldrdx_address_book_id_local : Integer read GetOldrdx_address_book_id_localValue;
|
|
property Oldrdx_address_book_id_localIsNull : Boolean read GetOldrdx_address_book_id_localIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ ITiendaWebDelta }
|
|
ITiendaWebDelta = interface(ITiendaWeb)
|
|
['{F5C7B2A1-0B48-4C7D-B895-076D5824FFD5}']
|
|
{ Property getters and setters }
|
|
function GetOldIDValue : Integer;
|
|
function GetOldID_EMPRESAValue : Integer;
|
|
function GetOldTIENDA_ACTIVAValue : Integer;
|
|
function GetOldBDSERVERValue : String;
|
|
function GetOldBDPORTValue : String;
|
|
function GetOldBDNAMEValue : String;
|
|
function GetOldBDUSERValue : String;
|
|
function GetOldBDPASSValue : String;
|
|
function GetOldULTIMA_ACTUALIZACIONValue : DateTime;
|
|
|
|
{ Properties }
|
|
property OldID : Integer read GetOldIDValue;
|
|
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
|
property OldTIENDA_ACTIVA : Integer read GetOldTIENDA_ACTIVAValue;
|
|
property OldBDSERVER : String read GetOldBDSERVERValue;
|
|
property OldBDPORT : String read GetOldBDPORTValue;
|
|
property OldBDNAME : String read GetOldBDNAMEValue;
|
|
property OldBDUSER : String read GetOldBDUSERValue;
|
|
property OldBDPASS : String read GetOldBDPASSValue;
|
|
property OldULTIMA_ACTUALIZACION : DateTime read GetOldULTIMA_ACTUALIZACIONValue;
|
|
end;
|
|
|
|
{ TTiendaWebBusinessProcessorRules }
|
|
TTiendaWebBusinessProcessorRules = class(TDABusinessProcessorRules, ITiendaWeb, ITiendaWebDelta)
|
|
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_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 GetTIENDA_ACTIVAValue: Integer; virtual;
|
|
function GetTIENDA_ACTIVAIsNull: Boolean; virtual;
|
|
function GetOldTIENDA_ACTIVAValue: Integer; virtual;
|
|
function GetOldTIENDA_ACTIVAIsNull: Boolean; virtual;
|
|
procedure SetTIENDA_ACTIVAValue(const aValue: Integer); virtual;
|
|
procedure SetTIENDA_ACTIVAIsNull(const aValue: Boolean); virtual;
|
|
function GetBDSERVERValue: String; virtual;
|
|
function GetBDSERVERIsNull: Boolean; virtual;
|
|
function GetOldBDSERVERValue: String; virtual;
|
|
function GetOldBDSERVERIsNull: Boolean; virtual;
|
|
procedure SetBDSERVERValue(const aValue: String); virtual;
|
|
procedure SetBDSERVERIsNull(const aValue: Boolean); virtual;
|
|
function GetBDPORTValue: String; virtual;
|
|
function GetBDPORTIsNull: Boolean; virtual;
|
|
function GetOldBDPORTValue: String; virtual;
|
|
function GetOldBDPORTIsNull: Boolean; virtual;
|
|
procedure SetBDPORTValue(const aValue: String); virtual;
|
|
procedure SetBDPORTIsNull(const aValue: Boolean); virtual;
|
|
function GetBDNAMEValue: String; virtual;
|
|
function GetBDNAMEIsNull: Boolean; virtual;
|
|
function GetOldBDNAMEValue: String; virtual;
|
|
function GetOldBDNAMEIsNull: Boolean; virtual;
|
|
procedure SetBDNAMEValue(const aValue: String); virtual;
|
|
procedure SetBDNAMEIsNull(const aValue: Boolean); virtual;
|
|
function GetBDUSERValue: String; virtual;
|
|
function GetBDUSERIsNull: Boolean; virtual;
|
|
function GetOldBDUSERValue: String; virtual;
|
|
function GetOldBDUSERIsNull: Boolean; virtual;
|
|
procedure SetBDUSERValue(const aValue: String); virtual;
|
|
procedure SetBDUSERIsNull(const aValue: Boolean); virtual;
|
|
function GetBDPASSValue: String; virtual;
|
|
function GetBDPASSIsNull: Boolean; virtual;
|
|
function GetOldBDPASSValue: String; virtual;
|
|
function GetOldBDPASSIsNull: Boolean; virtual;
|
|
procedure SetBDPASSValue(const aValue: String); virtual;
|
|
procedure SetBDPASSIsNull(const aValue: Boolean); virtual;
|
|
function GetULTIMA_ACTUALIZACIONValue: DateTime; virtual;
|
|
function GetULTIMA_ACTUALIZACIONIsNull: Boolean; virtual;
|
|
function GetOldULTIMA_ACTUALIZACIONValue: DateTime; virtual;
|
|
function GetOldULTIMA_ACTUALIZACIONIsNull: Boolean; virtual;
|
|
procedure SetULTIMA_ACTUALIZACIONValue(const aValue: DateTime); virtual;
|
|
procedure SetULTIMA_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_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 TIENDA_ACTIVA : Integer read GetTIENDA_ACTIVAValue write SetTIENDA_ACTIVAValue;
|
|
property TIENDA_ACTIVAIsNull : Boolean read GetTIENDA_ACTIVAIsNull write SetTIENDA_ACTIVAIsNull;
|
|
property OldTIENDA_ACTIVA : Integer read GetOldTIENDA_ACTIVAValue;
|
|
property OldTIENDA_ACTIVAIsNull : Boolean read GetOldTIENDA_ACTIVAIsNull;
|
|
property BDSERVER : String read GetBDSERVERValue write SetBDSERVERValue;
|
|
property BDSERVERIsNull : Boolean read GetBDSERVERIsNull write SetBDSERVERIsNull;
|
|
property OldBDSERVER : String read GetOldBDSERVERValue;
|
|
property OldBDSERVERIsNull : Boolean read GetOldBDSERVERIsNull;
|
|
property BDPORT : String read GetBDPORTValue write SetBDPORTValue;
|
|
property BDPORTIsNull : Boolean read GetBDPORTIsNull write SetBDPORTIsNull;
|
|
property OldBDPORT : String read GetOldBDPORTValue;
|
|
property OldBDPORTIsNull : Boolean read GetOldBDPORTIsNull;
|
|
property BDNAME : String read GetBDNAMEValue write SetBDNAMEValue;
|
|
property BDNAMEIsNull : Boolean read GetBDNAMEIsNull write SetBDNAMEIsNull;
|
|
property OldBDNAME : String read GetOldBDNAMEValue;
|
|
property OldBDNAMEIsNull : Boolean read GetOldBDNAMEIsNull;
|
|
property BDUSER : String read GetBDUSERValue write SetBDUSERValue;
|
|
property BDUSERIsNull : Boolean read GetBDUSERIsNull write SetBDUSERIsNull;
|
|
property OldBDUSER : String read GetOldBDUSERValue;
|
|
property OldBDUSERIsNull : Boolean read GetOldBDUSERIsNull;
|
|
property BDPASS : String read GetBDPASSValue write SetBDPASSValue;
|
|
property BDPASSIsNull : Boolean read GetBDPASSIsNull write SetBDPASSIsNull;
|
|
property OldBDPASS : String read GetOldBDPASSValue;
|
|
property OldBDPASSIsNull : Boolean read GetOldBDPASSIsNull;
|
|
property ULTIMA_ACTUALIZACION : DateTime read GetULTIMA_ACTUALIZACIONValue write SetULTIMA_ACTUALIZACIONValue;
|
|
property ULTIMA_ACTUALIZACIONIsNull : Boolean read GetULTIMA_ACTUALIZACIONIsNull write SetULTIMA_ACTUALIZACIONIsNull;
|
|
property OldULTIMA_ACTUALIZACION : DateTime read GetOldULTIMA_ACTUALIZACIONValue;
|
|
property OldULTIMA_ACTUALIZACIONIsNull : Boolean read GetOldULTIMA_ACTUALIZACIONIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ Iosc_ManufacturersDelta }
|
|
Iosc_ManufacturersDelta = interface(Iosc_Manufacturers)
|
|
['{6FF380D1-E143-4870-947A-581AAF9E9CF6}']
|
|
{ Property getters and setters }
|
|
function GetOldmanufacturers_idValue : Integer;
|
|
function GetOldmanufacturers_nameValue : String;
|
|
function GetOldmanufacturers_imageValue : String;
|
|
function GetOlddate_addedValue : DateTime;
|
|
function GetOldlast_modifiedValue : DateTime;
|
|
function GetOldrdx_manufacturers_id_localValue : Integer;
|
|
|
|
{ Properties }
|
|
property Oldmanufacturers_id : Integer read GetOldmanufacturers_idValue;
|
|
property Oldmanufacturers_name : String read GetOldmanufacturers_nameValue;
|
|
property Oldmanufacturers_image : String read GetOldmanufacturers_imageValue;
|
|
property Olddate_added : DateTime read GetOlddate_addedValue;
|
|
property Oldlast_modified : DateTime read GetOldlast_modifiedValue;
|
|
property Oldrdx_manufacturers_id_local : Integer read GetOldrdx_manufacturers_id_localValue;
|
|
end;
|
|
|
|
{ Tosc_ManufacturersBusinessProcessorRules }
|
|
Tosc_ManufacturersBusinessProcessorRules = class(TDABusinessProcessorRules, Iosc_Manufacturers, Iosc_ManufacturersDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function Getmanufacturers_idValue: Integer; virtual;
|
|
function Getmanufacturers_idIsNull: Boolean; virtual;
|
|
function GetOldmanufacturers_idValue: Integer; virtual;
|
|
function GetOldmanufacturers_idIsNull: Boolean; virtual;
|
|
procedure Setmanufacturers_idValue(const aValue: Integer); virtual;
|
|
procedure Setmanufacturers_idIsNull(const aValue: Boolean); virtual;
|
|
function Getmanufacturers_nameValue: String; virtual;
|
|
function Getmanufacturers_nameIsNull: Boolean; virtual;
|
|
function GetOldmanufacturers_nameValue: String; virtual;
|
|
function GetOldmanufacturers_nameIsNull: Boolean; virtual;
|
|
procedure Setmanufacturers_nameValue(const aValue: String); virtual;
|
|
procedure Setmanufacturers_nameIsNull(const aValue: Boolean); virtual;
|
|
function Getmanufacturers_imageValue: String; virtual;
|
|
function Getmanufacturers_imageIsNull: Boolean; virtual;
|
|
function GetOldmanufacturers_imageValue: String; virtual;
|
|
function GetOldmanufacturers_imageIsNull: Boolean; virtual;
|
|
procedure Setmanufacturers_imageValue(const aValue: String); virtual;
|
|
procedure Setmanufacturers_imageIsNull(const aValue: Boolean); virtual;
|
|
function Getdate_addedValue: DateTime; virtual;
|
|
function Getdate_addedIsNull: Boolean; virtual;
|
|
function GetOlddate_addedValue: DateTime; virtual;
|
|
function GetOlddate_addedIsNull: Boolean; virtual;
|
|
procedure Setdate_addedValue(const aValue: DateTime); virtual;
|
|
procedure Setdate_addedIsNull(const aValue: Boolean); virtual;
|
|
function Getlast_modifiedValue: DateTime; virtual;
|
|
function Getlast_modifiedIsNull: Boolean; virtual;
|
|
function GetOldlast_modifiedValue: DateTime; virtual;
|
|
function GetOldlast_modifiedIsNull: Boolean; virtual;
|
|
procedure Setlast_modifiedValue(const aValue: DateTime); virtual;
|
|
procedure Setlast_modifiedIsNull(const aValue: Boolean); virtual;
|
|
function Getrdx_manufacturers_id_localValue: Integer; virtual;
|
|
function Getrdx_manufacturers_id_localIsNull: Boolean; virtual;
|
|
function GetOldrdx_manufacturers_id_localValue: Integer; virtual;
|
|
function GetOldrdx_manufacturers_id_localIsNull: Boolean; virtual;
|
|
procedure Setrdx_manufacturers_id_localValue(const aValue: Integer); virtual;
|
|
procedure Setrdx_manufacturers_id_localIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property manufacturers_id : Integer read Getmanufacturers_idValue write Setmanufacturers_idValue;
|
|
property manufacturers_idIsNull : Boolean read Getmanufacturers_idIsNull write Setmanufacturers_idIsNull;
|
|
property Oldmanufacturers_id : Integer read GetOldmanufacturers_idValue;
|
|
property Oldmanufacturers_idIsNull : Boolean read GetOldmanufacturers_idIsNull;
|
|
property manufacturers_name : String read Getmanufacturers_nameValue write Setmanufacturers_nameValue;
|
|
property manufacturers_nameIsNull : Boolean read Getmanufacturers_nameIsNull write Setmanufacturers_nameIsNull;
|
|
property Oldmanufacturers_name : String read GetOldmanufacturers_nameValue;
|
|
property Oldmanufacturers_nameIsNull : Boolean read GetOldmanufacturers_nameIsNull;
|
|
property manufacturers_image : String read Getmanufacturers_imageValue write Setmanufacturers_imageValue;
|
|
property manufacturers_imageIsNull : Boolean read Getmanufacturers_imageIsNull write Setmanufacturers_imageIsNull;
|
|
property Oldmanufacturers_image : String read GetOldmanufacturers_imageValue;
|
|
property Oldmanufacturers_imageIsNull : Boolean read GetOldmanufacturers_imageIsNull;
|
|
property date_added : DateTime read Getdate_addedValue write Setdate_addedValue;
|
|
property date_addedIsNull : Boolean read Getdate_addedIsNull write Setdate_addedIsNull;
|
|
property Olddate_added : DateTime read GetOlddate_addedValue;
|
|
property Olddate_addedIsNull : Boolean read GetOlddate_addedIsNull;
|
|
property last_modified : DateTime read Getlast_modifiedValue write Setlast_modifiedValue;
|
|
property last_modifiedIsNull : Boolean read Getlast_modifiedIsNull write Setlast_modifiedIsNull;
|
|
property Oldlast_modified : DateTime read GetOldlast_modifiedValue;
|
|
property Oldlast_modifiedIsNull : Boolean read GetOldlast_modifiedIsNull;
|
|
property rdx_manufacturers_id_local : Integer read Getrdx_manufacturers_id_localValue write Setrdx_manufacturers_id_localValue;
|
|
property rdx_manufacturers_id_localIsNull : Boolean read Getrdx_manufacturers_id_localIsNull write Setrdx_manufacturers_id_localIsNull;
|
|
property Oldrdx_manufacturers_id_local : Integer read GetOldrdx_manufacturers_id_localValue;
|
|
property Oldrdx_manufacturers_id_localIsNull : Boolean read GetOldrdx_manufacturers_id_localIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ Iosc_LanguagesDelta }
|
|
Iosc_LanguagesDelta = interface(Iosc_Languages)
|
|
['{CA42020F-6544-4029-BC84-51234090EB8F}']
|
|
{ Property getters and setters }
|
|
function GetOldlanguages_idValue : Integer;
|
|
function GetOldnameValue : String;
|
|
function GetOldcodeValue : String;
|
|
function GetOldimageValue : String;
|
|
function GetOlddirectoryValue : String;
|
|
function GetOldsort_orderValue : Integer;
|
|
|
|
{ Properties }
|
|
property Oldlanguages_id : Integer read GetOldlanguages_idValue;
|
|
property Oldname : String read GetOldnameValue;
|
|
property Oldcode : String read GetOldcodeValue;
|
|
property Oldimage : String read GetOldimageValue;
|
|
property Olddirectory : String read GetOlddirectoryValue;
|
|
property Oldsort_order : Integer read GetOldsort_orderValue;
|
|
end;
|
|
|
|
{ Tosc_LanguagesBusinessProcessorRules }
|
|
Tosc_LanguagesBusinessProcessorRules = class(TDABusinessProcessorRules, Iosc_Languages, Iosc_LanguagesDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function Getlanguages_idValue: Integer; virtual;
|
|
function Getlanguages_idIsNull: Boolean; virtual;
|
|
function GetOldlanguages_idValue: Integer; virtual;
|
|
function GetOldlanguages_idIsNull: Boolean; virtual;
|
|
procedure Setlanguages_idValue(const aValue: Integer); virtual;
|
|
procedure Setlanguages_idIsNull(const aValue: Boolean); virtual;
|
|
function GetnameValue: String; virtual;
|
|
function GetnameIsNull: Boolean; virtual;
|
|
function GetOldnameValue: String; virtual;
|
|
function GetOldnameIsNull: Boolean; virtual;
|
|
procedure SetnameValue(const aValue: String); virtual;
|
|
procedure SetnameIsNull(const aValue: Boolean); virtual;
|
|
function GetcodeValue: String; virtual;
|
|
function GetcodeIsNull: Boolean; virtual;
|
|
function GetOldcodeValue: String; virtual;
|
|
function GetOldcodeIsNull: Boolean; virtual;
|
|
procedure SetcodeValue(const aValue: String); virtual;
|
|
procedure SetcodeIsNull(const aValue: Boolean); virtual;
|
|
function GetimageValue: String; virtual;
|
|
function GetimageIsNull: Boolean; virtual;
|
|
function GetOldimageValue: String; virtual;
|
|
function GetOldimageIsNull: Boolean; virtual;
|
|
procedure SetimageValue(const aValue: String); virtual;
|
|
procedure SetimageIsNull(const aValue: Boolean); virtual;
|
|
function GetdirectoryValue: String; virtual;
|
|
function GetdirectoryIsNull: Boolean; virtual;
|
|
function GetOlddirectoryValue: String; virtual;
|
|
function GetOlddirectoryIsNull: Boolean; virtual;
|
|
procedure SetdirectoryValue(const aValue: String); virtual;
|
|
procedure SetdirectoryIsNull(const aValue: Boolean); virtual;
|
|
function Getsort_orderValue: Integer; virtual;
|
|
function Getsort_orderIsNull: Boolean; virtual;
|
|
function GetOldsort_orderValue: Integer; virtual;
|
|
function GetOldsort_orderIsNull: Boolean; virtual;
|
|
procedure Setsort_orderValue(const aValue: Integer); virtual;
|
|
procedure Setsort_orderIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property languages_id : Integer read Getlanguages_idValue write Setlanguages_idValue;
|
|
property languages_idIsNull : Boolean read Getlanguages_idIsNull write Setlanguages_idIsNull;
|
|
property Oldlanguages_id : Integer read GetOldlanguages_idValue;
|
|
property Oldlanguages_idIsNull : Boolean read GetOldlanguages_idIsNull;
|
|
property name : String read GetnameValue write SetnameValue;
|
|
property nameIsNull : Boolean read GetnameIsNull write SetnameIsNull;
|
|
property Oldname : String read GetOldnameValue;
|
|
property OldnameIsNull : Boolean read GetOldnameIsNull;
|
|
property code : String read GetcodeValue write SetcodeValue;
|
|
property codeIsNull : Boolean read GetcodeIsNull write SetcodeIsNull;
|
|
property Oldcode : String read GetOldcodeValue;
|
|
property OldcodeIsNull : Boolean read GetOldcodeIsNull;
|
|
property image : String read GetimageValue write SetimageValue;
|
|
property imageIsNull : Boolean read GetimageIsNull write SetimageIsNull;
|
|
property Oldimage : String read GetOldimageValue;
|
|
property OldimageIsNull : Boolean read GetOldimageIsNull;
|
|
property directory : String read GetdirectoryValue write SetdirectoryValue;
|
|
property directoryIsNull : Boolean read GetdirectoryIsNull write SetdirectoryIsNull;
|
|
property Olddirectory : String read GetOlddirectoryValue;
|
|
property OlddirectoryIsNull : Boolean read GetOlddirectoryIsNull;
|
|
property sort_order : Integer read Getsort_orderValue write Setsort_orderValue;
|
|
property sort_orderIsNull : Boolean read Getsort_orderIsNull write Setsort_orderIsNull;
|
|
property Oldsort_order : Integer read GetOldsort_orderValue;
|
|
property Oldsort_orderIsNull : Boolean read GetOldsort_orderIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ Iosc_ProductsDelta }
|
|
Iosc_ProductsDelta = interface(Iosc_Products)
|
|
['{6F4677C4-BDEF-43E8-BEE8-425AA74C13F5}']
|
|
{ Property getters and setters }
|
|
function GetOldproducts_idValue : Integer;
|
|
function GetOldproducts_nameValue : String;
|
|
function GetOldproducts_descriptionValue : IROStrings;
|
|
function GetOldproducts_modelValue : String;
|
|
function GetOldproducts_date_addedValue : DateTime;
|
|
function GetOldproducts_last_modifiedValue : DateTime;
|
|
function GetOldproducts_statusValue : Integer;
|
|
function GetOldmanufacturers_idValue : Integer;
|
|
function GetOldrdx_products_id_localValue : Integer;
|
|
|
|
{ Properties }
|
|
property Oldproducts_id : Integer read GetOldproducts_idValue;
|
|
property Oldproducts_name : String read GetOldproducts_nameValue;
|
|
property Oldproducts_description : IROStrings read GetOldproducts_descriptionValue;
|
|
property Oldproducts_model : String read GetOldproducts_modelValue;
|
|
property Oldproducts_date_added : DateTime read GetOldproducts_date_addedValue;
|
|
property Oldproducts_last_modified : DateTime read GetOldproducts_last_modifiedValue;
|
|
property Oldproducts_status : Integer read GetOldproducts_statusValue;
|
|
property Oldmanufacturers_id : Integer read GetOldmanufacturers_idValue;
|
|
property Oldrdx_products_id_local : Integer read GetOldrdx_products_id_localValue;
|
|
end;
|
|
|
|
{ Tosc_ProductsBusinessProcessorRules }
|
|
Tosc_ProductsBusinessProcessorRules = class(TDABusinessProcessorRules, Iosc_Products, Iosc_ProductsDelta)
|
|
private
|
|
f_products_description: IROStrings;
|
|
procedure products_description_OnChange(Sender: TObject);
|
|
protected
|
|
{ Property getters and setters }
|
|
function Getproducts_idValue: Integer; virtual;
|
|
function Getproducts_idIsNull: Boolean; virtual;
|
|
function GetOldproducts_idValue: Integer; virtual;
|
|
function GetOldproducts_idIsNull: Boolean; virtual;
|
|
procedure Setproducts_idValue(const aValue: Integer); virtual;
|
|
procedure Setproducts_idIsNull(const aValue: Boolean); virtual;
|
|
function Getproducts_nameValue: String; virtual;
|
|
function Getproducts_nameIsNull: Boolean; virtual;
|
|
function GetOldproducts_nameValue: String; virtual;
|
|
function GetOldproducts_nameIsNull: Boolean; virtual;
|
|
procedure Setproducts_nameValue(const aValue: String); virtual;
|
|
procedure Setproducts_nameIsNull(const aValue: Boolean); virtual;
|
|
function Getproducts_descriptionValue: IROStrings; virtual;
|
|
function Getproducts_descriptionIsNull: Boolean; virtual;
|
|
function GetOldproducts_descriptionValue: IROStrings; virtual;
|
|
function GetOldproducts_descriptionIsNull: Boolean; virtual;
|
|
procedure Setproducts_descriptionIsNull(const aValue: Boolean); virtual;
|
|
function Getproducts_modelValue: String; virtual;
|
|
function Getproducts_modelIsNull: Boolean; virtual;
|
|
function GetOldproducts_modelValue: String; virtual;
|
|
function GetOldproducts_modelIsNull: Boolean; virtual;
|
|
procedure Setproducts_modelValue(const aValue: String); virtual;
|
|
procedure Setproducts_modelIsNull(const aValue: Boolean); virtual;
|
|
function Getproducts_date_addedValue: DateTime; virtual;
|
|
function Getproducts_date_addedIsNull: Boolean; virtual;
|
|
function GetOldproducts_date_addedValue: DateTime; virtual;
|
|
function GetOldproducts_date_addedIsNull: Boolean; virtual;
|
|
procedure Setproducts_date_addedValue(const aValue: DateTime); virtual;
|
|
procedure Setproducts_date_addedIsNull(const aValue: Boolean); virtual;
|
|
function Getproducts_last_modifiedValue: DateTime; virtual;
|
|
function Getproducts_last_modifiedIsNull: Boolean; virtual;
|
|
function GetOldproducts_last_modifiedValue: DateTime; virtual;
|
|
function GetOldproducts_last_modifiedIsNull: Boolean; virtual;
|
|
procedure Setproducts_last_modifiedValue(const aValue: DateTime); virtual;
|
|
procedure Setproducts_last_modifiedIsNull(const aValue: Boolean); virtual;
|
|
function Getproducts_statusValue: Integer; virtual;
|
|
function Getproducts_statusIsNull: Boolean; virtual;
|
|
function GetOldproducts_statusValue: Integer; virtual;
|
|
function GetOldproducts_statusIsNull: Boolean; virtual;
|
|
procedure Setproducts_statusValue(const aValue: Integer); virtual;
|
|
procedure Setproducts_statusIsNull(const aValue: Boolean); virtual;
|
|
function Getmanufacturers_idValue: Integer; virtual;
|
|
function Getmanufacturers_idIsNull: Boolean; virtual;
|
|
function GetOldmanufacturers_idValue: Integer; virtual;
|
|
function GetOldmanufacturers_idIsNull: Boolean; virtual;
|
|
procedure Setmanufacturers_idValue(const aValue: Integer); virtual;
|
|
procedure Setmanufacturers_idIsNull(const aValue: Boolean); virtual;
|
|
function Getrdx_products_id_localValue: Integer; virtual;
|
|
function Getrdx_products_id_localIsNull: Boolean; virtual;
|
|
function GetOldrdx_products_id_localValue: Integer; virtual;
|
|
function GetOldrdx_products_id_localIsNull: Boolean; virtual;
|
|
procedure Setrdx_products_id_localValue(const aValue: Integer); virtual;
|
|
procedure Setrdx_products_id_localIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property products_id : Integer read Getproducts_idValue write Setproducts_idValue;
|
|
property products_idIsNull : Boolean read Getproducts_idIsNull write Setproducts_idIsNull;
|
|
property Oldproducts_id : Integer read GetOldproducts_idValue;
|
|
property Oldproducts_idIsNull : Boolean read GetOldproducts_idIsNull;
|
|
property products_name : String read Getproducts_nameValue write Setproducts_nameValue;
|
|
property products_nameIsNull : Boolean read Getproducts_nameIsNull write Setproducts_nameIsNull;
|
|
property Oldproducts_name : String read GetOldproducts_nameValue;
|
|
property Oldproducts_nameIsNull : Boolean read GetOldproducts_nameIsNull;
|
|
property products_description : IROStrings read Getproducts_descriptionValue;
|
|
property products_descriptionIsNull : Boolean read Getproducts_descriptionIsNull write Setproducts_descriptionIsNull;
|
|
property Oldproducts_description : IROStrings read GetOldproducts_descriptionValue;
|
|
property Oldproducts_descriptionIsNull : Boolean read GetOldproducts_descriptionIsNull;
|
|
property products_model : String read Getproducts_modelValue write Setproducts_modelValue;
|
|
property products_modelIsNull : Boolean read Getproducts_modelIsNull write Setproducts_modelIsNull;
|
|
property Oldproducts_model : String read GetOldproducts_modelValue;
|
|
property Oldproducts_modelIsNull : Boolean read GetOldproducts_modelIsNull;
|
|
property products_date_added : DateTime read Getproducts_date_addedValue write Setproducts_date_addedValue;
|
|
property products_date_addedIsNull : Boolean read Getproducts_date_addedIsNull write Setproducts_date_addedIsNull;
|
|
property Oldproducts_date_added : DateTime read GetOldproducts_date_addedValue;
|
|
property Oldproducts_date_addedIsNull : Boolean read GetOldproducts_date_addedIsNull;
|
|
property products_last_modified : DateTime read Getproducts_last_modifiedValue write Setproducts_last_modifiedValue;
|
|
property products_last_modifiedIsNull : Boolean read Getproducts_last_modifiedIsNull write Setproducts_last_modifiedIsNull;
|
|
property Oldproducts_last_modified : DateTime read GetOldproducts_last_modifiedValue;
|
|
property Oldproducts_last_modifiedIsNull : Boolean read GetOldproducts_last_modifiedIsNull;
|
|
property products_status : Integer read Getproducts_statusValue write Setproducts_statusValue;
|
|
property products_statusIsNull : Boolean read Getproducts_statusIsNull write Setproducts_statusIsNull;
|
|
property Oldproducts_status : Integer read GetOldproducts_statusValue;
|
|
property Oldproducts_statusIsNull : Boolean read GetOldproducts_statusIsNull;
|
|
property manufacturers_id : Integer read Getmanufacturers_idValue write Setmanufacturers_idValue;
|
|
property manufacturers_idIsNull : Boolean read Getmanufacturers_idIsNull write Setmanufacturers_idIsNull;
|
|
property Oldmanufacturers_id : Integer read GetOldmanufacturers_idValue;
|
|
property Oldmanufacturers_idIsNull : Boolean read GetOldmanufacturers_idIsNull;
|
|
property rdx_products_id_local : Integer read Getrdx_products_id_localValue write Setrdx_products_id_localValue;
|
|
property rdx_products_id_localIsNull : Boolean read Getrdx_products_id_localIsNull write Setrdx_products_id_localIsNull;
|
|
property Oldrdx_products_id_local : Integer read GetOldrdx_products_id_localValue;
|
|
property Oldrdx_products_id_localIsNull : Boolean read GetOldrdx_products_id_localIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ Iosc_OrdersDelta }
|
|
Iosc_OrdersDelta = interface(Iosc_Orders)
|
|
['{E80B38F6-D0AA-4B8C-8110-427D492DDC37}']
|
|
{ Property getters and setters }
|
|
function GetOldorders_idValue : Integer;
|
|
function GetOldrdx_orders_id_localValue : Integer;
|
|
function GetOldcustomers_idValue : Integer;
|
|
function GetOldrdx_customers_id_localValue : Integer;
|
|
function GetOlddelivery_nameValue : String;
|
|
function GetOlddelivery_companyValue : String;
|
|
function GetOlddelivery_street_addressValue : String;
|
|
function GetOlddelivery_suburbValue : String;
|
|
function GetOlddelivery_cityValue : String;
|
|
function GetOlddelivery_postcodeValue : String;
|
|
function GetOlddelivery_stateValue : String;
|
|
function GetOlddelivery_countryValue : String;
|
|
function GetOlddelivery_telephoneValue : String;
|
|
function GetOldlast_modifiedValue : DateTime;
|
|
function GetOlddate_purchasedValue : DateTime;
|
|
function GetOldorders_statusValue : Integer;
|
|
function GetOldorders_date_finishedValue : DateTime;
|
|
function GetOldcommentsValue : IROStrings;
|
|
function GetOldrdx_ship_dateValue : DateTime;
|
|
function GetOldrdx_referencia_clienteValue : String;
|
|
|
|
{ Properties }
|
|
property Oldorders_id : Integer read GetOldorders_idValue;
|
|
property Oldrdx_orders_id_local : Integer read GetOldrdx_orders_id_localValue;
|
|
property Oldcustomers_id : Integer read GetOldcustomers_idValue;
|
|
property Oldrdx_customers_id_local : Integer read GetOldrdx_customers_id_localValue;
|
|
property Olddelivery_name : String read GetOlddelivery_nameValue;
|
|
property Olddelivery_company : String read GetOlddelivery_companyValue;
|
|
property Olddelivery_street_address : String read GetOlddelivery_street_addressValue;
|
|
property Olddelivery_suburb : String read GetOlddelivery_suburbValue;
|
|
property Olddelivery_city : String read GetOlddelivery_cityValue;
|
|
property Olddelivery_postcode : String read GetOlddelivery_postcodeValue;
|
|
property Olddelivery_state : String read GetOlddelivery_stateValue;
|
|
property Olddelivery_country : String read GetOlddelivery_countryValue;
|
|
property Olddelivery_telephone : String read GetOlddelivery_telephoneValue;
|
|
property Oldlast_modified : DateTime read GetOldlast_modifiedValue;
|
|
property Olddate_purchased : DateTime read GetOlddate_purchasedValue;
|
|
property Oldorders_status : Integer read GetOldorders_statusValue;
|
|
property Oldorders_date_finished : DateTime read GetOldorders_date_finishedValue;
|
|
property Oldcomments : IROStrings read GetOldcommentsValue;
|
|
property Oldrdx_ship_date : DateTime read GetOldrdx_ship_dateValue;
|
|
property Oldrdx_referencia_cliente : String read GetOldrdx_referencia_clienteValue;
|
|
end;
|
|
|
|
{ Tosc_OrdersBusinessProcessorRules }
|
|
Tosc_OrdersBusinessProcessorRules = class(TDABusinessProcessorRules, Iosc_Orders, Iosc_OrdersDelta)
|
|
private
|
|
f_comments: IROStrings;
|
|
procedure comments_OnChange(Sender: TObject);
|
|
protected
|
|
{ Property getters and setters }
|
|
function Getorders_idValue: Integer; virtual;
|
|
function Getorders_idIsNull: Boolean; virtual;
|
|
function GetOldorders_idValue: Integer; virtual;
|
|
function GetOldorders_idIsNull: Boolean; virtual;
|
|
procedure Setorders_idValue(const aValue: Integer); virtual;
|
|
procedure Setorders_idIsNull(const aValue: Boolean); virtual;
|
|
function Getrdx_orders_id_localValue: Integer; virtual;
|
|
function Getrdx_orders_id_localIsNull: Boolean; virtual;
|
|
function GetOldrdx_orders_id_localValue: Integer; virtual;
|
|
function GetOldrdx_orders_id_localIsNull: Boolean; virtual;
|
|
procedure Setrdx_orders_id_localValue(const aValue: Integer); virtual;
|
|
procedure Setrdx_orders_id_localIsNull(const aValue: Boolean); virtual;
|
|
function Getcustomers_idValue: Integer; virtual;
|
|
function Getcustomers_idIsNull: Boolean; virtual;
|
|
function GetOldcustomers_idValue: Integer; virtual;
|
|
function GetOldcustomers_idIsNull: Boolean; virtual;
|
|
procedure Setcustomers_idValue(const aValue: Integer); virtual;
|
|
procedure Setcustomers_idIsNull(const aValue: Boolean); virtual;
|
|
function Getrdx_customers_id_localValue: Integer; virtual;
|
|
function Getrdx_customers_id_localIsNull: Boolean; virtual;
|
|
function GetOldrdx_customers_id_localValue: Integer; virtual;
|
|
function GetOldrdx_customers_id_localIsNull: Boolean; virtual;
|
|
procedure Setrdx_customers_id_localValue(const aValue: Integer); virtual;
|
|
procedure Setrdx_customers_id_localIsNull(const aValue: Boolean); virtual;
|
|
function Getdelivery_nameValue: String; virtual;
|
|
function Getdelivery_nameIsNull: Boolean; virtual;
|
|
function GetOlddelivery_nameValue: String; virtual;
|
|
function GetOlddelivery_nameIsNull: Boolean; virtual;
|
|
procedure Setdelivery_nameValue(const aValue: String); virtual;
|
|
procedure Setdelivery_nameIsNull(const aValue: Boolean); virtual;
|
|
function Getdelivery_companyValue: String; virtual;
|
|
function Getdelivery_companyIsNull: Boolean; virtual;
|
|
function GetOlddelivery_companyValue: String; virtual;
|
|
function GetOlddelivery_companyIsNull: Boolean; virtual;
|
|
procedure Setdelivery_companyValue(const aValue: String); virtual;
|
|
procedure Setdelivery_companyIsNull(const aValue: Boolean); virtual;
|
|
function Getdelivery_street_addressValue: String; virtual;
|
|
function Getdelivery_street_addressIsNull: Boolean; virtual;
|
|
function GetOlddelivery_street_addressValue: String; virtual;
|
|
function GetOlddelivery_street_addressIsNull: Boolean; virtual;
|
|
procedure Setdelivery_street_addressValue(const aValue: String); virtual;
|
|
procedure Setdelivery_street_addressIsNull(const aValue: Boolean); virtual;
|
|
function Getdelivery_suburbValue: String; virtual;
|
|
function Getdelivery_suburbIsNull: Boolean; virtual;
|
|
function GetOlddelivery_suburbValue: String; virtual;
|
|
function GetOlddelivery_suburbIsNull: Boolean; virtual;
|
|
procedure Setdelivery_suburbValue(const aValue: String); virtual;
|
|
procedure Setdelivery_suburbIsNull(const aValue: Boolean); virtual;
|
|
function Getdelivery_cityValue: String; virtual;
|
|
function Getdelivery_cityIsNull: Boolean; virtual;
|
|
function GetOlddelivery_cityValue: String; virtual;
|
|
function GetOlddelivery_cityIsNull: Boolean; virtual;
|
|
procedure Setdelivery_cityValue(const aValue: String); virtual;
|
|
procedure Setdelivery_cityIsNull(const aValue: Boolean); virtual;
|
|
function Getdelivery_postcodeValue: String; virtual;
|
|
function Getdelivery_postcodeIsNull: Boolean; virtual;
|
|
function GetOlddelivery_postcodeValue: String; virtual;
|
|
function GetOlddelivery_postcodeIsNull: Boolean; virtual;
|
|
procedure Setdelivery_postcodeValue(const aValue: String); virtual;
|
|
procedure Setdelivery_postcodeIsNull(const aValue: Boolean); virtual;
|
|
function Getdelivery_stateValue: String; virtual;
|
|
function Getdelivery_stateIsNull: Boolean; virtual;
|
|
function GetOlddelivery_stateValue: String; virtual;
|
|
function GetOlddelivery_stateIsNull: Boolean; virtual;
|
|
procedure Setdelivery_stateValue(const aValue: String); virtual;
|
|
procedure Setdelivery_stateIsNull(const aValue: Boolean); virtual;
|
|
function Getdelivery_countryValue: String; virtual;
|
|
function Getdelivery_countryIsNull: Boolean; virtual;
|
|
function GetOlddelivery_countryValue: String; virtual;
|
|
function GetOlddelivery_countryIsNull: Boolean; virtual;
|
|
procedure Setdelivery_countryValue(const aValue: String); virtual;
|
|
procedure Setdelivery_countryIsNull(const aValue: Boolean); virtual;
|
|
function Getdelivery_telephoneValue: String; virtual;
|
|
function Getdelivery_telephoneIsNull: Boolean; virtual;
|
|
function GetOlddelivery_telephoneValue: String; virtual;
|
|
function GetOlddelivery_telephoneIsNull: Boolean; virtual;
|
|
procedure Setdelivery_telephoneValue(const aValue: String); virtual;
|
|
procedure Setdelivery_telephoneIsNull(const aValue: Boolean); virtual;
|
|
function Getlast_modifiedValue: DateTime; virtual;
|
|
function Getlast_modifiedIsNull: Boolean; virtual;
|
|
function GetOldlast_modifiedValue: DateTime; virtual;
|
|
function GetOldlast_modifiedIsNull: Boolean; virtual;
|
|
procedure Setlast_modifiedValue(const aValue: DateTime); virtual;
|
|
procedure Setlast_modifiedIsNull(const aValue: Boolean); virtual;
|
|
function Getdate_purchasedValue: DateTime; virtual;
|
|
function Getdate_purchasedIsNull: Boolean; virtual;
|
|
function GetOlddate_purchasedValue: DateTime; virtual;
|
|
function GetOlddate_purchasedIsNull: Boolean; virtual;
|
|
procedure Setdate_purchasedValue(const aValue: DateTime); virtual;
|
|
procedure Setdate_purchasedIsNull(const aValue: Boolean); virtual;
|
|
function Getorders_statusValue: Integer; virtual;
|
|
function Getorders_statusIsNull: Boolean; virtual;
|
|
function GetOldorders_statusValue: Integer; virtual;
|
|
function GetOldorders_statusIsNull: Boolean; virtual;
|
|
procedure Setorders_statusValue(const aValue: Integer); virtual;
|
|
procedure Setorders_statusIsNull(const aValue: Boolean); virtual;
|
|
function Getorders_date_finishedValue: DateTime; virtual;
|
|
function Getorders_date_finishedIsNull: Boolean; virtual;
|
|
function GetOldorders_date_finishedValue: DateTime; virtual;
|
|
function GetOldorders_date_finishedIsNull: Boolean; virtual;
|
|
procedure Setorders_date_finishedValue(const aValue: DateTime); virtual;
|
|
procedure Setorders_date_finishedIsNull(const aValue: Boolean); virtual;
|
|
function GetcommentsValue: IROStrings; virtual;
|
|
function GetcommentsIsNull: Boolean; virtual;
|
|
function GetOldcommentsValue: IROStrings; virtual;
|
|
function GetOldcommentsIsNull: Boolean; virtual;
|
|
procedure SetcommentsIsNull(const aValue: Boolean); virtual;
|
|
function Getrdx_ship_dateValue: DateTime; virtual;
|
|
function Getrdx_ship_dateIsNull: Boolean; virtual;
|
|
function GetOldrdx_ship_dateValue: DateTime; virtual;
|
|
function GetOldrdx_ship_dateIsNull: Boolean; virtual;
|
|
procedure Setrdx_ship_dateValue(const aValue: DateTime); virtual;
|
|
procedure Setrdx_ship_dateIsNull(const aValue: Boolean); virtual;
|
|
function Getrdx_referencia_clienteValue: String; virtual;
|
|
function Getrdx_referencia_clienteIsNull: Boolean; virtual;
|
|
function GetOldrdx_referencia_clienteValue: String; virtual;
|
|
function GetOldrdx_referencia_clienteIsNull: Boolean; virtual;
|
|
procedure Setrdx_referencia_clienteValue(const aValue: String); virtual;
|
|
procedure Setrdx_referencia_clienteIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property orders_id : Integer read Getorders_idValue write Setorders_idValue;
|
|
property orders_idIsNull : Boolean read Getorders_idIsNull write Setorders_idIsNull;
|
|
property Oldorders_id : Integer read GetOldorders_idValue;
|
|
property Oldorders_idIsNull : Boolean read GetOldorders_idIsNull;
|
|
property rdx_orders_id_local : Integer read Getrdx_orders_id_localValue write Setrdx_orders_id_localValue;
|
|
property rdx_orders_id_localIsNull : Boolean read Getrdx_orders_id_localIsNull write Setrdx_orders_id_localIsNull;
|
|
property Oldrdx_orders_id_local : Integer read GetOldrdx_orders_id_localValue;
|
|
property Oldrdx_orders_id_localIsNull : Boolean read GetOldrdx_orders_id_localIsNull;
|
|
property customers_id : Integer read Getcustomers_idValue write Setcustomers_idValue;
|
|
property customers_idIsNull : Boolean read Getcustomers_idIsNull write Setcustomers_idIsNull;
|
|
property Oldcustomers_id : Integer read GetOldcustomers_idValue;
|
|
property Oldcustomers_idIsNull : Boolean read GetOldcustomers_idIsNull;
|
|
property rdx_customers_id_local : Integer read Getrdx_customers_id_localValue write Setrdx_customers_id_localValue;
|
|
property rdx_customers_id_localIsNull : Boolean read Getrdx_customers_id_localIsNull write Setrdx_customers_id_localIsNull;
|
|
property Oldrdx_customers_id_local : Integer read GetOldrdx_customers_id_localValue;
|
|
property Oldrdx_customers_id_localIsNull : Boolean read GetOldrdx_customers_id_localIsNull;
|
|
property delivery_name : String read Getdelivery_nameValue write Setdelivery_nameValue;
|
|
property delivery_nameIsNull : Boolean read Getdelivery_nameIsNull write Setdelivery_nameIsNull;
|
|
property Olddelivery_name : String read GetOlddelivery_nameValue;
|
|
property Olddelivery_nameIsNull : Boolean read GetOlddelivery_nameIsNull;
|
|
property delivery_company : String read Getdelivery_companyValue write Setdelivery_companyValue;
|
|
property delivery_companyIsNull : Boolean read Getdelivery_companyIsNull write Setdelivery_companyIsNull;
|
|
property Olddelivery_company : String read GetOlddelivery_companyValue;
|
|
property Olddelivery_companyIsNull : Boolean read GetOlddelivery_companyIsNull;
|
|
property delivery_street_address : String read Getdelivery_street_addressValue write Setdelivery_street_addressValue;
|
|
property delivery_street_addressIsNull : Boolean read Getdelivery_street_addressIsNull write Setdelivery_street_addressIsNull;
|
|
property Olddelivery_street_address : String read GetOlddelivery_street_addressValue;
|
|
property Olddelivery_street_addressIsNull : Boolean read GetOlddelivery_street_addressIsNull;
|
|
property delivery_suburb : String read Getdelivery_suburbValue write Setdelivery_suburbValue;
|
|
property delivery_suburbIsNull : Boolean read Getdelivery_suburbIsNull write Setdelivery_suburbIsNull;
|
|
property Olddelivery_suburb : String read GetOlddelivery_suburbValue;
|
|
property Olddelivery_suburbIsNull : Boolean read GetOlddelivery_suburbIsNull;
|
|
property delivery_city : String read Getdelivery_cityValue write Setdelivery_cityValue;
|
|
property delivery_cityIsNull : Boolean read Getdelivery_cityIsNull write Setdelivery_cityIsNull;
|
|
property Olddelivery_city : String read GetOlddelivery_cityValue;
|
|
property Olddelivery_cityIsNull : Boolean read GetOlddelivery_cityIsNull;
|
|
property delivery_postcode : String read Getdelivery_postcodeValue write Setdelivery_postcodeValue;
|
|
property delivery_postcodeIsNull : Boolean read Getdelivery_postcodeIsNull write Setdelivery_postcodeIsNull;
|
|
property Olddelivery_postcode : String read GetOlddelivery_postcodeValue;
|
|
property Olddelivery_postcodeIsNull : Boolean read GetOlddelivery_postcodeIsNull;
|
|
property delivery_state : String read Getdelivery_stateValue write Setdelivery_stateValue;
|
|
property delivery_stateIsNull : Boolean read Getdelivery_stateIsNull write Setdelivery_stateIsNull;
|
|
property Olddelivery_state : String read GetOlddelivery_stateValue;
|
|
property Olddelivery_stateIsNull : Boolean read GetOlddelivery_stateIsNull;
|
|
property delivery_country : String read Getdelivery_countryValue write Setdelivery_countryValue;
|
|
property delivery_countryIsNull : Boolean read Getdelivery_countryIsNull write Setdelivery_countryIsNull;
|
|
property Olddelivery_country : String read GetOlddelivery_countryValue;
|
|
property Olddelivery_countryIsNull : Boolean read GetOlddelivery_countryIsNull;
|
|
property delivery_telephone : String read Getdelivery_telephoneValue write Setdelivery_telephoneValue;
|
|
property delivery_telephoneIsNull : Boolean read Getdelivery_telephoneIsNull write Setdelivery_telephoneIsNull;
|
|
property Olddelivery_telephone : String read GetOlddelivery_telephoneValue;
|
|
property Olddelivery_telephoneIsNull : Boolean read GetOlddelivery_telephoneIsNull;
|
|
property last_modified : DateTime read Getlast_modifiedValue write Setlast_modifiedValue;
|
|
property last_modifiedIsNull : Boolean read Getlast_modifiedIsNull write Setlast_modifiedIsNull;
|
|
property Oldlast_modified : DateTime read GetOldlast_modifiedValue;
|
|
property Oldlast_modifiedIsNull : Boolean read GetOldlast_modifiedIsNull;
|
|
property date_purchased : DateTime read Getdate_purchasedValue write Setdate_purchasedValue;
|
|
property date_purchasedIsNull : Boolean read Getdate_purchasedIsNull write Setdate_purchasedIsNull;
|
|
property Olddate_purchased : DateTime read GetOlddate_purchasedValue;
|
|
property Olddate_purchasedIsNull : Boolean read GetOlddate_purchasedIsNull;
|
|
property orders_status : Integer read Getorders_statusValue write Setorders_statusValue;
|
|
property orders_statusIsNull : Boolean read Getorders_statusIsNull write Setorders_statusIsNull;
|
|
property Oldorders_status : Integer read GetOldorders_statusValue;
|
|
property Oldorders_statusIsNull : Boolean read GetOldorders_statusIsNull;
|
|
property orders_date_finished : DateTime read Getorders_date_finishedValue write Setorders_date_finishedValue;
|
|
property orders_date_finishedIsNull : Boolean read Getorders_date_finishedIsNull write Setorders_date_finishedIsNull;
|
|
property Oldorders_date_finished : DateTime read GetOldorders_date_finishedValue;
|
|
property Oldorders_date_finishedIsNull : Boolean read GetOldorders_date_finishedIsNull;
|
|
property comments : IROStrings read GetcommentsValue;
|
|
property commentsIsNull : Boolean read GetcommentsIsNull write SetcommentsIsNull;
|
|
property Oldcomments : IROStrings read GetOldcommentsValue;
|
|
property OldcommentsIsNull : Boolean read GetOldcommentsIsNull;
|
|
property rdx_ship_date : DateTime read Getrdx_ship_dateValue write Setrdx_ship_dateValue;
|
|
property rdx_ship_dateIsNull : Boolean read Getrdx_ship_dateIsNull write Setrdx_ship_dateIsNull;
|
|
property Oldrdx_ship_date : DateTime read GetOldrdx_ship_dateValue;
|
|
property Oldrdx_ship_dateIsNull : Boolean read GetOldrdx_ship_dateIsNull;
|
|
property rdx_referencia_cliente : String read Getrdx_referencia_clienteValue write Setrdx_referencia_clienteValue;
|
|
property rdx_referencia_clienteIsNull : Boolean read Getrdx_referencia_clienteIsNull write Setrdx_referencia_clienteIsNull;
|
|
property Oldrdx_referencia_cliente : String read GetOldrdx_referencia_clienteValue;
|
|
property Oldrdx_referencia_clienteIsNull : Boolean read GetOldrdx_referencia_clienteIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ Iosc_Orders_productsDelta }
|
|
Iosc_Orders_productsDelta = interface(Iosc_Orders_products)
|
|
['{2FCFD487-854D-420B-9586-E8F12C08F95D}']
|
|
{ Property getters and setters }
|
|
function GetOldorders_products_idValue : Integer;
|
|
function GetOldorders_idValue : Integer;
|
|
function GetOldproducts_idValue : Integer;
|
|
function GetOldrdx_products_id_localValue : Integer;
|
|
function GetOldproducts_modelValue : String;
|
|
function GetOldproducts_nameValue : String;
|
|
function GetOldproducts_priceValue : Float;
|
|
function GetOldfinal_priceValue : Float;
|
|
function GetOldproducts_taxValue : Float;
|
|
function GetOldproducts_quantityValue : Integer;
|
|
|
|
{ Properties }
|
|
property Oldorders_products_id : Integer read GetOldorders_products_idValue;
|
|
property Oldorders_id : Integer read GetOldorders_idValue;
|
|
property Oldproducts_id : Integer read GetOldproducts_idValue;
|
|
property Oldrdx_products_id_local : Integer read GetOldrdx_products_id_localValue;
|
|
property Oldproducts_model : String read GetOldproducts_modelValue;
|
|
property Oldproducts_name : String read GetOldproducts_nameValue;
|
|
property Oldproducts_price : Float read GetOldproducts_priceValue;
|
|
property Oldfinal_price : Float read GetOldfinal_priceValue;
|
|
property Oldproducts_tax : Float read GetOldproducts_taxValue;
|
|
property Oldproducts_quantity : Integer read GetOldproducts_quantityValue;
|
|
end;
|
|
|
|
{ Tosc_Orders_productsBusinessProcessorRules }
|
|
Tosc_Orders_productsBusinessProcessorRules = class(TDABusinessProcessorRules, Iosc_Orders_products, Iosc_Orders_productsDelta)
|
|
private
|
|
protected
|
|
{ Property getters and setters }
|
|
function Getorders_products_idValue: Integer; virtual;
|
|
function Getorders_products_idIsNull: Boolean; virtual;
|
|
function GetOldorders_products_idValue: Integer; virtual;
|
|
function GetOldorders_products_idIsNull: Boolean; virtual;
|
|
procedure Setorders_products_idValue(const aValue: Integer); virtual;
|
|
procedure Setorders_products_idIsNull(const aValue: Boolean); virtual;
|
|
function Getorders_idValue: Integer; virtual;
|
|
function Getorders_idIsNull: Boolean; virtual;
|
|
function GetOldorders_idValue: Integer; virtual;
|
|
function GetOldorders_idIsNull: Boolean; virtual;
|
|
procedure Setorders_idValue(const aValue: Integer); virtual;
|
|
procedure Setorders_idIsNull(const aValue: Boolean); virtual;
|
|
function Getproducts_idValue: Integer; virtual;
|
|
function Getproducts_idIsNull: Boolean; virtual;
|
|
function GetOldproducts_idValue: Integer; virtual;
|
|
function GetOldproducts_idIsNull: Boolean; virtual;
|
|
procedure Setproducts_idValue(const aValue: Integer); virtual;
|
|
procedure Setproducts_idIsNull(const aValue: Boolean); virtual;
|
|
function Getrdx_products_id_localValue: Integer; virtual;
|
|
function Getrdx_products_id_localIsNull: Boolean; virtual;
|
|
function GetOldrdx_products_id_localValue: Integer; virtual;
|
|
function GetOldrdx_products_id_localIsNull: Boolean; virtual;
|
|
procedure Setrdx_products_id_localValue(const aValue: Integer); virtual;
|
|
procedure Setrdx_products_id_localIsNull(const aValue: Boolean); virtual;
|
|
function Getproducts_modelValue: String; virtual;
|
|
function Getproducts_modelIsNull: Boolean; virtual;
|
|
function GetOldproducts_modelValue: String; virtual;
|
|
function GetOldproducts_modelIsNull: Boolean; virtual;
|
|
procedure Setproducts_modelValue(const aValue: String); virtual;
|
|
procedure Setproducts_modelIsNull(const aValue: Boolean); virtual;
|
|
function Getproducts_nameValue: String; virtual;
|
|
function Getproducts_nameIsNull: Boolean; virtual;
|
|
function GetOldproducts_nameValue: String; virtual;
|
|
function GetOldproducts_nameIsNull: Boolean; virtual;
|
|
procedure Setproducts_nameValue(const aValue: String); virtual;
|
|
procedure Setproducts_nameIsNull(const aValue: Boolean); virtual;
|
|
function Getproducts_priceValue: Float; virtual;
|
|
function Getproducts_priceIsNull: Boolean; virtual;
|
|
function GetOldproducts_priceValue: Float; virtual;
|
|
function GetOldproducts_priceIsNull: Boolean; virtual;
|
|
procedure Setproducts_priceValue(const aValue: Float); virtual;
|
|
procedure Setproducts_priceIsNull(const aValue: Boolean); virtual;
|
|
function Getfinal_priceValue: Float; virtual;
|
|
function Getfinal_priceIsNull: Boolean; virtual;
|
|
function GetOldfinal_priceValue: Float; virtual;
|
|
function GetOldfinal_priceIsNull: Boolean; virtual;
|
|
procedure Setfinal_priceValue(const aValue: Float); virtual;
|
|
procedure Setfinal_priceIsNull(const aValue: Boolean); virtual;
|
|
function Getproducts_taxValue: Float; virtual;
|
|
function Getproducts_taxIsNull: Boolean; virtual;
|
|
function GetOldproducts_taxValue: Float; virtual;
|
|
function GetOldproducts_taxIsNull: Boolean; virtual;
|
|
procedure Setproducts_taxValue(const aValue: Float); virtual;
|
|
procedure Setproducts_taxIsNull(const aValue: Boolean); virtual;
|
|
function Getproducts_quantityValue: Integer; virtual;
|
|
function Getproducts_quantityIsNull: Boolean; virtual;
|
|
function GetOldproducts_quantityValue: Integer; virtual;
|
|
function GetOldproducts_quantityIsNull: Boolean; virtual;
|
|
procedure Setproducts_quantityValue(const aValue: Integer); virtual;
|
|
procedure Setproducts_quantityIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property orders_products_id : Integer read Getorders_products_idValue write Setorders_products_idValue;
|
|
property orders_products_idIsNull : Boolean read Getorders_products_idIsNull write Setorders_products_idIsNull;
|
|
property Oldorders_products_id : Integer read GetOldorders_products_idValue;
|
|
property Oldorders_products_idIsNull : Boolean read GetOldorders_products_idIsNull;
|
|
property orders_id : Integer read Getorders_idValue write Setorders_idValue;
|
|
property orders_idIsNull : Boolean read Getorders_idIsNull write Setorders_idIsNull;
|
|
property Oldorders_id : Integer read GetOldorders_idValue;
|
|
property Oldorders_idIsNull : Boolean read GetOldorders_idIsNull;
|
|
property products_id : Integer read Getproducts_idValue write Setproducts_idValue;
|
|
property products_idIsNull : Boolean read Getproducts_idIsNull write Setproducts_idIsNull;
|
|
property Oldproducts_id : Integer read GetOldproducts_idValue;
|
|
property Oldproducts_idIsNull : Boolean read GetOldproducts_idIsNull;
|
|
property rdx_products_id_local : Integer read Getrdx_products_id_localValue write Setrdx_products_id_localValue;
|
|
property rdx_products_id_localIsNull : Boolean read Getrdx_products_id_localIsNull write Setrdx_products_id_localIsNull;
|
|
property Oldrdx_products_id_local : Integer read GetOldrdx_products_id_localValue;
|
|
property Oldrdx_products_id_localIsNull : Boolean read GetOldrdx_products_id_localIsNull;
|
|
property products_model : String read Getproducts_modelValue write Setproducts_modelValue;
|
|
property products_modelIsNull : Boolean read Getproducts_modelIsNull write Setproducts_modelIsNull;
|
|
property Oldproducts_model : String read GetOldproducts_modelValue;
|
|
property Oldproducts_modelIsNull : Boolean read GetOldproducts_modelIsNull;
|
|
property products_name : String read Getproducts_nameValue write Setproducts_nameValue;
|
|
property products_nameIsNull : Boolean read Getproducts_nameIsNull write Setproducts_nameIsNull;
|
|
property Oldproducts_name : String read GetOldproducts_nameValue;
|
|
property Oldproducts_nameIsNull : Boolean read GetOldproducts_nameIsNull;
|
|
property products_price : Float read Getproducts_priceValue write Setproducts_priceValue;
|
|
property products_priceIsNull : Boolean read Getproducts_priceIsNull write Setproducts_priceIsNull;
|
|
property Oldproducts_price : Float read GetOldproducts_priceValue;
|
|
property Oldproducts_priceIsNull : Boolean read GetOldproducts_priceIsNull;
|
|
property final_price : Float read Getfinal_priceValue write Setfinal_priceValue;
|
|
property final_priceIsNull : Boolean read Getfinal_priceIsNull write Setfinal_priceIsNull;
|
|
property Oldfinal_price : Float read GetOldfinal_priceValue;
|
|
property Oldfinal_priceIsNull : Boolean read GetOldfinal_priceIsNull;
|
|
property products_tax : Float read Getproducts_taxValue write Setproducts_taxValue;
|
|
property products_taxIsNull : Boolean read Getproducts_taxIsNull write Setproducts_taxIsNull;
|
|
property Oldproducts_tax : Float read GetOldproducts_taxValue;
|
|
property Oldproducts_taxIsNull : Boolean read GetOldproducts_taxIsNull;
|
|
property products_quantity : Integer read Getproducts_quantityValue write Setproducts_quantityValue;
|
|
property products_quantityIsNull : Boolean read Getproducts_quantityIsNull write Setproducts_quantityIsNull;
|
|
property Oldproducts_quantity : Integer read GetOldproducts_quantityValue;
|
|
property Oldproducts_quantityIsNull : Boolean read GetOldproducts_quantityIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
{ Iosc_Orders_status_historyDelta }
|
|
Iosc_Orders_status_historyDelta = interface(Iosc_Orders_status_history)
|
|
['{8632B188-5EA5-4866-BFE4-90CB15C3A42B}']
|
|
{ Property getters and setters }
|
|
function GetOldorders_status_history_idValue : Integer;
|
|
function GetOldorders_idValue : Integer;
|
|
function GetOldrdx_orders_id_localValue : Integer;
|
|
function GetOldorders_status_idValue : Integer;
|
|
function GetOlddate_addedValue : DateTime;
|
|
function GetOldcustomer_notifiedValue : Integer;
|
|
function GetOldcommentsValue : IROStrings;
|
|
|
|
{ Properties }
|
|
property Oldorders_status_history_id : Integer read GetOldorders_status_history_idValue;
|
|
property Oldorders_id : Integer read GetOldorders_idValue;
|
|
property Oldrdx_orders_id_local : Integer read GetOldrdx_orders_id_localValue;
|
|
property Oldorders_status_id : Integer read GetOldorders_status_idValue;
|
|
property Olddate_added : DateTime read GetOlddate_addedValue;
|
|
property Oldcustomer_notified : Integer read GetOldcustomer_notifiedValue;
|
|
property Oldcomments : IROStrings read GetOldcommentsValue;
|
|
end;
|
|
|
|
{ Tosc_Orders_status_historyBusinessProcessorRules }
|
|
Tosc_Orders_status_historyBusinessProcessorRules = class(TDABusinessProcessorRules, Iosc_Orders_status_history, Iosc_Orders_status_historyDelta)
|
|
private
|
|
f_comments: IROStrings;
|
|
procedure comments_OnChange(Sender: TObject);
|
|
protected
|
|
{ Property getters and setters }
|
|
function Getorders_status_history_idValue: Integer; virtual;
|
|
function Getorders_status_history_idIsNull: Boolean; virtual;
|
|
function GetOldorders_status_history_idValue: Integer; virtual;
|
|
function GetOldorders_status_history_idIsNull: Boolean; virtual;
|
|
procedure Setorders_status_history_idValue(const aValue: Integer); virtual;
|
|
procedure Setorders_status_history_idIsNull(const aValue: Boolean); virtual;
|
|
function Getorders_idValue: Integer; virtual;
|
|
function Getorders_idIsNull: Boolean; virtual;
|
|
function GetOldorders_idValue: Integer; virtual;
|
|
function GetOldorders_idIsNull: Boolean; virtual;
|
|
procedure Setorders_idValue(const aValue: Integer); virtual;
|
|
procedure Setorders_idIsNull(const aValue: Boolean); virtual;
|
|
function Getrdx_orders_id_localValue: Integer; virtual;
|
|
function Getrdx_orders_id_localIsNull: Boolean; virtual;
|
|
function GetOldrdx_orders_id_localValue: Integer; virtual;
|
|
function GetOldrdx_orders_id_localIsNull: Boolean; virtual;
|
|
procedure Setrdx_orders_id_localValue(const aValue: Integer); virtual;
|
|
procedure Setrdx_orders_id_localIsNull(const aValue: Boolean); virtual;
|
|
function Getorders_status_idValue: Integer; virtual;
|
|
function Getorders_status_idIsNull: Boolean; virtual;
|
|
function GetOldorders_status_idValue: Integer; virtual;
|
|
function GetOldorders_status_idIsNull: Boolean; virtual;
|
|
procedure Setorders_status_idValue(const aValue: Integer); virtual;
|
|
procedure Setorders_status_idIsNull(const aValue: Boolean); virtual;
|
|
function Getdate_addedValue: DateTime; virtual;
|
|
function Getdate_addedIsNull: Boolean; virtual;
|
|
function GetOlddate_addedValue: DateTime; virtual;
|
|
function GetOlddate_addedIsNull: Boolean; virtual;
|
|
procedure Setdate_addedValue(const aValue: DateTime); virtual;
|
|
procedure Setdate_addedIsNull(const aValue: Boolean); virtual;
|
|
function Getcustomer_notifiedValue: Integer; virtual;
|
|
function Getcustomer_notifiedIsNull: Boolean; virtual;
|
|
function GetOldcustomer_notifiedValue: Integer; virtual;
|
|
function GetOldcustomer_notifiedIsNull: Boolean; virtual;
|
|
procedure Setcustomer_notifiedValue(const aValue: Integer); virtual;
|
|
procedure Setcustomer_notifiedIsNull(const aValue: Boolean); virtual;
|
|
function GetcommentsValue: IROStrings; virtual;
|
|
function GetcommentsIsNull: Boolean; virtual;
|
|
function GetOldcommentsValue: IROStrings; virtual;
|
|
function GetOldcommentsIsNull: Boolean; virtual;
|
|
procedure SetcommentsIsNull(const aValue: Boolean); virtual;
|
|
|
|
{ Properties }
|
|
property orders_status_history_id : Integer read Getorders_status_history_idValue write Setorders_status_history_idValue;
|
|
property orders_status_history_idIsNull : Boolean read Getorders_status_history_idIsNull write Setorders_status_history_idIsNull;
|
|
property Oldorders_status_history_id : Integer read GetOldorders_status_history_idValue;
|
|
property Oldorders_status_history_idIsNull : Boolean read GetOldorders_status_history_idIsNull;
|
|
property orders_id : Integer read Getorders_idValue write Setorders_idValue;
|
|
property orders_idIsNull : Boolean read Getorders_idIsNull write Setorders_idIsNull;
|
|
property Oldorders_id : Integer read GetOldorders_idValue;
|
|
property Oldorders_idIsNull : Boolean read GetOldorders_idIsNull;
|
|
property rdx_orders_id_local : Integer read Getrdx_orders_id_localValue write Setrdx_orders_id_localValue;
|
|
property rdx_orders_id_localIsNull : Boolean read Getrdx_orders_id_localIsNull write Setrdx_orders_id_localIsNull;
|
|
property Oldrdx_orders_id_local : Integer read GetOldrdx_orders_id_localValue;
|
|
property Oldrdx_orders_id_localIsNull : Boolean read GetOldrdx_orders_id_localIsNull;
|
|
property orders_status_id : Integer read Getorders_status_idValue write Setorders_status_idValue;
|
|
property orders_status_idIsNull : Boolean read Getorders_status_idIsNull write Setorders_status_idIsNull;
|
|
property Oldorders_status_id : Integer read GetOldorders_status_idValue;
|
|
property Oldorders_status_idIsNull : Boolean read GetOldorders_status_idIsNull;
|
|
property date_added : DateTime read Getdate_addedValue write Setdate_addedValue;
|
|
property date_addedIsNull : Boolean read Getdate_addedIsNull write Setdate_addedIsNull;
|
|
property Olddate_added : DateTime read GetOlddate_addedValue;
|
|
property Olddate_addedIsNull : Boolean read GetOlddate_addedIsNull;
|
|
property customer_notified : Integer read Getcustomer_notifiedValue write Setcustomer_notifiedValue;
|
|
property customer_notifiedIsNull : Boolean read Getcustomer_notifiedIsNull write Setcustomer_notifiedIsNull;
|
|
property Oldcustomer_notified : Integer read GetOldcustomer_notifiedValue;
|
|
property Oldcustomer_notifiedIsNull : Boolean read GetOldcustomer_notifiedIsNull;
|
|
property comments : IROStrings read GetcommentsValue;
|
|
property commentsIsNull : Boolean read GetcommentsIsNull write SetcommentsIsNull;
|
|
property Oldcomments : IROStrings read GetOldcommentsValue;
|
|
property OldcommentsIsNull : Boolean read GetOldcommentsIsNull;
|
|
|
|
public
|
|
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
|
destructor Destroy; override;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Variants, uROBinaryHelpers, uDAInterfaces;
|
|
|
|
{ Tosc_CustomersBusinessProcessorRules }
|
|
constructor Tosc_CustomersBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor Tosc_CustomersBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getcustomers_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_id];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getcustomers_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_id]);
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customerscustomers_id];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customerscustomers_id]);
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setcustomers_idValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_id] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setcustomers_idIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_id] := Null;
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getcustomers_firstnameValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_firstname];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getcustomers_firstnameIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_firstname]);
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_firstnameValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customerscustomers_firstname];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_firstnameIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customerscustomers_firstname]);
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setcustomers_firstnameValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_firstname] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setcustomers_firstnameIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_firstname] := Null;
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getcustomers_lastnameValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_lastname];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getcustomers_lastnameIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_lastname]);
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_lastnameValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customerscustomers_lastname];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_lastnameIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customerscustomers_lastname]);
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setcustomers_lastnameValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_lastname] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setcustomers_lastnameIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_lastname] := Null;
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getcustomers_email_addressValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_email_address];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getcustomers_email_addressIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_email_address]);
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_email_addressValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customerscustomers_email_address];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_email_addressIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customerscustomers_email_address]);
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setcustomers_email_addressValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_email_address] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setcustomers_email_addressIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_email_address] := Null;
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getcustomers_default_address_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_default_address_id];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getcustomers_default_address_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_default_address_id]);
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_default_address_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customerscustomers_default_address_id];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_default_address_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customerscustomers_default_address_id]);
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setcustomers_default_address_idValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_default_address_id] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setcustomers_default_address_idIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_default_address_id] := Null;
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getcustomers_telephoneValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_telephone];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getcustomers_telephoneIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_telephone]);
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_telephoneValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customerscustomers_telephone];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_telephoneIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customerscustomers_telephone]);
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setcustomers_telephoneValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_telephone] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setcustomers_telephoneIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_telephone] := Null;
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getcustomers_faxValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_fax];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getcustomers_faxIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_fax]);
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_faxValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customerscustomers_fax];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_faxIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customerscustomers_fax]);
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setcustomers_faxValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_fax] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setcustomers_faxIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_fax] := Null;
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getcustomers_passwordValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_password];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getcustomers_passwordIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_password]);
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_passwordValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customerscustomers_password];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_passwordIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customerscustomers_password]);
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setcustomers_passwordValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_password] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setcustomers_passwordIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_password] := Null;
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getrdx_customers_id_localValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customersrdx_customers_id_local];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getrdx_customers_id_localIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customersrdx_customers_id_local]);
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOldrdx_customers_id_localValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customersrdx_customers_id_local];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOldrdx_customers_id_localIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customersrdx_customers_id_local]);
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setrdx_customers_id_localValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customersrdx_customers_id_local] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setrdx_customers_id_localIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customersrdx_customers_id_local] := Null;
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getdate_account_createdValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customersdate_account_created];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getdate_account_createdIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customersdate_account_created]);
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOlddate_account_createdValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customersdate_account_created];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOlddate_account_createdIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customersdate_account_created]);
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setdate_account_createdValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customersdate_account_created] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setdate_account_createdIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customersdate_account_created] := Null;
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getdate_account_last_modifiedValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customersdate_account_last_modified];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.Getdate_account_last_modifiedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customersdate_account_last_modified]);
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOlddate_account_last_modifiedValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customersdate_account_last_modified];
|
|
end;
|
|
|
|
function Tosc_CustomersBusinessProcessorRules.GetOlddate_account_last_modifiedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Customersdate_account_last_modified]);
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setdate_account_last_modifiedValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customersdate_account_last_modified] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_CustomersBusinessProcessorRules.Setdate_account_last_modifiedIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customersdate_account_last_modified] := Null;
|
|
end;
|
|
|
|
|
|
{ TGetLastIDBusinessProcessorRules }
|
|
constructor TGetLastIDBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TGetLastIDBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TGetLastIDBusinessProcessorRules.Getlast_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_GetLastIDlast_id];
|
|
end;
|
|
|
|
function TGetLastIDBusinessProcessorRules.Getlast_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GetLastIDlast_id]);
|
|
end;
|
|
|
|
function TGetLastIDBusinessProcessorRules.GetOldlast_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_GetLastIDlast_id];
|
|
end;
|
|
|
|
function TGetLastIDBusinessProcessorRules.GetOldlast_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GetLastIDlast_id]);
|
|
end;
|
|
|
|
procedure TGetLastIDBusinessProcessorRules.Setlast_idValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_GetLastIDlast_id] := aValue;
|
|
end;
|
|
|
|
procedure TGetLastIDBusinessProcessorRules.Setlast_idIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_GetLastIDlast_id] := Null;
|
|
end;
|
|
|
|
|
|
{ Tosc_AddressBookBusinessProcessorRules }
|
|
constructor Tosc_AddressBookBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor Tosc_AddressBookBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getaddress_book_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookaddress_book_id];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getaddress_book_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookaddress_book_id]);
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldaddress_book_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookaddress_book_id];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldaddress_book_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookaddress_book_id]);
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setaddress_book_idValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookaddress_book_id] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setaddress_book_idIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookaddress_book_id] := Null;
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getcustomers_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookcustomers_id];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getcustomers_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookcustomers_id]);
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldcustomers_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookcustomers_id];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldcustomers_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookcustomers_id]);
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setcustomers_idValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookcustomers_id] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setcustomers_idIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookcustomers_id] := Null;
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_genderValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_gender];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_genderIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_gender]);
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_genderValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_gender];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_genderIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_gender]);
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_genderValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_gender] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_genderIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_gender] := Null;
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_companyValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_company];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_companyIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_company]);
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_companyValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_company];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_companyIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_company]);
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_companyValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_company] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_companyIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_company] := Null;
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_firstnameValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_firstname];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_firstnameIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_firstname]);
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_firstnameValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_firstname];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_firstnameIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_firstname]);
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_firstnameValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_firstname] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_firstnameIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_firstname] := Null;
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_lastnameValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_lastname];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_lastnameIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_lastname]);
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_lastnameValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_lastname];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_lastnameIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_lastname]);
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_lastnameValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_lastname] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_lastnameIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_lastname] := Null;
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_street_addressValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_street_address];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_street_addressIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_street_address]);
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_street_addressValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_street_address];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_street_addressIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_street_address]);
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_street_addressValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_street_address] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_street_addressIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_street_address] := Null;
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_suburbValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_suburb];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_suburbIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_suburb]);
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_suburbValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_suburb];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_suburbIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_suburb]);
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_suburbValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_suburb] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_suburbIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_suburb] := Null;
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_postcodeValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_postcode];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_postcodeIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_postcode]);
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_postcodeValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_postcode];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_postcodeIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_postcode]);
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_postcodeValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_postcode] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_postcodeIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_postcode] := Null;
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_cityValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_city];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_cityIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_city]);
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_cityValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_city];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_cityIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_city]);
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_cityValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_city] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_cityIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_city] := Null;
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_stateValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_state];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_stateIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_state]);
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_stateValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_state];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_stateIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_state]);
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_stateValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_state] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_stateIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_state] := Null;
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_country_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_country_id];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_country_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_country_id]);
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_country_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_country_id];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_country_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_country_id]);
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_country_idValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_country_id] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_country_idIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_country_id] := Null;
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_zone_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_zone_id];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_zone_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_zone_id]);
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_zone_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_zone_id];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_zone_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_zone_id]);
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_zone_idValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_zone_id] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_zone_idIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_zone_id] := Null;
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_telephoneValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_telephone];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getentry_telephoneIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_telephone]);
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_telephoneValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_telephone];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldentry_telephoneIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookentry_telephone]);
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_telephoneValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_telephone] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setentry_telephoneIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_telephone] := Null;
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getrdx_address_book_id_localValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookrdx_address_book_id_local];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.Getrdx_address_book_id_localIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookrdx_address_book_id_local]);
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldrdx_address_book_id_localValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookrdx_address_book_id_local];
|
|
end;
|
|
|
|
function Tosc_AddressBookBusinessProcessorRules.GetOldrdx_address_book_id_localIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_AddressBookrdx_address_book_id_local]);
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setrdx_address_book_id_localValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookrdx_address_book_id_local] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_AddressBookBusinessProcessorRules.Setrdx_address_book_id_localIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookrdx_address_book_id_local] := Null;
|
|
end;
|
|
|
|
|
|
{ TTiendaWebBusinessProcessorRules }
|
|
constructor TTiendaWebBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TTiendaWebBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebID];
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebID]);
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetOldIDValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebID];
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebID]);
|
|
end;
|
|
|
|
procedure TTiendaWebBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebID] := aValue;
|
|
end;
|
|
|
|
procedure TTiendaWebBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebID] := Null;
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebID_EMPRESA];
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebID_EMPRESA]);
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetOldID_EMPRESAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebID_EMPRESA];
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetOldID_EMPRESAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebID_EMPRESA]);
|
|
end;
|
|
|
|
procedure TTiendaWebBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebID_EMPRESA] := aValue;
|
|
end;
|
|
|
|
procedure TTiendaWebBusinessProcessorRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebID_EMPRESA] := Null;
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetTIENDA_ACTIVAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebTIENDA_ACTIVA];
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetTIENDA_ACTIVAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebTIENDA_ACTIVA]);
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetOldTIENDA_ACTIVAValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebTIENDA_ACTIVA];
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetOldTIENDA_ACTIVAIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebTIENDA_ACTIVA]);
|
|
end;
|
|
|
|
procedure TTiendaWebBusinessProcessorRules.SetTIENDA_ACTIVAValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebTIENDA_ACTIVA] := aValue;
|
|
end;
|
|
|
|
procedure TTiendaWebBusinessProcessorRules.SetTIENDA_ACTIVAIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebTIENDA_ACTIVA] := Null;
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetBDSERVERValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDSERVER];
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetBDSERVERIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDSERVER]);
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetOldBDSERVERValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebBDSERVER];
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetOldBDSERVERIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebBDSERVER]);
|
|
end;
|
|
|
|
procedure TTiendaWebBusinessProcessorRules.SetBDSERVERValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDSERVER] := aValue;
|
|
end;
|
|
|
|
procedure TTiendaWebBusinessProcessorRules.SetBDSERVERIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDSERVER] := Null;
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetBDPORTValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDPORT];
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetBDPORTIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDPORT]);
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetOldBDPORTValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebBDPORT];
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetOldBDPORTIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebBDPORT]);
|
|
end;
|
|
|
|
procedure TTiendaWebBusinessProcessorRules.SetBDPORTValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDPORT] := aValue;
|
|
end;
|
|
|
|
procedure TTiendaWebBusinessProcessorRules.SetBDPORTIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDPORT] := Null;
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetBDNAMEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDNAME];
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetBDNAMEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDNAME]);
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetOldBDNAMEValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebBDNAME];
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetOldBDNAMEIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebBDNAME]);
|
|
end;
|
|
|
|
procedure TTiendaWebBusinessProcessorRules.SetBDNAMEValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDNAME] := aValue;
|
|
end;
|
|
|
|
procedure TTiendaWebBusinessProcessorRules.SetBDNAMEIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDNAME] := Null;
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetBDUSERValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDUSER];
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetBDUSERIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDUSER]);
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetOldBDUSERValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebBDUSER];
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetOldBDUSERIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebBDUSER]);
|
|
end;
|
|
|
|
procedure TTiendaWebBusinessProcessorRules.SetBDUSERValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDUSER] := aValue;
|
|
end;
|
|
|
|
procedure TTiendaWebBusinessProcessorRules.SetBDUSERIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDUSER] := Null;
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetBDPASSValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDPASS];
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetBDPASSIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDPASS]);
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetOldBDPASSValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebBDPASS];
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetOldBDPASSIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebBDPASS]);
|
|
end;
|
|
|
|
procedure TTiendaWebBusinessProcessorRules.SetBDPASSValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDPASS] := aValue;
|
|
end;
|
|
|
|
procedure TTiendaWebBusinessProcessorRules.SetBDPASSIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDPASS] := Null;
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetULTIMA_ACTUALIZACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebULTIMA_ACTUALIZACION];
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetULTIMA_ACTUALIZACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebULTIMA_ACTUALIZACION]);
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetOldULTIMA_ACTUALIZACIONValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebULTIMA_ACTUALIZACION];
|
|
end;
|
|
|
|
function TTiendaWebBusinessProcessorRules.GetOldULTIMA_ACTUALIZACIONIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebULTIMA_ACTUALIZACION]);
|
|
end;
|
|
|
|
procedure TTiendaWebBusinessProcessorRules.SetULTIMA_ACTUALIZACIONValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebULTIMA_ACTUALIZACION] := aValue;
|
|
end;
|
|
|
|
procedure TTiendaWebBusinessProcessorRules.SetULTIMA_ACTUALIZACIONIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebULTIMA_ACTUALIZACION] := Null;
|
|
end;
|
|
|
|
|
|
{ Tosc_ManufacturersBusinessProcessorRules }
|
|
constructor Tosc_ManufacturersBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor Tosc_ManufacturersBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.Getmanufacturers_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersmanufacturers_id];
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.Getmanufacturers_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersmanufacturers_id]);
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.GetOldmanufacturers_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Manufacturersmanufacturers_id];
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.GetOldmanufacturers_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Manufacturersmanufacturers_id]);
|
|
end;
|
|
|
|
procedure Tosc_ManufacturersBusinessProcessorRules.Setmanufacturers_idValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersmanufacturers_id] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_ManufacturersBusinessProcessorRules.Setmanufacturers_idIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersmanufacturers_id] := Null;
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.Getmanufacturers_nameValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersmanufacturers_name];
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.Getmanufacturers_nameIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersmanufacturers_name]);
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.GetOldmanufacturers_nameValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Manufacturersmanufacturers_name];
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.GetOldmanufacturers_nameIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Manufacturersmanufacturers_name]);
|
|
end;
|
|
|
|
procedure Tosc_ManufacturersBusinessProcessorRules.Setmanufacturers_nameValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersmanufacturers_name] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_ManufacturersBusinessProcessorRules.Setmanufacturers_nameIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersmanufacturers_name] := Null;
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.Getmanufacturers_imageValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersmanufacturers_image];
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.Getmanufacturers_imageIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersmanufacturers_image]);
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.GetOldmanufacturers_imageValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Manufacturersmanufacturers_image];
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.GetOldmanufacturers_imageIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Manufacturersmanufacturers_image]);
|
|
end;
|
|
|
|
procedure Tosc_ManufacturersBusinessProcessorRules.Setmanufacturers_imageValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersmanufacturers_image] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_ManufacturersBusinessProcessorRules.Setmanufacturers_imageIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersmanufacturers_image] := Null;
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.Getdate_addedValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersdate_added];
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.Getdate_addedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersdate_added]);
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.GetOlddate_addedValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Manufacturersdate_added];
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.GetOlddate_addedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Manufacturersdate_added]);
|
|
end;
|
|
|
|
procedure Tosc_ManufacturersBusinessProcessorRules.Setdate_addedValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersdate_added] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_ManufacturersBusinessProcessorRules.Setdate_addedIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersdate_added] := Null;
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.Getlast_modifiedValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturerslast_modified];
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.Getlast_modifiedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturerslast_modified]);
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.GetOldlast_modifiedValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Manufacturerslast_modified];
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.GetOldlast_modifiedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Manufacturerslast_modified]);
|
|
end;
|
|
|
|
procedure Tosc_ManufacturersBusinessProcessorRules.Setlast_modifiedValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturerslast_modified] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_ManufacturersBusinessProcessorRules.Setlast_modifiedIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturerslast_modified] := Null;
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.Getrdx_manufacturers_id_localValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersrdx_manufacturers_id_local];
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.Getrdx_manufacturers_id_localIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersrdx_manufacturers_id_local]);
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.GetOldrdx_manufacturers_id_localValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Manufacturersrdx_manufacturers_id_local];
|
|
end;
|
|
|
|
function Tosc_ManufacturersBusinessProcessorRules.GetOldrdx_manufacturers_id_localIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Manufacturersrdx_manufacturers_id_local]);
|
|
end;
|
|
|
|
procedure Tosc_ManufacturersBusinessProcessorRules.Setrdx_manufacturers_id_localValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersrdx_manufacturers_id_local] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_ManufacturersBusinessProcessorRules.Setrdx_manufacturers_id_localIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersrdx_manufacturers_id_local] := Null;
|
|
end;
|
|
|
|
|
|
{ Tosc_LanguagesBusinessProcessorRules }
|
|
constructor Tosc_LanguagesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor Tosc_LanguagesBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.Getlanguages_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languageslanguages_id];
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.Getlanguages_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languageslanguages_id]);
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetOldlanguages_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Languageslanguages_id];
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetOldlanguages_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Languageslanguages_id]);
|
|
end;
|
|
|
|
procedure Tosc_LanguagesBusinessProcessorRules.Setlanguages_idValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languageslanguages_id] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_LanguagesBusinessProcessorRules.Setlanguages_idIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languageslanguages_id] := Null;
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetnameValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagesname];
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetnameIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagesname]);
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetOldnameValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Languagesname];
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetOldnameIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Languagesname]);
|
|
end;
|
|
|
|
procedure Tosc_LanguagesBusinessProcessorRules.SetnameValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagesname] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_LanguagesBusinessProcessorRules.SetnameIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagesname] := Null;
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetcodeValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagescode];
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetcodeIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagescode]);
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetOldcodeValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Languagescode];
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetOldcodeIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Languagescode]);
|
|
end;
|
|
|
|
procedure Tosc_LanguagesBusinessProcessorRules.SetcodeValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagescode] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_LanguagesBusinessProcessorRules.SetcodeIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagescode] := Null;
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetimageValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagesimage];
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetimageIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagesimage]);
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetOldimageValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Languagesimage];
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetOldimageIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Languagesimage]);
|
|
end;
|
|
|
|
procedure Tosc_LanguagesBusinessProcessorRules.SetimageValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagesimage] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_LanguagesBusinessProcessorRules.SetimageIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagesimage] := Null;
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetdirectoryValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagesdirectory];
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetdirectoryIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagesdirectory]);
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetOlddirectoryValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Languagesdirectory];
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetOlddirectoryIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Languagesdirectory]);
|
|
end;
|
|
|
|
procedure Tosc_LanguagesBusinessProcessorRules.SetdirectoryValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagesdirectory] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_LanguagesBusinessProcessorRules.SetdirectoryIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagesdirectory] := Null;
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.Getsort_orderValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagessort_order];
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.Getsort_orderIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagessort_order]);
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetOldsort_orderValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Languagessort_order];
|
|
end;
|
|
|
|
function Tosc_LanguagesBusinessProcessorRules.GetOldsort_orderIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Languagessort_order]);
|
|
end;
|
|
|
|
procedure Tosc_LanguagesBusinessProcessorRules.Setsort_orderValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagessort_order] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_LanguagesBusinessProcessorRules.Setsort_orderIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagessort_order] := Null;
|
|
end;
|
|
|
|
|
|
{ Tosc_ProductsBusinessProcessorRules }
|
|
constructor Tosc_ProductsBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
var
|
|
StrList: TStringList;
|
|
begin
|
|
inherited;
|
|
|
|
StrList := TStringList.Create;
|
|
StrList.OnChange := products_description_OnChange;
|
|
f_products_description := NewROStrings(StrList,True);
|
|
end;
|
|
|
|
destructor Tosc_ProductsBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
procedure Tosc_ProductsBusinessProcessorRules.products_description_OnChange(Sender: TObject);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_description] := TStringList(Sender).Text;
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.Getproducts_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_id];
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.Getproducts_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_id]);
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.GetOldproducts_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Productsproducts_id];
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.GetOldproducts_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Productsproducts_id]);
|
|
end;
|
|
|
|
procedure Tosc_ProductsBusinessProcessorRules.Setproducts_idValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_id] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_ProductsBusinessProcessorRules.Setproducts_idIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_id] := Null;
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.Getproducts_nameValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_name];
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.Getproducts_nameIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_name]);
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.GetOldproducts_nameValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Productsproducts_name];
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.GetOldproducts_nameIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Productsproducts_name]);
|
|
end;
|
|
|
|
procedure Tosc_ProductsBusinessProcessorRules.Setproducts_nameValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_name] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_ProductsBusinessProcessorRules.Setproducts_nameIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_name] := Null;
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.Getproducts_descriptionValue: IROStrings;
|
|
begin
|
|
result := f_products_description;
|
|
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_description];
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.Getproducts_descriptionIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_description]);
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.GetOldproducts_descriptionValue: IROStrings;
|
|
begin
|
|
result := NewROStrings();
|
|
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Productsproducts_description];
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.GetOldproducts_descriptionIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Productsproducts_description]);
|
|
end;
|
|
|
|
procedure Tosc_ProductsBusinessProcessorRules.Setproducts_descriptionIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_description] := Null;
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.Getproducts_modelValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_model];
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.Getproducts_modelIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_model]);
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.GetOldproducts_modelValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Productsproducts_model];
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.GetOldproducts_modelIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Productsproducts_model]);
|
|
end;
|
|
|
|
procedure Tosc_ProductsBusinessProcessorRules.Setproducts_modelValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_model] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_ProductsBusinessProcessorRules.Setproducts_modelIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_model] := Null;
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.Getproducts_date_addedValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_date_added];
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.Getproducts_date_addedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_date_added]);
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.GetOldproducts_date_addedValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Productsproducts_date_added];
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.GetOldproducts_date_addedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Productsproducts_date_added]);
|
|
end;
|
|
|
|
procedure Tosc_ProductsBusinessProcessorRules.Setproducts_date_addedValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_date_added] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_ProductsBusinessProcessorRules.Setproducts_date_addedIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_date_added] := Null;
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.Getproducts_last_modifiedValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_last_modified];
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.Getproducts_last_modifiedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_last_modified]);
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.GetOldproducts_last_modifiedValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Productsproducts_last_modified];
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.GetOldproducts_last_modifiedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Productsproducts_last_modified]);
|
|
end;
|
|
|
|
procedure Tosc_ProductsBusinessProcessorRules.Setproducts_last_modifiedValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_last_modified] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_ProductsBusinessProcessorRules.Setproducts_last_modifiedIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_last_modified] := Null;
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.Getproducts_statusValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_status];
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.Getproducts_statusIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_status]);
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.GetOldproducts_statusValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Productsproducts_status];
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.GetOldproducts_statusIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Productsproducts_status]);
|
|
end;
|
|
|
|
procedure Tosc_ProductsBusinessProcessorRules.Setproducts_statusValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_status] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_ProductsBusinessProcessorRules.Setproducts_statusIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_status] := Null;
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.Getmanufacturers_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsmanufacturers_id];
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.Getmanufacturers_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsmanufacturers_id]);
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.GetOldmanufacturers_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Productsmanufacturers_id];
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.GetOldmanufacturers_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Productsmanufacturers_id]);
|
|
end;
|
|
|
|
procedure Tosc_ProductsBusinessProcessorRules.Setmanufacturers_idValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsmanufacturers_id] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_ProductsBusinessProcessorRules.Setmanufacturers_idIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsmanufacturers_id] := Null;
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.Getrdx_products_id_localValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsrdx_products_id_local];
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.Getrdx_products_id_localIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsrdx_products_id_local]);
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.GetOldrdx_products_id_localValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Productsrdx_products_id_local];
|
|
end;
|
|
|
|
function Tosc_ProductsBusinessProcessorRules.GetOldrdx_products_id_localIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Productsrdx_products_id_local]);
|
|
end;
|
|
|
|
procedure Tosc_ProductsBusinessProcessorRules.Setrdx_products_id_localValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsrdx_products_id_local] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_ProductsBusinessProcessorRules.Setrdx_products_id_localIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsrdx_products_id_local] := Null;
|
|
end;
|
|
|
|
|
|
{ Tosc_OrdersBusinessProcessorRules }
|
|
constructor Tosc_OrdersBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
var
|
|
StrList: TStringList;
|
|
begin
|
|
inherited;
|
|
|
|
StrList := TStringList.Create;
|
|
StrList.OnChange := comments_OnChange;
|
|
f_comments := NewROStrings(StrList,True);
|
|
end;
|
|
|
|
destructor Tosc_OrdersBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.comments_OnChange(Sender: TObject);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orderscomments] := TStringList(Sender).Text;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getorders_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersorders_id];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getorders_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersorders_id]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldorders_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersorders_id];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldorders_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersorders_id]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setorders_idValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersorders_id] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setorders_idIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersorders_id] := Null;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getrdx_orders_id_localValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_orders_id_local];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getrdx_orders_id_localIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_orders_id_local]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldrdx_orders_id_localValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersrdx_orders_id_local];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldrdx_orders_id_localIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersrdx_orders_id_local]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setrdx_orders_id_localValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_orders_id_local] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setrdx_orders_id_localIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_orders_id_local] := Null;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getcustomers_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orderscustomers_id];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getcustomers_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orderscustomers_id]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldcustomers_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orderscustomers_id];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldcustomers_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orderscustomers_id]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setcustomers_idValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orderscustomers_id] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setcustomers_idIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orderscustomers_id] := Null;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getrdx_customers_id_localValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_customers_id_local];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getrdx_customers_id_localIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_customers_id_local]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldrdx_customers_id_localValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersrdx_customers_id_local];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldrdx_customers_id_localIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersrdx_customers_id_local]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setrdx_customers_id_localValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_customers_id_local] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setrdx_customers_id_localIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_customers_id_local] := Null;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdelivery_nameValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_name];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdelivery_nameIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_name]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_nameValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdelivery_name];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_nameIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdelivery_name]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdelivery_nameValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_name] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdelivery_nameIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_name] := Null;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdelivery_companyValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_company];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdelivery_companyIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_company]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_companyValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdelivery_company];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_companyIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdelivery_company]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdelivery_companyValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_company] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdelivery_companyIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_company] := Null;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdelivery_street_addressValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_street_address];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdelivery_street_addressIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_street_address]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_street_addressValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdelivery_street_address];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_street_addressIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdelivery_street_address]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdelivery_street_addressValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_street_address] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdelivery_street_addressIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_street_address] := Null;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdelivery_suburbValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_suburb];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdelivery_suburbIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_suburb]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_suburbValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdelivery_suburb];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_suburbIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdelivery_suburb]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdelivery_suburbValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_suburb] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdelivery_suburbIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_suburb] := Null;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdelivery_cityValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_city];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdelivery_cityIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_city]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_cityValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdelivery_city];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_cityIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdelivery_city]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdelivery_cityValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_city] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdelivery_cityIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_city] := Null;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdelivery_postcodeValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_postcode];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdelivery_postcodeIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_postcode]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_postcodeValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdelivery_postcode];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_postcodeIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdelivery_postcode]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdelivery_postcodeValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_postcode] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdelivery_postcodeIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_postcode] := Null;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdelivery_stateValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_state];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdelivery_stateIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_state]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_stateValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdelivery_state];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_stateIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdelivery_state]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdelivery_stateValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_state] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdelivery_stateIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_state] := Null;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdelivery_countryValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_country];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdelivery_countryIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_country]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_countryValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdelivery_country];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_countryIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdelivery_country]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdelivery_countryValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_country] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdelivery_countryIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_country] := Null;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdelivery_telephoneValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_telephone];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdelivery_telephoneIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_telephone]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_telephoneValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdelivery_telephone];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_telephoneIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdelivery_telephone]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdelivery_telephoneValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_telephone] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdelivery_telephoneIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_telephone] := Null;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getlast_modifiedValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orderslast_modified];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getlast_modifiedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orderslast_modified]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldlast_modifiedValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orderslast_modified];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldlast_modifiedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orderslast_modified]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setlast_modifiedValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orderslast_modified] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setlast_modifiedIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orderslast_modified] := Null;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdate_purchasedValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdate_purchased];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getdate_purchasedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdate_purchased]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddate_purchasedValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdate_purchased];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOlddate_purchasedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersdate_purchased]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdate_purchasedValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdate_purchased] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setdate_purchasedIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdate_purchased] := Null;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getorders_statusValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersorders_status];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getorders_statusIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersorders_status]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldorders_statusValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersorders_status];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldorders_statusIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersorders_status]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setorders_statusValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersorders_status] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setorders_statusIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersorders_status] := Null;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getorders_date_finishedValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersorders_date_finished];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getorders_date_finishedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersorders_date_finished]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldorders_date_finishedValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersorders_date_finished];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldorders_date_finishedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersorders_date_finished]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setorders_date_finishedValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersorders_date_finished] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setorders_date_finishedIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersorders_date_finished] := Null;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetcommentsValue: IROStrings;
|
|
begin
|
|
result := f_comments;
|
|
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orderscomments];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetcommentsIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orderscomments]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldcommentsValue: IROStrings;
|
|
begin
|
|
result := NewROStrings();
|
|
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orderscomments];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldcommentsIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orderscomments]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.SetcommentsIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orderscomments] := Null;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getrdx_ship_dateValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_ship_date];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getrdx_ship_dateIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_ship_date]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldrdx_ship_dateValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersrdx_ship_date];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldrdx_ship_dateIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersrdx_ship_date]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setrdx_ship_dateValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_ship_date] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setrdx_ship_dateIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_ship_date] := Null;
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getrdx_referencia_clienteValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_referencia_cliente];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.Getrdx_referencia_clienteIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_referencia_cliente]);
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldrdx_referencia_clienteValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersrdx_referencia_cliente];
|
|
end;
|
|
|
|
function Tosc_OrdersBusinessProcessorRules.GetOldrdx_referencia_clienteIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Ordersrdx_referencia_cliente]);
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setrdx_referencia_clienteValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_referencia_cliente] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_OrdersBusinessProcessorRules.Setrdx_referencia_clienteIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_referencia_cliente] := Null;
|
|
end;
|
|
|
|
|
|
{ Tosc_Orders_productsBusinessProcessorRules }
|
|
constructor Tosc_Orders_productsBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor Tosc_Orders_productsBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getorders_products_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsorders_products_id];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getorders_products_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsorders_products_id]);
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldorders_products_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsorders_products_id];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldorders_products_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsorders_products_id]);
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setorders_products_idValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsorders_products_id] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setorders_products_idIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsorders_products_id] := Null;
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getorders_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsorders_id];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getorders_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsorders_id]);
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldorders_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsorders_id];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldorders_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsorders_id]);
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setorders_idValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsorders_id] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setorders_idIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsorders_id] := Null;
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getproducts_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_id];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getproducts_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_id]);
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldproducts_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsproducts_id];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldproducts_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsproducts_id]);
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setproducts_idValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_id] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setproducts_idIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_id] := Null;
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getrdx_products_id_localValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsrdx_products_id_local];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getrdx_products_id_localIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsrdx_products_id_local]);
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldrdx_products_id_localValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsrdx_products_id_local];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldrdx_products_id_localIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsrdx_products_id_local]);
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setrdx_products_id_localValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsrdx_products_id_local] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setrdx_products_id_localIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsrdx_products_id_local] := Null;
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getproducts_modelValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_model];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getproducts_modelIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_model]);
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldproducts_modelValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsproducts_model];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldproducts_modelIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsproducts_model]);
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setproducts_modelValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_model] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setproducts_modelIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_model] := Null;
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getproducts_nameValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_name];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getproducts_nameIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_name]);
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldproducts_nameValue: String;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsproducts_name];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldproducts_nameIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsproducts_name]);
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setproducts_nameValue(const aValue: String);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_name] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setproducts_nameIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_name] := Null;
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getproducts_priceValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_price];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getproducts_priceIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_price]);
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldproducts_priceValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsproducts_price];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldproducts_priceIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsproducts_price]);
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setproducts_priceValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_price] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setproducts_priceIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_price] := Null;
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getfinal_priceValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsfinal_price];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getfinal_priceIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsfinal_price]);
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldfinal_priceValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsfinal_price];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldfinal_priceIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsfinal_price]);
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setfinal_priceValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsfinal_price] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setfinal_priceIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsfinal_price] := Null;
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getproducts_taxValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_tax];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getproducts_taxIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_tax]);
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldproducts_taxValue: Float;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsproducts_tax];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldproducts_taxIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsproducts_tax]);
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setproducts_taxValue(const aValue: Float);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_tax] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setproducts_taxIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_tax] := Null;
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getproducts_quantityValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_quantity];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.Getproducts_quantityIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_quantity]);
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldproducts_quantityValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsproducts_quantity];
|
|
end;
|
|
|
|
function Tosc_Orders_productsBusinessProcessorRules.GetOldproducts_quantityIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_productsproducts_quantity]);
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setproducts_quantityValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_quantity] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_Orders_productsBusinessProcessorRules.Setproducts_quantityIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_quantity] := Null;
|
|
end;
|
|
|
|
|
|
{ Tosc_Orders_status_historyBusinessProcessorRules }
|
|
constructor Tosc_Orders_status_historyBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
|
var
|
|
StrList: TStringList;
|
|
begin
|
|
inherited;
|
|
|
|
StrList := TStringList.Create;
|
|
StrList.OnChange := comments_OnChange;
|
|
f_comments := NewROStrings(StrList,True);
|
|
end;
|
|
|
|
destructor Tosc_Orders_status_historyBusinessProcessorRules.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
procedure Tosc_Orders_status_historyBusinessProcessorRules.comments_OnChange(Sender: TObject);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historycomments] := TStringList(Sender).Text;
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.Getorders_status_history_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historyorders_status_history_id];
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.Getorders_status_history_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historyorders_status_history_id]);
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.GetOldorders_status_history_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_status_historyorders_status_history_id];
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.GetOldorders_status_history_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_status_historyorders_status_history_id]);
|
|
end;
|
|
|
|
procedure Tosc_Orders_status_historyBusinessProcessorRules.Setorders_status_history_idValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historyorders_status_history_id] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_Orders_status_historyBusinessProcessorRules.Setorders_status_history_idIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historyorders_status_history_id] := Null;
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.Getorders_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historyorders_id];
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.Getorders_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historyorders_id]);
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.GetOldorders_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_status_historyorders_id];
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.GetOldorders_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_status_historyorders_id]);
|
|
end;
|
|
|
|
procedure Tosc_Orders_status_historyBusinessProcessorRules.Setorders_idValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historyorders_id] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_Orders_status_historyBusinessProcessorRules.Setorders_idIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historyorders_id] := Null;
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.Getrdx_orders_id_localValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historyrdx_orders_id_local];
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.Getrdx_orders_id_localIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historyrdx_orders_id_local]);
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.GetOldrdx_orders_id_localValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_status_historyrdx_orders_id_local];
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.GetOldrdx_orders_id_localIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_status_historyrdx_orders_id_local]);
|
|
end;
|
|
|
|
procedure Tosc_Orders_status_historyBusinessProcessorRules.Setrdx_orders_id_localValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historyrdx_orders_id_local] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_Orders_status_historyBusinessProcessorRules.Setrdx_orders_id_localIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historyrdx_orders_id_local] := Null;
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.Getorders_status_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historyorders_status_id];
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.Getorders_status_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historyorders_status_id]);
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.GetOldorders_status_idValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_status_historyorders_status_id];
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.GetOldorders_status_idIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_status_historyorders_status_id]);
|
|
end;
|
|
|
|
procedure Tosc_Orders_status_historyBusinessProcessorRules.Setorders_status_idValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historyorders_status_id] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_Orders_status_historyBusinessProcessorRules.Setorders_status_idIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historyorders_status_id] := Null;
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.Getdate_addedValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historydate_added];
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.Getdate_addedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historydate_added]);
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.GetOlddate_addedValue: DateTime;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_status_historydate_added];
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.GetOlddate_addedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_status_historydate_added]);
|
|
end;
|
|
|
|
procedure Tosc_Orders_status_historyBusinessProcessorRules.Setdate_addedValue(const aValue: DateTime);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historydate_added] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_Orders_status_historyBusinessProcessorRules.Setdate_addedIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historydate_added] := Null;
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.Getcustomer_notifiedValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historycustomer_notified];
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.Getcustomer_notifiedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historycustomer_notified]);
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.GetOldcustomer_notifiedValue: Integer;
|
|
begin
|
|
result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_status_historycustomer_notified];
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.GetOldcustomer_notifiedIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_status_historycustomer_notified]);
|
|
end;
|
|
|
|
procedure Tosc_Orders_status_historyBusinessProcessorRules.Setcustomer_notifiedValue(const aValue: Integer);
|
|
begin
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historycustomer_notified] := aValue;
|
|
end;
|
|
|
|
procedure Tosc_Orders_status_historyBusinessProcessorRules.Setcustomer_notifiedIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historycustomer_notified] := Null;
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.GetcommentsValue: IROStrings;
|
|
begin
|
|
result := f_comments;
|
|
result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historycomments];
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.GetcommentsIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historycomments]);
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.GetOldcommentsValue: IROStrings;
|
|
begin
|
|
result := NewROStrings();
|
|
result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_status_historycomments];
|
|
end;
|
|
|
|
function Tosc_Orders_status_historyBusinessProcessorRules.GetOldcommentsIsNull: Boolean;
|
|
begin
|
|
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orders_status_historycomments]);
|
|
end;
|
|
|
|
procedure Tosc_Orders_status_historyBusinessProcessorRules.SetcommentsIsNull(const aValue: Boolean);
|
|
begin
|
|
if aValue then
|
|
BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historycomments] := Null;
|
|
end;
|
|
|
|
|
|
initialization
|
|
RegisterBusinessProcessorRules(RID_osc_CustomersDelta, Tosc_CustomersBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_GetLastIDDelta, TGetLastIDBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_osc_AddressBookDelta, Tosc_AddressBookBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_TiendaWebDelta, TTiendaWebBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_osc_ManufacturersDelta, Tosc_ManufacturersBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_osc_LanguagesDelta, Tosc_LanguagesBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_osc_ProductsDelta, Tosc_ProductsBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_osc_OrdersDelta, Tosc_OrdersBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_osc_Orders_productsDelta, Tosc_Orders_productsBusinessProcessorRules);
|
|
RegisterBusinessProcessorRules(RID_osc_Orders_status_historyDelta, Tosc_Orders_status_historyBusinessProcessorRules);
|
|
|
|
end.
|