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