This week only. Pastebin PRO Accounts Christmas Special! Don't miss out!Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Apr 13th, 2011  |  syntax: Pascal  |  size: 198.56 KB  |  views: 96  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  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.
clone this paste RAW Paste Data