unit schTiendaWebClient_Intf; interface uses Classes, DB, SysUtils, uROClasses, uDADataTable; const { Data table 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_Customers = '{D907F58C-4397-43E3-9EE9-9CBC3A760706}'; RID_GetLastID = '{61FA2878-9303-4119-AE4F-94F6C1635542}'; RID_osc_AddressBook = '{38491B85-2BD8-4346-9C41-917DC80FEAA7}'; RID_TiendaWeb = '{682E3959-F1E8-40B0-A26C-C81829E242C7}'; RID_osc_Manufacturers = '{E146D9B9-DE08-4878-80ED-D9A407F5845E}'; RID_osc_Languages = '{123A8EC4-CD82-4905-8130-2413554B3FF9}'; RID_osc_Products = '{1DE085E5-4487-420D-B131-FFE8DC4CD558}'; { Data table names } nme_osc_Customers = 'osc_Customers'; nme_GetLastID = 'GetLastID'; nme_osc_AddressBook = 'osc_AddressBook'; nme_TiendaWeb = 'TiendaWeb'; nme_osc_Manufacturers = 'osc_Manufacturers'; nme_osc_Languages = 'osc_Languages'; nme_osc_Products = 'osc_Products'; { osc_Customers fields } fld_osc_Customerscustomers_id = 'customers_id'; fld_osc_Customerscustomers_firstname = 'customers_firstname'; fld_osc_Customerscustomers_lastname = 'customers_lastname'; fld_osc_Customerscustomers_email_address = 'customers_email_address'; fld_osc_Customerscustomers_default_address_id = 'customers_default_address_id'; fld_osc_Customerscustomers_telephone = 'customers_telephone'; fld_osc_Customerscustomers_fax = 'customers_fax'; fld_osc_Customerscustomers_password = 'customers_password'; fld_osc_Customersrdx_customers_id_local = 'rdx_customers_id_local'; fld_osc_Customersdate_account_created = 'date_account_created'; fld_osc_Customersdate_account_last_modified = 'date_account_last_modified'; { osc_Customers field indexes } idx_osc_Customerscustomers_id = 0; idx_osc_Customerscustomers_firstname = 1; idx_osc_Customerscustomers_lastname = 2; idx_osc_Customerscustomers_email_address = 3; idx_osc_Customerscustomers_default_address_id = 4; idx_osc_Customerscustomers_telephone = 5; idx_osc_Customerscustomers_fax = 6; idx_osc_Customerscustomers_password = 7; idx_osc_Customersrdx_customers_id_local = 8; idx_osc_Customersdate_account_created = 9; idx_osc_Customersdate_account_last_modified = 10; { GetLastID fields } fld_GetLastIDlast_id = 'last_id'; { GetLastID field indexes } idx_GetLastIDlast_id = 0; { osc_AddressBook fields } fld_osc_AddressBookaddress_book_id = 'address_book_id'; fld_osc_AddressBookcustomers_id = 'customers_id'; fld_osc_AddressBookentry_gender = 'entry_gender'; fld_osc_AddressBookentry_company = 'entry_company'; fld_osc_AddressBookentry_firstname = 'entry_firstname'; fld_osc_AddressBookentry_lastname = 'entry_lastname'; fld_osc_AddressBookentry_street_address = 'entry_street_address'; fld_osc_AddressBookentry_suburb = 'entry_suburb'; fld_osc_AddressBookentry_postcode = 'entry_postcode'; fld_osc_AddressBookentry_city = 'entry_city'; fld_osc_AddressBookentry_state = 'entry_state'; fld_osc_AddressBookentry_country_id = 'entry_country_id'; fld_osc_AddressBookentry_zone_id = 'entry_zone_id'; fld_osc_AddressBookrdx_address_book_id_local = 'rdx_address_book_id_local'; { osc_AddressBook field indexes } idx_osc_AddressBookaddress_book_id = 0; idx_osc_AddressBookcustomers_id = 1; idx_osc_AddressBookentry_gender = 2; idx_osc_AddressBookentry_company = 3; idx_osc_AddressBookentry_firstname = 4; idx_osc_AddressBookentry_lastname = 5; idx_osc_AddressBookentry_street_address = 6; idx_osc_AddressBookentry_suburb = 7; idx_osc_AddressBookentry_postcode = 8; idx_osc_AddressBookentry_city = 9; idx_osc_AddressBookentry_state = 10; idx_osc_AddressBookentry_country_id = 11; idx_osc_AddressBookentry_zone_id = 12; idx_osc_AddressBookrdx_address_book_id_local = 13; { TiendaWeb fields } fld_TiendaWebID = 'ID'; fld_TiendaWebID_EMPRESA = 'ID_EMPRESA'; fld_TiendaWebTIENDA_ACTIVA = 'TIENDA_ACTIVA'; fld_TiendaWebBDSERVER = 'BDSERVER'; fld_TiendaWebBDPORT = 'BDPORT'; fld_TiendaWebBDNAME = 'BDNAME'; fld_TiendaWebBDUSER = 'BDUSER'; fld_TiendaWebBDPASS = 'BDPASS'; fld_TiendaWebULTIMA_ACTUALIZACION = 'ULTIMA_ACTUALIZACION'; { TiendaWeb field indexes } idx_TiendaWebID = 0; idx_TiendaWebID_EMPRESA = 1; idx_TiendaWebTIENDA_ACTIVA = 2; idx_TiendaWebBDSERVER = 3; idx_TiendaWebBDPORT = 4; idx_TiendaWebBDNAME = 5; idx_TiendaWebBDUSER = 6; idx_TiendaWebBDPASS = 7; idx_TiendaWebULTIMA_ACTUALIZACION = 8; { osc_Manufacturers fields } fld_osc_Manufacturersmanufacturers_id = 'manufacturers_id'; fld_osc_Manufacturersmanufacturers_name = 'manufacturers_name'; fld_osc_Manufacturersmanufacturers_image = 'manufacturers_image'; fld_osc_Manufacturersdate_added = 'date_added'; fld_osc_Manufacturerslast_modified = 'last_modified'; fld_osc_Manufacturersrdx_manufacturers_id_local = 'rdx_manufacturers_id_local'; { osc_Manufacturers field indexes } idx_osc_Manufacturersmanufacturers_id = 0; idx_osc_Manufacturersmanufacturers_name = 1; idx_osc_Manufacturersmanufacturers_image = 2; idx_osc_Manufacturersdate_added = 3; idx_osc_Manufacturerslast_modified = 4; idx_osc_Manufacturersrdx_manufacturers_id_local = 5; { osc_Languages fields } fld_osc_Languageslanguages_id = 'languages_id'; fld_osc_Languagesname = 'name'; fld_osc_Languagescode = 'code'; fld_osc_Languagesimage = 'image'; fld_osc_Languagesdirectory = 'directory'; fld_osc_Languagessort_order = 'sort_order'; { osc_Languages field indexes } idx_osc_Languageslanguages_id = 0; idx_osc_Languagesname = 1; idx_osc_Languagescode = 2; idx_osc_Languagesimage = 3; idx_osc_Languagesdirectory = 4; idx_osc_Languagessort_order = 5; { osc_Products fields } fld_osc_Productsproducts_id = 'products_id'; fld_osc_Productsproducts_name = 'products_name'; fld_osc_Productsproducts_description = 'products_description'; fld_osc_Productsproducts_model = 'products_model'; fld_osc_Productsproducts_date_added = 'products_date_added'; fld_osc_Productsproducts_last_modified = 'products_last_modified'; fld_osc_Productsproducts_status = 'products_status'; fld_osc_Productsmanufacturers_id = 'manufacturers_id'; fld_osc_Productsrdx_products_id_local = 'rdx_products_id_local'; { osc_Products field indexes } idx_osc_Productsproducts_id = 0; idx_osc_Productsproducts_name = 1; idx_osc_Productsproducts_description = 2; idx_osc_Productsproducts_model = 3; idx_osc_Productsproducts_date_added = 4; idx_osc_Productsproducts_last_modified = 5; idx_osc_Productsproducts_status = 6; idx_osc_Productsmanufacturers_id = 7; idx_osc_Productsrdx_products_id_local = 8; type { Iosc_Customers } Iosc_Customers = interface(IDAStronglyTypedDataTable) ['{AB9F998B-86C3-4864-873E-F487D0A2432C}'] { Property getters and setters } function Getcustomers_idValue: Integer; procedure Setcustomers_idValue(const aValue: Integer); function Getcustomers_firstnameValue: String; procedure Setcustomers_firstnameValue(const aValue: String); function Getcustomers_lastnameValue: String; procedure Setcustomers_lastnameValue(const aValue: String); function Getcustomers_email_addressValue: String; procedure Setcustomers_email_addressValue(const aValue: String); function Getcustomers_default_address_idValue: Integer; procedure Setcustomers_default_address_idValue(const aValue: Integer); function Getcustomers_telephoneValue: String; procedure Setcustomers_telephoneValue(const aValue: String); function Getcustomers_faxValue: String; procedure Setcustomers_faxValue(const aValue: String); function Getcustomers_passwordValue: String; procedure Setcustomers_passwordValue(const aValue: String); function Getrdx_customers_id_localValue: Integer; procedure Setrdx_customers_id_localValue(const aValue: Integer); function Getdate_account_createdValue: DateTime; procedure Setdate_account_createdValue(const aValue: DateTime); function Getdate_account_last_modifiedValue: DateTime; procedure Setdate_account_last_modifiedValue(const aValue: DateTime); { Properties } property customers_id: Integer read Getcustomers_idValue write Setcustomers_idValue; property customers_firstname: String read Getcustomers_firstnameValue write Setcustomers_firstnameValue; property customers_lastname: String read Getcustomers_lastnameValue write Setcustomers_lastnameValue; property customers_email_address: String read Getcustomers_email_addressValue write Setcustomers_email_addressValue; property customers_default_address_id: Integer read Getcustomers_default_address_idValue write Setcustomers_default_address_idValue; property customers_telephone: String read Getcustomers_telephoneValue write Setcustomers_telephoneValue; property customers_fax: String read Getcustomers_faxValue write Setcustomers_faxValue; property customers_password: String read Getcustomers_passwordValue write Setcustomers_passwordValue; property rdx_customers_id_local: Integer read Getrdx_customers_id_localValue write Setrdx_customers_id_localValue; property date_account_created: DateTime read Getdate_account_createdValue write Setdate_account_createdValue; property date_account_last_modified: DateTime read Getdate_account_last_modifiedValue write Setdate_account_last_modifiedValue; end; { Tosc_CustomersDataTableRules } Tosc_CustomersDataTableRules = class(TDADataTableRules, Iosc_Customers) private protected { Property getters and setters } function Getcustomers_idValue: Integer; virtual; procedure Setcustomers_idValue(const aValue: Integer); virtual; function Getcustomers_firstnameValue: String; virtual; procedure Setcustomers_firstnameValue(const aValue: String); virtual; function Getcustomers_lastnameValue: String; virtual; procedure Setcustomers_lastnameValue(const aValue: String); virtual; function Getcustomers_email_addressValue: String; virtual; procedure Setcustomers_email_addressValue(const aValue: String); virtual; function Getcustomers_default_address_idValue: Integer; virtual; procedure Setcustomers_default_address_idValue(const aValue: Integer); virtual; function Getcustomers_telephoneValue: String; virtual; procedure Setcustomers_telephoneValue(const aValue: String); virtual; function Getcustomers_faxValue: String; virtual; procedure Setcustomers_faxValue(const aValue: String); virtual; function Getcustomers_passwordValue: String; virtual; procedure Setcustomers_passwordValue(const aValue: String); virtual; function Getrdx_customers_id_localValue: Integer; virtual; procedure Setrdx_customers_id_localValue(const aValue: Integer); virtual; function Getdate_account_createdValue: DateTime; virtual; procedure Setdate_account_createdValue(const aValue: DateTime); virtual; function Getdate_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 customers_firstname: String read Getcustomers_firstnameValue write Setcustomers_firstnameValue; property customers_lastname: String read Getcustomers_lastnameValue write Setcustomers_lastnameValue; property customers_email_address: String read Getcustomers_email_addressValue write Setcustomers_email_addressValue; property customers_default_address_id: Integer read Getcustomers_default_address_idValue write Setcustomers_default_address_idValue; property customers_telephone: String read Getcustomers_telephoneValue write Setcustomers_telephoneValue; property customers_fax: String read Getcustomers_faxValue write Setcustomers_faxValue; property customers_password: String read Getcustomers_passwordValue write Setcustomers_passwordValue; property rdx_customers_id_local: Integer read Getrdx_customers_id_localValue write Setrdx_customers_id_localValue; property date_account_created: DateTime read Getdate_account_createdValue write Setdate_account_createdValue; property date_account_last_modified: DateTime read Getdate_account_last_modifiedValue write Setdate_account_last_modifiedValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { IGetLastID } IGetLastID = interface(IDAStronglyTypedDataTable) ['{4EDA8E49-8D49-4182-82C5-A40FD9B30906}'] { Property getters and setters } function Getlast_idValue: Integer; procedure Setlast_idValue(const aValue: Integer); { Properties } property last_id: Integer read Getlast_idValue write Setlast_idValue; end; { TGetLastIDDataTableRules } TGetLastIDDataTableRules = class(TDADataTableRules, IGetLastID) private protected { Property getters and setters } function Getlast_idValue: Integer; virtual; procedure Setlast_idValue(const aValue: Integer); virtual; { Properties } property last_id: Integer read Getlast_idValue write Setlast_idValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { Iosc_AddressBook } Iosc_AddressBook = interface(IDAStronglyTypedDataTable) ['{897536FB-43F7-493A-9F9E-FE024C37E4C6}'] { Property getters and setters } function Getaddress_book_idValue: Integer; procedure Setaddress_book_idValue(const aValue: Integer); function Getcustomers_idValue: Integer; procedure Setcustomers_idValue(const aValue: Integer); function Getentry_genderValue: String; procedure Setentry_genderValue(const aValue: String); function Getentry_companyValue: String; procedure Setentry_companyValue(const aValue: String); function Getentry_firstnameValue: String; procedure Setentry_firstnameValue(const aValue: String); function Getentry_lastnameValue: String; procedure Setentry_lastnameValue(const aValue: String); function Getentry_street_addressValue: String; procedure Setentry_street_addressValue(const aValue: String); function Getentry_suburbValue: String; procedure Setentry_suburbValue(const aValue: String); function Getentry_postcodeValue: String; procedure Setentry_postcodeValue(const aValue: String); function Getentry_cityValue: String; procedure Setentry_cityValue(const aValue: String); function Getentry_stateValue: String; procedure Setentry_stateValue(const aValue: String); function Getentry_country_idValue: Integer; procedure Setentry_country_idValue(const aValue: Integer); function Getentry_zone_idValue: Integer; procedure Setentry_zone_idValue(const aValue: Integer); function Getrdx_address_book_id_localValue: Integer; procedure Setrdx_address_book_id_localValue(const aValue: Integer); { Properties } property address_book_id: Integer read Getaddress_book_idValue write Setaddress_book_idValue; property customers_id: Integer read Getcustomers_idValue write Setcustomers_idValue; property entry_gender: String read Getentry_genderValue write Setentry_genderValue; property entry_company: String read Getentry_companyValue write Setentry_companyValue; property entry_firstname: String read Getentry_firstnameValue write Setentry_firstnameValue; property entry_lastname: String read Getentry_lastnameValue write Setentry_lastnameValue; property entry_street_address: String read Getentry_street_addressValue write Setentry_street_addressValue; property entry_suburb: String read Getentry_suburbValue write Setentry_suburbValue; property entry_postcode: String read Getentry_postcodeValue write Setentry_postcodeValue; property entry_city: String read Getentry_cityValue write Setentry_cityValue; property entry_state: String read Getentry_stateValue write Setentry_stateValue; property entry_country_id: Integer read Getentry_country_idValue write Setentry_country_idValue; property entry_zone_id: Integer read Getentry_zone_idValue write Setentry_zone_idValue; property rdx_address_book_id_local: Integer read Getrdx_address_book_id_localValue write Setrdx_address_book_id_localValue; end; { Tosc_AddressBookDataTableRules } Tosc_AddressBookDataTableRules = class(TDADataTableRules, Iosc_AddressBook) private protected { Property getters and setters } function Getaddress_book_idValue: Integer; virtual; procedure Setaddress_book_idValue(const aValue: Integer); virtual; function Getcustomers_idValue: Integer; virtual; procedure Setcustomers_idValue(const aValue: Integer); virtual; function Getentry_genderValue: String; virtual; procedure Setentry_genderValue(const aValue: String); virtual; function Getentry_companyValue: String; virtual; procedure Setentry_companyValue(const aValue: String); virtual; function Getentry_firstnameValue: String; virtual; procedure Setentry_firstnameValue(const aValue: String); virtual; function Getentry_lastnameValue: String; virtual; procedure Setentry_lastnameValue(const aValue: String); virtual; function Getentry_street_addressValue: String; virtual; procedure Setentry_street_addressValue(const aValue: String); virtual; function Getentry_suburbValue: String; virtual; procedure Setentry_suburbValue(const aValue: String); virtual; function Getentry_postcodeValue: String; virtual; procedure Setentry_postcodeValue(const aValue: String); virtual; function Getentry_cityValue: String; virtual; procedure Setentry_cityValue(const aValue: String); virtual; function Getentry_stateValue: String; virtual; procedure Setentry_stateValue(const aValue: String); virtual; function Getentry_country_idValue: Integer; virtual; procedure Setentry_country_idValue(const aValue: Integer); virtual; function Getentry_zone_idValue: Integer; virtual; procedure Setentry_zone_idValue(const aValue: Integer); virtual; function Getrdx_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 customers_id: Integer read Getcustomers_idValue write Setcustomers_idValue; property entry_gender: String read Getentry_genderValue write Setentry_genderValue; property entry_company: String read Getentry_companyValue write Setentry_companyValue; property entry_firstname: String read Getentry_firstnameValue write Setentry_firstnameValue; property entry_lastname: String read Getentry_lastnameValue write Setentry_lastnameValue; property entry_street_address: String read Getentry_street_addressValue write Setentry_street_addressValue; property entry_suburb: String read Getentry_suburbValue write Setentry_suburbValue; property entry_postcode: String read Getentry_postcodeValue write Setentry_postcodeValue; property entry_city: String read Getentry_cityValue write Setentry_cityValue; property entry_state: String read Getentry_stateValue write Setentry_stateValue; property entry_country_id: Integer read Getentry_country_idValue write Setentry_country_idValue; property entry_zone_id: Integer read Getentry_zone_idValue write Setentry_zone_idValue; property rdx_address_book_id_local: Integer read Getrdx_address_book_id_localValue write Setrdx_address_book_id_localValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { ITiendaWeb } ITiendaWeb = interface(IDAStronglyTypedDataTable) ['{213C4A06-27C5-41F5-8776-D5D2F73E14FB}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); function GetID_EMPRESAValue: Integer; procedure SetID_EMPRESAValue(const aValue: Integer); function GetTIENDA_ACTIVAValue: Integer; procedure SetTIENDA_ACTIVAValue(const aValue: Integer); function GetBDSERVERValue: String; procedure SetBDSERVERValue(const aValue: String); function GetBDPORTValue: String; procedure SetBDPORTValue(const aValue: String); function GetBDNAMEValue: String; procedure SetBDNAMEValue(const aValue: String); function GetBDUSERValue: String; procedure SetBDUSERValue(const aValue: String); function GetBDPASSValue: String; procedure SetBDPASSValue(const aValue: String); function GetULTIMA_ACTUALIZACIONValue: DateTime; procedure SetULTIMA_ACTUALIZACIONValue(const aValue: DateTime); { Properties } property ID: Integer read GetIDValue write SetIDValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property TIENDA_ACTIVA: Integer read GetTIENDA_ACTIVAValue write SetTIENDA_ACTIVAValue; property BDSERVER: String read GetBDSERVERValue write SetBDSERVERValue; property BDPORT: String read GetBDPORTValue write SetBDPORTValue; property BDNAME: String read GetBDNAMEValue write SetBDNAMEValue; property BDUSER: String read GetBDUSERValue write SetBDUSERValue; property BDPASS: String read GetBDPASSValue write SetBDPASSValue; property ULTIMA_ACTUALIZACION: DateTime read GetULTIMA_ACTUALIZACIONValue write SetULTIMA_ACTUALIZACIONValue; end; { TTiendaWebDataTableRules } TTiendaWebDataTableRules = class(TDADataTableRules, ITiendaWeb) private protected { Property getters and setters } function GetIDValue: Integer; virtual; procedure SetIDValue(const aValue: Integer); virtual; function GetID_EMPRESAValue: Integer; virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetTIENDA_ACTIVAValue: Integer; virtual; procedure SetTIENDA_ACTIVAValue(const aValue: Integer); virtual; function GetBDSERVERValue: String; virtual; procedure SetBDSERVERValue(const aValue: String); virtual; function GetBDPORTValue: String; virtual; procedure SetBDPORTValue(const aValue: String); virtual; function GetBDNAMEValue: String; virtual; procedure SetBDNAMEValue(const aValue: String); virtual; function GetBDUSERValue: String; virtual; procedure SetBDUSERValue(const aValue: String); virtual; function GetBDPASSValue: String; virtual; procedure SetBDPASSValue(const aValue: String); virtual; function GetULTIMA_ACTUALIZACIONValue: DateTime; virtual; procedure SetULTIMA_ACTUALIZACIONValue(const aValue: DateTime); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property TIENDA_ACTIVA: Integer read GetTIENDA_ACTIVAValue write SetTIENDA_ACTIVAValue; property BDSERVER: String read GetBDSERVERValue write SetBDSERVERValue; property BDPORT: String read GetBDPORTValue write SetBDPORTValue; property BDNAME: String read GetBDNAMEValue write SetBDNAMEValue; property BDUSER: String read GetBDUSERValue write SetBDUSERValue; property BDPASS: String read GetBDPASSValue write SetBDPASSValue; property ULTIMA_ACTUALIZACION: DateTime read GetULTIMA_ACTUALIZACIONValue write SetULTIMA_ACTUALIZACIONValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { Iosc_Manufacturers } Iosc_Manufacturers = interface(IDAStronglyTypedDataTable) ['{05FB836F-BB50-4E49-8351-1F6A9031701A}'] { Property getters and setters } function Getmanufacturers_idValue: Integer; procedure Setmanufacturers_idValue(const aValue: Integer); function Getmanufacturers_nameValue: String; procedure Setmanufacturers_nameValue(const aValue: String); function Getmanufacturers_imageValue: String; procedure Setmanufacturers_imageValue(const aValue: String); function Getdate_addedValue: DateTime; procedure Setdate_addedValue(const aValue: DateTime); function Getlast_modifiedValue: DateTime; procedure Setlast_modifiedValue(const aValue: DateTime); function Getrdx_manufacturers_id_localValue: Integer; procedure Setrdx_manufacturers_id_localValue(const aValue: Integer); { Properties } property manufacturers_id: Integer read Getmanufacturers_idValue write Setmanufacturers_idValue; property manufacturers_name: String read Getmanufacturers_nameValue write Setmanufacturers_nameValue; property manufacturers_image: String read Getmanufacturers_imageValue write Setmanufacturers_imageValue; property date_added: DateTime read Getdate_addedValue write Setdate_addedValue; property last_modified: DateTime read Getlast_modifiedValue write Setlast_modifiedValue; property rdx_manufacturers_id_local: Integer read Getrdx_manufacturers_id_localValue write Setrdx_manufacturers_id_localValue; end; { Tosc_ManufacturersDataTableRules } Tosc_ManufacturersDataTableRules = class(TDADataTableRules, Iosc_Manufacturers) private protected { Property getters and setters } function Getmanufacturers_idValue: Integer; virtual; procedure Setmanufacturers_idValue(const aValue: Integer); virtual; function Getmanufacturers_nameValue: String; virtual; procedure Setmanufacturers_nameValue(const aValue: String); virtual; function Getmanufacturers_imageValue: String; virtual; procedure Setmanufacturers_imageValue(const aValue: String); virtual; function Getdate_addedValue: DateTime; virtual; procedure Setdate_addedValue(const aValue: DateTime); virtual; function Getlast_modifiedValue: DateTime; virtual; procedure Setlast_modifiedValue(const aValue: DateTime); virtual; function Getrdx_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 manufacturers_name: String read Getmanufacturers_nameValue write Setmanufacturers_nameValue; property manufacturers_image: String read Getmanufacturers_imageValue write Setmanufacturers_imageValue; property date_added: DateTime read Getdate_addedValue write Setdate_addedValue; property last_modified: DateTime read Getlast_modifiedValue write Setlast_modifiedValue; property rdx_manufacturers_id_local: Integer read Getrdx_manufacturers_id_localValue write Setrdx_manufacturers_id_localValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { Esta tabla es sólo de consulta } { Iosc_Languages } Iosc_Languages = interface(IDAStronglyTypedDataTable) ['{9D2EF380-0B25-4F3A-AA05-ADD4B5755BC6}'] { Property getters and setters } function Getlanguages_idValue: Integer; procedure Setlanguages_idValue(const aValue: Integer); function GetnameValue: String; procedure SetnameValue(const aValue: String); function GetcodeValue: String; procedure SetcodeValue(const aValue: String); function GetimageValue: String; procedure SetimageValue(const aValue: String); function GetdirectoryValue: String; procedure SetdirectoryValue(const aValue: String); function Getsort_orderValue: Integer; procedure Setsort_orderValue(const aValue: Integer); { Properties } property languages_id: Integer read Getlanguages_idValue write Setlanguages_idValue; property name: String read GetnameValue write SetnameValue; property code: String read GetcodeValue write SetcodeValue; property image: String read GetimageValue write SetimageValue; property directory: String read GetdirectoryValue write SetdirectoryValue; property sort_order: Integer read Getsort_orderValue write Setsort_orderValue; end; { Tosc_LanguagesDataTableRules } Tosc_LanguagesDataTableRules = class(TDADataTableRules, Iosc_Languages) private protected { Property getters and setters } function Getlanguages_idValue: Integer; virtual; procedure Setlanguages_idValue(const aValue: Integer); virtual; function GetnameValue: String; virtual; procedure SetnameValue(const aValue: String); virtual; function GetcodeValue: String; virtual; procedure SetcodeValue(const aValue: String); virtual; function GetimageValue: String; virtual; procedure SetimageValue(const aValue: String); virtual; function GetdirectoryValue: String; virtual; procedure SetdirectoryValue(const aValue: String); virtual; function Getsort_orderValue: Integer; virtual; procedure Setsort_orderValue(const aValue: Integer); virtual; { Properties } property languages_id: Integer read Getlanguages_idValue write Setlanguages_idValue; property name: String read GetnameValue write SetnameValue; property code: String read GetcodeValue write SetcodeValue; property image: String read GetimageValue write SetimageValue; property directory: String read GetdirectoryValue write SetdirectoryValue; property sort_order: Integer read Getsort_orderValue write Setsort_orderValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; { Iosc_Products } Iosc_Products = interface(IDAStronglyTypedDataTable) ['{6FBD29F0-2D04-4B5A-8756-BA327D294139}'] { Property getters and setters } function Getproducts_idValue: Integer; procedure Setproducts_idValue(const aValue: Integer); function Getproducts_nameValue: String; procedure Setproducts_nameValue(const aValue: String); function Getproducts_descriptionValue: IROStrings; procedure Setproducts_descriptionValue(const aValue: IROStrings); function Getproducts_modelValue: String; procedure Setproducts_modelValue(const aValue: String); function Getproducts_date_addedValue: DateTime; procedure Setproducts_date_addedValue(const aValue: DateTime); function Getproducts_last_modifiedValue: DateTime; procedure Setproducts_last_modifiedValue(const aValue: DateTime); function Getproducts_statusValue: Integer; procedure Setproducts_statusValue(const aValue: Integer); function Getmanufacturers_idValue: Integer; procedure Setmanufacturers_idValue(const aValue: Integer); function Getrdx_products_id_localValue: Integer; procedure Setrdx_products_id_localValue(const aValue: Integer); { Properties } property products_id: Integer read Getproducts_idValue write Setproducts_idValue; property products_name: String read Getproducts_nameValue write Setproducts_nameValue; property products_description: IROStrings read Getproducts_descriptionValue write Setproducts_descriptionValue; property products_model: String read Getproducts_modelValue write Setproducts_modelValue; property products_date_added: DateTime read Getproducts_date_addedValue write Setproducts_date_addedValue; property products_last_modified: DateTime read Getproducts_last_modifiedValue write Setproducts_last_modifiedValue; property products_status: Integer read Getproducts_statusValue write Setproducts_statusValue; property manufacturers_id: Integer read Getmanufacturers_idValue write Setmanufacturers_idValue; property rdx_products_id_local: Integer read Getrdx_products_id_localValue write Setrdx_products_id_localValue; end; { Tosc_ProductsDataTableRules } Tosc_ProductsDataTableRules = class(TDADataTableRules, Iosc_Products) private protected { Property getters and setters } function Getproducts_idValue: Integer; virtual; procedure Setproducts_idValue(const aValue: Integer); virtual; function Getproducts_nameValue: String; virtual; procedure Setproducts_nameValue(const aValue: String); virtual; function Getproducts_descriptionValue: IROStrings; virtual; procedure Setproducts_descriptionValue(const aValue: IROStrings); virtual; function Getproducts_modelValue: String; virtual; procedure Setproducts_modelValue(const aValue: String); virtual; function Getproducts_date_addedValue: DateTime; virtual; procedure Setproducts_date_addedValue(const aValue: DateTime); virtual; function Getproducts_last_modifiedValue: DateTime; virtual; procedure Setproducts_last_modifiedValue(const aValue: DateTime); virtual; function Getproducts_statusValue: Integer; virtual; procedure Setproducts_statusValue(const aValue: Integer); virtual; function Getmanufacturers_idValue: Integer; virtual; procedure Setmanufacturers_idValue(const aValue: Integer); virtual; function Getrdx_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 products_name: String read Getproducts_nameValue write Setproducts_nameValue; property products_description: IROStrings read Getproducts_descriptionValue write Setproducts_descriptionValue; property products_model: String read Getproducts_modelValue write Setproducts_modelValue; property products_date_added: DateTime read Getproducts_date_addedValue write Setproducts_date_addedValue; property products_last_modified: DateTime read Getproducts_last_modifiedValue write Setproducts_last_modifiedValue; property products_status: Integer read Getproducts_statusValue write Setproducts_statusValue; property manufacturers_id: Integer read Getmanufacturers_idValue write Setmanufacturers_idValue; property rdx_products_id_local: Integer read Getrdx_products_id_localValue write Setrdx_products_id_localValue; public constructor Create(aDataTable: TDADataTable); override; destructor Destroy; override; end; implementation uses Variants; { Tosc_CustomersDataTableRules } constructor Tosc_CustomersDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor Tosc_CustomersDataTableRules.Destroy; begin inherited; end; function Tosc_CustomersDataTableRules.Getcustomers_idValue: Integer; begin result := DataTable.Fields[idx_osc_Customerscustomers_id].AsInteger; end; procedure Tosc_CustomersDataTableRules.Setcustomers_idValue(const aValue: Integer); begin DataTable.Fields[idx_osc_Customerscustomers_id].AsInteger := aValue; end; function Tosc_CustomersDataTableRules.Getcustomers_firstnameValue: String; begin result := DataTable.Fields[idx_osc_Customerscustomers_firstname].AsString; end; procedure Tosc_CustomersDataTableRules.Setcustomers_firstnameValue(const aValue: String); begin DataTable.Fields[idx_osc_Customerscustomers_firstname].AsString := aValue; end; function Tosc_CustomersDataTableRules.Getcustomers_lastnameValue: String; begin result := DataTable.Fields[idx_osc_Customerscustomers_lastname].AsString; end; procedure Tosc_CustomersDataTableRules.Setcustomers_lastnameValue(const aValue: String); begin DataTable.Fields[idx_osc_Customerscustomers_lastname].AsString := aValue; end; function Tosc_CustomersDataTableRules.Getcustomers_email_addressValue: String; begin result := DataTable.Fields[idx_osc_Customerscustomers_email_address].AsString; end; procedure Tosc_CustomersDataTableRules.Setcustomers_email_addressValue(const aValue: String); begin DataTable.Fields[idx_osc_Customerscustomers_email_address].AsString := aValue; end; function Tosc_CustomersDataTableRules.Getcustomers_default_address_idValue: Integer; begin result := DataTable.Fields[idx_osc_Customerscustomers_default_address_id].AsInteger; end; procedure Tosc_CustomersDataTableRules.Setcustomers_default_address_idValue(const aValue: Integer); begin DataTable.Fields[idx_osc_Customerscustomers_default_address_id].AsInteger := aValue; end; function Tosc_CustomersDataTableRules.Getcustomers_telephoneValue: String; begin result := DataTable.Fields[idx_osc_Customerscustomers_telephone].AsString; end; procedure Tosc_CustomersDataTableRules.Setcustomers_telephoneValue(const aValue: String); begin DataTable.Fields[idx_osc_Customerscustomers_telephone].AsString := aValue; end; function Tosc_CustomersDataTableRules.Getcustomers_faxValue: String; begin result := DataTable.Fields[idx_osc_Customerscustomers_fax].AsString; end; procedure Tosc_CustomersDataTableRules.Setcustomers_faxValue(const aValue: String); begin DataTable.Fields[idx_osc_Customerscustomers_fax].AsString := aValue; end; function Tosc_CustomersDataTableRules.Getcustomers_passwordValue: String; begin result := DataTable.Fields[idx_osc_Customerscustomers_password].AsString; end; procedure Tosc_CustomersDataTableRules.Setcustomers_passwordValue(const aValue: String); begin DataTable.Fields[idx_osc_Customerscustomers_password].AsString := aValue; end; function Tosc_CustomersDataTableRules.Getrdx_customers_id_localValue: Integer; begin result := DataTable.Fields[idx_osc_Customersrdx_customers_id_local].AsInteger; end; procedure Tosc_CustomersDataTableRules.Setrdx_customers_id_localValue(const aValue: Integer); begin DataTable.Fields[idx_osc_Customersrdx_customers_id_local].AsInteger := aValue; end; function Tosc_CustomersDataTableRules.Getdate_account_createdValue: DateTime; begin result := DataTable.Fields[idx_osc_Customersdate_account_created].AsDateTime; end; procedure Tosc_CustomersDataTableRules.Setdate_account_createdValue(const aValue: DateTime); begin DataTable.Fields[idx_osc_Customersdate_account_created].AsDateTime := aValue; end; function Tosc_CustomersDataTableRules.Getdate_account_last_modifiedValue: DateTime; begin result := DataTable.Fields[idx_osc_Customersdate_account_last_modified].AsDateTime; end; procedure Tosc_CustomersDataTableRules.Setdate_account_last_modifiedValue(const aValue: DateTime); begin DataTable.Fields[idx_osc_Customersdate_account_last_modified].AsDateTime := aValue; end; { TGetLastIDDataTableRules } constructor TGetLastIDDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TGetLastIDDataTableRules.Destroy; begin inherited; end; function TGetLastIDDataTableRules.Getlast_idValue: Integer; begin result := DataTable.Fields[idx_GetLastIDlast_id].AsInteger; end; procedure TGetLastIDDataTableRules.Setlast_idValue(const aValue: Integer); begin DataTable.Fields[idx_GetLastIDlast_id].AsInteger := aValue; end; { Tosc_AddressBookDataTableRules } constructor Tosc_AddressBookDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor Tosc_AddressBookDataTableRules.Destroy; begin inherited; end; function Tosc_AddressBookDataTableRules.Getaddress_book_idValue: Integer; begin result := DataTable.Fields[idx_osc_AddressBookaddress_book_id].AsInteger; end; procedure Tosc_AddressBookDataTableRules.Setaddress_book_idValue(const aValue: Integer); begin DataTable.Fields[idx_osc_AddressBookaddress_book_id].AsInteger := aValue; end; function Tosc_AddressBookDataTableRules.Getcustomers_idValue: Integer; begin result := DataTable.Fields[idx_osc_AddressBookcustomers_id].AsInteger; end; procedure Tosc_AddressBookDataTableRules.Setcustomers_idValue(const aValue: Integer); begin DataTable.Fields[idx_osc_AddressBookcustomers_id].AsInteger := aValue; end; function Tosc_AddressBookDataTableRules.Getentry_genderValue: String; begin result := DataTable.Fields[idx_osc_AddressBookentry_gender].AsString; end; procedure Tosc_AddressBookDataTableRules.Setentry_genderValue(const aValue: String); begin DataTable.Fields[idx_osc_AddressBookentry_gender].AsString := aValue; end; function Tosc_AddressBookDataTableRules.Getentry_companyValue: String; begin result := DataTable.Fields[idx_osc_AddressBookentry_company].AsString; end; procedure Tosc_AddressBookDataTableRules.Setentry_companyValue(const aValue: String); begin DataTable.Fields[idx_osc_AddressBookentry_company].AsString := aValue; end; function Tosc_AddressBookDataTableRules.Getentry_firstnameValue: String; begin result := DataTable.Fields[idx_osc_AddressBookentry_firstname].AsString; end; procedure Tosc_AddressBookDataTableRules.Setentry_firstnameValue(const aValue: String); begin DataTable.Fields[idx_osc_AddressBookentry_firstname].AsString := aValue; end; function Tosc_AddressBookDataTableRules.Getentry_lastnameValue: String; begin result := DataTable.Fields[idx_osc_AddressBookentry_lastname].AsString; end; procedure Tosc_AddressBookDataTableRules.Setentry_lastnameValue(const aValue: String); begin DataTable.Fields[idx_osc_AddressBookentry_lastname].AsString := aValue; end; function Tosc_AddressBookDataTableRules.Getentry_street_addressValue: String; begin result := DataTable.Fields[idx_osc_AddressBookentry_street_address].AsString; end; procedure Tosc_AddressBookDataTableRules.Setentry_street_addressValue(const aValue: String); begin DataTable.Fields[idx_osc_AddressBookentry_street_address].AsString := aValue; end; function Tosc_AddressBookDataTableRules.Getentry_suburbValue: String; begin result := DataTable.Fields[idx_osc_AddressBookentry_suburb].AsString; end; procedure Tosc_AddressBookDataTableRules.Setentry_suburbValue(const aValue: String); begin DataTable.Fields[idx_osc_AddressBookentry_suburb].AsString := aValue; end; function Tosc_AddressBookDataTableRules.Getentry_postcodeValue: String; begin result := DataTable.Fields[idx_osc_AddressBookentry_postcode].AsString; end; procedure Tosc_AddressBookDataTableRules.Setentry_postcodeValue(const aValue: String); begin DataTable.Fields[idx_osc_AddressBookentry_postcode].AsString := aValue; end; function Tosc_AddressBookDataTableRules.Getentry_cityValue: String; begin result := DataTable.Fields[idx_osc_AddressBookentry_city].AsString; end; procedure Tosc_AddressBookDataTableRules.Setentry_cityValue(const aValue: String); begin DataTable.Fields[idx_osc_AddressBookentry_city].AsString := aValue; end; function Tosc_AddressBookDataTableRules.Getentry_stateValue: String; begin result := DataTable.Fields[idx_osc_AddressBookentry_state].AsString; end; procedure Tosc_AddressBookDataTableRules.Setentry_stateValue(const aValue: String); begin DataTable.Fields[idx_osc_AddressBookentry_state].AsString := aValue; end; function Tosc_AddressBookDataTableRules.Getentry_country_idValue: Integer; begin result := DataTable.Fields[idx_osc_AddressBookentry_country_id].AsInteger; end; procedure Tosc_AddressBookDataTableRules.Setentry_country_idValue(const aValue: Integer); begin DataTable.Fields[idx_osc_AddressBookentry_country_id].AsInteger := aValue; end; function Tosc_AddressBookDataTableRules.Getentry_zone_idValue: Integer; begin result := DataTable.Fields[idx_osc_AddressBookentry_zone_id].AsInteger; end; procedure Tosc_AddressBookDataTableRules.Setentry_zone_idValue(const aValue: Integer); begin DataTable.Fields[idx_osc_AddressBookentry_zone_id].AsInteger := aValue; end; function Tosc_AddressBookDataTableRules.Getrdx_address_book_id_localValue: Integer; begin result := DataTable.Fields[idx_osc_AddressBookrdx_address_book_id_local].AsInteger; end; procedure Tosc_AddressBookDataTableRules.Setrdx_address_book_id_localValue(const aValue: Integer); begin DataTable.Fields[idx_osc_AddressBookrdx_address_book_id_local].AsInteger := aValue; end; { TTiendaWebDataTableRules } constructor TTiendaWebDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor TTiendaWebDataTableRules.Destroy; begin inherited; end; function TTiendaWebDataTableRules.GetIDValue: Integer; begin result := DataTable.Fields[idx_TiendaWebID].AsInteger; end; procedure TTiendaWebDataTableRules.SetIDValue(const aValue: Integer); begin DataTable.Fields[idx_TiendaWebID].AsInteger := aValue; end; function TTiendaWebDataTableRules.GetID_EMPRESAValue: Integer; begin result := DataTable.Fields[idx_TiendaWebID_EMPRESA].AsInteger; end; procedure TTiendaWebDataTableRules.SetID_EMPRESAValue(const aValue: Integer); begin DataTable.Fields[idx_TiendaWebID_EMPRESA].AsInteger := aValue; end; function TTiendaWebDataTableRules.GetTIENDA_ACTIVAValue: Integer; begin result := DataTable.Fields[idx_TiendaWebTIENDA_ACTIVA].AsInteger; end; procedure TTiendaWebDataTableRules.SetTIENDA_ACTIVAValue(const aValue: Integer); begin DataTable.Fields[idx_TiendaWebTIENDA_ACTIVA].AsInteger := aValue; end; function TTiendaWebDataTableRules.GetBDSERVERValue: String; begin result := DataTable.Fields[idx_TiendaWebBDSERVER].AsString; end; procedure TTiendaWebDataTableRules.SetBDSERVERValue(const aValue: String); begin DataTable.Fields[idx_TiendaWebBDSERVER].AsString := aValue; end; function TTiendaWebDataTableRules.GetBDPORTValue: String; begin result := DataTable.Fields[idx_TiendaWebBDPORT].AsString; end; procedure TTiendaWebDataTableRules.SetBDPORTValue(const aValue: String); begin DataTable.Fields[idx_TiendaWebBDPORT].AsString := aValue; end; function TTiendaWebDataTableRules.GetBDNAMEValue: String; begin result := DataTable.Fields[idx_TiendaWebBDNAME].AsString; end; procedure TTiendaWebDataTableRules.SetBDNAMEValue(const aValue: String); begin DataTable.Fields[idx_TiendaWebBDNAME].AsString := aValue; end; function TTiendaWebDataTableRules.GetBDUSERValue: String; begin result := DataTable.Fields[idx_TiendaWebBDUSER].AsString; end; procedure TTiendaWebDataTableRules.SetBDUSERValue(const aValue: String); begin DataTable.Fields[idx_TiendaWebBDUSER].AsString := aValue; end; function TTiendaWebDataTableRules.GetBDPASSValue: String; begin result := DataTable.Fields[idx_TiendaWebBDPASS].AsString; end; procedure TTiendaWebDataTableRules.SetBDPASSValue(const aValue: String); begin DataTable.Fields[idx_TiendaWebBDPASS].AsString := aValue; end; function TTiendaWebDataTableRules.GetULTIMA_ACTUALIZACIONValue: DateTime; begin result := DataTable.Fields[idx_TiendaWebULTIMA_ACTUALIZACION].AsDateTime; end; procedure TTiendaWebDataTableRules.SetULTIMA_ACTUALIZACIONValue(const aValue: DateTime); begin DataTable.Fields[idx_TiendaWebULTIMA_ACTUALIZACION].AsDateTime := aValue; end; { Tosc_ManufacturersDataTableRules } constructor Tosc_ManufacturersDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor Tosc_ManufacturersDataTableRules.Destroy; begin inherited; end; function Tosc_ManufacturersDataTableRules.Getmanufacturers_idValue: Integer; begin result := DataTable.Fields[idx_osc_Manufacturersmanufacturers_id].AsInteger; end; procedure Tosc_ManufacturersDataTableRules.Setmanufacturers_idValue(const aValue: Integer); begin DataTable.Fields[idx_osc_Manufacturersmanufacturers_id].AsInteger := aValue; end; function Tosc_ManufacturersDataTableRules.Getmanufacturers_nameValue: String; begin result := DataTable.Fields[idx_osc_Manufacturersmanufacturers_name].AsString; end; procedure Tosc_ManufacturersDataTableRules.Setmanufacturers_nameValue(const aValue: String); begin DataTable.Fields[idx_osc_Manufacturersmanufacturers_name].AsString := aValue; end; function Tosc_ManufacturersDataTableRules.Getmanufacturers_imageValue: String; begin result := DataTable.Fields[idx_osc_Manufacturersmanufacturers_image].AsString; end; procedure Tosc_ManufacturersDataTableRules.Setmanufacturers_imageValue(const aValue: String); begin DataTable.Fields[idx_osc_Manufacturersmanufacturers_image].AsString := aValue; end; function Tosc_ManufacturersDataTableRules.Getdate_addedValue: DateTime; begin result := DataTable.Fields[idx_osc_Manufacturersdate_added].AsDateTime; end; procedure Tosc_ManufacturersDataTableRules.Setdate_addedValue(const aValue: DateTime); begin DataTable.Fields[idx_osc_Manufacturersdate_added].AsDateTime := aValue; end; function Tosc_ManufacturersDataTableRules.Getlast_modifiedValue: DateTime; begin result := DataTable.Fields[idx_osc_Manufacturerslast_modified].AsDateTime; end; procedure Tosc_ManufacturersDataTableRules.Setlast_modifiedValue(const aValue: DateTime); begin DataTable.Fields[idx_osc_Manufacturerslast_modified].AsDateTime := aValue; end; function Tosc_ManufacturersDataTableRules.Getrdx_manufacturers_id_localValue: Integer; begin result := DataTable.Fields[idx_osc_Manufacturersrdx_manufacturers_id_local].AsInteger; end; procedure Tosc_ManufacturersDataTableRules.Setrdx_manufacturers_id_localValue(const aValue: Integer); begin DataTable.Fields[idx_osc_Manufacturersrdx_manufacturers_id_local].AsInteger := aValue; end; { Tosc_LanguagesDataTableRules } constructor Tosc_LanguagesDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor Tosc_LanguagesDataTableRules.Destroy; begin inherited; end; function Tosc_LanguagesDataTableRules.Getlanguages_idValue: Integer; begin result := DataTable.Fields[idx_osc_Languageslanguages_id].AsInteger; end; procedure Tosc_LanguagesDataTableRules.Setlanguages_idValue(const aValue: Integer); begin DataTable.Fields[idx_osc_Languageslanguages_id].AsInteger := aValue; end; function Tosc_LanguagesDataTableRules.GetnameValue: String; begin result := DataTable.Fields[idx_osc_Languagesname].AsString; end; procedure Tosc_LanguagesDataTableRules.SetnameValue(const aValue: String); begin DataTable.Fields[idx_osc_Languagesname].AsString := aValue; end; function Tosc_LanguagesDataTableRules.GetcodeValue: String; begin result := DataTable.Fields[idx_osc_Languagescode].AsString; end; procedure Tosc_LanguagesDataTableRules.SetcodeValue(const aValue: String); begin DataTable.Fields[idx_osc_Languagescode].AsString := aValue; end; function Tosc_LanguagesDataTableRules.GetimageValue: String; begin result := DataTable.Fields[idx_osc_Languagesimage].AsString; end; procedure Tosc_LanguagesDataTableRules.SetimageValue(const aValue: String); begin DataTable.Fields[idx_osc_Languagesimage].AsString := aValue; end; function Tosc_LanguagesDataTableRules.GetdirectoryValue: String; begin result := DataTable.Fields[idx_osc_Languagesdirectory].AsString; end; procedure Tosc_LanguagesDataTableRules.SetdirectoryValue(const aValue: String); begin DataTable.Fields[idx_osc_Languagesdirectory].AsString := aValue; end; function Tosc_LanguagesDataTableRules.Getsort_orderValue: Integer; begin result := DataTable.Fields[idx_osc_Languagessort_order].AsInteger; end; procedure Tosc_LanguagesDataTableRules.Setsort_orderValue(const aValue: Integer); begin DataTable.Fields[idx_osc_Languagessort_order].AsInteger := aValue; end; { Tosc_ProductsDataTableRules } constructor Tosc_ProductsDataTableRules.Create(aDataTable: TDADataTable); begin inherited; end; destructor Tosc_ProductsDataTableRules.Destroy; begin inherited; end; function Tosc_ProductsDataTableRules.Getproducts_idValue: Integer; begin result := DataTable.Fields[idx_osc_Productsproducts_id].AsInteger; end; procedure Tosc_ProductsDataTableRules.Setproducts_idValue(const aValue: Integer); begin DataTable.Fields[idx_osc_Productsproducts_id].AsInteger := aValue; end; function Tosc_ProductsDataTableRules.Getproducts_nameValue: String; begin result := DataTable.Fields[idx_osc_Productsproducts_name].AsString; end; procedure Tosc_ProductsDataTableRules.Setproducts_nameValue(const aValue: String); begin DataTable.Fields[idx_osc_Productsproducts_name].AsString := aValue; end; function Tosc_ProductsDataTableRules.Getproducts_descriptionValue: IROStrings; begin result := NewROStrings(); result.Text := DataTable.Fields[idx_osc_Productsproducts_description].AsString; end; procedure Tosc_ProductsDataTableRules.Setproducts_descriptionValue(const aValue: IROStrings); begin DataTable.Fields[idx_osc_Productsproducts_description].AsString := aValue.Text; end; function Tosc_ProductsDataTableRules.Getproducts_modelValue: String; begin result := DataTable.Fields[idx_osc_Productsproducts_model].AsString; end; procedure Tosc_ProductsDataTableRules.Setproducts_modelValue(const aValue: String); begin DataTable.Fields[idx_osc_Productsproducts_model].AsString := aValue; end; function Tosc_ProductsDataTableRules.Getproducts_date_addedValue: DateTime; begin result := DataTable.Fields[idx_osc_Productsproducts_date_added].AsDateTime; end; procedure Tosc_ProductsDataTableRules.Setproducts_date_addedValue(const aValue: DateTime); begin DataTable.Fields[idx_osc_Productsproducts_date_added].AsDateTime := aValue; end; function Tosc_ProductsDataTableRules.Getproducts_last_modifiedValue: DateTime; begin result := DataTable.Fields[idx_osc_Productsproducts_last_modified].AsDateTime; end; procedure Tosc_ProductsDataTableRules.Setproducts_last_modifiedValue(const aValue: DateTime); begin DataTable.Fields[idx_osc_Productsproducts_last_modified].AsDateTime := aValue; end; function Tosc_ProductsDataTableRules.Getproducts_statusValue: Integer; begin result := DataTable.Fields[idx_osc_Productsproducts_status].AsInteger; end; procedure Tosc_ProductsDataTableRules.Setproducts_statusValue(const aValue: Integer); begin DataTable.Fields[idx_osc_Productsproducts_status].AsInteger := aValue; end; function Tosc_ProductsDataTableRules.Getmanufacturers_idValue: Integer; begin result := DataTable.Fields[idx_osc_Productsmanufacturers_id].AsInteger; end; procedure Tosc_ProductsDataTableRules.Setmanufacturers_idValue(const aValue: Integer); begin DataTable.Fields[idx_osc_Productsmanufacturers_id].AsInteger := aValue; end; function Tosc_ProductsDataTableRules.Getrdx_products_id_localValue: Integer; begin result := DataTable.Fields[idx_osc_Productsrdx_products_id_local].AsInteger; end; procedure Tosc_ProductsDataTableRules.Setrdx_products_id_localValue(const aValue: Integer); begin DataTable.Fields[idx_osc_Productsrdx_products_id_local].AsInteger := aValue; end; initialization RegisterDataTableRules(RID_osc_Customers, Tosc_CustomersDataTableRules); RegisterDataTableRules(RID_GetLastID, TGetLastIDDataTableRules); RegisterDataTableRules(RID_osc_AddressBook, Tosc_AddressBookDataTableRules); RegisterDataTableRules(RID_TiendaWeb, TTiendaWebDataTableRules); RegisterDataTableRules(RID_osc_Manufacturers, Tosc_ManufacturersDataTableRules); RegisterDataTableRules(RID_osc_Languages, Tosc_LanguagesDataTableRules); RegisterDataTableRules(RID_osc_Products, Tosc_ProductsDataTableRules); end.