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.