API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Apr 13th, 2011
296
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 198.56 KB | None | 0 0
raw download clone embed print report
  1. // ************************************************************************ //
  2. // The types declared in this file were generated from data read from the
  3. // WSDL File described below:
  4. // WSDL     : https://api.authorize.net/soap/v1/Service.asmx?WSDL
  5. //  >Import : https://api.authorize.net/soap/v1/Service.asmx?WSDL>0
  6. // Encoding : utf-8
  7. // Version  : 1.0
  8. // (1/20/2011 10:46:02 AM - - $Rev: 19514 $)
  9. // ************************************************************************ //
  10.  
  11. unit AuthService;
  12.  
  13. interface
  14.  
  15. uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;
  16.  
  17. const
  18.   IS_OPTN = $0001;
  19.   IS_UNBD = $0002;
  20.   IS_NLBL = $0004;
  21.   IS_REF  = $0080;
  22.  
  23.  
  24. type
  25.  
  26.   // ************************************************************************ //
  27.   // The following types, referred to in the WSDL document are not being represented
  28.   // in this file. They are either aliases[@] of other types represented or were referred
  29.   // to but never[!] declared in the document. The types from the latter category
  30.   // typically map to predefined/known XML or Borland types; however, they could also
  31.   // indicate incorrect WSDL documents that failed to declare or import a schema type.
  32.   // ************************************************************************ //
  33.   // !:string          - "http://www.w3.org/2001/XMLSchema"[Gbl]
  34.   // !:decimal         - "http://www.w3.org/2001/XMLSchema"[Gbl]
  35.   // !:date            - "http://www.w3.org/2001/XMLSchema"[Gbl]
  36.   // !:short           - "http://www.w3.org/2001/XMLSchema"[Gbl]
  37.   // !:gYearMonth      - "http://www.w3.org/2001/XMLSchema"[Gbl]
  38.   // !:long            - "http://www.w3.org/2001/XMLSchema"[Gbl]
  39.   // !:boolean         - "http://www.w3.org/2001/XMLSchema"[Gbl]
  40.   // !:dateTime        - "http://www.w3.org/2001/XMLSchema"[Gbl]
  41.   // !:int             - "http://www.w3.org/2001/XMLSchema"[Gbl]
  42.  
  43.   ANetApiResponseType  = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  44.   MessagesTypeMessage  = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  45.   MerchantAuthenticationType = class;           { "https://api.authorize.net/soap/v1/"[GblCplx] }
  46.   ARBSubscriptionType  = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  47.   PaymentType          = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  48.   OrderType            = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  49.   NameAndAddressType   = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  50.   PaymentScheduleType  = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  51.   PaymentScheduleTypeInterval = class;          { "https://api.authorize.net/soap/v1/"[GblCplx] }
  52.   CreditCardSimpleType = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  53.   CreditCardType       = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  54.   BankAccountBaseType  = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  55.   BankAccountType      = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  56.   CustomerType         = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  57.   DriversLicenseBaseType = class;               { "https://api.authorize.net/soap/v1/"[GblCplx] }
  58.   DriversLicenseType   = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  59.   ARBCreateSubscriptionResponseType = class;    { "https://api.authorize.net/soap/v1/"[GblCplx] }
  60.   ARBUpdateSubscriptionResponseType = class;    { "https://api.authorize.net/soap/v1/"[GblCplx] }
  61.   ARBCancelSubscriptionResponseType = class;    { "https://api.authorize.net/soap/v1/"[GblCplx] }
  62.   ARBGetSubscriptionStatusResponseType = class;   { "https://api.authorize.net/soap/v1/"[GblCplx] }
  63.   CustomerProfileBaseType = class;              { "https://api.authorize.net/soap/v1/"[GblCplx] }
  64.   CustomerProfileType  = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  65.   CustomerPaymentProfileBaseType = class;       { "https://api.authorize.net/soap/v1/"[GblCplx] }
  66.   CustomerPaymentProfileType = class;           { "https://api.authorize.net/soap/v1/"[GblCplx] }
  67.   CustomerAddressType  = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  68.   CreateCustomerProfileResponseType = class;    { "https://api.authorize.net/soap/v1/"[GblCplx] }
  69.   CreateCustomerPaymentProfileResponseType = class;   { "https://api.authorize.net/soap/v1/"[GblCplx] }
  70.   CreateCustomerShippingAddressResponseType = class;   { "https://api.authorize.net/soap/v1/"[GblCplx] }
  71.   GetCustomerProfileResponseType = class;       { "https://api.authorize.net/soap/v1/"[GblCplx] }
  72.   CustomerProfileExType = class;                { "https://api.authorize.net/soap/v1/"[GblCplx] }
  73.   CustomerProfileMaskedType = class;            { "https://api.authorize.net/soap/v1/"[GblCplx] }
  74.   CustomerPaymentProfileMaskedType = class;     { "https://api.authorize.net/soap/v1/"[GblCplx] }
  75.   PaymentMaskedType    = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  76.   DriversLicenseMaskedType = class;             { "https://api.authorize.net/soap/v1/"[GblCplx] }
  77.   CreditCardMaskedType = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  78.   BankAccountMaskedType = class;                { "https://api.authorize.net/soap/v1/"[GblCplx] }
  79.   CustomerAddressExType = class;                { "https://api.authorize.net/soap/v1/"[GblCplx] }
  80.   GetCustomerPaymentProfileResponseType = class;   { "https://api.authorize.net/soap/v1/"[GblCplx] }
  81.   GetCustomerShippingAddressResponseType = class;   { "https://api.authorize.net/soap/v1/"[GblCplx] }
  82.   UpdateCustomerProfileResponseType = class;    { "https://api.authorize.net/soap/v1/"[GblCplx] }
  83.   CustomerPaymentProfileExType = class;         { "https://api.authorize.net/soap/v1/"[GblCplx] }
  84.   UpdateCustomerPaymentProfileResponseType = class;   { "https://api.authorize.net/soap/v1/"[GblCplx] }
  85.   UpdateCustomerShippingAddressResponseType = class;   { "https://api.authorize.net/soap/v1/"[GblCplx] }
  86.   DeleteCustomerProfileResponseType = class;    { "https://api.authorize.net/soap/v1/"[GblCplx] }
  87.   DeleteCustomerPaymentProfileResponseType = class;   { "https://api.authorize.net/soap/v1/"[GblCplx] }
  88.   DeleteCustomerShippingAddressResponseType = class;   { "https://api.authorize.net/soap/v1/"[GblCplx] }
  89.   ProfileTransactionType = class;               { "https://api.authorize.net/soap/v1/"[GblCplx] }
  90.   ProfileTransVoidType = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  91.   OrderExType          = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  92.   ExtendedAmountType   = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  93.   LineItemType         = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  94.   CreateCustomerProfileTransactionResponseType = class;   { "https://api.authorize.net/soap/v1/"[GblCplx] }
  95.   ValidateCustomerPaymentProfileResponseType = class;   { "https://api.authorize.net/soap/v1/"[GblCplx] }
  96.   GetCustomerProfileIdsResponseType = class;    { "https://api.authorize.net/soap/v1/"[GblCplx] }
  97.   UpdateSplitTenderGroupResponseType = class;   { "https://api.authorize.net/soap/v1/"[GblCplx] }
  98.   GetTransactionDetailsResponseType = class;    { "https://api.authorize.net/soap/v1/"[GblCplx] }
  99.   CustomerDataType     = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  100.   FDSFilterType        = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  101.   BatchDetailsType     = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  102.   BatchStatisticType   = class;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  103.   GetSettledBatchListRequestType = class;       { "https://api.authorize.net/soap/v1/"[GblCplx] }
  104.   GetSettledBatchListResponseType = class;      { "https://api.authorize.net/soap/v1/"[GblCplx] }
  105.   GetTransactionListRequestType = class;        { "https://api.authorize.net/soap/v1/"[GblCplx] }
  106.   GetTransactionListResponseType = class;       { "https://api.authorize.net/soap/v1/"[GblCplx] }
  107.   TransactionSummaryType = class;               { "https://api.authorize.net/soap/v1/"[GblCplx] }
  108.   FDSFilter            = class;                 { "https://api.authorize.net/soap/v1/"[Alias] }
  109.   statistic            = class;                 { "https://api.authorize.net/soap/v1/"[Alias] }
  110.   batch                = class;                 { "https://api.authorize.net/soap/v1/"[Alias] }
  111.   transaction          = class;                 { "https://api.authorize.net/soap/v1/"[Alias] }
  112.   TransactionDetailsType = class;               { "https://api.authorize.net/soap/v1/"[GblCplx] }
  113.   ProfileTransAmountType = class;               { "https://api.authorize.net/soap/v1/"[GblCplx] }
  114.   ProfileTransOrderType = class;                { "https://api.authorize.net/soap/v1/"[GblCplx] }
  115.   ProfileTransAuthOnlyType = class;             { "https://api.authorize.net/soap/v1/"[GblCplx] }
  116.   ProfileTransAuthCaptureType = class;          { "https://api.authorize.net/soap/v1/"[GblCplx] }
  117.   ProfileTransCaptureOnlyType = class;          { "https://api.authorize.net/soap/v1/"[GblCplx] }
  118.   ProfileTransRefundType = class;               { "https://api.authorize.net/soap/v1/"[GblCplx] }
  119.   ProfileTransPriorAuthCaptureType = class;     { "https://api.authorize.net/soap/v1/"[GblCplx] }
  120.  
  121.   {$SCOPEDENUMS ON}
  122.   { "https://api.authorize.net/soap/v1/"[GblSmpl] }
  123.   MessageTypeEnum = (Ok, Error);
  124.  
  125.   { "https://api.authorize.net/soap/v1/"[GblSmpl] }
  126.   ARBSubscriptionUnitEnum = (days, months);
  127.  
  128.   { "https://api.authorize.net/soap/v1/"[GblSmpl] }
  129.   BankAccountTypeEnum = (checking, savings, businessChecking);
  130.  
  131.   { "https://api.authorize.net/soap/v1/"[GblSmpl] }
  132.   EcheckTypeEnum = (PPD, WEB, CCD, TEL);
  133.  
  134.   { "https://api.authorize.net/soap/v1/"[GblSmpl] }
  135.   CustomerTypeEnum = (individual, business);
  136.  
  137.   { "https://api.authorize.net/soap/v1/"[GblSmpl] }
  138.   ARBSubscriptionStatusEnum = (active, expired, suspended, canceled, terminated);
  139.  
  140.   { "https://api.authorize.net/soap/v1/"[GblSmpl] }
  141.   ValidationModeEnum = (none, testMode, liveMode, oldLiveMode);
  142.  
  143.   { "https://api.authorize.net/soap/v1/"[GblSmpl] }
  144.   SplitTenderStatusEnum = (completed, held, voided);
  145.  
  146.   {$SCOPEDENUMS OFF}
  147.  
  148.   ArrayOfMessagesTypeMessage = array of MessagesTypeMessage;   { "https://api.authorize.net/soap/v1/"[GblCplx] }
  149.  
  150.  
  151.   // ************************************************************************ //
  152.   // XML       : ANetApiResponseType, global, <complexType>
  153.   // Namespace : https://api.authorize.net/soap/v1/
  154.   // ************************************************************************ //
  155.   ANetApiResponseType = class(TRemotable)
  156.   private
  157.     FresultCode: MessageTypeEnum;
  158.     Fmessages: ArrayOfMessagesTypeMessage;
  159.     Fmessages_Specified: boolean;
  160.     procedure Setmessages(Index: Integer; const AArrayOfMessagesTypeMessage: ArrayOfMessagesTypeMessage);
  161.     function  messages_Specified(Index: Integer): boolean;
  162.   public
  163.     destructor Destroy; override;
  164.   published
  165.     property resultCode: MessageTypeEnum             read FresultCode write FresultCode;
  166.     property messages:   ArrayOfMessagesTypeMessage  Index (IS_OPTN) read Fmessages write Setmessages stored messages_Specified;
  167.   end;
  168.  
  169.  
  170.  
  171.   // ************************************************************************ //
  172.   // XML       : MessagesTypeMessage, global, <complexType>
  173.   // Namespace : https://api.authorize.net/soap/v1/
  174.   // ************************************************************************ //
  175.   MessagesTypeMessage = class(TRemotable)
  176.   private
  177.     Fcode: string;
  178.     Fcode_Specified: boolean;
  179.     Ftext: string;
  180.     Ftext_Specified: boolean;
  181.     procedure Setcode(Index: Integer; const Astring: string);
  182.     function  code_Specified(Index: Integer): boolean;
  183.     procedure Settext(Index: Integer; const Astring: string);
  184.     function  text_Specified(Index: Integer): boolean;
  185.   published
  186.     property code: string  Index (IS_OPTN) read Fcode write Setcode stored code_Specified;
  187.     property text: string  Index (IS_OPTN) read Ftext write Settext stored text_Specified;
  188.   end;
  189.  
  190.  
  191.  
  192.   // ************************************************************************ //
  193.   // XML       : MerchantAuthenticationType, global, <complexType>
  194.   // Namespace : https://api.authorize.net/soap/v1/
  195.   // ************************************************************************ //
  196.   MerchantAuthenticationType = class(TRemotable)
  197.   private
  198.     Fname_: string;
  199.     Fname__Specified: boolean;
  200.     FtransactionKey: string;
  201.     FtransactionKey_Specified: boolean;
  202.     procedure Setname_(Index: Integer; const Astring: string);
  203.     function  name__Specified(Index: Integer): boolean;
  204.     procedure SettransactionKey(Index: Integer; const Astring: string);
  205.     function  transactionKey_Specified(Index: Integer): boolean;
  206.   published
  207.     property name_:          string  Index (IS_OPTN) read Fname_ write Setname_ stored name__Specified;
  208.     property transactionKey: string  Index (IS_OPTN) read FtransactionKey write SettransactionKey stored transactionKey_Specified;
  209.   end;
  210.  
  211.  
  212.  
  213.   // ************************************************************************ //
  214.   // XML       : ARBSubscriptionType, global, <complexType>
  215.   // Namespace : https://api.authorize.net/soap/v1/
  216.   // ************************************************************************ //
  217.   ARBSubscriptionType = class(TRemotable)
  218.   private
  219.     Fname_: string;
  220.     Fname__Specified: boolean;
  221.     FpaymentSchedule: PaymentScheduleType;
  222.     FpaymentSchedule_Specified: boolean;
  223.     Famount: TXSDecimal;
  224.     Famount_Specified: boolean;
  225.     FtrialAmount: TXSDecimal;
  226.     FtrialAmount_Specified: boolean;
  227.     Fpayment: PaymentType;
  228.     Fpayment_Specified: boolean;
  229.     Forder: OrderType;
  230.     Forder_Specified: boolean;
  231.     Fcustomer: CustomerType;
  232.     Fcustomer_Specified: boolean;
  233.     FbillTo: NameAndAddressType;
  234.     FbillTo_Specified: boolean;
  235.     FshipTo: NameAndAddressType;
  236.     FshipTo_Specified: boolean;
  237.     procedure Setname_(Index: Integer; const Astring: string);
  238.     function  name__Specified(Index: Integer): boolean;
  239.     procedure SetpaymentSchedule(Index: Integer; const APaymentScheduleType: PaymentScheduleType);
  240.     function  paymentSchedule_Specified(Index: Integer): boolean;
  241.     procedure Setamount(Index: Integer; const ATXSDecimal: TXSDecimal);
  242.     function  amount_Specified(Index: Integer): boolean;
  243.     procedure SettrialAmount(Index: Integer; const ATXSDecimal: TXSDecimal);
  244.     function  trialAmount_Specified(Index: Integer): boolean;
  245.     procedure Setpayment(Index: Integer; const APaymentType: PaymentType);
  246.     function  payment_Specified(Index: Integer): boolean;
  247.     procedure Setorder(Index: Integer; const AOrderType: OrderType);
  248.     function  order_Specified(Index: Integer): boolean;
  249.     procedure Setcustomer(Index: Integer; const ACustomerType: CustomerType);
  250.     function  customer_Specified(Index: Integer): boolean;
  251.     procedure SetbillTo(Index: Integer; const ANameAndAddressType: NameAndAddressType);
  252.     function  billTo_Specified(Index: Integer): boolean;
  253.     procedure SetshipTo(Index: Integer; const ANameAndAddressType: NameAndAddressType);
  254.     function  shipTo_Specified(Index: Integer): boolean;
  255.   public
  256.     destructor Destroy; override;
  257.   published
  258.     property name_:           string               Index (IS_OPTN) read Fname_ write Setname_ stored name__Specified;
  259.     property paymentSchedule: PaymentScheduleType  Index (IS_OPTN) read FpaymentSchedule write SetpaymentSchedule stored paymentSchedule_Specified;
  260.     property amount:          TXSDecimal           Index (IS_OPTN) read Famount write Setamount stored amount_Specified;
  261.     property trialAmount:     TXSDecimal           Index (IS_OPTN) read FtrialAmount write SettrialAmount stored trialAmount_Specified;
  262.     property payment:         PaymentType          Index (IS_OPTN) read Fpayment write Setpayment stored payment_Specified;
  263.     property order:           OrderType            Index (IS_OPTN) read Forder write Setorder stored order_Specified;
  264.     property customer:        CustomerType         Index (IS_OPTN) read Fcustomer write Setcustomer stored customer_Specified;
  265.     property billTo:          NameAndAddressType   Index (IS_OPTN) read FbillTo write SetbillTo stored billTo_Specified;
  266.     property shipTo:          NameAndAddressType   Index (IS_OPTN) read FshipTo write SetshipTo stored shipTo_Specified;
  267.   end;
  268.  
  269.  
  270.  
  271.   // ************************************************************************ //
  272.   // XML       : PaymentType, global, <complexType>
  273.   // Namespace : https://api.authorize.net/soap/v1/
  274.   // ************************************************************************ //
  275.   PaymentType = class(TRemotable)
  276.   private
  277.     FcreditCard: CreditCardType;
  278.     FcreditCard_Specified: boolean;
  279.     FbankAccount: BankAccountType;
  280.     FbankAccount_Specified: boolean;
  281.     procedure SetcreditCard(Index: Integer; const ACreditCardType: CreditCardType);
  282.     function  creditCard_Specified(Index: Integer): boolean;
  283.     procedure SetbankAccount(Index: Integer; const ABankAccountType: BankAccountType);
  284.     function  bankAccount_Specified(Index: Integer): boolean;
  285.   public
  286.     destructor Destroy; override;
  287.   published
  288.     property creditCard:  CreditCardType   Index (IS_OPTN) read FcreditCard write SetcreditCard stored creditCard_Specified;
  289.     property bankAccount: BankAccountType  Index (IS_OPTN) read FbankAccount write SetbankAccount stored bankAccount_Specified;
  290.   end;
  291.  
  292.  
  293.  
  294.   // ************************************************************************ //
  295.   // XML       : OrderType, global, <complexType>
  296.   // Namespace : https://api.authorize.net/soap/v1/
  297.   // ************************************************************************ //
  298.   OrderType = class(TRemotable)
  299.   private
  300.     FinvoiceNumber: string;
  301.     FinvoiceNumber_Specified: boolean;
  302.     Fdescription: string;
  303.     Fdescription_Specified: boolean;
  304.     procedure SetinvoiceNumber(Index: Integer; const Astring: string);
  305.     function  invoiceNumber_Specified(Index: Integer): boolean;
  306.     procedure Setdescription(Index: Integer; const Astring: string);
  307.     function  description_Specified(Index: Integer): boolean;
  308.   published
  309.     property invoiceNumber: string  Index (IS_OPTN) read FinvoiceNumber write SetinvoiceNumber stored invoiceNumber_Specified;
  310.     property description:   string  Index (IS_OPTN) read Fdescription write Setdescription stored description_Specified;
  311.   end;
  312.  
  313.  
  314.  
  315.   // ************************************************************************ //
  316.   // XML       : NameAndAddressType, global, <complexType>
  317.   // Namespace : https://api.authorize.net/soap/v1/
  318.   // ************************************************************************ //
  319.   NameAndAddressType = class(TRemotable)
  320.   private
  321.     FfirstName: string;
  322.     FfirstName_Specified: boolean;
  323.     FlastName: string;
  324.     FlastName_Specified: boolean;
  325.     Fcompany: string;
  326.     Fcompany_Specified: boolean;
  327.     Faddress: string;
  328.     Faddress_Specified: boolean;
  329.     Fcity: string;
  330.     Fcity_Specified: boolean;
  331.     Fstate: string;
  332.     Fstate_Specified: boolean;
  333.     Fzip: string;
  334.     Fzip_Specified: boolean;
  335.     Fcountry: string;
  336.     Fcountry_Specified: boolean;
  337.     procedure SetfirstName(Index: Integer; const Astring: string);
  338.     function  firstName_Specified(Index: Integer): boolean;
  339.     procedure SetlastName(Index: Integer; const Astring: string);
  340.     function  lastName_Specified(Index: Integer): boolean;
  341.     procedure Setcompany(Index: Integer; const Astring: string);
  342.     function  company_Specified(Index: Integer): boolean;
  343.     procedure Setaddress(Index: Integer; const Astring: string);
  344.     function  address_Specified(Index: Integer): boolean;
  345.     procedure Setcity(Index: Integer; const Astring: string);
  346.     function  city_Specified(Index: Integer): boolean;
  347.     procedure Setstate(Index: Integer; const Astring: string);
  348.     function  state_Specified(Index: Integer): boolean;
  349.     procedure Setzip(Index: Integer; const Astring: string);
  350.     function  zip_Specified(Index: Integer): boolean;
  351.     procedure Setcountry(Index: Integer; const Astring: string);
  352.     function  country_Specified(Index: Integer): boolean;
  353.   published
  354.     property firstName: string  Index (IS_OPTN) read FfirstName write SetfirstName stored firstName_Specified;
  355.     property lastName:  string  Index (IS_OPTN) read FlastName write SetlastName stored lastName_Specified;
  356.     property company:   string  Index (IS_OPTN) read Fcompany write Setcompany stored company_Specified;
  357.     property address:   string  Index (IS_OPTN) read Faddress write Setaddress stored address_Specified;
  358.     property city:      string  Index (IS_OPTN) read Fcity write Setcity stored city_Specified;
  359.     property state:     string  Index (IS_OPTN) read Fstate write Setstate stored state_Specified;
  360.     property zip:       string  Index (IS_OPTN) read Fzip write Setzip stored zip_Specified;
  361.     property country:   string  Index (IS_OPTN) read Fcountry write Setcountry stored country_Specified;
  362.   end;
  363.  
  364.  
  365.  
  366.   // ************************************************************************ //
  367.   // XML       : PaymentScheduleType, global, <complexType>
  368.   // Namespace : https://api.authorize.net/soap/v1/
  369.   // ************************************************************************ //
  370.   PaymentScheduleType = class(TRemotable)
  371.   private
  372.     Finterval: PaymentScheduleTypeInterval;
  373.     Finterval_Specified: boolean;
  374.     FstartDate: TXSDate;
  375.     FstartDate_Specified: boolean;
  376.     FtotalOccurrences: SmallInt;
  377.     FtotalOccurrences_Specified: boolean;
  378.     FtrialOccurrences: SmallInt;
  379.     FtrialOccurrences_Specified: boolean;
  380.     procedure Setinterval(Index: Integer; const APaymentScheduleTypeInterval: PaymentScheduleTypeInterval);
  381.     function  interval_Specified(Index: Integer): boolean;
  382.     procedure SetstartDate(Index: Integer; const ATXSDate: TXSDate);
  383.     function  startDate_Specified(Index: Integer): boolean;
  384.     procedure SettotalOccurrences(Index: Integer; const ASmallInt: SmallInt);
  385.     function  totalOccurrences_Specified(Index: Integer): boolean;
  386.     procedure SettrialOccurrences(Index: Integer; const ASmallInt: SmallInt);
  387.     function  trialOccurrences_Specified(Index: Integer): boolean;
  388.   public
  389.     destructor Destroy; override;
  390.   published
  391.     property interval:         PaymentScheduleTypeInterval  Index (IS_OPTN) read Finterval write Setinterval stored interval_Specified;
  392.     property startDate:        TXSDate                      Index (IS_OPTN) read FstartDate write SetstartDate stored startDate_Specified;
  393.     property totalOccurrences: SmallInt                     Index (IS_OPTN) read FtotalOccurrences write SettotalOccurrences stored totalOccurrences_Specified;
  394.     property trialOccurrences: SmallInt                     Index (IS_OPTN) read FtrialOccurrences write SettrialOccurrences stored trialOccurrences_Specified;
  395.   end;
  396.  
  397.  
  398.  
  399.   // ************************************************************************ //
  400.   // XML       : PaymentScheduleTypeInterval, global, <complexType>
  401.   // Namespace : https://api.authorize.net/soap/v1/
  402.   // ************************************************************************ //
  403.   PaymentScheduleTypeInterval = class(TRemotable)
  404.   private
  405.     Flength: SmallInt;
  406.     Funit_: ARBSubscriptionUnitEnum;
  407.   published
  408.     property length: SmallInt                 read Flength write Flength;
  409.     property unit_:  ARBSubscriptionUnitEnum  read Funit_ write Funit_;
  410.   end;
  411.  
  412.  
  413.  
  414.   // ************************************************************************ //
  415.   // XML       : CreditCardSimpleType, global, <complexType>
  416.   // Namespace : https://api.authorize.net/soap/v1/
  417.   // ************************************************************************ //
  418.   CreditCardSimpleType = class(TRemotable)
  419.   private
  420.     FcardNumber: string;
  421.     FcardNumber_Specified: boolean;
  422.     FexpirationDate: string;
  423.     FexpirationDate_Specified: boolean;
  424.     procedure SetcardNumber(Index: Integer; const Astring: string);
  425.     function  cardNumber_Specified(Index: Integer): boolean;
  426.     procedure SetexpirationDate(Index: Integer; const Astring: string);
  427.     function  expirationDate_Specified(Index: Integer): boolean;
  428.   published
  429.     property cardNumber:     string  Index (IS_OPTN) read FcardNumber write SetcardNumber stored cardNumber_Specified;
  430.     property expirationDate: string  Index (IS_OPTN) read FexpirationDate write SetexpirationDate stored expirationDate_Specified;
  431.   end;
  432.  
  433.  
  434.  
  435.   // ************************************************************************ //
  436.   // XML       : CreditCardType, global, <complexType>
  437.   // Namespace : https://api.authorize.net/soap/v1/
  438.   // ************************************************************************ //
  439.   CreditCardType = class(CreditCardSimpleType)
  440.   private
  441.     FcardCode: string;
  442.     FcardCode_Specified: boolean;
  443.     procedure SetcardCode(Index: Integer; const Astring: string);
  444.     function  cardCode_Specified(Index: Integer): boolean;
  445.   published
  446.     property cardCode: string  Index (IS_OPTN) read FcardCode write SetcardCode stored cardCode_Specified;
  447.   end;
  448.  
  449.  
  450.  
  451.   // ************************************************************************ //
  452.   // XML       : BankAccountBaseType, global, <complexType>
  453.   // Namespace : https://api.authorize.net/soap/v1/
  454.   // ************************************************************************ //
  455.   BankAccountBaseType = class(TRemotable)
  456.   private
  457.     FaccountType: BankAccountTypeEnum;
  458.     FaccountType_Specified: boolean;
  459.     FnameOnAccount: string;
  460.     FnameOnAccount_Specified: boolean;
  461.     FecheckType: EcheckTypeEnum;
  462.     FecheckType_Specified: boolean;
  463.     FbankName: string;
  464.     FbankName_Specified: boolean;
  465.     procedure SetaccountType(Index: Integer; const ABankAccountTypeEnum: BankAccountTypeEnum);
  466.     function  accountType_Specified(Index: Integer): boolean;
  467.     procedure SetnameOnAccount(Index: Integer; const Astring: string);
  468.     function  nameOnAccount_Specified(Index: Integer): boolean;
  469.     procedure SetecheckType(Index: Integer; const AEcheckTypeEnum: EcheckTypeEnum);
  470.     function  echeckType_Specified(Index: Integer): boolean;
  471.     procedure SetbankName(Index: Integer; const Astring: string);
  472.     function  bankName_Specified(Index: Integer): boolean;
  473.   published
  474.     property accountType:   BankAccountTypeEnum  Index (IS_OPTN) read FaccountType write SetaccountType stored accountType_Specified;
  475.     property nameOnAccount: string               Index (IS_OPTN) read FnameOnAccount write SetnameOnAccount stored nameOnAccount_Specified;
  476.     property echeckType:    EcheckTypeEnum       Index (IS_OPTN) read FecheckType write SetecheckType stored echeckType_Specified;
  477.     property bankName:      string               Index (IS_OPTN) read FbankName write SetbankName stored bankName_Specified;
  478.   end;
  479.  
  480.  
  481.  
  482.   // ************************************************************************ //
  483.   // XML       : BankAccountType, global, <complexType>
  484.   // Namespace : https://api.authorize.net/soap/v1/
  485.   // ************************************************************************ //
  486.   BankAccountType = class(BankAccountBaseType)
  487.   private
  488.     FroutingNumber: string;
  489.     FroutingNumber_Specified: boolean;
  490.     FaccountNumber: string;
  491.     FaccountNumber_Specified: boolean;
  492.     procedure SetroutingNumber(Index: Integer; const Astring: string);
  493.     function  routingNumber_Specified(Index: Integer): boolean;
  494.     procedure SetaccountNumber(Index: Integer; const Astring: string);
  495.     function  accountNumber_Specified(Index: Integer): boolean;
  496.   published
  497.     property routingNumber: string  Index (IS_OPTN) read FroutingNumber write SetroutingNumber stored routingNumber_Specified;
  498.     property accountNumber: string  Index (IS_OPTN) read FaccountNumber write SetaccountNumber stored accountNumber_Specified;
  499.   end;
  500.  
  501.  
  502.  
  503.   // ************************************************************************ //
  504.   // XML       : CustomerType, global, <complexType>
  505.   // Namespace : https://api.authorize.net/soap/v1/
  506.   // ************************************************************************ //
  507.   CustomerType = class(TRemotable)
  508.   private
  509.     Ftype_: CustomerTypeEnum;
  510.     Ftype__Specified: boolean;
  511.     Fid: string;
  512.     Fid_Specified: boolean;
  513.     Femail: string;
  514.     Femail_Specified: boolean;
  515.     FphoneNumber: string;
  516.     FphoneNumber_Specified: boolean;
  517.     FfaxNumber: string;
  518.     FfaxNumber_Specified: boolean;
  519.     FdriversLicense: DriversLicenseType;
  520.     FdriversLicense_Specified: boolean;
  521.     FtaxId: string;
  522.     FtaxId_Specified: boolean;
  523.     procedure Settype_(Index: Integer; const ACustomerTypeEnum: CustomerTypeEnum);
  524.     function  type__Specified(Index: Integer): boolean;
  525.     procedure Setid(Index: Integer; const Astring: string);
  526.     function  id_Specified(Index: Integer): boolean;
  527.     procedure Setemail(Index: Integer; const Astring: string);
  528.     function  email_Specified(Index: Integer): boolean;
  529.     procedure SetphoneNumber(Index: Integer; const Astring: string);
  530.     function  phoneNumber_Specified(Index: Integer): boolean;
  531.     procedure SetfaxNumber(Index: Integer; const Astring: string);
  532.     function  faxNumber_Specified(Index: Integer): boolean;
  533.     procedure SetdriversLicense(Index: Integer; const ADriversLicenseType: DriversLicenseType);
  534.     function  driversLicense_Specified(Index: Integer): boolean;
  535.     procedure SettaxId(Index: Integer; const Astring: string);
  536.     function  taxId_Specified(Index: Integer): boolean;
  537.   public
  538.     destructor Destroy; override;
  539.   published
  540.     property type_:          CustomerTypeEnum    Index (IS_OPTN) read Ftype_ write Settype_ stored type__Specified;
  541.     property id:             string              Index (IS_OPTN) read Fid write Setid stored id_Specified;
  542.     property email:          string              Index (IS_OPTN) read Femail write Setemail stored email_Specified;
  543.     property phoneNumber:    string              Index (IS_OPTN) read FphoneNumber write SetphoneNumber stored phoneNumber_Specified;
  544.     property faxNumber:      string              Index (IS_OPTN) read FfaxNumber write SetfaxNumber stored faxNumber_Specified;
  545.     property driversLicense: DriversLicenseType  Index (IS_OPTN) read FdriversLicense write SetdriversLicense stored driversLicense_Specified;
  546.     property taxId:          string              Index (IS_OPTN) read FtaxId write SettaxId stored taxId_Specified;
  547.   end;
  548.  
  549.  
  550.  
  551.   // ************************************************************************ //
  552.   // XML       : DriversLicenseBaseType, global, <complexType>
  553.   // Namespace : https://api.authorize.net/soap/v1/
  554.   // ************************************************************************ //
  555.   DriversLicenseBaseType = class(TRemotable)
  556.   private
  557.     Fstate: string;
  558.     Fstate_Specified: boolean;
  559.     procedure Setstate(Index: Integer; const Astring: string);
  560.     function  state_Specified(Index: Integer): boolean;
  561.   published
  562.     property state: string  Index (IS_OPTN) read Fstate write Setstate stored state_Specified;
  563.   end;
  564.  
  565.  
  566.  
  567.   // ************************************************************************ //
  568.   // XML       : DriversLicenseType, global, <complexType>
  569.   // Namespace : https://api.authorize.net/soap/v1/
  570.   // ************************************************************************ //
  571.   DriversLicenseType = class(DriversLicenseBaseType)
  572.   private
  573.     Fnumber: string;
  574.     Fnumber_Specified: boolean;
  575.     FdateOfBirth: string;
  576.     FdateOfBirth_Specified: boolean;
  577.     procedure Setnumber(Index: Integer; const Astring: string);
  578.     function  number_Specified(Index: Integer): boolean;
  579.     procedure SetdateOfBirth(Index: Integer; const Astring: string);
  580.     function  dateOfBirth_Specified(Index: Integer): boolean;
  581.   published
  582.     property number:      string  Index (IS_OPTN) read Fnumber write Setnumber stored number_Specified;
  583.     property dateOfBirth: string  Index (IS_OPTN) read FdateOfBirth write SetdateOfBirth stored dateOfBirth_Specified;
  584.   end;
  585.  
  586.  
  587.  
  588.   // ************************************************************************ //
  589.   // XML       : ARBCreateSubscriptionResponseType, global, <complexType>
  590.   // Namespace : https://api.authorize.net/soap/v1/
  591.   // ************************************************************************ //
  592.   ARBCreateSubscriptionResponseType = class(ANetApiResponseType)
  593.   private
  594.     FsubscriptionId: Int64;
  595.   published
  596.     property subscriptionId: Int64  read FsubscriptionId write FsubscriptionId;
  597.   end;
  598.  
  599.  
  600.  
  601.   // ************************************************************************ //
  602.   // XML       : ARBUpdateSubscriptionResponseType, global, <complexType>
  603.   // Namespace : https://api.authorize.net/soap/v1/
  604.   // ************************************************************************ //
  605.   ARBUpdateSubscriptionResponseType = class(ANetApiResponseType)
  606.   private
  607.   published
  608.   end;
  609.  
  610.  
  611.  
  612.   // ************************************************************************ //
  613.   // XML       : ARBCancelSubscriptionResponseType, global, <complexType>
  614.   // Namespace : https://api.authorize.net/soap/v1/
  615.   // ************************************************************************ //
  616.   ARBCancelSubscriptionResponseType = class(ANetApiResponseType)
  617.   private
  618.   published
  619.   end;
  620.  
  621.  
  622.  
  623.   // ************************************************************************ //
  624.   // XML       : ARBGetSubscriptionStatusResponseType, global, <complexType>
  625.   // Namespace : https://api.authorize.net/soap/v1/
  626.   // ************************************************************************ //
  627.   ARBGetSubscriptionStatusResponseType = class(ANetApiResponseType)
  628.   private
  629.     Fstatus: ARBSubscriptionStatusEnum;
  630.   published
  631.     property status: ARBSubscriptionStatusEnum  read Fstatus write Fstatus;
  632.   end;
  633.  
  634.  
  635.  
  636.   // ************************************************************************ //
  637.   // XML       : CustomerProfileBaseType, global, <complexType>
  638.   // Namespace : https://api.authorize.net/soap/v1/
  639.   // ************************************************************************ //
  640.   CustomerProfileBaseType = class(TRemotable)
  641.   private
  642.     FmerchantCustomerId: string;
  643.     FmerchantCustomerId_Specified: boolean;
  644.     Fdescription: string;
  645.     Fdescription_Specified: boolean;
  646.     Femail: string;
  647.     Femail_Specified: boolean;
  648.     procedure SetmerchantCustomerId(Index: Integer; const Astring: string);
  649.     function  merchantCustomerId_Specified(Index: Integer): boolean;
  650.     procedure Setdescription(Index: Integer; const Astring: string);
  651.     function  description_Specified(Index: Integer): boolean;
  652.     procedure Setemail(Index: Integer; const Astring: string);
  653.     function  email_Specified(Index: Integer): boolean;
  654.   published
  655.     property merchantCustomerId: string  Index (IS_OPTN) read FmerchantCustomerId write SetmerchantCustomerId stored merchantCustomerId_Specified;
  656.     property description:        string  Index (IS_OPTN) read Fdescription write Setdescription stored description_Specified;
  657.     property email:              string  Index (IS_OPTN) read Femail write Setemail stored email_Specified;
  658.   end;
  659.  
  660.   ArrayOfCustomerPaymentProfileType = array of CustomerPaymentProfileType;   { "https://api.authorize.net/soap/v1/"[GblCplx] }
  661.   ArrayOfCustomerAddressType = array of CustomerAddressType;   { "https://api.authorize.net/soap/v1/"[GblCplx] }
  662.  
  663.  
  664.   // ************************************************************************ //
  665.   // XML       : CustomerProfileType, global, <complexType>
  666.   // Namespace : https://api.authorize.net/soap/v1/
  667.   // ************************************************************************ //
  668.   CustomerProfileType = class(CustomerProfileBaseType)
  669.   private
  670.     FpaymentProfiles: ArrayOfCustomerPaymentProfileType;
  671.     FpaymentProfiles_Specified: boolean;
  672.     FshipToList: ArrayOfCustomerAddressType;
  673.     FshipToList_Specified: boolean;
  674.     procedure SetpaymentProfiles(Index: Integer; const AArrayOfCustomerPaymentProfileType: ArrayOfCustomerPaymentProfileType);
  675.     function  paymentProfiles_Specified(Index: Integer): boolean;
  676.     procedure SetshipToList(Index: Integer; const AArrayOfCustomerAddressType: ArrayOfCustomerAddressType);
  677.     function  shipToList_Specified(Index: Integer): boolean;
  678.   public
  679.     destructor Destroy; override;
  680.   published
  681.     property paymentProfiles: ArrayOfCustomerPaymentProfileType  Index (IS_OPTN) read FpaymentProfiles write SetpaymentProfiles stored paymentProfiles_Specified;
  682.     property shipToList:      ArrayOfCustomerAddressType         Index (IS_OPTN) read FshipToList write SetshipToList stored shipToList_Specified;
  683.   end;
  684.  
  685.  
  686.  
  687.   // ************************************************************************ //
  688.   // XML       : CustomerPaymentProfileBaseType, global, <complexType>
  689.   // Namespace : https://api.authorize.net/soap/v1/
  690.   // ************************************************************************ //
  691.   CustomerPaymentProfileBaseType = class(TRemotable)
  692.   private
  693.     FcustomerType: CustomerTypeEnum;
  694.     FcustomerType_Specified: boolean;
  695.     FbillTo: CustomerAddressType;
  696.     FbillTo_Specified: boolean;
  697.     procedure SetcustomerType(Index: Integer; const ACustomerTypeEnum: CustomerTypeEnum);
  698.     function  customerType_Specified(Index: Integer): boolean;
  699.     procedure SetbillTo(Index: Integer; const ACustomerAddressType: CustomerAddressType);
  700.     function  billTo_Specified(Index: Integer): boolean;
  701.   public
  702.     destructor Destroy; override;
  703.   published
  704.     property customerType: CustomerTypeEnum     Index (IS_OPTN) read FcustomerType write SetcustomerType stored customerType_Specified;
  705.     property billTo:       CustomerAddressType  Index (IS_OPTN) read FbillTo write SetbillTo stored billTo_Specified;
  706.   end;
  707.  
  708.  
  709.  
  710.   // ************************************************************************ //
  711.   // XML       : CustomerPaymentProfileType, global, <complexType>
  712.   // Namespace : https://api.authorize.net/soap/v1/
  713.   // ************************************************************************ //
  714.   CustomerPaymentProfileType = class(CustomerPaymentProfileBaseType)
  715.   private
  716.     Fpayment: PaymentType;
  717.     Fpayment_Specified: boolean;
  718.     FdriversLicense: DriversLicenseType;
  719.     FdriversLicense_Specified: boolean;
  720.     FtaxId: string;
  721.     FtaxId_Specified: boolean;
  722.     procedure Setpayment(Index: Integer; const APaymentType: PaymentType);
  723.     function  payment_Specified(Index: Integer): boolean;
  724.     procedure SetdriversLicense(Index: Integer; const ADriversLicenseType: DriversLicenseType);
  725.     function  driversLicense_Specified(Index: Integer): boolean;
  726.     procedure SettaxId(Index: Integer; const Astring: string);
  727.     function  taxId_Specified(Index: Integer): boolean;
  728.   public
  729.     destructor Destroy; override;
  730.   published
  731.     property payment:        PaymentType         Index (IS_OPTN) read Fpayment write Setpayment stored payment_Specified;
  732.     property driversLicense: DriversLicenseType  Index (IS_OPTN) read FdriversLicense write SetdriversLicense stored driversLicense_Specified;
  733.     property taxId:          string              Index (IS_OPTN) read FtaxId write SettaxId stored taxId_Specified;
  734.   end;
  735.  
  736.  
  737.  
  738.   // ************************************************************************ //
  739.   // XML       : CustomerAddressType, global, <complexType>
  740.   // Namespace : https://api.authorize.net/soap/v1/
  741.   // ************************************************************************ //
  742.   CustomerAddressType = class(NameAndAddressType)
  743.   private
  744.     FphoneNumber: string;
  745.     FphoneNumber_Specified: boolean;
  746.     FfaxNumber: string;
  747.     FfaxNumber_Specified: boolean;
  748.     procedure SetphoneNumber(Index: Integer; const Astring: string);
  749.     function  phoneNumber_Specified(Index: Integer): boolean;
  750.     procedure SetfaxNumber(Index: Integer; const Astring: string);
  751.     function  faxNumber_Specified(Index: Integer): boolean;
  752.   published
  753.     property phoneNumber: string  Index (IS_OPTN) read FphoneNumber write SetphoneNumber stored phoneNumber_Specified;
  754.     property faxNumber:   string  Index (IS_OPTN) read FfaxNumber write SetfaxNumber stored faxNumber_Specified;
  755.   end;
  756.  
  757.   ArrayOfLong = array of Int64;                 { "https://api.authorize.net/soap/v1/"[GblCplx] }
  758.   ArrayOfString = array of string;              { "https://api.authorize.net/soap/v1/"[GblCplx] }
  759.  
  760.  
  761.   // ************************************************************************ //
  762.   // XML       : CreateCustomerProfileResponseType, global, <complexType>
  763.   // Namespace : https://api.authorize.net/soap/v1/
  764.   // ************************************************************************ //
  765.   CreateCustomerProfileResponseType = class(ANetApiResponseType)
  766.   private
  767.     FcustomerProfileId: Int64;
  768.     FcustomerPaymentProfileIdList: ArrayOfLong;
  769.     FcustomerPaymentProfileIdList_Specified: boolean;
  770.     FcustomerShippingAddressIdList: ArrayOfLong;
  771.     FcustomerShippingAddressIdList_Specified: boolean;
  772.     FvalidationDirectResponseList: ArrayOfString;
  773.     FvalidationDirectResponseList_Specified: boolean;
  774.     procedure SetcustomerPaymentProfileIdList(Index: Integer; const AArrayOfLong: ArrayOfLong);
  775.     function  customerPaymentProfileIdList_Specified(Index: Integer): boolean;
  776.     procedure SetcustomerShippingAddressIdList(Index: Integer; const AArrayOfLong: ArrayOfLong);
  777.     function  customerShippingAddressIdList_Specified(Index: Integer): boolean;
  778.     procedure SetvalidationDirectResponseList(Index: Integer; const AArrayOfString: ArrayOfString);
  779.     function  validationDirectResponseList_Specified(Index: Integer): boolean;
  780.   published
  781.     property customerProfileId:             Int64          read FcustomerProfileId write FcustomerProfileId;
  782.     property customerPaymentProfileIdList:  ArrayOfLong    Index (IS_OPTN) read FcustomerPaymentProfileIdList write SetcustomerPaymentProfileIdList stored customerPaymentProfileIdList_Specified;
  783.     property customerShippingAddressIdList: ArrayOfLong    Index (IS_OPTN) read FcustomerShippingAddressIdList write SetcustomerShippingAddressIdList stored customerShippingAddressIdList_Specified;
  784.     property validationDirectResponseList:  ArrayOfString  Index (IS_OPTN) read FvalidationDirectResponseList write SetvalidationDirectResponseList stored validationDirectResponseList_Specified;
  785.   end;
  786.  
  787.  
  788.  
  789.   // ************************************************************************ //
  790.   // XML       : CreateCustomerPaymentProfileResponseType, global, <complexType>
  791.   // Namespace : https://api.authorize.net/soap/v1/
  792.   // ************************************************************************ //
  793.   CreateCustomerPaymentProfileResponseType = class(ANetApiResponseType)
  794.   private
  795.     FcustomerPaymentProfileId: Int64;
  796.     FvalidationDirectResponse: string;
  797.     FvalidationDirectResponse_Specified: boolean;
  798.     procedure SetvalidationDirectResponse(Index: Integer; const Astring: string);
  799.     function  validationDirectResponse_Specified(Index: Integer): boolean;
  800.   published
  801.     property customerPaymentProfileId: Int64   read FcustomerPaymentProfileId write FcustomerPaymentProfileId;
  802.     property validationDirectResponse: string  Index (IS_OPTN) read FvalidationDirectResponse write SetvalidationDirectResponse stored validationDirectResponse_Specified;
  803.   end;
  804.  
  805.  
  806.  
  807.   // ************************************************************************ //
  808.   // XML       : CreateCustomerShippingAddressResponseType, global, <complexType>
  809.   // Namespace : https://api.authorize.net/soap/v1/
  810.   // ************************************************************************ //
  811.   CreateCustomerShippingAddressResponseType = class(ANetApiResponseType)
  812.   private
  813.     FcustomerAddressId: Int64;
  814.   published
  815.     property customerAddressId: Int64  read FcustomerAddressId write FcustomerAddressId;
  816.   end;
  817.  
  818.  
  819.  
  820.   // ************************************************************************ //
  821.   // XML       : GetCustomerProfileResponseType, global, <complexType>
  822.   // Namespace : https://api.authorize.net/soap/v1/
  823.   // ************************************************************************ //
  824.   GetCustomerProfileResponseType = class(ANetApiResponseType)
  825.   private
  826.     Fprofile: CustomerProfileMaskedType;
  827.     Fprofile_Specified: boolean;
  828.     procedure Setprofile(Index: Integer; const ACustomerProfileMaskedType: CustomerProfileMaskedType);
  829.     function  profile_Specified(Index: Integer): boolean;
  830.   public
  831.     destructor Destroy; override;
  832.   published
  833.     property profile: CustomerProfileMaskedType  Index (IS_OPTN) read Fprofile write Setprofile stored profile_Specified;
  834.   end;
  835.  
  836.  
  837.  
  838.   // ************************************************************************ //
  839.   // XML       : CustomerProfileExType, global, <complexType>
  840.   // Namespace : https://api.authorize.net/soap/v1/
  841.   // ************************************************************************ //
  842.   CustomerProfileExType = class(CustomerProfileBaseType)
  843.   private
  844.     FcustomerProfileId: Int64;
  845.   published
  846.     property customerProfileId: Int64  read FcustomerProfileId write FcustomerProfileId;
  847.   end;
  848.  
  849.   ArrayOfCustomerPaymentProfileMaskedType = array of CustomerPaymentProfileMaskedType;   { "https://api.authorize.net/soap/v1/"[GblCplx] }
  850.   ArrayOfCustomerAddressExType = array of CustomerAddressExType;   { "https://api.authorize.net/soap/v1/"[GblCplx] }
  851.  
  852.  
  853.   // ************************************************************************ //
  854.   // XML       : CustomerProfileMaskedType, global, <complexType>
  855.   // Namespace : https://api.authorize.net/soap/v1/
  856.   // ************************************************************************ //
  857.   CustomerProfileMaskedType = class(CustomerProfileExType)
  858.   private
  859.     FpaymentProfiles: ArrayOfCustomerPaymentProfileMaskedType;
  860.     FpaymentProfiles_Specified: boolean;
  861.     FshipToList: ArrayOfCustomerAddressExType;
  862.     FshipToList_Specified: boolean;
  863.     procedure SetpaymentProfiles(Index: Integer; const AArrayOfCustomerPaymentProfileMaskedType: ArrayOfCustomerPaymentProfileMaskedType);
  864.     function  paymentProfiles_Specified(Index: Integer): boolean;
  865.     procedure SetshipToList(Index: Integer; const AArrayOfCustomerAddressExType: ArrayOfCustomerAddressExType);
  866.     function  shipToList_Specified(Index: Integer): boolean;
  867.   public
  868.     destructor Destroy; override;
  869.   published
  870.     property paymentProfiles: ArrayOfCustomerPaymentProfileMaskedType  Index (IS_OPTN) read FpaymentProfiles write SetpaymentProfiles stored paymentProfiles_Specified;
  871.     property shipToList:      ArrayOfCustomerAddressExType             Index (IS_OPTN) read FshipToList write SetshipToList stored shipToList_Specified;
  872.   end;
  873.  
  874.  
  875.  
  876.   // ************************************************************************ //
  877.   // XML       : CustomerPaymentProfileMaskedType, global, <complexType>
  878.   // Namespace : https://api.authorize.net/soap/v1/
  879.   // ************************************************************************ //
  880.   CustomerPaymentProfileMaskedType = class(CustomerPaymentProfileBaseType)
  881.   private
  882.     FcustomerPaymentProfileId: Int64;
  883.     Fpayment: PaymentMaskedType;
  884.     Fpayment_Specified: boolean;
  885.     FdriversLicense: DriversLicenseMaskedType;
  886.     FdriversLicense_Specified: boolean;
  887.     FtaxId: string;
  888.     FtaxId_Specified: boolean;
  889.     procedure Setpayment(Index: Integer; const APaymentMaskedType: PaymentMaskedType);
  890.     function  payment_Specified(Index: Integer): boolean;
  891.     procedure SetdriversLicense(Index: Integer; const ADriversLicenseMaskedType: DriversLicenseMaskedType);
  892.     function  driversLicense_Specified(Index: Integer): boolean;
  893.     procedure SettaxId(Index: Integer; const Astring: string);
  894.     function  taxId_Specified(Index: Integer): boolean;
  895.   public
  896.     destructor Destroy; override;
  897.   published
  898.     property customerPaymentProfileId: Int64                     read FcustomerPaymentProfileId write FcustomerPaymentProfileId;
  899.     property payment:                  PaymentMaskedType         Index (IS_OPTN) read Fpayment write Setpayment stored payment_Specified;
  900.     property driversLicense:           DriversLicenseMaskedType  Index (IS_OPTN) read FdriversLicense write SetdriversLicense stored driversLicense_Specified;
  901.     property taxId:                    string                    Index (IS_OPTN) read FtaxId write SettaxId stored taxId_Specified;
  902.   end;
  903.  
  904.  
  905.  
  906.   // ************************************************************************ //
  907.   // XML       : PaymentMaskedType, global, <complexType>
  908.   // Namespace : https://api.authorize.net/soap/v1/
  909.   // ************************************************************************ //
  910.   PaymentMaskedType = class(TRemotable)
  911.   private
  912.     FcreditCard: CreditCardMaskedType;
  913.     FcreditCard_Specified: boolean;
  914.     FbankAccount: BankAccountMaskedType;
  915.     FbankAccount_Specified: boolean;
  916.     procedure SetcreditCard(Index: Integer; const ACreditCardMaskedType: CreditCardMaskedType);
  917.     function  creditCard_Specified(Index: Integer): boolean;
  918.     procedure SetbankAccount(Index: Integer; const ABankAccountMaskedType: BankAccountMaskedType);
  919.     function  bankAccount_Specified(Index: Integer): boolean;
  920.   public
  921.     destructor Destroy; override;
  922.   published
  923.     property creditCard:  CreditCardMaskedType   Index (IS_OPTN) read FcreditCard write SetcreditCard stored creditCard_Specified;
  924.     property bankAccount: BankAccountMaskedType  Index (IS_OPTN) read FbankAccount write SetbankAccount stored bankAccount_Specified;
  925.   end;
  926.  
  927.  
  928.  
  929.   // ************************************************************************ //
  930.   // XML       : DriversLicenseMaskedType, global, <complexType>
  931.   // Namespace : https://api.authorize.net/soap/v1/
  932.   // ************************************************************************ //
  933.   DriversLicenseMaskedType = class(DriversLicenseBaseType)
  934.   private
  935.     Fnumber: string;
  936.     Fnumber_Specified: boolean;
  937.     FdateOfBirth: string;
  938.     FdateOfBirth_Specified: boolean;
  939.     procedure Setnumber(Index: Integer; const Astring: string);
  940.     function  number_Specified(Index: Integer): boolean;
  941.     procedure SetdateOfBirth(Index: Integer; const Astring: string);
  942.     function  dateOfBirth_Specified(Index: Integer): boolean;
  943.   published
  944.     property number:      string  Index (IS_OPTN) read Fnumber write Setnumber stored number_Specified;
  945.     property dateOfBirth: string  Index (IS_OPTN) read FdateOfBirth write SetdateOfBirth stored dateOfBirth_Specified;
  946.   end;
  947.  
  948.  
  949.  
  950.   // ************************************************************************ //
  951.   // XML       : CreditCardMaskedType, global, <complexType>
  952.   // Namespace : https://api.authorize.net/soap/v1/
  953.   // ************************************************************************ //
  954.   CreditCardMaskedType = class(TRemotable)
  955.   private
  956.     FcardNumber: string;
  957.     FcardNumber_Specified: boolean;
  958.     FexpirationDate: string;
  959.     FexpirationDate_Specified: boolean;
  960.     FcardType: string;
  961.     FcardType_Specified: boolean;
  962.     procedure SetcardNumber(Index: Integer; const Astring: string);
  963.     function  cardNumber_Specified(Index: Integer): boolean;
  964.     procedure SetexpirationDate(Index: Integer; const Astring: string);
  965.     function  expirationDate_Specified(Index: Integer): boolean;
  966.     procedure SetcardType(Index: Integer; const Astring: string);
  967.     function  cardType_Specified(Index: Integer): boolean;
  968.   published
  969.     property cardNumber:     string  Index (IS_OPTN) read FcardNumber write SetcardNumber stored cardNumber_Specified;
  970.     property expirationDate: string  Index (IS_OPTN) read FexpirationDate write SetexpirationDate stored expirationDate_Specified;
  971.     property cardType:       string  Index (IS_OPTN) read FcardType write SetcardType stored cardType_Specified;
  972.   end;
  973.  
  974.  
  975.  
  976.   // ************************************************************************ //
  977.   // XML       : BankAccountMaskedType, global, <complexType>
  978.   // Namespace : https://api.authorize.net/soap/v1/
  979.   // ************************************************************************ //
  980.   BankAccountMaskedType = class(BankAccountBaseType)
  981.   private
  982.     FroutingNumber: string;
  983.     FroutingNumber_Specified: boolean;
  984.     FaccountNumber: string;
  985.     FaccountNumber_Specified: boolean;
  986.     procedure SetroutingNumber(Index: Integer; const Astring: string);
  987.     function  routingNumber_Specified(Index: Integer): boolean;
  988.     procedure SetaccountNumber(Index: Integer; const Astring: string);
  989.     function  accountNumber_Specified(Index: Integer): boolean;
  990.   published
  991.     property routingNumber: string  Index (IS_OPTN) read FroutingNumber write SetroutingNumber stored routingNumber_Specified;
  992.     property accountNumber: string  Index (IS_OPTN) read FaccountNumber write SetaccountNumber stored accountNumber_Specified;
  993.   end;
  994.  
  995.  
  996.  
  997.   // ************************************************************************ //
  998.   // XML       : CustomerAddressExType, global, <complexType>
  999.   // Namespace : https://api.authorize.net/soap/v1/
  1000.   // ************************************************************************ //
  1001.   CustomerAddressExType = class(CustomerAddressType)
  1002.   private
  1003.     FcustomerAddressId: Int64;
  1004.   published
  1005.     property customerAddressId: Int64  read FcustomerAddressId write FcustomerAddressId;
  1006.   end;
  1007.  
  1008.  
  1009.  
  1010.   // ************************************************************************ //
  1011.   // XML       : GetCustomerPaymentProfileResponseType, global, <complexType>
  1012.   // Namespace : https://api.authorize.net/soap/v1/
  1013.   // ************************************************************************ //
  1014.   GetCustomerPaymentProfileResponseType = class(ANetApiResponseType)
  1015.   private
  1016.     FpaymentProfile: CustomerPaymentProfileMaskedType;
  1017.     FpaymentProfile_Specified: boolean;
  1018.     procedure SetpaymentProfile(Index: Integer; const ACustomerPaymentProfileMaskedType: CustomerPaymentProfileMaskedType);
  1019.     function  paymentProfile_Specified(Index: Integer): boolean;
  1020.   public
  1021.     destructor Destroy; override;
  1022.   published
  1023.     property paymentProfile: CustomerPaymentProfileMaskedType  Index (IS_OPTN) read FpaymentProfile write SetpaymentProfile stored paymentProfile_Specified;
  1024.   end;
  1025.  
  1026.  
  1027.  
  1028.   // ************************************************************************ //
  1029.   // XML       : GetCustomerShippingAddressResponseType, global, <complexType>
  1030.   // Namespace : https://api.authorize.net/soap/v1/
  1031.   // ************************************************************************ //
  1032.   GetCustomerShippingAddressResponseType = class(ANetApiResponseType)
  1033.   private
  1034.     Faddress: CustomerAddressExType;
  1035.     Faddress_Specified: boolean;
  1036.     procedure Setaddress(Index: Integer; const ACustomerAddressExType: CustomerAddressExType);
  1037.     function  address_Specified(Index: Integer): boolean;
  1038.   public
  1039.     destructor Destroy; override;
  1040.   published
  1041.     property address: CustomerAddressExType  Index (IS_OPTN) read Faddress write Setaddress stored address_Specified;
  1042.   end;
  1043.  
  1044.  
  1045.  
  1046.   // ************************************************************************ //
  1047.   // XML       : UpdateCustomerProfileResponseType, global, <complexType>
  1048.   // Namespace : https://api.authorize.net/soap/v1/
  1049.   // ************************************************************************ //
  1050.   UpdateCustomerProfileResponseType = class(ANetApiResponseType)
  1051.   private
  1052.   published
  1053.   end;
  1054.  
  1055.  
  1056.  
  1057.   // ************************************************************************ //
  1058.   // XML       : CustomerPaymentProfileExType, global, <complexType>
  1059.   // Namespace : https://api.authorize.net/soap/v1/
  1060.   // ************************************************************************ //
  1061.   CustomerPaymentProfileExType = class(CustomerPaymentProfileType)
  1062.   private
  1063.     FcustomerPaymentProfileId: Int64;
  1064.   published
  1065.     property customerPaymentProfileId: Int64  read FcustomerPaymentProfileId write FcustomerPaymentProfileId;
  1066.   end;
  1067.  
  1068.  
  1069.  
  1070.   // ************************************************************************ //
  1071.   // XML       : UpdateCustomerPaymentProfileResponseType, global, <complexType>
  1072.   // Namespace : https://api.authorize.net/soap/v1/
  1073.   // ************************************************************************ //
  1074.   UpdateCustomerPaymentProfileResponseType = class(ANetApiResponseType)
  1075.   private
  1076.     FvalidationDirectResponse: string;
  1077.     FvalidationDirectResponse_Specified: boolean;
  1078.     procedure SetvalidationDirectResponse(Index: Integer; const Astring: string);
  1079.     function  validationDirectResponse_Specified(Index: Integer): boolean;
  1080.   published
  1081.     property validationDirectResponse: string  Index (IS_OPTN) read FvalidationDirectResponse write SetvalidationDirectResponse stored validationDirectResponse_Specified;
  1082.   end;
  1083.  
  1084.  
  1085.  
  1086.   // ************************************************************************ //
  1087.   // XML       : UpdateCustomerShippingAddressResponseType, global, <complexType>
  1088.   // Namespace : https://api.authorize.net/soap/v1/
  1089.   // ************************************************************************ //
  1090.   UpdateCustomerShippingAddressResponseType = class(ANetApiResponseType)
  1091.   private
  1092.   published
  1093.   end;
  1094.  
  1095.  
  1096.  
  1097.   // ************************************************************************ //
  1098.   // XML       : DeleteCustomerProfileResponseType, global, <complexType>
  1099.   // Namespace : https://api.authorize.net/soap/v1/
  1100.   // ************************************************************************ //
  1101.   DeleteCustomerProfileResponseType = class(ANetApiResponseType)
  1102.   private
  1103.   published
  1104.   end;
  1105.  
  1106.  
  1107.  
  1108.   // ************************************************************************ //
  1109.   // XML       : DeleteCustomerPaymentProfileResponseType, global, <complexType>
  1110.   // Namespace : https://api.authorize.net/soap/v1/
  1111.   // ************************************************************************ //
  1112.   DeleteCustomerPaymentProfileResponseType = class(ANetApiResponseType)
  1113.   private
  1114.   published
  1115.   end;
  1116.  
  1117.  
  1118.  
  1119.   // ************************************************************************ //
  1120.   // XML       : DeleteCustomerShippingAddressResponseType, global, <complexType>
  1121.   // Namespace : https://api.authorize.net/soap/v1/
  1122.   // ************************************************************************ //
  1123.   DeleteCustomerShippingAddressResponseType = class(ANetApiResponseType)
  1124.   private
  1125.   published
  1126.   end;
  1127.  
  1128.  
  1129.  
  1130.   // ************************************************************************ //
  1131.   // XML       : ProfileTransactionType, global, <complexType>
  1132.   // Namespace : https://api.authorize.net/soap/v1/
  1133.   // ************************************************************************ //
  1134.   ProfileTransactionType = class(TRemotable)
  1135.   private
  1136.     FprofileTransVoid: ProfileTransVoidType;
  1137.     FprofileTransVoid_Specified: boolean;
  1138.     FprofileTransRefund: ProfileTransRefundType;
  1139.     FprofileTransRefund_Specified: boolean;
  1140.     FprofileTransAuthOnly: ProfileTransAuthOnlyType;
  1141.     FprofileTransAuthOnly_Specified: boolean;
  1142.     FprofileTransPriorAuthCapture: ProfileTransPriorAuthCaptureType;
  1143.     FprofileTransPriorAuthCapture_Specified: boolean;
  1144.     FprofileTransAuthCapture: ProfileTransAuthCaptureType;
  1145.     FprofileTransAuthCapture_Specified: boolean;
  1146.     FprofileTransCaptureOnly: ProfileTransCaptureOnlyType;
  1147.     FprofileTransCaptureOnly_Specified: boolean;
  1148.     procedure SetprofileTransVoid(Index: Integer; const AProfileTransVoidType: ProfileTransVoidType);
  1149.     function  profileTransVoid_Specified(Index: Integer): boolean;
  1150.     procedure SetprofileTransRefund(Index: Integer; const AProfileTransRefundType: ProfileTransRefundType);
  1151.     function  profileTransRefund_Specified(Index: Integer): boolean;
  1152.     procedure SetprofileTransAuthOnly(Index: Integer; const AProfileTransAuthOnlyType: ProfileTransAuthOnlyType);
  1153.     function  profileTransAuthOnly_Specified(Index: Integer): boolean;
  1154.     procedure SetprofileTransPriorAuthCapture(Index: Integer; const AProfileTransPriorAuthCaptureType: ProfileTransPriorAuthCaptureType);
  1155.     function  profileTransPriorAuthCapture_Specified(Index: Integer): boolean;
  1156.     procedure SetprofileTransAuthCapture(Index: Integer; const AProfileTransAuthCaptureType: ProfileTransAuthCaptureType);
  1157.     function  profileTransAuthCapture_Specified(Index: Integer): boolean;
  1158.     procedure SetprofileTransCaptureOnly(Index: Integer; const AProfileTransCaptureOnlyType: ProfileTransCaptureOnlyType);
  1159.     function  profileTransCaptureOnly_Specified(Index: Integer): boolean;
  1160.   public
  1161.     destructor Destroy; override;
  1162.   published
  1163.     property profileTransVoid:             ProfileTransVoidType              Index (IS_OPTN) read FprofileTransVoid write SetprofileTransVoid stored profileTransVoid_Specified;
  1164.     property profileTransRefund:           ProfileTransRefundType            Index (IS_OPTN) read FprofileTransRefund write SetprofileTransRefund stored profileTransRefund_Specified;
  1165.     property profileTransAuthOnly:         ProfileTransAuthOnlyType          Index (IS_OPTN) read FprofileTransAuthOnly write SetprofileTransAuthOnly stored profileTransAuthOnly_Specified;
  1166.     property profileTransPriorAuthCapture: ProfileTransPriorAuthCaptureType  Index (IS_OPTN) read FprofileTransPriorAuthCapture write SetprofileTransPriorAuthCapture stored profileTransPriorAuthCapture_Specified;
  1167.     property profileTransAuthCapture:      ProfileTransAuthCaptureType       Index (IS_OPTN) read FprofileTransAuthCapture write SetprofileTransAuthCapture stored profileTransAuthCapture_Specified;
  1168.     property profileTransCaptureOnly:      ProfileTransCaptureOnlyType       Index (IS_OPTN) read FprofileTransCaptureOnly write SetprofileTransCaptureOnly stored profileTransCaptureOnly_Specified;
  1169.   end;
  1170.  
  1171.  
  1172.  
  1173.   // ************************************************************************ //
  1174.   // XML       : ProfileTransVoidType, global, <complexType>
  1175.   // Namespace : https://api.authorize.net/soap/v1/
  1176.   // ************************************************************************ //
  1177.   ProfileTransVoidType = class(TRemotable)
  1178.   private
  1179.     FcustomerProfileId: Int64;
  1180.     FcustomerProfileId_Specified: boolean;
  1181.     FcustomerPaymentProfileId: Int64;
  1182.     FcustomerPaymentProfileId_Specified: boolean;
  1183.     FcustomerShippingAddressId: Int64;
  1184.     FcustomerShippingAddressId_Specified: boolean;
  1185.     FtransId: string;
  1186.     FtransId_Specified: boolean;
  1187.     procedure SetcustomerProfileId(Index: Integer; const AInt64: Int64);
  1188.     function  customerProfileId_Specified(Index: Integer): boolean;
  1189.     procedure SetcustomerPaymentProfileId(Index: Integer; const AInt64: Int64);
  1190.     function  customerPaymentProfileId_Specified(Index: Integer): boolean;
  1191.     procedure SetcustomerShippingAddressId(Index: Integer; const AInt64: Int64);
  1192.     function  customerShippingAddressId_Specified(Index: Integer): boolean;
  1193.     procedure SettransId(Index: Integer; const Astring: string);
  1194.     function  transId_Specified(Index: Integer): boolean;
  1195.   published
  1196.     property customerProfileId:         Int64   Index (IS_OPTN) read FcustomerProfileId write SetcustomerProfileId stored customerProfileId_Specified;
  1197.     property customerPaymentProfileId:  Int64   Index (IS_OPTN) read FcustomerPaymentProfileId write SetcustomerPaymentProfileId stored customerPaymentProfileId_Specified;
  1198.     property customerShippingAddressId: Int64   Index (IS_OPTN) read FcustomerShippingAddressId write SetcustomerShippingAddressId stored customerShippingAddressId_Specified;
  1199.     property transId:                   string  Index (IS_OPTN) read FtransId write SettransId stored transId_Specified;
  1200.   end;
  1201.  
  1202.  
  1203.  
  1204.   // ************************************************************************ //
  1205.   // XML       : OrderExType, global, <complexType>
  1206.   // Namespace : https://api.authorize.net/soap/v1/
  1207.   // ************************************************************************ //
  1208.   OrderExType = class(OrderType)
  1209.   private
  1210.     FpurchaseOrderNumber: string;
  1211.     FpurchaseOrderNumber_Specified: boolean;
  1212.     procedure SetpurchaseOrderNumber(Index: Integer; const Astring: string);
  1213.     function  purchaseOrderNumber_Specified(Index: Integer): boolean;
  1214.   published
  1215.     property purchaseOrderNumber: string  Index (IS_OPTN) read FpurchaseOrderNumber write SetpurchaseOrderNumber stored purchaseOrderNumber_Specified;
  1216.   end;
  1217.  
  1218.  
  1219.  
  1220.   // ************************************************************************ //
  1221.   // XML       : ExtendedAmountType, global, <complexType>
  1222.   // Namespace : https://api.authorize.net/soap/v1/
  1223.   // ************************************************************************ //
  1224.   ExtendedAmountType = class(TRemotable)
  1225.   private
  1226.     Famount: TXSDecimal;
  1227.     Fname_: string;
  1228.     Fname__Specified: boolean;
  1229.     Fdescription: string;
  1230.     Fdescription_Specified: boolean;
  1231.     procedure Setname_(Index: Integer; const Astring: string);
  1232.     function  name__Specified(Index: Integer): boolean;
  1233.     procedure Setdescription(Index: Integer; const Astring: string);
  1234.     function  description_Specified(Index: Integer): boolean;
  1235.   public
  1236.     destructor Destroy; override;
  1237.   published
  1238.     property amount:      TXSDecimal  read Famount write Famount;
  1239.     property name_:       string      Index (IS_OPTN) read Fname_ write Setname_ stored name__Specified;
  1240.     property description: string      Index (IS_OPTN) read Fdescription write Setdescription stored description_Specified;
  1241.   end;
  1242.  
  1243.  
  1244.  
  1245.   // ************************************************************************ //
  1246.   // XML       : LineItemType, global, <complexType>
  1247.   // Namespace : https://api.authorize.net/soap/v1/
  1248.   // ************************************************************************ //
  1249.   LineItemType = class(TRemotable)
  1250.   private
  1251.     FitemId: string;
  1252.     FitemId_Specified: boolean;
  1253.     Fname_: string;
  1254.     Fname__Specified: boolean;
  1255.     Fdescription: string;
  1256.     Fdescription_Specified: boolean;
  1257.     Fquantity: TXSDecimal;
  1258.     FunitPrice: TXSDecimal;
  1259.     Ftaxable: Boolean;
  1260.     Ftaxable_Specified: boolean;
  1261.     procedure SetitemId(Index: Integer; const Astring: string);
  1262.     function  itemId_Specified(Index: Integer): boolean;
  1263.     procedure Setname_(Index: Integer; const Astring: string);
  1264.     function  name__Specified(Index: Integer): boolean;
  1265.     procedure Setdescription(Index: Integer; const Astring: string);
  1266.     function  description_Specified(Index: Integer): boolean;
  1267.     procedure Settaxable(Index: Integer; const ABoolean: Boolean);
  1268.     function  taxable_Specified(Index: Integer): boolean;
  1269.   public
  1270.     destructor Destroy; override;
  1271.   published
  1272.     property itemId:      string      Index (IS_OPTN) read FitemId write SetitemId stored itemId_Specified;
  1273.     property name_:       string      Index (IS_OPTN) read Fname_ write Setname_ stored name__Specified;
  1274.     property description: string      Index (IS_OPTN) read Fdescription write Setdescription stored description_Specified;
  1275.     property quantity:    TXSDecimal  read Fquantity write Fquantity;
  1276.     property unitPrice:   TXSDecimal  read FunitPrice write FunitPrice;
  1277.     property taxable:     Boolean     Index (IS_OPTN) read Ftaxable write Settaxable stored taxable_Specified;
  1278.   end;
  1279.  
  1280.  
  1281.  
  1282.   // ************************************************************************ //
  1283.   // XML       : CreateCustomerProfileTransactionResponseType, global, <complexType>
  1284.   // Namespace : https://api.authorize.net/soap/v1/
  1285.   // ************************************************************************ //
  1286.   CreateCustomerProfileTransactionResponseType = class(ANetApiResponseType)
  1287.   private
  1288.     FdirectResponse: string;
  1289.     FdirectResponse_Specified: boolean;
  1290.     procedure SetdirectResponse(Index: Integer; const Astring: string);
  1291.     function  directResponse_Specified(Index: Integer): boolean;
  1292.   published
  1293.     property directResponse: string  Index (IS_OPTN) read FdirectResponse write SetdirectResponse stored directResponse_Specified;
  1294.   end;
  1295.  
  1296.  
  1297.  
  1298.   // ************************************************************************ //
  1299.   // XML       : ValidateCustomerPaymentProfileResponseType, global, <complexType>
  1300.   // Namespace : https://api.authorize.net/soap/v1/
  1301.   // ************************************************************************ //
  1302.   ValidateCustomerPaymentProfileResponseType = class(ANetApiResponseType)
  1303.   private
  1304.     FdirectResponse: string;
  1305.     FdirectResponse_Specified: boolean;
  1306.     procedure SetdirectResponse(Index: Integer; const Astring: string);
  1307.     function  directResponse_Specified(Index: Integer): boolean;
  1308.   published
  1309.     property directResponse: string  Index (IS_OPTN) read FdirectResponse write SetdirectResponse stored directResponse_Specified;
  1310.   end;
  1311.  
  1312.  
  1313.  
  1314.   // ************************************************************************ //
  1315.   // XML       : GetCustomerProfileIdsResponseType, global, <complexType>
  1316.   // Namespace : https://api.authorize.net/soap/v1/
  1317.   // ************************************************************************ //
  1318.   GetCustomerProfileIdsResponseType = class(ANetApiResponseType)
  1319.   private
  1320.     Fids: ArrayOfLong;
  1321.     Fids_Specified: boolean;
  1322.     procedure Setids(Index: Integer; const AArrayOfLong: ArrayOfLong);
  1323.     function  ids_Specified(Index: Integer): boolean;
  1324.   published
  1325.     property ids: ArrayOfLong  Index (IS_OPTN) read Fids write Setids stored ids_Specified;
  1326.   end;
  1327.  
  1328.  
  1329.  
  1330.   // ************************************************************************ //
  1331.   // XML       : UpdateSplitTenderGroupResponseType, global, <complexType>
  1332.   // Namespace : https://api.authorize.net/soap/v1/
  1333.   // ************************************************************************ //
  1334.   UpdateSplitTenderGroupResponseType = class(ANetApiResponseType)
  1335.   private
  1336.   published
  1337.   end;
  1338.  
  1339.  
  1340.  
  1341.   // ************************************************************************ //
  1342.   // XML       : GetTransactionDetailsResponseType, global, <complexType>
  1343.   // Namespace : https://api.authorize.net/soap/v1/
  1344.   // ************************************************************************ //
  1345.   GetTransactionDetailsResponseType = class(ANetApiResponseType)
  1346.   private
  1347.     Ftransaction: TransactionDetailsType;
  1348.     Ftransaction_Specified: boolean;
  1349.     procedure Settransaction(Index: Integer; const ATransactionDetailsType: TransactionDetailsType);
  1350.     function  transaction_Specified(Index: Integer): boolean;
  1351.   public
  1352.     destructor Destroy; override;
  1353.   published
  1354.     property transaction: TransactionDetailsType  Index (IS_OPTN) read Ftransaction write Settransaction stored transaction_Specified;
  1355.   end;
  1356.  
  1357.   ArrayOfFDSFilterType = array of FDSFilter;    { "https://api.authorize.net/soap/v1/"[GblCplx] }
  1358.  
  1359.  
  1360.   // ************************************************************************ //
  1361.   // XML       : CustomerDataType, global, <complexType>
  1362.   // Namespace : https://api.authorize.net/soap/v1/
  1363.   // ************************************************************************ //
  1364.   CustomerDataType = class(TRemotable)
  1365.   private
  1366.     Ftype_: CustomerTypeEnum;
  1367.     Ftype__Specified: boolean;
  1368.     Fid: string;
  1369.     Fid_Specified: boolean;
  1370.     Femail: string;
  1371.     Femail_Specified: boolean;
  1372.     FdriversLicense: DriversLicenseType;
  1373.     FdriversLicense_Specified: boolean;
  1374.     FtaxId: string;
  1375.     FtaxId_Specified: boolean;
  1376.     procedure Settype_(Index: Integer; const ACustomerTypeEnum: CustomerTypeEnum);
  1377.     function  type__Specified(Index: Integer): boolean;
  1378.     procedure Setid(Index: Integer; const Astring: string);
  1379.     function  id_Specified(Index: Integer): boolean;
  1380.     procedure Setemail(Index: Integer; const Astring: string);
  1381.     function  email_Specified(Index: Integer): boolean;
  1382.     procedure SetdriversLicense(Index: Integer; const ADriversLicenseType: DriversLicenseType);
  1383.     function  driversLicense_Specified(Index: Integer): boolean;
  1384.     procedure SettaxId(Index: Integer; const Astring: string);
  1385.     function  taxId_Specified(Index: Integer): boolean;
  1386.   public
  1387.     destructor Destroy; override;
  1388.   published
  1389.     property type_:          CustomerTypeEnum    Index (IS_OPTN) read Ftype_ write Settype_ stored type__Specified;
  1390.     property id:             string              Index (IS_OPTN) read Fid write Setid stored id_Specified;
  1391.     property email:          string              Index (IS_OPTN) read Femail write Setemail stored email_Specified;
  1392.     property driversLicense: DriversLicenseType  Index (IS_OPTN) read FdriversLicense write SetdriversLicense stored driversLicense_Specified;
  1393.     property taxId:          string              Index (IS_OPTN) read FtaxId write SettaxId stored taxId_Specified;
  1394.   end;
  1395.  
  1396.  
  1397.  
  1398.   // ************************************************************************ //
  1399.   // XML       : FDSFilterType, global, <complexType>
  1400.   // Namespace : https://api.authorize.net/soap/v1/
  1401.   // ************************************************************************ //
  1402.   FDSFilterType = class(TRemotable)
  1403.   private
  1404.     Fname_: string;
  1405.     Fname__Specified: boolean;
  1406.     Faction: string;
  1407.     Faction_Specified: boolean;
  1408.     procedure Setname_(Index: Integer; const Astring: string);
  1409.     function  name__Specified(Index: Integer): boolean;
  1410.     procedure Setaction(Index: Integer; const Astring: string);
  1411.     function  action_Specified(Index: Integer): boolean;
  1412.   published
  1413.     property name_:  string  Index (IS_OPTN) read Fname_ write Setname_ stored name__Specified;
  1414.     property action: string  Index (IS_OPTN) read Faction write Setaction stored action_Specified;
  1415.   end;
  1416.  
  1417.   ArrayOfBatchStatisticType = array of statistic;   { "https://api.authorize.net/soap/v1/"[GblCplx] }
  1418.  
  1419.  
  1420.   // ************************************************************************ //
  1421.   // XML       : BatchDetailsType, global, <complexType>
  1422.   // Namespace : https://api.authorize.net/soap/v1/
  1423.   // ************************************************************************ //
  1424.   BatchDetailsType = class(TRemotable)
  1425.   private
  1426.     FbatchId: string;
  1427.     FbatchId_Specified: boolean;
  1428.     FsettlementTimeUTC: TXSDateTime;
  1429.     FsettlementTimeUTC_Specified: boolean;
  1430.     FsettlementTimeLocal: TXSDateTime;
  1431.     FsettlementTimeLocal_Specified: boolean;
  1432.     FsettlementState: string;
  1433.     FsettlementState_Specified: boolean;
  1434.     FpaymentMethod: string;
  1435.     FpaymentMethod_Specified: boolean;
  1436.     Fstatistics: ArrayOfBatchStatisticType;
  1437.     Fstatistics_Specified: boolean;
  1438.     procedure SetbatchId(Index: Integer; const Astring: string);
  1439.     function  batchId_Specified(Index: Integer): boolean;
  1440.     procedure SetsettlementTimeUTC(Index: Integer; const ATXSDateTime: TXSDateTime);
  1441.     function  settlementTimeUTC_Specified(Index: Integer): boolean;
  1442.     procedure SetsettlementTimeLocal(Index: Integer; const ATXSDateTime: TXSDateTime);
  1443.     function  settlementTimeLocal_Specified(Index: Integer): boolean;
  1444.     procedure SetsettlementState(Index: Integer; const Astring: string);
  1445.     function  settlementState_Specified(Index: Integer): boolean;
  1446.     procedure SetpaymentMethod(Index: Integer; const Astring: string);
  1447.     function  paymentMethod_Specified(Index: Integer): boolean;
  1448.     procedure Setstatistics(Index: Integer; const AArrayOfBatchStatisticType: ArrayOfBatchStatisticType);
  1449.     function  statistics_Specified(Index: Integer): boolean;
  1450.   public
  1451.     destructor Destroy; override;
  1452.   published
  1453.     property batchId:             string                     Index (IS_OPTN) read FbatchId write SetbatchId stored batchId_Specified;
  1454.     property settlementTimeUTC:   TXSDateTime                Index (IS_OPTN) read FsettlementTimeUTC write SetsettlementTimeUTC stored settlementTimeUTC_Specified;
  1455.     property settlementTimeLocal: TXSDateTime                Index (IS_OPTN) read FsettlementTimeLocal write SetsettlementTimeLocal stored settlementTimeLocal_Specified;
  1456.     property settlementState:     string                     Index (IS_OPTN) read FsettlementState write SetsettlementState stored settlementState_Specified;
  1457.     property paymentMethod:       string                     Index (IS_OPTN) read FpaymentMethod write SetpaymentMethod stored paymentMethod_Specified;
  1458.     property statistics:          ArrayOfBatchStatisticType  Index (IS_OPTN) read Fstatistics write Setstatistics stored statistics_Specified;
  1459.   end;
  1460.  
  1461.  
  1462.  
  1463.   // ************************************************************************ //
  1464.   // XML       : BatchStatisticType, global, <complexType>
  1465.   // Namespace : https://api.authorize.net/soap/v1/
  1466.   // ************************************************************************ //
  1467.   BatchStatisticType = class(TRemotable)
  1468.   private
  1469.     FaccountType: string;
  1470.     FaccountType_Specified: boolean;
  1471.     FcurrencyCode: string;
  1472.     FcurrencyCode_Specified: boolean;
  1473.     FchargeAmount: TXSDecimal;
  1474.     FchargeCount: Integer;
  1475.     FrefundAmount: TXSDecimal;
  1476.     FrefundCount: Integer;
  1477.     FvoidCount: Integer;
  1478.     FdeclineCount: Integer;
  1479.     FerrorCount: Integer;
  1480.     FreturnedItemAmount: TXSDecimal;
  1481.     FreturnedItemAmount_Specified: boolean;
  1482.     FreturnedItemAmountSpecified: Boolean;
  1483.     FreturnedItemCount: Integer;
  1484.     FreturnedItemCount_Specified: boolean;
  1485.     FreturnedItemCountSpecified: Boolean;
  1486.     FchargebackAmount: TXSDecimal;
  1487.     FchargebackAmount_Specified: boolean;
  1488.     FchargebackAmountSpecified: Boolean;
  1489.     FchargebackCount: Integer;
  1490.     FchargebackCount_Specified: boolean;
  1491.     FchargebackCountSpecified: Boolean;
  1492.     FcorrectionNoticeCount: Integer;
  1493.     FcorrectionNoticeCount_Specified: boolean;
  1494.     FcorrectionNoticeCountSpecified: Boolean;
  1495.     FchargeChargeBackAmount: TXSDecimal;
  1496.     FchargeChargeBackAmount_Specified: boolean;
  1497.     FchargeChargeBackAmountSpecified: Boolean;
  1498.     FchargeChargeBackCount: Integer;
  1499.     FchargeChargeBackCount_Specified: boolean;
  1500.     FchargeChargeBackCountSpecified: Boolean;
  1501.     FrefundChargeBackAmount: TXSDecimal;
  1502.     FrefundChargeBackAmount_Specified: boolean;
  1503.     FrefundChargeBackAmountSpecified: Boolean;
  1504.     FrefundChargeBackCount: Integer;
  1505.     FrefundChargeBackCount_Specified: boolean;
  1506.     FrefundChargeBackCountSpecified: Boolean;
  1507.     FchargeReturnedItemsAmount: TXSDecimal;
  1508.     FchargeReturnedItemsAmount_Specified: boolean;
  1509.     FchargeReturnedItemsAmountSpecified: Boolean;
  1510.     FchargeReturnedItemsCount: Integer;
  1511.     FchargeReturnedItemsCount_Specified: boolean;
  1512.     FchargeReturnedItemsCountSpecified: Boolean;
  1513.     FrefundReturnedItemsAmount: TXSDecimal;
  1514.     FrefundReturnedItemsAmount_Specified: boolean;
  1515.     FrefundReturnedItemsAmountSpecified: Boolean;
  1516.     FrefundReturnedItemsCount: Integer;
  1517.     FrefundReturnedItemsCount_Specified: boolean;
  1518.     FrefundReturnedItemsCountSpecified: Boolean;
  1519.     procedure SetaccountType(Index: Integer; const Astring: string);
  1520.     function  accountType_Specified(Index: Integer): boolean;
  1521.     procedure SetcurrencyCode(Index: Integer; const Astring: string);
  1522.     function  currencyCode_Specified(Index: Integer): boolean;
  1523.     procedure SetreturnedItemAmount(Index: Integer; const ATXSDecimal: TXSDecimal);
  1524.     function  returnedItemAmount_Specified(Index: Integer): boolean;
  1525.     procedure SetreturnedItemCount(Index: Integer; const AInteger: Integer);
  1526.     function  returnedItemCount_Specified(Index: Integer): boolean;
  1527.     procedure SetchargebackAmount(Index: Integer; const ATXSDecimal: TXSDecimal);
  1528.     function  chargebackAmount_Specified(Index: Integer): boolean;
  1529.     procedure SetchargebackCount(Index: Integer; const AInteger: Integer);
  1530.     function  chargebackCount_Specified(Index: Integer): boolean;
  1531.     procedure SetcorrectionNoticeCount(Index: Integer; const AInteger: Integer);
  1532.     function  correctionNoticeCount_Specified(Index: Integer): boolean;
  1533.     procedure SetchargeChargeBackAmount(Index: Integer; const ATXSDecimal: TXSDecimal);
  1534.     function  chargeChargeBackAmount_Specified(Index: Integer): boolean;
  1535.     procedure SetchargeChargeBackCount(Index: Integer; const AInteger: Integer);
  1536.     function  chargeChargeBackCount_Specified(Index: Integer): boolean;
  1537.     procedure SetrefundChargeBackAmount(Index: Integer; const ATXSDecimal: TXSDecimal);
  1538.     function  refundChargeBackAmount_Specified(Index: Integer): boolean;
  1539.     procedure SetrefundChargeBackCount(Index: Integer; const AInteger: Integer);
  1540.     function  refundChargeBackCount_Specified(Index: Integer): boolean;
  1541.     procedure SetchargeReturnedItemsAmount(Index: Integer; const ATXSDecimal: TXSDecimal);
  1542.     function  chargeReturnedItemsAmount_Specified(Index: Integer): boolean;
  1543.     procedure SetchargeReturnedItemsCount(Index: Integer; const AInteger: Integer);
  1544.     function  chargeReturnedItemsCount_Specified(Index: Integer): boolean;
  1545.     procedure SetrefundReturnedItemsAmount(Index: Integer; const ATXSDecimal: TXSDecimal);
  1546.     function  refundReturnedItemsAmount_Specified(Index: Integer): boolean;
  1547.     procedure SetrefundReturnedItemsCount(Index: Integer; const AInteger: Integer);
  1548.     function  refundReturnedItemsCount_Specified(Index: Integer): boolean;
  1549.   public
  1550.     destructor Destroy; override;
  1551.   published
  1552.     property accountType:                        string      Index (IS_OPTN) read FaccountType write SetaccountType stored accountType_Specified;
  1553.     property currencyCode:                       string      Index (IS_OPTN) read FcurrencyCode write SetcurrencyCode stored currencyCode_Specified;
  1554.     property chargeAmount:                       TXSDecimal  read FchargeAmount write FchargeAmount;
  1555.     property chargeCount:                        Integer     read FchargeCount write FchargeCount;
  1556.     property refundAmount:                       TXSDecimal  read FrefundAmount write FrefundAmount;
  1557.     property refundCount:                        Integer     read FrefundCount write FrefundCount;
  1558.     property voidCount:                          Integer     read FvoidCount write FvoidCount;
  1559.     property declineCount:                       Integer     read FdeclineCount write FdeclineCount;
  1560.     property errorCount:                         Integer     read FerrorCount write FerrorCount;
  1561.     property returnedItemAmount:                 TXSDecimal  Index (IS_OPTN) read FreturnedItemAmount write SetreturnedItemAmount stored returnedItemAmount_Specified;
  1562.     property returnedItemAmountSpecified:        Boolean     read FreturnedItemAmountSpecified write FreturnedItemAmountSpecified;
  1563.     property returnedItemCount:                  Integer     Index (IS_OPTN) read FreturnedItemCount write SetreturnedItemCount stored returnedItemCount_Specified;
  1564.     property returnedItemCountSpecified:         Boolean     read FreturnedItemCountSpecified write FreturnedItemCountSpecified;
  1565.     property chargebackAmount:                   TXSDecimal  Index (IS_OPTN) read FchargebackAmount write SetchargebackAmount stored chargebackAmount_Specified;
  1566.     property chargebackAmountSpecified:          Boolean     read FchargebackAmountSpecified write FchargebackAmountSpecified;
  1567.     property chargebackCount:                    Integer     Index (IS_OPTN) read FchargebackCount write SetchargebackCount stored chargebackCount_Specified;
  1568.     property chargebackCountSpecified:           Boolean     read FchargebackCountSpecified write FchargebackCountSpecified;
  1569.     property correctionNoticeCount:              Integer     Index (IS_OPTN) read FcorrectionNoticeCount write SetcorrectionNoticeCount stored correctionNoticeCount_Specified;
  1570.     property correctionNoticeCountSpecified:     Boolean     read FcorrectionNoticeCountSpecified write FcorrectionNoticeCountSpecified;
  1571.     property chargeChargeBackAmount:             TXSDecimal  Index (IS_OPTN) read FchargeChargeBackAmount write SetchargeChargeBackAmount stored chargeChargeBackAmount_Specified;
  1572.     property chargeChargeBackAmountSpecified:    Boolean     read FchargeChargeBackAmountSpecified write FchargeChargeBackAmountSpecified;
  1573.     property chargeChargeBackCount:              Integer     Index (IS_OPTN) read FchargeChargeBackCount write SetchargeChargeBackCount stored chargeChargeBackCount_Specified;
  1574.     property chargeChargeBackCountSpecified:     Boolean     read FchargeChargeBackCountSpecified write FchargeChargeBackCountSpecified;
  1575.     property refundChargeBackAmount:             TXSDecimal  Index (IS_OPTN) read FrefundChargeBackAmount write SetrefundChargeBackAmount stored refundChargeBackAmount_Specified;
  1576.     property refundChargeBackAmountSpecified:    Boolean     read FrefundChargeBackAmountSpecified write FrefundChargeBackAmountSpecified;
  1577.     property refundChargeBackCount:              Integer     Index (IS_OPTN) read FrefundChargeBackCount write SetrefundChargeBackCount stored refundChargeBackCount_Specified;
  1578.     property refundChargeBackCountSpecified:     Boolean     read FrefundChargeBackCountSpecified write FrefundChargeBackCountSpecified;
  1579.     property chargeReturnedItemsAmount:          TXSDecimal  Index (IS_OPTN) read FchargeReturnedItemsAmount write SetchargeReturnedItemsAmount stored chargeReturnedItemsAmount_Specified;
  1580.     property chargeReturnedItemsAmountSpecified: Boolean     read FchargeReturnedItemsAmountSpecified write FchargeReturnedItemsAmountSpecified;
  1581.     property chargeReturnedItemsCount:           Integer     Index (IS_OPTN) read FchargeReturnedItemsCount write SetchargeReturnedItemsCount stored chargeReturnedItemsCount_Specified;
  1582.     property chargeReturnedItemsCountSpecified:  Boolean     read FchargeReturnedItemsCountSpecified write FchargeReturnedItemsCountSpecified;
  1583.     property refundReturnedItemsAmount:          TXSDecimal  Index (IS_OPTN) read FrefundReturnedItemsAmount write SetrefundReturnedItemsAmount stored refundReturnedItemsAmount_Specified;
  1584.     property refundReturnedItemsAmountSpecified: Boolean     read FrefundReturnedItemsAmountSpecified write FrefundReturnedItemsAmountSpecified;
  1585.     property refundReturnedItemsCount:           Integer     Index (IS_OPTN) read FrefundReturnedItemsCount write SetrefundReturnedItemsCount stored refundReturnedItemsCount_Specified;
  1586.     property refundReturnedItemsCountSpecified:  Boolean     read FrefundReturnedItemsCountSpecified write FrefundReturnedItemsCountSpecified;
  1587.   end;
  1588.  
  1589.  
  1590.  
  1591.   // ************************************************************************ //
  1592.   // XML       : GetSettledBatchListRequestType, global, <complexType>
  1593.   // Namespace : https://api.authorize.net/soap/v1/
  1594.   // ************************************************************************ //
  1595.   GetSettledBatchListRequestType = class(TRemotable)
  1596.   private
  1597.     FincludeStatistics: Boolean;
  1598.     FincludeStatistics_Specified: boolean;
  1599.     FfirstSettlementDate: TXSDateTime;
  1600.     FfirstSettlementDate_Specified: boolean;
  1601.     FlastSettlementDate: TXSDateTime;
  1602.     FlastSettlementDate_Specified: boolean;
  1603.     procedure SetincludeStatistics(Index: Integer; const ABoolean: Boolean);
  1604.     function  includeStatistics_Specified(Index: Integer): boolean;
  1605.     procedure SetfirstSettlementDate(Index: Integer; const ATXSDateTime: TXSDateTime);
  1606.     function  firstSettlementDate_Specified(Index: Integer): boolean;
  1607.     procedure SetlastSettlementDate(Index: Integer; const ATXSDateTime: TXSDateTime);
  1608.     function  lastSettlementDate_Specified(Index: Integer): boolean;
  1609.   public
  1610.     destructor Destroy; override;
  1611.   published
  1612.     property includeStatistics:   Boolean      Index (IS_OPTN) read FincludeStatistics write SetincludeStatistics stored includeStatistics_Specified;
  1613.     property firstSettlementDate: TXSDateTime  Index (IS_OPTN) read FfirstSettlementDate write SetfirstSettlementDate stored firstSettlementDate_Specified;
  1614.     property lastSettlementDate:  TXSDateTime  Index (IS_OPTN) read FlastSettlementDate write SetlastSettlementDate stored lastSettlementDate_Specified;
  1615.   end;
  1616.  
  1617.   ArrayOfBatchDetailsType = array of batch;     { "https://api.authorize.net/soap/v1/"[GblCplx] }
  1618.  
  1619.  
  1620.   // ************************************************************************ //
  1621.   // XML       : GetSettledBatchListResponseType, global, <complexType>
  1622.   // Namespace : https://api.authorize.net/soap/v1/
  1623.   // ************************************************************************ //
  1624.   GetSettledBatchListResponseType = class(ANetApiResponseType)
  1625.   private
  1626.     FbatchList: ArrayOfBatchDetailsType;
  1627.     FbatchList_Specified: boolean;
  1628.     procedure SetbatchList(Index: Integer; const AArrayOfBatchDetailsType: ArrayOfBatchDetailsType);
  1629.     function  batchList_Specified(Index: Integer): boolean;
  1630.   public
  1631.     destructor Destroy; override;
  1632.   published
  1633.     property batchList: ArrayOfBatchDetailsType  Index (IS_OPTN) read FbatchList write SetbatchList stored batchList_Specified;
  1634.   end;
  1635.  
  1636.  
  1637.  
  1638.   // ************************************************************************ //
  1639.   // XML       : GetTransactionListRequestType, global, <complexType>
  1640.   // Namespace : https://api.authorize.net/soap/v1/
  1641.   // ************************************************************************ //
  1642.   GetTransactionListRequestType = class(TRemotable)
  1643.   private
  1644.     FbatchId: string;
  1645.     FbatchId_Specified: boolean;
  1646.     procedure SetbatchId(Index: Integer; const Astring: string);
  1647.     function  batchId_Specified(Index: Integer): boolean;
  1648.   published
  1649.     property batchId: string  Index (IS_OPTN) read FbatchId write SetbatchId stored batchId_Specified;
  1650.   end;
  1651.  
  1652.   ArrayOfTransactionSummaryType = array of transaction;   { "https://api.authorize.net/soap/v1/"[GblCplx] }
  1653.  
  1654.  
  1655.   // ************************************************************************ //
  1656.   // XML       : GetTransactionListResponseType, global, <complexType>
  1657.   // Namespace : https://api.authorize.net/soap/v1/
  1658.   // ************************************************************************ //
  1659.   GetTransactionListResponseType = class(ANetApiResponseType)
  1660.   private
  1661.     Ftransactions: ArrayOfTransactionSummaryType;
  1662.     Ftransactions_Specified: boolean;
  1663.     procedure Settransactions(Index: Integer; const AArrayOfTransactionSummaryType: ArrayOfTransactionSummaryType);
  1664.     function  transactions_Specified(Index: Integer): boolean;
  1665.   public
  1666.     destructor Destroy; override;
  1667.   published
  1668.     property transactions: ArrayOfTransactionSummaryType  Index (IS_OPTN) read Ftransactions write Settransactions stored transactions_Specified;
  1669.   end;
  1670.  
  1671.  
  1672.  
  1673.   // ************************************************************************ //
  1674.   // XML       : TransactionSummaryType, global, <complexType>
  1675.   // Namespace : https://api.authorize.net/soap/v1/
  1676.   // ************************************************************************ //
  1677.   TransactionSummaryType = class(TRemotable)
  1678.   private
  1679.     FtransId: string;
  1680.     FtransId_Specified: boolean;
  1681.     FsubmitTimeUTC: TXSDateTime;
  1682.     FsubmitTimeLocal: TXSDateTime;
  1683.     FtransactionStatus: string;
  1684.     FtransactionStatus_Specified: boolean;
  1685.     FinvoiceNumber: string;
  1686.     FinvoiceNumber_Specified: boolean;
  1687.     FfirstName: string;
  1688.     FfirstName_Specified: boolean;
  1689.     FlastName: string;
  1690.     FlastName_Specified: boolean;
  1691.     FaccountType: string;
  1692.     FaccountType_Specified: boolean;
  1693.     FaccountNumber: string;
  1694.     FaccountNumber_Specified: boolean;
  1695.     FsettleAmount: TXSDecimal;
  1696.     procedure SettransId(Index: Integer; const Astring: string);
  1697.     function  transId_Specified(Index: Integer): boolean;
  1698.     procedure SettransactionStatus(Index: Integer; const Astring: string);
  1699.     function  transactionStatus_Specified(Index: Integer): boolean;
  1700.     procedure SetinvoiceNumber(Index: Integer; const Astring: string);
  1701.     function  invoiceNumber_Specified(Index: Integer): boolean;
  1702.     procedure SetfirstName(Index: Integer; const Astring: string);
  1703.     function  firstName_Specified(Index: Integer): boolean;
  1704.     procedure SetlastName(Index: Integer; const Astring: string);
  1705.     function  lastName_Specified(Index: Integer): boolean;
  1706.     procedure SetaccountType(Index: Integer; const Astring: string);
  1707.     function  accountType_Specified(Index: Integer): boolean;
  1708.     procedure SetaccountNumber(Index: Integer; const Astring: string);
  1709.     function  accountNumber_Specified(Index: Integer): boolean;
  1710.   public
  1711.     destructor Destroy; override;
  1712.   published
  1713.     property transId:           string       Index (IS_OPTN) read FtransId write SettransId stored transId_Specified;
  1714.     property submitTimeUTC:     TXSDateTime  read FsubmitTimeUTC write FsubmitTimeUTC;
  1715.     property submitTimeLocal:   TXSDateTime  read FsubmitTimeLocal write FsubmitTimeLocal;
  1716.     property transactionStatus: string       Index (IS_OPTN) read FtransactionStatus write SettransactionStatus stored transactionStatus_Specified;
  1717.     property invoiceNumber:     string       Index (IS_OPTN) read FinvoiceNumber write SetinvoiceNumber stored invoiceNumber_Specified;
  1718.     property firstName:         string       Index (IS_OPTN) read FfirstName write SetfirstName stored firstName_Specified;
  1719.     property lastName:          string       Index (IS_OPTN) read FlastName write SetlastName stored lastName_Specified;
  1720.     property accountType:       string       Index (IS_OPTN) read FaccountType write SetaccountType stored accountType_Specified;
  1721.     property accountNumber:     string       Index (IS_OPTN) read FaccountNumber write SetaccountNumber stored accountNumber_Specified;
  1722.     property settleAmount:      TXSDecimal   read FsettleAmount write FsettleAmount;
  1723.   end;
  1724.  
  1725.  
  1726.  
  1727.   // ************************************************************************ //
  1728.   // XML       : FDSFilter, alias
  1729.   // Namespace : https://api.authorize.net/soap/v1/
  1730.   // ************************************************************************ //
  1731.   FDSFilter = class(FDSFilterType)
  1732.   private
  1733.   published
  1734.   end;
  1735.  
  1736.  
  1737.  
  1738.   // ************************************************************************ //
  1739.   // XML       : statistic, alias
  1740.   // Namespace : https://api.authorize.net/soap/v1/
  1741.   // ************************************************************************ //
  1742.   statistic = class(BatchStatisticType)
  1743.   private
  1744.   published
  1745.   end;
  1746.  
  1747.  
  1748.  
  1749.   // ************************************************************************ //
  1750.   // XML       : batch, alias
  1751.   // Namespace : https://api.authorize.net/soap/v1/
  1752.   // ************************************************************************ //
  1753.   batch = class(BatchDetailsType)
  1754.   private
  1755.   published
  1756.   end;
  1757.  
  1758.  
  1759.  
  1760.   // ************************************************************************ //
  1761.   // XML       : transaction, alias
  1762.   // Namespace : https://api.authorize.net/soap/v1/
  1763.   // ************************************************************************ //
  1764.   transaction = class(TransactionSummaryType)
  1765.   private
  1766.   published
  1767.   end;
  1768.  
  1769.   Array_Of_LineItemType = array of LineItemType;   { "https://api.authorize.net/soap/v1/"[GblUbnd] }
  1770.  
  1771.  
  1772.   // ************************************************************************ //
  1773.   // XML       : TransactionDetailsType, global, <complexType>
  1774.   // Namespace : https://api.authorize.net/soap/v1/
  1775.   // ************************************************************************ //
  1776.   TransactionDetailsType = class(TRemotable)
  1777.   private
  1778.     FtransId: string;
  1779.     FtransId_Specified: boolean;
  1780.     FrefTransId: string;
  1781.     FrefTransId_Specified: boolean;
  1782.     FsplitTenderId: Int64;
  1783.     FsplitTenderId_Specified: boolean;
  1784.     FsubmitTimeUTC: TXSDateTime;
  1785.     FsubmitTimeLocal: TXSDateTime;
  1786.     FtransactionType: string;
  1787.     FtransactionType_Specified: boolean;
  1788.     FtransactionStatus: string;
  1789.     FtransactionStatus_Specified: boolean;
  1790.     FresponseCode: Integer;
  1791.     FresponseReasonCode: Integer;
  1792.     FresponseReasonDescription: string;
  1793.     FresponseReasonDescription_Specified: boolean;
  1794.     FauthCode: string;
  1795.     FauthCode_Specified: boolean;
  1796.     FAVSResponse: string;
  1797.     FAVSResponse_Specified: boolean;
  1798.     FcardCodeResponse: string;
  1799.     FcardCodeResponse_Specified: boolean;
  1800.     FCAVVResponse: string;
  1801.     FCAVVResponse_Specified: boolean;
  1802.     FFDSFilterAction: string;
  1803.     FFDSFilterAction_Specified: boolean;
  1804.     FFDSFilters: ArrayOfFDSFilterType;
  1805.     FFDSFilters_Specified: boolean;
  1806.     Fbatch: BatchDetailsType;
  1807.     Fbatch_Specified: boolean;
  1808.     Forder: OrderExType;
  1809.     Forder_Specified: boolean;
  1810.     FrequestedAmount: TXSDecimal;
  1811.     FrequestedAmount_Specified: boolean;
  1812.     FauthAmount: TXSDecimal;
  1813.     FsettleAmount: TXSDecimal;
  1814.     Ftax: ExtendedAmountType;
  1815.     Ftax_Specified: boolean;
  1816.     Fshipping: ExtendedAmountType;
  1817.     Fshipping_Specified: boolean;
  1818.     Fduty: ExtendedAmountType;
  1819.     Fduty_Specified: boolean;
  1820.     FlineItems: Array_Of_LineItemType;
  1821.     FlineItems_Specified: boolean;
  1822.     FprepaidBalanceRemaining: TXSDecimal;
  1823.     FprepaidBalanceRemaining_Specified: boolean;
  1824.     FcurrencyCode: string;
  1825.     FcurrencyCode_Specified: boolean;
  1826.     FtaxExempt: Boolean;
  1827.     FtaxExempt_Specified: boolean;
  1828.     Fpayment: PaymentMaskedType;
  1829.     Fpayment_Specified: boolean;
  1830.     Fcustomer: CustomerDataType;
  1831.     Fcustomer_Specified: boolean;
  1832.     FbillTo: CustomerAddressType;
  1833.     FbillTo_Specified: boolean;
  1834.     FshipTo: NameAndAddressType;
  1835.     FshipTo_Specified: boolean;
  1836.     FrecurringBilling: Boolean;
  1837.     FrecurringBilling_Specified: boolean;
  1838.     FcustomerIP: string;
  1839.     FcustomerIP_Specified: boolean;
  1840.     procedure SettransId(Index: Integer; const Astring: string);
  1841.     function  transId_Specified(Index: Integer): boolean;
  1842.     procedure SetrefTransId(Index: Integer; const Astring: string);
  1843.     function  refTransId_Specified(Index: Integer): boolean;
  1844.     procedure SetsplitTenderId(Index: Integer; const AInt64: Int64);
  1845.     function  splitTenderId_Specified(Index: Integer): boolean;
  1846.     procedure SettransactionType(Index: Integer; const Astring: string);
  1847.     function  transactionType_Specified(Index: Integer): boolean;
  1848.     procedure SettransactionStatus(Index: Integer; const Astring: string);
  1849.     function  transactionStatus_Specified(Index: Integer): boolean;
  1850.     procedure SetresponseReasonDescription(Index: Integer; const Astring: string);
  1851.     function  responseReasonDescription_Specified(Index: Integer): boolean;
  1852.     procedure SetauthCode(Index: Integer; const Astring: string);
  1853.     function  authCode_Specified(Index: Integer): boolean;
  1854.     procedure SetAVSResponse(Index: Integer; const Astring: string);
  1855.     function  AVSResponse_Specified(Index: Integer): boolean;
  1856.     procedure SetcardCodeResponse(Index: Integer; const Astring: string);
  1857.     function  cardCodeResponse_Specified(Index: Integer): boolean;
  1858.     procedure SetCAVVResponse(Index: Integer; const Astring: string);
  1859.     function  CAVVResponse_Specified(Index: Integer): boolean;
  1860.     procedure SetFDSFilterAction(Index: Integer; const Astring: string);
  1861.     function  FDSFilterAction_Specified(Index: Integer): boolean;
  1862.     procedure SetFDSFilters(Index: Integer; const AArrayOfFDSFilterType: ArrayOfFDSFilterType);
  1863.     function  FDSFilters_Specified(Index: Integer): boolean;
  1864.     procedure Setbatch(Index: Integer; const ABatchDetailsType: BatchDetailsType);
  1865.     function  batch_Specified(Index: Integer): boolean;
  1866.     procedure Setorder(Index: Integer; const AOrderExType: OrderExType);
  1867.     function  order_Specified(Index: Integer): boolean;
  1868.     procedure SetrequestedAmount(Index: Integer; const ATXSDecimal: TXSDecimal);
  1869.     function  requestedAmount_Specified(Index: Integer): boolean;
  1870.     procedure Settax(Index: Integer; const AExtendedAmountType: ExtendedAmountType);
  1871.     function  tax_Specified(Index: Integer): boolean;
  1872.     procedure Setshipping(Index: Integer; const AExtendedAmountType: ExtendedAmountType);
  1873.     function  shipping_Specified(Index: Integer): boolean;
  1874.     procedure Setduty(Index: Integer; const AExtendedAmountType: ExtendedAmountType);
  1875.     function  duty_Specified(Index: Integer): boolean;
  1876.     procedure SetlineItems(Index: Integer; const AArray_Of_LineItemType: Array_Of_LineItemType);
  1877.     function  lineItems_Specified(Index: Integer): boolean;
  1878.     procedure SetprepaidBalanceRemaining(Index: Integer; const ATXSDecimal: TXSDecimal);
  1879.     function  prepaidBalanceRemaining_Specified(Index: Integer): boolean;
  1880.     procedure SetcurrencyCode(Index: Integer; const Astring: string);
  1881.     function  currencyCode_Specified(Index: Integer): boolean;
  1882.     procedure SettaxExempt(Index: Integer; const ABoolean: Boolean);
  1883.     function  taxExempt_Specified(Index: Integer): boolean;
  1884.     procedure Setpayment(Index: Integer; const APaymentMaskedType: PaymentMaskedType);
  1885.     function  payment_Specified(Index: Integer): boolean;
  1886.     procedure Setcustomer(Index: Integer; const ACustomerDataType: CustomerDataType);
  1887.     function  customer_Specified(Index: Integer): boolean;
  1888.     procedure SetbillTo(Index: Integer; const ACustomerAddressType: CustomerAddressType);
  1889.     function  billTo_Specified(Index: Integer): boolean;
  1890.     procedure SetshipTo(Index: Integer; const ANameAndAddressType: NameAndAddressType);
  1891.     function  shipTo_Specified(Index: Integer): boolean;
  1892.     procedure SetrecurringBilling(Index: Integer; const ABoolean: Boolean);
  1893.     function  recurringBilling_Specified(Index: Integer): boolean;
  1894.     procedure SetcustomerIP(Index: Integer; const Astring: string);
  1895.     function  customerIP_Specified(Index: Integer): boolean;
  1896.   public
  1897.     destructor Destroy; override;
  1898.   published
  1899.     property transId:                   string                 Index (IS_OPTN) read FtransId write SettransId stored transId_Specified;
  1900.     property refTransId:                string                 Index (IS_OPTN) read FrefTransId write SetrefTransId stored refTransId_Specified;
  1901.     property splitTenderId:             Int64                  Index (IS_OPTN) read FsplitTenderId write SetsplitTenderId stored splitTenderId_Specified;
  1902.     property submitTimeUTC:             TXSDateTime            read FsubmitTimeUTC write FsubmitTimeUTC;
  1903.     property submitTimeLocal:           TXSDateTime            read FsubmitTimeLocal write FsubmitTimeLocal;
  1904.     property transactionType:           string                 Index (IS_OPTN) read FtransactionType write SettransactionType stored transactionType_Specified;
  1905.     property transactionStatus:         string                 Index (IS_OPTN) read FtransactionStatus write SettransactionStatus stored transactionStatus_Specified;
  1906.     property responseCode:              Integer                read FresponseCode write FresponseCode;
  1907.     property responseReasonCode:        Integer                read FresponseReasonCode write FresponseReasonCode;
  1908.     property responseReasonDescription: string                 Index (IS_OPTN) read FresponseReasonDescription write SetresponseReasonDescription stored responseReasonDescription_Specified;
  1909.     property authCode:                  string                 Index (IS_OPTN) read FauthCode write SetauthCode stored authCode_Specified;
  1910.     property AVSResponse:               string                 Index (IS_OPTN) read FAVSResponse write SetAVSResponse stored AVSResponse_Specified;
  1911.     property cardCodeResponse:          string                 Index (IS_OPTN) read FcardCodeResponse write SetcardCodeResponse stored cardCodeResponse_Specified;
  1912.     property CAVVResponse:              string                 Index (IS_OPTN) read FCAVVResponse write SetCAVVResponse stored CAVVResponse_Specified;
  1913.     property FDSFilterAction:           string                 Index (IS_OPTN) read FFDSFilterAction write SetFDSFilterAction stored FDSFilterAction_Specified;
  1914.     property FDSFilters:                ArrayOfFDSFilterType   Index (IS_OPTN) read FFDSFilters write SetFDSFilters stored FDSFilters_Specified;
  1915.     property batch:                     BatchDetailsType       Index (IS_OPTN) read Fbatch write Setbatch stored batch_Specified;
  1916.     property order:                     OrderExType            Index (IS_OPTN) read Forder write Setorder stored order_Specified;
  1917.     property requestedAmount:           TXSDecimal             Index (IS_OPTN) read FrequestedAmount write SetrequestedAmount stored requestedAmount_Specified;
  1918.     property authAmount:                TXSDecimal             read FauthAmount write FauthAmount;
  1919.     property settleAmount:              TXSDecimal             read FsettleAmount write FsettleAmount;
  1920.     property tax:                       ExtendedAmountType     Index (IS_OPTN) read Ftax write Settax stored tax_Specified;
  1921.     property shipping:                  ExtendedAmountType     Index (IS_OPTN) read Fshipping write Setshipping stored shipping_Specified;
  1922.     property duty:                      ExtendedAmountType     Index (IS_OPTN) read Fduty write Setduty stored duty_Specified;
  1923.     property lineItems:                 Array_Of_LineItemType  Index (IS_OPTN or IS_UNBD) read FlineItems write SetlineItems stored lineItems_Specified;
  1924.     property prepaidBalanceRemaining:   TXSDecimal             Index (IS_OPTN) read FprepaidBalanceRemaining write SetprepaidBalanceRemaining stored prepaidBalanceRemaining_Specified;
  1925.     property currencyCode:              string                 Index (IS_OPTN) read FcurrencyCode write SetcurrencyCode stored currencyCode_Specified;
  1926.     property taxExempt:                 Boolean                Index (IS_OPTN) read FtaxExempt write SettaxExempt stored taxExempt_Specified;
  1927.     property payment:                   PaymentMaskedType      Index (IS_OPTN) read Fpayment write Setpayment stored payment_Specified;
  1928.     property customer:                  CustomerDataType       Index (IS_OPTN) read Fcustomer write Setcustomer stored customer_Specified;
  1929.     property billTo:                    CustomerAddressType    Index (IS_OPTN) read FbillTo write SetbillTo stored billTo_Specified;
  1930.     property shipTo:                    NameAndAddressType     Index (IS_OPTN) read FshipTo write SetshipTo stored shipTo_Specified;
  1931.     property recurringBilling:          Boolean                Index (IS_OPTN) read FrecurringBilling write SetrecurringBilling stored recurringBilling_Specified;
  1932.     property customerIP:                string                 Index (IS_OPTN) read FcustomerIP write SetcustomerIP stored customerIP_Specified;
  1933.   end;
  1934.  
  1935.  
  1936.  
  1937.   // ************************************************************************ //
  1938.   // XML       : ProfileTransAmountType, global, <complexType>
  1939.   // Namespace : https://api.authorize.net/soap/v1/
  1940.   // ************************************************************************ //
  1941.   ProfileTransAmountType = class(TRemotable)
  1942.   private
  1943.     Famount: TXSDecimal;
  1944.     Ftax: ExtendedAmountType;
  1945.     Ftax_Specified: boolean;
  1946.     Fshipping: ExtendedAmountType;
  1947.     Fshipping_Specified: boolean;
  1948.     Fduty: ExtendedAmountType;
  1949.     Fduty_Specified: boolean;
  1950.     FlineItems: Array_Of_LineItemType;
  1951.     FlineItems_Specified: boolean;
  1952.     procedure Settax(Index: Integer; const AExtendedAmountType: ExtendedAmountType);
  1953.     function  tax_Specified(Index: Integer): boolean;
  1954.     procedure Setshipping(Index: Integer; const AExtendedAmountType: ExtendedAmountType);
  1955.     function  shipping_Specified(Index: Integer): boolean;
  1956.     procedure Setduty(Index: Integer; const AExtendedAmountType: ExtendedAmountType);
  1957.     function  duty_Specified(Index: Integer): boolean;
  1958.     procedure SetlineItems(Index: Integer; const AArray_Of_LineItemType: Array_Of_LineItemType);
  1959.     function  lineItems_Specified(Index: Integer): boolean;
  1960.   public
  1961.     destructor Destroy; override;
  1962.   published
  1963.     property amount:    TXSDecimal             read Famount write Famount;
  1964.     property tax:       ExtendedAmountType     Index (IS_OPTN) read Ftax write Settax stored tax_Specified;
  1965.     property shipping:  ExtendedAmountType     Index (IS_OPTN) read Fshipping write Setshipping stored shipping_Specified;
  1966.     property duty:      ExtendedAmountType     Index (IS_OPTN) read Fduty write Setduty stored duty_Specified;
  1967.     property lineItems: Array_Of_LineItemType  Index (IS_OPTN or IS_UNBD) read FlineItems write SetlineItems stored lineItems_Specified;
  1968.   end;
  1969.  
  1970.  
  1971.  
  1972.   // ************************************************************************ //
  1973.   // XML       : ProfileTransOrderType, global, <complexType>
  1974.   // Namespace : https://api.authorize.net/soap/v1/
  1975.   // ************************************************************************ //
  1976.   ProfileTransOrderType = class(ProfileTransAmountType)
  1977.   private
  1978.     FcustomerProfileId: Int64;
  1979.     FcustomerPaymentProfileId: Int64;
  1980.     FcustomerShippingAddressId: Int64;
  1981.     FcustomerShippingAddressId_Specified: boolean;
  1982.     Forder: OrderExType;
  1983.     Forder_Specified: boolean;
  1984.     FtaxExempt: Boolean;
  1985.     FtaxExempt_Specified: boolean;
  1986.     FrecurringBilling: Boolean;
  1987.     FrecurringBilling_Specified: boolean;
  1988.     FcardCode: string;
  1989.     FcardCode_Specified: boolean;
  1990.     FsplitTenderId: Int64;
  1991.     FsplitTenderId_Specified: boolean;
  1992.     procedure SetcustomerShippingAddressId(Index: Integer; const AInt64: Int64);
  1993.     function  customerShippingAddressId_Specified(Index: Integer): boolean;
  1994.     procedure Setorder(Index: Integer; const AOrderExType: OrderExType);
  1995.     function  order_Specified(Index: Integer): boolean;
  1996.     procedure SettaxExempt(Index: Integer; const ABoolean: Boolean);
  1997.     function  taxExempt_Specified(Index: Integer): boolean;
  1998.     procedure SetrecurringBilling(Index: Integer; const ABoolean: Boolean);
  1999.     function  recurringBilling_Specified(Index: Integer): boolean;
  2000.     procedure SetcardCode(Index: Integer; const Astring: string);
  2001.     function  cardCode_Specified(Index: Integer): boolean;
  2002.     procedure SetsplitTenderId(Index: Integer; const AInt64: Int64);
  2003.     function  splitTenderId_Specified(Index: Integer): boolean;
  2004.   public
  2005.     destructor Destroy; override;
  2006.   published
  2007.     property customerProfileId:         Int64        read FcustomerProfileId write FcustomerProfileId;
  2008.     property customerPaymentProfileId:  Int64        read FcustomerPaymentProfileId write FcustomerPaymentProfileId;
  2009.     property customerShippingAddressId: Int64        Index (IS_OPTN) read FcustomerShippingAddressId write SetcustomerShippingAddressId stored customerShippingAddressId_Specified;
  2010.     property order:                     OrderExType  Index (IS_OPTN) read Forder write Setorder stored order_Specified;
  2011.     property taxExempt:                 Boolean      Index (IS_OPTN) read FtaxExempt write SettaxExempt stored taxExempt_Specified;
  2012.     property recurringBilling:          Boolean      Index (IS_OPTN) read FrecurringBilling write SetrecurringBilling stored recurringBilling_Specified;
  2013.     property cardCode:                  string       Index (IS_OPTN) read FcardCode write SetcardCode stored cardCode_Specified;
  2014.     property splitTenderId:             Int64        Index (IS_OPTN) read FsplitTenderId write SetsplitTenderId stored splitTenderId_Specified;
  2015.   end;
  2016.  
  2017.  
  2018.  
  2019.   // ************************************************************************ //
  2020.   // XML       : ProfileTransAuthOnlyType, global, <complexType>
  2021.   // Namespace : https://api.authorize.net/soap/v1/
  2022.   // ************************************************************************ //
  2023.   ProfileTransAuthOnlyType = class(ProfileTransOrderType)
  2024.   private
  2025.   published
  2026.   end;
  2027.  
  2028.  
  2029.  
  2030.   // ************************************************************************ //
  2031.   // XML       : ProfileTransAuthCaptureType, global, <complexType>
  2032.   // Namespace : https://api.authorize.net/soap/v1/
  2033.   // ************************************************************************ //
  2034.   ProfileTransAuthCaptureType = class(ProfileTransOrderType)
  2035.   private
  2036.   published
  2037.   end;
  2038.  
  2039.  
  2040.  
  2041.   // ************************************************************************ //
  2042.   // XML       : ProfileTransCaptureOnlyType, global, <complexType>
  2043.   // Namespace : https://api.authorize.net/soap/v1/
  2044.   // ************************************************************************ //
  2045.   ProfileTransCaptureOnlyType = class(ProfileTransOrderType)
  2046.   private
  2047.     FapprovalCode: string;
  2048.     FapprovalCode_Specified: boolean;
  2049.     procedure SetapprovalCode(Index: Integer; const Astring: string);
  2050.     function  approvalCode_Specified(Index: Integer): boolean;
  2051.   published
  2052.     property approvalCode: string  Index (IS_OPTN) read FapprovalCode write SetapprovalCode stored approvalCode_Specified;
  2053.   end;
  2054.  
  2055.  
  2056.  
  2057.   // ************************************************************************ //
  2058.   // XML       : ProfileTransRefundType, global, <complexType>
  2059.   // Namespace : https://api.authorize.net/soap/v1/
  2060.   // ************************************************************************ //
  2061.   ProfileTransRefundType = class(ProfileTransAmountType)
  2062.   private
  2063.     FcustomerProfileId: Int64;
  2064.     FcustomerProfileId_Specified: boolean;
  2065.     FcustomerPaymentProfileId: Int64;
  2066.     FcustomerPaymentProfileId_Specified: boolean;
  2067.     FcustomerShippingAddressId: Int64;
  2068.     FcustomerShippingAddressId_Specified: boolean;
  2069.     FcreditCardNumberMasked: string;
  2070.     FcreditCardNumberMasked_Specified: boolean;
  2071.     FbankRoutingNumberMasked: string;
  2072.     FbankRoutingNumberMasked_Specified: boolean;
  2073.     FbankAccountNumberMasked: string;
  2074.     FbankAccountNumberMasked_Specified: boolean;
  2075.     Forder: OrderExType;
  2076.     Forder_Specified: boolean;
  2077.     FtransId: string;
  2078.     FtransId_Specified: boolean;
  2079.     procedure SetcustomerProfileId(Index: Integer; const AInt64: Int64);
  2080.     function  customerProfileId_Specified(Index: Integer): boolean;
  2081.     procedure SetcustomerPaymentProfileId(Index: Integer; const AInt64: Int64);
  2082.     function  customerPaymentProfileId_Specified(Index: Integer): boolean;
  2083.     procedure SetcustomerShippingAddressId(Index: Integer; const AInt64: Int64);
  2084.     function  customerShippingAddressId_Specified(Index: Integer): boolean;
  2085.     procedure SetcreditCardNumberMasked(Index: Integer; const Astring: string);
  2086.     function  creditCardNumberMasked_Specified(Index: Integer): boolean;
  2087.     procedure SetbankRoutingNumberMasked(Index: Integer; const Astring: string);
  2088.     function  bankRoutingNumberMasked_Specified(Index: Integer): boolean;
  2089.     procedure SetbankAccountNumberMasked(Index: Integer; const Astring: string);
  2090.     function  bankAccountNumberMasked_Specified(Index: Integer): boolean;
  2091.     procedure Setorder(Index: Integer; const AOrderExType: OrderExType);
  2092.     function  order_Specified(Index: Integer): boolean;
  2093.     procedure SettransId(Index: Integer; const Astring: string);
  2094.     function  transId_Specified(Index: Integer): boolean;
  2095.   public
  2096.     destructor Destroy; override;
  2097.   published
  2098.     property customerProfileId:         Int64        Index (IS_OPTN) read FcustomerProfileId write SetcustomerProfileId stored customerProfileId_Specified;
  2099.     property customerPaymentProfileId:  Int64        Index (IS_OPTN) read FcustomerPaymentProfileId write SetcustomerPaymentProfileId stored customerPaymentProfileId_Specified;
  2100.     property customerShippingAddressId: Int64        Index (IS_OPTN) read FcustomerShippingAddressId write SetcustomerShippingAddressId stored customerShippingAddressId_Specified;
  2101.     property creditCardNumberMasked:    string       Index (IS_OPTN) read FcreditCardNumberMasked write SetcreditCardNumberMasked stored creditCardNumberMasked_Specified;
  2102.     property bankRoutingNumberMasked:   string       Index (IS_OPTN) read FbankRoutingNumberMasked write SetbankRoutingNumberMasked stored bankRoutingNumberMasked_Specified;
  2103.     property bankAccountNumberMasked:   string       Index (IS_OPTN) read FbankAccountNumberMasked write SetbankAccountNumberMasked stored bankAccountNumberMasked_Specified;
  2104.     property order:                     OrderExType  Index (IS_OPTN) read Forder write Setorder stored order_Specified;
  2105.     property transId:                   string       Index (IS_OPTN) read FtransId write SettransId stored transId_Specified;
  2106.   end;
  2107.  
  2108.  
  2109.  
  2110.   // ************************************************************************ //
  2111.   // XML       : ProfileTransPriorAuthCaptureType, global, <complexType>
  2112.   // Namespace : https://api.authorize.net/soap/v1/
  2113.   // ************************************************************************ //
  2114.   ProfileTransPriorAuthCaptureType = class(ProfileTransAmountType)
  2115.   private
  2116.     FcustomerProfileId: Int64;
  2117.     FcustomerProfileId_Specified: boolean;
  2118.     FcustomerPaymentProfileId: Int64;
  2119.     FcustomerPaymentProfileId_Specified: boolean;
  2120.     FcustomerShippingAddressId: Int64;
  2121.     FcustomerShippingAddressId_Specified: boolean;
  2122.     FtransId: string;
  2123.     FtransId_Specified: boolean;
  2124.     procedure SetcustomerProfileId(Index: Integer; const AInt64: Int64);
  2125.     function  customerProfileId_Specified(Index: Integer): boolean;
  2126.     procedure SetcustomerPaymentProfileId(Index: Integer; const AInt64: Int64);
  2127.     function  customerPaymentProfileId_Specified(Index: Integer): boolean;
  2128.     procedure SetcustomerShippingAddressId(Index: Integer; const AInt64: Int64);
  2129.     function  customerShippingAddressId_Specified(Index: Integer): boolean;
  2130.     procedure SettransId(Index: Integer; const Astring: string);
  2131.     function  transId_Specified(Index: Integer): boolean;
  2132.   published
  2133.     property customerProfileId:         Int64   Index (IS_OPTN) read FcustomerProfileId write SetcustomerProfileId stored customerProfileId_Specified;
  2134.     property customerPaymentProfileId:  Int64   Index (IS_OPTN) read FcustomerPaymentProfileId write SetcustomerPaymentProfileId stored customerPaymentProfileId_Specified;
  2135.     property customerShippingAddressId: Int64   Index (IS_OPTN) read FcustomerShippingAddressId write SetcustomerShippingAddressId stored customerShippingAddressId_Specified;
  2136.     property transId:                   string  Index (IS_OPTN) read FtransId write SettransId stored transId_Specified;
  2137.   end;
  2138.  
  2139.  
  2140.   // ************************************************************************ //
  2141.   // Namespace : https://api.authorize.net/soap/v1/
  2142.   // soapAction: https://api.authorize.net/soap/v1/%operationName%
  2143.   // transport : http://schemas.xmlsoap.org/soap/http
  2144.   // style     : document
  2145.   // binding   : ServiceSoap
  2146.   // service   : Service
  2147.   // port      : ServiceSoap
  2148.   // URL       : https://api.authorize.net/soap/v1/Service.asmx
  2149.   // ************************************************************************ //
  2150.   ServiceSoap = interface(IInvokable)
  2151.   ['{14FA0016-3E08-DE31-674C-F45020FEB618}']
  2152.     function  IsAlive: ANetApiResponseType; stdcall;
  2153.     function  AuthenticateTest(const merchantAuthentication: MerchantAuthenticationType): ANetApiResponseType; stdcall;
  2154.     function  ARBCreateSubscription(const merchantAuthentication: MerchantAuthenticationType; const subscription: ARBSubscriptionType): ARBCreateSubscriptionResponseType; stdcall;
  2155.     function  ARBUpdateSubscription(const merchantAuthentication: MerchantAuthenticationType; const subscriptionId: Int64; const subscription: ARBSubscriptionType): ARBUpdateSubscriptionResponseType; stdcall;
  2156.     function  ARBCancelSubscription(const merchantAuthentication: MerchantAuthenticationType; const subscriptionId: Int64): ARBCancelSubscriptionResponseType; stdcall;
  2157.     function  ARBGetSubscriptionStatus(const merchantAuthentication: MerchantAuthenticationType; const subscriptionId: Int64): ARBGetSubscriptionStatusResponseType; stdcall;
  2158.     function  CreateCustomerProfile(const merchantAuthentication: MerchantAuthenticationType; const profile: CustomerProfileType; const validationMode: ValidationModeEnum): CreateCustomerProfileResponseType; stdcall;
  2159.     function  CreateCustomerPaymentProfile(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64; const paymentProfile: CustomerPaymentProfileType; const validationMode: ValidationModeEnum): CreateCustomerPaymentProfileResponseType; stdcall;
  2160.     function  CreateCustomerShippingAddress(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64; const address: CustomerAddressType): CreateCustomerShippingAddressResponseType; stdcall;
  2161.     function  GetCustomerProfile(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64): GetCustomerProfileResponseType; stdcall;
  2162.     function  GetCustomerPaymentProfile(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64; const customerPaymentProfileId: Int64): GetCustomerPaymentProfileResponseType; stdcall;
  2163.     function  GetCustomerShippingAddress(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64; const customerAddressId: Int64): GetCustomerShippingAddressResponseType; stdcall;
  2164.     function  UpdateCustomerProfile(const merchantAuthentication: MerchantAuthenticationType; const profile: CustomerProfileExType): UpdateCustomerProfileResponseType; stdcall;
  2165.     function  UpdateCustomerPaymentProfile(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64; const paymentProfile: CustomerPaymentProfileExType; const validationMode: ValidationModeEnum): UpdateCustomerPaymentProfileResponseType; stdcall;
  2166.     function  UpdateCustomerShippingAddress(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64; const address: CustomerAddressExType): UpdateCustomerShippingAddressResponseType; stdcall;
  2167.     function  DeleteCustomerProfile(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64): DeleteCustomerProfileResponseType; stdcall;
  2168.     function  DeleteCustomerPaymentProfile(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64; const customerPaymentProfileId: Int64): DeleteCustomerPaymentProfileResponseType; stdcall;
  2169.     function  DeleteCustomerShippingAddress(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64; const customerAddressId: Int64): DeleteCustomerShippingAddressResponseType; stdcall;
  2170.     function  CreateCustomerProfileTransaction(const merchantAuthentication: MerchantAuthenticationType; const transaction: ProfileTransactionType; const extraOptions: string): CreateCustomerProfileTransactionResponseType; stdcall;
  2171.     function  ValidateCustomerPaymentProfile(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64; const customerPaymentProfileId: Int64; const customerShippingAddressId: Int64; const cardCode: string; const validationMode: ValidationModeEnum
  2172.                                              ): ValidateCustomerPaymentProfileResponseType; stdcall;
  2173.     function  GetCustomerProfileIds(const merchantAuthentication: MerchantAuthenticationType): GetCustomerProfileIdsResponseType; stdcall;
  2174.     function  UpdateSplitTenderGroup(const merchantAuthentication: MerchantAuthenticationType; const splitTenderId: Int64; const splitTenderStatus: SplitTenderStatusEnum): UpdateSplitTenderGroupResponseType; stdcall;
  2175.     function  GetTransactionDetails(const merchantAuthentication: MerchantAuthenticationType; const transId: string): GetTransactionDetailsResponseType; stdcall;
  2176.     function  GetSettledBatchList(const merchantAuthentication: MerchantAuthenticationType; const request: GetSettledBatchListRequestType): GetSettledBatchListResponseType; stdcall;
  2177.     function  GetTransactionList(const merchantAuthentication: MerchantAuthenticationType; const request: GetTransactionListRequestType): GetTransactionListResponseType; stdcall;
  2178.   end;
  2179.  
  2180. function GetServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): ServiceSoap;
  2181.  
  2182.  
  2183. implementation
  2184.   uses SysUtils;
  2185.  
  2186. function GetServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): ServiceSoap;
  2187. const
  2188.   defWSDL = 'https://api.authorize.net/soap/v1/Service.asmx?WSDL';
  2189.  
  2190. //  defURL  =  'https://apitest.authorize.net/soap/v1/Service.asmx';
  2191.   defURL  = 'https://api.authorize.net/soap/v1/Service.asmx';
  2192.   defSvc  = 'Service';
  2193.   defPrt  = 'ServiceSoap';
  2194. var
  2195.   RIO: THTTPRIO;
  2196. begin
  2197.   Result := nil;
  2198.   if (Addr = '') then
  2199.   begin
  2200.     if UseWSDL then
  2201.       Addr := defWSDL
  2202.     else
  2203.       Addr := defURL;
  2204.   end;
  2205.   if HTTPRIO = nil then
  2206.     RIO := THTTPRIO.Create(nil)
  2207.   else
  2208.     RIO := HTTPRIO;
  2209.   try
  2210.     Result := (RIO as ServiceSoap);
  2211.     if UseWSDL then
  2212.     begin
  2213.       RIO.WSDLLocation := Addr;
  2214.       RIO.Service := defSvc;
  2215.       RIO.Port := defPrt;
  2216.     end else
  2217.       RIO.URL := Addr;
  2218.   finally
  2219.     if (Result = nil) and (HTTPRIO = nil) then
  2220.       RIO.Free;
  2221.   end;
  2222. end;
  2223.  
  2224.  
  2225. destructor ANetApiResponseType.Destroy;
  2226. var
  2227.   I: Integer;
  2228. begin
  2229.   for I := 0 to System.Length(Fmessages)-1 do
  2230.     SysUtils.FreeAndNil(Fmessages[I]);
  2231.   System.SetLength(Fmessages, 0);
  2232.   inherited Destroy;
  2233. end;
  2234.  
  2235. procedure ANetApiResponseType.Setmessages(Index: Integer; const AArrayOfMessagesTypeMessage: ArrayOfMessagesTypeMessage);
  2236. begin
  2237.   Fmessages := AArrayOfMessagesTypeMessage;
  2238.   Fmessages_Specified := True;
  2239. end;
  2240.  
  2241. function ANetApiResponseType.messages_Specified(Index: Integer): boolean;
  2242. begin
  2243.   Result := Fmessages_Specified;
  2244. end;
  2245.  
  2246. procedure MessagesTypeMessage.Setcode(Index: Integer; const Astring: string);
  2247. begin
  2248.   Fcode := Astring;
  2249.   Fcode_Specified := True;
  2250. end;
  2251.  
  2252. function MessagesTypeMessage.code_Specified(Index: Integer): boolean;
  2253. begin
  2254.   Result := Fcode_Specified;
  2255. end;
  2256.  
  2257. procedure MessagesTypeMessage.Settext(Index: Integer; const Astring: string);
  2258. begin
  2259.   Ftext := Astring;
  2260.   Ftext_Specified := True;
  2261. end;
  2262.  
  2263. function MessagesTypeMessage.text_Specified(Index: Integer): boolean;
  2264. begin
  2265.   Result := Ftext_Specified;
  2266. end;
  2267.  
  2268. procedure MerchantAuthenticationType.Setname_(Index: Integer; const Astring: string);
  2269. begin
  2270.   Fname_ := Astring;
  2271.   Fname__Specified := True;
  2272. end;
  2273.  
  2274. function MerchantAuthenticationType.name__Specified(Index: Integer): boolean;
  2275. begin
  2276.   Result := Fname__Specified;
  2277. end;
  2278.  
  2279. procedure MerchantAuthenticationType.SettransactionKey(Index: Integer; const Astring: string);
  2280. begin
  2281.   FtransactionKey := Astring;
  2282.   FtransactionKey_Specified := True;
  2283. end;
  2284.  
  2285. function MerchantAuthenticationType.transactionKey_Specified(Index: Integer): boolean;
  2286. begin
  2287.   Result := FtransactionKey_Specified;
  2288. end;
  2289.  
  2290. destructor ARBSubscriptionType.Destroy;
  2291. begin
  2292.   SysUtils.FreeAndNil(FpaymentSchedule);
  2293.   SysUtils.FreeAndNil(Famount);
  2294.   SysUtils.FreeAndNil(FtrialAmount);
  2295.   SysUtils.FreeAndNil(Fpayment);
  2296.   SysUtils.FreeAndNil(Forder);
  2297.   SysUtils.FreeAndNil(Fcustomer);
  2298.   SysUtils.FreeAndNil(FbillTo);
  2299.   SysUtils.FreeAndNil(FshipTo);
  2300.   inherited Destroy;
  2301. end;
  2302.  
  2303. procedure ARBSubscriptionType.Setname_(Index: Integer; const Astring: string);
  2304. begin
  2305.   Fname_ := Astring;
  2306.   Fname__Specified := True;
  2307. end;
  2308.  
  2309. function ARBSubscriptionType.name__Specified(Index: Integer): boolean;
  2310. begin
  2311.   Result := Fname__Specified;
  2312. end;
  2313.  
  2314. procedure ARBSubscriptionType.SetpaymentSchedule(Index: Integer; const APaymentScheduleType: PaymentScheduleType);
  2315. begin
  2316.   FpaymentSchedule := APaymentScheduleType;
  2317.   FpaymentSchedule_Specified := True;
  2318. end;
  2319.  
  2320. function ARBSubscriptionType.paymentSchedule_Specified(Index: Integer): boolean;
  2321. begin
  2322.   Result := FpaymentSchedule_Specified;
  2323. end;
  2324.  
  2325. procedure ARBSubscriptionType.Setamount(Index: Integer; const ATXSDecimal: TXSDecimal);
  2326. begin
  2327.   Famount := ATXSDecimal;
  2328.   Famount_Specified := True;
  2329. end;
  2330.  
  2331. function ARBSubscriptionType.amount_Specified(Index: Integer): boolean;
  2332. begin
  2333.   Result := Famount_Specified;
  2334. end;
  2335.  
  2336. procedure ARBSubscriptionType.SettrialAmount(Index: Integer; const ATXSDecimal: TXSDecimal);
  2337. begin
  2338.   FtrialAmount := ATXSDecimal;
  2339.   FtrialAmount_Specified := True;
  2340. end;
  2341.  
  2342. function ARBSubscriptionType.trialAmount_Specified(Index: Integer): boolean;
  2343. begin
  2344.   Result := FtrialAmount_Specified;
  2345. end;
  2346.  
  2347. procedure ARBSubscriptionType.Setpayment(Index: Integer; const APaymentType: PaymentType);
  2348. begin
  2349.   Fpayment := APaymentType;
  2350.   Fpayment_Specified := True;
  2351. end;
  2352.  
  2353. function ARBSubscriptionType.payment_Specified(Index: Integer): boolean;
  2354. begin
  2355.   Result := Fpayment_Specified;
  2356. end;
  2357.  
  2358. procedure ARBSubscriptionType.Setorder(Index: Integer; const AOrderType: OrderType);
  2359. begin
  2360.   Forder := AOrderType;
  2361.   Forder_Specified := True;
  2362. end;
  2363.  
  2364. function ARBSubscriptionType.order_Specified(Index: Integer): boolean;
  2365. begin
  2366.   Result := Forder_Specified;
  2367. end;
  2368.  
  2369. procedure ARBSubscriptionType.Setcustomer(Index: Integer; const ACustomerType: CustomerType);
  2370. begin
  2371.   Fcustomer := ACustomerType;
  2372.   Fcustomer_Specified := True;
  2373. end;
  2374.  
  2375. function ARBSubscriptionType.customer_Specified(Index: Integer): boolean;
  2376. begin
  2377.   Result := Fcustomer_Specified;
  2378. end;
  2379.  
  2380. procedure ARBSubscriptionType.SetbillTo(Index: Integer; const ANameAndAddressType: NameAndAddressType);
  2381. begin
  2382.   FbillTo := ANameAndAddressType;
  2383.   FbillTo_Specified := True;
  2384. end;
  2385.  
  2386. function ARBSubscriptionType.billTo_Specified(Index: Integer): boolean;
  2387. begin
  2388.   Result := FbillTo_Specified;
  2389. end;
  2390.  
  2391. procedure ARBSubscriptionType.SetshipTo(Index: Integer; const ANameAndAddressType: NameAndAddressType);
  2392. begin
  2393.   FshipTo := ANameAndAddressType;
  2394.   FshipTo_Specified := True;
  2395. end;
  2396.  
  2397. function ARBSubscriptionType.shipTo_Specified(Index: Integer): boolean;
  2398. begin
  2399.   Result := FshipTo_Specified;
  2400. end;
  2401.  
  2402. destructor PaymentType.Destroy;
  2403. begin
  2404.   SysUtils.FreeAndNil(FcreditCard);
  2405.   SysUtils.FreeAndNil(FbankAccount);
  2406.   inherited Destroy;
  2407. end;
  2408.  
  2409. procedure PaymentType.SetcreditCard(Index: Integer; const ACreditCardType: CreditCardType);
  2410. begin
  2411.   FcreditCard := ACreditCardType;
  2412.   FcreditCard_Specified := True;
  2413. end;
  2414.  
  2415. function PaymentType.creditCard_Specified(Index: Integer): boolean;
  2416. begin
  2417.   Result := FcreditCard_Specified;
  2418. end;
  2419.  
  2420. procedure PaymentType.SetbankAccount(Index: Integer; const ABankAccountType: BankAccountType);
  2421. begin
  2422.   FbankAccount := ABankAccountType;
  2423.   FbankAccount_Specified := True;
  2424. end;
  2425.  
  2426. function PaymentType.bankAccount_Specified(Index: Integer): boolean;
  2427. begin
  2428.   Result := FbankAccount_Specified;
  2429. end;
  2430.  
  2431. procedure OrderType.SetinvoiceNumber(Index: Integer; const Astring: string);
  2432. begin
  2433.   FinvoiceNumber := Astring;
  2434.   FinvoiceNumber_Specified := True;
  2435. end;
  2436.  
  2437. function OrderType.invoiceNumber_Specified(Index: Integer): boolean;
  2438. begin
  2439.   Result := FinvoiceNumber_Specified;
  2440. end;
  2441.  
  2442. procedure OrderType.Setdescription(Index: Integer; const Astring: string);
  2443. begin
  2444.   Fdescription := Astring;
  2445.   Fdescription_Specified := True;
  2446. end;
  2447.  
  2448. function OrderType.description_Specified(Index: Integer): boolean;
  2449. begin
  2450.   Result := Fdescription_Specified;
  2451. end;
  2452.  
  2453. procedure NameAndAddressType.SetfirstName(Index: Integer; const Astring: string);
  2454. begin
  2455.   FfirstName := Astring;
  2456.   FfirstName_Specified := True;
  2457. end;
  2458.  
  2459. function NameAndAddressType.firstName_Specified(Index: Integer): boolean;
  2460. begin
  2461.   Result := FfirstName_Specified;
  2462. end;
  2463.  
  2464. procedure NameAndAddressType.SetlastName(Index: Integer; const Astring: string);
  2465. begin
  2466.   FlastName := Astring;
  2467.   FlastName_Specified := True;
  2468. end;
  2469.  
  2470. function NameAndAddressType.lastName_Specified(Index: Integer): boolean;
  2471. begin
  2472.   Result := FlastName_Specified;
  2473. end;
  2474.  
  2475. procedure NameAndAddressType.Setcompany(Index: Integer; const Astring: string);
  2476. begin
  2477.   Fcompany := Astring;
  2478.   Fcompany_Specified := True;
  2479. end;
  2480.  
  2481. function NameAndAddressType.company_Specified(Index: Integer): boolean;
  2482. begin
  2483.   Result := Fcompany_Specified;
  2484. end;
  2485.  
  2486. procedure NameAndAddressType.Setaddress(Index: Integer; const Astring: string);
  2487. begin
  2488.   Faddress := Astring;
  2489.   Faddress_Specified := True;
  2490. end;
  2491.  
  2492. function NameAndAddressType.address_Specified(Index: Integer): boolean;
  2493. begin
  2494.   Result := Faddress_Specified;
  2495. end;
  2496.  
  2497. procedure NameAndAddressType.Setcity(Index: Integer; const Astring: string);
  2498. begin
  2499.   Fcity := Astring;
  2500.   Fcity_Specified := True;
  2501. end;
  2502.  
  2503. function NameAndAddressType.city_Specified(Index: Integer): boolean;
  2504. begin
  2505.   Result := Fcity_Specified;
  2506. end;
  2507.  
  2508. procedure NameAndAddressType.Setstate(Index: Integer; const Astring: string);
  2509. begin
  2510.   Fstate := Astring;
  2511.   Fstate_Specified := True;
  2512. end;
  2513.  
  2514. function NameAndAddressType.state_Specified(Index: Integer): boolean;
  2515. begin
  2516.   Result := Fstate_Specified;
  2517. end;
  2518.  
  2519. procedure NameAndAddressType.Setzip(Index: Integer; const Astring: string);
  2520. begin
  2521.   Fzip := Astring;
  2522.   Fzip_Specified := True;
  2523. end;
  2524.  
  2525. function NameAndAddressType.zip_Specified(Index: Integer): boolean;
  2526. begin
  2527.   Result := Fzip_Specified;
  2528. end;
  2529.  
  2530. procedure NameAndAddressType.Setcountry(Index: Integer; const Astring: string);
  2531. begin
  2532.   Fcountry := Astring;
  2533.   Fcountry_Specified := True;
  2534. end;
  2535.  
  2536. function NameAndAddressType.country_Specified(Index: Integer): boolean;
  2537. begin
  2538.   Result := Fcountry_Specified;
  2539. end;
  2540.  
  2541. destructor PaymentScheduleType.Destroy;
  2542. begin
  2543.   SysUtils.FreeAndNil(Finterval);
  2544.   SysUtils.FreeAndNil(FstartDate);
  2545.   inherited Destroy;
  2546. end;
  2547.  
  2548. procedure PaymentScheduleType.Setinterval(Index: Integer; const APaymentScheduleTypeInterval: PaymentScheduleTypeInterval);
  2549. begin
  2550.   Finterval := APaymentScheduleTypeInterval;
  2551.   Finterval_Specified := True;
  2552. end;
  2553.  
  2554. function PaymentScheduleType.interval_Specified(Index: Integer): boolean;
  2555. begin
  2556.   Result := Finterval_Specified;
  2557. end;
  2558.  
  2559. procedure PaymentScheduleType.SetstartDate(Index: Integer; const ATXSDate: TXSDate);
  2560. begin
  2561.   FstartDate := ATXSDate;
  2562.   FstartDate_Specified := True;
  2563. end;
  2564.  
  2565. function PaymentScheduleType.startDate_Specified(Index: Integer): boolean;
  2566. begin
  2567.   Result := FstartDate_Specified;
  2568. end;
  2569.  
  2570. procedure PaymentScheduleType.SettotalOccurrences(Index: Integer; const ASmallInt: SmallInt);
  2571. begin
  2572.   FtotalOccurrences := ASmallInt;
  2573.   FtotalOccurrences_Specified := True;
  2574. end;
  2575.  
  2576. function PaymentScheduleType.totalOccurrences_Specified(Index: Integer): boolean;
  2577. begin
  2578.   Result := FtotalOccurrences_Specified;
  2579. end;
  2580.  
  2581. procedure PaymentScheduleType.SettrialOccurrences(Index: Integer; const ASmallInt: SmallInt);
  2582. begin
  2583.   FtrialOccurrences := ASmallInt;
  2584.   FtrialOccurrences_Specified := True;
  2585. end;
  2586.  
  2587. function PaymentScheduleType.trialOccurrences_Specified(Index: Integer): boolean;
  2588. begin
  2589.   Result := FtrialOccurrences_Specified;
  2590. end;
  2591.  
  2592. procedure CreditCardSimpleType.SetcardNumber(Index: Integer; const Astring: string);
  2593. begin
  2594.   FcardNumber := Astring;
  2595.   FcardNumber_Specified := True;
  2596. end;
  2597.  
  2598. function CreditCardSimpleType.cardNumber_Specified(Index: Integer): boolean;
  2599. begin
  2600.   Result := FcardNumber_Specified;
  2601. end;
  2602.  
  2603. procedure CreditCardSimpleType.SetexpirationDate(Index: Integer; const Astring: string);
  2604. begin
  2605.   FexpirationDate := Astring;
  2606.   FexpirationDate_Specified := True;
  2607. end;
  2608.  
  2609. function CreditCardSimpleType.expirationDate_Specified(Index: Integer): boolean;
  2610. begin
  2611.   Result := FexpirationDate_Specified;
  2612. end;
  2613.  
  2614. procedure CreditCardType.SetcardCode(Index: Integer; const Astring: string);
  2615. begin
  2616.   FcardCode := Astring;
  2617.   FcardCode_Specified := True;
  2618. end;
  2619.  
  2620. function CreditCardType.cardCode_Specified(Index: Integer): boolean;
  2621. begin
  2622.   Result := FcardCode_Specified;
  2623. end;
  2624.  
  2625. procedure BankAccountBaseType.SetaccountType(Index: Integer; const ABankAccountTypeEnum: BankAccountTypeEnum);
  2626. begin
  2627.   FaccountType := ABankAccountTypeEnum;
  2628.   FaccountType_Specified := True;
  2629. end;
  2630.  
  2631. function BankAccountBaseType.accountType_Specified(Index: Integer): boolean;
  2632. begin
  2633.   Result := FaccountType_Specified;
  2634. end;
  2635.  
  2636. procedure BankAccountBaseType.SetnameOnAccount(Index: Integer; const Astring: string);
  2637. begin
  2638.   FnameOnAccount := Astring;
  2639.   FnameOnAccount_Specified := True;
  2640. end;
  2641.  
  2642. function BankAccountBaseType.nameOnAccount_Specified(Index: Integer): boolean;
  2643. begin
  2644.   Result := FnameOnAccount_Specified;
  2645. end;
  2646.  
  2647. procedure BankAccountBaseType.SetecheckType(Index: Integer; const AEcheckTypeEnum: EcheckTypeEnum);
  2648. begin
  2649.   FecheckType := AEcheckTypeEnum;
  2650.   FecheckType_Specified := True;
  2651. end;
  2652.  
  2653. function BankAccountBaseType.echeckType_Specified(Index: Integer): boolean;
  2654. begin
  2655.   Result := FecheckType_Specified;
  2656. end;
  2657.  
  2658. procedure BankAccountBaseType.SetbankName(Index: Integer; const Astring: string);
  2659. begin
  2660.   FbankName := Astring;
  2661.   FbankName_Specified := True;
  2662. end;
  2663.  
  2664. function BankAccountBaseType.bankName_Specified(Index: Integer): boolean;
  2665. begin
  2666.   Result := FbankName_Specified;
  2667. end;
  2668.  
  2669. procedure BankAccountType.SetroutingNumber(Index: Integer; const Astring: string);
  2670. begin
  2671.   FroutingNumber := Astring;
  2672.   FroutingNumber_Specified := True;
  2673. end;
  2674.  
  2675. function BankAccountType.routingNumber_Specified(Index: Integer): boolean;
  2676. begin
  2677.   Result := FroutingNumber_Specified;
  2678. end;
  2679.  
  2680. procedure BankAccountType.SetaccountNumber(Index: Integer; const Astring: string);
  2681. begin
  2682.   FaccountNumber := Astring;
  2683.   FaccountNumber_Specified := True;
  2684. end;
  2685.  
  2686. function BankAccountType.accountNumber_Specified(Index: Integer): boolean;
  2687. begin
  2688.   Result := FaccountNumber_Specified;
  2689. end;
  2690.  
  2691. destructor CustomerType.Destroy;
  2692. begin
  2693.   SysUtils.FreeAndNil(FdriversLicense);
  2694.   inherited Destroy;
  2695. end;
  2696.  
  2697. procedure CustomerType.Settype_(Index: Integer; const ACustomerTypeEnum: CustomerTypeEnum);
  2698. begin
  2699.   Ftype_ := ACustomerTypeEnum;
  2700.   Ftype__Specified := True;
  2701. end;
  2702.  
  2703. function CustomerType.type__Specified(Index: Integer): boolean;
  2704. begin
  2705.   Result := Ftype__Specified;
  2706. end;
  2707.  
  2708. procedure CustomerType.Setid(Index: Integer; const Astring: string);
  2709. begin
  2710.   Fid := Astring;
  2711.   Fid_Specified := True;
  2712. end;
  2713.  
  2714. function CustomerType.id_Specified(Index: Integer): boolean;
  2715. begin
  2716.   Result := Fid_Specified;
  2717. end;
  2718.  
  2719. procedure CustomerType.Setemail(Index: Integer; const Astring: string);
  2720. begin
  2721.   Femail := Astring;
  2722.   Femail_Specified := True;
  2723. end;
  2724.  
  2725. function CustomerType.email_Specified(Index: Integer): boolean;
  2726. begin
  2727.   Result := Femail_Specified;
  2728. end;
  2729.  
  2730. procedure CustomerType.SetphoneNumber(Index: Integer; const Astring: string);
  2731. begin
  2732.   FphoneNumber := Astring;
  2733.   FphoneNumber_Specified := True;
  2734. end;
  2735.  
  2736. function CustomerType.phoneNumber_Specified(Index: Integer): boolean;
  2737. begin
  2738.   Result := FphoneNumber_Specified;
  2739. end;
  2740.  
  2741. procedure CustomerType.SetfaxNumber(Index: Integer; const Astring: string);
  2742. begin
  2743.   FfaxNumber := Astring;
  2744.   FfaxNumber_Specified := True;
  2745. end;
  2746.  
  2747. function CustomerType.faxNumber_Specified(Index: Integer): boolean;
  2748. begin
  2749.   Result := FfaxNumber_Specified;
  2750. end;
  2751.  
  2752. procedure CustomerType.SetdriversLicense(Index: Integer; const ADriversLicenseType: DriversLicenseType);
  2753. begin
  2754.   FdriversLicense := ADriversLicenseType;
  2755.   FdriversLicense_Specified := True;
  2756. end;
  2757.  
  2758. function CustomerType.driversLicense_Specified(Index: Integer): boolean;
  2759. begin
  2760.   Result := FdriversLicense_Specified;
  2761. end;
  2762.  
  2763. procedure CustomerType.SettaxId(Index: Integer; const Astring: string);
  2764. begin
  2765.   FtaxId := Astring;
  2766.   FtaxId_Specified := True;
  2767. end;
  2768.  
  2769. function CustomerType.taxId_Specified(Index: Integer): boolean;
  2770. begin
  2771.   Result := FtaxId_Specified;
  2772. end;
  2773.  
  2774. procedure DriversLicenseBaseType.Setstate(Index: Integer; const Astring: string);
  2775. begin
  2776.   Fstate := Astring;
  2777.   Fstate_Specified := True;
  2778. end;
  2779.  
  2780. function DriversLicenseBaseType.state_Specified(Index: Integer): boolean;
  2781. begin
  2782.   Result := Fstate_Specified;
  2783. end;
  2784.  
  2785. procedure DriversLicenseType.Setnumber(Index: Integer; const Astring: string);
  2786. begin
  2787.   Fnumber := Astring;
  2788.   Fnumber_Specified := True;
  2789. end;
  2790.  
  2791. function DriversLicenseType.number_Specified(Index: Integer): boolean;
  2792. begin
  2793.   Result := Fnumber_Specified;
  2794. end;
  2795.  
  2796. procedure DriversLicenseType.SetdateOfBirth(Index: Integer; const Astring: string);
  2797. begin
  2798.   FdateOfBirth := Astring;
  2799.   FdateOfBirth_Specified := True;
  2800. end;
  2801.  
  2802. function DriversLicenseType.dateOfBirth_Specified(Index: Integer): boolean;
  2803. begin
  2804.   Result := FdateOfBirth_Specified;
  2805. end;
  2806.  
  2807. procedure CustomerProfileBaseType.SetmerchantCustomerId(Index: Integer; const Astring: string);
  2808. begin
  2809.   FmerchantCustomerId := Astring;
  2810.   FmerchantCustomerId_Specified := True;
  2811. end;
  2812.  
  2813. function CustomerProfileBaseType.merchantCustomerId_Specified(Index: Integer): boolean;
  2814. begin
  2815.   Result := FmerchantCustomerId_Specified;
  2816. end;
  2817.  
  2818. procedure CustomerProfileBaseType.Setdescription(Index: Integer; const Astring: string);
  2819. begin
  2820.   Fdescription := Astring;
  2821.   Fdescription_Specified := True;
  2822. end;
  2823.  
  2824. function CustomerProfileBaseType.description_Specified(Index: Integer): boolean;
  2825. begin
  2826.   Result := Fdescription_Specified;
  2827. end;
  2828.  
  2829. procedure CustomerProfileBaseType.Setemail(Index: Integer; const Astring: string);
  2830. begin
  2831.   Femail := Astring;
  2832.   Femail_Specified := True;
  2833. end;
  2834.  
  2835. function CustomerProfileBaseType.email_Specified(Index: Integer): boolean;
  2836. begin
  2837.   Result := Femail_Specified;
  2838. end;
  2839.  
  2840. destructor CustomerProfileType.Destroy;
  2841. var
  2842.   I: Integer;
  2843. begin
  2844.   for I := 0 to System.Length(FpaymentProfiles)-1 do
  2845.     SysUtils.FreeAndNil(FpaymentProfiles[I]);
  2846.   System.SetLength(FpaymentProfiles, 0);
  2847.   for I := 0 to System.Length(FshipToList)-1 do
  2848.     SysUtils.FreeAndNil(FshipToList[I]);
  2849.   System.SetLength(FshipToList, 0);
  2850.   inherited Destroy;
  2851. end;
  2852.  
  2853. procedure CustomerProfileType.SetpaymentProfiles(Index: Integer; const AArrayOfCustomerPaymentProfileType: ArrayOfCustomerPaymentProfileType);
  2854. begin
  2855.   FpaymentProfiles := AArrayOfCustomerPaymentProfileType;
  2856.   FpaymentProfiles_Specified := True;
  2857. end;
  2858.  
  2859. function CustomerProfileType.paymentProfiles_Specified(Index: Integer): boolean;
  2860. begin
  2861.   Result := FpaymentProfiles_Specified;
  2862. end;
  2863.  
  2864. procedure CustomerProfileType.SetshipToList(Index: Integer; const AArrayOfCustomerAddressType: ArrayOfCustomerAddressType);
  2865. begin
  2866.   FshipToList := AArrayOfCustomerAddressType;
  2867.   FshipToList_Specified := True;
  2868. end;
  2869.  
  2870. function CustomerProfileType.shipToList_Specified(Index: Integer): boolean;
  2871. begin
  2872.   Result := FshipToList_Specified;
  2873. end;
  2874.  
  2875. destructor CustomerPaymentProfileBaseType.Destroy;
  2876. begin
  2877.   SysUtils.FreeAndNil(FbillTo);
  2878.   inherited Destroy;
  2879. end;
  2880.  
  2881. procedure CustomerPaymentProfileBaseType.SetcustomerType(Index: Integer; const ACustomerTypeEnum: CustomerTypeEnum);
  2882. begin
  2883.   FcustomerType := ACustomerTypeEnum;
  2884.   FcustomerType_Specified := True;
  2885. end;
  2886.  
  2887. function CustomerPaymentProfileBaseType.customerType_Specified(Index: Integer): boolean;
  2888. begin
  2889.   Result := FcustomerType_Specified;
  2890. end;
  2891.  
  2892. procedure CustomerPaymentProfileBaseType.SetbillTo(Index: Integer; const ACustomerAddressType: CustomerAddressType);
  2893. begin
  2894.   FbillTo := ACustomerAddressType;
  2895.   FbillTo_Specified := True;
  2896. end;
  2897.  
  2898. function CustomerPaymentProfileBaseType.billTo_Specified(Index: Integer): boolean;
  2899. begin
  2900.   Result := FbillTo_Specified;
  2901. end;
  2902.  
  2903. destructor CustomerPaymentProfileType.Destroy;
  2904. begin
  2905.   SysUtils.FreeAndNil(Fpayment);
  2906.   SysUtils.FreeAndNil(FdriversLicense);
  2907.   inherited Destroy;
  2908. end;
  2909.  
  2910. procedure CustomerPaymentProfileType.Setpayment(Index: Integer; const APaymentType: PaymentType);
  2911. begin
  2912.   Fpayment := APaymentType;
  2913.   Fpayment_Specified := True;
  2914. end;
  2915.  
  2916. function CustomerPaymentProfileType.payment_Specified(Index: Integer): boolean;
  2917. begin
  2918.   Result := Fpayment_Specified;
  2919. end;
  2920.  
  2921. procedure CustomerPaymentProfileType.SetdriversLicense(Index: Integer; const ADriversLicenseType: DriversLicenseType);
  2922. begin
  2923.   FdriversLicense := ADriversLicenseType;
  2924.   FdriversLicense_Specified := True;
  2925. end;
  2926.  
  2927. function CustomerPaymentProfileType.driversLicense_Specified(Index: Integer): boolean;
  2928. begin
  2929.   Result := FdriversLicense_Specified;
  2930. end;
  2931.  
  2932. procedure CustomerPaymentProfileType.SettaxId(Index: Integer; const Astring: string);
  2933. begin
  2934.   FtaxId := Astring;
  2935.   FtaxId_Specified := True;
  2936. end;
  2937.  
  2938. function CustomerPaymentProfileType.taxId_Specified(Index: Integer): boolean;
  2939. begin
  2940.   Result := FtaxId_Specified;
  2941. end;
  2942.  
  2943. procedure CustomerAddressType.SetphoneNumber(Index: Integer; const Astring: string);
  2944. begin
  2945.   FphoneNumber := Astring;
  2946.   FphoneNumber_Specified := True;
  2947. end;
  2948.  
  2949. function CustomerAddressType.phoneNumber_Specified(Index: Integer): boolean;
  2950. begin
  2951.   Result := FphoneNumber_Specified;
  2952. end;
  2953.  
  2954. procedure CustomerAddressType.SetfaxNumber(Index: Integer; const Astring: string);
  2955. begin
  2956.   FfaxNumber := Astring;
  2957.   FfaxNumber_Specified := True;
  2958. end;
  2959.  
  2960. function CustomerAddressType.faxNumber_Specified(Index: Integer): boolean;
  2961. begin
  2962.   Result := FfaxNumber_Specified;
  2963. end;
  2964.  
  2965. procedure CreateCustomerProfileResponseType.SetcustomerPaymentProfileIdList(Index: Integer; const AArrayOfLong: ArrayOfLong);
  2966. begin
  2967.   FcustomerPaymentProfileIdList := AArrayOfLong;
  2968.   FcustomerPaymentProfileIdList_Specified := True;
  2969. end;
  2970.  
  2971. function CreateCustomerProfileResponseType.customerPaymentProfileIdList_Specified(Index: Integer): boolean;
  2972. begin
  2973.   Result := FcustomerPaymentProfileIdList_Specified;
  2974. end;
  2975.  
  2976. procedure CreateCustomerProfileResponseType.SetcustomerShippingAddressIdList(Index: Integer; const AArrayOfLong: ArrayOfLong);
  2977. begin
  2978.   FcustomerShippingAddressIdList := AArrayOfLong;
  2979.   FcustomerShippingAddressIdList_Specified := True;
  2980. end;
  2981.  
  2982. function CreateCustomerProfileResponseType.customerShippingAddressIdList_Specified(Index: Integer): boolean;
  2983. begin
  2984.   Result := FcustomerShippingAddressIdList_Specified;
  2985. end;
  2986.  
  2987. procedure CreateCustomerProfileResponseType.SetvalidationDirectResponseList(Index: Integer; const AArrayOfString: ArrayOfString);
  2988. begin
  2989.   FvalidationDirectResponseList := AArrayOfString;
  2990.   FvalidationDirectResponseList_Specified := True;
  2991. end;
  2992.  
  2993. function CreateCustomerProfileResponseType.validationDirectResponseList_Specified(Index: Integer): boolean;
  2994. begin
  2995.   Result := FvalidationDirectResponseList_Specified;
  2996. end;
  2997.  
  2998. procedure CreateCustomerPaymentProfileResponseType.SetvalidationDirectResponse(Index: Integer; const Astring: string);
  2999. begin
  3000.   FvalidationDirectResponse := Astring;
  3001.   FvalidationDirectResponse_Specified := True;
  3002. end;
  3003.  
  3004. function CreateCustomerPaymentProfileResponseType.validationDirectResponse_Specified(Index: Integer): boolean;
  3005. begin
  3006.   Result := FvalidationDirectResponse_Specified;
  3007. end;
  3008.  
  3009. destructor GetCustomerProfileResponseType.Destroy;
  3010. begin
  3011.   SysUtils.FreeAndNil(Fprofile);
  3012.   inherited Destroy;
  3013. end;
  3014.  
  3015. procedure GetCustomerProfileResponseType.Setprofile(Index: Integer; const ACustomerProfileMaskedType: CustomerProfileMaskedType);
  3016. begin
  3017.   Fprofile := ACustomerProfileMaskedType;
  3018.   Fprofile_Specified := True;
  3019. end;
  3020.  
  3021. function GetCustomerProfileResponseType.profile_Specified(Index: Integer): boolean;
  3022. begin
  3023.   Result := Fprofile_Specified;
  3024. end;
  3025.  
  3026. destructor CustomerProfileMaskedType.Destroy;
  3027. var
  3028.   I: Integer;
  3029. begin
  3030.   for I := 0 to System.Length(FpaymentProfiles)-1 do
  3031.     SysUtils.FreeAndNil(FpaymentProfiles[I]);
  3032.   System.SetLength(FpaymentProfiles, 0);
  3033.   for I := 0 to System.Length(FshipToList)-1 do
  3034.     SysUtils.FreeAndNil(FshipToList[I]);
  3035.   System.SetLength(FshipToList, 0);
  3036.   inherited Destroy;
  3037. end;
  3038.  
  3039. procedure CustomerProfileMaskedType.SetpaymentProfiles(Index: Integer; const AArrayOfCustomerPaymentProfileMaskedType: ArrayOfCustomerPaymentProfileMaskedType);
  3040. begin
  3041.   FpaymentProfiles := AArrayOfCustomerPaymentProfileMaskedType;
  3042.   FpaymentProfiles_Specified := True;
  3043. end;
  3044.  
  3045. function CustomerProfileMaskedType.paymentProfiles_Specified(Index: Integer): boolean;
  3046. begin
  3047.   Result := FpaymentProfiles_Specified;
  3048. end;
  3049.  
  3050. procedure CustomerProfileMaskedType.SetshipToList(Index: Integer; const AArrayOfCustomerAddressExType: ArrayOfCustomerAddressExType);
  3051. begin
  3052.   FshipToList := AArrayOfCustomerAddressExType;
  3053.   FshipToList_Specified := True;
  3054. end;
  3055.  
  3056. function CustomerProfileMaskedType.shipToList_Specified(Index: Integer): boolean;
  3057. begin
  3058.   Result := FshipToList_Specified;
  3059. end;
  3060.  
  3061. destructor CustomerPaymentProfileMaskedType.Destroy;
  3062. begin
  3063.   SysUtils.FreeAndNil(Fpayment);
  3064.   SysUtils.FreeAndNil(FdriversLicense);
  3065.   inherited Destroy;
  3066. end;
  3067.  
  3068. procedure CustomerPaymentProfileMaskedType.Setpayment(Index: Integer; const APaymentMaskedType: PaymentMaskedType);
  3069. begin
  3070.   Fpayment := APaymentMaskedType;
  3071.   Fpayment_Specified := True;
  3072. end;
  3073.  
  3074. function CustomerPaymentProfileMaskedType.payment_Specified(Index: Integer): boolean;
  3075. begin
  3076.   Result := Fpayment_Specified;
  3077. end;
  3078.  
  3079. procedure CustomerPaymentProfileMaskedType.SetdriversLicense(Index: Integer; const ADriversLicenseMaskedType: DriversLicenseMaskedType);
  3080. begin
  3081.   FdriversLicense := ADriversLicenseMaskedType;
  3082.   FdriversLicense_Specified := True;
  3083. end;
  3084.  
  3085. function CustomerPaymentProfileMaskedType.driversLicense_Specified(Index: Integer): boolean;
  3086. begin
  3087.   Result := FdriversLicense_Specified;
  3088. end;
  3089.  
  3090. procedure CustomerPaymentProfileMaskedType.SettaxId(Index: Integer; const Astring: string);
  3091. begin
  3092.   FtaxId := Astring;
  3093.   FtaxId_Specified := True;
  3094. end;
  3095.  
  3096. function CustomerPaymentProfileMaskedType.taxId_Specified(Index: Integer): boolean;
  3097. begin
  3098.   Result := FtaxId_Specified;
  3099. end;
  3100.  
  3101. destructor PaymentMaskedType.Destroy;
  3102. begin
  3103.   SysUtils.FreeAndNil(FcreditCard);
  3104.   SysUtils.FreeAndNil(FbankAccount);
  3105.   inherited Destroy;
  3106. end;
  3107.  
  3108. procedure PaymentMaskedType.SetcreditCard(Index: Integer; const ACreditCardMaskedType: CreditCardMaskedType);
  3109. begin
  3110.   FcreditCard := ACreditCardMaskedType;
  3111.   FcreditCard_Specified := True;
  3112. end;
  3113.  
  3114. function PaymentMaskedType.creditCard_Specified(Index: Integer): boolean;
  3115. begin
  3116.   Result := FcreditCard_Specified;
  3117. end;
  3118.  
  3119. procedure PaymentMaskedType.SetbankAccount(Index: Integer; const ABankAccountMaskedType: BankAccountMaskedType);
  3120. begin
  3121.   FbankAccount := ABankAccountMaskedType;
  3122.   FbankAccount_Specified := True;
  3123. end;
  3124.  
  3125. function PaymentMaskedType.bankAccount_Specified(Index: Integer): boolean;
  3126. begin
  3127.   Result := FbankAccount_Specified;
  3128. end;
  3129.  
  3130. procedure DriversLicenseMaskedType.Setnumber(Index: Integer; const Astring: string);
  3131. begin
  3132.   Fnumber := Astring;
  3133.   Fnumber_Specified := True;
  3134. end;
  3135.  
  3136. function DriversLicenseMaskedType.number_Specified(Index: Integer): boolean;
  3137. begin
  3138.   Result := Fnumber_Specified;
  3139. end;
  3140.  
  3141. procedure DriversLicenseMaskedType.SetdateOfBirth(Index: Integer; const Astring: string);
  3142. begin
  3143.   FdateOfBirth := Astring;
  3144.   FdateOfBirth_Specified := True;
  3145. end;
  3146.  
  3147. function DriversLicenseMaskedType.dateOfBirth_Specified(Index: Integer): boolean;
  3148. begin
  3149.   Result := FdateOfBirth_Specified;
  3150. end;
  3151.  
  3152. procedure CreditCardMaskedType.SetcardNumber(Index: Integer; const Astring: string);
  3153. begin
  3154.   FcardNumber := Astring;
  3155.   FcardNumber_Specified := True;
  3156. end;
  3157.  
  3158. function CreditCardMaskedType.cardNumber_Specified(Index: Integer): boolean;
  3159. begin
  3160.   Result := FcardNumber_Specified;
  3161. end;
  3162.  
  3163. procedure CreditCardMaskedType.SetexpirationDate(Index: Integer; const Astring: string);
  3164. begin
  3165.   FexpirationDate := Astring;
  3166.   FexpirationDate_Specified := True;
  3167. end;
  3168.  
  3169. function CreditCardMaskedType.expirationDate_Specified(Index: Integer): boolean;
  3170. begin
  3171.   Result := FexpirationDate_Specified;
  3172. end;
  3173.  
  3174. procedure CreditCardMaskedType.SetcardType(Index: Integer; const Astring: string);
  3175. begin
  3176.   FcardType := Astring;
  3177.   FcardType_Specified := True;
  3178. end;
  3179.  
  3180. function CreditCardMaskedType.cardType_Specified(Index: Integer): boolean;
  3181. begin
  3182.   Result := FcardType_Specified;
  3183. end;
  3184.  
  3185. procedure BankAccountMaskedType.SetroutingNumber(Index: Integer; const Astring: string);
  3186. begin
  3187.   FroutingNumber := Astring;
  3188.   FroutingNumber_Specified := True;
  3189. end;
  3190.  
  3191. function BankAccountMaskedType.routingNumber_Specified(Index: Integer): boolean;
  3192. begin
  3193.   Result := FroutingNumber_Specified;
  3194. end;
  3195.  
  3196. procedure BankAccountMaskedType.SetaccountNumber(Index: Integer; const Astring: string);
  3197. begin
  3198.   FaccountNumber := Astring;
  3199.   FaccountNumber_Specified := True;
  3200. end;
  3201.  
  3202. function BankAccountMaskedType.accountNumber_Specified(Index: Integer): boolean;
  3203. begin
  3204.   Result := FaccountNumber_Specified;
  3205. end;
  3206.  
  3207. destructor GetCustomerPaymentProfileResponseType.Destroy;
  3208. begin
  3209.   SysUtils.FreeAndNil(FpaymentProfile);
  3210.   inherited Destroy;
  3211. end;
  3212.  
  3213. procedure GetCustomerPaymentProfileResponseType.SetpaymentProfile(Index: Integer; const ACustomerPaymentProfileMaskedType: CustomerPaymentProfileMaskedType);
  3214. begin
  3215.   FpaymentProfile := ACustomerPaymentProfileMaskedType;
  3216.   FpaymentProfile_Specified := True;
  3217. end;
  3218.  
  3219. function GetCustomerPaymentProfileResponseType.paymentProfile_Specified(Index: Integer): boolean;
  3220. begin
  3221.   Result := FpaymentProfile_Specified;
  3222. end;
  3223.  
  3224. destructor GetCustomerShippingAddressResponseType.Destroy;
  3225. begin
  3226.   SysUtils.FreeAndNil(Faddress);
  3227.   inherited Destroy;
  3228. end;
  3229.  
  3230. procedure GetCustomerShippingAddressResponseType.Setaddress(Index: Integer; const ACustomerAddressExType: CustomerAddressExType);
  3231. begin
  3232.   Faddress := ACustomerAddressExType;
  3233.   Faddress_Specified := True;
  3234. end;
  3235.  
  3236. function GetCustomerShippingAddressResponseType.address_Specified(Index: Integer): boolean;
  3237. begin
  3238.   Result := Faddress_Specified;
  3239. end;
  3240.  
  3241. procedure UpdateCustomerPaymentProfileResponseType.SetvalidationDirectResponse(Index: Integer; const Astring: string);
  3242. begin
  3243.   FvalidationDirectResponse := Astring;
  3244.   FvalidationDirectResponse_Specified := True;
  3245. end;
  3246.  
  3247. function UpdateCustomerPaymentProfileResponseType.validationDirectResponse_Specified(Index: Integer): boolean;
  3248. begin
  3249.   Result := FvalidationDirectResponse_Specified;
  3250. end;
  3251.  
  3252. destructor ProfileTransactionType.Destroy;
  3253. begin
  3254.   SysUtils.FreeAndNil(FprofileTransVoid);
  3255.   SysUtils.FreeAndNil(FprofileTransRefund);
  3256.   SysUtils.FreeAndNil(FprofileTransAuthOnly);
  3257.   SysUtils.FreeAndNil(FprofileTransPriorAuthCapture);
  3258.   SysUtils.FreeAndNil(FprofileTransAuthCapture);
  3259.   SysUtils.FreeAndNil(FprofileTransCaptureOnly);
  3260.   inherited Destroy;
  3261. end;
  3262.  
  3263. procedure ProfileTransactionType.SetprofileTransVoid(Index: Integer; const AProfileTransVoidType: ProfileTransVoidType);
  3264. begin
  3265.   FprofileTransVoid := AProfileTransVoidType;
  3266.   FprofileTransVoid_Specified := True;
  3267. end;
  3268.  
  3269. function ProfileTransactionType.profileTransVoid_Specified(Index: Integer): boolean;
  3270. begin
  3271.   Result := FprofileTransVoid_Specified;
  3272. end;
  3273.  
  3274. procedure ProfileTransactionType.SetprofileTransRefund(Index: Integer; const AProfileTransRefundType: ProfileTransRefundType);
  3275. begin
  3276.   FprofileTransRefund := AProfileTransRefundType;
  3277.   FprofileTransRefund_Specified := True;
  3278. end;
  3279.  
  3280. function ProfileTransactionType.profileTransRefund_Specified(Index: Integer): boolean;
  3281. begin
  3282.   Result := FprofileTransRefund_Specified;
  3283. end;
  3284.  
  3285. procedure ProfileTransactionType.SetprofileTransAuthOnly(Index: Integer; const AProfileTransAuthOnlyType: ProfileTransAuthOnlyType);
  3286. begin
  3287.   FprofileTransAuthOnly := AProfileTransAuthOnlyType;
  3288.   FprofileTransAuthOnly_Specified := True;
  3289. end;
  3290.  
  3291. function ProfileTransactionType.profileTransAuthOnly_Specified(Index: Integer): boolean;
  3292. begin
  3293.   Result := FprofileTransAuthOnly_Specified;
  3294. end;
  3295.  
  3296. procedure ProfileTransactionType.SetprofileTransPriorAuthCapture(Index: Integer; const AProfileTransPriorAuthCaptureType: ProfileTransPriorAuthCaptureType);
  3297. begin
  3298.   FprofileTransPriorAuthCapture := AProfileTransPriorAuthCaptureType;
  3299.   FprofileTransPriorAuthCapture_Specified := True;
  3300. end;
  3301.  
  3302. function ProfileTransactionType.profileTransPriorAuthCapture_Specified(Index: Integer): boolean;
  3303. begin
  3304.   Result := FprofileTransPriorAuthCapture_Specified;
  3305. end;
  3306.  
  3307. procedure ProfileTransactionType.SetprofileTransAuthCapture(Index: Integer; const AProfileTransAuthCaptureType: ProfileTransAuthCaptureType);
  3308. begin
  3309.   FprofileTransAuthCapture := AProfileTransAuthCaptureType;
  3310.   FprofileTransAuthCapture_Specified := True;
  3311. end;
  3312.  
  3313. function ProfileTransactionType.profileTransAuthCapture_Specified(Index: Integer): boolean;
  3314. begin
  3315.   Result := FprofileTransAuthCapture_Specified;
  3316. end;
  3317.  
  3318. procedure ProfileTransactionType.SetprofileTransCaptureOnly(Index: Integer; const AProfileTransCaptureOnlyType: ProfileTransCaptureOnlyType);
  3319. begin
  3320.   FprofileTransCaptureOnly := AProfileTransCaptureOnlyType;
  3321.   FprofileTransCaptureOnly_Specified := True;
  3322. end;
  3323.  
  3324. function ProfileTransactionType.profileTransCaptureOnly_Specified(Index: Integer): boolean;
  3325. begin
  3326.   Result := FprofileTransCaptureOnly_Specified;
  3327. end;
  3328.  
  3329. procedure ProfileTransVoidType.SetcustomerProfileId(Index: Integer; const AInt64: Int64);
  3330. begin
  3331.   FcustomerProfileId := AInt64;
  3332.   FcustomerProfileId_Specified := True;
  3333. end;
  3334.  
  3335. function ProfileTransVoidType.customerProfileId_Specified(Index: Integer): boolean;
  3336. begin
  3337.   Result := FcustomerProfileId_Specified;
  3338. end;
  3339.  
  3340. procedure ProfileTransVoidType.SetcustomerPaymentProfileId(Index: Integer; const AInt64: Int64);
  3341. begin
  3342.   FcustomerPaymentProfileId := AInt64;
  3343.   FcustomerPaymentProfileId_Specified := True;
  3344. end;
  3345.  
  3346. function ProfileTransVoidType.customerPaymentProfileId_Specified(Index: Integer): boolean;
  3347. begin
  3348.   Result := FcustomerPaymentProfileId_Specified;
  3349. end;
  3350.  
  3351. procedure ProfileTransVoidType.SetcustomerShippingAddressId(Index: Integer; const AInt64: Int64);
  3352. begin
  3353.   FcustomerShippingAddressId := AInt64;
  3354.   FcustomerShippingAddressId_Specified := True;
  3355. end;
  3356.  
  3357. function ProfileTransVoidType.customerShippingAddressId_Specified(Index: Integer): boolean;
  3358. begin
  3359.   Result := FcustomerShippingAddressId_Specified;
  3360. end;
  3361.  
  3362. procedure ProfileTransVoidType.SettransId(Index: Integer; const Astring: string);
  3363. begin
  3364.   FtransId := Astring;
  3365.   FtransId_Specified := True;
  3366. end;
  3367.  
  3368. function ProfileTransVoidType.transId_Specified(Index: Integer): boolean;
  3369. begin
  3370.   Result := FtransId_Specified;
  3371. end;
  3372.  
  3373. procedure OrderExType.SetpurchaseOrderNumber(Index: Integer; const Astring: string);
  3374. begin
  3375.   FpurchaseOrderNumber := Astring;
  3376.   FpurchaseOrderNumber_Specified := True;
  3377. end;
  3378.  
  3379. function OrderExType.purchaseOrderNumber_Specified(Index: Integer): boolean;
  3380. begin
  3381.   Result := FpurchaseOrderNumber_Specified;
  3382. end;
  3383.  
  3384. destructor ExtendedAmountType.Destroy;
  3385. begin
  3386.   SysUtils.FreeAndNil(Famount);
  3387.   inherited Destroy;
  3388. end;
  3389.  
  3390. procedure ExtendedAmountType.Setname_(Index: Integer; const Astring: string);
  3391. begin
  3392.   Fname_ := Astring;
  3393.   Fname__Specified := True;
  3394. end;
  3395.  
  3396. function ExtendedAmountType.name__Specified(Index: Integer): boolean;
  3397. begin
  3398.   Result := Fname__Specified;
  3399. end;
  3400.  
  3401. procedure ExtendedAmountType.Setdescription(Index: Integer; const Astring: string);
  3402. begin
  3403.   Fdescription := Astring;
  3404.   Fdescription_Specified := True;
  3405. end;
  3406.  
  3407. function ExtendedAmountType.description_Specified(Index: Integer): boolean;
  3408. begin
  3409.   Result := Fdescription_Specified;
  3410. end;
  3411.  
  3412. destructor LineItemType.Destroy;
  3413. begin
  3414.   SysUtils.FreeAndNil(Fquantity);
  3415.   SysUtils.FreeAndNil(FunitPrice);
  3416.   inherited Destroy;
  3417. end;
  3418.  
  3419. procedure LineItemType.SetitemId(Index: Integer; const Astring: string);
  3420. begin
  3421.   FitemId := Astring;
  3422.   FitemId_Specified := True;
  3423. end;
  3424.  
  3425. function LineItemType.itemId_Specified(Index: Integer): boolean;
  3426. begin
  3427.   Result := FitemId_Specified;
  3428. end;
  3429.  
  3430. procedure LineItemType.Setname_(Index: Integer; const Astring: string);
  3431. begin
  3432.   Fname_ := Astring;
  3433.   Fname__Specified := True;
  3434. end;
  3435.  
  3436. function LineItemType.name__Specified(Index: Integer): boolean;
  3437. begin
  3438.   Result := Fname__Specified;
  3439. end;
  3440.  
  3441. procedure LineItemType.Setdescription(Index: Integer; const Astring: string);
  3442. begin
  3443.   Fdescription := Astring;
  3444.   Fdescription_Specified := True;
  3445. end;
  3446.  
  3447. function LineItemType.description_Specified(Index: Integer): boolean;
  3448. begin
  3449.   Result := Fdescription_Specified;
  3450. end;
  3451.  
  3452. procedure LineItemType.Settaxable(Index: Integer; const ABoolean: Boolean);
  3453. begin
  3454.   Ftaxable := ABoolean;
  3455.   Ftaxable_Specified := True;
  3456. end;
  3457.  
  3458. function LineItemType.taxable_Specified(Index: Integer): boolean;
  3459. begin
  3460.   Result := Ftaxable_Specified;
  3461. end;
  3462.  
  3463. procedure CreateCustomerProfileTransactionResponseType.SetdirectResponse(Index: Integer; const Astring: string);
  3464. begin
  3465.   FdirectResponse := Astring;
  3466.   FdirectResponse_Specified := True;
  3467. end;
  3468.  
  3469. function CreateCustomerProfileTransactionResponseType.directResponse_Specified(Index: Integer): boolean;
  3470. begin
  3471.   Result := FdirectResponse_Specified;
  3472. end;
  3473.  
  3474. procedure ValidateCustomerPaymentProfileResponseType.SetdirectResponse(Index: Integer; const Astring: string);
  3475. begin
  3476.   FdirectResponse := Astring;
  3477.   FdirectResponse_Specified := True;
  3478. end;
  3479.  
  3480. function ValidateCustomerPaymentProfileResponseType.directResponse_Specified(Index: Integer): boolean;
  3481. begin
  3482.   Result := FdirectResponse_Specified;
  3483. end;
  3484.  
  3485. procedure GetCustomerProfileIdsResponseType.Setids(Index: Integer; const AArrayOfLong: ArrayOfLong);
  3486. begin
  3487.   Fids := AArrayOfLong;
  3488.   Fids_Specified := True;
  3489. end;
  3490.  
  3491. function GetCustomerProfileIdsResponseType.ids_Specified(Index: Integer): boolean;
  3492. begin
  3493.   Result := Fids_Specified;
  3494. end;
  3495.  
  3496. destructor GetTransactionDetailsResponseType.Destroy;
  3497. begin
  3498.   SysUtils.FreeAndNil(Ftransaction);
  3499.   inherited Destroy;
  3500. end;
  3501.  
  3502. procedure GetTransactionDetailsResponseType.Settransaction(Index: Integer; const ATransactionDetailsType: TransactionDetailsType);
  3503. begin
  3504.   Ftransaction := ATransactionDetailsType;
  3505.   Ftransaction_Specified := True;
  3506. end;
  3507.  
  3508. function GetTransactionDetailsResponseType.transaction_Specified(Index: Integer): boolean;
  3509. begin
  3510.   Result := Ftransaction_Specified;
  3511. end;
  3512.  
  3513. destructor CustomerDataType.Destroy;
  3514. begin
  3515.   SysUtils.FreeAndNil(FdriversLicense);
  3516.   inherited Destroy;
  3517. end;
  3518.  
  3519. procedure CustomerDataType.Settype_(Index: Integer; const ACustomerTypeEnum: CustomerTypeEnum);
  3520. begin
  3521.   Ftype_ := ACustomerTypeEnum;
  3522.   Ftype__Specified := True;
  3523. end;
  3524.  
  3525. function CustomerDataType.type__Specified(Index: Integer): boolean;
  3526. begin
  3527.   Result := Ftype__Specified;
  3528. end;
  3529.  
  3530. procedure CustomerDataType.Setid(Index: Integer; const Astring: string);
  3531. begin
  3532.   Fid := Astring;
  3533.   Fid_Specified := True;
  3534. end;
  3535.  
  3536. function CustomerDataType.id_Specified(Index: Integer): boolean;
  3537. begin
  3538.   Result := Fid_Specified;
  3539. end;
  3540.  
  3541. procedure CustomerDataType.Setemail(Index: Integer; const Astring: string);
  3542. begin
  3543.   Femail := Astring;
  3544.   Femail_Specified := True;
  3545. end;
  3546.  
  3547. function CustomerDataType.email_Specified(Index: Integer): boolean;
  3548. begin
  3549.   Result := Femail_Specified;
  3550. end;
  3551.  
  3552. procedure CustomerDataType.SetdriversLicense(Index: Integer; const ADriversLicenseType: DriversLicenseType);
  3553. begin
  3554.   FdriversLicense := ADriversLicenseType;
  3555.   FdriversLicense_Specified := True;
  3556. end;
  3557.  
  3558. function CustomerDataType.driversLicense_Specified(Index: Integer): boolean;
  3559. begin
  3560.   Result := FdriversLicense_Specified;
  3561. end;
  3562.  
  3563. procedure CustomerDataType.SettaxId(Index: Integer; const Astring: string);
  3564. begin
  3565.   FtaxId := Astring;
  3566.   FtaxId_Specified := True;
  3567. end;
  3568.  
  3569. function CustomerDataType.taxId_Specified(Index: Integer): boolean;
  3570. begin
  3571.   Result := FtaxId_Specified;
  3572. end;
  3573.  
  3574. procedure FDSFilterType.Setname_(Index: Integer; const Astring: string);
  3575. begin
  3576.   Fname_ := Astring;
  3577.   Fname__Specified := True;
  3578. end;
  3579.  
  3580. function FDSFilterType.name__Specified(Index: Integer): boolean;
  3581. begin
  3582.   Result := Fname__Specified;
  3583. end;
  3584.  
  3585. procedure FDSFilterType.Setaction(Index: Integer; const Astring: string);
  3586. begin
  3587.   Faction := Astring;
  3588.   Faction_Specified := True;
  3589. end;
  3590.  
  3591. function FDSFilterType.action_Specified(Index: Integer): boolean;
  3592. begin
  3593.   Result := Faction_Specified;
  3594. end;
  3595.  
  3596. destructor BatchDetailsType.Destroy;
  3597. var
  3598.   I: Integer;
  3599. begin
  3600.   for I := 0 to System.Length(Fstatistics)-1 do
  3601.     SysUtils.FreeAndNil(Fstatistics[I]);
  3602.   System.SetLength(Fstatistics, 0);
  3603.   SysUtils.FreeAndNil(FsettlementTimeUTC);
  3604.   SysUtils.FreeAndNil(FsettlementTimeLocal);
  3605.   inherited Destroy;
  3606. end;
  3607.  
  3608. procedure BatchDetailsType.SetbatchId(Index: Integer; const Astring: string);
  3609. begin
  3610.   FbatchId := Astring;
  3611.   FbatchId_Specified := True;
  3612. end;
  3613.  
  3614. function BatchDetailsType.batchId_Specified(Index: Integer): boolean;
  3615. begin
  3616.   Result := FbatchId_Specified;
  3617. end;
  3618.  
  3619. procedure BatchDetailsType.SetsettlementTimeUTC(Index: Integer; const ATXSDateTime: TXSDateTime);
  3620. begin
  3621.   FsettlementTimeUTC := ATXSDateTime;
  3622.   FsettlementTimeUTC_Specified := True;
  3623. end;
  3624.  
  3625. function BatchDetailsType.settlementTimeUTC_Specified(Index: Integer): boolean;
  3626. begin
  3627.   Result := FsettlementTimeUTC_Specified;
  3628. end;
  3629.  
  3630. procedure BatchDetailsType.SetsettlementTimeLocal(Index: Integer; const ATXSDateTime: TXSDateTime);
  3631. begin
  3632.   FsettlementTimeLocal := ATXSDateTime;
  3633.   FsettlementTimeLocal_Specified := True;
  3634. end;
  3635.  
  3636. function BatchDetailsType.settlementTimeLocal_Specified(Index: Integer): boolean;
  3637. begin
  3638.   Result := FsettlementTimeLocal_Specified;
  3639. end;
  3640.  
  3641. procedure BatchDetailsType.SetsettlementState(Index: Integer; const Astring: string);
  3642. begin
  3643.   FsettlementState := Astring;
  3644.   FsettlementState_Specified := True;
  3645. end;
  3646.  
  3647. function BatchDetailsType.settlementState_Specified(Index: Integer): boolean;
  3648. begin
  3649.   Result := FsettlementState_Specified;
  3650. end;
  3651.  
  3652. procedure BatchDetailsType.SetpaymentMethod(Index: Integer; const Astring: string);
  3653. begin
  3654.   FpaymentMethod := Astring;
  3655.   FpaymentMethod_Specified := True;
  3656. end;
  3657.  
  3658. function BatchDetailsType.paymentMethod_Specified(Index: Integer): boolean;
  3659. begin
  3660.   Result := FpaymentMethod_Specified;
  3661. end;
  3662.  
  3663. procedure BatchDetailsType.Setstatistics(Index: Integer; const AArrayOfBatchStatisticType: ArrayOfBatchStatisticType);
  3664. begin
  3665.   Fstatistics := AArrayOfBatchStatisticType;
  3666.   Fstatistics_Specified := True;
  3667. end;
  3668.  
  3669. function BatchDetailsType.statistics_Specified(Index: Integer): boolean;
  3670. begin
  3671.   Result := Fstatistics_Specified;
  3672. end;
  3673.  
  3674. destructor BatchStatisticType.Destroy;
  3675. begin
  3676.   SysUtils.FreeAndNil(FchargeAmount);
  3677.   SysUtils.FreeAndNil(FrefundAmount);
  3678.   SysUtils.FreeAndNil(FreturnedItemAmount);
  3679.   SysUtils.FreeAndNil(FchargebackAmount);
  3680.   SysUtils.FreeAndNil(FchargeChargeBackAmount);
  3681.   SysUtils.FreeAndNil(FrefundChargeBackAmount);
  3682.   SysUtils.FreeAndNil(FchargeReturnedItemsAmount);
  3683.   SysUtils.FreeAndNil(FrefundReturnedItemsAmount);
  3684.   inherited Destroy;
  3685. end;
  3686.  
  3687. procedure BatchStatisticType.SetaccountType(Index: Integer; const Astring: string);
  3688. begin
  3689.   FaccountType := Astring;
  3690.   FaccountType_Specified := True;
  3691. end;
  3692.  
  3693. function BatchStatisticType.accountType_Specified(Index: Integer): boolean;
  3694. begin
  3695.   Result := FaccountType_Specified;
  3696. end;
  3697.  
  3698. procedure BatchStatisticType.SetcurrencyCode(Index: Integer; const Astring: string);
  3699. begin
  3700.   FcurrencyCode := Astring;
  3701.   FcurrencyCode_Specified := True;
  3702. end;
  3703.  
  3704. function BatchStatisticType.currencyCode_Specified(Index: Integer): boolean;
  3705. begin
  3706.   Result := FcurrencyCode_Specified;
  3707. end;
  3708.  
  3709. procedure BatchStatisticType.SetreturnedItemAmount(Index: Integer; const ATXSDecimal: TXSDecimal);
  3710. begin
  3711.   FreturnedItemAmount := ATXSDecimal;
  3712.   FreturnedItemAmount_Specified := True;
  3713. end;
  3714.  
  3715. function BatchStatisticType.returnedItemAmount_Specified(Index: Integer): boolean;
  3716. begin
  3717.   Result := FreturnedItemAmount_Specified;
  3718. end;
  3719.  
  3720. procedure BatchStatisticType.SetreturnedItemCount(Index: Integer; const AInteger: Integer);
  3721. begin
  3722.   FreturnedItemCount := AInteger;
  3723.   FreturnedItemCount_Specified := True;
  3724. end;
  3725.  
  3726. function BatchStatisticType.returnedItemCount_Specified(Index: Integer): boolean;
  3727. begin
  3728.   Result := FreturnedItemCount_Specified;
  3729. end;
  3730.  
  3731. procedure BatchStatisticType.SetchargebackAmount(Index: Integer; const ATXSDecimal: TXSDecimal);
  3732. begin
  3733.   FchargebackAmount := ATXSDecimal;
  3734.   FchargebackAmount_Specified := True;
  3735. end;
  3736.  
  3737. function BatchStatisticType.chargebackAmount_Specified(Index: Integer): boolean;
  3738. begin
  3739.   Result := FchargebackAmount_Specified;
  3740. end;
  3741.  
  3742. procedure BatchStatisticType.SetchargebackCount(Index: Integer; const AInteger: Integer);
  3743. begin
  3744.   FchargebackCount := AInteger;
  3745.   FchargebackCount_Specified := True;
  3746. end;
  3747.  
  3748. function BatchStatisticType.chargebackCount_Specified(Index: Integer): boolean;
  3749. begin
  3750.   Result := FchargebackCount_Specified;
  3751. end;
  3752.  
  3753. procedure BatchStatisticType.SetcorrectionNoticeCount(Index: Integer; const AInteger: Integer);
  3754. begin
  3755.   FcorrectionNoticeCount := AInteger;
  3756.   FcorrectionNoticeCount_Specified := True;
  3757. end;
  3758.  
  3759. function BatchStatisticType.correctionNoticeCount_Specified(Index: Integer): boolean;
  3760. begin
  3761.   Result := FcorrectionNoticeCount_Specified;
  3762. end;
  3763.  
  3764. procedure BatchStatisticType.SetchargeChargeBackAmount(Index: Integer; const ATXSDecimal: TXSDecimal);
  3765. begin
  3766.   FchargeChargeBackAmount := ATXSDecimal;
  3767.   FchargeChargeBackAmount_Specified := True;
  3768. end;
  3769.  
  3770. function BatchStatisticType.chargeChargeBackAmount_Specified(Index: Integer): boolean;
  3771. begin
  3772.   Result := FchargeChargeBackAmount_Specified;
  3773. end;
  3774.  
  3775. procedure BatchStatisticType.SetchargeChargeBackCount(Index: Integer; const AInteger: Integer);
  3776. begin
  3777.   FchargeChargeBackCount := AInteger;
  3778.   FchargeChargeBackCount_Specified := True;
  3779. end;
  3780.  
  3781. function BatchStatisticType.chargeChargeBackCount_Specified(Index: Integer): boolean;
  3782. begin
  3783.   Result := FchargeChargeBackCount_Specified;
  3784. end;
  3785.  
  3786. procedure BatchStatisticType.SetrefundChargeBackAmount(Index: Integer; const ATXSDecimal: TXSDecimal);
  3787. begin
  3788.   FrefundChargeBackAmount := ATXSDecimal;
  3789.   FrefundChargeBackAmount_Specified := True;
  3790. end;
  3791.  
  3792. function BatchStatisticType.refundChargeBackAmount_Specified(Index: Integer): boolean;
  3793. begin
  3794.   Result := FrefundChargeBackAmount_Specified;
  3795. end;
  3796.  
  3797. procedure BatchStatisticType.SetrefundChargeBackCount(Index: Integer; const AInteger: Integer);
  3798. begin
  3799.   FrefundChargeBackCount := AInteger;
  3800.   FrefundChargeBackCount_Specified := True;
  3801. end;
  3802.  
  3803. function BatchStatisticType.refundChargeBackCount_Specified(Index: Integer): boolean;
  3804. begin
  3805.   Result := FrefundChargeBackCount_Specified;
  3806. end;
  3807.  
  3808. procedure BatchStatisticType.SetchargeReturnedItemsAmount(Index: Integer; const ATXSDecimal: TXSDecimal);
  3809. begin
  3810.   FchargeReturnedItemsAmount := ATXSDecimal;
  3811.   FchargeReturnedItemsAmount_Specified := True;
  3812. end;
  3813.  
  3814. function BatchStatisticType.chargeReturnedItemsAmount_Specified(Index: Integer): boolean;
  3815. begin
  3816.   Result := FchargeReturnedItemsAmount_Specified;
  3817. end;
  3818.  
  3819. procedure BatchStatisticType.SetchargeReturnedItemsCount(Index: Integer; const AInteger: Integer);
  3820. begin
  3821.   FchargeReturnedItemsCount := AInteger;
  3822.   FchargeReturnedItemsCount_Specified := True;
  3823. end;
  3824.  
  3825. function BatchStatisticType.chargeReturnedItemsCount_Specified(Index: Integer): boolean;
  3826. begin
  3827.   Result := FchargeReturnedItemsCount_Specified;
  3828. end;
  3829.  
  3830. procedure BatchStatisticType.SetrefundReturnedItemsAmount(Index: Integer; const ATXSDecimal: TXSDecimal);
  3831. begin
  3832.   FrefundReturnedItemsAmount := ATXSDecimal;
  3833.   FrefundReturnedItemsAmount_Specified := True;
  3834. end;
  3835.  
  3836. function BatchStatisticType.refundReturnedItemsAmount_Specified(Index: Integer): boolean;
  3837. begin
  3838.   Result := FrefundReturnedItemsAmount_Specified;
  3839. end;
  3840.  
  3841. procedure BatchStatisticType.SetrefundReturnedItemsCount(Index: Integer; const AInteger: Integer);
  3842. begin
  3843.   FrefundReturnedItemsCount := AInteger;
  3844.   FrefundReturnedItemsCount_Specified := True;
  3845. end;
  3846.  
  3847. function BatchStatisticType.refundReturnedItemsCount_Specified(Index: Integer): boolean;
  3848. begin
  3849.   Result := FrefundReturnedItemsCount_Specified;
  3850. end;
  3851.  
  3852. destructor GetSettledBatchListRequestType.Destroy;
  3853. begin
  3854.   SysUtils.FreeAndNil(FfirstSettlementDate);
  3855.   SysUtils.FreeAndNil(FlastSettlementDate);
  3856.   inherited Destroy;
  3857. end;
  3858.  
  3859. procedure GetSettledBatchListRequestType.SetincludeStatistics(Index: Integer; const ABoolean: Boolean);
  3860. begin
  3861.   FincludeStatistics := ABoolean;
  3862.   FincludeStatistics_Specified := True;
  3863. end;
  3864.  
  3865. function GetSettledBatchListRequestType.includeStatistics_Specified(Index: Integer): boolean;
  3866. begin
  3867.   Result := FincludeStatistics_Specified;
  3868. end;
  3869.  
  3870. procedure GetSettledBatchListRequestType.SetfirstSettlementDate(Index: Integer; const ATXSDateTime: TXSDateTime);
  3871. begin
  3872.   FfirstSettlementDate := ATXSDateTime;
  3873.   FfirstSettlementDate_Specified := True;
  3874. end;
  3875.  
  3876. function GetSettledBatchListRequestType.firstSettlementDate_Specified(Index: Integer): boolean;
  3877. begin
  3878.   Result := FfirstSettlementDate_Specified;
  3879. end;
  3880.  
  3881. procedure GetSettledBatchListRequestType.SetlastSettlementDate(Index: Integer; const ATXSDateTime: TXSDateTime);
  3882. begin
  3883.   FlastSettlementDate := ATXSDateTime;
  3884.   FlastSettlementDate_Specified := True;
  3885. end;
  3886.  
  3887. function GetSettledBatchListRequestType.lastSettlementDate_Specified(Index: Integer): boolean;
  3888. begin
  3889.   Result := FlastSettlementDate_Specified;
  3890. end;
  3891.  
  3892. destructor GetSettledBatchListResponseType.Destroy;
  3893. var
  3894.   I: Integer;
  3895. begin
  3896.   for I := 0 to System.Length(FbatchList)-1 do
  3897.     SysUtils.FreeAndNil(FbatchList[I]);
  3898.   System.SetLength(FbatchList, 0);
  3899.   inherited Destroy;
  3900. end;
  3901.  
  3902. procedure GetSettledBatchListResponseType.SetbatchList(Index: Integer; const AArrayOfBatchDetailsType: ArrayOfBatchDetailsType);
  3903. begin
  3904.   FbatchList := AArrayOfBatchDetailsType;
  3905.   FbatchList_Specified := True;
  3906. end;
  3907.  
  3908. function GetSettledBatchListResponseType.batchList_Specified(Index: Integer): boolean;
  3909. begin
  3910.   Result := FbatchList_Specified;
  3911. end;
  3912.  
  3913. procedure GetTransactionListRequestType.SetbatchId(Index: Integer; const Astring: string);
  3914. begin
  3915.   FbatchId := Astring;
  3916.   FbatchId_Specified := True;
  3917. end;
  3918.  
  3919. function GetTransactionListRequestType.batchId_Specified(Index: Integer): boolean;
  3920. begin
  3921.   Result := FbatchId_Specified;
  3922. end;
  3923.  
  3924. destructor GetTransactionListResponseType.Destroy;
  3925. var
  3926.   I: Integer;
  3927. begin
  3928.   for I := 0 to System.Length(Ftransactions)-1 do
  3929.     SysUtils.FreeAndNil(Ftransactions[I]);
  3930.   System.SetLength(Ftransactions, 0);
  3931.   inherited Destroy;
  3932. end;
  3933.  
  3934. procedure GetTransactionListResponseType.Settransactions(Index: Integer; const AArrayOfTransactionSummaryType: ArrayOfTransactionSummaryType);
  3935. begin
  3936.   Ftransactions := AArrayOfTransactionSummaryType;
  3937.   Ftransactions_Specified := True;
  3938. end;
  3939.  
  3940. function GetTransactionListResponseType.transactions_Specified(Index: Integer): boolean;
  3941. begin
  3942.   Result := Ftransactions_Specified;
  3943. end;
  3944.  
  3945. destructor TransactionSummaryType.Destroy;
  3946. begin
  3947.   SysUtils.FreeAndNil(FsubmitTimeUTC);
  3948.   SysUtils.FreeAndNil(FsubmitTimeLocal);
  3949.   SysUtils.FreeAndNil(FsettleAmount);
  3950.   inherited Destroy;
  3951. end;
  3952.  
  3953. procedure TransactionSummaryType.SettransId(Index: Integer; const Astring: string);
  3954. begin
  3955.   FtransId := Astring;
  3956.   FtransId_Specified := True;
  3957. end;
  3958.  
  3959. function TransactionSummaryType.transId_Specified(Index: Integer): boolean;
  3960. begin
  3961.   Result := FtransId_Specified;
  3962. end;
  3963.  
  3964. procedure TransactionSummaryType.SettransactionStatus(Index: Integer; const Astring: string);
  3965. begin
  3966.   FtransactionStatus := Astring;
  3967.   FtransactionStatus_Specified := True;
  3968. end;
  3969.  
  3970. function TransactionSummaryType.transactionStatus_Specified(Index: Integer): boolean;
  3971. begin
  3972.   Result := FtransactionStatus_Specified;
  3973. end;
  3974.  
  3975. procedure TransactionSummaryType.SetinvoiceNumber(Index: Integer; const Astring: string);
  3976. begin
  3977.   FinvoiceNumber := Astring;
  3978.   FinvoiceNumber_Specified := True;
  3979. end;
  3980.  
  3981. function TransactionSummaryType.invoiceNumber_Specified(Index: Integer): boolean;
  3982. begin
  3983.   Result := FinvoiceNumber_Specified;
  3984. end;
  3985.  
  3986. procedure TransactionSummaryType.SetfirstName(Index: Integer; const Astring: string);
  3987. begin
  3988.   FfirstName := Astring;
  3989.   FfirstName_Specified := True;
  3990. end;
  3991.  
  3992. function TransactionSummaryType.firstName_Specified(Index: Integer): boolean;
  3993. begin
  3994.   Result := FfirstName_Specified;
  3995. end;
  3996.  
  3997. procedure TransactionSummaryType.SetlastName(Index: Integer; const Astring: string);
  3998. begin
  3999.   FlastName := Astring;
  4000.   FlastName_Specified := True;
  4001. end;
  4002.  
  4003. function TransactionSummaryType.lastName_Specified(Index: Integer): boolean;
  4004. begin
  4005.   Result := FlastName_Specified;
  4006. end;
  4007.  
  4008. procedure TransactionSummaryType.SetaccountType(Index: Integer; const Astring: string);
  4009. begin
  4010.   FaccountType := Astring;
  4011.   FaccountType_Specified := True;
  4012. end;
  4013.  
  4014. function TransactionSummaryType.accountType_Specified(Index: Integer): boolean;
  4015. begin
  4016.   Result := FaccountType_Specified;
  4017. end;
  4018.  
  4019. procedure TransactionSummaryType.SetaccountNumber(Index: Integer; const Astring: string);
  4020. begin
  4021.   FaccountNumber := Astring;
  4022.   FaccountNumber_Specified := True;
  4023. end;
  4024.  
  4025. function TransactionSummaryType.accountNumber_Specified(Index: Integer): boolean;
  4026. begin
  4027.   Result := FaccountNumber_Specified;
  4028. end;
  4029.  
  4030. destructor TransactionDetailsType.Destroy;
  4031. var
  4032.   I: Integer;
  4033. begin
  4034.   for I := 0 to System.Length(FFDSFilters)-1 do
  4035.     SysUtils.FreeAndNil(FFDSFilters[I]);
  4036.   System.SetLength(FFDSFilters, 0);
  4037.   for I := 0 to System.Length(FlineItems)-1 do
  4038.     SysUtils.FreeAndNil(FlineItems[I]);
  4039.   System.SetLength(FlineItems, 0);
  4040.   SysUtils.FreeAndNil(FsubmitTimeUTC);
  4041.   SysUtils.FreeAndNil(FsubmitTimeLocal);
  4042.   SysUtils.FreeAndNil(Fbatch);
  4043.   SysUtils.FreeAndNil(Forder);
  4044.   SysUtils.FreeAndNil(FrequestedAmount);
  4045.   SysUtils.FreeAndNil(FauthAmount);
  4046.   SysUtils.FreeAndNil(FsettleAmount);
  4047.   SysUtils.FreeAndNil(Ftax);
  4048.   SysUtils.FreeAndNil(Fshipping);
  4049.   SysUtils.FreeAndNil(Fduty);
  4050.   SysUtils.FreeAndNil(FprepaidBalanceRemaining);
  4051.   SysUtils.FreeAndNil(Fpayment);
  4052.   SysUtils.FreeAndNil(Fcustomer);
  4053.   SysUtils.FreeAndNil(FbillTo);
  4054.   SysUtils.FreeAndNil(FshipTo);
  4055.   inherited Destroy;
  4056. end;
  4057.  
  4058. procedure TransactionDetailsType.SettransId(Index: Integer; const Astring: string);
  4059. begin
  4060.   FtransId := Astring;
  4061.   FtransId_Specified := True;
  4062. end;
  4063.  
  4064. function TransactionDetailsType.transId_Specified(Index: Integer): boolean;
  4065. begin
  4066.   Result := FtransId_Specified;
  4067. end;
  4068.  
  4069. procedure TransactionDetailsType.SetrefTransId(Index: Integer; const Astring: string);
  4070. begin
  4071.   FrefTransId := Astring;
  4072.   FrefTransId_Specified := True;
  4073. end;
  4074.  
  4075. function TransactionDetailsType.refTransId_Specified(Index: Integer): boolean;
  4076. begin
  4077.   Result := FrefTransId_Specified;
  4078. end;
  4079.  
  4080. procedure TransactionDetailsType.SetsplitTenderId(Index: Integer; const AInt64: Int64);
  4081. begin
  4082.   FsplitTenderId := AInt64;
  4083.   FsplitTenderId_Specified := True;
  4084. end;
  4085.  
  4086. function TransactionDetailsType.splitTenderId_Specified(Index: Integer): boolean;
  4087. begin
  4088.   Result := FsplitTenderId_Specified;
  4089. end;
  4090.  
  4091. procedure TransactionDetailsType.SettransactionType(Index: Integer; const Astring: string);
  4092. begin
  4093.   FtransactionType := Astring;
  4094.   FtransactionType_Specified := True;
  4095. end;
  4096.  
  4097. function TransactionDetailsType.transactionType_Specified(Index: Integer): boolean;
  4098. begin
  4099.   Result := FtransactionType_Specified;
  4100. end;
  4101.  
  4102. procedure TransactionDetailsType.SettransactionStatus(Index: Integer; const Astring: string);
  4103. begin
  4104.   FtransactionStatus := Astring;
  4105.   FtransactionStatus_Specified := True;
  4106. end;
  4107.  
  4108. function TransactionDetailsType.transactionStatus_Specified(Index: Integer): boolean;
  4109. begin
  4110.   Result := FtransactionStatus_Specified;
  4111. end;
  4112.  
  4113. procedure TransactionDetailsType.SetresponseReasonDescription(Index: Integer; const Astring: string);
  4114. begin
  4115.   FresponseReasonDescription := Astring;
  4116.   FresponseReasonDescription_Specified := True;
  4117. end;
  4118.  
  4119. function TransactionDetailsType.responseReasonDescription_Specified(Index: Integer): boolean;
  4120. begin
  4121.   Result := FresponseReasonDescription_Specified;
  4122. end;
  4123.  
  4124. procedure TransactionDetailsType.SetauthCode(Index: Integer; const Astring: string);
  4125. begin
  4126.   FauthCode := Astring;
  4127.   FauthCode_Specified := True;
  4128. end;
  4129.  
  4130. function TransactionDetailsType.authCode_Specified(Index: Integer): boolean;
  4131. begin
  4132.   Result := FauthCode_Specified;
  4133. end;
  4134.  
  4135. procedure TransactionDetailsType.SetAVSResponse(Index: Integer; const Astring: string);
  4136. begin
  4137.   FAVSResponse := Astring;
  4138.   FAVSResponse_Specified := True;
  4139. end;
  4140.  
  4141. function TransactionDetailsType.AVSResponse_Specified(Index: Integer): boolean;
  4142. begin
  4143.   Result := FAVSResponse_Specified;
  4144. end;
  4145.  
  4146. procedure TransactionDetailsType.SetcardCodeResponse(Index: Integer; const Astring: string);
  4147. begin
  4148.   FcardCodeResponse := Astring;
  4149.   FcardCodeResponse_Specified := True;
  4150. end;
  4151.  
  4152. function TransactionDetailsType.cardCodeResponse_Specified(Index: Integer): boolean;
  4153. begin
  4154.   Result := FcardCodeResponse_Specified;
  4155. end;
  4156.  
  4157. procedure TransactionDetailsType.SetCAVVResponse(Index: Integer; const Astring: string);
  4158. begin
  4159.   FCAVVResponse := Astring;
  4160.   FCAVVResponse_Specified := True;
  4161. end;
  4162.  
  4163. function TransactionDetailsType.CAVVResponse_Specified(Index: Integer): boolean;
  4164. begin
  4165.   Result := FCAVVResponse_Specified;
  4166. end;
  4167.  
  4168. procedure TransactionDetailsType.SetFDSFilterAction(Index: Integer; const Astring: string);
  4169. begin
  4170.   FFDSFilterAction := Astring;
  4171.   FFDSFilterAction_Specified := True;
  4172. end;
  4173.  
  4174. function TransactionDetailsType.FDSFilterAction_Specified(Index: Integer): boolean;
  4175. begin
  4176.   Result := FFDSFilterAction_Specified;
  4177. end;
  4178.  
  4179. procedure TransactionDetailsType.SetFDSFilters(Index: Integer; const AArrayOfFDSFilterType: ArrayOfFDSFilterType);
  4180. begin
  4181.   FFDSFilters := AArrayOfFDSFilterType;
  4182.   FFDSFilters_Specified := True;
  4183. end;
  4184.  
  4185. function TransactionDetailsType.FDSFilters_Specified(Index: Integer): boolean;
  4186. begin
  4187.   Result := FFDSFilters_Specified;
  4188. end;
  4189.  
  4190. procedure TransactionDetailsType.Setbatch(Index: Integer; const ABatchDetailsType: BatchDetailsType);
  4191. begin
  4192.   Fbatch := ABatchDetailsType;
  4193.   Fbatch_Specified := True;
  4194. end;
  4195.  
  4196. function TransactionDetailsType.batch_Specified(Index: Integer): boolean;
  4197. begin
  4198.   Result := Fbatch_Specified;
  4199. end;
  4200.  
  4201. procedure TransactionDetailsType.Setorder(Index: Integer; const AOrderExType: OrderExType);
  4202. begin
  4203.   Forder := AOrderExType;
  4204.   Forder_Specified := True;
  4205. end;
  4206.  
  4207. function TransactionDetailsType.order_Specified(Index: Integer): boolean;
  4208. begin
  4209.   Result := Forder_Specified;
  4210. end;
  4211.  
  4212. procedure TransactionDetailsType.SetrequestedAmount(Index: Integer; const ATXSDecimal: TXSDecimal);
  4213. begin
  4214.   FrequestedAmount := ATXSDecimal;
  4215.   FrequestedAmount_Specified := True;
  4216. end;
  4217.  
  4218. function TransactionDetailsType.requestedAmount_Specified(Index: Integer): boolean;
  4219. begin
  4220.   Result := FrequestedAmount_Specified;
  4221. end;
  4222.  
  4223. procedure TransactionDetailsType.Settax(Index: Integer; const AExtendedAmountType: ExtendedAmountType);
  4224. begin
  4225.   Ftax := AExtendedAmountType;
  4226.   Ftax_Specified := True;
  4227. end;
  4228.  
  4229. function TransactionDetailsType.tax_Specified(Index: Integer): boolean;
  4230. begin
  4231.   Result := Ftax_Specified;
  4232. end;
  4233.  
  4234. procedure TransactionDetailsType.Setshipping(Index: Integer; const AExtendedAmountType: ExtendedAmountType);
  4235. begin
  4236.   Fshipping := AExtendedAmountType;
  4237.   Fshipping_Specified := True;
  4238. end;
  4239.  
  4240. function TransactionDetailsType.shipping_Specified(Index: Integer): boolean;
  4241. begin
  4242.   Result := Fshipping_Specified;
  4243. end;
  4244.  
  4245. procedure TransactionDetailsType.Setduty(Index: Integer; const AExtendedAmountType: ExtendedAmountType);
  4246. begin
  4247.   Fduty := AExtendedAmountType;
  4248.   Fduty_Specified := True;
  4249. end;
  4250.  
  4251. function TransactionDetailsType.duty_Specified(Index: Integer): boolean;
  4252. begin
  4253.   Result := Fduty_Specified;
  4254. end;
  4255.  
  4256. procedure TransactionDetailsType.SetlineItems(Index: Integer; const AArray_Of_LineItemType: Array_Of_LineItemType);
  4257. begin
  4258.   FlineItems := AArray_Of_LineItemType;
  4259.   FlineItems_Specified := True;
  4260. end;
  4261.  
  4262. function TransactionDetailsType.lineItems_Specified(Index: Integer): boolean;
  4263. begin
  4264.   Result := FlineItems_Specified;
  4265. end;
  4266.  
  4267. procedure TransactionDetailsType.SetprepaidBalanceRemaining(Index: Integer; const ATXSDecimal: TXSDecimal);
  4268. begin
  4269.   FprepaidBalanceRemaining := ATXSDecimal;
  4270.   FprepaidBalanceRemaining_Specified := True;
  4271. end;
  4272.  
  4273. function TransactionDetailsType.prepaidBalanceRemaining_Specified(Index: Integer): boolean;
  4274. begin
  4275.   Result := FprepaidBalanceRemaining_Specified;
  4276. end;
  4277.  
  4278. procedure TransactionDetailsType.SetcurrencyCode(Index: Integer; const Astring: string);
  4279. begin
  4280.   FcurrencyCode := Astring;
  4281.   FcurrencyCode_Specified := True;
  4282. end;
  4283.  
  4284. function TransactionDetailsType.currencyCode_Specified(Index: Integer): boolean;
  4285. begin
  4286.   Result := FcurrencyCode_Specified;
  4287. end;
  4288.  
  4289. procedure TransactionDetailsType.SettaxExempt(Index: Integer; const ABoolean: Boolean);
  4290. begin
  4291.   FtaxExempt := ABoolean;
  4292.   FtaxExempt_Specified := True;
  4293. end;
  4294.  
  4295. function TransactionDetailsType.taxExempt_Specified(Index: Integer): boolean;
  4296. begin
  4297.   Result := FtaxExempt_Specified;
  4298. end;
  4299.  
  4300. procedure TransactionDetailsType.Setpayment(Index: Integer; const APaymentMaskedType: PaymentMaskedType);
  4301. begin
  4302.   Fpayment := APaymentMaskedType;
  4303.   Fpayment_Specified := True;
  4304. end;
  4305.  
  4306. function TransactionDetailsType.payment_Specified(Index: Integer): boolean;
  4307. begin
  4308.   Result := Fpayment_Specified;
  4309. end;
  4310.  
  4311. procedure TransactionDetailsType.Setcustomer(Index: Integer; const ACustomerDataType: CustomerDataType);
  4312. begin
  4313.   Fcustomer := ACustomerDataType;
  4314.   Fcustomer_Specified := True;
  4315. end;
  4316.  
  4317. function TransactionDetailsType.customer_Specified(Index: Integer): boolean;
  4318. begin
  4319.   Result := Fcustomer_Specified;
  4320. end;
  4321.  
  4322. procedure TransactionDetailsType.SetbillTo(Index: Integer; const ACustomerAddressType: CustomerAddressType);
  4323. begin
  4324.   FbillTo := ACustomerAddressType;
  4325.   FbillTo_Specified := True;
  4326. end;
  4327.  
  4328. function TransactionDetailsType.billTo_Specified(Index: Integer): boolean;
  4329. begin
  4330.   Result := FbillTo_Specified;
  4331. end;
  4332.  
  4333. procedure TransactionDetailsType.SetshipTo(Index: Integer; const ANameAndAddressType: NameAndAddressType);
  4334. begin
  4335.   FshipTo := ANameAndAddressType;
  4336.   FshipTo_Specified := True;
  4337. end;
  4338.  
  4339. function TransactionDetailsType.shipTo_Specified(Index: Integer): boolean;
  4340. begin
  4341.   Result := FshipTo_Specified;
  4342. end;
  4343.  
  4344. procedure TransactionDetailsType.SetrecurringBilling(Index: Integer; const ABoolean: Boolean);
  4345. begin
  4346.   FrecurringBilling := ABoolean;
  4347.   FrecurringBilling_Specified := True;
  4348. end;
  4349.  
  4350. function TransactionDetailsType.recurringBilling_Specified(Index: Integer): boolean;
  4351. begin
  4352.   Result := FrecurringBilling_Specified;
  4353. end;
  4354.  
  4355. procedure TransactionDetailsType.SetcustomerIP(Index: Integer; const Astring: string);
  4356. begin
  4357.   FcustomerIP := Astring;
  4358.   FcustomerIP_Specified := True;
  4359. end;
  4360.  
  4361. function TransactionDetailsType.customerIP_Specified(Index: Integer): boolean;
  4362. begin
  4363.   Result := FcustomerIP_Specified;
  4364. end;
  4365.  
  4366. destructor ProfileTransAmountType.Destroy;
  4367. var
  4368.   I: Integer;
  4369. begin
  4370.   for I := 0 to System.Length(FlineItems)-1 do
  4371.     SysUtils.FreeAndNil(FlineItems[I]);
  4372.   System.SetLength(FlineItems, 0);
  4373.   SysUtils.FreeAndNil(Famount);
  4374.   SysUtils.FreeAndNil(Ftax);
  4375.   SysUtils.FreeAndNil(Fshipping);
  4376.   SysUtils.FreeAndNil(Fduty);
  4377.   inherited Destroy;
  4378. end;
  4379.  
  4380. procedure ProfileTransAmountType.Settax(Index: Integer; const AExtendedAmountType: ExtendedAmountType);
  4381. begin
  4382.   Ftax := AExtendedAmountType;
  4383.   Ftax_Specified := True;
  4384. end;
  4385.  
  4386. function ProfileTransAmountType.tax_Specified(Index: Integer): boolean;
  4387. begin
  4388.   Result := Ftax_Specified;
  4389. end;
  4390.  
  4391. procedure ProfileTransAmountType.Setshipping(Index: Integer; const AExtendedAmountType: ExtendedAmountType);
  4392. begin
  4393.   Fshipping := AExtendedAmountType;
  4394.   Fshipping_Specified := True;
  4395. end;
  4396.  
  4397. function ProfileTransAmountType.shipping_Specified(Index: Integer): boolean;
  4398. begin
  4399.   Result := Fshipping_Specified;
  4400. end;
  4401.  
  4402. procedure ProfileTransAmountType.Setduty(Index: Integer; const AExtendedAmountType: ExtendedAmountType);
  4403. begin
  4404.   Fduty := AExtendedAmountType;
  4405.   Fduty_Specified := True;
  4406. end;
  4407.  
  4408. function ProfileTransAmountType.duty_Specified(Index: Integer): boolean;
  4409. begin
  4410.   Result := Fduty_Specified;
  4411. end;
  4412.  
  4413. procedure ProfileTransAmountType.SetlineItems(Index: Integer; const AArray_Of_LineItemType: Array_Of_LineItemType);
  4414. begin
  4415.   FlineItems := AArray_Of_LineItemType;
  4416.   FlineItems_Specified := True;
  4417. end;
  4418.  
  4419. function ProfileTransAmountType.lineItems_Specified(Index: Integer): boolean;
  4420. begin
  4421.   Result := FlineItems_Specified;
  4422. end;
  4423.  
  4424. destructor ProfileTransOrderType.Destroy;
  4425. begin
  4426.   SysUtils.FreeAndNil(Forder);
  4427.   inherited Destroy;
  4428. end;
  4429.  
  4430. procedure ProfileTransOrderType.SetcustomerShippingAddressId(Index: Integer; const AInt64: Int64);
  4431. begin
  4432.   FcustomerShippingAddressId := AInt64;
  4433.   FcustomerShippingAddressId_Specified := True;
  4434. end;
  4435.  
  4436. function ProfileTransOrderType.customerShippingAddressId_Specified(Index: Integer): boolean;
  4437. begin
  4438.   Result := FcustomerShippingAddressId_Specified;
  4439. end;
  4440.  
  4441. procedure ProfileTransOrderType.Setorder(Index: Integer; const AOrderExType: OrderExType);
  4442. begin
  4443.   Forder := AOrderExType;
  4444.   Forder_Specified := True;
  4445. end;
  4446.  
  4447. function ProfileTransOrderType.order_Specified(Index: Integer): boolean;
  4448. begin
  4449.   Result := Forder_Specified;
  4450. end;
  4451.  
  4452. procedure ProfileTransOrderType.SettaxExempt(Index: Integer; const ABoolean: Boolean);
  4453. begin
  4454.   FtaxExempt := ABoolean;
  4455.   FtaxExempt_Specified := True;
  4456. end;
  4457.  
  4458. function ProfileTransOrderType.taxExempt_Specified(Index: Integer): boolean;
  4459. begin
  4460.   Result := FtaxExempt_Specified;
  4461. end;
  4462.  
  4463. procedure ProfileTransOrderType.SetrecurringBilling(Index: Integer; const ABoolean: Boolean);
  4464. begin
  4465.   FrecurringBilling := ABoolean;
  4466.   FrecurringBilling_Specified := True;
  4467. end;
  4468.  
  4469. function ProfileTransOrderType.recurringBilling_Specified(Index: Integer): boolean;
  4470. begin
  4471.   Result := FrecurringBilling_Specified;
  4472. end;
  4473.  
  4474. procedure ProfileTransOrderType.SetcardCode(Index: Integer; const Astring: string);
  4475. begin
  4476.   FcardCode := Astring;
  4477.   FcardCode_Specified := True;
  4478. end;
  4479.  
  4480. function ProfileTransOrderType.cardCode_Specified(Index: Integer): boolean;
  4481. begin
  4482.   Result := FcardCode_Specified;
  4483. end;
  4484.  
  4485. procedure ProfileTransOrderType.SetsplitTenderId(Index: Integer; const AInt64: Int64);
  4486. begin
  4487.   FsplitTenderId := AInt64;
  4488.   FsplitTenderId_Specified := True;
  4489. end;
  4490.  
  4491. function ProfileTransOrderType.splitTenderId_Specified(Index: Integer): boolean;
  4492. begin
  4493.   Result := FsplitTenderId_Specified;
  4494. end;
  4495.  
  4496. procedure ProfileTransCaptureOnlyType.SetapprovalCode(Index: Integer; const Astring: string);
  4497. begin
  4498.   FapprovalCode := Astring;
  4499.   FapprovalCode_Specified := True;
  4500. end;
  4501.  
  4502. function ProfileTransCaptureOnlyType.approvalCode_Specified(Index: Integer): boolean;
  4503. begin
  4504.   Result := FapprovalCode_Specified;
  4505. end;
  4506.  
  4507. destructor ProfileTransRefundType.Destroy;
  4508. begin
  4509.   SysUtils.FreeAndNil(Forder);
  4510.   inherited Destroy;
  4511. end;
  4512.  
  4513. procedure ProfileTransRefundType.SetcustomerProfileId(Index: Integer; const AInt64: Int64);
  4514. begin
  4515.   FcustomerProfileId := AInt64;
  4516.   FcustomerProfileId_Specified := True;
  4517. end;
  4518.  
  4519. function ProfileTransRefundType.customerProfileId_Specified(Index: Integer): boolean;
  4520. begin
  4521.   Result := FcustomerProfileId_Specified;
  4522. end;
  4523.  
  4524. procedure ProfileTransRefundType.SetcustomerPaymentProfileId(Index: Integer; const AInt64: Int64);
  4525. begin
  4526.   FcustomerPaymentProfileId := AInt64;
  4527.   FcustomerPaymentProfileId_Specified := True;
  4528. end;
  4529.  
  4530. function ProfileTransRefundType.customerPaymentProfileId_Specified(Index: Integer): boolean;
  4531. begin
  4532.   Result := FcustomerPaymentProfileId_Specified;
  4533. end;
  4534.  
  4535. procedure ProfileTransRefundType.SetcustomerShippingAddressId(Index: Integer; const AInt64: Int64);
  4536. begin
  4537.   FcustomerShippingAddressId := AInt64;
  4538.   FcustomerShippingAddressId_Specified := True;
  4539. end;
  4540.  
  4541. function ProfileTransRefundType.customerShippingAddressId_Specified(Index: Integer): boolean;
  4542. begin
  4543.   Result := FcustomerShippingAddressId_Specified;
  4544. end;
  4545.  
  4546. procedure ProfileTransRefundType.SetcreditCardNumberMasked(Index: Integer; const Astring: string);
  4547. begin
  4548.   FcreditCardNumberMasked := Astring;
  4549.   FcreditCardNumberMasked_Specified := True;
  4550. end;
  4551.  
  4552. function ProfileTransRefundType.creditCardNumberMasked_Specified(Index: Integer): boolean;
  4553. begin
  4554.   Result := FcreditCardNumberMasked_Specified;
  4555. end;
  4556.  
  4557. procedure ProfileTransRefundType.SetbankRoutingNumberMasked(Index: Integer; const Astring: string);
  4558. begin
  4559.   FbankRoutingNumberMasked := Astring;
  4560.   FbankRoutingNumberMasked_Specified := True;
  4561. end;
  4562.  
  4563. function ProfileTransRefundType.bankRoutingNumberMasked_Specified(Index: Integer): boolean;
  4564. begin
  4565.   Result := FbankRoutingNumberMasked_Specified;
  4566. end;
  4567.  
  4568. procedure ProfileTransRefundType.SetbankAccountNumberMasked(Index: Integer; const Astring: string);
  4569. begin
  4570.   FbankAccountNumberMasked := Astring;
  4571.   FbankAccountNumberMasked_Specified := True;
  4572. end;
  4573.  
  4574. function ProfileTransRefundType.bankAccountNumberMasked_Specified(Index: Integer): boolean;
  4575. begin
  4576.   Result := FbankAccountNumberMasked_Specified;
  4577. end;
  4578.  
  4579. procedure ProfileTransRefundType.Setorder(Index: Integer; const AOrderExType: OrderExType);
  4580. begin
  4581.   Forder := AOrderExType;
  4582.   Forder_Specified := True;
  4583. end;
  4584.  
  4585. function ProfileTransRefundType.order_Specified(Index: Integer): boolean;
  4586. begin
  4587.   Result := Forder_Specified;
  4588. end;
  4589.  
  4590. procedure ProfileTransRefundType.SettransId(Index: Integer; const Astring: string);
  4591. begin
  4592.   FtransId := Astring;
  4593.   FtransId_Specified := True;
  4594. end;
  4595.  
  4596. function ProfileTransRefundType.transId_Specified(Index: Integer): boolean;
  4597. begin
  4598.   Result := FtransId_Specified;
  4599. end;
  4600.  
  4601. procedure ProfileTransPriorAuthCaptureType.SetcustomerProfileId(Index: Integer; const AInt64: Int64);
  4602. begin
  4603.   FcustomerProfileId := AInt64;
  4604.   FcustomerProfileId_Specified := True;
  4605. end;
  4606.  
  4607. function ProfileTransPriorAuthCaptureType.customerProfileId_Specified(Index: Integer): boolean;
  4608. begin
  4609.   Result := FcustomerProfileId_Specified;
  4610. end;
  4611.  
  4612. procedure ProfileTransPriorAuthCaptureType.SetcustomerPaymentProfileId(Index: Integer; const AInt64: Int64);
  4613. begin
  4614.   FcustomerPaymentProfileId := AInt64;
  4615.   FcustomerPaymentProfileId_Specified := True;
  4616. end;
  4617.  
  4618. function ProfileTransPriorAuthCaptureType.customerPaymentProfileId_Specified(Index: Integer): boolean;
  4619. begin
  4620.   Result := FcustomerPaymentProfileId_Specified;
  4621. end;
  4622.  
  4623. procedure ProfileTransPriorAuthCaptureType.SetcustomerShippingAddressId(Index: Integer; const AInt64: Int64);
  4624. begin
  4625.   FcustomerShippingAddressId := AInt64;
  4626.   FcustomerShippingAddressId_Specified := True;
  4627. end;
  4628.  
  4629. function ProfileTransPriorAuthCaptureType.customerShippingAddressId_Specified(Index: Integer): boolean;
  4630. begin
  4631.   Result := FcustomerShippingAddressId_Specified;
  4632. end;
  4633.  
  4634. procedure ProfileTransPriorAuthCaptureType.SettransId(Index: Integer; const Astring: string);
  4635. begin
  4636.   FtransId := Astring;
  4637.   FtransId_Specified := True;
  4638. end;
  4639.  
  4640. function ProfileTransPriorAuthCaptureType.transId_Specified(Index: Integer): boolean;
  4641. begin
  4642.   Result := FtransId_Specified;
  4643. end;
  4644.  
  4645. initialization
  4646.   InvRegistry.RegisterInterface(TypeInfo(ServiceSoap), 'https://api.authorize.net/soap/v1/', 'utf-8');
  4647.   InvRegistry.RegisterDefaultSOAPAction(TypeInfo(ServiceSoap), 'https://api.authorize.net/soap/v1/%operationName%');
  4648.   InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap), ioDocument);
  4649.   RemClassRegistry.RegisterXSInfo(TypeInfo(MessageTypeEnum), 'https://api.authorize.net/soap/v1/', 'MessageTypeEnum');
  4650.   RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfMessagesTypeMessage), 'https://api.authorize.net/soap/v1/', 'ArrayOfMessagesTypeMessage');
  4651.   RemClassRegistry.RegisterXSClass(ANetApiResponseType, 'https://api.authorize.net/soap/v1/', 'ANetApiResponseType');
  4652.   RemClassRegistry.RegisterXSClass(MessagesTypeMessage, 'https://api.authorize.net/soap/v1/', 'MessagesTypeMessage');
  4653.   RemClassRegistry.RegisterXSClass(MerchantAuthenticationType, 'https://api.authorize.net/soap/v1/', 'MerchantAuthenticationType');
  4654.   RemClassRegistry.RegisterExternalPropName(TypeInfo(MerchantAuthenticationType), 'name_', 'name');
  4655.   RemClassRegistry.RegisterXSClass(ARBSubscriptionType, 'https://api.authorize.net/soap/v1/', 'ARBSubscriptionType');
  4656.   RemClassRegistry.RegisterExternalPropName(TypeInfo(ARBSubscriptionType), 'name_', 'name');
  4657.   RemClassRegistry.RegisterXSClass(PaymentType, 'https://api.authorize.net/soap/v1/', 'PaymentType');
  4658.   RemClassRegistry.RegisterXSClass(OrderType, 'https://api.authorize.net/soap/v1/', 'OrderType');
  4659.   RemClassRegistry.RegisterXSClass(NameAndAddressType, 'https://api.authorize.net/soap/v1/', 'NameAndAddressType');
  4660.   RemClassRegistry.RegisterXSClass(PaymentScheduleType, 'https://api.authorize.net/soap/v1/', 'PaymentScheduleType');
  4661.   RemClassRegistry.RegisterXSInfo(TypeInfo(ARBSubscriptionUnitEnum), 'https://api.authorize.net/soap/v1/', 'ARBSubscriptionUnitEnum');
  4662.   RemClassRegistry.RegisterXSClass(PaymentScheduleTypeInterval, 'https://api.authorize.net/soap/v1/', 'PaymentScheduleTypeInterval');
  4663.   RemClassRegistry.RegisterExternalPropName(TypeInfo(PaymentScheduleTypeInterval), 'unit_', 'unit');
  4664.   RemClassRegistry.RegisterXSClass(CreditCardSimpleType, 'https://api.authorize.net/soap/v1/', 'CreditCardSimpleType');
  4665.   RemClassRegistry.RegisterXSClass(CreditCardType, 'https://api.authorize.net/soap/v1/', 'CreditCardType');
  4666.   RemClassRegistry.RegisterXSInfo(TypeInfo(BankAccountTypeEnum), 'https://api.authorize.net/soap/v1/', 'BankAccountTypeEnum');
  4667.   RemClassRegistry.RegisterXSInfo(TypeInfo(EcheckTypeEnum), 'https://api.authorize.net/soap/v1/', 'EcheckTypeEnum');
  4668.   RemClassRegistry.RegisterXSClass(BankAccountBaseType, 'https://api.authorize.net/soap/v1/', 'BankAccountBaseType');
  4669.   RemClassRegistry.RegisterXSClass(BankAccountType, 'https://api.authorize.net/soap/v1/', 'BankAccountType');
  4670.   RemClassRegistry.RegisterXSInfo(TypeInfo(CustomerTypeEnum), 'https://api.authorize.net/soap/v1/', 'CustomerTypeEnum');
  4671.   RemClassRegistry.RegisterXSClass(CustomerType, 'https://api.authorize.net/soap/v1/', 'CustomerType');
  4672.   RemClassRegistry.RegisterExternalPropName(TypeInfo(CustomerType), 'type_', 'type');
  4673.   RemClassRegistry.RegisterXSClass(DriversLicenseBaseType, 'https://api.authorize.net/soap/v1/', 'DriversLicenseBaseType');
  4674.   RemClassRegistry.RegisterXSClass(DriversLicenseType, 'https://api.authorize.net/soap/v1/', 'DriversLicenseType');
  4675.   RemClassRegistry.RegisterXSClass(ARBCreateSubscriptionResponseType, 'https://api.authorize.net/soap/v1/', 'ARBCreateSubscriptionResponseType');
  4676.   RemClassRegistry.RegisterXSClass(ARBUpdateSubscriptionResponseType, 'https://api.authorize.net/soap/v1/', 'ARBUpdateSubscriptionResponseType');
  4677.   RemClassRegistry.RegisterXSClass(ARBCancelSubscriptionResponseType, 'https://api.authorize.net/soap/v1/', 'ARBCancelSubscriptionResponseType');
  4678.   RemClassRegistry.RegisterXSInfo(TypeInfo(ARBSubscriptionStatusEnum), 'https://api.authorize.net/soap/v1/', 'ARBSubscriptionStatusEnum');
  4679.   RemClassRegistry.RegisterXSClass(ARBGetSubscriptionStatusResponseType, 'https://api.authorize.net/soap/v1/', 'ARBGetSubscriptionStatusResponseType');
  4680.   RemClassRegistry.RegisterXSClass(CustomerProfileBaseType, 'https://api.authorize.net/soap/v1/', 'CustomerProfileBaseType');
  4681.   RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfCustomerPaymentProfileType), 'https://api.authorize.net/soap/v1/', 'ArrayOfCustomerPaymentProfileType');
  4682.   RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfCustomerAddressType), 'https://api.authorize.net/soap/v1/', 'ArrayOfCustomerAddressType');
  4683.   RemClassRegistry.RegisterXSClass(CustomerProfileType, 'https://api.authorize.net/soap/v1/', 'CustomerProfileType');
  4684.   RemClassRegistry.RegisterXSClass(CustomerPaymentProfileBaseType, 'https://api.authorize.net/soap/v1/', 'CustomerPaymentProfileBaseType');
  4685.   RemClassRegistry.RegisterXSClass(CustomerPaymentProfileType, 'https://api.authorize.net/soap/v1/', 'CustomerPaymentProfileType');
  4686.   RemClassRegistry.RegisterXSClass(CustomerAddressType, 'https://api.authorize.net/soap/v1/', 'CustomerAddressType');
  4687.   RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfLong), 'https://api.authorize.net/soap/v1/', 'ArrayOfLong');
  4688.   RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfString), 'https://api.authorize.net/soap/v1/', 'ArrayOfString');
  4689.   RemClassRegistry.RegisterXSClass(CreateCustomerProfileResponseType, 'https://api.authorize.net/soap/v1/', 'CreateCustomerProfileResponseType');
  4690.   RemClassRegistry.RegisterXSClass(CreateCustomerPaymentProfileResponseType, 'https://api.authorize.net/soap/v1/', 'CreateCustomerPaymentProfileResponseType');
  4691.   RemClassRegistry.RegisterXSClass(CreateCustomerShippingAddressResponseType, 'https://api.authorize.net/soap/v1/', 'CreateCustomerShippingAddressResponseType');
  4692.   RemClassRegistry.RegisterXSClass(GetCustomerProfileResponseType, 'https://api.authorize.net/soap/v1/', 'GetCustomerProfileResponseType');
  4693.   RemClassRegistry.RegisterXSClass(CustomerProfileExType, 'https://api.authorize.net/soap/v1/', 'CustomerProfileExType');
  4694.   RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfCustomerPaymentProfileMaskedType), 'https://api.authorize.net/soap/v1/', 'ArrayOfCustomerPaymentProfileMaskedType');
  4695.   RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfCustomerAddressExType), 'https://api.authorize.net/soap/v1/', 'ArrayOfCustomerAddressExType');
  4696.   RemClassRegistry.RegisterXSClass(CustomerProfileMaskedType, 'https://api.authorize.net/soap/v1/', 'CustomerProfileMaskedType');
  4697.   RemClassRegistry.RegisterXSClass(CustomerPaymentProfileMaskedType, 'https://api.authorize.net/soap/v1/', 'CustomerPaymentProfileMaskedType');
  4698.   RemClassRegistry.RegisterXSClass(PaymentMaskedType, 'https://api.authorize.net/soap/v1/', 'PaymentMaskedType');
  4699.   RemClassRegistry.RegisterXSClass(DriversLicenseMaskedType, 'https://api.authorize.net/soap/v1/', 'DriversLicenseMaskedType');
  4700.   RemClassRegistry.RegisterXSClass(CreditCardMaskedType, 'https://api.authorize.net/soap/v1/', 'CreditCardMaskedType');
  4701.   RemClassRegistry.RegisterXSClass(BankAccountMaskedType, 'https://api.authorize.net/soap/v1/', 'BankAccountMaskedType');
  4702.   RemClassRegistry.RegisterXSClass(CustomerAddressExType, 'https://api.authorize.net/soap/v1/', 'CustomerAddressExType');
  4703.   RemClassRegistry.RegisterXSClass(GetCustomerPaymentProfileResponseType, 'https://api.authorize.net/soap/v1/', 'GetCustomerPaymentProfileResponseType');
  4704.   RemClassRegistry.RegisterXSClass(GetCustomerShippingAddressResponseType, 'https://api.authorize.net/soap/v1/', 'GetCustomerShippingAddressResponseType');
  4705.   RemClassRegistry.RegisterXSClass(UpdateCustomerProfileResponseType, 'https://api.authorize.net/soap/v1/', 'UpdateCustomerProfileResponseType');
  4706.   RemClassRegistry.RegisterXSClass(CustomerPaymentProfileExType, 'https://api.authorize.net/soap/v1/', 'CustomerPaymentProfileExType');
  4707.   RemClassRegistry.RegisterXSClass(UpdateCustomerPaymentProfileResponseType, 'https://api.authorize.net/soap/v1/', 'UpdateCustomerPaymentProfileResponseType');
  4708.   RemClassRegistry.RegisterXSClass(UpdateCustomerShippingAddressResponseType, 'https://api.authorize.net/soap/v1/', 'UpdateCustomerShippingAddressResponseType');
  4709.   RemClassRegistry.RegisterXSClass(DeleteCustomerProfileResponseType, 'https://api.authorize.net/soap/v1/', 'DeleteCustomerProfileResponseType');
  4710.   RemClassRegistry.RegisterXSClass(DeleteCustomerPaymentProfileResponseType, 'https://api.authorize.net/soap/v1/', 'DeleteCustomerPaymentProfileResponseType');
  4711.   RemClassRegistry.RegisterXSClass(DeleteCustomerShippingAddressResponseType, 'https://api.authorize.net/soap/v1/', 'DeleteCustomerShippingAddressResponseType');
  4712.   RemClassRegistry.RegisterXSClass(ProfileTransactionType, 'https://api.authorize.net/soap/v1/', 'ProfileTransactionType');
  4713.   RemClassRegistry.RegisterXSClass(ProfileTransVoidType, 'https://api.authorize.net/soap/v1/', 'ProfileTransVoidType');
  4714.   RemClassRegistry.RegisterXSClass(OrderExType, 'https://api.authorize.net/soap/v1/', 'OrderExType');
  4715.   RemClassRegistry.RegisterXSClass(ExtendedAmountType, 'https://api.authorize.net/soap/v1/', 'ExtendedAmountType');
  4716.   RemClassRegistry.RegisterExternalPropName(TypeInfo(ExtendedAmountType), 'name_', 'name');
  4717.   RemClassRegistry.RegisterXSClass(LineItemType, 'https://api.authorize.net/soap/v1/', 'LineItemType');
  4718.   RemClassRegistry.RegisterExternalPropName(TypeInfo(LineItemType), 'name_', 'name');
  4719.   RemClassRegistry.RegisterXSClass(CreateCustomerProfileTransactionResponseType, 'https://api.authorize.net/soap/v1/', 'CreateCustomerProfileTransactionResponseType');
  4720.   RemClassRegistry.RegisterXSClass(ValidateCustomerPaymentProfileResponseType, 'https://api.authorize.net/soap/v1/', 'ValidateCustomerPaymentProfileResponseType');
  4721.   RemClassRegistry.RegisterXSClass(GetCustomerProfileIdsResponseType, 'https://api.authorize.net/soap/v1/', 'GetCustomerProfileIdsResponseType');
  4722.   RemClassRegistry.RegisterXSClass(UpdateSplitTenderGroupResponseType, 'https://api.authorize.net/soap/v1/', 'UpdateSplitTenderGroupResponseType');
  4723.   RemClassRegistry.RegisterXSClass(GetTransactionDetailsResponseType, 'https://api.authorize.net/soap/v1/', 'GetTransactionDetailsResponseType');
  4724.   RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfFDSFilterType), 'https://api.authorize.net/soap/v1/', 'ArrayOfFDSFilterType');
  4725.   RemClassRegistry.RegisterXSClass(CustomerDataType, 'https://api.authorize.net/soap/v1/', 'CustomerDataType');
  4726.   RemClassRegistry.RegisterExternalPropName(TypeInfo(CustomerDataType), 'type_', 'type');
  4727.   RemClassRegistry.RegisterXSClass(FDSFilterType, 'https://api.authorize.net/soap/v1/', 'FDSFilterType');
  4728.   RemClassRegistry.RegisterExternalPropName(TypeInfo(FDSFilterType), 'name_', 'name');
  4729.   RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfBatchStatisticType), 'https://api.authorize.net/soap/v1/', 'ArrayOfBatchStatisticType');
  4730.   RemClassRegistry.RegisterXSClass(BatchDetailsType, 'https://api.authorize.net/soap/v1/', 'BatchDetailsType');
  4731.   RemClassRegistry.RegisterXSClass(BatchStatisticType, 'https://api.authorize.net/soap/v1/', 'BatchStatisticType');
  4732.   RemClassRegistry.RegisterXSClass(GetSettledBatchListRequestType, 'https://api.authorize.net/soap/v1/', 'GetSettledBatchListRequestType');
  4733.   RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfBatchDetailsType), 'https://api.authorize.net/soap/v1/', 'ArrayOfBatchDetailsType');
  4734.   RemClassRegistry.RegisterXSClass(GetSettledBatchListResponseType, 'https://api.authorize.net/soap/v1/', 'GetSettledBatchListResponseType');
  4735.   RemClassRegistry.RegisterXSClass(GetTransactionListRequestType, 'https://api.authorize.net/soap/v1/', 'GetTransactionListRequestType');
  4736.   RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfTransactionSummaryType), 'https://api.authorize.net/soap/v1/', 'ArrayOfTransactionSummaryType');
  4737.   RemClassRegistry.RegisterXSClass(GetTransactionListResponseType, 'https://api.authorize.net/soap/v1/', 'GetTransactionListResponseType');
  4738.   RemClassRegistry.RegisterXSClass(TransactionSummaryType, 'https://api.authorize.net/soap/v1/', 'TransactionSummaryType');
  4739.   RemClassRegistry.RegisterXSInfo(TypeInfo(ValidationModeEnum), 'https://api.authorize.net/soap/v1/', 'ValidationModeEnum');
  4740.   RemClassRegistry.RegisterXSInfo(TypeInfo(SplitTenderStatusEnum), 'https://api.authorize.net/soap/v1/', 'SplitTenderStatusEnum');
  4741.   RemClassRegistry.RegisterXSClass(FDSFilter, 'https://api.authorize.net/soap/v1/', 'FDSFilter');
  4742.   RemClassRegistry.RegisterXSClass(statistic, 'https://api.authorize.net/soap/v1/', 'statistic');
  4743.   RemClassRegistry.RegisterXSClass(batch, 'https://api.authorize.net/soap/v1/', 'batch');
  4744.   RemClassRegistry.RegisterXSClass(transaction, 'https://api.authorize.net/soap/v1/', 'transaction');
  4745.   RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_LineItemType), 'https://api.authorize.net/soap/v1/', 'Array_Of_LineItemType');
  4746.   RemClassRegistry.RegisterXSClass(TransactionDetailsType, 'https://api.authorize.net/soap/v1/', 'TransactionDetailsType');
  4747.   RemClassRegistry.RegisterXSClass(ProfileTransAmountType, 'https://api.authorize.net/soap/v1/', 'ProfileTransAmountType');
  4748.   RemClassRegistry.RegisterXSClass(ProfileTransOrderType, 'https://api.authorize.net/soap/v1/', 'ProfileTransOrderType');
  4749.   RemClassRegistry.RegisterXSClass(ProfileTransAuthOnlyType, 'https://api.authorize.net/soap/v1/', 'ProfileTransAuthOnlyType');
  4750.   RemClassRegistry.RegisterXSClass(ProfileTransAuthCaptureType, 'https://api.authorize.net/soap/v1/', 'ProfileTransAuthCaptureType');
  4751.   RemClassRegistry.RegisterXSClass(ProfileTransCaptureOnlyType, 'https://api.authorize.net/soap/v1/', 'ProfileTransCaptureOnlyType');
  4752.   RemClassRegistry.RegisterXSClass(ProfileTransRefundType, 'https://api.authorize.net/soap/v1/', 'ProfileTransRefundType');
  4753.   RemClassRegistry.RegisterXSClass(ProfileTransPriorAuthCaptureType, 'https://api.authorize.net/soap/v1/', 'ProfileTransPriorAuthCaptureType');
  4754.  
  4755. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!