1289 lines
55 KiB
ObjectPascal
1289 lines
55 KiB
ObjectPascal
|
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 = '{22B4EFBB-2E89-4FED-860D-7E48BCAAE7D2}';
|
||
|
|
RID_osc_AddressBook = '{63E50A3A-5553-43B2-86BA-2847327995CD}';
|
||
|
|
RID_TiendaWeb = '{43212CF6-FD65-46DE-8D04-07138CA5F0F6}';
|
||
|
|
RID_osc_Customers_info = '{ABE4CF1C-4B51-4982-9DC7-6838034EE17F}';
|
||
|
|
RID_osc_Customers_Refresh = '{1D5EA1EC-1832-4255-A1D4-06E97210B88A}';
|
||
|
|
RID_GetLastID = '{33A665D1-1B0D-4A98-A1FE-B0C5EBA3B5E3}';
|
||
|
|
RID_osc_Manufacturers = '{F35C55F1-5AC3-4EBF-8931-199EA4F2F705}';
|
||
|
|
|
||
|
|
{ Data table names }
|
||
|
|
nme_osc_Customers = 'osc_Customers';
|
||
|
|
nme_osc_AddressBook = 'osc_AddressBook';
|
||
|
|
nme_TiendaWeb = 'TiendaWeb';
|
||
|
|
nme_osc_Customers_info = 'osc_Customers_info';
|
||
|
|
nme_osc_Customers_Refresh = 'osc_Customers_Refresh';
|
||
|
|
nme_GetLastID = 'GetLastID';
|
||
|
|
nme_osc_Manufacturers = 'osc_Manufacturers';
|
||
|
|
|
||
|
|
{ osc_Customers fields }
|
||
|
|
fld_osc_Customerscustomers_id = 'customers_id';
|
||
|
|
fld_osc_Customerscustomers_firstname = 'customers_firstname';
|
||
|
|
fld_osc_Customerscustomers_dob = 'customers_dob';
|
||
|
|
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';
|
||
|
|
|
||
|
|
{ osc_Customers field indexes }
|
||
|
|
idx_osc_Customerscustomers_id = 0;
|
||
|
|
idx_osc_Customerscustomers_firstname = 1;
|
||
|
|
idx_osc_Customerscustomers_dob = 2;
|
||
|
|
idx_osc_Customerscustomers_lastname = 3;
|
||
|
|
idx_osc_Customerscustomers_email_address = 4;
|
||
|
|
idx_osc_Customerscustomers_default_address_id = 5;
|
||
|
|
idx_osc_Customerscustomers_telephone = 6;
|
||
|
|
idx_osc_Customerscustomers_fax = 7;
|
||
|
|
idx_osc_Customerscustomers_password = 8;
|
||
|
|
idx_osc_Customersrdx_customers_id_local = 9;
|
||
|
|
|
||
|
|
{ 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_Customers_info fields }
|
||
|
|
fld_osc_Customers_infocustomers_info_id = 'customers_info_id';
|
||
|
|
fld_osc_Customers_infodate_account_created = 'date_account_created';
|
||
|
|
fld_osc_Customers_infodate_account_last_modified = 'date_account_last_modified';
|
||
|
|
fld_osc_Customers_infordx_customers_info_id_local = 'rdx_customers_info_id_local';
|
||
|
|
|
||
|
|
{ osc_Customers_info field indexes }
|
||
|
|
idx_osc_Customers_infocustomers_info_id = 0;
|
||
|
|
idx_osc_Customers_infodate_account_created = 1;
|
||
|
|
idx_osc_Customers_infodate_account_last_modified = 2;
|
||
|
|
idx_osc_Customers_infordx_customers_info_id_local = 3;
|
||
|
|
|
||
|
|
{ osc_Customers_Refresh fields }
|
||
|
|
fld_osc_Customers_Refreshcustomers_id = 'customers_id';
|
||
|
|
fld_osc_Customers_Refreshcustomers_firstname = 'customers_firstname';
|
||
|
|
fld_osc_Customers_Refreshcustomers_dob = 'customers_dob';
|
||
|
|
fld_osc_Customers_Refreshcustomers_lastname = 'customers_lastname';
|
||
|
|
fld_osc_Customers_Refreshcustomers_email_address = 'customers_email_address';
|
||
|
|
fld_osc_Customers_Refreshcustomers_default_address_id = 'customers_default_address_id';
|
||
|
|
fld_osc_Customers_Refreshcustomers_telephone = 'customers_telephone';
|
||
|
|
fld_osc_Customers_Refreshcustomers_fax = 'customers_fax';
|
||
|
|
fld_osc_Customers_Refreshcustomers_password = 'customers_password';
|
||
|
|
fld_osc_Customers_Refreshrdx_customers_id_local = 'rdx_customers_id_local';
|
||
|
|
|
||
|
|
{ osc_Customers_Refresh field indexes }
|
||
|
|
idx_osc_Customers_Refreshcustomers_id = 0;
|
||
|
|
idx_osc_Customers_Refreshcustomers_firstname = 1;
|
||
|
|
idx_osc_Customers_Refreshcustomers_dob = 2;
|
||
|
|
idx_osc_Customers_Refreshcustomers_lastname = 3;
|
||
|
|
idx_osc_Customers_Refreshcustomers_email_address = 4;
|
||
|
|
idx_osc_Customers_Refreshcustomers_default_address_id = 5;
|
||
|
|
idx_osc_Customers_Refreshcustomers_telephone = 6;
|
||
|
|
idx_osc_Customers_Refreshcustomers_fax = 7;
|
||
|
|
idx_osc_Customers_Refreshcustomers_password = 8;
|
||
|
|
idx_osc_Customers_Refreshrdx_customers_id_local = 9;
|
||
|
|
|
||
|
|
{ GetLastID fields }
|
||
|
|
fld_GetLastIDlast_id = 'last_id';
|
||
|
|
|
||
|
|
{ GetLastID field indexes }
|
||
|
|
idx_GetLastIDlast_id = 0;
|
||
|
|
|
||
|
|
{ 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;
|
||
|
|
|
||
|
|
type
|
||
|
|
{ Iosc_Customers }
|
||
|
|
Iosc_Customers = interface(IDAStronglyTypedDataTable)
|
||
|
|
['{AFD240A7-6AF0-497D-BAA0-A09F88A1D83F}']
|
||
|
|
{ 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_dobValue: DateTime;
|
||
|
|
procedure Setcustomers_dobValue(const aValue: DateTime);
|
||
|
|
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);
|
||
|
|
|
||
|
|
|
||
|
|
{ Properties }
|
||
|
|
property customers_id: Integer read Getcustomers_idValue write Setcustomers_idValue;
|
||
|
|
property customers_firstname: String read Getcustomers_firstnameValue write Setcustomers_firstnameValue;
|
||
|
|
property customers_dob: DateTime read Getcustomers_dobValue write Setcustomers_dobValue;
|
||
|
|
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;
|
||
|
|
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_dobValue: DateTime; virtual;
|
||
|
|
procedure Setcustomers_dobValue(const aValue: DateTime); 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;
|
||
|
|
|
||
|
|
{ Properties }
|
||
|
|
property customers_id: Integer read Getcustomers_idValue write Setcustomers_idValue;
|
||
|
|
property customers_firstname: String read Getcustomers_firstnameValue write Setcustomers_firstnameValue;
|
||
|
|
property customers_dob: DateTime read Getcustomers_dobValue write Setcustomers_dobValue;
|
||
|
|
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;
|
||
|
|
|
||
|
|
public
|
||
|
|
constructor Create(aDataTable: TDADataTable); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
|
||
|
|
end;
|
||
|
|
|
||
|
|
{ Iosc_AddressBook }
|
||
|
|
Iosc_AddressBook = interface(IDAStronglyTypedDataTable)
|
||
|
|
['{7DF6BFF4-1E31-46DE-8860-E34569E82DF0}']
|
||
|
|
{ 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)
|
||
|
|
['{30435DC5-9E2C-4E44-A69E-DF89581912BD}']
|
||
|
|
{ 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_Customers_info }
|
||
|
|
Iosc_Customers_info = interface(IDAStronglyTypedDataTable)
|
||
|
|
['{16B546F6-C258-4E6A-93A7-B72AE4E218C0}']
|
||
|
|
{ Property getters and setters }
|
||
|
|
function Getcustomers_info_idValue: Integer;
|
||
|
|
procedure Setcustomers_info_idValue(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);
|
||
|
|
function Getrdx_customers_info_id_localValue: Integer;
|
||
|
|
procedure Setrdx_customers_info_id_localValue(const aValue: Integer);
|
||
|
|
|
||
|
|
|
||
|
|
{ Properties }
|
||
|
|
property customers_info_id: Integer read Getcustomers_info_idValue write Setcustomers_info_idValue;
|
||
|
|
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;
|
||
|
|
property rdx_customers_info_id_local: Integer read Getrdx_customers_info_id_localValue write Setrdx_customers_info_id_localValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
{ Tosc_Customers_infoDataTableRules }
|
||
|
|
Tosc_Customers_infoDataTableRules = class(TDADataTableRules, Iosc_Customers_info)
|
||
|
|
private
|
||
|
|
protected
|
||
|
|
{ Property getters and setters }
|
||
|
|
function Getcustomers_info_idValue: Integer; virtual;
|
||
|
|
procedure Setcustomers_info_idValue(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;
|
||
|
|
function Getrdx_customers_info_id_localValue: Integer; virtual;
|
||
|
|
procedure Setrdx_customers_info_id_localValue(const aValue: Integer); virtual;
|
||
|
|
|
||
|
|
{ Properties }
|
||
|
|
property customers_info_id: Integer read Getcustomers_info_idValue write Setcustomers_info_idValue;
|
||
|
|
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;
|
||
|
|
property rdx_customers_info_id_local: Integer read Getrdx_customers_info_id_localValue write Setrdx_customers_info_id_localValue;
|
||
|
|
|
||
|
|
public
|
||
|
|
constructor Create(aDataTable: TDADataTable); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
|
||
|
|
end;
|
||
|
|
|
||
|
|
{ Iosc_Customers_Refresh }
|
||
|
|
Iosc_Customers_Refresh = interface(IDAStronglyTypedDataTable)
|
||
|
|
['{795386BA-BBD3-4162-96A6-3FA1E6036A3B}']
|
||
|
|
{ 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_dobValue: DateTime;
|
||
|
|
procedure Setcustomers_dobValue(const aValue: DateTime);
|
||
|
|
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);
|
||
|
|
|
||
|
|
|
||
|
|
{ Properties }
|
||
|
|
property customers_id: Integer read Getcustomers_idValue write Setcustomers_idValue;
|
||
|
|
property customers_firstname: String read Getcustomers_firstnameValue write Setcustomers_firstnameValue;
|
||
|
|
property customers_dob: DateTime read Getcustomers_dobValue write Setcustomers_dobValue;
|
||
|
|
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;
|
||
|
|
end;
|
||
|
|
|
||
|
|
{ Tosc_Customers_RefreshDataTableRules }
|
||
|
|
Tosc_Customers_RefreshDataTableRules = class(TDADataTableRules, Iosc_Customers_Refresh)
|
||
|
|
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_dobValue: DateTime; virtual;
|
||
|
|
procedure Setcustomers_dobValue(const aValue: DateTime); 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;
|
||
|
|
|
||
|
|
{ Properties }
|
||
|
|
property customers_id: Integer read Getcustomers_idValue write Setcustomers_idValue;
|
||
|
|
property customers_firstname: String read Getcustomers_firstnameValue write Setcustomers_firstnameValue;
|
||
|
|
property customers_dob: DateTime read Getcustomers_dobValue write Setcustomers_dobValue;
|
||
|
|
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;
|
||
|
|
|
||
|
|
public
|
||
|
|
constructor Create(aDataTable: TDADataTable); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
|
||
|
|
end;
|
||
|
|
|
||
|
|
{ IGetLastID }
|
||
|
|
IGetLastID = interface(IDAStronglyTypedDataTable)
|
||
|
|
['{85CAAADE-3799-4782-92D1-762F32033E1E}']
|
||
|
|
{ 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_Manufacturers }
|
||
|
|
Iosc_Manufacturers = interface(IDAStronglyTypedDataTable)
|
||
|
|
['{F4F8EB8A-6BE6-4177-83CE-8C1DD4EA8C47}']
|
||
|
|
{ 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;
|
||
|
|
|
||
|
|
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_dobValue: DateTime;
|
||
|
|
begin
|
||
|
|
result := DataTable.Fields[idx_osc_Customerscustomers_dob].AsDateTime;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tosc_CustomersDataTableRules.Setcustomers_dobValue(const aValue: DateTime);
|
||
|
|
begin
|
||
|
|
DataTable.Fields[idx_osc_Customerscustomers_dob].AsDateTime := 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;
|
||
|
|
|
||
|
|
|
||
|
|
{ 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_Customers_infoDataTableRules }
|
||
|
|
constructor Tosc_Customers_infoDataTableRules.Create(aDataTable: TDADataTable);
|
||
|
|
begin
|
||
|
|
inherited;
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor Tosc_Customers_infoDataTableRules.Destroy;
|
||
|
|
begin
|
||
|
|
inherited;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function Tosc_Customers_infoDataTableRules.Getcustomers_info_idValue: Integer;
|
||
|
|
begin
|
||
|
|
result := DataTable.Fields[idx_osc_Customers_infocustomers_info_id].AsInteger;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tosc_Customers_infoDataTableRules.Setcustomers_info_idValue(const aValue: Integer);
|
||
|
|
begin
|
||
|
|
DataTable.Fields[idx_osc_Customers_infocustomers_info_id].AsInteger := aValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function Tosc_Customers_infoDataTableRules.Getdate_account_createdValue: DateTime;
|
||
|
|
begin
|
||
|
|
result := DataTable.Fields[idx_osc_Customers_infodate_account_created].AsDateTime;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tosc_Customers_infoDataTableRules.Setdate_account_createdValue(const aValue: DateTime);
|
||
|
|
begin
|
||
|
|
DataTable.Fields[idx_osc_Customers_infodate_account_created].AsDateTime := aValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function Tosc_Customers_infoDataTableRules.Getdate_account_last_modifiedValue: DateTime;
|
||
|
|
begin
|
||
|
|
result := DataTable.Fields[idx_osc_Customers_infodate_account_last_modified].AsDateTime;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tosc_Customers_infoDataTableRules.Setdate_account_last_modifiedValue(const aValue: DateTime);
|
||
|
|
begin
|
||
|
|
DataTable.Fields[idx_osc_Customers_infodate_account_last_modified].AsDateTime := aValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function Tosc_Customers_infoDataTableRules.Getrdx_customers_info_id_localValue: Integer;
|
||
|
|
begin
|
||
|
|
result := DataTable.Fields[idx_osc_Customers_infordx_customers_info_id_local].AsInteger;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tosc_Customers_infoDataTableRules.Setrdx_customers_info_id_localValue(const aValue: Integer);
|
||
|
|
begin
|
||
|
|
DataTable.Fields[idx_osc_Customers_infordx_customers_info_id_local].AsInteger := aValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
{ Tosc_Customers_RefreshDataTableRules }
|
||
|
|
constructor Tosc_Customers_RefreshDataTableRules.Create(aDataTable: TDADataTable);
|
||
|
|
begin
|
||
|
|
inherited;
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor Tosc_Customers_RefreshDataTableRules.Destroy;
|
||
|
|
begin
|
||
|
|
inherited;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function Tosc_Customers_RefreshDataTableRules.Getcustomers_idValue: Integer;
|
||
|
|
begin
|
||
|
|
result := DataTable.Fields[idx_osc_Customers_Refreshcustomers_id].AsInteger;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tosc_Customers_RefreshDataTableRules.Setcustomers_idValue(const aValue: Integer);
|
||
|
|
begin
|
||
|
|
DataTable.Fields[idx_osc_Customers_Refreshcustomers_id].AsInteger := aValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function Tosc_Customers_RefreshDataTableRules.Getcustomers_firstnameValue: String;
|
||
|
|
begin
|
||
|
|
result := DataTable.Fields[idx_osc_Customers_Refreshcustomers_firstname].AsString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tosc_Customers_RefreshDataTableRules.Setcustomers_firstnameValue(const aValue: String);
|
||
|
|
begin
|
||
|
|
DataTable.Fields[idx_osc_Customers_Refreshcustomers_firstname].AsString := aValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function Tosc_Customers_RefreshDataTableRules.Getcustomers_dobValue: DateTime;
|
||
|
|
begin
|
||
|
|
result := DataTable.Fields[idx_osc_Customers_Refreshcustomers_dob].AsDateTime;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tosc_Customers_RefreshDataTableRules.Setcustomers_dobValue(const aValue: DateTime);
|
||
|
|
begin
|
||
|
|
DataTable.Fields[idx_osc_Customers_Refreshcustomers_dob].AsDateTime := aValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function Tosc_Customers_RefreshDataTableRules.Getcustomers_lastnameValue: String;
|
||
|
|
begin
|
||
|
|
result := DataTable.Fields[idx_osc_Customers_Refreshcustomers_lastname].AsString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tosc_Customers_RefreshDataTableRules.Setcustomers_lastnameValue(const aValue: String);
|
||
|
|
begin
|
||
|
|
DataTable.Fields[idx_osc_Customers_Refreshcustomers_lastname].AsString := aValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function Tosc_Customers_RefreshDataTableRules.Getcustomers_email_addressValue: String;
|
||
|
|
begin
|
||
|
|
result := DataTable.Fields[idx_osc_Customers_Refreshcustomers_email_address].AsString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tosc_Customers_RefreshDataTableRules.Setcustomers_email_addressValue(const aValue: String);
|
||
|
|
begin
|
||
|
|
DataTable.Fields[idx_osc_Customers_Refreshcustomers_email_address].AsString := aValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function Tosc_Customers_RefreshDataTableRules.Getcustomers_default_address_idValue: Integer;
|
||
|
|
begin
|
||
|
|
result := DataTable.Fields[idx_osc_Customers_Refreshcustomers_default_address_id].AsInteger;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tosc_Customers_RefreshDataTableRules.Setcustomers_default_address_idValue(const aValue: Integer);
|
||
|
|
begin
|
||
|
|
DataTable.Fields[idx_osc_Customers_Refreshcustomers_default_address_id].AsInteger := aValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function Tosc_Customers_RefreshDataTableRules.Getcustomers_telephoneValue: String;
|
||
|
|
begin
|
||
|
|
result := DataTable.Fields[idx_osc_Customers_Refreshcustomers_telephone].AsString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tosc_Customers_RefreshDataTableRules.Setcustomers_telephoneValue(const aValue: String);
|
||
|
|
begin
|
||
|
|
DataTable.Fields[idx_osc_Customers_Refreshcustomers_telephone].AsString := aValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function Tosc_Customers_RefreshDataTableRules.Getcustomers_faxValue: String;
|
||
|
|
begin
|
||
|
|
result := DataTable.Fields[idx_osc_Customers_Refreshcustomers_fax].AsString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tosc_Customers_RefreshDataTableRules.Setcustomers_faxValue(const aValue: String);
|
||
|
|
begin
|
||
|
|
DataTable.Fields[idx_osc_Customers_Refreshcustomers_fax].AsString := aValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function Tosc_Customers_RefreshDataTableRules.Getcustomers_passwordValue: String;
|
||
|
|
begin
|
||
|
|
result := DataTable.Fields[idx_osc_Customers_Refreshcustomers_password].AsString;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tosc_Customers_RefreshDataTableRules.Setcustomers_passwordValue(const aValue: String);
|
||
|
|
begin
|
||
|
|
DataTable.Fields[idx_osc_Customers_Refreshcustomers_password].AsString := aValue;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function Tosc_Customers_RefreshDataTableRules.Getrdx_customers_id_localValue: Integer;
|
||
|
|
begin
|
||
|
|
result := DataTable.Fields[idx_osc_Customers_Refreshrdx_customers_id_local].AsInteger;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure Tosc_Customers_RefreshDataTableRules.Setrdx_customers_id_localValue(const aValue: Integer);
|
||
|
|
begin
|
||
|
|
DataTable.Fields[idx_osc_Customers_Refreshrdx_customers_id_local].AsInteger := 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_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;
|
||
|
|
|
||
|
|
|
||
|
|
initialization
|
||
|
|
RegisterDataTableRules(RID_osc_Customers, Tosc_CustomersDataTableRules);
|
||
|
|
RegisterDataTableRules(RID_osc_AddressBook, Tosc_AddressBookDataTableRules);
|
||
|
|
RegisterDataTableRules(RID_TiendaWeb, TTiendaWebDataTableRules);
|
||
|
|
RegisterDataTableRules(RID_osc_Customers_info, Tosc_Customers_infoDataTableRules);
|
||
|
|
RegisterDataTableRules(RID_osc_Customers_Refresh, Tosc_Customers_RefreshDataTableRules);
|
||
|
|
RegisterDataTableRules(RID_GetLastID, TGetLastIDDataTableRules);
|
||
|
|
RegisterDataTableRules(RID_osc_Manufacturers, Tosc_ManufacturersDataTableRules);
|
||
|
|
|
||
|
|
end.
|