roberto
8e46f632df
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@80 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
3757 lines
166 KiB
ObjectPascal
3757 lines
166 KiB
ObjectPascal
unit schTiendaWebClient_Intf;
|
||
|
||
interface
|
||
|
||
uses
|
||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||
|
||
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 = '{7B414787-7FB3-4C7E-B5F4-D6DC724C7986}';
|
||
RID_GetLastID = '{EC74F663-AF44-449F-A865-D6FC7DAA2984}';
|
||
RID_osc_AddressBook = '{92F1B476-62B9-48D5-B7FA-08FC8A878695}';
|
||
RID_TiendaWeb = '{EAB775DA-7B9A-4650-A698-63F246F755B3}';
|
||
RID_osc_Manufacturers = '{1D5AC5D5-FA39-47F6-B015-830C5D143002}';
|
||
RID_osc_Languages = '{74B3F68E-6D93-4EC3-A8E0-9EB54A9ABF17}';
|
||
RID_osc_Products = '{06950934-0858-4CDE-A2D6-D4D6CDA7C711}';
|
||
RID_osc_Orders = '{9AD7AD6E-41AF-44D6-97C7-56D7B7C874F6}';
|
||
RID_osc_Orders_products = '{F2D861B5-937C-443B-8C4D-77DDFEED0FBF}';
|
||
RID_osc_Orders_status_history = '{938F6829-DC4D-4551-918A-85D8833B18BC}';
|
||
|
||
{ 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';
|
||
nme_osc_Orders = 'osc_Orders';
|
||
nme_osc_Orders_products = 'osc_Orders_products';
|
||
nme_osc_Orders_status_history = 'osc_Orders_status_history';
|
||
|
||
{ 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_AddressBookentry_telephone = 'entry_telephone';
|
||
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_AddressBookentry_telephone = 13;
|
||
idx_osc_AddressBookrdx_address_book_id_local = 14;
|
||
|
||
{ 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;
|
||
|
||
{ osc_Orders fields }
|
||
fld_osc_Ordersorders_id = 'orders_id';
|
||
fld_osc_Ordersrdx_orders_id_local = 'rdx_orders_id_local';
|
||
fld_osc_Orderscustomers_id = 'customers_id';
|
||
fld_osc_Ordersrdx_customers_id_local = 'rdx_customers_id_local';
|
||
fld_osc_Ordersdelivery_name = 'delivery_name';
|
||
fld_osc_Ordersdelivery_company = 'delivery_company';
|
||
fld_osc_Ordersdelivery_street_address = 'delivery_street_address';
|
||
fld_osc_Ordersdelivery_suburb = 'delivery_suburb';
|
||
fld_osc_Ordersdelivery_city = 'delivery_city';
|
||
fld_osc_Ordersdelivery_postcode = 'delivery_postcode';
|
||
fld_osc_Ordersdelivery_state = 'delivery_state';
|
||
fld_osc_Ordersdelivery_country = 'delivery_country';
|
||
fld_osc_Ordersdelivery_telephone = 'delivery_telephone';
|
||
fld_osc_Orderslast_modified = 'last_modified';
|
||
fld_osc_Ordersdate_purchased = 'date_purchased';
|
||
fld_osc_Ordersorders_status = 'orders_status';
|
||
fld_osc_Ordersorders_date_finished = 'orders_date_finished';
|
||
fld_osc_Orderscomments = 'comments';
|
||
fld_osc_Ordersrdx_ship_date = 'rdx_ship_date';
|
||
fld_osc_Ordersrdx_referencia_cliente = 'rdx_referencia_cliente';
|
||
|
||
{ osc_Orders field indexes }
|
||
idx_osc_Ordersorders_id = 0;
|
||
idx_osc_Ordersrdx_orders_id_local = 1;
|
||
idx_osc_Orderscustomers_id = 2;
|
||
idx_osc_Ordersrdx_customers_id_local = 3;
|
||
idx_osc_Ordersdelivery_name = 4;
|
||
idx_osc_Ordersdelivery_company = 5;
|
||
idx_osc_Ordersdelivery_street_address = 6;
|
||
idx_osc_Ordersdelivery_suburb = 7;
|
||
idx_osc_Ordersdelivery_city = 8;
|
||
idx_osc_Ordersdelivery_postcode = 9;
|
||
idx_osc_Ordersdelivery_state = 10;
|
||
idx_osc_Ordersdelivery_country = 11;
|
||
idx_osc_Ordersdelivery_telephone = 12;
|
||
idx_osc_Orderslast_modified = 13;
|
||
idx_osc_Ordersdate_purchased = 14;
|
||
idx_osc_Ordersorders_status = 15;
|
||
idx_osc_Ordersorders_date_finished = 16;
|
||
idx_osc_Orderscomments = 17;
|
||
idx_osc_Ordersrdx_ship_date = 18;
|
||
idx_osc_Ordersrdx_referencia_cliente = 19;
|
||
|
||
{ osc_Orders_products fields }
|
||
fld_osc_Orders_productsorders_products_id = 'orders_products_id';
|
||
fld_osc_Orders_productsorders_id = 'orders_id';
|
||
fld_osc_Orders_productsproducts_id = 'products_id';
|
||
fld_osc_Orders_productsrdx_products_id_local = 'rdx_products_id_local';
|
||
fld_osc_Orders_productsproducts_model = 'products_model';
|
||
fld_osc_Orders_productsproducts_name = 'products_name';
|
||
fld_osc_Orders_productsproducts_price = 'products_price';
|
||
fld_osc_Orders_productsfinal_price = 'final_price';
|
||
fld_osc_Orders_productsproducts_tax = 'products_tax';
|
||
fld_osc_Orders_productsproducts_quantity = 'products_quantity';
|
||
|
||
{ osc_Orders_products field indexes }
|
||
idx_osc_Orders_productsorders_products_id = 0;
|
||
idx_osc_Orders_productsorders_id = 1;
|
||
idx_osc_Orders_productsproducts_id = 2;
|
||
idx_osc_Orders_productsrdx_products_id_local = 3;
|
||
idx_osc_Orders_productsproducts_model = 4;
|
||
idx_osc_Orders_productsproducts_name = 5;
|
||
idx_osc_Orders_productsproducts_price = 6;
|
||
idx_osc_Orders_productsfinal_price = 7;
|
||
idx_osc_Orders_productsproducts_tax = 8;
|
||
idx_osc_Orders_productsproducts_quantity = 9;
|
||
|
||
{ osc_Orders_status_history fields }
|
||
fld_osc_Orders_status_historyorders_status_history_id = 'orders_status_history_id';
|
||
fld_osc_Orders_status_historyorders_id = 'orders_id';
|
||
fld_osc_Orders_status_historyrdx_orders_id_local = 'rdx_orders_id_local';
|
||
fld_osc_Orders_status_historyorders_status_id = 'orders_status_id';
|
||
fld_osc_Orders_status_historydate_added = 'date_added';
|
||
fld_osc_Orders_status_historycustomer_notified = 'customer_notified';
|
||
fld_osc_Orders_status_historycomments = 'comments';
|
||
|
||
{ osc_Orders_status_history field indexes }
|
||
idx_osc_Orders_status_historyorders_status_history_id = 0;
|
||
idx_osc_Orders_status_historyorders_id = 1;
|
||
idx_osc_Orders_status_historyrdx_orders_id_local = 2;
|
||
idx_osc_Orders_status_historyorders_status_id = 3;
|
||
idx_osc_Orders_status_historydate_added = 4;
|
||
idx_osc_Orders_status_historycustomer_notified = 5;
|
||
idx_osc_Orders_status_historycomments = 6;
|
||
|
||
type
|
||
{ Iosc_Customers }
|
||
Iosc_Customers = interface(IDAStronglyTypedDataTable)
|
||
['{D7E9BFB6-3910-4AAF-A23E-EEABE59CF6DD}']
|
||
{ Property getters and setters }
|
||
function Getcustomers_idValue: Integer;
|
||
procedure Setcustomers_idValue(const aValue: Integer);
|
||
function Getcustomers_idIsNull: Boolean;
|
||
procedure Setcustomers_idIsNull(const aValue: Boolean);
|
||
function Getcustomers_firstnameValue: String;
|
||
procedure Setcustomers_firstnameValue(const aValue: String);
|
||
function Getcustomers_firstnameIsNull: Boolean;
|
||
procedure Setcustomers_firstnameIsNull(const aValue: Boolean);
|
||
function Getcustomers_lastnameValue: String;
|
||
procedure Setcustomers_lastnameValue(const aValue: String);
|
||
function Getcustomers_lastnameIsNull: Boolean;
|
||
procedure Setcustomers_lastnameIsNull(const aValue: Boolean);
|
||
function Getcustomers_email_addressValue: String;
|
||
procedure Setcustomers_email_addressValue(const aValue: String);
|
||
function Getcustomers_email_addressIsNull: Boolean;
|
||
procedure Setcustomers_email_addressIsNull(const aValue: Boolean);
|
||
function Getcustomers_default_address_idValue: Integer;
|
||
procedure Setcustomers_default_address_idValue(const aValue: Integer);
|
||
function Getcustomers_default_address_idIsNull: Boolean;
|
||
procedure Setcustomers_default_address_idIsNull(const aValue: Boolean);
|
||
function Getcustomers_telephoneValue: String;
|
||
procedure Setcustomers_telephoneValue(const aValue: String);
|
||
function Getcustomers_telephoneIsNull: Boolean;
|
||
procedure Setcustomers_telephoneIsNull(const aValue: Boolean);
|
||
function Getcustomers_faxValue: String;
|
||
procedure Setcustomers_faxValue(const aValue: String);
|
||
function Getcustomers_faxIsNull: Boolean;
|
||
procedure Setcustomers_faxIsNull(const aValue: Boolean);
|
||
function Getcustomers_passwordValue: String;
|
||
procedure Setcustomers_passwordValue(const aValue: String);
|
||
function Getcustomers_passwordIsNull: Boolean;
|
||
procedure Setcustomers_passwordIsNull(const aValue: Boolean);
|
||
function Getrdx_customers_id_localValue: Integer;
|
||
procedure Setrdx_customers_id_localValue(const aValue: Integer);
|
||
function Getrdx_customers_id_localIsNull: Boolean;
|
||
procedure Setrdx_customers_id_localIsNull(const aValue: Boolean);
|
||
function Getdate_account_createdValue: DateTime;
|
||
procedure Setdate_account_createdValue(const aValue: DateTime);
|
||
function Getdate_account_createdIsNull: Boolean;
|
||
procedure Setdate_account_createdIsNull(const aValue: Boolean);
|
||
function Getdate_account_last_modifiedValue: DateTime;
|
||
procedure Setdate_account_last_modifiedValue(const aValue: DateTime);
|
||
function Getdate_account_last_modifiedIsNull: Boolean;
|
||
procedure Setdate_account_last_modifiedIsNull(const aValue: Boolean);
|
||
|
||
|
||
{ Properties }
|
||
property customers_id: Integer read Getcustomers_idValue write Setcustomers_idValue;
|
||
property customers_idIsNull: Boolean read Getcustomers_idIsNull write Setcustomers_idIsNull;
|
||
property customers_firstname: String read Getcustomers_firstnameValue write Setcustomers_firstnameValue;
|
||
property customers_firstnameIsNull: Boolean read Getcustomers_firstnameIsNull write Setcustomers_firstnameIsNull;
|
||
property customers_lastname: String read Getcustomers_lastnameValue write Setcustomers_lastnameValue;
|
||
property customers_lastnameIsNull: Boolean read Getcustomers_lastnameIsNull write Setcustomers_lastnameIsNull;
|
||
property customers_email_address: String read Getcustomers_email_addressValue write Setcustomers_email_addressValue;
|
||
property customers_email_addressIsNull: Boolean read Getcustomers_email_addressIsNull write Setcustomers_email_addressIsNull;
|
||
property customers_default_address_id: Integer read Getcustomers_default_address_idValue write Setcustomers_default_address_idValue;
|
||
property customers_default_address_idIsNull: Boolean read Getcustomers_default_address_idIsNull write Setcustomers_default_address_idIsNull;
|
||
property customers_telephone: String read Getcustomers_telephoneValue write Setcustomers_telephoneValue;
|
||
property customers_telephoneIsNull: Boolean read Getcustomers_telephoneIsNull write Setcustomers_telephoneIsNull;
|
||
property customers_fax: String read Getcustomers_faxValue write Setcustomers_faxValue;
|
||
property customers_faxIsNull: Boolean read Getcustomers_faxIsNull write Setcustomers_faxIsNull;
|
||
property customers_password: String read Getcustomers_passwordValue write Setcustomers_passwordValue;
|
||
property customers_passwordIsNull: Boolean read Getcustomers_passwordIsNull write Setcustomers_passwordIsNull;
|
||
property rdx_customers_id_local: Integer read Getrdx_customers_id_localValue write Setrdx_customers_id_localValue;
|
||
property rdx_customers_id_localIsNull: Boolean read Getrdx_customers_id_localIsNull write Setrdx_customers_id_localIsNull;
|
||
property date_account_created: DateTime read Getdate_account_createdValue write Setdate_account_createdValue;
|
||
property date_account_createdIsNull: Boolean read Getdate_account_createdIsNull write Setdate_account_createdIsNull;
|
||
property date_account_last_modified: DateTime read Getdate_account_last_modifiedValue write Setdate_account_last_modifiedValue;
|
||
property date_account_last_modifiedIsNull: Boolean read Getdate_account_last_modifiedIsNull write Setdate_account_last_modifiedIsNull;
|
||
end;
|
||
|
||
{ Tosc_CustomersDataTableRules }
|
||
Tosc_CustomersDataTableRules = class(TIntfObjectDADataTableRules, Iosc_Customers)
|
||
private
|
||
protected
|
||
{ Property getters and setters }
|
||
function Getcustomers_idValue: Integer; virtual;
|
||
procedure Setcustomers_idValue(const aValue: Integer); virtual;
|
||
function Getcustomers_idIsNull: Boolean; virtual;
|
||
procedure Setcustomers_idIsNull(const aValue: Boolean); virtual;
|
||
function Getcustomers_firstnameValue: String; virtual;
|
||
procedure Setcustomers_firstnameValue(const aValue: String); virtual;
|
||
function Getcustomers_firstnameIsNull: Boolean; virtual;
|
||
procedure Setcustomers_firstnameIsNull(const aValue: Boolean); virtual;
|
||
function Getcustomers_lastnameValue: String; virtual;
|
||
procedure Setcustomers_lastnameValue(const aValue: String); virtual;
|
||
function Getcustomers_lastnameIsNull: Boolean; virtual;
|
||
procedure Setcustomers_lastnameIsNull(const aValue: Boolean); virtual;
|
||
function Getcustomers_email_addressValue: String; virtual;
|
||
procedure Setcustomers_email_addressValue(const aValue: String); virtual;
|
||
function Getcustomers_email_addressIsNull: Boolean; virtual;
|
||
procedure Setcustomers_email_addressIsNull(const aValue: Boolean); virtual;
|
||
function Getcustomers_default_address_idValue: Integer; virtual;
|
||
procedure Setcustomers_default_address_idValue(const aValue: Integer); virtual;
|
||
function Getcustomers_default_address_idIsNull: Boolean; virtual;
|
||
procedure Setcustomers_default_address_idIsNull(const aValue: Boolean); virtual;
|
||
function Getcustomers_telephoneValue: String; virtual;
|
||
procedure Setcustomers_telephoneValue(const aValue: String); virtual;
|
||
function Getcustomers_telephoneIsNull: Boolean; virtual;
|
||
procedure Setcustomers_telephoneIsNull(const aValue: Boolean); virtual;
|
||
function Getcustomers_faxValue: String; virtual;
|
||
procedure Setcustomers_faxValue(const aValue: String); virtual;
|
||
function Getcustomers_faxIsNull: Boolean; virtual;
|
||
procedure Setcustomers_faxIsNull(const aValue: Boolean); virtual;
|
||
function Getcustomers_passwordValue: String; virtual;
|
||
procedure Setcustomers_passwordValue(const aValue: String); virtual;
|
||
function Getcustomers_passwordIsNull: Boolean; virtual;
|
||
procedure Setcustomers_passwordIsNull(const aValue: Boolean); virtual;
|
||
function Getrdx_customers_id_localValue: Integer; virtual;
|
||
procedure Setrdx_customers_id_localValue(const aValue: Integer); virtual;
|
||
function Getrdx_customers_id_localIsNull: Boolean; virtual;
|
||
procedure Setrdx_customers_id_localIsNull(const aValue: Boolean); virtual;
|
||
function Getdate_account_createdValue: DateTime; virtual;
|
||
procedure Setdate_account_createdValue(const aValue: DateTime); virtual;
|
||
function Getdate_account_createdIsNull: Boolean; virtual;
|
||
procedure Setdate_account_createdIsNull(const aValue: Boolean); virtual;
|
||
function Getdate_account_last_modifiedValue: DateTime; virtual;
|
||
procedure Setdate_account_last_modifiedValue(const aValue: DateTime); virtual;
|
||
function Getdate_account_last_modifiedIsNull: Boolean; virtual;
|
||
procedure Setdate_account_last_modifiedIsNull(const aValue: Boolean); virtual;
|
||
|
||
{ Properties }
|
||
property customers_id: Integer read Getcustomers_idValue write Setcustomers_idValue;
|
||
property customers_idIsNull: Boolean read Getcustomers_idIsNull write Setcustomers_idIsNull;
|
||
property customers_firstname: String read Getcustomers_firstnameValue write Setcustomers_firstnameValue;
|
||
property customers_firstnameIsNull: Boolean read Getcustomers_firstnameIsNull write Setcustomers_firstnameIsNull;
|
||
property customers_lastname: String read Getcustomers_lastnameValue write Setcustomers_lastnameValue;
|
||
property customers_lastnameIsNull: Boolean read Getcustomers_lastnameIsNull write Setcustomers_lastnameIsNull;
|
||
property customers_email_address: String read Getcustomers_email_addressValue write Setcustomers_email_addressValue;
|
||
property customers_email_addressIsNull: Boolean read Getcustomers_email_addressIsNull write Setcustomers_email_addressIsNull;
|
||
property customers_default_address_id: Integer read Getcustomers_default_address_idValue write Setcustomers_default_address_idValue;
|
||
property customers_default_address_idIsNull: Boolean read Getcustomers_default_address_idIsNull write Setcustomers_default_address_idIsNull;
|
||
property customers_telephone: String read Getcustomers_telephoneValue write Setcustomers_telephoneValue;
|
||
property customers_telephoneIsNull: Boolean read Getcustomers_telephoneIsNull write Setcustomers_telephoneIsNull;
|
||
property customers_fax: String read Getcustomers_faxValue write Setcustomers_faxValue;
|
||
property customers_faxIsNull: Boolean read Getcustomers_faxIsNull write Setcustomers_faxIsNull;
|
||
property customers_password: String read Getcustomers_passwordValue write Setcustomers_passwordValue;
|
||
property customers_passwordIsNull: Boolean read Getcustomers_passwordIsNull write Setcustomers_passwordIsNull;
|
||
property rdx_customers_id_local: Integer read Getrdx_customers_id_localValue write Setrdx_customers_id_localValue;
|
||
property rdx_customers_id_localIsNull: Boolean read Getrdx_customers_id_localIsNull write Setrdx_customers_id_localIsNull;
|
||
property date_account_created: DateTime read Getdate_account_createdValue write Setdate_account_createdValue;
|
||
property date_account_createdIsNull: Boolean read Getdate_account_createdIsNull write Setdate_account_createdIsNull;
|
||
property date_account_last_modified: DateTime read Getdate_account_last_modifiedValue write Setdate_account_last_modifiedValue;
|
||
property date_account_last_modifiedIsNull: Boolean read Getdate_account_last_modifiedIsNull write Setdate_account_last_modifiedIsNull;
|
||
|
||
public
|
||
constructor Create(aDataTable: TDADataTable); override;
|
||
destructor Destroy; override;
|
||
|
||
end;
|
||
|
||
{ IGetLastID }
|
||
IGetLastID = interface(IDAStronglyTypedDataTable)
|
||
['{2D8C65A9-8193-46BD-BFBC-D635D547978C}']
|
||
{ Property getters and setters }
|
||
function Getlast_idValue: Integer;
|
||
procedure Setlast_idValue(const aValue: Integer);
|
||
function Getlast_idIsNull: Boolean;
|
||
procedure Setlast_idIsNull(const aValue: Boolean);
|
||
|
||
|
||
{ Properties }
|
||
property last_id: Integer read Getlast_idValue write Setlast_idValue;
|
||
property last_idIsNull: Boolean read Getlast_idIsNull write Setlast_idIsNull;
|
||
end;
|
||
|
||
{ TGetLastIDDataTableRules }
|
||
TGetLastIDDataTableRules = class(TIntfObjectDADataTableRules, IGetLastID)
|
||
private
|
||
protected
|
||
{ Property getters and setters }
|
||
function Getlast_idValue: Integer; virtual;
|
||
procedure Setlast_idValue(const aValue: Integer); virtual;
|
||
function Getlast_idIsNull: Boolean; virtual;
|
||
procedure Setlast_idIsNull(const aValue: Boolean); virtual;
|
||
|
||
{ Properties }
|
||
property last_id: Integer read Getlast_idValue write Setlast_idValue;
|
||
property last_idIsNull: Boolean read Getlast_idIsNull write Setlast_idIsNull;
|
||
|
||
public
|
||
constructor Create(aDataTable: TDADataTable); override;
|
||
destructor Destroy; override;
|
||
|
||
end;
|
||
|
||
{ Iosc_AddressBook }
|
||
Iosc_AddressBook = interface(IDAStronglyTypedDataTable)
|
||
['{904D18A9-9DE6-44BD-87CC-04AEB4722ACC}']
|
||
{ Property getters and setters }
|
||
function Getaddress_book_idValue: Integer;
|
||
procedure Setaddress_book_idValue(const aValue: Integer);
|
||
function Getaddress_book_idIsNull: Boolean;
|
||
procedure Setaddress_book_idIsNull(const aValue: Boolean);
|
||
function Getcustomers_idValue: Integer;
|
||
procedure Setcustomers_idValue(const aValue: Integer);
|
||
function Getcustomers_idIsNull: Boolean;
|
||
procedure Setcustomers_idIsNull(const aValue: Boolean);
|
||
function Getentry_genderValue: String;
|
||
procedure Setentry_genderValue(const aValue: String);
|
||
function Getentry_genderIsNull: Boolean;
|
||
procedure Setentry_genderIsNull(const aValue: Boolean);
|
||
function Getentry_companyValue: String;
|
||
procedure Setentry_companyValue(const aValue: String);
|
||
function Getentry_companyIsNull: Boolean;
|
||
procedure Setentry_companyIsNull(const aValue: Boolean);
|
||
function Getentry_firstnameValue: String;
|
||
procedure Setentry_firstnameValue(const aValue: String);
|
||
function Getentry_firstnameIsNull: Boolean;
|
||
procedure Setentry_firstnameIsNull(const aValue: Boolean);
|
||
function Getentry_lastnameValue: String;
|
||
procedure Setentry_lastnameValue(const aValue: String);
|
||
function Getentry_lastnameIsNull: Boolean;
|
||
procedure Setentry_lastnameIsNull(const aValue: Boolean);
|
||
function Getentry_street_addressValue: String;
|
||
procedure Setentry_street_addressValue(const aValue: String);
|
||
function Getentry_street_addressIsNull: Boolean;
|
||
procedure Setentry_street_addressIsNull(const aValue: Boolean);
|
||
function Getentry_suburbValue: String;
|
||
procedure Setentry_suburbValue(const aValue: String);
|
||
function Getentry_suburbIsNull: Boolean;
|
||
procedure Setentry_suburbIsNull(const aValue: Boolean);
|
||
function Getentry_postcodeValue: String;
|
||
procedure Setentry_postcodeValue(const aValue: String);
|
||
function Getentry_postcodeIsNull: Boolean;
|
||
procedure Setentry_postcodeIsNull(const aValue: Boolean);
|
||
function Getentry_cityValue: String;
|
||
procedure Setentry_cityValue(const aValue: String);
|
||
function Getentry_cityIsNull: Boolean;
|
||
procedure Setentry_cityIsNull(const aValue: Boolean);
|
||
function Getentry_stateValue: String;
|
||
procedure Setentry_stateValue(const aValue: String);
|
||
function Getentry_stateIsNull: Boolean;
|
||
procedure Setentry_stateIsNull(const aValue: Boolean);
|
||
function Getentry_country_idValue: Integer;
|
||
procedure Setentry_country_idValue(const aValue: Integer);
|
||
function Getentry_country_idIsNull: Boolean;
|
||
procedure Setentry_country_idIsNull(const aValue: Boolean);
|
||
function Getentry_zone_idValue: Integer;
|
||
procedure Setentry_zone_idValue(const aValue: Integer);
|
||
function Getentry_zone_idIsNull: Boolean;
|
||
procedure Setentry_zone_idIsNull(const aValue: Boolean);
|
||
function Getentry_telephoneValue: String;
|
||
procedure Setentry_telephoneValue(const aValue: String);
|
||
function Getentry_telephoneIsNull: Boolean;
|
||
procedure Setentry_telephoneIsNull(const aValue: Boolean);
|
||
function Getrdx_address_book_id_localValue: Integer;
|
||
procedure Setrdx_address_book_id_localValue(const aValue: Integer);
|
||
function Getrdx_address_book_id_localIsNull: Boolean;
|
||
procedure Setrdx_address_book_id_localIsNull(const aValue: Boolean);
|
||
|
||
|
||
{ Properties }
|
||
property address_book_id: Integer read Getaddress_book_idValue write Setaddress_book_idValue;
|
||
property address_book_idIsNull: Boolean read Getaddress_book_idIsNull write Setaddress_book_idIsNull;
|
||
property customers_id: Integer read Getcustomers_idValue write Setcustomers_idValue;
|
||
property customers_idIsNull: Boolean read Getcustomers_idIsNull write Setcustomers_idIsNull;
|
||
property entry_gender: String read Getentry_genderValue write Setentry_genderValue;
|
||
property entry_genderIsNull: Boolean read Getentry_genderIsNull write Setentry_genderIsNull;
|
||
property entry_company: String read Getentry_companyValue write Setentry_companyValue;
|
||
property entry_companyIsNull: Boolean read Getentry_companyIsNull write Setentry_companyIsNull;
|
||
property entry_firstname: String read Getentry_firstnameValue write Setentry_firstnameValue;
|
||
property entry_firstnameIsNull: Boolean read Getentry_firstnameIsNull write Setentry_firstnameIsNull;
|
||
property entry_lastname: String read Getentry_lastnameValue write Setentry_lastnameValue;
|
||
property entry_lastnameIsNull: Boolean read Getentry_lastnameIsNull write Setentry_lastnameIsNull;
|
||
property entry_street_address: String read Getentry_street_addressValue write Setentry_street_addressValue;
|
||
property entry_street_addressIsNull: Boolean read Getentry_street_addressIsNull write Setentry_street_addressIsNull;
|
||
property entry_suburb: String read Getentry_suburbValue write Setentry_suburbValue;
|
||
property entry_suburbIsNull: Boolean read Getentry_suburbIsNull write Setentry_suburbIsNull;
|
||
property entry_postcode: String read Getentry_postcodeValue write Setentry_postcodeValue;
|
||
property entry_postcodeIsNull: Boolean read Getentry_postcodeIsNull write Setentry_postcodeIsNull;
|
||
property entry_city: String read Getentry_cityValue write Setentry_cityValue;
|
||
property entry_cityIsNull: Boolean read Getentry_cityIsNull write Setentry_cityIsNull;
|
||
property entry_state: String read Getentry_stateValue write Setentry_stateValue;
|
||
property entry_stateIsNull: Boolean read Getentry_stateIsNull write Setentry_stateIsNull;
|
||
property entry_country_id: Integer read Getentry_country_idValue write Setentry_country_idValue;
|
||
property entry_country_idIsNull: Boolean read Getentry_country_idIsNull write Setentry_country_idIsNull;
|
||
property entry_zone_id: Integer read Getentry_zone_idValue write Setentry_zone_idValue;
|
||
property entry_zone_idIsNull: Boolean read Getentry_zone_idIsNull write Setentry_zone_idIsNull;
|
||
property entry_telephone: String read Getentry_telephoneValue write Setentry_telephoneValue;
|
||
property entry_telephoneIsNull: Boolean read Getentry_telephoneIsNull write Setentry_telephoneIsNull;
|
||
property rdx_address_book_id_local: Integer read Getrdx_address_book_id_localValue write Setrdx_address_book_id_localValue;
|
||
property rdx_address_book_id_localIsNull: Boolean read Getrdx_address_book_id_localIsNull write Setrdx_address_book_id_localIsNull;
|
||
end;
|
||
|
||
{ Tosc_AddressBookDataTableRules }
|
||
Tosc_AddressBookDataTableRules = class(TIntfObjectDADataTableRules, Iosc_AddressBook)
|
||
private
|
||
protected
|
||
{ Property getters and setters }
|
||
function Getaddress_book_idValue: Integer; virtual;
|
||
procedure Setaddress_book_idValue(const aValue: Integer); virtual;
|
||
function Getaddress_book_idIsNull: Boolean; virtual;
|
||
procedure Setaddress_book_idIsNull(const aValue: Boolean); virtual;
|
||
function Getcustomers_idValue: Integer; virtual;
|
||
procedure Setcustomers_idValue(const aValue: Integer); virtual;
|
||
function Getcustomers_idIsNull: Boolean; virtual;
|
||
procedure Setcustomers_idIsNull(const aValue: Boolean); virtual;
|
||
function Getentry_genderValue: String; virtual;
|
||
procedure Setentry_genderValue(const aValue: String); virtual;
|
||
function Getentry_genderIsNull: Boolean; virtual;
|
||
procedure Setentry_genderIsNull(const aValue: Boolean); virtual;
|
||
function Getentry_companyValue: String; virtual;
|
||
procedure Setentry_companyValue(const aValue: String); virtual;
|
||
function Getentry_companyIsNull: Boolean; virtual;
|
||
procedure Setentry_companyIsNull(const aValue: Boolean); virtual;
|
||
function Getentry_firstnameValue: String; virtual;
|
||
procedure Setentry_firstnameValue(const aValue: String); virtual;
|
||
function Getentry_firstnameIsNull: Boolean; virtual;
|
||
procedure Setentry_firstnameIsNull(const aValue: Boolean); virtual;
|
||
function Getentry_lastnameValue: String; virtual;
|
||
procedure Setentry_lastnameValue(const aValue: String); virtual;
|
||
function Getentry_lastnameIsNull: Boolean; virtual;
|
||
procedure Setentry_lastnameIsNull(const aValue: Boolean); virtual;
|
||
function Getentry_street_addressValue: String; virtual;
|
||
procedure Setentry_street_addressValue(const aValue: String); virtual;
|
||
function Getentry_street_addressIsNull: Boolean; virtual;
|
||
procedure Setentry_street_addressIsNull(const aValue: Boolean); virtual;
|
||
function Getentry_suburbValue: String; virtual;
|
||
procedure Setentry_suburbValue(const aValue: String); virtual;
|
||
function Getentry_suburbIsNull: Boolean; virtual;
|
||
procedure Setentry_suburbIsNull(const aValue: Boolean); virtual;
|
||
function Getentry_postcodeValue: String; virtual;
|
||
procedure Setentry_postcodeValue(const aValue: String); virtual;
|
||
function Getentry_postcodeIsNull: Boolean; virtual;
|
||
procedure Setentry_postcodeIsNull(const aValue: Boolean); virtual;
|
||
function Getentry_cityValue: String; virtual;
|
||
procedure Setentry_cityValue(const aValue: String); virtual;
|
||
function Getentry_cityIsNull: Boolean; virtual;
|
||
procedure Setentry_cityIsNull(const aValue: Boolean); virtual;
|
||
function Getentry_stateValue: String; virtual;
|
||
procedure Setentry_stateValue(const aValue: String); virtual;
|
||
function Getentry_stateIsNull: Boolean; virtual;
|
||
procedure Setentry_stateIsNull(const aValue: Boolean); virtual;
|
||
function Getentry_country_idValue: Integer; virtual;
|
||
procedure Setentry_country_idValue(const aValue: Integer); virtual;
|
||
function Getentry_country_idIsNull: Boolean; virtual;
|
||
procedure Setentry_country_idIsNull(const aValue: Boolean); virtual;
|
||
function Getentry_zone_idValue: Integer; virtual;
|
||
procedure Setentry_zone_idValue(const aValue: Integer); virtual;
|
||
function Getentry_zone_idIsNull: Boolean; virtual;
|
||
procedure Setentry_zone_idIsNull(const aValue: Boolean); virtual;
|
||
function Getentry_telephoneValue: String; virtual;
|
||
procedure Setentry_telephoneValue(const aValue: String); virtual;
|
||
function Getentry_telephoneIsNull: Boolean; virtual;
|
||
procedure Setentry_telephoneIsNull(const aValue: Boolean); virtual;
|
||
function Getrdx_address_book_id_localValue: Integer; virtual;
|
||
procedure Setrdx_address_book_id_localValue(const aValue: Integer); virtual;
|
||
function Getrdx_address_book_id_localIsNull: Boolean; virtual;
|
||
procedure Setrdx_address_book_id_localIsNull(const aValue: Boolean); virtual;
|
||
|
||
{ Properties }
|
||
property address_book_id: Integer read Getaddress_book_idValue write Setaddress_book_idValue;
|
||
property address_book_idIsNull: Boolean read Getaddress_book_idIsNull write Setaddress_book_idIsNull;
|
||
property customers_id: Integer read Getcustomers_idValue write Setcustomers_idValue;
|
||
property customers_idIsNull: Boolean read Getcustomers_idIsNull write Setcustomers_idIsNull;
|
||
property entry_gender: String read Getentry_genderValue write Setentry_genderValue;
|
||
property entry_genderIsNull: Boolean read Getentry_genderIsNull write Setentry_genderIsNull;
|
||
property entry_company: String read Getentry_companyValue write Setentry_companyValue;
|
||
property entry_companyIsNull: Boolean read Getentry_companyIsNull write Setentry_companyIsNull;
|
||
property entry_firstname: String read Getentry_firstnameValue write Setentry_firstnameValue;
|
||
property entry_firstnameIsNull: Boolean read Getentry_firstnameIsNull write Setentry_firstnameIsNull;
|
||
property entry_lastname: String read Getentry_lastnameValue write Setentry_lastnameValue;
|
||
property entry_lastnameIsNull: Boolean read Getentry_lastnameIsNull write Setentry_lastnameIsNull;
|
||
property entry_street_address: String read Getentry_street_addressValue write Setentry_street_addressValue;
|
||
property entry_street_addressIsNull: Boolean read Getentry_street_addressIsNull write Setentry_street_addressIsNull;
|
||
property entry_suburb: String read Getentry_suburbValue write Setentry_suburbValue;
|
||
property entry_suburbIsNull: Boolean read Getentry_suburbIsNull write Setentry_suburbIsNull;
|
||
property entry_postcode: String read Getentry_postcodeValue write Setentry_postcodeValue;
|
||
property entry_postcodeIsNull: Boolean read Getentry_postcodeIsNull write Setentry_postcodeIsNull;
|
||
property entry_city: String read Getentry_cityValue write Setentry_cityValue;
|
||
property entry_cityIsNull: Boolean read Getentry_cityIsNull write Setentry_cityIsNull;
|
||
property entry_state: String read Getentry_stateValue write Setentry_stateValue;
|
||
property entry_stateIsNull: Boolean read Getentry_stateIsNull write Setentry_stateIsNull;
|
||
property entry_country_id: Integer read Getentry_country_idValue write Setentry_country_idValue;
|
||
property entry_country_idIsNull: Boolean read Getentry_country_idIsNull write Setentry_country_idIsNull;
|
||
property entry_zone_id: Integer read Getentry_zone_idValue write Setentry_zone_idValue;
|
||
property entry_zone_idIsNull: Boolean read Getentry_zone_idIsNull write Setentry_zone_idIsNull;
|
||
property entry_telephone: String read Getentry_telephoneValue write Setentry_telephoneValue;
|
||
property entry_telephoneIsNull: Boolean read Getentry_telephoneIsNull write Setentry_telephoneIsNull;
|
||
property rdx_address_book_id_local: Integer read Getrdx_address_book_id_localValue write Setrdx_address_book_id_localValue;
|
||
property rdx_address_book_id_localIsNull: Boolean read Getrdx_address_book_id_localIsNull write Setrdx_address_book_id_localIsNull;
|
||
|
||
public
|
||
constructor Create(aDataTable: TDADataTable); override;
|
||
destructor Destroy; override;
|
||
|
||
end;
|
||
|
||
{ ITiendaWeb }
|
||
ITiendaWeb = interface(IDAStronglyTypedDataTable)
|
||
['{49EC332D-5318-4E39-BD54-95C1D08BB4F7}']
|
||
{ Property getters and setters }
|
||
function GetIDValue: Integer;
|
||
procedure SetIDValue(const aValue: Integer);
|
||
function GetIDIsNull: Boolean;
|
||
procedure SetIDIsNull(const aValue: Boolean);
|
||
function GetID_EMPRESAValue: Integer;
|
||
procedure SetID_EMPRESAValue(const aValue: Integer);
|
||
function GetID_EMPRESAIsNull: Boolean;
|
||
procedure SetID_EMPRESAIsNull(const aValue: Boolean);
|
||
function GetTIENDA_ACTIVAValue: Integer;
|
||
procedure SetTIENDA_ACTIVAValue(const aValue: Integer);
|
||
function GetTIENDA_ACTIVAIsNull: Boolean;
|
||
procedure SetTIENDA_ACTIVAIsNull(const aValue: Boolean);
|
||
function GetBDSERVERValue: String;
|
||
procedure SetBDSERVERValue(const aValue: String);
|
||
function GetBDSERVERIsNull: Boolean;
|
||
procedure SetBDSERVERIsNull(const aValue: Boolean);
|
||
function GetBDPORTValue: String;
|
||
procedure SetBDPORTValue(const aValue: String);
|
||
function GetBDPORTIsNull: Boolean;
|
||
procedure SetBDPORTIsNull(const aValue: Boolean);
|
||
function GetBDNAMEValue: String;
|
||
procedure SetBDNAMEValue(const aValue: String);
|
||
function GetBDNAMEIsNull: Boolean;
|
||
procedure SetBDNAMEIsNull(const aValue: Boolean);
|
||
function GetBDUSERValue: String;
|
||
procedure SetBDUSERValue(const aValue: String);
|
||
function GetBDUSERIsNull: Boolean;
|
||
procedure SetBDUSERIsNull(const aValue: Boolean);
|
||
function GetBDPASSValue: String;
|
||
procedure SetBDPASSValue(const aValue: String);
|
||
function GetBDPASSIsNull: Boolean;
|
||
procedure SetBDPASSIsNull(const aValue: Boolean);
|
||
function GetULTIMA_ACTUALIZACIONValue: DateTime;
|
||
procedure SetULTIMA_ACTUALIZACIONValue(const aValue: DateTime);
|
||
function GetULTIMA_ACTUALIZACIONIsNull: Boolean;
|
||
procedure SetULTIMA_ACTUALIZACIONIsNull(const aValue: Boolean);
|
||
|
||
|
||
{ Properties }
|
||
property ID: Integer read GetIDValue write SetIDValue;
|
||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
||
property TIENDA_ACTIVA: Integer read GetTIENDA_ACTIVAValue write SetTIENDA_ACTIVAValue;
|
||
property TIENDA_ACTIVAIsNull: Boolean read GetTIENDA_ACTIVAIsNull write SetTIENDA_ACTIVAIsNull;
|
||
property BDSERVER: String read GetBDSERVERValue write SetBDSERVERValue;
|
||
property BDSERVERIsNull: Boolean read GetBDSERVERIsNull write SetBDSERVERIsNull;
|
||
property BDPORT: String read GetBDPORTValue write SetBDPORTValue;
|
||
property BDPORTIsNull: Boolean read GetBDPORTIsNull write SetBDPORTIsNull;
|
||
property BDNAME: String read GetBDNAMEValue write SetBDNAMEValue;
|
||
property BDNAMEIsNull: Boolean read GetBDNAMEIsNull write SetBDNAMEIsNull;
|
||
property BDUSER: String read GetBDUSERValue write SetBDUSERValue;
|
||
property BDUSERIsNull: Boolean read GetBDUSERIsNull write SetBDUSERIsNull;
|
||
property BDPASS: String read GetBDPASSValue write SetBDPASSValue;
|
||
property BDPASSIsNull: Boolean read GetBDPASSIsNull write SetBDPASSIsNull;
|
||
property ULTIMA_ACTUALIZACION: DateTime read GetULTIMA_ACTUALIZACIONValue write SetULTIMA_ACTUALIZACIONValue;
|
||
property ULTIMA_ACTUALIZACIONIsNull: Boolean read GetULTIMA_ACTUALIZACIONIsNull write SetULTIMA_ACTUALIZACIONIsNull;
|
||
end;
|
||
|
||
{ TTiendaWebDataTableRules }
|
||
TTiendaWebDataTableRules = class(TIntfObjectDADataTableRules, ITiendaWeb)
|
||
private
|
||
protected
|
||
{ Property getters and setters }
|
||
function GetIDValue: Integer; virtual;
|
||
procedure SetIDValue(const aValue: Integer); virtual;
|
||
function GetIDIsNull: Boolean; virtual;
|
||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||
function GetID_EMPRESAValue: Integer; virtual;
|
||
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
||
function GetID_EMPRESAIsNull: Boolean; virtual;
|
||
procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
|
||
function GetTIENDA_ACTIVAValue: Integer; virtual;
|
||
procedure SetTIENDA_ACTIVAValue(const aValue: Integer); virtual;
|
||
function GetTIENDA_ACTIVAIsNull: Boolean; virtual;
|
||
procedure SetTIENDA_ACTIVAIsNull(const aValue: Boolean); virtual;
|
||
function GetBDSERVERValue: String; virtual;
|
||
procedure SetBDSERVERValue(const aValue: String); virtual;
|
||
function GetBDSERVERIsNull: Boolean; virtual;
|
||
procedure SetBDSERVERIsNull(const aValue: Boolean); virtual;
|
||
function GetBDPORTValue: String; virtual;
|
||
procedure SetBDPORTValue(const aValue: String); virtual;
|
||
function GetBDPORTIsNull: Boolean; virtual;
|
||
procedure SetBDPORTIsNull(const aValue: Boolean); virtual;
|
||
function GetBDNAMEValue: String; virtual;
|
||
procedure SetBDNAMEValue(const aValue: String); virtual;
|
||
function GetBDNAMEIsNull: Boolean; virtual;
|
||
procedure SetBDNAMEIsNull(const aValue: Boolean); virtual;
|
||
function GetBDUSERValue: String; virtual;
|
||
procedure SetBDUSERValue(const aValue: String); virtual;
|
||
function GetBDUSERIsNull: Boolean; virtual;
|
||
procedure SetBDUSERIsNull(const aValue: Boolean); virtual;
|
||
function GetBDPASSValue: String; virtual;
|
||
procedure SetBDPASSValue(const aValue: String); virtual;
|
||
function GetBDPASSIsNull: Boolean; virtual;
|
||
procedure SetBDPASSIsNull(const aValue: Boolean); virtual;
|
||
function GetULTIMA_ACTUALIZACIONValue: DateTime; virtual;
|
||
procedure SetULTIMA_ACTUALIZACIONValue(const aValue: DateTime); virtual;
|
||
function GetULTIMA_ACTUALIZACIONIsNull: Boolean; virtual;
|
||
procedure SetULTIMA_ACTUALIZACIONIsNull(const aValue: Boolean); virtual;
|
||
|
||
{ Properties }
|
||
property ID: Integer read GetIDValue write SetIDValue;
|
||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
|
||
property TIENDA_ACTIVA: Integer read GetTIENDA_ACTIVAValue write SetTIENDA_ACTIVAValue;
|
||
property TIENDA_ACTIVAIsNull: Boolean read GetTIENDA_ACTIVAIsNull write SetTIENDA_ACTIVAIsNull;
|
||
property BDSERVER: String read GetBDSERVERValue write SetBDSERVERValue;
|
||
property BDSERVERIsNull: Boolean read GetBDSERVERIsNull write SetBDSERVERIsNull;
|
||
property BDPORT: String read GetBDPORTValue write SetBDPORTValue;
|
||
property BDPORTIsNull: Boolean read GetBDPORTIsNull write SetBDPORTIsNull;
|
||
property BDNAME: String read GetBDNAMEValue write SetBDNAMEValue;
|
||
property BDNAMEIsNull: Boolean read GetBDNAMEIsNull write SetBDNAMEIsNull;
|
||
property BDUSER: String read GetBDUSERValue write SetBDUSERValue;
|
||
property BDUSERIsNull: Boolean read GetBDUSERIsNull write SetBDUSERIsNull;
|
||
property BDPASS: String read GetBDPASSValue write SetBDPASSValue;
|
||
property BDPASSIsNull: Boolean read GetBDPASSIsNull write SetBDPASSIsNull;
|
||
property ULTIMA_ACTUALIZACION: DateTime read GetULTIMA_ACTUALIZACIONValue write SetULTIMA_ACTUALIZACIONValue;
|
||
property ULTIMA_ACTUALIZACIONIsNull: Boolean read GetULTIMA_ACTUALIZACIONIsNull write SetULTIMA_ACTUALIZACIONIsNull;
|
||
|
||
public
|
||
constructor Create(aDataTable: TDADataTable); override;
|
||
destructor Destroy; override;
|
||
|
||
end;
|
||
|
||
{ Iosc_Manufacturers }
|
||
Iosc_Manufacturers = interface(IDAStronglyTypedDataTable)
|
||
['{56A9B8F8-7538-47E2-8C4D-AD569CE3C226}']
|
||
{ Property getters and setters }
|
||
function Getmanufacturers_idValue: Integer;
|
||
procedure Setmanufacturers_idValue(const aValue: Integer);
|
||
function Getmanufacturers_idIsNull: Boolean;
|
||
procedure Setmanufacturers_idIsNull(const aValue: Boolean);
|
||
function Getmanufacturers_nameValue: String;
|
||
procedure Setmanufacturers_nameValue(const aValue: String);
|
||
function Getmanufacturers_nameIsNull: Boolean;
|
||
procedure Setmanufacturers_nameIsNull(const aValue: Boolean);
|
||
function Getmanufacturers_imageValue: String;
|
||
procedure Setmanufacturers_imageValue(const aValue: String);
|
||
function Getmanufacturers_imageIsNull: Boolean;
|
||
procedure Setmanufacturers_imageIsNull(const aValue: Boolean);
|
||
function Getdate_addedValue: DateTime;
|
||
procedure Setdate_addedValue(const aValue: DateTime);
|
||
function Getdate_addedIsNull: Boolean;
|
||
procedure Setdate_addedIsNull(const aValue: Boolean);
|
||
function Getlast_modifiedValue: DateTime;
|
||
procedure Setlast_modifiedValue(const aValue: DateTime);
|
||
function Getlast_modifiedIsNull: Boolean;
|
||
procedure Setlast_modifiedIsNull(const aValue: Boolean);
|
||
function Getrdx_manufacturers_id_localValue: Integer;
|
||
procedure Setrdx_manufacturers_id_localValue(const aValue: Integer);
|
||
function Getrdx_manufacturers_id_localIsNull: Boolean;
|
||
procedure Setrdx_manufacturers_id_localIsNull(const aValue: Boolean);
|
||
|
||
|
||
{ Properties }
|
||
property manufacturers_id: Integer read Getmanufacturers_idValue write Setmanufacturers_idValue;
|
||
property manufacturers_idIsNull: Boolean read Getmanufacturers_idIsNull write Setmanufacturers_idIsNull;
|
||
property manufacturers_name: String read Getmanufacturers_nameValue write Setmanufacturers_nameValue;
|
||
property manufacturers_nameIsNull: Boolean read Getmanufacturers_nameIsNull write Setmanufacturers_nameIsNull;
|
||
property manufacturers_image: String read Getmanufacturers_imageValue write Setmanufacturers_imageValue;
|
||
property manufacturers_imageIsNull: Boolean read Getmanufacturers_imageIsNull write Setmanufacturers_imageIsNull;
|
||
property date_added: DateTime read Getdate_addedValue write Setdate_addedValue;
|
||
property date_addedIsNull: Boolean read Getdate_addedIsNull write Setdate_addedIsNull;
|
||
property last_modified: DateTime read Getlast_modifiedValue write Setlast_modifiedValue;
|
||
property last_modifiedIsNull: Boolean read Getlast_modifiedIsNull write Setlast_modifiedIsNull;
|
||
property rdx_manufacturers_id_local: Integer read Getrdx_manufacturers_id_localValue write Setrdx_manufacturers_id_localValue;
|
||
property rdx_manufacturers_id_localIsNull: Boolean read Getrdx_manufacturers_id_localIsNull write Setrdx_manufacturers_id_localIsNull;
|
||
end;
|
||
|
||
{ Tosc_ManufacturersDataTableRules }
|
||
Tosc_ManufacturersDataTableRules = class(TIntfObjectDADataTableRules, Iosc_Manufacturers)
|
||
private
|
||
protected
|
||
{ Property getters and setters }
|
||
function Getmanufacturers_idValue: Integer; virtual;
|
||
procedure Setmanufacturers_idValue(const aValue: Integer); virtual;
|
||
function Getmanufacturers_idIsNull: Boolean; virtual;
|
||
procedure Setmanufacturers_idIsNull(const aValue: Boolean); virtual;
|
||
function Getmanufacturers_nameValue: String; virtual;
|
||
procedure Setmanufacturers_nameValue(const aValue: String); virtual;
|
||
function Getmanufacturers_nameIsNull: Boolean; virtual;
|
||
procedure Setmanufacturers_nameIsNull(const aValue: Boolean); virtual;
|
||
function Getmanufacturers_imageValue: String; virtual;
|
||
procedure Setmanufacturers_imageValue(const aValue: String); virtual;
|
||
function Getmanufacturers_imageIsNull: Boolean; virtual;
|
||
procedure Setmanufacturers_imageIsNull(const aValue: Boolean); virtual;
|
||
function Getdate_addedValue: DateTime; virtual;
|
||
procedure Setdate_addedValue(const aValue: DateTime); virtual;
|
||
function Getdate_addedIsNull: Boolean; virtual;
|
||
procedure Setdate_addedIsNull(const aValue: Boolean); virtual;
|
||
function Getlast_modifiedValue: DateTime; virtual;
|
||
procedure Setlast_modifiedValue(const aValue: DateTime); virtual;
|
||
function Getlast_modifiedIsNull: Boolean; virtual;
|
||
procedure Setlast_modifiedIsNull(const aValue: Boolean); virtual;
|
||
function Getrdx_manufacturers_id_localValue: Integer; virtual;
|
||
procedure Setrdx_manufacturers_id_localValue(const aValue: Integer); virtual;
|
||
function Getrdx_manufacturers_id_localIsNull: Boolean; virtual;
|
||
procedure Setrdx_manufacturers_id_localIsNull(const aValue: Boolean); virtual;
|
||
|
||
{ Properties }
|
||
property manufacturers_id: Integer read Getmanufacturers_idValue write Setmanufacturers_idValue;
|
||
property manufacturers_idIsNull: Boolean read Getmanufacturers_idIsNull write Setmanufacturers_idIsNull;
|
||
property manufacturers_name: String read Getmanufacturers_nameValue write Setmanufacturers_nameValue;
|
||
property manufacturers_nameIsNull: Boolean read Getmanufacturers_nameIsNull write Setmanufacturers_nameIsNull;
|
||
property manufacturers_image: String read Getmanufacturers_imageValue write Setmanufacturers_imageValue;
|
||
property manufacturers_imageIsNull: Boolean read Getmanufacturers_imageIsNull write Setmanufacturers_imageIsNull;
|
||
property date_added: DateTime read Getdate_addedValue write Setdate_addedValue;
|
||
property date_addedIsNull: Boolean read Getdate_addedIsNull write Setdate_addedIsNull;
|
||
property last_modified: DateTime read Getlast_modifiedValue write Setlast_modifiedValue;
|
||
property last_modifiedIsNull: Boolean read Getlast_modifiedIsNull write Setlast_modifiedIsNull;
|
||
property rdx_manufacturers_id_local: Integer read Getrdx_manufacturers_id_localValue write Setrdx_manufacturers_id_localValue;
|
||
property rdx_manufacturers_id_localIsNull: Boolean read Getrdx_manufacturers_id_localIsNull write Setrdx_manufacturers_id_localIsNull;
|
||
|
||
public
|
||
constructor Create(aDataTable: TDADataTable); override;
|
||
destructor Destroy; override;
|
||
|
||
end;
|
||
|
||
{
|
||
Esta tabla es s<>lo de consulta
|
||
}
|
||
{ Iosc_Languages }
|
||
Iosc_Languages = interface(IDAStronglyTypedDataTable)
|
||
['{7C625C62-43EF-4340-A8E6-EC6B4EAA299B}']
|
||
{ Property getters and setters }
|
||
function Getlanguages_idValue: Integer;
|
||
procedure Setlanguages_idValue(const aValue: Integer);
|
||
function Getlanguages_idIsNull: Boolean;
|
||
procedure Setlanguages_idIsNull(const aValue: Boolean);
|
||
function GetnameValue: String;
|
||
procedure SetnameValue(const aValue: String);
|
||
function GetnameIsNull: Boolean;
|
||
procedure SetnameIsNull(const aValue: Boolean);
|
||
function GetcodeValue: String;
|
||
procedure SetcodeValue(const aValue: String);
|
||
function GetcodeIsNull: Boolean;
|
||
procedure SetcodeIsNull(const aValue: Boolean);
|
||
function GetimageValue: String;
|
||
procedure SetimageValue(const aValue: String);
|
||
function GetimageIsNull: Boolean;
|
||
procedure SetimageIsNull(const aValue: Boolean);
|
||
function GetdirectoryValue: String;
|
||
procedure SetdirectoryValue(const aValue: String);
|
||
function GetdirectoryIsNull: Boolean;
|
||
procedure SetdirectoryIsNull(const aValue: Boolean);
|
||
function Getsort_orderValue: Integer;
|
||
procedure Setsort_orderValue(const aValue: Integer);
|
||
function Getsort_orderIsNull: Boolean;
|
||
procedure Setsort_orderIsNull(const aValue: Boolean);
|
||
|
||
|
||
{ Properties }
|
||
property languages_id: Integer read Getlanguages_idValue write Setlanguages_idValue;
|
||
property languages_idIsNull: Boolean read Getlanguages_idIsNull write Setlanguages_idIsNull;
|
||
property name: String read GetnameValue write SetnameValue;
|
||
property nameIsNull: Boolean read GetnameIsNull write SetnameIsNull;
|
||
property code: String read GetcodeValue write SetcodeValue;
|
||
property codeIsNull: Boolean read GetcodeIsNull write SetcodeIsNull;
|
||
property image: String read GetimageValue write SetimageValue;
|
||
property imageIsNull: Boolean read GetimageIsNull write SetimageIsNull;
|
||
property directory: String read GetdirectoryValue write SetdirectoryValue;
|
||
property directoryIsNull: Boolean read GetdirectoryIsNull write SetdirectoryIsNull;
|
||
property sort_order: Integer read Getsort_orderValue write Setsort_orderValue;
|
||
property sort_orderIsNull: Boolean read Getsort_orderIsNull write Setsort_orderIsNull;
|
||
end;
|
||
|
||
{ Tosc_LanguagesDataTableRules }
|
||
Tosc_LanguagesDataTableRules = class(TIntfObjectDADataTableRules, Iosc_Languages)
|
||
private
|
||
protected
|
||
{ Property getters and setters }
|
||
function Getlanguages_idValue: Integer; virtual;
|
||
procedure Setlanguages_idValue(const aValue: Integer); virtual;
|
||
function Getlanguages_idIsNull: Boolean; virtual;
|
||
procedure Setlanguages_idIsNull(const aValue: Boolean); virtual;
|
||
function GetnameValue: String; virtual;
|
||
procedure SetnameValue(const aValue: String); virtual;
|
||
function GetnameIsNull: Boolean; virtual;
|
||
procedure SetnameIsNull(const aValue: Boolean); virtual;
|
||
function GetcodeValue: String; virtual;
|
||
procedure SetcodeValue(const aValue: String); virtual;
|
||
function GetcodeIsNull: Boolean; virtual;
|
||
procedure SetcodeIsNull(const aValue: Boolean); virtual;
|
||
function GetimageValue: String; virtual;
|
||
procedure SetimageValue(const aValue: String); virtual;
|
||
function GetimageIsNull: Boolean; virtual;
|
||
procedure SetimageIsNull(const aValue: Boolean); virtual;
|
||
function GetdirectoryValue: String; virtual;
|
||
procedure SetdirectoryValue(const aValue: String); virtual;
|
||
function GetdirectoryIsNull: Boolean; virtual;
|
||
procedure SetdirectoryIsNull(const aValue: Boolean); virtual;
|
||
function Getsort_orderValue: Integer; virtual;
|
||
procedure Setsort_orderValue(const aValue: Integer); virtual;
|
||
function Getsort_orderIsNull: Boolean; virtual;
|
||
procedure Setsort_orderIsNull(const aValue: Boolean); virtual;
|
||
|
||
{ Properties }
|
||
property languages_id: Integer read Getlanguages_idValue write Setlanguages_idValue;
|
||
property languages_idIsNull: Boolean read Getlanguages_idIsNull write Setlanguages_idIsNull;
|
||
property name: String read GetnameValue write SetnameValue;
|
||
property nameIsNull: Boolean read GetnameIsNull write SetnameIsNull;
|
||
property code: String read GetcodeValue write SetcodeValue;
|
||
property codeIsNull: Boolean read GetcodeIsNull write SetcodeIsNull;
|
||
property image: String read GetimageValue write SetimageValue;
|
||
property imageIsNull: Boolean read GetimageIsNull write SetimageIsNull;
|
||
property directory: String read GetdirectoryValue write SetdirectoryValue;
|
||
property directoryIsNull: Boolean read GetdirectoryIsNull write SetdirectoryIsNull;
|
||
property sort_order: Integer read Getsort_orderValue write Setsort_orderValue;
|
||
property sort_orderIsNull: Boolean read Getsort_orderIsNull write Setsort_orderIsNull;
|
||
|
||
public
|
||
constructor Create(aDataTable: TDADataTable); override;
|
||
destructor Destroy; override;
|
||
|
||
end;
|
||
|
||
{ Iosc_Products }
|
||
Iosc_Products = interface(IDAStronglyTypedDataTable)
|
||
['{C99FB025-828E-4D74-9270-D9A2C954B6D6}']
|
||
{ Property getters and setters }
|
||
function Getproducts_idValue: Integer;
|
||
procedure Setproducts_idValue(const aValue: Integer);
|
||
function Getproducts_idIsNull: Boolean;
|
||
procedure Setproducts_idIsNull(const aValue: Boolean);
|
||
function Getproducts_nameValue: String;
|
||
procedure Setproducts_nameValue(const aValue: String);
|
||
function Getproducts_nameIsNull: Boolean;
|
||
procedure Setproducts_nameIsNull(const aValue: Boolean);
|
||
function Getproducts_descriptionValue: IROStrings;
|
||
function Getproducts_descriptionIsNull: Boolean;
|
||
procedure Setproducts_descriptionIsNull(const aValue: Boolean);
|
||
function Getproducts_modelValue: String;
|
||
procedure Setproducts_modelValue(const aValue: String);
|
||
function Getproducts_modelIsNull: Boolean;
|
||
procedure Setproducts_modelIsNull(const aValue: Boolean);
|
||
function Getproducts_date_addedValue: DateTime;
|
||
procedure Setproducts_date_addedValue(const aValue: DateTime);
|
||
function Getproducts_date_addedIsNull: Boolean;
|
||
procedure Setproducts_date_addedIsNull(const aValue: Boolean);
|
||
function Getproducts_last_modifiedValue: DateTime;
|
||
procedure Setproducts_last_modifiedValue(const aValue: DateTime);
|
||
function Getproducts_last_modifiedIsNull: Boolean;
|
||
procedure Setproducts_last_modifiedIsNull(const aValue: Boolean);
|
||
function Getproducts_statusValue: Integer;
|
||
procedure Setproducts_statusValue(const aValue: Integer);
|
||
function Getproducts_statusIsNull: Boolean;
|
||
procedure Setproducts_statusIsNull(const aValue: Boolean);
|
||
function Getmanufacturers_idValue: Integer;
|
||
procedure Setmanufacturers_idValue(const aValue: Integer);
|
||
function Getmanufacturers_idIsNull: Boolean;
|
||
procedure Setmanufacturers_idIsNull(const aValue: Boolean);
|
||
function Getrdx_products_id_localValue: Integer;
|
||
procedure Setrdx_products_id_localValue(const aValue: Integer);
|
||
function Getrdx_products_id_localIsNull: Boolean;
|
||
procedure Setrdx_products_id_localIsNull(const aValue: Boolean);
|
||
|
||
|
||
{ Properties }
|
||
property products_id: Integer read Getproducts_idValue write Setproducts_idValue;
|
||
property products_idIsNull: Boolean read Getproducts_idIsNull write Setproducts_idIsNull;
|
||
property products_name: String read Getproducts_nameValue write Setproducts_nameValue;
|
||
property products_nameIsNull: Boolean read Getproducts_nameIsNull write Setproducts_nameIsNull;
|
||
property products_description: IROStrings read Getproducts_descriptionValue;
|
||
property products_descriptionIsNull: Boolean read Getproducts_descriptionIsNull write Setproducts_descriptionIsNull;
|
||
property products_model: String read Getproducts_modelValue write Setproducts_modelValue;
|
||
property products_modelIsNull: Boolean read Getproducts_modelIsNull write Setproducts_modelIsNull;
|
||
property products_date_added: DateTime read Getproducts_date_addedValue write Setproducts_date_addedValue;
|
||
property products_date_addedIsNull: Boolean read Getproducts_date_addedIsNull write Setproducts_date_addedIsNull;
|
||
property products_last_modified: DateTime read Getproducts_last_modifiedValue write Setproducts_last_modifiedValue;
|
||
property products_last_modifiedIsNull: Boolean read Getproducts_last_modifiedIsNull write Setproducts_last_modifiedIsNull;
|
||
property products_status: Integer read Getproducts_statusValue write Setproducts_statusValue;
|
||
property products_statusIsNull: Boolean read Getproducts_statusIsNull write Setproducts_statusIsNull;
|
||
property manufacturers_id: Integer read Getmanufacturers_idValue write Setmanufacturers_idValue;
|
||
property manufacturers_idIsNull: Boolean read Getmanufacturers_idIsNull write Setmanufacturers_idIsNull;
|
||
property rdx_products_id_local: Integer read Getrdx_products_id_localValue write Setrdx_products_id_localValue;
|
||
property rdx_products_id_localIsNull: Boolean read Getrdx_products_id_localIsNull write Setrdx_products_id_localIsNull;
|
||
end;
|
||
|
||
{ Tosc_ProductsDataTableRules }
|
||
Tosc_ProductsDataTableRules = class(TIntfObjectDADataTableRules, Iosc_Products)
|
||
private
|
||
f_products_description: IROStrings;
|
||
procedure products_description_OnChange(Sender: TObject);
|
||
protected
|
||
{ Property getters and setters }
|
||
function Getproducts_idValue: Integer; virtual;
|
||
procedure Setproducts_idValue(const aValue: Integer); virtual;
|
||
function Getproducts_idIsNull: Boolean; virtual;
|
||
procedure Setproducts_idIsNull(const aValue: Boolean); virtual;
|
||
function Getproducts_nameValue: String; virtual;
|
||
procedure Setproducts_nameValue(const aValue: String); virtual;
|
||
function Getproducts_nameIsNull: Boolean; virtual;
|
||
procedure Setproducts_nameIsNull(const aValue: Boolean); virtual;
|
||
function Getproducts_descriptionValue: IROStrings; virtual;
|
||
function Getproducts_descriptionIsNull: Boolean; virtual;
|
||
procedure Setproducts_descriptionIsNull(const aValue: Boolean); virtual;
|
||
function Getproducts_modelValue: String; virtual;
|
||
procedure Setproducts_modelValue(const aValue: String); virtual;
|
||
function Getproducts_modelIsNull: Boolean; virtual;
|
||
procedure Setproducts_modelIsNull(const aValue: Boolean); virtual;
|
||
function Getproducts_date_addedValue: DateTime; virtual;
|
||
procedure Setproducts_date_addedValue(const aValue: DateTime); virtual;
|
||
function Getproducts_date_addedIsNull: Boolean; virtual;
|
||
procedure Setproducts_date_addedIsNull(const aValue: Boolean); virtual;
|
||
function Getproducts_last_modifiedValue: DateTime; virtual;
|
||
procedure Setproducts_last_modifiedValue(const aValue: DateTime); virtual;
|
||
function Getproducts_last_modifiedIsNull: Boolean; virtual;
|
||
procedure Setproducts_last_modifiedIsNull(const aValue: Boolean); virtual;
|
||
function Getproducts_statusValue: Integer; virtual;
|
||
procedure Setproducts_statusValue(const aValue: Integer); virtual;
|
||
function Getproducts_statusIsNull: Boolean; virtual;
|
||
procedure Setproducts_statusIsNull(const aValue: Boolean); virtual;
|
||
function Getmanufacturers_idValue: Integer; virtual;
|
||
procedure Setmanufacturers_idValue(const aValue: Integer); virtual;
|
||
function Getmanufacturers_idIsNull: Boolean; virtual;
|
||
procedure Setmanufacturers_idIsNull(const aValue: Boolean); virtual;
|
||
function Getrdx_products_id_localValue: Integer; virtual;
|
||
procedure Setrdx_products_id_localValue(const aValue: Integer); virtual;
|
||
function Getrdx_products_id_localIsNull: Boolean; virtual;
|
||
procedure Setrdx_products_id_localIsNull(const aValue: Boolean); virtual;
|
||
|
||
{ Properties }
|
||
property products_id: Integer read Getproducts_idValue write Setproducts_idValue;
|
||
property products_idIsNull: Boolean read Getproducts_idIsNull write Setproducts_idIsNull;
|
||
property products_name: String read Getproducts_nameValue write Setproducts_nameValue;
|
||
property products_nameIsNull: Boolean read Getproducts_nameIsNull write Setproducts_nameIsNull;
|
||
property products_description: IROStrings read Getproducts_descriptionValue;
|
||
property products_descriptionIsNull: Boolean read Getproducts_descriptionIsNull write Setproducts_descriptionIsNull;
|
||
property products_model: String read Getproducts_modelValue write Setproducts_modelValue;
|
||
property products_modelIsNull: Boolean read Getproducts_modelIsNull write Setproducts_modelIsNull;
|
||
property products_date_added: DateTime read Getproducts_date_addedValue write Setproducts_date_addedValue;
|
||
property products_date_addedIsNull: Boolean read Getproducts_date_addedIsNull write Setproducts_date_addedIsNull;
|
||
property products_last_modified: DateTime read Getproducts_last_modifiedValue write Setproducts_last_modifiedValue;
|
||
property products_last_modifiedIsNull: Boolean read Getproducts_last_modifiedIsNull write Setproducts_last_modifiedIsNull;
|
||
property products_status: Integer read Getproducts_statusValue write Setproducts_statusValue;
|
||
property products_statusIsNull: Boolean read Getproducts_statusIsNull write Setproducts_statusIsNull;
|
||
property manufacturers_id: Integer read Getmanufacturers_idValue write Setmanufacturers_idValue;
|
||
property manufacturers_idIsNull: Boolean read Getmanufacturers_idIsNull write Setmanufacturers_idIsNull;
|
||
property rdx_products_id_local: Integer read Getrdx_products_id_localValue write Setrdx_products_id_localValue;
|
||
property rdx_products_id_localIsNull: Boolean read Getrdx_products_id_localIsNull write Setrdx_products_id_localIsNull;
|
||
|
||
public
|
||
constructor Create(aDataTable: TDADataTable); override;
|
||
destructor Destroy; override;
|
||
|
||
end;
|
||
|
||
{ Iosc_Orders }
|
||
Iosc_Orders = interface(IDAStronglyTypedDataTable)
|
||
['{F120AB1C-A35E-4D24-B5E9-41A325E7081B}']
|
||
{ Property getters and setters }
|
||
function Getorders_idValue: Integer;
|
||
procedure Setorders_idValue(const aValue: Integer);
|
||
function Getorders_idIsNull: Boolean;
|
||
procedure Setorders_idIsNull(const aValue: Boolean);
|
||
function Getrdx_orders_id_localValue: Integer;
|
||
procedure Setrdx_orders_id_localValue(const aValue: Integer);
|
||
function Getrdx_orders_id_localIsNull: Boolean;
|
||
procedure Setrdx_orders_id_localIsNull(const aValue: Boolean);
|
||
function Getcustomers_idValue: Integer;
|
||
procedure Setcustomers_idValue(const aValue: Integer);
|
||
function Getcustomers_idIsNull: Boolean;
|
||
procedure Setcustomers_idIsNull(const aValue: Boolean);
|
||
function Getrdx_customers_id_localValue: Integer;
|
||
procedure Setrdx_customers_id_localValue(const aValue: Integer);
|
||
function Getrdx_customers_id_localIsNull: Boolean;
|
||
procedure Setrdx_customers_id_localIsNull(const aValue: Boolean);
|
||
function Getdelivery_nameValue: String;
|
||
procedure Setdelivery_nameValue(const aValue: String);
|
||
function Getdelivery_nameIsNull: Boolean;
|
||
procedure Setdelivery_nameIsNull(const aValue: Boolean);
|
||
function Getdelivery_companyValue: String;
|
||
procedure Setdelivery_companyValue(const aValue: String);
|
||
function Getdelivery_companyIsNull: Boolean;
|
||
procedure Setdelivery_companyIsNull(const aValue: Boolean);
|
||
function Getdelivery_street_addressValue: String;
|
||
procedure Setdelivery_street_addressValue(const aValue: String);
|
||
function Getdelivery_street_addressIsNull: Boolean;
|
||
procedure Setdelivery_street_addressIsNull(const aValue: Boolean);
|
||
function Getdelivery_suburbValue: String;
|
||
procedure Setdelivery_suburbValue(const aValue: String);
|
||
function Getdelivery_suburbIsNull: Boolean;
|
||
procedure Setdelivery_suburbIsNull(const aValue: Boolean);
|
||
function Getdelivery_cityValue: String;
|
||
procedure Setdelivery_cityValue(const aValue: String);
|
||
function Getdelivery_cityIsNull: Boolean;
|
||
procedure Setdelivery_cityIsNull(const aValue: Boolean);
|
||
function Getdelivery_postcodeValue: String;
|
||
procedure Setdelivery_postcodeValue(const aValue: String);
|
||
function Getdelivery_postcodeIsNull: Boolean;
|
||
procedure Setdelivery_postcodeIsNull(const aValue: Boolean);
|
||
function Getdelivery_stateValue: String;
|
||
procedure Setdelivery_stateValue(const aValue: String);
|
||
function Getdelivery_stateIsNull: Boolean;
|
||
procedure Setdelivery_stateIsNull(const aValue: Boolean);
|
||
function Getdelivery_countryValue: String;
|
||
procedure Setdelivery_countryValue(const aValue: String);
|
||
function Getdelivery_countryIsNull: Boolean;
|
||
procedure Setdelivery_countryIsNull(const aValue: Boolean);
|
||
function Getdelivery_telephoneValue: String;
|
||
procedure Setdelivery_telephoneValue(const aValue: String);
|
||
function Getdelivery_telephoneIsNull: Boolean;
|
||
procedure Setdelivery_telephoneIsNull(const aValue: Boolean);
|
||
function Getlast_modifiedValue: DateTime;
|
||
procedure Setlast_modifiedValue(const aValue: DateTime);
|
||
function Getlast_modifiedIsNull: Boolean;
|
||
procedure Setlast_modifiedIsNull(const aValue: Boolean);
|
||
function Getdate_purchasedValue: DateTime;
|
||
procedure Setdate_purchasedValue(const aValue: DateTime);
|
||
function Getdate_purchasedIsNull: Boolean;
|
||
procedure Setdate_purchasedIsNull(const aValue: Boolean);
|
||
function Getorders_statusValue: Integer;
|
||
procedure Setorders_statusValue(const aValue: Integer);
|
||
function Getorders_statusIsNull: Boolean;
|
||
procedure Setorders_statusIsNull(const aValue: Boolean);
|
||
function Getorders_date_finishedValue: DateTime;
|
||
procedure Setorders_date_finishedValue(const aValue: DateTime);
|
||
function Getorders_date_finishedIsNull: Boolean;
|
||
procedure Setorders_date_finishedIsNull(const aValue: Boolean);
|
||
function GetcommentsValue: IROStrings;
|
||
function GetcommentsIsNull: Boolean;
|
||
procedure SetcommentsIsNull(const aValue: Boolean);
|
||
function Getrdx_ship_dateValue: DateTime;
|
||
procedure Setrdx_ship_dateValue(const aValue: DateTime);
|
||
function Getrdx_ship_dateIsNull: Boolean;
|
||
procedure Setrdx_ship_dateIsNull(const aValue: Boolean);
|
||
function Getrdx_referencia_clienteValue: String;
|
||
procedure Setrdx_referencia_clienteValue(const aValue: String);
|
||
function Getrdx_referencia_clienteIsNull: Boolean;
|
||
procedure Setrdx_referencia_clienteIsNull(const aValue: Boolean);
|
||
|
||
|
||
{ Properties }
|
||
property orders_id: Integer read Getorders_idValue write Setorders_idValue;
|
||
property orders_idIsNull: Boolean read Getorders_idIsNull write Setorders_idIsNull;
|
||
property rdx_orders_id_local: Integer read Getrdx_orders_id_localValue write Setrdx_orders_id_localValue;
|
||
property rdx_orders_id_localIsNull: Boolean read Getrdx_orders_id_localIsNull write Setrdx_orders_id_localIsNull;
|
||
property customers_id: Integer read Getcustomers_idValue write Setcustomers_idValue;
|
||
property customers_idIsNull: Boolean read Getcustomers_idIsNull write Setcustomers_idIsNull;
|
||
property rdx_customers_id_local: Integer read Getrdx_customers_id_localValue write Setrdx_customers_id_localValue;
|
||
property rdx_customers_id_localIsNull: Boolean read Getrdx_customers_id_localIsNull write Setrdx_customers_id_localIsNull;
|
||
property delivery_name: String read Getdelivery_nameValue write Setdelivery_nameValue;
|
||
property delivery_nameIsNull: Boolean read Getdelivery_nameIsNull write Setdelivery_nameIsNull;
|
||
property delivery_company: String read Getdelivery_companyValue write Setdelivery_companyValue;
|
||
property delivery_companyIsNull: Boolean read Getdelivery_companyIsNull write Setdelivery_companyIsNull;
|
||
property delivery_street_address: String read Getdelivery_street_addressValue write Setdelivery_street_addressValue;
|
||
property delivery_street_addressIsNull: Boolean read Getdelivery_street_addressIsNull write Setdelivery_street_addressIsNull;
|
||
property delivery_suburb: String read Getdelivery_suburbValue write Setdelivery_suburbValue;
|
||
property delivery_suburbIsNull: Boolean read Getdelivery_suburbIsNull write Setdelivery_suburbIsNull;
|
||
property delivery_city: String read Getdelivery_cityValue write Setdelivery_cityValue;
|
||
property delivery_cityIsNull: Boolean read Getdelivery_cityIsNull write Setdelivery_cityIsNull;
|
||
property delivery_postcode: String read Getdelivery_postcodeValue write Setdelivery_postcodeValue;
|
||
property delivery_postcodeIsNull: Boolean read Getdelivery_postcodeIsNull write Setdelivery_postcodeIsNull;
|
||
property delivery_state: String read Getdelivery_stateValue write Setdelivery_stateValue;
|
||
property delivery_stateIsNull: Boolean read Getdelivery_stateIsNull write Setdelivery_stateIsNull;
|
||
property delivery_country: String read Getdelivery_countryValue write Setdelivery_countryValue;
|
||
property delivery_countryIsNull: Boolean read Getdelivery_countryIsNull write Setdelivery_countryIsNull;
|
||
property delivery_telephone: String read Getdelivery_telephoneValue write Setdelivery_telephoneValue;
|
||
property delivery_telephoneIsNull: Boolean read Getdelivery_telephoneIsNull write Setdelivery_telephoneIsNull;
|
||
property last_modified: DateTime read Getlast_modifiedValue write Setlast_modifiedValue;
|
||
property last_modifiedIsNull: Boolean read Getlast_modifiedIsNull write Setlast_modifiedIsNull;
|
||
property date_purchased: DateTime read Getdate_purchasedValue write Setdate_purchasedValue;
|
||
property date_purchasedIsNull: Boolean read Getdate_purchasedIsNull write Setdate_purchasedIsNull;
|
||
property orders_status: Integer read Getorders_statusValue write Setorders_statusValue;
|
||
property orders_statusIsNull: Boolean read Getorders_statusIsNull write Setorders_statusIsNull;
|
||
property orders_date_finished: DateTime read Getorders_date_finishedValue write Setorders_date_finishedValue;
|
||
property orders_date_finishedIsNull: Boolean read Getorders_date_finishedIsNull write Setorders_date_finishedIsNull;
|
||
property comments: IROStrings read GetcommentsValue;
|
||
property commentsIsNull: Boolean read GetcommentsIsNull write SetcommentsIsNull;
|
||
property rdx_ship_date: DateTime read Getrdx_ship_dateValue write Setrdx_ship_dateValue;
|
||
property rdx_ship_dateIsNull: Boolean read Getrdx_ship_dateIsNull write Setrdx_ship_dateIsNull;
|
||
property rdx_referencia_cliente: String read Getrdx_referencia_clienteValue write Setrdx_referencia_clienteValue;
|
||
property rdx_referencia_clienteIsNull: Boolean read Getrdx_referencia_clienteIsNull write Setrdx_referencia_clienteIsNull;
|
||
end;
|
||
|
||
{ Tosc_OrdersDataTableRules }
|
||
Tosc_OrdersDataTableRules = class(TIntfObjectDADataTableRules, Iosc_Orders)
|
||
private
|
||
f_comments: IROStrings;
|
||
procedure comments_OnChange(Sender: TObject);
|
||
protected
|
||
{ Property getters and setters }
|
||
function Getorders_idValue: Integer; virtual;
|
||
procedure Setorders_idValue(const aValue: Integer); virtual;
|
||
function Getorders_idIsNull: Boolean; virtual;
|
||
procedure Setorders_idIsNull(const aValue: Boolean); virtual;
|
||
function Getrdx_orders_id_localValue: Integer; virtual;
|
||
procedure Setrdx_orders_id_localValue(const aValue: Integer); virtual;
|
||
function Getrdx_orders_id_localIsNull: Boolean; virtual;
|
||
procedure Setrdx_orders_id_localIsNull(const aValue: Boolean); virtual;
|
||
function Getcustomers_idValue: Integer; virtual;
|
||
procedure Setcustomers_idValue(const aValue: Integer); virtual;
|
||
function Getcustomers_idIsNull: Boolean; virtual;
|
||
procedure Setcustomers_idIsNull(const aValue: Boolean); virtual;
|
||
function Getrdx_customers_id_localValue: Integer; virtual;
|
||
procedure Setrdx_customers_id_localValue(const aValue: Integer); virtual;
|
||
function Getrdx_customers_id_localIsNull: Boolean; virtual;
|
||
procedure Setrdx_customers_id_localIsNull(const aValue: Boolean); virtual;
|
||
function Getdelivery_nameValue: String; virtual;
|
||
procedure Setdelivery_nameValue(const aValue: String); virtual;
|
||
function Getdelivery_nameIsNull: Boolean; virtual;
|
||
procedure Setdelivery_nameIsNull(const aValue: Boolean); virtual;
|
||
function Getdelivery_companyValue: String; virtual;
|
||
procedure Setdelivery_companyValue(const aValue: String); virtual;
|
||
function Getdelivery_companyIsNull: Boolean; virtual;
|
||
procedure Setdelivery_companyIsNull(const aValue: Boolean); virtual;
|
||
function Getdelivery_street_addressValue: String; virtual;
|
||
procedure Setdelivery_street_addressValue(const aValue: String); virtual;
|
||
function Getdelivery_street_addressIsNull: Boolean; virtual;
|
||
procedure Setdelivery_street_addressIsNull(const aValue: Boolean); virtual;
|
||
function Getdelivery_suburbValue: String; virtual;
|
||
procedure Setdelivery_suburbValue(const aValue: String); virtual;
|
||
function Getdelivery_suburbIsNull: Boolean; virtual;
|
||
procedure Setdelivery_suburbIsNull(const aValue: Boolean); virtual;
|
||
function Getdelivery_cityValue: String; virtual;
|
||
procedure Setdelivery_cityValue(const aValue: String); virtual;
|
||
function Getdelivery_cityIsNull: Boolean; virtual;
|
||
procedure Setdelivery_cityIsNull(const aValue: Boolean); virtual;
|
||
function Getdelivery_postcodeValue: String; virtual;
|
||
procedure Setdelivery_postcodeValue(const aValue: String); virtual;
|
||
function Getdelivery_postcodeIsNull: Boolean; virtual;
|
||
procedure Setdelivery_postcodeIsNull(const aValue: Boolean); virtual;
|
||
function Getdelivery_stateValue: String; virtual;
|
||
procedure Setdelivery_stateValue(const aValue: String); virtual;
|
||
function Getdelivery_stateIsNull: Boolean; virtual;
|
||
procedure Setdelivery_stateIsNull(const aValue: Boolean); virtual;
|
||
function Getdelivery_countryValue: String; virtual;
|
||
procedure Setdelivery_countryValue(const aValue: String); virtual;
|
||
function Getdelivery_countryIsNull: Boolean; virtual;
|
||
procedure Setdelivery_countryIsNull(const aValue: Boolean); virtual;
|
||
function Getdelivery_telephoneValue: String; virtual;
|
||
procedure Setdelivery_telephoneValue(const aValue: String); virtual;
|
||
function Getdelivery_telephoneIsNull: Boolean; virtual;
|
||
procedure Setdelivery_telephoneIsNull(const aValue: Boolean); virtual;
|
||
function Getlast_modifiedValue: DateTime; virtual;
|
||
procedure Setlast_modifiedValue(const aValue: DateTime); virtual;
|
||
function Getlast_modifiedIsNull: Boolean; virtual;
|
||
procedure Setlast_modifiedIsNull(const aValue: Boolean); virtual;
|
||
function Getdate_purchasedValue: DateTime; virtual;
|
||
procedure Setdate_purchasedValue(const aValue: DateTime); virtual;
|
||
function Getdate_purchasedIsNull: Boolean; virtual;
|
||
procedure Setdate_purchasedIsNull(const aValue: Boolean); virtual;
|
||
function Getorders_statusValue: Integer; virtual;
|
||
procedure Setorders_statusValue(const aValue: Integer); virtual;
|
||
function Getorders_statusIsNull: Boolean; virtual;
|
||
procedure Setorders_statusIsNull(const aValue: Boolean); virtual;
|
||
function Getorders_date_finishedValue: DateTime; virtual;
|
||
procedure Setorders_date_finishedValue(const aValue: DateTime); virtual;
|
||
function Getorders_date_finishedIsNull: Boolean; virtual;
|
||
procedure Setorders_date_finishedIsNull(const aValue: Boolean); virtual;
|
||
function GetcommentsValue: IROStrings; virtual;
|
||
function GetcommentsIsNull: Boolean; virtual;
|
||
procedure SetcommentsIsNull(const aValue: Boolean); virtual;
|
||
function Getrdx_ship_dateValue: DateTime; virtual;
|
||
procedure Setrdx_ship_dateValue(const aValue: DateTime); virtual;
|
||
function Getrdx_ship_dateIsNull: Boolean; virtual;
|
||
procedure Setrdx_ship_dateIsNull(const aValue: Boolean); virtual;
|
||
function Getrdx_referencia_clienteValue: String; virtual;
|
||
procedure Setrdx_referencia_clienteValue(const aValue: String); virtual;
|
||
function Getrdx_referencia_clienteIsNull: Boolean; virtual;
|
||
procedure Setrdx_referencia_clienteIsNull(const aValue: Boolean); virtual;
|
||
|
||
{ Properties }
|
||
property orders_id: Integer read Getorders_idValue write Setorders_idValue;
|
||
property orders_idIsNull: Boolean read Getorders_idIsNull write Setorders_idIsNull;
|
||
property rdx_orders_id_local: Integer read Getrdx_orders_id_localValue write Setrdx_orders_id_localValue;
|
||
property rdx_orders_id_localIsNull: Boolean read Getrdx_orders_id_localIsNull write Setrdx_orders_id_localIsNull;
|
||
property customers_id: Integer read Getcustomers_idValue write Setcustomers_idValue;
|
||
property customers_idIsNull: Boolean read Getcustomers_idIsNull write Setcustomers_idIsNull;
|
||
property rdx_customers_id_local: Integer read Getrdx_customers_id_localValue write Setrdx_customers_id_localValue;
|
||
property rdx_customers_id_localIsNull: Boolean read Getrdx_customers_id_localIsNull write Setrdx_customers_id_localIsNull;
|
||
property delivery_name: String read Getdelivery_nameValue write Setdelivery_nameValue;
|
||
property delivery_nameIsNull: Boolean read Getdelivery_nameIsNull write Setdelivery_nameIsNull;
|
||
property delivery_company: String read Getdelivery_companyValue write Setdelivery_companyValue;
|
||
property delivery_companyIsNull: Boolean read Getdelivery_companyIsNull write Setdelivery_companyIsNull;
|
||
property delivery_street_address: String read Getdelivery_street_addressValue write Setdelivery_street_addressValue;
|
||
property delivery_street_addressIsNull: Boolean read Getdelivery_street_addressIsNull write Setdelivery_street_addressIsNull;
|
||
property delivery_suburb: String read Getdelivery_suburbValue write Setdelivery_suburbValue;
|
||
property delivery_suburbIsNull: Boolean read Getdelivery_suburbIsNull write Setdelivery_suburbIsNull;
|
||
property delivery_city: String read Getdelivery_cityValue write Setdelivery_cityValue;
|
||
property delivery_cityIsNull: Boolean read Getdelivery_cityIsNull write Setdelivery_cityIsNull;
|
||
property delivery_postcode: String read Getdelivery_postcodeValue write Setdelivery_postcodeValue;
|
||
property delivery_postcodeIsNull: Boolean read Getdelivery_postcodeIsNull write Setdelivery_postcodeIsNull;
|
||
property delivery_state: String read Getdelivery_stateValue write Setdelivery_stateValue;
|
||
property delivery_stateIsNull: Boolean read Getdelivery_stateIsNull write Setdelivery_stateIsNull;
|
||
property delivery_country: String read Getdelivery_countryValue write Setdelivery_countryValue;
|
||
property delivery_countryIsNull: Boolean read Getdelivery_countryIsNull write Setdelivery_countryIsNull;
|
||
property delivery_telephone: String read Getdelivery_telephoneValue write Setdelivery_telephoneValue;
|
||
property delivery_telephoneIsNull: Boolean read Getdelivery_telephoneIsNull write Setdelivery_telephoneIsNull;
|
||
property last_modified: DateTime read Getlast_modifiedValue write Setlast_modifiedValue;
|
||
property last_modifiedIsNull: Boolean read Getlast_modifiedIsNull write Setlast_modifiedIsNull;
|
||
property date_purchased: DateTime read Getdate_purchasedValue write Setdate_purchasedValue;
|
||
property date_purchasedIsNull: Boolean read Getdate_purchasedIsNull write Setdate_purchasedIsNull;
|
||
property orders_status: Integer read Getorders_statusValue write Setorders_statusValue;
|
||
property orders_statusIsNull: Boolean read Getorders_statusIsNull write Setorders_statusIsNull;
|
||
property orders_date_finished: DateTime read Getorders_date_finishedValue write Setorders_date_finishedValue;
|
||
property orders_date_finishedIsNull: Boolean read Getorders_date_finishedIsNull write Setorders_date_finishedIsNull;
|
||
property comments: IROStrings read GetcommentsValue;
|
||
property commentsIsNull: Boolean read GetcommentsIsNull write SetcommentsIsNull;
|
||
property rdx_ship_date: DateTime read Getrdx_ship_dateValue write Setrdx_ship_dateValue;
|
||
property rdx_ship_dateIsNull: Boolean read Getrdx_ship_dateIsNull write Setrdx_ship_dateIsNull;
|
||
property rdx_referencia_cliente: String read Getrdx_referencia_clienteValue write Setrdx_referencia_clienteValue;
|
||
property rdx_referencia_clienteIsNull: Boolean read Getrdx_referencia_clienteIsNull write Setrdx_referencia_clienteIsNull;
|
||
|
||
public
|
||
constructor Create(aDataTable: TDADataTable); override;
|
||
destructor Destroy; override;
|
||
|
||
end;
|
||
|
||
{ Iosc_Orders_products }
|
||
Iosc_Orders_products = interface(IDAStronglyTypedDataTable)
|
||
['{CC27855E-2D28-4432-BA5F-D3C10BA8464D}']
|
||
{ Property getters and setters }
|
||
function Getorders_products_idValue: Integer;
|
||
procedure Setorders_products_idValue(const aValue: Integer);
|
||
function Getorders_products_idIsNull: Boolean;
|
||
procedure Setorders_products_idIsNull(const aValue: Boolean);
|
||
function Getorders_idValue: Integer;
|
||
procedure Setorders_idValue(const aValue: Integer);
|
||
function Getorders_idIsNull: Boolean;
|
||
procedure Setorders_idIsNull(const aValue: Boolean);
|
||
function Getproducts_idValue: Integer;
|
||
procedure Setproducts_idValue(const aValue: Integer);
|
||
function Getproducts_idIsNull: Boolean;
|
||
procedure Setproducts_idIsNull(const aValue: Boolean);
|
||
function Getrdx_products_id_localValue: Integer;
|
||
procedure Setrdx_products_id_localValue(const aValue: Integer);
|
||
function Getrdx_products_id_localIsNull: Boolean;
|
||
procedure Setrdx_products_id_localIsNull(const aValue: Boolean);
|
||
function Getproducts_modelValue: String;
|
||
procedure Setproducts_modelValue(const aValue: String);
|
||
function Getproducts_modelIsNull: Boolean;
|
||
procedure Setproducts_modelIsNull(const aValue: Boolean);
|
||
function Getproducts_nameValue: String;
|
||
procedure Setproducts_nameValue(const aValue: String);
|
||
function Getproducts_nameIsNull: Boolean;
|
||
procedure Setproducts_nameIsNull(const aValue: Boolean);
|
||
function Getproducts_priceValue: Float;
|
||
procedure Setproducts_priceValue(const aValue: Float);
|
||
function Getproducts_priceIsNull: Boolean;
|
||
procedure Setproducts_priceIsNull(const aValue: Boolean);
|
||
function Getfinal_priceValue: Float;
|
||
procedure Setfinal_priceValue(const aValue: Float);
|
||
function Getfinal_priceIsNull: Boolean;
|
||
procedure Setfinal_priceIsNull(const aValue: Boolean);
|
||
function Getproducts_taxValue: Float;
|
||
procedure Setproducts_taxValue(const aValue: Float);
|
||
function Getproducts_taxIsNull: Boolean;
|
||
procedure Setproducts_taxIsNull(const aValue: Boolean);
|
||
function Getproducts_quantityValue: Integer;
|
||
procedure Setproducts_quantityValue(const aValue: Integer);
|
||
function Getproducts_quantityIsNull: Boolean;
|
||
procedure Setproducts_quantityIsNull(const aValue: Boolean);
|
||
|
||
|
||
{ Properties }
|
||
property orders_products_id: Integer read Getorders_products_idValue write Setorders_products_idValue;
|
||
property orders_products_idIsNull: Boolean read Getorders_products_idIsNull write Setorders_products_idIsNull;
|
||
property orders_id: Integer read Getorders_idValue write Setorders_idValue;
|
||
property orders_idIsNull: Boolean read Getorders_idIsNull write Setorders_idIsNull;
|
||
property products_id: Integer read Getproducts_idValue write Setproducts_idValue;
|
||
property products_idIsNull: Boolean read Getproducts_idIsNull write Setproducts_idIsNull;
|
||
property rdx_products_id_local: Integer read Getrdx_products_id_localValue write Setrdx_products_id_localValue;
|
||
property rdx_products_id_localIsNull: Boolean read Getrdx_products_id_localIsNull write Setrdx_products_id_localIsNull;
|
||
property products_model: String read Getproducts_modelValue write Setproducts_modelValue;
|
||
property products_modelIsNull: Boolean read Getproducts_modelIsNull write Setproducts_modelIsNull;
|
||
property products_name: String read Getproducts_nameValue write Setproducts_nameValue;
|
||
property products_nameIsNull: Boolean read Getproducts_nameIsNull write Setproducts_nameIsNull;
|
||
property products_price: Float read Getproducts_priceValue write Setproducts_priceValue;
|
||
property products_priceIsNull: Boolean read Getproducts_priceIsNull write Setproducts_priceIsNull;
|
||
property final_price: Float read Getfinal_priceValue write Setfinal_priceValue;
|
||
property final_priceIsNull: Boolean read Getfinal_priceIsNull write Setfinal_priceIsNull;
|
||
property products_tax: Float read Getproducts_taxValue write Setproducts_taxValue;
|
||
property products_taxIsNull: Boolean read Getproducts_taxIsNull write Setproducts_taxIsNull;
|
||
property products_quantity: Integer read Getproducts_quantityValue write Setproducts_quantityValue;
|
||
property products_quantityIsNull: Boolean read Getproducts_quantityIsNull write Setproducts_quantityIsNull;
|
||
end;
|
||
|
||
{ Tosc_Orders_productsDataTableRules }
|
||
Tosc_Orders_productsDataTableRules = class(TIntfObjectDADataTableRules, Iosc_Orders_products)
|
||
private
|
||
protected
|
||
{ Property getters and setters }
|
||
function Getorders_products_idValue: Integer; virtual;
|
||
procedure Setorders_products_idValue(const aValue: Integer); virtual;
|
||
function Getorders_products_idIsNull: Boolean; virtual;
|
||
procedure Setorders_products_idIsNull(const aValue: Boolean); virtual;
|
||
function Getorders_idValue: Integer; virtual;
|
||
procedure Setorders_idValue(const aValue: Integer); virtual;
|
||
function Getorders_idIsNull: Boolean; virtual;
|
||
procedure Setorders_idIsNull(const aValue: Boolean); virtual;
|
||
function Getproducts_idValue: Integer; virtual;
|
||
procedure Setproducts_idValue(const aValue: Integer); virtual;
|
||
function Getproducts_idIsNull: Boolean; virtual;
|
||
procedure Setproducts_idIsNull(const aValue: Boolean); virtual;
|
||
function Getrdx_products_id_localValue: Integer; virtual;
|
||
procedure Setrdx_products_id_localValue(const aValue: Integer); virtual;
|
||
function Getrdx_products_id_localIsNull: Boolean; virtual;
|
||
procedure Setrdx_products_id_localIsNull(const aValue: Boolean); virtual;
|
||
function Getproducts_modelValue: String; virtual;
|
||
procedure Setproducts_modelValue(const aValue: String); virtual;
|
||
function Getproducts_modelIsNull: Boolean; virtual;
|
||
procedure Setproducts_modelIsNull(const aValue: Boolean); virtual;
|
||
function Getproducts_nameValue: String; virtual;
|
||
procedure Setproducts_nameValue(const aValue: String); virtual;
|
||
function Getproducts_nameIsNull: Boolean; virtual;
|
||
procedure Setproducts_nameIsNull(const aValue: Boolean); virtual;
|
||
function Getproducts_priceValue: Float; virtual;
|
||
procedure Setproducts_priceValue(const aValue: Float); virtual;
|
||
function Getproducts_priceIsNull: Boolean; virtual;
|
||
procedure Setproducts_priceIsNull(const aValue: Boolean); virtual;
|
||
function Getfinal_priceValue: Float; virtual;
|
||
procedure Setfinal_priceValue(const aValue: Float); virtual;
|
||
function Getfinal_priceIsNull: Boolean; virtual;
|
||
procedure Setfinal_priceIsNull(const aValue: Boolean); virtual;
|
||
function Getproducts_taxValue: Float; virtual;
|
||
procedure Setproducts_taxValue(const aValue: Float); virtual;
|
||
function Getproducts_taxIsNull: Boolean; virtual;
|
||
procedure Setproducts_taxIsNull(const aValue: Boolean); virtual;
|
||
function Getproducts_quantityValue: Integer; virtual;
|
||
procedure Setproducts_quantityValue(const aValue: Integer); virtual;
|
||
function Getproducts_quantityIsNull: Boolean; virtual;
|
||
procedure Setproducts_quantityIsNull(const aValue: Boolean); virtual;
|
||
|
||
{ Properties }
|
||
property orders_products_id: Integer read Getorders_products_idValue write Setorders_products_idValue;
|
||
property orders_products_idIsNull: Boolean read Getorders_products_idIsNull write Setorders_products_idIsNull;
|
||
property orders_id: Integer read Getorders_idValue write Setorders_idValue;
|
||
property orders_idIsNull: Boolean read Getorders_idIsNull write Setorders_idIsNull;
|
||
property products_id: Integer read Getproducts_idValue write Setproducts_idValue;
|
||
property products_idIsNull: Boolean read Getproducts_idIsNull write Setproducts_idIsNull;
|
||
property rdx_products_id_local: Integer read Getrdx_products_id_localValue write Setrdx_products_id_localValue;
|
||
property rdx_products_id_localIsNull: Boolean read Getrdx_products_id_localIsNull write Setrdx_products_id_localIsNull;
|
||
property products_model: String read Getproducts_modelValue write Setproducts_modelValue;
|
||
property products_modelIsNull: Boolean read Getproducts_modelIsNull write Setproducts_modelIsNull;
|
||
property products_name: String read Getproducts_nameValue write Setproducts_nameValue;
|
||
property products_nameIsNull: Boolean read Getproducts_nameIsNull write Setproducts_nameIsNull;
|
||
property products_price: Float read Getproducts_priceValue write Setproducts_priceValue;
|
||
property products_priceIsNull: Boolean read Getproducts_priceIsNull write Setproducts_priceIsNull;
|
||
property final_price: Float read Getfinal_priceValue write Setfinal_priceValue;
|
||
property final_priceIsNull: Boolean read Getfinal_priceIsNull write Setfinal_priceIsNull;
|
||
property products_tax: Float read Getproducts_taxValue write Setproducts_taxValue;
|
||
property products_taxIsNull: Boolean read Getproducts_taxIsNull write Setproducts_taxIsNull;
|
||
property products_quantity: Integer read Getproducts_quantityValue write Setproducts_quantityValue;
|
||
property products_quantityIsNull: Boolean read Getproducts_quantityIsNull write Setproducts_quantityIsNull;
|
||
|
||
public
|
||
constructor Create(aDataTable: TDADataTable); override;
|
||
destructor Destroy; override;
|
||
|
||
end;
|
||
|
||
{ Iosc_Orders_status_history }
|
||
Iosc_Orders_status_history = interface(IDAStronglyTypedDataTable)
|
||
['{0EB347F2-296B-4A89-9611-FCE05DD7516F}']
|
||
{ Property getters and setters }
|
||
function Getorders_status_history_idValue: Integer;
|
||
procedure Setorders_status_history_idValue(const aValue: Integer);
|
||
function Getorders_status_history_idIsNull: Boolean;
|
||
procedure Setorders_status_history_idIsNull(const aValue: Boolean);
|
||
function Getorders_idValue: Integer;
|
||
procedure Setorders_idValue(const aValue: Integer);
|
||
function Getorders_idIsNull: Boolean;
|
||
procedure Setorders_idIsNull(const aValue: Boolean);
|
||
function Getrdx_orders_id_localValue: Integer;
|
||
procedure Setrdx_orders_id_localValue(const aValue: Integer);
|
||
function Getrdx_orders_id_localIsNull: Boolean;
|
||
procedure Setrdx_orders_id_localIsNull(const aValue: Boolean);
|
||
function Getorders_status_idValue: Integer;
|
||
procedure Setorders_status_idValue(const aValue: Integer);
|
||
function Getorders_status_idIsNull: Boolean;
|
||
procedure Setorders_status_idIsNull(const aValue: Boolean);
|
||
function Getdate_addedValue: DateTime;
|
||
procedure Setdate_addedValue(const aValue: DateTime);
|
||
function Getdate_addedIsNull: Boolean;
|
||
procedure Setdate_addedIsNull(const aValue: Boolean);
|
||
function Getcustomer_notifiedValue: Integer;
|
||
procedure Setcustomer_notifiedValue(const aValue: Integer);
|
||
function Getcustomer_notifiedIsNull: Boolean;
|
||
procedure Setcustomer_notifiedIsNull(const aValue: Boolean);
|
||
function GetcommentsValue: IROStrings;
|
||
function GetcommentsIsNull: Boolean;
|
||
procedure SetcommentsIsNull(const aValue: Boolean);
|
||
|
||
|
||
{ Properties }
|
||
property orders_status_history_id: Integer read Getorders_status_history_idValue write Setorders_status_history_idValue;
|
||
property orders_status_history_idIsNull: Boolean read Getorders_status_history_idIsNull write Setorders_status_history_idIsNull;
|
||
property orders_id: Integer read Getorders_idValue write Setorders_idValue;
|
||
property orders_idIsNull: Boolean read Getorders_idIsNull write Setorders_idIsNull;
|
||
property rdx_orders_id_local: Integer read Getrdx_orders_id_localValue write Setrdx_orders_id_localValue;
|
||
property rdx_orders_id_localIsNull: Boolean read Getrdx_orders_id_localIsNull write Setrdx_orders_id_localIsNull;
|
||
property orders_status_id: Integer read Getorders_status_idValue write Setorders_status_idValue;
|
||
property orders_status_idIsNull: Boolean read Getorders_status_idIsNull write Setorders_status_idIsNull;
|
||
property date_added: DateTime read Getdate_addedValue write Setdate_addedValue;
|
||
property date_addedIsNull: Boolean read Getdate_addedIsNull write Setdate_addedIsNull;
|
||
property customer_notified: Integer read Getcustomer_notifiedValue write Setcustomer_notifiedValue;
|
||
property customer_notifiedIsNull: Boolean read Getcustomer_notifiedIsNull write Setcustomer_notifiedIsNull;
|
||
property comments: IROStrings read GetcommentsValue;
|
||
property commentsIsNull: Boolean read GetcommentsIsNull write SetcommentsIsNull;
|
||
end;
|
||
|
||
{ Tosc_Orders_status_historyDataTableRules }
|
||
Tosc_Orders_status_historyDataTableRules = class(TIntfObjectDADataTableRules, Iosc_Orders_status_history)
|
||
private
|
||
f_comments: IROStrings;
|
||
procedure comments_OnChange(Sender: TObject);
|
||
protected
|
||
{ Property getters and setters }
|
||
function Getorders_status_history_idValue: Integer; virtual;
|
||
procedure Setorders_status_history_idValue(const aValue: Integer); virtual;
|
||
function Getorders_status_history_idIsNull: Boolean; virtual;
|
||
procedure Setorders_status_history_idIsNull(const aValue: Boolean); virtual;
|
||
function Getorders_idValue: Integer; virtual;
|
||
procedure Setorders_idValue(const aValue: Integer); virtual;
|
||
function Getorders_idIsNull: Boolean; virtual;
|
||
procedure Setorders_idIsNull(const aValue: Boolean); virtual;
|
||
function Getrdx_orders_id_localValue: Integer; virtual;
|
||
procedure Setrdx_orders_id_localValue(const aValue: Integer); virtual;
|
||
function Getrdx_orders_id_localIsNull: Boolean; virtual;
|
||
procedure Setrdx_orders_id_localIsNull(const aValue: Boolean); virtual;
|
||
function Getorders_status_idValue: Integer; virtual;
|
||
procedure Setorders_status_idValue(const aValue: Integer); virtual;
|
||
function Getorders_status_idIsNull: Boolean; virtual;
|
||
procedure Setorders_status_idIsNull(const aValue: Boolean); virtual;
|
||
function Getdate_addedValue: DateTime; virtual;
|
||
procedure Setdate_addedValue(const aValue: DateTime); virtual;
|
||
function Getdate_addedIsNull: Boolean; virtual;
|
||
procedure Setdate_addedIsNull(const aValue: Boolean); virtual;
|
||
function Getcustomer_notifiedValue: Integer; virtual;
|
||
procedure Setcustomer_notifiedValue(const aValue: Integer); virtual;
|
||
function Getcustomer_notifiedIsNull: Boolean; virtual;
|
||
procedure Setcustomer_notifiedIsNull(const aValue: Boolean); virtual;
|
||
function GetcommentsValue: IROStrings; virtual;
|
||
function GetcommentsIsNull: Boolean; virtual;
|
||
procedure SetcommentsIsNull(const aValue: Boolean); virtual;
|
||
|
||
{ Properties }
|
||
property orders_status_history_id: Integer read Getorders_status_history_idValue write Setorders_status_history_idValue;
|
||
property orders_status_history_idIsNull: Boolean read Getorders_status_history_idIsNull write Setorders_status_history_idIsNull;
|
||
property orders_id: Integer read Getorders_idValue write Setorders_idValue;
|
||
property orders_idIsNull: Boolean read Getorders_idIsNull write Setorders_idIsNull;
|
||
property rdx_orders_id_local: Integer read Getrdx_orders_id_localValue write Setrdx_orders_id_localValue;
|
||
property rdx_orders_id_localIsNull: Boolean read Getrdx_orders_id_localIsNull write Setrdx_orders_id_localIsNull;
|
||
property orders_status_id: Integer read Getorders_status_idValue write Setorders_status_idValue;
|
||
property orders_status_idIsNull: Boolean read Getorders_status_idIsNull write Setorders_status_idIsNull;
|
||
property date_added: DateTime read Getdate_addedValue write Setdate_addedValue;
|
||
property date_addedIsNull: Boolean read Getdate_addedIsNull write Setdate_addedIsNull;
|
||
property customer_notified: Integer read Getcustomer_notifiedValue write Setcustomer_notifiedValue;
|
||
property customer_notifiedIsNull: Boolean read Getcustomer_notifiedIsNull write Setcustomer_notifiedIsNull;
|
||
property comments: IROStrings read GetcommentsValue;
|
||
property commentsIsNull: Boolean read GetcommentsIsNull write SetcommentsIsNull;
|
||
|
||
public
|
||
constructor Create(aDataTable: TDADataTable); override;
|
||
destructor Destroy; override;
|
||
|
||
end;
|
||
|
||
implementation
|
||
|
||
uses Variants, uROBinaryHelpers;
|
||
|
||
{ 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_idIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Customerscustomers_id].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_CustomersDataTableRules.Setcustomers_idIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Customerscustomers_id].AsVariant := Null;
|
||
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_firstnameIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Customerscustomers_firstname].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_CustomersDataTableRules.Setcustomers_firstnameIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Customerscustomers_firstname].AsVariant := Null;
|
||
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_lastnameIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Customerscustomers_lastname].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_CustomersDataTableRules.Setcustomers_lastnameIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Customerscustomers_lastname].AsVariant := Null;
|
||
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_email_addressIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Customerscustomers_email_address].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_CustomersDataTableRules.Setcustomers_email_addressIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Customerscustomers_email_address].AsVariant := Null;
|
||
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_default_address_idIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Customerscustomers_default_address_id].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_CustomersDataTableRules.Setcustomers_default_address_idIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Customerscustomers_default_address_id].AsVariant := Null;
|
||
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_telephoneIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Customerscustomers_telephone].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_CustomersDataTableRules.Setcustomers_telephoneIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Customerscustomers_telephone].AsVariant := Null;
|
||
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_faxIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Customerscustomers_fax].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_CustomersDataTableRules.Setcustomers_faxIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Customerscustomers_fax].AsVariant := Null;
|
||
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.Getcustomers_passwordIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Customerscustomers_password].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_CustomersDataTableRules.Setcustomers_passwordIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Customerscustomers_password].AsVariant := Null;
|
||
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.Getrdx_customers_id_localIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Customersrdx_customers_id_local].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_CustomersDataTableRules.Setrdx_customers_id_localIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Customersrdx_customers_id_local].AsVariant := Null;
|
||
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_createdIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Customersdate_account_created].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_CustomersDataTableRules.Setdate_account_createdIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Customersdate_account_created].AsVariant := Null;
|
||
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;
|
||
|
||
function Tosc_CustomersDataTableRules.Getdate_account_last_modifiedIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Customersdate_account_last_modified].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_CustomersDataTableRules.Setdate_account_last_modifiedIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Customersdate_account_last_modified].AsVariant := Null;
|
||
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;
|
||
|
||
function TGetLastIDDataTableRules.Getlast_idIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_GetLastIDlast_id].IsNull;
|
||
end;
|
||
|
||
procedure TGetLastIDDataTableRules.Setlast_idIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_GetLastIDlast_id].AsVariant := Null;
|
||
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.Getaddress_book_idIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_AddressBookaddress_book_id].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_AddressBookDataTableRules.Setaddress_book_idIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_AddressBookaddress_book_id].AsVariant := Null;
|
||
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.Getcustomers_idIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_AddressBookcustomers_id].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_AddressBookDataTableRules.Setcustomers_idIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_AddressBookcustomers_id].AsVariant := Null;
|
||
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_genderIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_AddressBookentry_gender].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_AddressBookDataTableRules.Setentry_genderIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_AddressBookentry_gender].AsVariant := Null;
|
||
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_companyIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_AddressBookentry_company].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_AddressBookDataTableRules.Setentry_companyIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_AddressBookentry_company].AsVariant := Null;
|
||
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_firstnameIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_AddressBookentry_firstname].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_AddressBookDataTableRules.Setentry_firstnameIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_AddressBookentry_firstname].AsVariant := Null;
|
||
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_lastnameIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_AddressBookentry_lastname].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_AddressBookDataTableRules.Setentry_lastnameIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_AddressBookentry_lastname].AsVariant := Null;
|
||
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_street_addressIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_AddressBookentry_street_address].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_AddressBookDataTableRules.Setentry_street_addressIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_AddressBookentry_street_address].AsVariant := Null;
|
||
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_suburbIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_AddressBookentry_suburb].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_AddressBookDataTableRules.Setentry_suburbIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_AddressBookentry_suburb].AsVariant := Null;
|
||
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_postcodeIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_AddressBookentry_postcode].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_AddressBookDataTableRules.Setentry_postcodeIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_AddressBookentry_postcode].AsVariant := Null;
|
||
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_cityIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_AddressBookentry_city].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_AddressBookDataTableRules.Setentry_cityIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_AddressBookentry_city].AsVariant := Null;
|
||
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_stateIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_AddressBookentry_state].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_AddressBookDataTableRules.Setentry_stateIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_AddressBookentry_state].AsVariant := Null;
|
||
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_country_idIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_AddressBookentry_country_id].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_AddressBookDataTableRules.Setentry_country_idIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_AddressBookentry_country_id].AsVariant := Null;
|
||
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.Getentry_zone_idIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_AddressBookentry_zone_id].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_AddressBookDataTableRules.Setentry_zone_idIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_AddressBookentry_zone_id].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_AddressBookDataTableRules.Getentry_telephoneValue: String;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_AddressBookentry_telephone].AsString;
|
||
end;
|
||
|
||
procedure Tosc_AddressBookDataTableRules.Setentry_telephoneValue(const aValue: String);
|
||
begin
|
||
DataTable.Fields[idx_osc_AddressBookentry_telephone].AsString := aValue;
|
||
end;
|
||
|
||
function Tosc_AddressBookDataTableRules.Getentry_telephoneIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_AddressBookentry_telephone].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_AddressBookDataTableRules.Setentry_telephoneIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_AddressBookentry_telephone].AsVariant := Null;
|
||
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;
|
||
|
||
function Tosc_AddressBookDataTableRules.Getrdx_address_book_id_localIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_AddressBookrdx_address_book_id_local].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_AddressBookDataTableRules.Setrdx_address_book_id_localIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_AddressBookrdx_address_book_id_local].AsVariant := Null;
|
||
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.GetIDIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_TiendaWebID].IsNull;
|
||
end;
|
||
|
||
procedure TTiendaWebDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_TiendaWebID].AsVariant := Null;
|
||
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.GetID_EMPRESAIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_TiendaWebID_EMPRESA].IsNull;
|
||
end;
|
||
|
||
procedure TTiendaWebDataTableRules.SetID_EMPRESAIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_TiendaWebID_EMPRESA].AsVariant := Null;
|
||
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.GetTIENDA_ACTIVAIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_TiendaWebTIENDA_ACTIVA].IsNull;
|
||
end;
|
||
|
||
procedure TTiendaWebDataTableRules.SetTIENDA_ACTIVAIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_TiendaWebTIENDA_ACTIVA].AsVariant := Null;
|
||
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.GetBDSERVERIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_TiendaWebBDSERVER].IsNull;
|
||
end;
|
||
|
||
procedure TTiendaWebDataTableRules.SetBDSERVERIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_TiendaWebBDSERVER].AsVariant := Null;
|
||
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.GetBDPORTIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_TiendaWebBDPORT].IsNull;
|
||
end;
|
||
|
||
procedure TTiendaWebDataTableRules.SetBDPORTIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_TiendaWebBDPORT].AsVariant := Null;
|
||
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.GetBDNAMEIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_TiendaWebBDNAME].IsNull;
|
||
end;
|
||
|
||
procedure TTiendaWebDataTableRules.SetBDNAMEIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_TiendaWebBDNAME].AsVariant := Null;
|
||
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.GetBDUSERIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_TiendaWebBDUSER].IsNull;
|
||
end;
|
||
|
||
procedure TTiendaWebDataTableRules.SetBDUSERIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_TiendaWebBDUSER].AsVariant := Null;
|
||
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.GetBDPASSIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_TiendaWebBDPASS].IsNull;
|
||
end;
|
||
|
||
procedure TTiendaWebDataTableRules.SetBDPASSIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_TiendaWebBDPASS].AsVariant := Null;
|
||
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;
|
||
|
||
function TTiendaWebDataTableRules.GetULTIMA_ACTUALIZACIONIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_TiendaWebULTIMA_ACTUALIZACION].IsNull;
|
||
end;
|
||
|
||
procedure TTiendaWebDataTableRules.SetULTIMA_ACTUALIZACIONIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_TiendaWebULTIMA_ACTUALIZACION].AsVariant := Null;
|
||
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_idIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Manufacturersmanufacturers_id].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_ManufacturersDataTableRules.Setmanufacturers_idIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Manufacturersmanufacturers_id].AsVariant := Null;
|
||
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_nameIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Manufacturersmanufacturers_name].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_ManufacturersDataTableRules.Setmanufacturers_nameIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Manufacturersmanufacturers_name].AsVariant := Null;
|
||
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.Getmanufacturers_imageIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Manufacturersmanufacturers_image].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_ManufacturersDataTableRules.Setmanufacturers_imageIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Manufacturersmanufacturers_image].AsVariant := Null;
|
||
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.Getdate_addedIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Manufacturersdate_added].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_ManufacturersDataTableRules.Setdate_addedIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Manufacturersdate_added].AsVariant := Null;
|
||
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.Getlast_modifiedIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Manufacturerslast_modified].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_ManufacturersDataTableRules.Setlast_modifiedIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Manufacturerslast_modified].AsVariant := Null;
|
||
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;
|
||
|
||
function Tosc_ManufacturersDataTableRules.Getrdx_manufacturers_id_localIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Manufacturersrdx_manufacturers_id_local].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_ManufacturersDataTableRules.Setrdx_manufacturers_id_localIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Manufacturersrdx_manufacturers_id_local].AsVariant := Null;
|
||
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.Getlanguages_idIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Languageslanguages_id].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_LanguagesDataTableRules.Setlanguages_idIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Languageslanguages_id].AsVariant := Null;
|
||
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.GetnameIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Languagesname].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_LanguagesDataTableRules.SetnameIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Languagesname].AsVariant := Null;
|
||
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.GetcodeIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Languagescode].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_LanguagesDataTableRules.SetcodeIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Languagescode].AsVariant := Null;
|
||
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.GetimageIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Languagesimage].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_LanguagesDataTableRules.SetimageIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Languagesimage].AsVariant := Null;
|
||
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.GetdirectoryIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Languagesdirectory].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_LanguagesDataTableRules.SetdirectoryIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Languagesdirectory].AsVariant := Null;
|
||
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;
|
||
|
||
function Tosc_LanguagesDataTableRules.Getsort_orderIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Languagessort_order].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_LanguagesDataTableRules.Setsort_orderIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Languagessort_order].AsVariant := Null;
|
||
end;
|
||
|
||
|
||
{ Tosc_ProductsDataTableRules }
|
||
constructor Tosc_ProductsDataTableRules.Create(aDataTable: TDADataTable);
|
||
var
|
||
StrList: TStringList;
|
||
begin
|
||
inherited;
|
||
|
||
StrList := TStringList.Create;
|
||
StrList.OnChange := products_description_OnChange;
|
||
f_products_description := NewROStrings(StrList,True);
|
||
end;
|
||
|
||
destructor Tosc_ProductsDataTableRules.Destroy;
|
||
begin
|
||
inherited;
|
||
end;
|
||
|
||
procedure Tosc_ProductsDataTableRules.products_description_OnChange(Sender: TObject);
|
||
begin
|
||
if DataTable.Editing then DataTable.Fields[idx_osc_Productsproducts_description].AsVariant := TStringList(Sender).Text;
|
||
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_idIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Productsproducts_id].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_ProductsDataTableRules.Setproducts_idIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Productsproducts_id].AsVariant := Null;
|
||
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_nameIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Productsproducts_name].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_ProductsDataTableRules.Setproducts_nameIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Productsproducts_name].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_ProductsDataTableRules.Getproducts_descriptionValue: IROStrings;
|
||
begin
|
||
result := f_products_description;
|
||
result.Text := DataTable.Fields[idx_osc_Productsproducts_description].AsString;
|
||
end;
|
||
|
||
function Tosc_ProductsDataTableRules.Getproducts_descriptionIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Productsproducts_description].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_ProductsDataTableRules.Setproducts_descriptionIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Productsproducts_description].AsVariant := Null;
|
||
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_modelIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Productsproducts_model].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_ProductsDataTableRules.Setproducts_modelIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Productsproducts_model].AsVariant := Null;
|
||
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_date_addedIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Productsproducts_date_added].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_ProductsDataTableRules.Setproducts_date_addedIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Productsproducts_date_added].AsVariant := Null;
|
||
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_last_modifiedIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Productsproducts_last_modified].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_ProductsDataTableRules.Setproducts_last_modifiedIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Productsproducts_last_modified].AsVariant := Null;
|
||
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.Getproducts_statusIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Productsproducts_status].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_ProductsDataTableRules.Setproducts_statusIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Productsproducts_status].AsVariant := Null;
|
||
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.Getmanufacturers_idIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Productsmanufacturers_id].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_ProductsDataTableRules.Setmanufacturers_idIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Productsmanufacturers_id].AsVariant := Null;
|
||
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;
|
||
|
||
function Tosc_ProductsDataTableRules.Getrdx_products_id_localIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Productsrdx_products_id_local].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_ProductsDataTableRules.Setrdx_products_id_localIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Productsrdx_products_id_local].AsVariant := Null;
|
||
end;
|
||
|
||
|
||
{ Tosc_OrdersDataTableRules }
|
||
constructor Tosc_OrdersDataTableRules.Create(aDataTable: TDADataTable);
|
||
var
|
||
StrList: TStringList;
|
||
begin
|
||
inherited;
|
||
|
||
StrList := TStringList.Create;
|
||
StrList.OnChange := comments_OnChange;
|
||
f_comments := NewROStrings(StrList,True);
|
||
end;
|
||
|
||
destructor Tosc_OrdersDataTableRules.Destroy;
|
||
begin
|
||
inherited;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.comments_OnChange(Sender: TObject);
|
||
begin
|
||
if DataTable.Editing then DataTable.Fields[idx_osc_Orderscomments].AsVariant := TStringList(Sender).Text;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getorders_idValue: Integer;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersorders_id].AsInteger;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setorders_idValue(const aValue: Integer);
|
||
begin
|
||
DataTable.Fields[idx_osc_Ordersorders_id].AsInteger := aValue;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getorders_idIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersorders_id].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setorders_idIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Ordersorders_id].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getrdx_orders_id_localValue: Integer;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersrdx_orders_id_local].AsInteger;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setrdx_orders_id_localValue(const aValue: Integer);
|
||
begin
|
||
DataTable.Fields[idx_osc_Ordersrdx_orders_id_local].AsInteger := aValue;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getrdx_orders_id_localIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersrdx_orders_id_local].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setrdx_orders_id_localIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Ordersrdx_orders_id_local].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getcustomers_idValue: Integer;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orderscustomers_id].AsInteger;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setcustomers_idValue(const aValue: Integer);
|
||
begin
|
||
DataTable.Fields[idx_osc_Orderscustomers_id].AsInteger := aValue;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getcustomers_idIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orderscustomers_id].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setcustomers_idIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orderscustomers_id].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getrdx_customers_id_localValue: Integer;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersrdx_customers_id_local].AsInteger;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setrdx_customers_id_localValue(const aValue: Integer);
|
||
begin
|
||
DataTable.Fields[idx_osc_Ordersrdx_customers_id_local].AsInteger := aValue;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getrdx_customers_id_localIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersrdx_customers_id_local].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setrdx_customers_id_localIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Ordersrdx_customers_id_local].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdelivery_nameValue: String;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdelivery_name].AsString;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdelivery_nameValue(const aValue: String);
|
||
begin
|
||
DataTable.Fields[idx_osc_Ordersdelivery_name].AsString := aValue;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdelivery_nameIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdelivery_name].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdelivery_nameIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Ordersdelivery_name].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdelivery_companyValue: String;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdelivery_company].AsString;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdelivery_companyValue(const aValue: String);
|
||
begin
|
||
DataTable.Fields[idx_osc_Ordersdelivery_company].AsString := aValue;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdelivery_companyIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdelivery_company].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdelivery_companyIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Ordersdelivery_company].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdelivery_street_addressValue: String;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdelivery_street_address].AsString;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdelivery_street_addressValue(const aValue: String);
|
||
begin
|
||
DataTable.Fields[idx_osc_Ordersdelivery_street_address].AsString := aValue;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdelivery_street_addressIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdelivery_street_address].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdelivery_street_addressIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Ordersdelivery_street_address].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdelivery_suburbValue: String;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdelivery_suburb].AsString;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdelivery_suburbValue(const aValue: String);
|
||
begin
|
||
DataTable.Fields[idx_osc_Ordersdelivery_suburb].AsString := aValue;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdelivery_suburbIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdelivery_suburb].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdelivery_suburbIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Ordersdelivery_suburb].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdelivery_cityValue: String;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdelivery_city].AsString;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdelivery_cityValue(const aValue: String);
|
||
begin
|
||
DataTable.Fields[idx_osc_Ordersdelivery_city].AsString := aValue;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdelivery_cityIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdelivery_city].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdelivery_cityIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Ordersdelivery_city].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdelivery_postcodeValue: String;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdelivery_postcode].AsString;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdelivery_postcodeValue(const aValue: String);
|
||
begin
|
||
DataTable.Fields[idx_osc_Ordersdelivery_postcode].AsString := aValue;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdelivery_postcodeIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdelivery_postcode].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdelivery_postcodeIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Ordersdelivery_postcode].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdelivery_stateValue: String;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdelivery_state].AsString;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdelivery_stateValue(const aValue: String);
|
||
begin
|
||
DataTable.Fields[idx_osc_Ordersdelivery_state].AsString := aValue;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdelivery_stateIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdelivery_state].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdelivery_stateIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Ordersdelivery_state].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdelivery_countryValue: String;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdelivery_country].AsString;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdelivery_countryValue(const aValue: String);
|
||
begin
|
||
DataTable.Fields[idx_osc_Ordersdelivery_country].AsString := aValue;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdelivery_countryIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdelivery_country].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdelivery_countryIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Ordersdelivery_country].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdelivery_telephoneValue: String;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdelivery_telephone].AsString;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdelivery_telephoneValue(const aValue: String);
|
||
begin
|
||
DataTable.Fields[idx_osc_Ordersdelivery_telephone].AsString := aValue;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdelivery_telephoneIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdelivery_telephone].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdelivery_telephoneIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Ordersdelivery_telephone].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getlast_modifiedValue: DateTime;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orderslast_modified].AsDateTime;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setlast_modifiedValue(const aValue: DateTime);
|
||
begin
|
||
DataTable.Fields[idx_osc_Orderslast_modified].AsDateTime := aValue;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getlast_modifiedIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orderslast_modified].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setlast_modifiedIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orderslast_modified].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdate_purchasedValue: DateTime;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdate_purchased].AsDateTime;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdate_purchasedValue(const aValue: DateTime);
|
||
begin
|
||
DataTable.Fields[idx_osc_Ordersdate_purchased].AsDateTime := aValue;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getdate_purchasedIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersdate_purchased].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setdate_purchasedIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Ordersdate_purchased].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getorders_statusValue: Integer;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersorders_status].AsInteger;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setorders_statusValue(const aValue: Integer);
|
||
begin
|
||
DataTable.Fields[idx_osc_Ordersorders_status].AsInteger := aValue;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getorders_statusIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersorders_status].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setorders_statusIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Ordersorders_status].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getorders_date_finishedValue: DateTime;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersorders_date_finished].AsDateTime;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setorders_date_finishedValue(const aValue: DateTime);
|
||
begin
|
||
DataTable.Fields[idx_osc_Ordersorders_date_finished].AsDateTime := aValue;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getorders_date_finishedIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersorders_date_finished].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setorders_date_finishedIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Ordersorders_date_finished].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.GetcommentsValue: IROStrings;
|
||
begin
|
||
result := f_comments;
|
||
result.Text := DataTable.Fields[idx_osc_Orderscomments].AsString;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.GetcommentsIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orderscomments].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.SetcommentsIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orderscomments].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getrdx_ship_dateValue: DateTime;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersrdx_ship_date].AsDateTime;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setrdx_ship_dateValue(const aValue: DateTime);
|
||
begin
|
||
DataTable.Fields[idx_osc_Ordersrdx_ship_date].AsDateTime := aValue;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getrdx_ship_dateIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersrdx_ship_date].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setrdx_ship_dateIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Ordersrdx_ship_date].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getrdx_referencia_clienteValue: String;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersrdx_referencia_cliente].AsString;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setrdx_referencia_clienteValue(const aValue: String);
|
||
begin
|
||
DataTable.Fields[idx_osc_Ordersrdx_referencia_cliente].AsString := aValue;
|
||
end;
|
||
|
||
function Tosc_OrdersDataTableRules.Getrdx_referencia_clienteIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Ordersrdx_referencia_cliente].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_OrdersDataTableRules.Setrdx_referencia_clienteIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Ordersrdx_referencia_cliente].AsVariant := Null;
|
||
end;
|
||
|
||
|
||
{ Tosc_Orders_productsDataTableRules }
|
||
constructor Tosc_Orders_productsDataTableRules.Create(aDataTable: TDADataTable);
|
||
begin
|
||
inherited;
|
||
end;
|
||
|
||
destructor Tosc_Orders_productsDataTableRules.Destroy;
|
||
begin
|
||
inherited;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getorders_products_idValue: Integer;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsorders_products_id].AsInteger;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setorders_products_idValue(const aValue: Integer);
|
||
begin
|
||
DataTable.Fields[idx_osc_Orders_productsorders_products_id].AsInteger := aValue;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getorders_products_idIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsorders_products_id].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setorders_products_idIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orders_productsorders_products_id].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getorders_idValue: Integer;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsorders_id].AsInteger;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setorders_idValue(const aValue: Integer);
|
||
begin
|
||
DataTable.Fields[idx_osc_Orders_productsorders_id].AsInteger := aValue;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getorders_idIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsorders_id].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setorders_idIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orders_productsorders_id].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getproducts_idValue: Integer;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsproducts_id].AsInteger;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setproducts_idValue(const aValue: Integer);
|
||
begin
|
||
DataTable.Fields[idx_osc_Orders_productsproducts_id].AsInteger := aValue;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getproducts_idIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsproducts_id].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setproducts_idIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orders_productsproducts_id].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getrdx_products_id_localValue: Integer;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsrdx_products_id_local].AsInteger;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setrdx_products_id_localValue(const aValue: Integer);
|
||
begin
|
||
DataTable.Fields[idx_osc_Orders_productsrdx_products_id_local].AsInteger := aValue;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getrdx_products_id_localIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsrdx_products_id_local].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setrdx_products_id_localIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orders_productsrdx_products_id_local].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getproducts_modelValue: String;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsproducts_model].AsString;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setproducts_modelValue(const aValue: String);
|
||
begin
|
||
DataTable.Fields[idx_osc_Orders_productsproducts_model].AsString := aValue;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getproducts_modelIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsproducts_model].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setproducts_modelIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orders_productsproducts_model].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getproducts_nameValue: String;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsproducts_name].AsString;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setproducts_nameValue(const aValue: String);
|
||
begin
|
||
DataTable.Fields[idx_osc_Orders_productsproducts_name].AsString := aValue;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getproducts_nameIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsproducts_name].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setproducts_nameIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orders_productsproducts_name].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getproducts_priceValue: Float;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsproducts_price].AsFloat;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setproducts_priceValue(const aValue: Float);
|
||
begin
|
||
DataTable.Fields[idx_osc_Orders_productsproducts_price].AsFloat := aValue;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getproducts_priceIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsproducts_price].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setproducts_priceIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orders_productsproducts_price].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getfinal_priceValue: Float;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsfinal_price].AsFloat;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setfinal_priceValue(const aValue: Float);
|
||
begin
|
||
DataTable.Fields[idx_osc_Orders_productsfinal_price].AsFloat := aValue;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getfinal_priceIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsfinal_price].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setfinal_priceIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orders_productsfinal_price].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getproducts_taxValue: Float;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsproducts_tax].AsFloat;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setproducts_taxValue(const aValue: Float);
|
||
begin
|
||
DataTable.Fields[idx_osc_Orders_productsproducts_tax].AsFloat := aValue;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getproducts_taxIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsproducts_tax].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setproducts_taxIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orders_productsproducts_tax].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getproducts_quantityValue: Integer;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsproducts_quantity].AsInteger;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setproducts_quantityValue(const aValue: Integer);
|
||
begin
|
||
DataTable.Fields[idx_osc_Orders_productsproducts_quantity].AsInteger := aValue;
|
||
end;
|
||
|
||
function Tosc_Orders_productsDataTableRules.Getproducts_quantityIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_productsproducts_quantity].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_Orders_productsDataTableRules.Setproducts_quantityIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orders_productsproducts_quantity].AsVariant := Null;
|
||
end;
|
||
|
||
|
||
{ Tosc_Orders_status_historyDataTableRules }
|
||
constructor Tosc_Orders_status_historyDataTableRules.Create(aDataTable: TDADataTable);
|
||
var
|
||
StrList: TStringList;
|
||
begin
|
||
inherited;
|
||
|
||
StrList := TStringList.Create;
|
||
StrList.OnChange := comments_OnChange;
|
||
f_comments := NewROStrings(StrList,True);
|
||
end;
|
||
|
||
destructor Tosc_Orders_status_historyDataTableRules.Destroy;
|
||
begin
|
||
inherited;
|
||
end;
|
||
|
||
procedure Tosc_Orders_status_historyDataTableRules.comments_OnChange(Sender: TObject);
|
||
begin
|
||
if DataTable.Editing then DataTable.Fields[idx_osc_Orders_status_historycomments].AsVariant := TStringList(Sender).Text;
|
||
end;
|
||
|
||
function Tosc_Orders_status_historyDataTableRules.Getorders_status_history_idValue: Integer;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_status_historyorders_status_history_id].AsInteger;
|
||
end;
|
||
|
||
procedure Tosc_Orders_status_historyDataTableRules.Setorders_status_history_idValue(const aValue: Integer);
|
||
begin
|
||
DataTable.Fields[idx_osc_Orders_status_historyorders_status_history_id].AsInteger := aValue;
|
||
end;
|
||
|
||
function Tosc_Orders_status_historyDataTableRules.Getorders_status_history_idIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_status_historyorders_status_history_id].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_Orders_status_historyDataTableRules.Setorders_status_history_idIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orders_status_historyorders_status_history_id].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_Orders_status_historyDataTableRules.Getorders_idValue: Integer;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_status_historyorders_id].AsInteger;
|
||
end;
|
||
|
||
procedure Tosc_Orders_status_historyDataTableRules.Setorders_idValue(const aValue: Integer);
|
||
begin
|
||
DataTable.Fields[idx_osc_Orders_status_historyorders_id].AsInteger := aValue;
|
||
end;
|
||
|
||
function Tosc_Orders_status_historyDataTableRules.Getorders_idIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_status_historyorders_id].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_Orders_status_historyDataTableRules.Setorders_idIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orders_status_historyorders_id].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_Orders_status_historyDataTableRules.Getrdx_orders_id_localValue: Integer;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_status_historyrdx_orders_id_local].AsInteger;
|
||
end;
|
||
|
||
procedure Tosc_Orders_status_historyDataTableRules.Setrdx_orders_id_localValue(const aValue: Integer);
|
||
begin
|
||
DataTable.Fields[idx_osc_Orders_status_historyrdx_orders_id_local].AsInteger := aValue;
|
||
end;
|
||
|
||
function Tosc_Orders_status_historyDataTableRules.Getrdx_orders_id_localIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_status_historyrdx_orders_id_local].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_Orders_status_historyDataTableRules.Setrdx_orders_id_localIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orders_status_historyrdx_orders_id_local].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_Orders_status_historyDataTableRules.Getorders_status_idValue: Integer;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_status_historyorders_status_id].AsInteger;
|
||
end;
|
||
|
||
procedure Tosc_Orders_status_historyDataTableRules.Setorders_status_idValue(const aValue: Integer);
|
||
begin
|
||
DataTable.Fields[idx_osc_Orders_status_historyorders_status_id].AsInteger := aValue;
|
||
end;
|
||
|
||
function Tosc_Orders_status_historyDataTableRules.Getorders_status_idIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_status_historyorders_status_id].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_Orders_status_historyDataTableRules.Setorders_status_idIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orders_status_historyorders_status_id].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_Orders_status_historyDataTableRules.Getdate_addedValue: DateTime;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_status_historydate_added].AsDateTime;
|
||
end;
|
||
|
||
procedure Tosc_Orders_status_historyDataTableRules.Setdate_addedValue(const aValue: DateTime);
|
||
begin
|
||
DataTable.Fields[idx_osc_Orders_status_historydate_added].AsDateTime := aValue;
|
||
end;
|
||
|
||
function Tosc_Orders_status_historyDataTableRules.Getdate_addedIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_status_historydate_added].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_Orders_status_historyDataTableRules.Setdate_addedIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orders_status_historydate_added].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_Orders_status_historyDataTableRules.Getcustomer_notifiedValue: Integer;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_status_historycustomer_notified].AsInteger;
|
||
end;
|
||
|
||
procedure Tosc_Orders_status_historyDataTableRules.Setcustomer_notifiedValue(const aValue: Integer);
|
||
begin
|
||
DataTable.Fields[idx_osc_Orders_status_historycustomer_notified].AsInteger := aValue;
|
||
end;
|
||
|
||
function Tosc_Orders_status_historyDataTableRules.Getcustomer_notifiedIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_status_historycustomer_notified].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_Orders_status_historyDataTableRules.Setcustomer_notifiedIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orders_status_historycustomer_notified].AsVariant := Null;
|
||
end;
|
||
|
||
function Tosc_Orders_status_historyDataTableRules.GetcommentsValue: IROStrings;
|
||
begin
|
||
result := f_comments;
|
||
result.Text := DataTable.Fields[idx_osc_Orders_status_historycomments].AsString;
|
||
end;
|
||
|
||
function Tosc_Orders_status_historyDataTableRules.GetcommentsIsNull: boolean;
|
||
begin
|
||
result := DataTable.Fields[idx_osc_Orders_status_historycomments].IsNull;
|
||
end;
|
||
|
||
procedure Tosc_Orders_status_historyDataTableRules.SetcommentsIsNull(const aValue: Boolean);
|
||
begin
|
||
if aValue then
|
||
DataTable.Fields[idx_osc_Orders_status_historycomments].AsVariant := Null;
|
||
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);
|
||
RegisterDataTableRules(RID_osc_Orders, Tosc_OrdersDataTableRules);
|
||
RegisterDataTableRules(RID_osc_Orders_products, Tosc_Orders_productsDataTableRules);
|
||
RegisterDataTableRules(RID_osc_Orders_status_history, Tosc_Orders_status_historyDataTableRules);
|
||
|
||
end.
|