unit schTiendaWebServer_Intf; interface uses Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, 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 = '{E48B075D-4017-4A01-BFFE-4801F4D3CACB}'; RID_GetLastIDDelta = '{F43B53FB-F25F-4BD3-BBD2-995FB481FB6E}'; RID_osc_AddressBookDelta = '{A9139BA0-FB27-45E0-8BEA-22285697F501}'; RID_TiendaWebDelta = '{C978971E-FFB2-4F92-A380-67C983CBDC3E}'; RID_osc_ManufacturersDelta = '{9E01F883-932C-4DD3-B010-2C8178D6C082}'; RID_osc_LanguagesDelta = '{F4526BEE-7D3E-4001-97DB-A455F98763D5}'; RID_osc_ProductsDelta = '{5DC759AA-218A-451C-9B5A-8DD46404442F}'; RID_osc_OrdersDelta = '{EB759802-A71A-4219-8855-7BF0D39B1493}'; RID_osc_Orders_productsDelta = '{5E93B176-B6A2-4D8F-B4C2-24746B61CAD3}'; RID_osc_Orders_status_historyDelta = '{41D9E8AF-FA0E-4D10-9146-2C99FB0D9E9B}'; type { Iosc_CustomersDelta } Iosc_CustomersDelta = interface(Iosc_Customers) ['{E48B075D-4017-4A01-BFFE-4801F4D3CACB}'] { 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 GetOldcustomers_idValue: Integer; virtual; procedure Setcustomers_idValue(const aValue: Integer); virtual; function Getcustomers_firstnameValue: String; virtual; function GetOldcustomers_firstnameValue: String; virtual; procedure Setcustomers_firstnameValue(const aValue: String); virtual; function Getcustomers_lastnameValue: String; virtual; function GetOldcustomers_lastnameValue: String; virtual; procedure Setcustomers_lastnameValue(const aValue: String); virtual; function Getcustomers_email_addressValue: String; virtual; function GetOldcustomers_email_addressValue: String; virtual; procedure Setcustomers_email_addressValue(const aValue: String); virtual; function Getcustomers_default_address_idValue: Integer; virtual; function GetOldcustomers_default_address_idValue: Integer; virtual; procedure Setcustomers_default_address_idValue(const aValue: Integer); virtual; function Getcustomers_telephoneValue: String; virtual; function GetOldcustomers_telephoneValue: String; virtual; procedure Setcustomers_telephoneValue(const aValue: String); virtual; function Getcustomers_faxValue: String; virtual; function GetOldcustomers_faxValue: String; virtual; procedure Setcustomers_faxValue(const aValue: String); virtual; function Getcustomers_passwordValue: String; virtual; function GetOldcustomers_passwordValue: String; virtual; procedure Setcustomers_passwordValue(const aValue: String); virtual; function Getrdx_customers_id_localValue: Integer; virtual; function GetOldrdx_customers_id_localValue: Integer; virtual; procedure Setrdx_customers_id_localValue(const aValue: Integer); virtual; function Getdate_account_createdValue: DateTime; virtual; function GetOlddate_account_createdValue: DateTime; virtual; procedure Setdate_account_createdValue(const aValue: DateTime); virtual; function Getdate_account_last_modifiedValue: DateTime; virtual; function GetOlddate_account_last_modifiedValue: DateTime; virtual; procedure Setdate_account_last_modifiedValue(const aValue: DateTime); virtual; { Properties } property customers_id : Integer read Getcustomers_idValue write Setcustomers_idValue; property Oldcustomers_id : Integer read GetOldcustomers_idValue; property customers_firstname : String read Getcustomers_firstnameValue write Setcustomers_firstnameValue; property Oldcustomers_firstname : String read GetOldcustomers_firstnameValue; property customers_lastname : String read Getcustomers_lastnameValue write Setcustomers_lastnameValue; property Oldcustomers_lastname : String read GetOldcustomers_lastnameValue; property customers_email_address : String read Getcustomers_email_addressValue write Setcustomers_email_addressValue; property Oldcustomers_email_address : String read GetOldcustomers_email_addressValue; property customers_default_address_id : Integer read Getcustomers_default_address_idValue write Setcustomers_default_address_idValue; property Oldcustomers_default_address_id : Integer read GetOldcustomers_default_address_idValue; property customers_telephone : String read Getcustomers_telephoneValue write Setcustomers_telephoneValue; property Oldcustomers_telephone : String read GetOldcustomers_telephoneValue; property customers_fax : String read Getcustomers_faxValue write Setcustomers_faxValue; property Oldcustomers_fax : String read GetOldcustomers_faxValue; property customers_password : String read Getcustomers_passwordValue write Setcustomers_passwordValue; property Oldcustomers_password : String read GetOldcustomers_passwordValue; property rdx_customers_id_local : Integer read Getrdx_customers_id_localValue write Setrdx_customers_id_localValue; property Oldrdx_customers_id_local : Integer read GetOldrdx_customers_id_localValue; property date_account_created : DateTime read Getdate_account_createdValue write Setdate_account_createdValue; property Olddate_account_created : DateTime read GetOlddate_account_createdValue; property date_account_last_modified : DateTime read Getdate_account_last_modifiedValue write Setdate_account_last_modifiedValue; property Olddate_account_last_modified : DateTime read GetOlddate_account_last_modifiedValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { IGetLastIDDelta } IGetLastIDDelta = interface(IGetLastID) ['{F43B53FB-F25F-4BD3-BBD2-995FB481FB6E}'] { 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 GetOldlast_idValue: Integer; virtual; procedure Setlast_idValue(const aValue: Integer); virtual; { Properties } property last_id : Integer read Getlast_idValue write Setlast_idValue; property Oldlast_id : Integer read GetOldlast_idValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { Iosc_AddressBookDelta } Iosc_AddressBookDelta = interface(Iosc_AddressBook) ['{A9139BA0-FB27-45E0-8BEA-22285697F501}'] { 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 GetOldaddress_book_idValue: Integer; virtual; procedure Setaddress_book_idValue(const aValue: Integer); virtual; function Getcustomers_idValue: Integer; virtual; function GetOldcustomers_idValue: Integer; virtual; procedure Setcustomers_idValue(const aValue: Integer); virtual; function Getentry_genderValue: String; virtual; function GetOldentry_genderValue: String; virtual; procedure Setentry_genderValue(const aValue: String); virtual; function Getentry_companyValue: String; virtual; function GetOldentry_companyValue: String; virtual; procedure Setentry_companyValue(const aValue: String); virtual; function Getentry_firstnameValue: String; virtual; function GetOldentry_firstnameValue: String; virtual; procedure Setentry_firstnameValue(const aValue: String); virtual; function Getentry_lastnameValue: String; virtual; function GetOldentry_lastnameValue: String; virtual; procedure Setentry_lastnameValue(const aValue: String); virtual; function Getentry_street_addressValue: String; virtual; function GetOldentry_street_addressValue: String; virtual; procedure Setentry_street_addressValue(const aValue: String); virtual; function Getentry_suburbValue: String; virtual; function GetOldentry_suburbValue: String; virtual; procedure Setentry_suburbValue(const aValue: String); virtual; function Getentry_postcodeValue: String; virtual; function GetOldentry_postcodeValue: String; virtual; procedure Setentry_postcodeValue(const aValue: String); virtual; function Getentry_cityValue: String; virtual; function GetOldentry_cityValue: String; virtual; procedure Setentry_cityValue(const aValue: String); virtual; function Getentry_stateValue: String; virtual; function GetOldentry_stateValue: String; virtual; procedure Setentry_stateValue(const aValue: String); virtual; function Getentry_country_idValue: Integer; virtual; function GetOldentry_country_idValue: Integer; virtual; procedure Setentry_country_idValue(const aValue: Integer); virtual; function Getentry_zone_idValue: Integer; virtual; function GetOldentry_zone_idValue: Integer; virtual; procedure Setentry_zone_idValue(const aValue: Integer); virtual; function Getentry_telephoneValue: String; virtual; function GetOldentry_telephoneValue: String; virtual; procedure Setentry_telephoneValue(const aValue: String); virtual; function Getrdx_address_book_id_localValue: Integer; virtual; function GetOldrdx_address_book_id_localValue: Integer; virtual; procedure Setrdx_address_book_id_localValue(const aValue: Integer); virtual; { Properties } property address_book_id : Integer read Getaddress_book_idValue write Setaddress_book_idValue; property Oldaddress_book_id : Integer read GetOldaddress_book_idValue; property customers_id : Integer read Getcustomers_idValue write Setcustomers_idValue; property Oldcustomers_id : Integer read GetOldcustomers_idValue; property entry_gender : String read Getentry_genderValue write Setentry_genderValue; property Oldentry_gender : String read GetOldentry_genderValue; property entry_company : String read Getentry_companyValue write Setentry_companyValue; property Oldentry_company : String read GetOldentry_companyValue; property entry_firstname : String read Getentry_firstnameValue write Setentry_firstnameValue; property Oldentry_firstname : String read GetOldentry_firstnameValue; property entry_lastname : String read Getentry_lastnameValue write Setentry_lastnameValue; property Oldentry_lastname : String read GetOldentry_lastnameValue; property entry_street_address : String read Getentry_street_addressValue write Setentry_street_addressValue; property Oldentry_street_address : String read GetOldentry_street_addressValue; property entry_suburb : String read Getentry_suburbValue write Setentry_suburbValue; property Oldentry_suburb : String read GetOldentry_suburbValue; property entry_postcode : String read Getentry_postcodeValue write Setentry_postcodeValue; property Oldentry_postcode : String read GetOldentry_postcodeValue; property entry_city : String read Getentry_cityValue write Setentry_cityValue; property Oldentry_city : String read GetOldentry_cityValue; property entry_state : String read Getentry_stateValue write Setentry_stateValue; property Oldentry_state : String read GetOldentry_stateValue; property entry_country_id : Integer read Getentry_country_idValue write Setentry_country_idValue; property Oldentry_country_id : Integer read GetOldentry_country_idValue; property entry_zone_id : Integer read Getentry_zone_idValue write Setentry_zone_idValue; property Oldentry_zone_id : Integer read GetOldentry_zone_idValue; property entry_telephone : String read Getentry_telephoneValue write Setentry_telephoneValue; property Oldentry_telephone : String read GetOldentry_telephoneValue; property rdx_address_book_id_local : Integer read Getrdx_address_book_id_localValue write Setrdx_address_book_id_localValue; property Oldrdx_address_book_id_local : Integer read GetOldrdx_address_book_id_localValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { ITiendaWebDelta } ITiendaWebDelta = interface(ITiendaWeb) ['{C978971E-FFB2-4F92-A380-67C983CBDC3E}'] { 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 GetOldIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetID_EMPRESAValue: Integer; virtual; function GetOldID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetTIENDA_ACTIVAValue: Integer; virtual; function GetOldTIENDA_ACTIVAValue: Integer; virtual; procedure SetTIENDA_ACTIVAValue(const aValue: Integer); virtual; function GetBDSERVERValue: String; virtual; function GetOldBDSERVERValue: String; virtual; procedure SetBDSERVERValue(const aValue: String); virtual; function GetBDPORTValue: String; virtual; function GetOldBDPORTValue: String; virtual; procedure SetBDPORTValue(const aValue: String); virtual; function GetBDNAMEValue: String; virtual; function GetOldBDNAMEValue: String; virtual; procedure SetBDNAMEValue(const aValue: String); virtual; function GetBDUSERValue: String; virtual; function GetOldBDUSERValue: String; virtual; procedure SetBDUSERValue(const aValue: String); virtual; function GetBDPASSValue: String; virtual; function GetOldBDPASSValue: String; virtual; procedure SetBDPASSValue(const aValue: String); virtual; function GetULTIMA_ACTUALIZACIONValue: DateTime; virtual; function GetOldULTIMA_ACTUALIZACIONValue: DateTime; virtual; procedure SetULTIMA_ACTUALIZACIONValue(const aValue: DateTime); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; property OldID : Integer read GetOldIDValue; property ID_EMPRESA : Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property TIENDA_ACTIVA : Integer read GetTIENDA_ACTIVAValue write SetTIENDA_ACTIVAValue; property OldTIENDA_ACTIVA : Integer read GetOldTIENDA_ACTIVAValue; property BDSERVER : String read GetBDSERVERValue write SetBDSERVERValue; property OldBDSERVER : String read GetOldBDSERVERValue; property BDPORT : String read GetBDPORTValue write SetBDPORTValue; property OldBDPORT : String read GetOldBDPORTValue; property BDNAME : String read GetBDNAMEValue write SetBDNAMEValue; property OldBDNAME : String read GetOldBDNAMEValue; property BDUSER : String read GetBDUSERValue write SetBDUSERValue; property OldBDUSER : String read GetOldBDUSERValue; property BDPASS : String read GetBDPASSValue write SetBDPASSValue; property OldBDPASS : String read GetOldBDPASSValue; property ULTIMA_ACTUALIZACION : DateTime read GetULTIMA_ACTUALIZACIONValue write SetULTIMA_ACTUALIZACIONValue; property OldULTIMA_ACTUALIZACION : DateTime read GetOldULTIMA_ACTUALIZACIONValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { Iosc_ManufacturersDelta } Iosc_ManufacturersDelta = interface(Iosc_Manufacturers) ['{9E01F883-932C-4DD3-B010-2C8178D6C082}'] { 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 GetOldmanufacturers_idValue: Integer; virtual; procedure Setmanufacturers_idValue(const aValue: Integer); virtual; function Getmanufacturers_nameValue: String; virtual; function GetOldmanufacturers_nameValue: String; virtual; procedure Setmanufacturers_nameValue(const aValue: String); virtual; function Getmanufacturers_imageValue: String; virtual; function GetOldmanufacturers_imageValue: String; virtual; procedure Setmanufacturers_imageValue(const aValue: String); virtual; function Getdate_addedValue: DateTime; virtual; function GetOlddate_addedValue: DateTime; virtual; procedure Setdate_addedValue(const aValue: DateTime); virtual; function Getlast_modifiedValue: DateTime; virtual; function GetOldlast_modifiedValue: DateTime; virtual; procedure Setlast_modifiedValue(const aValue: DateTime); virtual; function Getrdx_manufacturers_id_localValue: Integer; virtual; function GetOldrdx_manufacturers_id_localValue: Integer; virtual; procedure Setrdx_manufacturers_id_localValue(const aValue: Integer); virtual; { Properties } property manufacturers_id : Integer read Getmanufacturers_idValue write Setmanufacturers_idValue; property Oldmanufacturers_id : Integer read GetOldmanufacturers_idValue; property manufacturers_name : String read Getmanufacturers_nameValue write Setmanufacturers_nameValue; property Oldmanufacturers_name : String read GetOldmanufacturers_nameValue; property manufacturers_image : String read Getmanufacturers_imageValue write Setmanufacturers_imageValue; property Oldmanufacturers_image : String read GetOldmanufacturers_imageValue; property date_added : DateTime read Getdate_addedValue write Setdate_addedValue; property Olddate_added : DateTime read GetOlddate_addedValue; property last_modified : DateTime read Getlast_modifiedValue write Setlast_modifiedValue; property Oldlast_modified : DateTime read GetOldlast_modifiedValue; property rdx_manufacturers_id_local : Integer read Getrdx_manufacturers_id_localValue write Setrdx_manufacturers_id_localValue; property Oldrdx_manufacturers_id_local : Integer read GetOldrdx_manufacturers_id_localValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { Iosc_LanguagesDelta } Iosc_LanguagesDelta = interface(Iosc_Languages) ['{F4526BEE-7D3E-4001-97DB-A455F98763D5}'] { 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 GetOldlanguages_idValue: Integer; virtual; procedure Setlanguages_idValue(const aValue: Integer); virtual; function GetnameValue: String; virtual; function GetOldnameValue: String; virtual; procedure SetnameValue(const aValue: String); virtual; function GetcodeValue: String; virtual; function GetOldcodeValue: String; virtual; procedure SetcodeValue(const aValue: String); virtual; function GetimageValue: String; virtual; function GetOldimageValue: String; virtual; procedure SetimageValue(const aValue: String); virtual; function GetdirectoryValue: String; virtual; function GetOlddirectoryValue: String; virtual; procedure SetdirectoryValue(const aValue: String); virtual; function Getsort_orderValue: Integer; virtual; function GetOldsort_orderValue: Integer; virtual; procedure Setsort_orderValue(const aValue: Integer); virtual; { Properties } property languages_id : Integer read Getlanguages_idValue write Setlanguages_idValue; property Oldlanguages_id : Integer read GetOldlanguages_idValue; property name : String read GetnameValue write SetnameValue; property Oldname : String read GetOldnameValue; property code : String read GetcodeValue write SetcodeValue; property Oldcode : String read GetOldcodeValue; property image : String read GetimageValue write SetimageValue; property Oldimage : String read GetOldimageValue; property directory : String read GetdirectoryValue write SetdirectoryValue; property Olddirectory : String read GetOlddirectoryValue; property sort_order : Integer read Getsort_orderValue write Setsort_orderValue; property Oldsort_order : Integer read GetOldsort_orderValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { Iosc_ProductsDelta } Iosc_ProductsDelta = interface(Iosc_Products) ['{5DC759AA-218A-451C-9B5A-8DD46404442F}'] { 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 protected { Property getters and setters } function Getproducts_idValue: Integer; virtual; function GetOldproducts_idValue: Integer; virtual; procedure Setproducts_idValue(const aValue: Integer); virtual; function Getproducts_nameValue: String; virtual; function GetOldproducts_nameValue: String; virtual; procedure Setproducts_nameValue(const aValue: String); virtual; function Getproducts_descriptionValue: IROStrings; virtual; function GetOldproducts_descriptionValue: IROStrings; virtual; procedure Setproducts_descriptionValue(const aValue: IROStrings); virtual; function Getproducts_modelValue: String; virtual; function GetOldproducts_modelValue: String; virtual; procedure Setproducts_modelValue(const aValue: String); virtual; function Getproducts_date_addedValue: DateTime; virtual; function GetOldproducts_date_addedValue: DateTime; virtual; procedure Setproducts_date_addedValue(const aValue: DateTime); virtual; function Getproducts_last_modifiedValue: DateTime; virtual; function GetOldproducts_last_modifiedValue: DateTime; virtual; procedure Setproducts_last_modifiedValue(const aValue: DateTime); virtual; function Getproducts_statusValue: Integer; virtual; function GetOldproducts_statusValue: Integer; virtual; procedure Setproducts_statusValue(const aValue: Integer); virtual; function Getmanufacturers_idValue: Integer; virtual; function GetOldmanufacturers_idValue: Integer; virtual; procedure Setmanufacturers_idValue(const aValue: Integer); virtual; function Getrdx_products_id_localValue: Integer; virtual; function GetOldrdx_products_id_localValue: Integer; virtual; procedure Setrdx_products_id_localValue(const aValue: Integer); virtual; { Properties } property products_id : Integer read Getproducts_idValue write Setproducts_idValue; property Oldproducts_id : Integer read GetOldproducts_idValue; property products_name : String read Getproducts_nameValue write Setproducts_nameValue; property Oldproducts_name : String read GetOldproducts_nameValue; property products_description : IROStrings read Getproducts_descriptionValue write Setproducts_descriptionValue; property Oldproducts_description : IROStrings read GetOldproducts_descriptionValue; property products_model : String read Getproducts_modelValue write Setproducts_modelValue; property Oldproducts_model : String read GetOldproducts_modelValue; property products_date_added : DateTime read Getproducts_date_addedValue write Setproducts_date_addedValue; property Oldproducts_date_added : DateTime read GetOldproducts_date_addedValue; property products_last_modified : DateTime read Getproducts_last_modifiedValue write Setproducts_last_modifiedValue; property Oldproducts_last_modified : DateTime read GetOldproducts_last_modifiedValue; property products_status : Integer read Getproducts_statusValue write Setproducts_statusValue; property Oldproducts_status : Integer read GetOldproducts_statusValue; property manufacturers_id : Integer read Getmanufacturers_idValue write Setmanufacturers_idValue; property Oldmanufacturers_id : Integer read GetOldmanufacturers_idValue; property rdx_products_id_local : Integer read Getrdx_products_id_localValue write Setrdx_products_id_localValue; property Oldrdx_products_id_local : Integer read GetOldrdx_products_id_localValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { Iosc_OrdersDelta } Iosc_OrdersDelta = interface(Iosc_Orders) ['{EB759802-A71A-4219-8855-7BF0D39B1493}'] { 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 protected { Property getters and setters } function Getorders_idValue: Integer; virtual; function GetOldorders_idValue: Integer; virtual; procedure Setorders_idValue(const aValue: Integer); virtual; function Getrdx_orders_id_localValue: Integer; virtual; function GetOldrdx_orders_id_localValue: Integer; virtual; procedure Setrdx_orders_id_localValue(const aValue: Integer); virtual; function Getcustomers_idValue: Integer; virtual; function GetOldcustomers_idValue: Integer; virtual; procedure Setcustomers_idValue(const aValue: Integer); virtual; function Getrdx_customers_id_localValue: Integer; virtual; function GetOldrdx_customers_id_localValue: Integer; virtual; procedure Setrdx_customers_id_localValue(const aValue: Integer); virtual; function Getdelivery_nameValue: String; virtual; function GetOlddelivery_nameValue: String; virtual; procedure Setdelivery_nameValue(const aValue: String); virtual; function Getdelivery_companyValue: String; virtual; function GetOlddelivery_companyValue: String; virtual; procedure Setdelivery_companyValue(const aValue: String); virtual; function Getdelivery_street_addressValue: String; virtual; function GetOlddelivery_street_addressValue: String; virtual; procedure Setdelivery_street_addressValue(const aValue: String); virtual; function Getdelivery_suburbValue: String; virtual; function GetOlddelivery_suburbValue: String; virtual; procedure Setdelivery_suburbValue(const aValue: String); virtual; function Getdelivery_cityValue: String; virtual; function GetOlddelivery_cityValue: String; virtual; procedure Setdelivery_cityValue(const aValue: String); virtual; function Getdelivery_postcodeValue: String; virtual; function GetOlddelivery_postcodeValue: String; virtual; procedure Setdelivery_postcodeValue(const aValue: String); virtual; function Getdelivery_stateValue: String; virtual; function GetOlddelivery_stateValue: String; virtual; procedure Setdelivery_stateValue(const aValue: String); virtual; function Getdelivery_countryValue: String; virtual; function GetOlddelivery_countryValue: String; virtual; procedure Setdelivery_countryValue(const aValue: String); virtual; function Getdelivery_telephoneValue: String; virtual; function GetOlddelivery_telephoneValue: String; virtual; procedure Setdelivery_telephoneValue(const aValue: String); virtual; function Getlast_modifiedValue: DateTime; virtual; function GetOldlast_modifiedValue: DateTime; virtual; procedure Setlast_modifiedValue(const aValue: DateTime); virtual; function Getdate_purchasedValue: DateTime; virtual; function GetOlddate_purchasedValue: DateTime; virtual; procedure Setdate_purchasedValue(const aValue: DateTime); virtual; function Getorders_statusValue: Integer; virtual; function GetOldorders_statusValue: Integer; virtual; procedure Setorders_statusValue(const aValue: Integer); virtual; function Getorders_date_finishedValue: DateTime; virtual; function GetOldorders_date_finishedValue: DateTime; virtual; procedure Setorders_date_finishedValue(const aValue: DateTime); virtual; function GetcommentsValue: IROStrings; virtual; function GetOldcommentsValue: IROStrings; virtual; procedure SetcommentsValue(const aValue: IROStrings); virtual; function Getrdx_ship_dateValue: DateTime; virtual; function GetOldrdx_ship_dateValue: DateTime; virtual; procedure Setrdx_ship_dateValue(const aValue: DateTime); virtual; function Getrdx_referencia_clienteValue: String; virtual; function GetOldrdx_referencia_clienteValue: String; virtual; procedure Setrdx_referencia_clienteValue(const aValue: String); virtual; { Properties } property orders_id : Integer read Getorders_idValue write Setorders_idValue; property Oldorders_id : Integer read GetOldorders_idValue; property rdx_orders_id_local : Integer read Getrdx_orders_id_localValue write Setrdx_orders_id_localValue; property Oldrdx_orders_id_local : Integer read GetOldrdx_orders_id_localValue; property customers_id : Integer read Getcustomers_idValue write Setcustomers_idValue; property Oldcustomers_id : Integer read GetOldcustomers_idValue; property rdx_customers_id_local : Integer read Getrdx_customers_id_localValue write Setrdx_customers_id_localValue; property Oldrdx_customers_id_local : Integer read GetOldrdx_customers_id_localValue; property delivery_name : String read Getdelivery_nameValue write Setdelivery_nameValue; property Olddelivery_name : String read GetOlddelivery_nameValue; property delivery_company : String read Getdelivery_companyValue write Setdelivery_companyValue; property Olddelivery_company : String read GetOlddelivery_companyValue; property delivery_street_address : String read Getdelivery_street_addressValue write Setdelivery_street_addressValue; property Olddelivery_street_address : String read GetOlddelivery_street_addressValue; property delivery_suburb : String read Getdelivery_suburbValue write Setdelivery_suburbValue; property Olddelivery_suburb : String read GetOlddelivery_suburbValue; property delivery_city : String read Getdelivery_cityValue write Setdelivery_cityValue; property Olddelivery_city : String read GetOlddelivery_cityValue; property delivery_postcode : String read Getdelivery_postcodeValue write Setdelivery_postcodeValue; property Olddelivery_postcode : String read GetOlddelivery_postcodeValue; property delivery_state : String read Getdelivery_stateValue write Setdelivery_stateValue; property Olddelivery_state : String read GetOlddelivery_stateValue; property delivery_country : String read Getdelivery_countryValue write Setdelivery_countryValue; property Olddelivery_country : String read GetOlddelivery_countryValue; property delivery_telephone : String read Getdelivery_telephoneValue write Setdelivery_telephoneValue; property Olddelivery_telephone : String read GetOlddelivery_telephoneValue; property last_modified : DateTime read Getlast_modifiedValue write Setlast_modifiedValue; property Oldlast_modified : DateTime read GetOldlast_modifiedValue; property date_purchased : DateTime read Getdate_purchasedValue write Setdate_purchasedValue; property Olddate_purchased : DateTime read GetOlddate_purchasedValue; property orders_status : Integer read Getorders_statusValue write Setorders_statusValue; property Oldorders_status : Integer read GetOldorders_statusValue; property orders_date_finished : DateTime read Getorders_date_finishedValue write Setorders_date_finishedValue; property Oldorders_date_finished : DateTime read GetOldorders_date_finishedValue; property comments : IROStrings read GetcommentsValue write SetcommentsValue; property Oldcomments : IROStrings read GetOldcommentsValue; property rdx_ship_date : DateTime read Getrdx_ship_dateValue write Setrdx_ship_dateValue; property Oldrdx_ship_date : DateTime read GetOldrdx_ship_dateValue; property rdx_referencia_cliente : String read Getrdx_referencia_clienteValue write Setrdx_referencia_clienteValue; property Oldrdx_referencia_cliente : String read GetOldrdx_referencia_clienteValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { Iosc_Orders_productsDelta } Iosc_Orders_productsDelta = interface(Iosc_Orders_products) ['{5E93B176-B6A2-4D8F-B4C2-24746B61CAD3}'] { 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 GetOldorders_products_idValue: Integer; virtual; procedure Setorders_products_idValue(const aValue: Integer); virtual; function Getorders_idValue: Integer; virtual; function GetOldorders_idValue: Integer; virtual; procedure Setorders_idValue(const aValue: Integer); virtual; function Getproducts_idValue: Integer; virtual; function GetOldproducts_idValue: Integer; virtual; procedure Setproducts_idValue(const aValue: Integer); virtual; function Getrdx_products_id_localValue: Integer; virtual; function GetOldrdx_products_id_localValue: Integer; virtual; procedure Setrdx_products_id_localValue(const aValue: Integer); virtual; function Getproducts_modelValue: String; virtual; function GetOldproducts_modelValue: String; virtual; procedure Setproducts_modelValue(const aValue: String); virtual; function Getproducts_nameValue: String; virtual; function GetOldproducts_nameValue: String; virtual; procedure Setproducts_nameValue(const aValue: String); virtual; function Getproducts_priceValue: Float; virtual; function GetOldproducts_priceValue: Float; virtual; procedure Setproducts_priceValue(const aValue: Float); virtual; function Getfinal_priceValue: Float; virtual; function GetOldfinal_priceValue: Float; virtual; procedure Setfinal_priceValue(const aValue: Float); virtual; function Getproducts_taxValue: Float; virtual; function GetOldproducts_taxValue: Float; virtual; procedure Setproducts_taxValue(const aValue: Float); virtual; function Getproducts_quantityValue: Integer; virtual; function GetOldproducts_quantityValue: Integer; virtual; procedure Setproducts_quantityValue(const aValue: Integer); virtual; { Properties } property orders_products_id : Integer read Getorders_products_idValue write Setorders_products_idValue; property Oldorders_products_id : Integer read GetOldorders_products_idValue; property orders_id : Integer read Getorders_idValue write Setorders_idValue; property Oldorders_id : Integer read GetOldorders_idValue; property products_id : Integer read Getproducts_idValue write Setproducts_idValue; property Oldproducts_id : Integer read GetOldproducts_idValue; property rdx_products_id_local : Integer read Getrdx_products_id_localValue write Setrdx_products_id_localValue; property Oldrdx_products_id_local : Integer read GetOldrdx_products_id_localValue; property products_model : String read Getproducts_modelValue write Setproducts_modelValue; property Oldproducts_model : String read GetOldproducts_modelValue; property products_name : String read Getproducts_nameValue write Setproducts_nameValue; property Oldproducts_name : String read GetOldproducts_nameValue; property products_price : Float read Getproducts_priceValue write Setproducts_priceValue; property Oldproducts_price : Float read GetOldproducts_priceValue; property final_price : Float read Getfinal_priceValue write Setfinal_priceValue; property Oldfinal_price : Float read GetOldfinal_priceValue; property products_tax : Float read Getproducts_taxValue write Setproducts_taxValue; property Oldproducts_tax : Float read GetOldproducts_taxValue; property products_quantity : Integer read Getproducts_quantityValue write Setproducts_quantityValue; property Oldproducts_quantity : Integer read GetOldproducts_quantityValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; { Iosc_Orders_status_historyDelta } Iosc_Orders_status_historyDelta = interface(Iosc_Orders_status_history) ['{41D9E8AF-FA0E-4D10-9146-2C99FB0D9E9B}'] { 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 protected { Property getters and setters } function Getorders_status_history_idValue: Integer; virtual; function GetOldorders_status_history_idValue: Integer; virtual; procedure Setorders_status_history_idValue(const aValue: Integer); virtual; function Getorders_idValue: Integer; virtual; function GetOldorders_idValue: Integer; virtual; procedure Setorders_idValue(const aValue: Integer); virtual; function Getrdx_orders_id_localValue: Integer; virtual; function GetOldrdx_orders_id_localValue: Integer; virtual; procedure Setrdx_orders_id_localValue(const aValue: Integer); virtual; function Getorders_status_idValue: Integer; virtual; function GetOldorders_status_idValue: Integer; virtual; procedure Setorders_status_idValue(const aValue: Integer); virtual; function Getdate_addedValue: DateTime; virtual; function GetOlddate_addedValue: DateTime; virtual; procedure Setdate_addedValue(const aValue: DateTime); virtual; function Getcustomer_notifiedValue: Integer; virtual; function GetOldcustomer_notifiedValue: Integer; virtual; procedure Setcustomer_notifiedValue(const aValue: Integer); virtual; function GetcommentsValue: IROStrings; virtual; function GetOldcommentsValue: IROStrings; virtual; procedure SetcommentsValue(const aValue: IROStrings); virtual; { Properties } property orders_status_history_id : Integer read Getorders_status_history_idValue write Setorders_status_history_idValue; property Oldorders_status_history_id : Integer read GetOldorders_status_history_idValue; property orders_id : Integer read Getorders_idValue write Setorders_idValue; property Oldorders_id : Integer read GetOldorders_idValue; property rdx_orders_id_local : Integer read Getrdx_orders_id_localValue write Setrdx_orders_id_localValue; property Oldrdx_orders_id_local : Integer read GetOldrdx_orders_id_localValue; property orders_status_id : Integer read Getorders_status_idValue write Setorders_status_idValue; property Oldorders_status_id : Integer read GetOldorders_status_idValue; property date_added : DateTime read Getdate_addedValue write Setdate_addedValue; property Olddate_added : DateTime read GetOlddate_addedValue; property customer_notified : Integer read Getcustomer_notifiedValue write Setcustomer_notifiedValue; property Oldcustomer_notified : Integer read GetOldcustomer_notifiedValue; property comments : IROStrings read GetcommentsValue write SetcommentsValue; property Oldcomments : IROStrings read GetOldcommentsValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; destructor Destroy; override; end; implementation uses Variants, uROBinaryHelpers; { 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.GetOldcustomers_idValue: Integer; begin result := 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; function Tosc_CustomersBusinessProcessorRules.Getcustomers_firstnameValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_firstname]; end; function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_firstnameValue: String; begin result := 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; function Tosc_CustomersBusinessProcessorRules.Getcustomers_lastnameValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_lastname]; end; function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_lastnameValue: String; begin result := 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; function Tosc_CustomersBusinessProcessorRules.Getcustomers_email_addressValue: String; begin result := 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; procedure Tosc_CustomersBusinessProcessorRules.Setcustomers_email_addressValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_email_address] := aValue; end; function Tosc_CustomersBusinessProcessorRules.Getcustomers_default_address_idValue: Integer; begin result := 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; procedure Tosc_CustomersBusinessProcessorRules.Setcustomers_default_address_idValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_default_address_id] := aValue; end; function Tosc_CustomersBusinessProcessorRules.Getcustomers_telephoneValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_telephone]; end; function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_telephoneValue: String; begin result := 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; function Tosc_CustomersBusinessProcessorRules.Getcustomers_faxValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_fax]; end; function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_faxValue: String; begin result := 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; function Tosc_CustomersBusinessProcessorRules.Getcustomers_passwordValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customerscustomers_password]; end; function Tosc_CustomersBusinessProcessorRules.GetOldcustomers_passwordValue: String; begin result := 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; function Tosc_CustomersBusinessProcessorRules.Getrdx_customers_id_localValue: Integer; begin result := 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; procedure Tosc_CustomersBusinessProcessorRules.Setrdx_customers_id_localValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customersrdx_customers_id_local] := aValue; end; function Tosc_CustomersBusinessProcessorRules.Getdate_account_createdValue: DateTime; begin result := 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; procedure Tosc_CustomersBusinessProcessorRules.Setdate_account_createdValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customersdate_account_created] := aValue; end; function Tosc_CustomersBusinessProcessorRules.Getdate_account_last_modifiedValue: DateTime; begin result := 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; procedure Tosc_CustomersBusinessProcessorRules.Setdate_account_last_modifiedValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Customersdate_account_last_modified] := aValue; 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.GetOldlast_idValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_GetLastIDlast_id]; end; procedure TGetLastIDBusinessProcessorRules.Setlast_idValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_GetLastIDlast_id] := aValue; 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.GetOldaddress_book_idValue: Integer; begin result := 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; function Tosc_AddressBookBusinessProcessorRules.Getcustomers_idValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookcustomers_id]; end; function Tosc_AddressBookBusinessProcessorRules.GetOldcustomers_idValue: Integer; begin result := 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; function Tosc_AddressBookBusinessProcessorRules.Getentry_genderValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_gender]; end; function Tosc_AddressBookBusinessProcessorRules.GetOldentry_genderValue: String; begin result := 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; function Tosc_AddressBookBusinessProcessorRules.Getentry_companyValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_company]; end; function Tosc_AddressBookBusinessProcessorRules.GetOldentry_companyValue: String; begin result := 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; function Tosc_AddressBookBusinessProcessorRules.Getentry_firstnameValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_firstname]; end; function Tosc_AddressBookBusinessProcessorRules.GetOldentry_firstnameValue: String; begin result := 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; function Tosc_AddressBookBusinessProcessorRules.Getentry_lastnameValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_lastname]; end; function Tosc_AddressBookBusinessProcessorRules.GetOldentry_lastnameValue: String; begin result := 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; function Tosc_AddressBookBusinessProcessorRules.Getentry_street_addressValue: String; begin result := 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; procedure Tosc_AddressBookBusinessProcessorRules.Setentry_street_addressValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_street_address] := aValue; end; function Tosc_AddressBookBusinessProcessorRules.Getentry_suburbValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_suburb]; end; function Tosc_AddressBookBusinessProcessorRules.GetOldentry_suburbValue: String; begin result := 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; function Tosc_AddressBookBusinessProcessorRules.Getentry_postcodeValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_postcode]; end; function Tosc_AddressBookBusinessProcessorRules.GetOldentry_postcodeValue: String; begin result := 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; function Tosc_AddressBookBusinessProcessorRules.Getentry_cityValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_city]; end; function Tosc_AddressBookBusinessProcessorRules.GetOldentry_cityValue: String; begin result := 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; function Tosc_AddressBookBusinessProcessorRules.Getentry_stateValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_state]; end; function Tosc_AddressBookBusinessProcessorRules.GetOldentry_stateValue: String; begin result := 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; function Tosc_AddressBookBusinessProcessorRules.Getentry_country_idValue: Integer; begin result := 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; procedure Tosc_AddressBookBusinessProcessorRules.Setentry_country_idValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_country_id] := aValue; end; function Tosc_AddressBookBusinessProcessorRules.Getentry_zone_idValue: Integer; begin result := 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; procedure Tosc_AddressBookBusinessProcessorRules.Setentry_zone_idValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_zone_id] := aValue; end; function Tosc_AddressBookBusinessProcessorRules.Getentry_telephoneValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_AddressBookentry_telephone]; end; function Tosc_AddressBookBusinessProcessorRules.GetOldentry_telephoneValue: String; begin result := 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; 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.GetOldrdx_address_book_id_localValue: Integer; begin result := 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; { 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.GetOldIDValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebID]; end; procedure TTiendaWebBusinessProcessorRules.SetIDValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebID] := aValue; end; function TTiendaWebBusinessProcessorRules.GetID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebID_EMPRESA]; end; function TTiendaWebBusinessProcessorRules.GetOldID_EMPRESAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebID_EMPRESA]; end; procedure TTiendaWebBusinessProcessorRules.SetID_EMPRESAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebID_EMPRESA] := aValue; end; function TTiendaWebBusinessProcessorRules.GetTIENDA_ACTIVAValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebTIENDA_ACTIVA]; end; function TTiendaWebBusinessProcessorRules.GetOldTIENDA_ACTIVAValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebTIENDA_ACTIVA]; end; procedure TTiendaWebBusinessProcessorRules.SetTIENDA_ACTIVAValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebTIENDA_ACTIVA] := aValue; end; function TTiendaWebBusinessProcessorRules.GetBDSERVERValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDSERVER]; end; function TTiendaWebBusinessProcessorRules.GetOldBDSERVERValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebBDSERVER]; end; procedure TTiendaWebBusinessProcessorRules.SetBDSERVERValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDSERVER] := aValue; end; function TTiendaWebBusinessProcessorRules.GetBDPORTValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDPORT]; end; function TTiendaWebBusinessProcessorRules.GetOldBDPORTValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebBDPORT]; end; procedure TTiendaWebBusinessProcessorRules.SetBDPORTValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDPORT] := aValue; end; function TTiendaWebBusinessProcessorRules.GetBDNAMEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDNAME]; end; function TTiendaWebBusinessProcessorRules.GetOldBDNAMEValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebBDNAME]; end; procedure TTiendaWebBusinessProcessorRules.SetBDNAMEValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDNAME] := aValue; end; function TTiendaWebBusinessProcessorRules.GetBDUSERValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDUSER]; end; function TTiendaWebBusinessProcessorRules.GetOldBDUSERValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebBDUSER]; end; procedure TTiendaWebBusinessProcessorRules.SetBDUSERValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDUSER] := aValue; end; function TTiendaWebBusinessProcessorRules.GetBDPASSValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDPASS]; end; function TTiendaWebBusinessProcessorRules.GetOldBDPASSValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebBDPASS]; end; procedure TTiendaWebBusinessProcessorRules.SetBDPASSValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebBDPASS] := aValue; end; function TTiendaWebBusinessProcessorRules.GetULTIMA_ACTUALIZACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebULTIMA_ACTUALIZACION]; end; function TTiendaWebBusinessProcessorRules.GetOldULTIMA_ACTUALIZACIONValue: DateTime; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_TiendaWebULTIMA_ACTUALIZACION]; end; procedure TTiendaWebBusinessProcessorRules.SetULTIMA_ACTUALIZACIONValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_TiendaWebULTIMA_ACTUALIZACION] := aValue; 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.GetOldmanufacturers_idValue: Integer; begin result := 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; function Tosc_ManufacturersBusinessProcessorRules.Getmanufacturers_nameValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersmanufacturers_name]; end; function Tosc_ManufacturersBusinessProcessorRules.GetOldmanufacturers_nameValue: String; begin result := 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; function Tosc_ManufacturersBusinessProcessorRules.Getmanufacturers_imageValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersmanufacturers_image]; end; function Tosc_ManufacturersBusinessProcessorRules.GetOldmanufacturers_imageValue: String; begin result := 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; function Tosc_ManufacturersBusinessProcessorRules.Getdate_addedValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersdate_added]; end; function Tosc_ManufacturersBusinessProcessorRules.GetOlddate_addedValue: DateTime; begin result := 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; function Tosc_ManufacturersBusinessProcessorRules.Getlast_modifiedValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturerslast_modified]; end; function Tosc_ManufacturersBusinessProcessorRules.GetOldlast_modifiedValue: DateTime; begin result := 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; function Tosc_ManufacturersBusinessProcessorRules.Getrdx_manufacturers_id_localValue: Integer; begin result := 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; procedure Tosc_ManufacturersBusinessProcessorRules.Setrdx_manufacturers_id_localValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Manufacturersrdx_manufacturers_id_local] := aValue; 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.GetOldlanguages_idValue: Integer; begin result := 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; function Tosc_LanguagesBusinessProcessorRules.GetnameValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagesname]; end; function Tosc_LanguagesBusinessProcessorRules.GetOldnameValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Languagesname]; end; procedure Tosc_LanguagesBusinessProcessorRules.SetnameValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagesname] := aValue; end; function Tosc_LanguagesBusinessProcessorRules.GetcodeValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagescode]; end; function Tosc_LanguagesBusinessProcessorRules.GetOldcodeValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Languagescode]; end; procedure Tosc_LanguagesBusinessProcessorRules.SetcodeValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagescode] := aValue; end; function Tosc_LanguagesBusinessProcessorRules.GetimageValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagesimage]; end; function Tosc_LanguagesBusinessProcessorRules.GetOldimageValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Languagesimage]; end; procedure Tosc_LanguagesBusinessProcessorRules.SetimageValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagesimage] := aValue; end; function Tosc_LanguagesBusinessProcessorRules.GetdirectoryValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagesdirectory]; end; function Tosc_LanguagesBusinessProcessorRules.GetOlddirectoryValue: String; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Languagesdirectory]; end; procedure Tosc_LanguagesBusinessProcessorRules.SetdirectoryValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagesdirectory] := aValue; end; function Tosc_LanguagesBusinessProcessorRules.Getsort_orderValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Languagessort_order]; end; function Tosc_LanguagesBusinessProcessorRules.GetOldsort_orderValue: Integer; begin result := 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; { Tosc_ProductsBusinessProcessorRules } constructor Tosc_ProductsBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor Tosc_ProductsBusinessProcessorRules.Destroy; begin inherited; end; function Tosc_ProductsBusinessProcessorRules.Getproducts_idValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_id]; end; function Tosc_ProductsBusinessProcessorRules.GetOldproducts_idValue: Integer; begin result := 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; function Tosc_ProductsBusinessProcessorRules.Getproducts_nameValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_name]; end; function Tosc_ProductsBusinessProcessorRules.GetOldproducts_nameValue: String; begin result := 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; function Tosc_ProductsBusinessProcessorRules.Getproducts_descriptionValue: IROStrings; begin result := NewROStrings(); result.Text := 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; procedure Tosc_ProductsBusinessProcessorRules.Setproducts_descriptionValue(const aValue: IROStrings); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_description] := aValue.Text; end; function Tosc_ProductsBusinessProcessorRules.Getproducts_modelValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_model]; end; function Tosc_ProductsBusinessProcessorRules.GetOldproducts_modelValue: String; begin result := 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; function Tosc_ProductsBusinessProcessorRules.Getproducts_date_addedValue: DateTime; begin result := 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; procedure Tosc_ProductsBusinessProcessorRules.Setproducts_date_addedValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_date_added] := aValue; end; function Tosc_ProductsBusinessProcessorRules.Getproducts_last_modifiedValue: DateTime; begin result := 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; procedure Tosc_ProductsBusinessProcessorRules.Setproducts_last_modifiedValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_last_modified] := aValue; end; function Tosc_ProductsBusinessProcessorRules.Getproducts_statusValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsproducts_status]; end; function Tosc_ProductsBusinessProcessorRules.GetOldproducts_statusValue: Integer; begin result := 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; function Tosc_ProductsBusinessProcessorRules.Getmanufacturers_idValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsmanufacturers_id]; end; function Tosc_ProductsBusinessProcessorRules.GetOldmanufacturers_idValue: Integer; begin result := 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; function Tosc_ProductsBusinessProcessorRules.Getrdx_products_id_localValue: Integer; begin result := 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; procedure Tosc_ProductsBusinessProcessorRules.Setrdx_products_id_localValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Productsrdx_products_id_local] := aValue; end; { Tosc_OrdersBusinessProcessorRules } constructor Tosc_OrdersBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor Tosc_OrdersBusinessProcessorRules.Destroy; begin inherited; end; function Tosc_OrdersBusinessProcessorRules.Getorders_idValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersorders_id]; end; function Tosc_OrdersBusinessProcessorRules.GetOldorders_idValue: Integer; begin result := 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; function Tosc_OrdersBusinessProcessorRules.Getrdx_orders_id_localValue: Integer; begin result := 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; procedure Tosc_OrdersBusinessProcessorRules.Setrdx_orders_id_localValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_orders_id_local] := aValue; end; function Tosc_OrdersBusinessProcessorRules.Getcustomers_idValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orderscustomers_id]; end; function Tosc_OrdersBusinessProcessorRules.GetOldcustomers_idValue: Integer; begin result := 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; function Tosc_OrdersBusinessProcessorRules.Getrdx_customers_id_localValue: Integer; begin result := 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; procedure Tosc_OrdersBusinessProcessorRules.Setrdx_customers_id_localValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_customers_id_local] := aValue; end; function Tosc_OrdersBusinessProcessorRules.Getdelivery_nameValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_name]; end; function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_nameValue: String; begin result := 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; function Tosc_OrdersBusinessProcessorRules.Getdelivery_companyValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_company]; end; function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_companyValue: String; begin result := 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; function Tosc_OrdersBusinessProcessorRules.Getdelivery_street_addressValue: String; begin result := 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; procedure Tosc_OrdersBusinessProcessorRules.Setdelivery_street_addressValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_street_address] := aValue; end; function Tosc_OrdersBusinessProcessorRules.Getdelivery_suburbValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_suburb]; end; function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_suburbValue: String; begin result := 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; function Tosc_OrdersBusinessProcessorRules.Getdelivery_cityValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_city]; end; function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_cityValue: String; begin result := 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; function Tosc_OrdersBusinessProcessorRules.Getdelivery_postcodeValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_postcode]; end; function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_postcodeValue: String; begin result := 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; function Tosc_OrdersBusinessProcessorRules.Getdelivery_stateValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_state]; end; function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_stateValue: String; begin result := 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; function Tosc_OrdersBusinessProcessorRules.Getdelivery_countryValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_country]; end; function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_countryValue: String; begin result := 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; function Tosc_OrdersBusinessProcessorRules.Getdelivery_telephoneValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdelivery_telephone]; end; function Tosc_OrdersBusinessProcessorRules.GetOlddelivery_telephoneValue: String; begin result := 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; function Tosc_OrdersBusinessProcessorRules.Getlast_modifiedValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orderslast_modified]; end; function Tosc_OrdersBusinessProcessorRules.GetOldlast_modifiedValue: DateTime; begin result := 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; function Tosc_OrdersBusinessProcessorRules.Getdate_purchasedValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersdate_purchased]; end; function Tosc_OrdersBusinessProcessorRules.GetOlddate_purchasedValue: DateTime; begin result := 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; function Tosc_OrdersBusinessProcessorRules.Getorders_statusValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersorders_status]; end; function Tosc_OrdersBusinessProcessorRules.GetOldorders_statusValue: Integer; begin result := 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; function Tosc_OrdersBusinessProcessorRules.Getorders_date_finishedValue: DateTime; begin result := 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; procedure Tosc_OrdersBusinessProcessorRules.Setorders_date_finishedValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersorders_date_finished] := aValue; end; function Tosc_OrdersBusinessProcessorRules.GetcommentsValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orderscomments]; end; function Tosc_OrdersBusinessProcessorRules.GetOldcommentsValue: IROStrings; begin result := NewROStrings(); result.Text := BusinessProcessor.CurrentChange.OldValueByName[fld_osc_Orderscomments]; end; procedure Tosc_OrdersBusinessProcessorRules.SetcommentsValue(const aValue: IROStrings); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orderscomments] := aValue.Text; end; function Tosc_OrdersBusinessProcessorRules.Getrdx_ship_dateValue: DateTime; begin result := 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; procedure Tosc_OrdersBusinessProcessorRules.Setrdx_ship_dateValue(const aValue: DateTime); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_ship_date] := aValue; end; function Tosc_OrdersBusinessProcessorRules.Getrdx_referencia_clienteValue: String; begin result := 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; procedure Tosc_OrdersBusinessProcessorRules.Setrdx_referencia_clienteValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Ordersrdx_referencia_cliente] := aValue; 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.GetOldorders_products_idValue: Integer; begin result := 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; function Tosc_Orders_productsBusinessProcessorRules.Getorders_idValue: Integer; begin result := 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; procedure Tosc_Orders_productsBusinessProcessorRules.Setorders_idValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsorders_id] := aValue; end; function Tosc_Orders_productsBusinessProcessorRules.Getproducts_idValue: Integer; begin result := 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; procedure Tosc_Orders_productsBusinessProcessorRules.Setproducts_idValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_id] := aValue; 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.GetOldrdx_products_id_localValue: Integer; begin result := 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; function Tosc_Orders_productsBusinessProcessorRules.Getproducts_modelValue: String; begin result := 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; procedure Tosc_Orders_productsBusinessProcessorRules.Setproducts_modelValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_model] := aValue; end; function Tosc_Orders_productsBusinessProcessorRules.Getproducts_nameValue: String; begin result := 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; procedure Tosc_Orders_productsBusinessProcessorRules.Setproducts_nameValue(const aValue: String); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_name] := aValue; end; function Tosc_Orders_productsBusinessProcessorRules.Getproducts_priceValue: Float; begin result := 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; procedure Tosc_Orders_productsBusinessProcessorRules.Setproducts_priceValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_price] := aValue; end; function Tosc_Orders_productsBusinessProcessorRules.Getfinal_priceValue: Float; begin result := 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; procedure Tosc_Orders_productsBusinessProcessorRules.Setfinal_priceValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsfinal_price] := aValue; end; function Tosc_Orders_productsBusinessProcessorRules.Getproducts_taxValue: Float; begin result := 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; procedure Tosc_Orders_productsBusinessProcessorRules.Setproducts_taxValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_tax] := aValue; end; function Tosc_Orders_productsBusinessProcessorRules.Getproducts_quantityValue: Integer; begin result := 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; procedure Tosc_Orders_productsBusinessProcessorRules.Setproducts_quantityValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_productsproducts_quantity] := aValue; end; { Tosc_Orders_status_historyBusinessProcessorRules } constructor Tosc_Orders_status_historyBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); begin inherited; end; destructor Tosc_Orders_status_historyBusinessProcessorRules.Destroy; begin inherited; 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.GetOldorders_status_history_idValue: Integer; begin result := 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; 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.GetOldorders_idValue: Integer; begin result := 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; 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.GetOldrdx_orders_id_localValue: Integer; begin result := 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; 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.GetOldorders_status_idValue: Integer; begin result := 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; 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.GetOlddate_addedValue: DateTime; begin result := 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; 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.GetOldcustomer_notifiedValue: Integer; begin result := 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; function Tosc_Orders_status_historyBusinessProcessorRules.GetcommentsValue: IROStrings; begin result := NewROStrings(); result.Text := 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; procedure Tosc_Orders_status_historyBusinessProcessorRules.SetcommentsValue(const aValue: IROStrings); begin BusinessProcessor.CurrentChange.NewValueByName[fld_osc_Orders_status_historycomments] := aValue.Text; 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.