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 = '{945EB856-EF1D-43B8-89AE-AFC22AC65CD3}'; RID_GetLastIDDelta = '{AC7FE54B-F3C0-47BF-879A-1C19027582EF}'; RID_osc_AddressBookDelta = '{CDAEEC73-F306-4F8C-AF79-3F59996A75D9}'; RID_TiendaWebDelta = '{B6D29BA0-2F50-40DD-8998-DEECCA26F87F}'; RID_osc_ManufacturersDelta = '{EE961455-F8CD-4CC4-AA9C-12E706A1277B}'; RID_osc_LanguagesDelta = '{401FEC3A-36EC-4C40-A6A1-5ABB82B89652}'; RID_osc_ProductsDelta = '{FFA5FD13-2C91-4EFA-9B50-9FC78AD81C06}'; type { Iosc_CustomersDelta } Iosc_CustomersDelta = interface(Iosc_Customers) ['{945EB856-EF1D-43B8-89AE-AFC22AC65CD3}'] { 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) ['{AC7FE54B-F3C0-47BF-879A-1C19027582EF}'] { 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) ['{CDAEEC73-F306-4F8C-AF79-3F59996A75D9}'] { 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 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 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 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 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) ['{B6D29BA0-2F50-40DD-8998-DEECCA26F87F}'] { 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) ['{EE961455-F8CD-4CC4-AA9C-12E706A1277B}'] { 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) ['{401FEC3A-36EC-4C40-A6A1-5ABB82B89652}'] { 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) ['{FFA5FD13-2C91-4EFA-9B50-9FC78AD81C06}'] { 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; 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.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; 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); end.