// ************************************************************************ // // The types declared in this file were generated from data read from the // WSDL File described below: // WSDL : https://api.authorize.net/soap/v1/Service.asmx?WSDL // >Import : https://api.authorize.net/soap/v1/Service.asmx?WSDL>0 // Encoding : utf-8 // Version : 1.0 // (1/20/2011 10:46:02 AM - - $Rev: 19514 $) // ************************************************************************ // unit AuthService; interface uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns; const IS_OPTN = $0001; IS_UNBD = $0002; IS_NLBL = $0004; IS_REF = $0080; type // ************************************************************************ // // The following types, referred to in the WSDL document are not being represented // in this file. They are either aliases[@] of other types represented or were referred // to but never[!] declared in the document. The types from the latter category // typically map to predefined/known XML or Borland types; however, they could also // indicate incorrect WSDL documents that failed to declare or import a schema type. // ************************************************************************ // // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:decimal - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:date - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:short - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:gYearMonth - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:long - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:dateTime - "http://www.w3.org/2001/XMLSchema"[Gbl] // !:int - "http://www.w3.org/2001/XMLSchema"[Gbl] ANetApiResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } MessagesTypeMessage = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } MerchantAuthenticationType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } ARBSubscriptionType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } PaymentType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } OrderType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } NameAndAddressType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } PaymentScheduleType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } PaymentScheduleTypeInterval = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } CreditCardSimpleType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } CreditCardType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } BankAccountBaseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } BankAccountType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } CustomerType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } DriversLicenseBaseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } DriversLicenseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } ARBCreateSubscriptionResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } ARBUpdateSubscriptionResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } ARBCancelSubscriptionResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } ARBGetSubscriptionStatusResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } CustomerProfileBaseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } CustomerProfileType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } CustomerPaymentProfileBaseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } CustomerPaymentProfileType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } CustomerAddressType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } CreateCustomerProfileResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } CreateCustomerPaymentProfileResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } CreateCustomerShippingAddressResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } GetCustomerProfileResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } CustomerProfileExType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } CustomerProfileMaskedType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } CustomerPaymentProfileMaskedType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } PaymentMaskedType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } DriversLicenseMaskedType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } CreditCardMaskedType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } BankAccountMaskedType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } CustomerAddressExType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } GetCustomerPaymentProfileResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } GetCustomerShippingAddressResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } UpdateCustomerProfileResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } CustomerPaymentProfileExType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } UpdateCustomerPaymentProfileResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } UpdateCustomerShippingAddressResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } DeleteCustomerProfileResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } DeleteCustomerPaymentProfileResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } DeleteCustomerShippingAddressResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } ProfileTransactionType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } ProfileTransVoidType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } OrderExType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } ExtendedAmountType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } LineItemType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } CreateCustomerProfileTransactionResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } ValidateCustomerPaymentProfileResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } GetCustomerProfileIdsResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } UpdateSplitTenderGroupResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } GetTransactionDetailsResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } CustomerDataType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } FDSFilterType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } BatchDetailsType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } BatchStatisticType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } GetSettledBatchListRequestType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } GetSettledBatchListResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } GetTransactionListRequestType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } GetTransactionListResponseType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } TransactionSummaryType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } FDSFilter = class; { "https://api.authorize.net/soap/v1/"[Alias] } statistic = class; { "https://api.authorize.net/soap/v1/"[Alias] } batch = class; { "https://api.authorize.net/soap/v1/"[Alias] } transaction = class; { "https://api.authorize.net/soap/v1/"[Alias] } TransactionDetailsType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } ProfileTransAmountType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } ProfileTransOrderType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } ProfileTransAuthOnlyType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } ProfileTransAuthCaptureType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } ProfileTransCaptureOnlyType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } ProfileTransRefundType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } ProfileTransPriorAuthCaptureType = class; { "https://api.authorize.net/soap/v1/"[GblCplx] } {$SCOPEDENUMS ON} { "https://api.authorize.net/soap/v1/"[GblSmpl] } MessageTypeEnum = (Ok, Error); { "https://api.authorize.net/soap/v1/"[GblSmpl] } ARBSubscriptionUnitEnum = (days, months); { "https://api.authorize.net/soap/v1/"[GblSmpl] } BankAccountTypeEnum = (checking, savings, businessChecking); { "https://api.authorize.net/soap/v1/"[GblSmpl] } EcheckTypeEnum = (PPD, WEB, CCD, TEL); { "https://api.authorize.net/soap/v1/"[GblSmpl] } CustomerTypeEnum = (individual, business); { "https://api.authorize.net/soap/v1/"[GblSmpl] } ARBSubscriptionStatusEnum = (active, expired, suspended, canceled, terminated); { "https://api.authorize.net/soap/v1/"[GblSmpl] } ValidationModeEnum = (none, testMode, liveMode, oldLiveMode); { "https://api.authorize.net/soap/v1/"[GblSmpl] } SplitTenderStatusEnum = (completed, held, voided); {$SCOPEDENUMS OFF} ArrayOfMessagesTypeMessage = array of MessagesTypeMessage; { "https://api.authorize.net/soap/v1/"[GblCplx] } // ************************************************************************ // // XML : ANetApiResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // ANetApiResponseType = class(TRemotable) private FresultCode: MessageTypeEnum; Fmessages: ArrayOfMessagesTypeMessage; Fmessages_Specified: boolean; procedure Setmessages(Index: Integer; const AArrayOfMessagesTypeMessage: ArrayOfMessagesTypeMessage); function messages_Specified(Index: Integer): boolean; public destructor Destroy; override; published property resultCode: MessageTypeEnum read FresultCode write FresultCode; property messages: ArrayOfMessagesTypeMessage Index (IS_OPTN) read Fmessages write Setmessages stored messages_Specified; end; // ************************************************************************ // // XML : MessagesTypeMessage, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // MessagesTypeMessage = class(TRemotable) private Fcode: string; Fcode_Specified: boolean; Ftext: string; Ftext_Specified: boolean; procedure Setcode(Index: Integer; const Astring: string); function code_Specified(Index: Integer): boolean; procedure Settext(Index: Integer; const Astring: string); function text_Specified(Index: Integer): boolean; published property code: string Index (IS_OPTN) read Fcode write Setcode stored code_Specified; property text: string Index (IS_OPTN) read Ftext write Settext stored text_Specified; end; // ************************************************************************ // // XML : MerchantAuthenticationType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // MerchantAuthenticationType = class(TRemotable) private Fname_: string; Fname__Specified: boolean; FtransactionKey: string; FtransactionKey_Specified: boolean; procedure Setname_(Index: Integer; const Astring: string); function name__Specified(Index: Integer): boolean; procedure SettransactionKey(Index: Integer; const Astring: string); function transactionKey_Specified(Index: Integer): boolean; published property name_: string Index (IS_OPTN) read Fname_ write Setname_ stored name__Specified; property transactionKey: string Index (IS_OPTN) read FtransactionKey write SettransactionKey stored transactionKey_Specified; end; // ************************************************************************ // // XML : ARBSubscriptionType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // ARBSubscriptionType = class(TRemotable) private Fname_: string; Fname__Specified: boolean; FpaymentSchedule: PaymentScheduleType; FpaymentSchedule_Specified: boolean; Famount: TXSDecimal; Famount_Specified: boolean; FtrialAmount: TXSDecimal; FtrialAmount_Specified: boolean; Fpayment: PaymentType; Fpayment_Specified: boolean; Forder: OrderType; Forder_Specified: boolean; Fcustomer: CustomerType; Fcustomer_Specified: boolean; FbillTo: NameAndAddressType; FbillTo_Specified: boolean; FshipTo: NameAndAddressType; FshipTo_Specified: boolean; procedure Setname_(Index: Integer; const Astring: string); function name__Specified(Index: Integer): boolean; procedure SetpaymentSchedule(Index: Integer; const APaymentScheduleType: PaymentScheduleType); function paymentSchedule_Specified(Index: Integer): boolean; procedure Setamount(Index: Integer; const ATXSDecimal: TXSDecimal); function amount_Specified(Index: Integer): boolean; procedure SettrialAmount(Index: Integer; const ATXSDecimal: TXSDecimal); function trialAmount_Specified(Index: Integer): boolean; procedure Setpayment(Index: Integer; const APaymentType: PaymentType); function payment_Specified(Index: Integer): boolean; procedure Setorder(Index: Integer; const AOrderType: OrderType); function order_Specified(Index: Integer): boolean; procedure Setcustomer(Index: Integer; const ACustomerType: CustomerType); function customer_Specified(Index: Integer): boolean; procedure SetbillTo(Index: Integer; const ANameAndAddressType: NameAndAddressType); function billTo_Specified(Index: Integer): boolean; procedure SetshipTo(Index: Integer; const ANameAndAddressType: NameAndAddressType); function shipTo_Specified(Index: Integer): boolean; public destructor Destroy; override; published property name_: string Index (IS_OPTN) read Fname_ write Setname_ stored name__Specified; property paymentSchedule: PaymentScheduleType Index (IS_OPTN) read FpaymentSchedule write SetpaymentSchedule stored paymentSchedule_Specified; property amount: TXSDecimal Index (IS_OPTN) read Famount write Setamount stored amount_Specified; property trialAmount: TXSDecimal Index (IS_OPTN) read FtrialAmount write SettrialAmount stored trialAmount_Specified; property payment: PaymentType Index (IS_OPTN) read Fpayment write Setpayment stored payment_Specified; property order: OrderType Index (IS_OPTN) read Forder write Setorder stored order_Specified; property customer: CustomerType Index (IS_OPTN) read Fcustomer write Setcustomer stored customer_Specified; property billTo: NameAndAddressType Index (IS_OPTN) read FbillTo write SetbillTo stored billTo_Specified; property shipTo: NameAndAddressType Index (IS_OPTN) read FshipTo write SetshipTo stored shipTo_Specified; end; // ************************************************************************ // // XML : PaymentType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // PaymentType = class(TRemotable) private FcreditCard: CreditCardType; FcreditCard_Specified: boolean; FbankAccount: BankAccountType; FbankAccount_Specified: boolean; procedure SetcreditCard(Index: Integer; const ACreditCardType: CreditCardType); function creditCard_Specified(Index: Integer): boolean; procedure SetbankAccount(Index: Integer; const ABankAccountType: BankAccountType); function bankAccount_Specified(Index: Integer): boolean; public destructor Destroy; override; published property creditCard: CreditCardType Index (IS_OPTN) read FcreditCard write SetcreditCard stored creditCard_Specified; property bankAccount: BankAccountType Index (IS_OPTN) read FbankAccount write SetbankAccount stored bankAccount_Specified; end; // ************************************************************************ // // XML : OrderType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // OrderType = class(TRemotable) private FinvoiceNumber: string; FinvoiceNumber_Specified: boolean; Fdescription: string; Fdescription_Specified: boolean; procedure SetinvoiceNumber(Index: Integer; const Astring: string); function invoiceNumber_Specified(Index: Integer): boolean; procedure Setdescription(Index: Integer; const Astring: string); function description_Specified(Index: Integer): boolean; published property invoiceNumber: string Index (IS_OPTN) read FinvoiceNumber write SetinvoiceNumber stored invoiceNumber_Specified; property description: string Index (IS_OPTN) read Fdescription write Setdescription stored description_Specified; end; // ************************************************************************ // // XML : NameAndAddressType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // NameAndAddressType = class(TRemotable) private FfirstName: string; FfirstName_Specified: boolean; FlastName: string; FlastName_Specified: boolean; Fcompany: string; Fcompany_Specified: boolean; Faddress: string; Faddress_Specified: boolean; Fcity: string; Fcity_Specified: boolean; Fstate: string; Fstate_Specified: boolean; Fzip: string; Fzip_Specified: boolean; Fcountry: string; Fcountry_Specified: boolean; procedure SetfirstName(Index: Integer; const Astring: string); function firstName_Specified(Index: Integer): boolean; procedure SetlastName(Index: Integer; const Astring: string); function lastName_Specified(Index: Integer): boolean; procedure Setcompany(Index: Integer; const Astring: string); function company_Specified(Index: Integer): boolean; procedure Setaddress(Index: Integer; const Astring: string); function address_Specified(Index: Integer): boolean; procedure Setcity(Index: Integer; const Astring: string); function city_Specified(Index: Integer): boolean; procedure Setstate(Index: Integer; const Astring: string); function state_Specified(Index: Integer): boolean; procedure Setzip(Index: Integer; const Astring: string); function zip_Specified(Index: Integer): boolean; procedure Setcountry(Index: Integer; const Astring: string); function country_Specified(Index: Integer): boolean; published property firstName: string Index (IS_OPTN) read FfirstName write SetfirstName stored firstName_Specified; property lastName: string Index (IS_OPTN) read FlastName write SetlastName stored lastName_Specified; property company: string Index (IS_OPTN) read Fcompany write Setcompany stored company_Specified; property address: string Index (IS_OPTN) read Faddress write Setaddress stored address_Specified; property city: string Index (IS_OPTN) read Fcity write Setcity stored city_Specified; property state: string Index (IS_OPTN) read Fstate write Setstate stored state_Specified; property zip: string Index (IS_OPTN) read Fzip write Setzip stored zip_Specified; property country: string Index (IS_OPTN) read Fcountry write Setcountry stored country_Specified; end; // ************************************************************************ // // XML : PaymentScheduleType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // PaymentScheduleType = class(TRemotable) private Finterval: PaymentScheduleTypeInterval; Finterval_Specified: boolean; FstartDate: TXSDate; FstartDate_Specified: boolean; FtotalOccurrences: SmallInt; FtotalOccurrences_Specified: boolean; FtrialOccurrences: SmallInt; FtrialOccurrences_Specified: boolean; procedure Setinterval(Index: Integer; const APaymentScheduleTypeInterval: PaymentScheduleTypeInterval); function interval_Specified(Index: Integer): boolean; procedure SetstartDate(Index: Integer; const ATXSDate: TXSDate); function startDate_Specified(Index: Integer): boolean; procedure SettotalOccurrences(Index: Integer; const ASmallInt: SmallInt); function totalOccurrences_Specified(Index: Integer): boolean; procedure SettrialOccurrences(Index: Integer; const ASmallInt: SmallInt); function trialOccurrences_Specified(Index: Integer): boolean; public destructor Destroy; override; published property interval: PaymentScheduleTypeInterval Index (IS_OPTN) read Finterval write Setinterval stored interval_Specified; property startDate: TXSDate Index (IS_OPTN) read FstartDate write SetstartDate stored startDate_Specified; property totalOccurrences: SmallInt Index (IS_OPTN) read FtotalOccurrences write SettotalOccurrences stored totalOccurrences_Specified; property trialOccurrences: SmallInt Index (IS_OPTN) read FtrialOccurrences write SettrialOccurrences stored trialOccurrences_Specified; end; // ************************************************************************ // // XML : PaymentScheduleTypeInterval, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // PaymentScheduleTypeInterval = class(TRemotable) private Flength: SmallInt; Funit_: ARBSubscriptionUnitEnum; published property length: SmallInt read Flength write Flength; property unit_: ARBSubscriptionUnitEnum read Funit_ write Funit_; end; // ************************************************************************ // // XML : CreditCardSimpleType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // CreditCardSimpleType = class(TRemotable) private FcardNumber: string; FcardNumber_Specified: boolean; FexpirationDate: string; FexpirationDate_Specified: boolean; procedure SetcardNumber(Index: Integer; const Astring: string); function cardNumber_Specified(Index: Integer): boolean; procedure SetexpirationDate(Index: Integer; const Astring: string); function expirationDate_Specified(Index: Integer): boolean; published property cardNumber: string Index (IS_OPTN) read FcardNumber write SetcardNumber stored cardNumber_Specified; property expirationDate: string Index (IS_OPTN) read FexpirationDate write SetexpirationDate stored expirationDate_Specified; end; // ************************************************************************ // // XML : CreditCardType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // CreditCardType = class(CreditCardSimpleType) private FcardCode: string; FcardCode_Specified: boolean; procedure SetcardCode(Index: Integer; const Astring: string); function cardCode_Specified(Index: Integer): boolean; published property cardCode: string Index (IS_OPTN) read FcardCode write SetcardCode stored cardCode_Specified; end; // ************************************************************************ // // XML : BankAccountBaseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // BankAccountBaseType = class(TRemotable) private FaccountType: BankAccountTypeEnum; FaccountType_Specified: boolean; FnameOnAccount: string; FnameOnAccount_Specified: boolean; FecheckType: EcheckTypeEnum; FecheckType_Specified: boolean; FbankName: string; FbankName_Specified: boolean; procedure SetaccountType(Index: Integer; const ABankAccountTypeEnum: BankAccountTypeEnum); function accountType_Specified(Index: Integer): boolean; procedure SetnameOnAccount(Index: Integer; const Astring: string); function nameOnAccount_Specified(Index: Integer): boolean; procedure SetecheckType(Index: Integer; const AEcheckTypeEnum: EcheckTypeEnum); function echeckType_Specified(Index: Integer): boolean; procedure SetbankName(Index: Integer; const Astring: string); function bankName_Specified(Index: Integer): boolean; published property accountType: BankAccountTypeEnum Index (IS_OPTN) read FaccountType write SetaccountType stored accountType_Specified; property nameOnAccount: string Index (IS_OPTN) read FnameOnAccount write SetnameOnAccount stored nameOnAccount_Specified; property echeckType: EcheckTypeEnum Index (IS_OPTN) read FecheckType write SetecheckType stored echeckType_Specified; property bankName: string Index (IS_OPTN) read FbankName write SetbankName stored bankName_Specified; end; // ************************************************************************ // // XML : BankAccountType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // BankAccountType = class(BankAccountBaseType) private FroutingNumber: string; FroutingNumber_Specified: boolean; FaccountNumber: string; FaccountNumber_Specified: boolean; procedure SetroutingNumber(Index: Integer; const Astring: string); function routingNumber_Specified(Index: Integer): boolean; procedure SetaccountNumber(Index: Integer; const Astring: string); function accountNumber_Specified(Index: Integer): boolean; published property routingNumber: string Index (IS_OPTN) read FroutingNumber write SetroutingNumber stored routingNumber_Specified; property accountNumber: string Index (IS_OPTN) read FaccountNumber write SetaccountNumber stored accountNumber_Specified; end; // ************************************************************************ // // XML : CustomerType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // CustomerType = class(TRemotable) private Ftype_: CustomerTypeEnum; Ftype__Specified: boolean; Fid: string; Fid_Specified: boolean; Femail: string; Femail_Specified: boolean; FphoneNumber: string; FphoneNumber_Specified: boolean; FfaxNumber: string; FfaxNumber_Specified: boolean; FdriversLicense: DriversLicenseType; FdriversLicense_Specified: boolean; FtaxId: string; FtaxId_Specified: boolean; procedure Settype_(Index: Integer; const ACustomerTypeEnum: CustomerTypeEnum); function type__Specified(Index: Integer): boolean; procedure Setid(Index: Integer; const Astring: string); function id_Specified(Index: Integer): boolean; procedure Setemail(Index: Integer; const Astring: string); function email_Specified(Index: Integer): boolean; procedure SetphoneNumber(Index: Integer; const Astring: string); function phoneNumber_Specified(Index: Integer): boolean; procedure SetfaxNumber(Index: Integer; const Astring: string); function faxNumber_Specified(Index: Integer): boolean; procedure SetdriversLicense(Index: Integer; const ADriversLicenseType: DriversLicenseType); function driversLicense_Specified(Index: Integer): boolean; procedure SettaxId(Index: Integer; const Astring: string); function taxId_Specified(Index: Integer): boolean; public destructor Destroy; override; published property type_: CustomerTypeEnum Index (IS_OPTN) read Ftype_ write Settype_ stored type__Specified; property id: string Index (IS_OPTN) read Fid write Setid stored id_Specified; property email: string Index (IS_OPTN) read Femail write Setemail stored email_Specified; property phoneNumber: string Index (IS_OPTN) read FphoneNumber write SetphoneNumber stored phoneNumber_Specified; property faxNumber: string Index (IS_OPTN) read FfaxNumber write SetfaxNumber stored faxNumber_Specified; property driversLicense: DriversLicenseType Index (IS_OPTN) read FdriversLicense write SetdriversLicense stored driversLicense_Specified; property taxId: string Index (IS_OPTN) read FtaxId write SettaxId stored taxId_Specified; end; // ************************************************************************ // // XML : DriversLicenseBaseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // DriversLicenseBaseType = class(TRemotable) private Fstate: string; Fstate_Specified: boolean; procedure Setstate(Index: Integer; const Astring: string); function state_Specified(Index: Integer): boolean; published property state: string Index (IS_OPTN) read Fstate write Setstate stored state_Specified; end; // ************************************************************************ // // XML : DriversLicenseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // DriversLicenseType = class(DriversLicenseBaseType) private Fnumber: string; Fnumber_Specified: boolean; FdateOfBirth: string; FdateOfBirth_Specified: boolean; procedure Setnumber(Index: Integer; const Astring: string); function number_Specified(Index: Integer): boolean; procedure SetdateOfBirth(Index: Integer; const Astring: string); function dateOfBirth_Specified(Index: Integer): boolean; published property number: string Index (IS_OPTN) read Fnumber write Setnumber stored number_Specified; property dateOfBirth: string Index (IS_OPTN) read FdateOfBirth write SetdateOfBirth stored dateOfBirth_Specified; end; // ************************************************************************ // // XML : ARBCreateSubscriptionResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // ARBCreateSubscriptionResponseType = class(ANetApiResponseType) private FsubscriptionId: Int64; published property subscriptionId: Int64 read FsubscriptionId write FsubscriptionId; end; // ************************************************************************ // // XML : ARBUpdateSubscriptionResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // ARBUpdateSubscriptionResponseType = class(ANetApiResponseType) private published end; // ************************************************************************ // // XML : ARBCancelSubscriptionResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // ARBCancelSubscriptionResponseType = class(ANetApiResponseType) private published end; // ************************************************************************ // // XML : ARBGetSubscriptionStatusResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // ARBGetSubscriptionStatusResponseType = class(ANetApiResponseType) private Fstatus: ARBSubscriptionStatusEnum; published property status: ARBSubscriptionStatusEnum read Fstatus write Fstatus; end; // ************************************************************************ // // XML : CustomerProfileBaseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // CustomerProfileBaseType = class(TRemotable) private FmerchantCustomerId: string; FmerchantCustomerId_Specified: boolean; Fdescription: string; Fdescription_Specified: boolean; Femail: string; Femail_Specified: boolean; procedure SetmerchantCustomerId(Index: Integer; const Astring: string); function merchantCustomerId_Specified(Index: Integer): boolean; procedure Setdescription(Index: Integer; const Astring: string); function description_Specified(Index: Integer): boolean; procedure Setemail(Index: Integer; const Astring: string); function email_Specified(Index: Integer): boolean; published property merchantCustomerId: string Index (IS_OPTN) read FmerchantCustomerId write SetmerchantCustomerId stored merchantCustomerId_Specified; property description: string Index (IS_OPTN) read Fdescription write Setdescription stored description_Specified; property email: string Index (IS_OPTN) read Femail write Setemail stored email_Specified; end; ArrayOfCustomerPaymentProfileType = array of CustomerPaymentProfileType; { "https://api.authorize.net/soap/v1/"[GblCplx] } ArrayOfCustomerAddressType = array of CustomerAddressType; { "https://api.authorize.net/soap/v1/"[GblCplx] } // ************************************************************************ // // XML : CustomerProfileType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // CustomerProfileType = class(CustomerProfileBaseType) private FpaymentProfiles: ArrayOfCustomerPaymentProfileType; FpaymentProfiles_Specified: boolean; FshipToList: ArrayOfCustomerAddressType; FshipToList_Specified: boolean; procedure SetpaymentProfiles(Index: Integer; const AArrayOfCustomerPaymentProfileType: ArrayOfCustomerPaymentProfileType); function paymentProfiles_Specified(Index: Integer): boolean; procedure SetshipToList(Index: Integer; const AArrayOfCustomerAddressType: ArrayOfCustomerAddressType); function shipToList_Specified(Index: Integer): boolean; public destructor Destroy; override; published property paymentProfiles: ArrayOfCustomerPaymentProfileType Index (IS_OPTN) read FpaymentProfiles write SetpaymentProfiles stored paymentProfiles_Specified; property shipToList: ArrayOfCustomerAddressType Index (IS_OPTN) read FshipToList write SetshipToList stored shipToList_Specified; end; // ************************************************************************ // // XML : CustomerPaymentProfileBaseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // CustomerPaymentProfileBaseType = class(TRemotable) private FcustomerType: CustomerTypeEnum; FcustomerType_Specified: boolean; FbillTo: CustomerAddressType; FbillTo_Specified: boolean; procedure SetcustomerType(Index: Integer; const ACustomerTypeEnum: CustomerTypeEnum); function customerType_Specified(Index: Integer): boolean; procedure SetbillTo(Index: Integer; const ACustomerAddressType: CustomerAddressType); function billTo_Specified(Index: Integer): boolean; public destructor Destroy; override; published property customerType: CustomerTypeEnum Index (IS_OPTN) read FcustomerType write SetcustomerType stored customerType_Specified; property billTo: CustomerAddressType Index (IS_OPTN) read FbillTo write SetbillTo stored billTo_Specified; end; // ************************************************************************ // // XML : CustomerPaymentProfileType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // CustomerPaymentProfileType = class(CustomerPaymentProfileBaseType) private Fpayment: PaymentType; Fpayment_Specified: boolean; FdriversLicense: DriversLicenseType; FdriversLicense_Specified: boolean; FtaxId: string; FtaxId_Specified: boolean; procedure Setpayment(Index: Integer; const APaymentType: PaymentType); function payment_Specified(Index: Integer): boolean; procedure SetdriversLicense(Index: Integer; const ADriversLicenseType: DriversLicenseType); function driversLicense_Specified(Index: Integer): boolean; procedure SettaxId(Index: Integer; const Astring: string); function taxId_Specified(Index: Integer): boolean; public destructor Destroy; override; published property payment: PaymentType Index (IS_OPTN) read Fpayment write Setpayment stored payment_Specified; property driversLicense: DriversLicenseType Index (IS_OPTN) read FdriversLicense write SetdriversLicense stored driversLicense_Specified; property taxId: string Index (IS_OPTN) read FtaxId write SettaxId stored taxId_Specified; end; // ************************************************************************ // // XML : CustomerAddressType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // CustomerAddressType = class(NameAndAddressType) private FphoneNumber: string; FphoneNumber_Specified: boolean; FfaxNumber: string; FfaxNumber_Specified: boolean; procedure SetphoneNumber(Index: Integer; const Astring: string); function phoneNumber_Specified(Index: Integer): boolean; procedure SetfaxNumber(Index: Integer; const Astring: string); function faxNumber_Specified(Index: Integer): boolean; published property phoneNumber: string Index (IS_OPTN) read FphoneNumber write SetphoneNumber stored phoneNumber_Specified; property faxNumber: string Index (IS_OPTN) read FfaxNumber write SetfaxNumber stored faxNumber_Specified; end; ArrayOfLong = array of Int64; { "https://api.authorize.net/soap/v1/"[GblCplx] } ArrayOfString = array of string; { "https://api.authorize.net/soap/v1/"[GblCplx] } // ************************************************************************ // // XML : CreateCustomerProfileResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // CreateCustomerProfileResponseType = class(ANetApiResponseType) private FcustomerProfileId: Int64; FcustomerPaymentProfileIdList: ArrayOfLong; FcustomerPaymentProfileIdList_Specified: boolean; FcustomerShippingAddressIdList: ArrayOfLong; FcustomerShippingAddressIdList_Specified: boolean; FvalidationDirectResponseList: ArrayOfString; FvalidationDirectResponseList_Specified: boolean; procedure SetcustomerPaymentProfileIdList(Index: Integer; const AArrayOfLong: ArrayOfLong); function customerPaymentProfileIdList_Specified(Index: Integer): boolean; procedure SetcustomerShippingAddressIdList(Index: Integer; const AArrayOfLong: ArrayOfLong); function customerShippingAddressIdList_Specified(Index: Integer): boolean; procedure SetvalidationDirectResponseList(Index: Integer; const AArrayOfString: ArrayOfString); function validationDirectResponseList_Specified(Index: Integer): boolean; published property customerProfileId: Int64 read FcustomerProfileId write FcustomerProfileId; property customerPaymentProfileIdList: ArrayOfLong Index (IS_OPTN) read FcustomerPaymentProfileIdList write SetcustomerPaymentProfileIdList stored customerPaymentProfileIdList_Specified; property customerShippingAddressIdList: ArrayOfLong Index (IS_OPTN) read FcustomerShippingAddressIdList write SetcustomerShippingAddressIdList stored customerShippingAddressIdList_Specified; property validationDirectResponseList: ArrayOfString Index (IS_OPTN) read FvalidationDirectResponseList write SetvalidationDirectResponseList stored validationDirectResponseList_Specified; end; // ************************************************************************ // // XML : CreateCustomerPaymentProfileResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // CreateCustomerPaymentProfileResponseType = class(ANetApiResponseType) private FcustomerPaymentProfileId: Int64; FvalidationDirectResponse: string; FvalidationDirectResponse_Specified: boolean; procedure SetvalidationDirectResponse(Index: Integer; const Astring: string); function validationDirectResponse_Specified(Index: Integer): boolean; published property customerPaymentProfileId: Int64 read FcustomerPaymentProfileId write FcustomerPaymentProfileId; property validationDirectResponse: string Index (IS_OPTN) read FvalidationDirectResponse write SetvalidationDirectResponse stored validationDirectResponse_Specified; end; // ************************************************************************ // // XML : CreateCustomerShippingAddressResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // CreateCustomerShippingAddressResponseType = class(ANetApiResponseType) private FcustomerAddressId: Int64; published property customerAddressId: Int64 read FcustomerAddressId write FcustomerAddressId; end; // ************************************************************************ // // XML : GetCustomerProfileResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // GetCustomerProfileResponseType = class(ANetApiResponseType) private Fprofile: CustomerProfileMaskedType; Fprofile_Specified: boolean; procedure Setprofile(Index: Integer; const ACustomerProfileMaskedType: CustomerProfileMaskedType); function profile_Specified(Index: Integer): boolean; public destructor Destroy; override; published property profile: CustomerProfileMaskedType Index (IS_OPTN) read Fprofile write Setprofile stored profile_Specified; end; // ************************************************************************ // // XML : CustomerProfileExType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // CustomerProfileExType = class(CustomerProfileBaseType) private FcustomerProfileId: Int64; published property customerProfileId: Int64 read FcustomerProfileId write FcustomerProfileId; end; ArrayOfCustomerPaymentProfileMaskedType = array of CustomerPaymentProfileMaskedType; { "https://api.authorize.net/soap/v1/"[GblCplx] } ArrayOfCustomerAddressExType = array of CustomerAddressExType; { "https://api.authorize.net/soap/v1/"[GblCplx] } // ************************************************************************ // // XML : CustomerProfileMaskedType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // CustomerProfileMaskedType = class(CustomerProfileExType) private FpaymentProfiles: ArrayOfCustomerPaymentProfileMaskedType; FpaymentProfiles_Specified: boolean; FshipToList: ArrayOfCustomerAddressExType; FshipToList_Specified: boolean; procedure SetpaymentProfiles(Index: Integer; const AArrayOfCustomerPaymentProfileMaskedType: ArrayOfCustomerPaymentProfileMaskedType); function paymentProfiles_Specified(Index: Integer): boolean; procedure SetshipToList(Index: Integer; const AArrayOfCustomerAddressExType: ArrayOfCustomerAddressExType); function shipToList_Specified(Index: Integer): boolean; public destructor Destroy; override; published property paymentProfiles: ArrayOfCustomerPaymentProfileMaskedType Index (IS_OPTN) read FpaymentProfiles write SetpaymentProfiles stored paymentProfiles_Specified; property shipToList: ArrayOfCustomerAddressExType Index (IS_OPTN) read FshipToList write SetshipToList stored shipToList_Specified; end; // ************************************************************************ // // XML : CustomerPaymentProfileMaskedType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // CustomerPaymentProfileMaskedType = class(CustomerPaymentProfileBaseType) private FcustomerPaymentProfileId: Int64; Fpayment: PaymentMaskedType; Fpayment_Specified: boolean; FdriversLicense: DriversLicenseMaskedType; FdriversLicense_Specified: boolean; FtaxId: string; FtaxId_Specified: boolean; procedure Setpayment(Index: Integer; const APaymentMaskedType: PaymentMaskedType); function payment_Specified(Index: Integer): boolean; procedure SetdriversLicense(Index: Integer; const ADriversLicenseMaskedType: DriversLicenseMaskedType); function driversLicense_Specified(Index: Integer): boolean; procedure SettaxId(Index: Integer; const Astring: string); function taxId_Specified(Index: Integer): boolean; public destructor Destroy; override; published property customerPaymentProfileId: Int64 read FcustomerPaymentProfileId write FcustomerPaymentProfileId; property payment: PaymentMaskedType Index (IS_OPTN) read Fpayment write Setpayment stored payment_Specified; property driversLicense: DriversLicenseMaskedType Index (IS_OPTN) read FdriversLicense write SetdriversLicense stored driversLicense_Specified; property taxId: string Index (IS_OPTN) read FtaxId write SettaxId stored taxId_Specified; end; // ************************************************************************ // // XML : PaymentMaskedType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // PaymentMaskedType = class(TRemotable) private FcreditCard: CreditCardMaskedType; FcreditCard_Specified: boolean; FbankAccount: BankAccountMaskedType; FbankAccount_Specified: boolean; procedure SetcreditCard(Index: Integer; const ACreditCardMaskedType: CreditCardMaskedType); function creditCard_Specified(Index: Integer): boolean; procedure SetbankAccount(Index: Integer; const ABankAccountMaskedType: BankAccountMaskedType); function bankAccount_Specified(Index: Integer): boolean; public destructor Destroy; override; published property creditCard: CreditCardMaskedType Index (IS_OPTN) read FcreditCard write SetcreditCard stored creditCard_Specified; property bankAccount: BankAccountMaskedType Index (IS_OPTN) read FbankAccount write SetbankAccount stored bankAccount_Specified; end; // ************************************************************************ // // XML : DriversLicenseMaskedType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // DriversLicenseMaskedType = class(DriversLicenseBaseType) private Fnumber: string; Fnumber_Specified: boolean; FdateOfBirth: string; FdateOfBirth_Specified: boolean; procedure Setnumber(Index: Integer; const Astring: string); function number_Specified(Index: Integer): boolean; procedure SetdateOfBirth(Index: Integer; const Astring: string); function dateOfBirth_Specified(Index: Integer): boolean; published property number: string Index (IS_OPTN) read Fnumber write Setnumber stored number_Specified; property dateOfBirth: string Index (IS_OPTN) read FdateOfBirth write SetdateOfBirth stored dateOfBirth_Specified; end; // ************************************************************************ // // XML : CreditCardMaskedType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // CreditCardMaskedType = class(TRemotable) private FcardNumber: string; FcardNumber_Specified: boolean; FexpirationDate: string; FexpirationDate_Specified: boolean; FcardType: string; FcardType_Specified: boolean; procedure SetcardNumber(Index: Integer; const Astring: string); function cardNumber_Specified(Index: Integer): boolean; procedure SetexpirationDate(Index: Integer; const Astring: string); function expirationDate_Specified(Index: Integer): boolean; procedure SetcardType(Index: Integer; const Astring: string); function cardType_Specified(Index: Integer): boolean; published property cardNumber: string Index (IS_OPTN) read FcardNumber write SetcardNumber stored cardNumber_Specified; property expirationDate: string Index (IS_OPTN) read FexpirationDate write SetexpirationDate stored expirationDate_Specified; property cardType: string Index (IS_OPTN) read FcardType write SetcardType stored cardType_Specified; end; // ************************************************************************ // // XML : BankAccountMaskedType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // BankAccountMaskedType = class(BankAccountBaseType) private FroutingNumber: string; FroutingNumber_Specified: boolean; FaccountNumber: string; FaccountNumber_Specified: boolean; procedure SetroutingNumber(Index: Integer; const Astring: string); function routingNumber_Specified(Index: Integer): boolean; procedure SetaccountNumber(Index: Integer; const Astring: string); function accountNumber_Specified(Index: Integer): boolean; published property routingNumber: string Index (IS_OPTN) read FroutingNumber write SetroutingNumber stored routingNumber_Specified; property accountNumber: string Index (IS_OPTN) read FaccountNumber write SetaccountNumber stored accountNumber_Specified; end; // ************************************************************************ // // XML : CustomerAddressExType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // CustomerAddressExType = class(CustomerAddressType) private FcustomerAddressId: Int64; published property customerAddressId: Int64 read FcustomerAddressId write FcustomerAddressId; end; // ************************************************************************ // // XML : GetCustomerPaymentProfileResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // GetCustomerPaymentProfileResponseType = class(ANetApiResponseType) private FpaymentProfile: CustomerPaymentProfileMaskedType; FpaymentProfile_Specified: boolean; procedure SetpaymentProfile(Index: Integer; const ACustomerPaymentProfileMaskedType: CustomerPaymentProfileMaskedType); function paymentProfile_Specified(Index: Integer): boolean; public destructor Destroy; override; published property paymentProfile: CustomerPaymentProfileMaskedType Index (IS_OPTN) read FpaymentProfile write SetpaymentProfile stored paymentProfile_Specified; end; // ************************************************************************ // // XML : GetCustomerShippingAddressResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // GetCustomerShippingAddressResponseType = class(ANetApiResponseType) private Faddress: CustomerAddressExType; Faddress_Specified: boolean; procedure Setaddress(Index: Integer; const ACustomerAddressExType: CustomerAddressExType); function address_Specified(Index: Integer): boolean; public destructor Destroy; override; published property address: CustomerAddressExType Index (IS_OPTN) read Faddress write Setaddress stored address_Specified; end; // ************************************************************************ // // XML : UpdateCustomerProfileResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // UpdateCustomerProfileResponseType = class(ANetApiResponseType) private published end; // ************************************************************************ // // XML : CustomerPaymentProfileExType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // CustomerPaymentProfileExType = class(CustomerPaymentProfileType) private FcustomerPaymentProfileId: Int64; published property customerPaymentProfileId: Int64 read FcustomerPaymentProfileId write FcustomerPaymentProfileId; end; // ************************************************************************ // // XML : UpdateCustomerPaymentProfileResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // UpdateCustomerPaymentProfileResponseType = class(ANetApiResponseType) private FvalidationDirectResponse: string; FvalidationDirectResponse_Specified: boolean; procedure SetvalidationDirectResponse(Index: Integer; const Astring: string); function validationDirectResponse_Specified(Index: Integer): boolean; published property validationDirectResponse: string Index (IS_OPTN) read FvalidationDirectResponse write SetvalidationDirectResponse stored validationDirectResponse_Specified; end; // ************************************************************************ // // XML : UpdateCustomerShippingAddressResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // UpdateCustomerShippingAddressResponseType = class(ANetApiResponseType) private published end; // ************************************************************************ // // XML : DeleteCustomerProfileResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // DeleteCustomerProfileResponseType = class(ANetApiResponseType) private published end; // ************************************************************************ // // XML : DeleteCustomerPaymentProfileResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // DeleteCustomerPaymentProfileResponseType = class(ANetApiResponseType) private published end; // ************************************************************************ // // XML : DeleteCustomerShippingAddressResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // DeleteCustomerShippingAddressResponseType = class(ANetApiResponseType) private published end; // ************************************************************************ // // XML : ProfileTransactionType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // ProfileTransactionType = class(TRemotable) private FprofileTransVoid: ProfileTransVoidType; FprofileTransVoid_Specified: boolean; FprofileTransRefund: ProfileTransRefundType; FprofileTransRefund_Specified: boolean; FprofileTransAuthOnly: ProfileTransAuthOnlyType; FprofileTransAuthOnly_Specified: boolean; FprofileTransPriorAuthCapture: ProfileTransPriorAuthCaptureType; FprofileTransPriorAuthCapture_Specified: boolean; FprofileTransAuthCapture: ProfileTransAuthCaptureType; FprofileTransAuthCapture_Specified: boolean; FprofileTransCaptureOnly: ProfileTransCaptureOnlyType; FprofileTransCaptureOnly_Specified: boolean; procedure SetprofileTransVoid(Index: Integer; const AProfileTransVoidType: ProfileTransVoidType); function profileTransVoid_Specified(Index: Integer): boolean; procedure SetprofileTransRefund(Index: Integer; const AProfileTransRefundType: ProfileTransRefundType); function profileTransRefund_Specified(Index: Integer): boolean; procedure SetprofileTransAuthOnly(Index: Integer; const AProfileTransAuthOnlyType: ProfileTransAuthOnlyType); function profileTransAuthOnly_Specified(Index: Integer): boolean; procedure SetprofileTransPriorAuthCapture(Index: Integer; const AProfileTransPriorAuthCaptureType: ProfileTransPriorAuthCaptureType); function profileTransPriorAuthCapture_Specified(Index: Integer): boolean; procedure SetprofileTransAuthCapture(Index: Integer; const AProfileTransAuthCaptureType: ProfileTransAuthCaptureType); function profileTransAuthCapture_Specified(Index: Integer): boolean; procedure SetprofileTransCaptureOnly(Index: Integer; const AProfileTransCaptureOnlyType: ProfileTransCaptureOnlyType); function profileTransCaptureOnly_Specified(Index: Integer): boolean; public destructor Destroy; override; published property profileTransVoid: ProfileTransVoidType Index (IS_OPTN) read FprofileTransVoid write SetprofileTransVoid stored profileTransVoid_Specified; property profileTransRefund: ProfileTransRefundType Index (IS_OPTN) read FprofileTransRefund write SetprofileTransRefund stored profileTransRefund_Specified; property profileTransAuthOnly: ProfileTransAuthOnlyType Index (IS_OPTN) read FprofileTransAuthOnly write SetprofileTransAuthOnly stored profileTransAuthOnly_Specified; property profileTransPriorAuthCapture: ProfileTransPriorAuthCaptureType Index (IS_OPTN) read FprofileTransPriorAuthCapture write SetprofileTransPriorAuthCapture stored profileTransPriorAuthCapture_Specified; property profileTransAuthCapture: ProfileTransAuthCaptureType Index (IS_OPTN) read FprofileTransAuthCapture write SetprofileTransAuthCapture stored profileTransAuthCapture_Specified; property profileTransCaptureOnly: ProfileTransCaptureOnlyType Index (IS_OPTN) read FprofileTransCaptureOnly write SetprofileTransCaptureOnly stored profileTransCaptureOnly_Specified; end; // ************************************************************************ // // XML : ProfileTransVoidType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // ProfileTransVoidType = class(TRemotable) private FcustomerProfileId: Int64; FcustomerProfileId_Specified: boolean; FcustomerPaymentProfileId: Int64; FcustomerPaymentProfileId_Specified: boolean; FcustomerShippingAddressId: Int64; FcustomerShippingAddressId_Specified: boolean; FtransId: string; FtransId_Specified: boolean; procedure SetcustomerProfileId(Index: Integer; const AInt64: Int64); function customerProfileId_Specified(Index: Integer): boolean; procedure SetcustomerPaymentProfileId(Index: Integer; const AInt64: Int64); function customerPaymentProfileId_Specified(Index: Integer): boolean; procedure SetcustomerShippingAddressId(Index: Integer; const AInt64: Int64); function customerShippingAddressId_Specified(Index: Integer): boolean; procedure SettransId(Index: Integer; const Astring: string); function transId_Specified(Index: Integer): boolean; published property customerProfileId: Int64 Index (IS_OPTN) read FcustomerProfileId write SetcustomerProfileId stored customerProfileId_Specified; property customerPaymentProfileId: Int64 Index (IS_OPTN) read FcustomerPaymentProfileId write SetcustomerPaymentProfileId stored customerPaymentProfileId_Specified; property customerShippingAddressId: Int64 Index (IS_OPTN) read FcustomerShippingAddressId write SetcustomerShippingAddressId stored customerShippingAddressId_Specified; property transId: string Index (IS_OPTN) read FtransId write SettransId stored transId_Specified; end; // ************************************************************************ // // XML : OrderExType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // OrderExType = class(OrderType) private FpurchaseOrderNumber: string; FpurchaseOrderNumber_Specified: boolean; procedure SetpurchaseOrderNumber(Index: Integer; const Astring: string); function purchaseOrderNumber_Specified(Index: Integer): boolean; published property purchaseOrderNumber: string Index (IS_OPTN) read FpurchaseOrderNumber write SetpurchaseOrderNumber stored purchaseOrderNumber_Specified; end; // ************************************************************************ // // XML : ExtendedAmountType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // ExtendedAmountType = class(TRemotable) private Famount: TXSDecimal; Fname_: string; Fname__Specified: boolean; Fdescription: string; Fdescription_Specified: boolean; procedure Setname_(Index: Integer; const Astring: string); function name__Specified(Index: Integer): boolean; procedure Setdescription(Index: Integer; const Astring: string); function description_Specified(Index: Integer): boolean; public destructor Destroy; override; published property amount: TXSDecimal read Famount write Famount; property name_: string Index (IS_OPTN) read Fname_ write Setname_ stored name__Specified; property description: string Index (IS_OPTN) read Fdescription write Setdescription stored description_Specified; end; // ************************************************************************ // // XML : LineItemType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // LineItemType = class(TRemotable) private FitemId: string; FitemId_Specified: boolean; Fname_: string; Fname__Specified: boolean; Fdescription: string; Fdescription_Specified: boolean; Fquantity: TXSDecimal; FunitPrice: TXSDecimal; Ftaxable: Boolean; Ftaxable_Specified: boolean; procedure SetitemId(Index: Integer; const Astring: string); function itemId_Specified(Index: Integer): boolean; procedure Setname_(Index: Integer; const Astring: string); function name__Specified(Index: Integer): boolean; procedure Setdescription(Index: Integer; const Astring: string); function description_Specified(Index: Integer): boolean; procedure Settaxable(Index: Integer; const ABoolean: Boolean); function taxable_Specified(Index: Integer): boolean; public destructor Destroy; override; published property itemId: string Index (IS_OPTN) read FitemId write SetitemId stored itemId_Specified; property name_: string Index (IS_OPTN) read Fname_ write Setname_ stored name__Specified; property description: string Index (IS_OPTN) read Fdescription write Setdescription stored description_Specified; property quantity: TXSDecimal read Fquantity write Fquantity; property unitPrice: TXSDecimal read FunitPrice write FunitPrice; property taxable: Boolean Index (IS_OPTN) read Ftaxable write Settaxable stored taxable_Specified; end; // ************************************************************************ // // XML : CreateCustomerProfileTransactionResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // CreateCustomerProfileTransactionResponseType = class(ANetApiResponseType) private FdirectResponse: string; FdirectResponse_Specified: boolean; procedure SetdirectResponse(Index: Integer; const Astring: string); function directResponse_Specified(Index: Integer): boolean; published property directResponse: string Index (IS_OPTN) read FdirectResponse write SetdirectResponse stored directResponse_Specified; end; // ************************************************************************ // // XML : ValidateCustomerPaymentProfileResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // ValidateCustomerPaymentProfileResponseType = class(ANetApiResponseType) private FdirectResponse: string; FdirectResponse_Specified: boolean; procedure SetdirectResponse(Index: Integer; const Astring: string); function directResponse_Specified(Index: Integer): boolean; published property directResponse: string Index (IS_OPTN) read FdirectResponse write SetdirectResponse stored directResponse_Specified; end; // ************************************************************************ // // XML : GetCustomerProfileIdsResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // GetCustomerProfileIdsResponseType = class(ANetApiResponseType) private Fids: ArrayOfLong; Fids_Specified: boolean; procedure Setids(Index: Integer; const AArrayOfLong: ArrayOfLong); function ids_Specified(Index: Integer): boolean; published property ids: ArrayOfLong Index (IS_OPTN) read Fids write Setids stored ids_Specified; end; // ************************************************************************ // // XML : UpdateSplitTenderGroupResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // UpdateSplitTenderGroupResponseType = class(ANetApiResponseType) private published end; // ************************************************************************ // // XML : GetTransactionDetailsResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // GetTransactionDetailsResponseType = class(ANetApiResponseType) private Ftransaction: TransactionDetailsType; Ftransaction_Specified: boolean; procedure Settransaction(Index: Integer; const ATransactionDetailsType: TransactionDetailsType); function transaction_Specified(Index: Integer): boolean; public destructor Destroy; override; published property transaction: TransactionDetailsType Index (IS_OPTN) read Ftransaction write Settransaction stored transaction_Specified; end; ArrayOfFDSFilterType = array of FDSFilter; { "https://api.authorize.net/soap/v1/"[GblCplx] } // ************************************************************************ // // XML : CustomerDataType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // CustomerDataType = class(TRemotable) private Ftype_: CustomerTypeEnum; Ftype__Specified: boolean; Fid: string; Fid_Specified: boolean; Femail: string; Femail_Specified: boolean; FdriversLicense: DriversLicenseType; FdriversLicense_Specified: boolean; FtaxId: string; FtaxId_Specified: boolean; procedure Settype_(Index: Integer; const ACustomerTypeEnum: CustomerTypeEnum); function type__Specified(Index: Integer): boolean; procedure Setid(Index: Integer; const Astring: string); function id_Specified(Index: Integer): boolean; procedure Setemail(Index: Integer; const Astring: string); function email_Specified(Index: Integer): boolean; procedure SetdriversLicense(Index: Integer; const ADriversLicenseType: DriversLicenseType); function driversLicense_Specified(Index: Integer): boolean; procedure SettaxId(Index: Integer; const Astring: string); function taxId_Specified(Index: Integer): boolean; public destructor Destroy; override; published property type_: CustomerTypeEnum Index (IS_OPTN) read Ftype_ write Settype_ stored type__Specified; property id: string Index (IS_OPTN) read Fid write Setid stored id_Specified; property email: string Index (IS_OPTN) read Femail write Setemail stored email_Specified; property driversLicense: DriversLicenseType Index (IS_OPTN) read FdriversLicense write SetdriversLicense stored driversLicense_Specified; property taxId: string Index (IS_OPTN) read FtaxId write SettaxId stored taxId_Specified; end; // ************************************************************************ // // XML : FDSFilterType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // FDSFilterType = class(TRemotable) private Fname_: string; Fname__Specified: boolean; Faction: string; Faction_Specified: boolean; procedure Setname_(Index: Integer; const Astring: string); function name__Specified(Index: Integer): boolean; procedure Setaction(Index: Integer; const Astring: string); function action_Specified(Index: Integer): boolean; published property name_: string Index (IS_OPTN) read Fname_ write Setname_ stored name__Specified; property action: string Index (IS_OPTN) read Faction write Setaction stored action_Specified; end; ArrayOfBatchStatisticType = array of statistic; { "https://api.authorize.net/soap/v1/"[GblCplx] } // ************************************************************************ // // XML : BatchDetailsType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // BatchDetailsType = class(TRemotable) private FbatchId: string; FbatchId_Specified: boolean; FsettlementTimeUTC: TXSDateTime; FsettlementTimeUTC_Specified: boolean; FsettlementTimeLocal: TXSDateTime; FsettlementTimeLocal_Specified: boolean; FsettlementState: string; FsettlementState_Specified: boolean; FpaymentMethod: string; FpaymentMethod_Specified: boolean; Fstatistics: ArrayOfBatchStatisticType; Fstatistics_Specified: boolean; procedure SetbatchId(Index: Integer; const Astring: string); function batchId_Specified(Index: Integer): boolean; procedure SetsettlementTimeUTC(Index: Integer; const ATXSDateTime: TXSDateTime); function settlementTimeUTC_Specified(Index: Integer): boolean; procedure SetsettlementTimeLocal(Index: Integer; const ATXSDateTime: TXSDateTime); function settlementTimeLocal_Specified(Index: Integer): boolean; procedure SetsettlementState(Index: Integer; const Astring: string); function settlementState_Specified(Index: Integer): boolean; procedure SetpaymentMethod(Index: Integer; const Astring: string); function paymentMethod_Specified(Index: Integer): boolean; procedure Setstatistics(Index: Integer; const AArrayOfBatchStatisticType: ArrayOfBatchStatisticType); function statistics_Specified(Index: Integer): boolean; public destructor Destroy; override; published property batchId: string Index (IS_OPTN) read FbatchId write SetbatchId stored batchId_Specified; property settlementTimeUTC: TXSDateTime Index (IS_OPTN) read FsettlementTimeUTC write SetsettlementTimeUTC stored settlementTimeUTC_Specified; property settlementTimeLocal: TXSDateTime Index (IS_OPTN) read FsettlementTimeLocal write SetsettlementTimeLocal stored settlementTimeLocal_Specified; property settlementState: string Index (IS_OPTN) read FsettlementState write SetsettlementState stored settlementState_Specified; property paymentMethod: string Index (IS_OPTN) read FpaymentMethod write SetpaymentMethod stored paymentMethod_Specified; property statistics: ArrayOfBatchStatisticType Index (IS_OPTN) read Fstatistics write Setstatistics stored statistics_Specified; end; // ************************************************************************ // // XML : BatchStatisticType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // BatchStatisticType = class(TRemotable) private FaccountType: string; FaccountType_Specified: boolean; FcurrencyCode: string; FcurrencyCode_Specified: boolean; FchargeAmount: TXSDecimal; FchargeCount: Integer; FrefundAmount: TXSDecimal; FrefundCount: Integer; FvoidCount: Integer; FdeclineCount: Integer; FerrorCount: Integer; FreturnedItemAmount: TXSDecimal; FreturnedItemAmount_Specified: boolean; FreturnedItemAmountSpecified: Boolean; FreturnedItemCount: Integer; FreturnedItemCount_Specified: boolean; FreturnedItemCountSpecified: Boolean; FchargebackAmount: TXSDecimal; FchargebackAmount_Specified: boolean; FchargebackAmountSpecified: Boolean; FchargebackCount: Integer; FchargebackCount_Specified: boolean; FchargebackCountSpecified: Boolean; FcorrectionNoticeCount: Integer; FcorrectionNoticeCount_Specified: boolean; FcorrectionNoticeCountSpecified: Boolean; FchargeChargeBackAmount: TXSDecimal; FchargeChargeBackAmount_Specified: boolean; FchargeChargeBackAmountSpecified: Boolean; FchargeChargeBackCount: Integer; FchargeChargeBackCount_Specified: boolean; FchargeChargeBackCountSpecified: Boolean; FrefundChargeBackAmount: TXSDecimal; FrefundChargeBackAmount_Specified: boolean; FrefundChargeBackAmountSpecified: Boolean; FrefundChargeBackCount: Integer; FrefundChargeBackCount_Specified: boolean; FrefundChargeBackCountSpecified: Boolean; FchargeReturnedItemsAmount: TXSDecimal; FchargeReturnedItemsAmount_Specified: boolean; FchargeReturnedItemsAmountSpecified: Boolean; FchargeReturnedItemsCount: Integer; FchargeReturnedItemsCount_Specified: boolean; FchargeReturnedItemsCountSpecified: Boolean; FrefundReturnedItemsAmount: TXSDecimal; FrefundReturnedItemsAmount_Specified: boolean; FrefundReturnedItemsAmountSpecified: Boolean; FrefundReturnedItemsCount: Integer; FrefundReturnedItemsCount_Specified: boolean; FrefundReturnedItemsCountSpecified: Boolean; procedure SetaccountType(Index: Integer; const Astring: string); function accountType_Specified(Index: Integer): boolean; procedure SetcurrencyCode(Index: Integer; const Astring: string); function currencyCode_Specified(Index: Integer): boolean; procedure SetreturnedItemAmount(Index: Integer; const ATXSDecimal: TXSDecimal); function returnedItemAmount_Specified(Index: Integer): boolean; procedure SetreturnedItemCount(Index: Integer; const AInteger: Integer); function returnedItemCount_Specified(Index: Integer): boolean; procedure SetchargebackAmount(Index: Integer; const ATXSDecimal: TXSDecimal); function chargebackAmount_Specified(Index: Integer): boolean; procedure SetchargebackCount(Index: Integer; const AInteger: Integer); function chargebackCount_Specified(Index: Integer): boolean; procedure SetcorrectionNoticeCount(Index: Integer; const AInteger: Integer); function correctionNoticeCount_Specified(Index: Integer): boolean; procedure SetchargeChargeBackAmount(Index: Integer; const ATXSDecimal: TXSDecimal); function chargeChargeBackAmount_Specified(Index: Integer): boolean; procedure SetchargeChargeBackCount(Index: Integer; const AInteger: Integer); function chargeChargeBackCount_Specified(Index: Integer): boolean; procedure SetrefundChargeBackAmount(Index: Integer; const ATXSDecimal: TXSDecimal); function refundChargeBackAmount_Specified(Index: Integer): boolean; procedure SetrefundChargeBackCount(Index: Integer; const AInteger: Integer); function refundChargeBackCount_Specified(Index: Integer): boolean; procedure SetchargeReturnedItemsAmount(Index: Integer; const ATXSDecimal: TXSDecimal); function chargeReturnedItemsAmount_Specified(Index: Integer): boolean; procedure SetchargeReturnedItemsCount(Index: Integer; const AInteger: Integer); function chargeReturnedItemsCount_Specified(Index: Integer): boolean; procedure SetrefundReturnedItemsAmount(Index: Integer; const ATXSDecimal: TXSDecimal); function refundReturnedItemsAmount_Specified(Index: Integer): boolean; procedure SetrefundReturnedItemsCount(Index: Integer; const AInteger: Integer); function refundReturnedItemsCount_Specified(Index: Integer): boolean; public destructor Destroy; override; published property accountType: string Index (IS_OPTN) read FaccountType write SetaccountType stored accountType_Specified; property currencyCode: string Index (IS_OPTN) read FcurrencyCode write SetcurrencyCode stored currencyCode_Specified; property chargeAmount: TXSDecimal read FchargeAmount write FchargeAmount; property chargeCount: Integer read FchargeCount write FchargeCount; property refundAmount: TXSDecimal read FrefundAmount write FrefundAmount; property refundCount: Integer read FrefundCount write FrefundCount; property voidCount: Integer read FvoidCount write FvoidCount; property declineCount: Integer read FdeclineCount write FdeclineCount; property errorCount: Integer read FerrorCount write FerrorCount; property returnedItemAmount: TXSDecimal Index (IS_OPTN) read FreturnedItemAmount write SetreturnedItemAmount stored returnedItemAmount_Specified; property returnedItemAmountSpecified: Boolean read FreturnedItemAmountSpecified write FreturnedItemAmountSpecified; property returnedItemCount: Integer Index (IS_OPTN) read FreturnedItemCount write SetreturnedItemCount stored returnedItemCount_Specified; property returnedItemCountSpecified: Boolean read FreturnedItemCountSpecified write FreturnedItemCountSpecified; property chargebackAmount: TXSDecimal Index (IS_OPTN) read FchargebackAmount write SetchargebackAmount stored chargebackAmount_Specified; property chargebackAmountSpecified: Boolean read FchargebackAmountSpecified write FchargebackAmountSpecified; property chargebackCount: Integer Index (IS_OPTN) read FchargebackCount write SetchargebackCount stored chargebackCount_Specified; property chargebackCountSpecified: Boolean read FchargebackCountSpecified write FchargebackCountSpecified; property correctionNoticeCount: Integer Index (IS_OPTN) read FcorrectionNoticeCount write SetcorrectionNoticeCount stored correctionNoticeCount_Specified; property correctionNoticeCountSpecified: Boolean read FcorrectionNoticeCountSpecified write FcorrectionNoticeCountSpecified; property chargeChargeBackAmount: TXSDecimal Index (IS_OPTN) read FchargeChargeBackAmount write SetchargeChargeBackAmount stored chargeChargeBackAmount_Specified; property chargeChargeBackAmountSpecified: Boolean read FchargeChargeBackAmountSpecified write FchargeChargeBackAmountSpecified; property chargeChargeBackCount: Integer Index (IS_OPTN) read FchargeChargeBackCount write SetchargeChargeBackCount stored chargeChargeBackCount_Specified; property chargeChargeBackCountSpecified: Boolean read FchargeChargeBackCountSpecified write FchargeChargeBackCountSpecified; property refundChargeBackAmount: TXSDecimal Index (IS_OPTN) read FrefundChargeBackAmount write SetrefundChargeBackAmount stored refundChargeBackAmount_Specified; property refundChargeBackAmountSpecified: Boolean read FrefundChargeBackAmountSpecified write FrefundChargeBackAmountSpecified; property refundChargeBackCount: Integer Index (IS_OPTN) read FrefundChargeBackCount write SetrefundChargeBackCount stored refundChargeBackCount_Specified; property refundChargeBackCountSpecified: Boolean read FrefundChargeBackCountSpecified write FrefundChargeBackCountSpecified; property chargeReturnedItemsAmount: TXSDecimal Index (IS_OPTN) read FchargeReturnedItemsAmount write SetchargeReturnedItemsAmount stored chargeReturnedItemsAmount_Specified; property chargeReturnedItemsAmountSpecified: Boolean read FchargeReturnedItemsAmountSpecified write FchargeReturnedItemsAmountSpecified; property chargeReturnedItemsCount: Integer Index (IS_OPTN) read FchargeReturnedItemsCount write SetchargeReturnedItemsCount stored chargeReturnedItemsCount_Specified; property chargeReturnedItemsCountSpecified: Boolean read FchargeReturnedItemsCountSpecified write FchargeReturnedItemsCountSpecified; property refundReturnedItemsAmount: TXSDecimal Index (IS_OPTN) read FrefundReturnedItemsAmount write SetrefundReturnedItemsAmount stored refundReturnedItemsAmount_Specified; property refundReturnedItemsAmountSpecified: Boolean read FrefundReturnedItemsAmountSpecified write FrefundReturnedItemsAmountSpecified; property refundReturnedItemsCount: Integer Index (IS_OPTN) read FrefundReturnedItemsCount write SetrefundReturnedItemsCount stored refundReturnedItemsCount_Specified; property refundReturnedItemsCountSpecified: Boolean read FrefundReturnedItemsCountSpecified write FrefundReturnedItemsCountSpecified; end; // ************************************************************************ // // XML : GetSettledBatchListRequestType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // GetSettledBatchListRequestType = class(TRemotable) private FincludeStatistics: Boolean; FincludeStatistics_Specified: boolean; FfirstSettlementDate: TXSDateTime; FfirstSettlementDate_Specified: boolean; FlastSettlementDate: TXSDateTime; FlastSettlementDate_Specified: boolean; procedure SetincludeStatistics(Index: Integer; const ABoolean: Boolean); function includeStatistics_Specified(Index: Integer): boolean; procedure SetfirstSettlementDate(Index: Integer; const ATXSDateTime: TXSDateTime); function firstSettlementDate_Specified(Index: Integer): boolean; procedure SetlastSettlementDate(Index: Integer; const ATXSDateTime: TXSDateTime); function lastSettlementDate_Specified(Index: Integer): boolean; public destructor Destroy; override; published property includeStatistics: Boolean Index (IS_OPTN) read FincludeStatistics write SetincludeStatistics stored includeStatistics_Specified; property firstSettlementDate: TXSDateTime Index (IS_OPTN) read FfirstSettlementDate write SetfirstSettlementDate stored firstSettlementDate_Specified; property lastSettlementDate: TXSDateTime Index (IS_OPTN) read FlastSettlementDate write SetlastSettlementDate stored lastSettlementDate_Specified; end; ArrayOfBatchDetailsType = array of batch; { "https://api.authorize.net/soap/v1/"[GblCplx] } // ************************************************************************ // // XML : GetSettledBatchListResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // GetSettledBatchListResponseType = class(ANetApiResponseType) private FbatchList: ArrayOfBatchDetailsType; FbatchList_Specified: boolean; procedure SetbatchList(Index: Integer; const AArrayOfBatchDetailsType: ArrayOfBatchDetailsType); function batchList_Specified(Index: Integer): boolean; public destructor Destroy; override; published property batchList: ArrayOfBatchDetailsType Index (IS_OPTN) read FbatchList write SetbatchList stored batchList_Specified; end; // ************************************************************************ // // XML : GetTransactionListRequestType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // GetTransactionListRequestType = class(TRemotable) private FbatchId: string; FbatchId_Specified: boolean; procedure SetbatchId(Index: Integer; const Astring: string); function batchId_Specified(Index: Integer): boolean; published property batchId: string Index (IS_OPTN) read FbatchId write SetbatchId stored batchId_Specified; end; ArrayOfTransactionSummaryType = array of transaction; { "https://api.authorize.net/soap/v1/"[GblCplx] } // ************************************************************************ // // XML : GetTransactionListResponseType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // GetTransactionListResponseType = class(ANetApiResponseType) private Ftransactions: ArrayOfTransactionSummaryType; Ftransactions_Specified: boolean; procedure Settransactions(Index: Integer; const AArrayOfTransactionSummaryType: ArrayOfTransactionSummaryType); function transactions_Specified(Index: Integer): boolean; public destructor Destroy; override; published property transactions: ArrayOfTransactionSummaryType Index (IS_OPTN) read Ftransactions write Settransactions stored transactions_Specified; end; // ************************************************************************ // // XML : TransactionSummaryType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // TransactionSummaryType = class(TRemotable) private FtransId: string; FtransId_Specified: boolean; FsubmitTimeUTC: TXSDateTime; FsubmitTimeLocal: TXSDateTime; FtransactionStatus: string; FtransactionStatus_Specified: boolean; FinvoiceNumber: string; FinvoiceNumber_Specified: boolean; FfirstName: string; FfirstName_Specified: boolean; FlastName: string; FlastName_Specified: boolean; FaccountType: string; FaccountType_Specified: boolean; FaccountNumber: string; FaccountNumber_Specified: boolean; FsettleAmount: TXSDecimal; procedure SettransId(Index: Integer; const Astring: string); function transId_Specified(Index: Integer): boolean; procedure SettransactionStatus(Index: Integer; const Astring: string); function transactionStatus_Specified(Index: Integer): boolean; procedure SetinvoiceNumber(Index: Integer; const Astring: string); function invoiceNumber_Specified(Index: Integer): boolean; procedure SetfirstName(Index: Integer; const Astring: string); function firstName_Specified(Index: Integer): boolean; procedure SetlastName(Index: Integer; const Astring: string); function lastName_Specified(Index: Integer): boolean; procedure SetaccountType(Index: Integer; const Astring: string); function accountType_Specified(Index: Integer): boolean; procedure SetaccountNumber(Index: Integer; const Astring: string); function accountNumber_Specified(Index: Integer): boolean; public destructor Destroy; override; published property transId: string Index (IS_OPTN) read FtransId write SettransId stored transId_Specified; property submitTimeUTC: TXSDateTime read FsubmitTimeUTC write FsubmitTimeUTC; property submitTimeLocal: TXSDateTime read FsubmitTimeLocal write FsubmitTimeLocal; property transactionStatus: string Index (IS_OPTN) read FtransactionStatus write SettransactionStatus stored transactionStatus_Specified; property invoiceNumber: string Index (IS_OPTN) read FinvoiceNumber write SetinvoiceNumber stored invoiceNumber_Specified; property firstName: string Index (IS_OPTN) read FfirstName write SetfirstName stored firstName_Specified; property lastName: string Index (IS_OPTN) read FlastName write SetlastName stored lastName_Specified; property accountType: string Index (IS_OPTN) read FaccountType write SetaccountType stored accountType_Specified; property accountNumber: string Index (IS_OPTN) read FaccountNumber write SetaccountNumber stored accountNumber_Specified; property settleAmount: TXSDecimal read FsettleAmount write FsettleAmount; end; // ************************************************************************ // // XML : FDSFilter, alias // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // FDSFilter = class(FDSFilterType) private published end; // ************************************************************************ // // XML : statistic, alias // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // statistic = class(BatchStatisticType) private published end; // ************************************************************************ // // XML : batch, alias // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // batch = class(BatchDetailsType) private published end; // ************************************************************************ // // XML : transaction, alias // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // transaction = class(TransactionSummaryType) private published end; Array_Of_LineItemType = array of LineItemType; { "https://api.authorize.net/soap/v1/"[GblUbnd] } // ************************************************************************ // // XML : TransactionDetailsType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // TransactionDetailsType = class(TRemotable) private FtransId: string; FtransId_Specified: boolean; FrefTransId: string; FrefTransId_Specified: boolean; FsplitTenderId: Int64; FsplitTenderId_Specified: boolean; FsubmitTimeUTC: TXSDateTime; FsubmitTimeLocal: TXSDateTime; FtransactionType: string; FtransactionType_Specified: boolean; FtransactionStatus: string; FtransactionStatus_Specified: boolean; FresponseCode: Integer; FresponseReasonCode: Integer; FresponseReasonDescription: string; FresponseReasonDescription_Specified: boolean; FauthCode: string; FauthCode_Specified: boolean; FAVSResponse: string; FAVSResponse_Specified: boolean; FcardCodeResponse: string; FcardCodeResponse_Specified: boolean; FCAVVResponse: string; FCAVVResponse_Specified: boolean; FFDSFilterAction: string; FFDSFilterAction_Specified: boolean; FFDSFilters: ArrayOfFDSFilterType; FFDSFilters_Specified: boolean; Fbatch: BatchDetailsType; Fbatch_Specified: boolean; Forder: OrderExType; Forder_Specified: boolean; FrequestedAmount: TXSDecimal; FrequestedAmount_Specified: boolean; FauthAmount: TXSDecimal; FsettleAmount: TXSDecimal; Ftax: ExtendedAmountType; Ftax_Specified: boolean; Fshipping: ExtendedAmountType; Fshipping_Specified: boolean; Fduty: ExtendedAmountType; Fduty_Specified: boolean; FlineItems: Array_Of_LineItemType; FlineItems_Specified: boolean; FprepaidBalanceRemaining: TXSDecimal; FprepaidBalanceRemaining_Specified: boolean; FcurrencyCode: string; FcurrencyCode_Specified: boolean; FtaxExempt: Boolean; FtaxExempt_Specified: boolean; Fpayment: PaymentMaskedType; Fpayment_Specified: boolean; Fcustomer: CustomerDataType; Fcustomer_Specified: boolean; FbillTo: CustomerAddressType; FbillTo_Specified: boolean; FshipTo: NameAndAddressType; FshipTo_Specified: boolean; FrecurringBilling: Boolean; FrecurringBilling_Specified: boolean; FcustomerIP: string; FcustomerIP_Specified: boolean; procedure SettransId(Index: Integer; const Astring: string); function transId_Specified(Index: Integer): boolean; procedure SetrefTransId(Index: Integer; const Astring: string); function refTransId_Specified(Index: Integer): boolean; procedure SetsplitTenderId(Index: Integer; const AInt64: Int64); function splitTenderId_Specified(Index: Integer): boolean; procedure SettransactionType(Index: Integer; const Astring: string); function transactionType_Specified(Index: Integer): boolean; procedure SettransactionStatus(Index: Integer; const Astring: string); function transactionStatus_Specified(Index: Integer): boolean; procedure SetresponseReasonDescription(Index: Integer; const Astring: string); function responseReasonDescription_Specified(Index: Integer): boolean; procedure SetauthCode(Index: Integer; const Astring: string); function authCode_Specified(Index: Integer): boolean; procedure SetAVSResponse(Index: Integer; const Astring: string); function AVSResponse_Specified(Index: Integer): boolean; procedure SetcardCodeResponse(Index: Integer; const Astring: string); function cardCodeResponse_Specified(Index: Integer): boolean; procedure SetCAVVResponse(Index: Integer; const Astring: string); function CAVVResponse_Specified(Index: Integer): boolean; procedure SetFDSFilterAction(Index: Integer; const Astring: string); function FDSFilterAction_Specified(Index: Integer): boolean; procedure SetFDSFilters(Index: Integer; const AArrayOfFDSFilterType: ArrayOfFDSFilterType); function FDSFilters_Specified(Index: Integer): boolean; procedure Setbatch(Index: Integer; const ABatchDetailsType: BatchDetailsType); function batch_Specified(Index: Integer): boolean; procedure Setorder(Index: Integer; const AOrderExType: OrderExType); function order_Specified(Index: Integer): boolean; procedure SetrequestedAmount(Index: Integer; const ATXSDecimal: TXSDecimal); function requestedAmount_Specified(Index: Integer): boolean; procedure Settax(Index: Integer; const AExtendedAmountType: ExtendedAmountType); function tax_Specified(Index: Integer): boolean; procedure Setshipping(Index: Integer; const AExtendedAmountType: ExtendedAmountType); function shipping_Specified(Index: Integer): boolean; procedure Setduty(Index: Integer; const AExtendedAmountType: ExtendedAmountType); function duty_Specified(Index: Integer): boolean; procedure SetlineItems(Index: Integer; const AArray_Of_LineItemType: Array_Of_LineItemType); function lineItems_Specified(Index: Integer): boolean; procedure SetprepaidBalanceRemaining(Index: Integer; const ATXSDecimal: TXSDecimal); function prepaidBalanceRemaining_Specified(Index: Integer): boolean; procedure SetcurrencyCode(Index: Integer; const Astring: string); function currencyCode_Specified(Index: Integer): boolean; procedure SettaxExempt(Index: Integer; const ABoolean: Boolean); function taxExempt_Specified(Index: Integer): boolean; procedure Setpayment(Index: Integer; const APaymentMaskedType: PaymentMaskedType); function payment_Specified(Index: Integer): boolean; procedure Setcustomer(Index: Integer; const ACustomerDataType: CustomerDataType); function customer_Specified(Index: Integer): boolean; procedure SetbillTo(Index: Integer; const ACustomerAddressType: CustomerAddressType); function billTo_Specified(Index: Integer): boolean; procedure SetshipTo(Index: Integer; const ANameAndAddressType: NameAndAddressType); function shipTo_Specified(Index: Integer): boolean; procedure SetrecurringBilling(Index: Integer; const ABoolean: Boolean); function recurringBilling_Specified(Index: Integer): boolean; procedure SetcustomerIP(Index: Integer; const Astring: string); function customerIP_Specified(Index: Integer): boolean; public destructor Destroy; override; published property transId: string Index (IS_OPTN) read FtransId write SettransId stored transId_Specified; property refTransId: string Index (IS_OPTN) read FrefTransId write SetrefTransId stored refTransId_Specified; property splitTenderId: Int64 Index (IS_OPTN) read FsplitTenderId write SetsplitTenderId stored splitTenderId_Specified; property submitTimeUTC: TXSDateTime read FsubmitTimeUTC write FsubmitTimeUTC; property submitTimeLocal: TXSDateTime read FsubmitTimeLocal write FsubmitTimeLocal; property transactionType: string Index (IS_OPTN) read FtransactionType write SettransactionType stored transactionType_Specified; property transactionStatus: string Index (IS_OPTN) read FtransactionStatus write SettransactionStatus stored transactionStatus_Specified; property responseCode: Integer read FresponseCode write FresponseCode; property responseReasonCode: Integer read FresponseReasonCode write FresponseReasonCode; property responseReasonDescription: string Index (IS_OPTN) read FresponseReasonDescription write SetresponseReasonDescription stored responseReasonDescription_Specified; property authCode: string Index (IS_OPTN) read FauthCode write SetauthCode stored authCode_Specified; property AVSResponse: string Index (IS_OPTN) read FAVSResponse write SetAVSResponse stored AVSResponse_Specified; property cardCodeResponse: string Index (IS_OPTN) read FcardCodeResponse write SetcardCodeResponse stored cardCodeResponse_Specified; property CAVVResponse: string Index (IS_OPTN) read FCAVVResponse write SetCAVVResponse stored CAVVResponse_Specified; property FDSFilterAction: string Index (IS_OPTN) read FFDSFilterAction write SetFDSFilterAction stored FDSFilterAction_Specified; property FDSFilters: ArrayOfFDSFilterType Index (IS_OPTN) read FFDSFilters write SetFDSFilters stored FDSFilters_Specified; property batch: BatchDetailsType Index (IS_OPTN) read Fbatch write Setbatch stored batch_Specified; property order: OrderExType Index (IS_OPTN) read Forder write Setorder stored order_Specified; property requestedAmount: TXSDecimal Index (IS_OPTN) read FrequestedAmount write SetrequestedAmount stored requestedAmount_Specified; property authAmount: TXSDecimal read FauthAmount write FauthAmount; property settleAmount: TXSDecimal read FsettleAmount write FsettleAmount; property tax: ExtendedAmountType Index (IS_OPTN) read Ftax write Settax stored tax_Specified; property shipping: ExtendedAmountType Index (IS_OPTN) read Fshipping write Setshipping stored shipping_Specified; property duty: ExtendedAmountType Index (IS_OPTN) read Fduty write Setduty stored duty_Specified; property lineItems: Array_Of_LineItemType Index (IS_OPTN or IS_UNBD) read FlineItems write SetlineItems stored lineItems_Specified; property prepaidBalanceRemaining: TXSDecimal Index (IS_OPTN) read FprepaidBalanceRemaining write SetprepaidBalanceRemaining stored prepaidBalanceRemaining_Specified; property currencyCode: string Index (IS_OPTN) read FcurrencyCode write SetcurrencyCode stored currencyCode_Specified; property taxExempt: Boolean Index (IS_OPTN) read FtaxExempt write SettaxExempt stored taxExempt_Specified; property payment: PaymentMaskedType Index (IS_OPTN) read Fpayment write Setpayment stored payment_Specified; property customer: CustomerDataType Index (IS_OPTN) read Fcustomer write Setcustomer stored customer_Specified; property billTo: CustomerAddressType Index (IS_OPTN) read FbillTo write SetbillTo stored billTo_Specified; property shipTo: NameAndAddressType Index (IS_OPTN) read FshipTo write SetshipTo stored shipTo_Specified; property recurringBilling: Boolean Index (IS_OPTN) read FrecurringBilling write SetrecurringBilling stored recurringBilling_Specified; property customerIP: string Index (IS_OPTN) read FcustomerIP write SetcustomerIP stored customerIP_Specified; end; // ************************************************************************ // // XML : ProfileTransAmountType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // ProfileTransAmountType = class(TRemotable) private Famount: TXSDecimal; Ftax: ExtendedAmountType; Ftax_Specified: boolean; Fshipping: ExtendedAmountType; Fshipping_Specified: boolean; Fduty: ExtendedAmountType; Fduty_Specified: boolean; FlineItems: Array_Of_LineItemType; FlineItems_Specified: boolean; procedure Settax(Index: Integer; const AExtendedAmountType: ExtendedAmountType); function tax_Specified(Index: Integer): boolean; procedure Setshipping(Index: Integer; const AExtendedAmountType: ExtendedAmountType); function shipping_Specified(Index: Integer): boolean; procedure Setduty(Index: Integer; const AExtendedAmountType: ExtendedAmountType); function duty_Specified(Index: Integer): boolean; procedure SetlineItems(Index: Integer; const AArray_Of_LineItemType: Array_Of_LineItemType); function lineItems_Specified(Index: Integer): boolean; public destructor Destroy; override; published property amount: TXSDecimal read Famount write Famount; property tax: ExtendedAmountType Index (IS_OPTN) read Ftax write Settax stored tax_Specified; property shipping: ExtendedAmountType Index (IS_OPTN) read Fshipping write Setshipping stored shipping_Specified; property duty: ExtendedAmountType Index (IS_OPTN) read Fduty write Setduty stored duty_Specified; property lineItems: Array_Of_LineItemType Index (IS_OPTN or IS_UNBD) read FlineItems write SetlineItems stored lineItems_Specified; end; // ************************************************************************ // // XML : ProfileTransOrderType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // ProfileTransOrderType = class(ProfileTransAmountType) private FcustomerProfileId: Int64; FcustomerPaymentProfileId: Int64; FcustomerShippingAddressId: Int64; FcustomerShippingAddressId_Specified: boolean; Forder: OrderExType; Forder_Specified: boolean; FtaxExempt: Boolean; FtaxExempt_Specified: boolean; FrecurringBilling: Boolean; FrecurringBilling_Specified: boolean; FcardCode: string; FcardCode_Specified: boolean; FsplitTenderId: Int64; FsplitTenderId_Specified: boolean; procedure SetcustomerShippingAddressId(Index: Integer; const AInt64: Int64); function customerShippingAddressId_Specified(Index: Integer): boolean; procedure Setorder(Index: Integer; const AOrderExType: OrderExType); function order_Specified(Index: Integer): boolean; procedure SettaxExempt(Index: Integer; const ABoolean: Boolean); function taxExempt_Specified(Index: Integer): boolean; procedure SetrecurringBilling(Index: Integer; const ABoolean: Boolean); function recurringBilling_Specified(Index: Integer): boolean; procedure SetcardCode(Index: Integer; const Astring: string); function cardCode_Specified(Index: Integer): boolean; procedure SetsplitTenderId(Index: Integer; const AInt64: Int64); function splitTenderId_Specified(Index: Integer): boolean; public destructor Destroy; override; published property customerProfileId: Int64 read FcustomerProfileId write FcustomerProfileId; property customerPaymentProfileId: Int64 read FcustomerPaymentProfileId write FcustomerPaymentProfileId; property customerShippingAddressId: Int64 Index (IS_OPTN) read FcustomerShippingAddressId write SetcustomerShippingAddressId stored customerShippingAddressId_Specified; property order: OrderExType Index (IS_OPTN) read Forder write Setorder stored order_Specified; property taxExempt: Boolean Index (IS_OPTN) read FtaxExempt write SettaxExempt stored taxExempt_Specified; property recurringBilling: Boolean Index (IS_OPTN) read FrecurringBilling write SetrecurringBilling stored recurringBilling_Specified; property cardCode: string Index (IS_OPTN) read FcardCode write SetcardCode stored cardCode_Specified; property splitTenderId: Int64 Index (IS_OPTN) read FsplitTenderId write SetsplitTenderId stored splitTenderId_Specified; end; // ************************************************************************ // // XML : ProfileTransAuthOnlyType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // ProfileTransAuthOnlyType = class(ProfileTransOrderType) private published end; // ************************************************************************ // // XML : ProfileTransAuthCaptureType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // ProfileTransAuthCaptureType = class(ProfileTransOrderType) private published end; // ************************************************************************ // // XML : ProfileTransCaptureOnlyType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // ProfileTransCaptureOnlyType = class(ProfileTransOrderType) private FapprovalCode: string; FapprovalCode_Specified: boolean; procedure SetapprovalCode(Index: Integer; const Astring: string); function approvalCode_Specified(Index: Integer): boolean; published property approvalCode: string Index (IS_OPTN) read FapprovalCode write SetapprovalCode stored approvalCode_Specified; end; // ************************************************************************ // // XML : ProfileTransRefundType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // ProfileTransRefundType = class(ProfileTransAmountType) private FcustomerProfileId: Int64; FcustomerProfileId_Specified: boolean; FcustomerPaymentProfileId: Int64; FcustomerPaymentProfileId_Specified: boolean; FcustomerShippingAddressId: Int64; FcustomerShippingAddressId_Specified: boolean; FcreditCardNumberMasked: string; FcreditCardNumberMasked_Specified: boolean; FbankRoutingNumberMasked: string; FbankRoutingNumberMasked_Specified: boolean; FbankAccountNumberMasked: string; FbankAccountNumberMasked_Specified: boolean; Forder: OrderExType; Forder_Specified: boolean; FtransId: string; FtransId_Specified: boolean; procedure SetcustomerProfileId(Index: Integer; const AInt64: Int64); function customerProfileId_Specified(Index: Integer): boolean; procedure SetcustomerPaymentProfileId(Index: Integer; const AInt64: Int64); function customerPaymentProfileId_Specified(Index: Integer): boolean; procedure SetcustomerShippingAddressId(Index: Integer; const AInt64: Int64); function customerShippingAddressId_Specified(Index: Integer): boolean; procedure SetcreditCardNumberMasked(Index: Integer; const Astring: string); function creditCardNumberMasked_Specified(Index: Integer): boolean; procedure SetbankRoutingNumberMasked(Index: Integer; const Astring: string); function bankRoutingNumberMasked_Specified(Index: Integer): boolean; procedure SetbankAccountNumberMasked(Index: Integer; const Astring: string); function bankAccountNumberMasked_Specified(Index: Integer): boolean; procedure Setorder(Index: Integer; const AOrderExType: OrderExType); function order_Specified(Index: Integer): boolean; procedure SettransId(Index: Integer; const Astring: string); function transId_Specified(Index: Integer): boolean; public destructor Destroy; override; published property customerProfileId: Int64 Index (IS_OPTN) read FcustomerProfileId write SetcustomerProfileId stored customerProfileId_Specified; property customerPaymentProfileId: Int64 Index (IS_OPTN) read FcustomerPaymentProfileId write SetcustomerPaymentProfileId stored customerPaymentProfileId_Specified; property customerShippingAddressId: Int64 Index (IS_OPTN) read FcustomerShippingAddressId write SetcustomerShippingAddressId stored customerShippingAddressId_Specified; property creditCardNumberMasked: string Index (IS_OPTN) read FcreditCardNumberMasked write SetcreditCardNumberMasked stored creditCardNumberMasked_Specified; property bankRoutingNumberMasked: string Index (IS_OPTN) read FbankRoutingNumberMasked write SetbankRoutingNumberMasked stored bankRoutingNumberMasked_Specified; property bankAccountNumberMasked: string Index (IS_OPTN) read FbankAccountNumberMasked write SetbankAccountNumberMasked stored bankAccountNumberMasked_Specified; property order: OrderExType Index (IS_OPTN) read Forder write Setorder stored order_Specified; property transId: string Index (IS_OPTN) read FtransId write SettransId stored transId_Specified; end; // ************************************************************************ // // XML : ProfileTransPriorAuthCaptureType, global, // Namespace : https://api.authorize.net/soap/v1/ // ************************************************************************ // ProfileTransPriorAuthCaptureType = class(ProfileTransAmountType) private FcustomerProfileId: Int64; FcustomerProfileId_Specified: boolean; FcustomerPaymentProfileId: Int64; FcustomerPaymentProfileId_Specified: boolean; FcustomerShippingAddressId: Int64; FcustomerShippingAddressId_Specified: boolean; FtransId: string; FtransId_Specified: boolean; procedure SetcustomerProfileId(Index: Integer; const AInt64: Int64); function customerProfileId_Specified(Index: Integer): boolean; procedure SetcustomerPaymentProfileId(Index: Integer; const AInt64: Int64); function customerPaymentProfileId_Specified(Index: Integer): boolean; procedure SetcustomerShippingAddressId(Index: Integer; const AInt64: Int64); function customerShippingAddressId_Specified(Index: Integer): boolean; procedure SettransId(Index: Integer; const Astring: string); function transId_Specified(Index: Integer): boolean; published property customerProfileId: Int64 Index (IS_OPTN) read FcustomerProfileId write SetcustomerProfileId stored customerProfileId_Specified; property customerPaymentProfileId: Int64 Index (IS_OPTN) read FcustomerPaymentProfileId write SetcustomerPaymentProfileId stored customerPaymentProfileId_Specified; property customerShippingAddressId: Int64 Index (IS_OPTN) read FcustomerShippingAddressId write SetcustomerShippingAddressId stored customerShippingAddressId_Specified; property transId: string Index (IS_OPTN) read FtransId write SettransId stored transId_Specified; end; // ************************************************************************ // // Namespace : https://api.authorize.net/soap/v1/ // soapAction: https://api.authorize.net/soap/v1/%operationName% // transport : http://schemas.xmlsoap.org/soap/http // style : document // binding : ServiceSoap // service : Service // port : ServiceSoap // URL : https://api.authorize.net/soap/v1/Service.asmx // ************************************************************************ // ServiceSoap = interface(IInvokable) ['{14FA0016-3E08-DE31-674C-F45020FEB618}'] function IsAlive: ANetApiResponseType; stdcall; function AuthenticateTest(const merchantAuthentication: MerchantAuthenticationType): ANetApiResponseType; stdcall; function ARBCreateSubscription(const merchantAuthentication: MerchantAuthenticationType; const subscription: ARBSubscriptionType): ARBCreateSubscriptionResponseType; stdcall; function ARBUpdateSubscription(const merchantAuthentication: MerchantAuthenticationType; const subscriptionId: Int64; const subscription: ARBSubscriptionType): ARBUpdateSubscriptionResponseType; stdcall; function ARBCancelSubscription(const merchantAuthentication: MerchantAuthenticationType; const subscriptionId: Int64): ARBCancelSubscriptionResponseType; stdcall; function ARBGetSubscriptionStatus(const merchantAuthentication: MerchantAuthenticationType; const subscriptionId: Int64): ARBGetSubscriptionStatusResponseType; stdcall; function CreateCustomerProfile(const merchantAuthentication: MerchantAuthenticationType; const profile: CustomerProfileType; const validationMode: ValidationModeEnum): CreateCustomerProfileResponseType; stdcall; function CreateCustomerPaymentProfile(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64; const paymentProfile: CustomerPaymentProfileType; const validationMode: ValidationModeEnum): CreateCustomerPaymentProfileResponseType; stdcall; function CreateCustomerShippingAddress(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64; const address: CustomerAddressType): CreateCustomerShippingAddressResponseType; stdcall; function GetCustomerProfile(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64): GetCustomerProfileResponseType; stdcall; function GetCustomerPaymentProfile(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64; const customerPaymentProfileId: Int64): GetCustomerPaymentProfileResponseType; stdcall; function GetCustomerShippingAddress(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64; const customerAddressId: Int64): GetCustomerShippingAddressResponseType; stdcall; function UpdateCustomerProfile(const merchantAuthentication: MerchantAuthenticationType; const profile: CustomerProfileExType): UpdateCustomerProfileResponseType; stdcall; function UpdateCustomerPaymentProfile(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64; const paymentProfile: CustomerPaymentProfileExType; const validationMode: ValidationModeEnum): UpdateCustomerPaymentProfileResponseType; stdcall; function UpdateCustomerShippingAddress(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64; const address: CustomerAddressExType): UpdateCustomerShippingAddressResponseType; stdcall; function DeleteCustomerProfile(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64): DeleteCustomerProfileResponseType; stdcall; function DeleteCustomerPaymentProfile(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64; const customerPaymentProfileId: Int64): DeleteCustomerPaymentProfileResponseType; stdcall; function DeleteCustomerShippingAddress(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64; const customerAddressId: Int64): DeleteCustomerShippingAddressResponseType; stdcall; function CreateCustomerProfileTransaction(const merchantAuthentication: MerchantAuthenticationType; const transaction: ProfileTransactionType; const extraOptions: string): CreateCustomerProfileTransactionResponseType; stdcall; function ValidateCustomerPaymentProfile(const merchantAuthentication: MerchantAuthenticationType; const customerProfileId: Int64; const customerPaymentProfileId: Int64; const customerShippingAddressId: Int64; const cardCode: string; const validationMode: ValidationModeEnum ): ValidateCustomerPaymentProfileResponseType; stdcall; function GetCustomerProfileIds(const merchantAuthentication: MerchantAuthenticationType): GetCustomerProfileIdsResponseType; stdcall; function UpdateSplitTenderGroup(const merchantAuthentication: MerchantAuthenticationType; const splitTenderId: Int64; const splitTenderStatus: SplitTenderStatusEnum): UpdateSplitTenderGroupResponseType; stdcall; function GetTransactionDetails(const merchantAuthentication: MerchantAuthenticationType; const transId: string): GetTransactionDetailsResponseType; stdcall; function GetSettledBatchList(const merchantAuthentication: MerchantAuthenticationType; const request: GetSettledBatchListRequestType): GetSettledBatchListResponseType; stdcall; function GetTransactionList(const merchantAuthentication: MerchantAuthenticationType; const request: GetTransactionListRequestType): GetTransactionListResponseType; stdcall; end; function GetServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): ServiceSoap; implementation uses SysUtils; function GetServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): ServiceSoap; const defWSDL = 'https://api.authorize.net/soap/v1/Service.asmx?WSDL'; // defURL = 'https://apitest.authorize.net/soap/v1/Service.asmx'; defURL = 'https://api.authorize.net/soap/v1/Service.asmx'; defSvc = 'Service'; defPrt = 'ServiceSoap'; var RIO: THTTPRIO; begin Result := nil; if (Addr = '') then begin if UseWSDL then Addr := defWSDL else Addr := defURL; end; if HTTPRIO = nil then RIO := THTTPRIO.Create(nil) else RIO := HTTPRIO; try Result := (RIO as ServiceSoap); if UseWSDL then begin RIO.WSDLLocation := Addr; RIO.Service := defSvc; RIO.Port := defPrt; end else RIO.URL := Addr; finally if (Result = nil) and (HTTPRIO = nil) then RIO.Free; end; end; destructor ANetApiResponseType.Destroy; var I: Integer; begin for I := 0 to System.Length(Fmessages)-1 do SysUtils.FreeAndNil(Fmessages[I]); System.SetLength(Fmessages, 0); inherited Destroy; end; procedure ANetApiResponseType.Setmessages(Index: Integer; const AArrayOfMessagesTypeMessage: ArrayOfMessagesTypeMessage); begin Fmessages := AArrayOfMessagesTypeMessage; Fmessages_Specified := True; end; function ANetApiResponseType.messages_Specified(Index: Integer): boolean; begin Result := Fmessages_Specified; end; procedure MessagesTypeMessage.Setcode(Index: Integer; const Astring: string); begin Fcode := Astring; Fcode_Specified := True; end; function MessagesTypeMessage.code_Specified(Index: Integer): boolean; begin Result := Fcode_Specified; end; procedure MessagesTypeMessage.Settext(Index: Integer; const Astring: string); begin Ftext := Astring; Ftext_Specified := True; end; function MessagesTypeMessage.text_Specified(Index: Integer): boolean; begin Result := Ftext_Specified; end; procedure MerchantAuthenticationType.Setname_(Index: Integer; const Astring: string); begin Fname_ := Astring; Fname__Specified := True; end; function MerchantAuthenticationType.name__Specified(Index: Integer): boolean; begin Result := Fname__Specified; end; procedure MerchantAuthenticationType.SettransactionKey(Index: Integer; const Astring: string); begin FtransactionKey := Astring; FtransactionKey_Specified := True; end; function MerchantAuthenticationType.transactionKey_Specified(Index: Integer): boolean; begin Result := FtransactionKey_Specified; end; destructor ARBSubscriptionType.Destroy; begin SysUtils.FreeAndNil(FpaymentSchedule); SysUtils.FreeAndNil(Famount); SysUtils.FreeAndNil(FtrialAmount); SysUtils.FreeAndNil(Fpayment); SysUtils.FreeAndNil(Forder); SysUtils.FreeAndNil(Fcustomer); SysUtils.FreeAndNil(FbillTo); SysUtils.FreeAndNil(FshipTo); inherited Destroy; end; procedure ARBSubscriptionType.Setname_(Index: Integer; const Astring: string); begin Fname_ := Astring; Fname__Specified := True; end; function ARBSubscriptionType.name__Specified(Index: Integer): boolean; begin Result := Fname__Specified; end; procedure ARBSubscriptionType.SetpaymentSchedule(Index: Integer; const APaymentScheduleType: PaymentScheduleType); begin FpaymentSchedule := APaymentScheduleType; FpaymentSchedule_Specified := True; end; function ARBSubscriptionType.paymentSchedule_Specified(Index: Integer): boolean; begin Result := FpaymentSchedule_Specified; end; procedure ARBSubscriptionType.Setamount(Index: Integer; const ATXSDecimal: TXSDecimal); begin Famount := ATXSDecimal; Famount_Specified := True; end; function ARBSubscriptionType.amount_Specified(Index: Integer): boolean; begin Result := Famount_Specified; end; procedure ARBSubscriptionType.SettrialAmount(Index: Integer; const ATXSDecimal: TXSDecimal); begin FtrialAmount := ATXSDecimal; FtrialAmount_Specified := True; end; function ARBSubscriptionType.trialAmount_Specified(Index: Integer): boolean; begin Result := FtrialAmount_Specified; end; procedure ARBSubscriptionType.Setpayment(Index: Integer; const APaymentType: PaymentType); begin Fpayment := APaymentType; Fpayment_Specified := True; end; function ARBSubscriptionType.payment_Specified(Index: Integer): boolean; begin Result := Fpayment_Specified; end; procedure ARBSubscriptionType.Setorder(Index: Integer; const AOrderType: OrderType); begin Forder := AOrderType; Forder_Specified := True; end; function ARBSubscriptionType.order_Specified(Index: Integer): boolean; begin Result := Forder_Specified; end; procedure ARBSubscriptionType.Setcustomer(Index: Integer; const ACustomerType: CustomerType); begin Fcustomer := ACustomerType; Fcustomer_Specified := True; end; function ARBSubscriptionType.customer_Specified(Index: Integer): boolean; begin Result := Fcustomer_Specified; end; procedure ARBSubscriptionType.SetbillTo(Index: Integer; const ANameAndAddressType: NameAndAddressType); begin FbillTo := ANameAndAddressType; FbillTo_Specified := True; end; function ARBSubscriptionType.billTo_Specified(Index: Integer): boolean; begin Result := FbillTo_Specified; end; procedure ARBSubscriptionType.SetshipTo(Index: Integer; const ANameAndAddressType: NameAndAddressType); begin FshipTo := ANameAndAddressType; FshipTo_Specified := True; end; function ARBSubscriptionType.shipTo_Specified(Index: Integer): boolean; begin Result := FshipTo_Specified; end; destructor PaymentType.Destroy; begin SysUtils.FreeAndNil(FcreditCard); SysUtils.FreeAndNil(FbankAccount); inherited Destroy; end; procedure PaymentType.SetcreditCard(Index: Integer; const ACreditCardType: CreditCardType); begin FcreditCard := ACreditCardType; FcreditCard_Specified := True; end; function PaymentType.creditCard_Specified(Index: Integer): boolean; begin Result := FcreditCard_Specified; end; procedure PaymentType.SetbankAccount(Index: Integer; const ABankAccountType: BankAccountType); begin FbankAccount := ABankAccountType; FbankAccount_Specified := True; end; function PaymentType.bankAccount_Specified(Index: Integer): boolean; begin Result := FbankAccount_Specified; end; procedure OrderType.SetinvoiceNumber(Index: Integer; const Astring: string); begin FinvoiceNumber := Astring; FinvoiceNumber_Specified := True; end; function OrderType.invoiceNumber_Specified(Index: Integer): boolean; begin Result := FinvoiceNumber_Specified; end; procedure OrderType.Setdescription(Index: Integer; const Astring: string); begin Fdescription := Astring; Fdescription_Specified := True; end; function OrderType.description_Specified(Index: Integer): boolean; begin Result := Fdescription_Specified; end; procedure NameAndAddressType.SetfirstName(Index: Integer; const Astring: string); begin FfirstName := Astring; FfirstName_Specified := True; end; function NameAndAddressType.firstName_Specified(Index: Integer): boolean; begin Result := FfirstName_Specified; end; procedure NameAndAddressType.SetlastName(Index: Integer; const Astring: string); begin FlastName := Astring; FlastName_Specified := True; end; function NameAndAddressType.lastName_Specified(Index: Integer): boolean; begin Result := FlastName_Specified; end; procedure NameAndAddressType.Setcompany(Index: Integer; const Astring: string); begin Fcompany := Astring; Fcompany_Specified := True; end; function NameAndAddressType.company_Specified(Index: Integer): boolean; begin Result := Fcompany_Specified; end; procedure NameAndAddressType.Setaddress(Index: Integer; const Astring: string); begin Faddress := Astring; Faddress_Specified := True; end; function NameAndAddressType.address_Specified(Index: Integer): boolean; begin Result := Faddress_Specified; end; procedure NameAndAddressType.Setcity(Index: Integer; const Astring: string); begin Fcity := Astring; Fcity_Specified := True; end; function NameAndAddressType.city_Specified(Index: Integer): boolean; begin Result := Fcity_Specified; end; procedure NameAndAddressType.Setstate(Index: Integer; const Astring: string); begin Fstate := Astring; Fstate_Specified := True; end; function NameAndAddressType.state_Specified(Index: Integer): boolean; begin Result := Fstate_Specified; end; procedure NameAndAddressType.Setzip(Index: Integer; const Astring: string); begin Fzip := Astring; Fzip_Specified := True; end; function NameAndAddressType.zip_Specified(Index: Integer): boolean; begin Result := Fzip_Specified; end; procedure NameAndAddressType.Setcountry(Index: Integer; const Astring: string); begin Fcountry := Astring; Fcountry_Specified := True; end; function NameAndAddressType.country_Specified(Index: Integer): boolean; begin Result := Fcountry_Specified; end; destructor PaymentScheduleType.Destroy; begin SysUtils.FreeAndNil(Finterval); SysUtils.FreeAndNil(FstartDate); inherited Destroy; end; procedure PaymentScheduleType.Setinterval(Index: Integer; const APaymentScheduleTypeInterval: PaymentScheduleTypeInterval); begin Finterval := APaymentScheduleTypeInterval; Finterval_Specified := True; end; function PaymentScheduleType.interval_Specified(Index: Integer): boolean; begin Result := Finterval_Specified; end; procedure PaymentScheduleType.SetstartDate(Index: Integer; const ATXSDate: TXSDate); begin FstartDate := ATXSDate; FstartDate_Specified := True; end; function PaymentScheduleType.startDate_Specified(Index: Integer): boolean; begin Result := FstartDate_Specified; end; procedure PaymentScheduleType.SettotalOccurrences(Index: Integer; const ASmallInt: SmallInt); begin FtotalOccurrences := ASmallInt; FtotalOccurrences_Specified := True; end; function PaymentScheduleType.totalOccurrences_Specified(Index: Integer): boolean; begin Result := FtotalOccurrences_Specified; end; procedure PaymentScheduleType.SettrialOccurrences(Index: Integer; const ASmallInt: SmallInt); begin FtrialOccurrences := ASmallInt; FtrialOccurrences_Specified := True; end; function PaymentScheduleType.trialOccurrences_Specified(Index: Integer): boolean; begin Result := FtrialOccurrences_Specified; end; procedure CreditCardSimpleType.SetcardNumber(Index: Integer; const Astring: string); begin FcardNumber := Astring; FcardNumber_Specified := True; end; function CreditCardSimpleType.cardNumber_Specified(Index: Integer): boolean; begin Result := FcardNumber_Specified; end; procedure CreditCardSimpleType.SetexpirationDate(Index: Integer; const Astring: string); begin FexpirationDate := Astring; FexpirationDate_Specified := True; end; function CreditCardSimpleType.expirationDate_Specified(Index: Integer): boolean; begin Result := FexpirationDate_Specified; end; procedure CreditCardType.SetcardCode(Index: Integer; const Astring: string); begin FcardCode := Astring; FcardCode_Specified := True; end; function CreditCardType.cardCode_Specified(Index: Integer): boolean; begin Result := FcardCode_Specified; end; procedure BankAccountBaseType.SetaccountType(Index: Integer; const ABankAccountTypeEnum: BankAccountTypeEnum); begin FaccountType := ABankAccountTypeEnum; FaccountType_Specified := True; end; function BankAccountBaseType.accountType_Specified(Index: Integer): boolean; begin Result := FaccountType_Specified; end; procedure BankAccountBaseType.SetnameOnAccount(Index: Integer; const Astring: string); begin FnameOnAccount := Astring; FnameOnAccount_Specified := True; end; function BankAccountBaseType.nameOnAccount_Specified(Index: Integer): boolean; begin Result := FnameOnAccount_Specified; end; procedure BankAccountBaseType.SetecheckType(Index: Integer; const AEcheckTypeEnum: EcheckTypeEnum); begin FecheckType := AEcheckTypeEnum; FecheckType_Specified := True; end; function BankAccountBaseType.echeckType_Specified(Index: Integer): boolean; begin Result := FecheckType_Specified; end; procedure BankAccountBaseType.SetbankName(Index: Integer; const Astring: string); begin FbankName := Astring; FbankName_Specified := True; end; function BankAccountBaseType.bankName_Specified(Index: Integer): boolean; begin Result := FbankName_Specified; end; procedure BankAccountType.SetroutingNumber(Index: Integer; const Astring: string); begin FroutingNumber := Astring; FroutingNumber_Specified := True; end; function BankAccountType.routingNumber_Specified(Index: Integer): boolean; begin Result := FroutingNumber_Specified; end; procedure BankAccountType.SetaccountNumber(Index: Integer; const Astring: string); begin FaccountNumber := Astring; FaccountNumber_Specified := True; end; function BankAccountType.accountNumber_Specified(Index: Integer): boolean; begin Result := FaccountNumber_Specified; end; destructor CustomerType.Destroy; begin SysUtils.FreeAndNil(FdriversLicense); inherited Destroy; end; procedure CustomerType.Settype_(Index: Integer; const ACustomerTypeEnum: CustomerTypeEnum); begin Ftype_ := ACustomerTypeEnum; Ftype__Specified := True; end; function CustomerType.type__Specified(Index: Integer): boolean; begin Result := Ftype__Specified; end; procedure CustomerType.Setid(Index: Integer; const Astring: string); begin Fid := Astring; Fid_Specified := True; end; function CustomerType.id_Specified(Index: Integer): boolean; begin Result := Fid_Specified; end; procedure CustomerType.Setemail(Index: Integer; const Astring: string); begin Femail := Astring; Femail_Specified := True; end; function CustomerType.email_Specified(Index: Integer): boolean; begin Result := Femail_Specified; end; procedure CustomerType.SetphoneNumber(Index: Integer; const Astring: string); begin FphoneNumber := Astring; FphoneNumber_Specified := True; end; function CustomerType.phoneNumber_Specified(Index: Integer): boolean; begin Result := FphoneNumber_Specified; end; procedure CustomerType.SetfaxNumber(Index: Integer; const Astring: string); begin FfaxNumber := Astring; FfaxNumber_Specified := True; end; function CustomerType.faxNumber_Specified(Index: Integer): boolean; begin Result := FfaxNumber_Specified; end; procedure CustomerType.SetdriversLicense(Index: Integer; const ADriversLicenseType: DriversLicenseType); begin FdriversLicense := ADriversLicenseType; FdriversLicense_Specified := True; end; function CustomerType.driversLicense_Specified(Index: Integer): boolean; begin Result := FdriversLicense_Specified; end; procedure CustomerType.SettaxId(Index: Integer; const Astring: string); begin FtaxId := Astring; FtaxId_Specified := True; end; function CustomerType.taxId_Specified(Index: Integer): boolean; begin Result := FtaxId_Specified; end; procedure DriversLicenseBaseType.Setstate(Index: Integer; const Astring: string); begin Fstate := Astring; Fstate_Specified := True; end; function DriversLicenseBaseType.state_Specified(Index: Integer): boolean; begin Result := Fstate_Specified; end; procedure DriversLicenseType.Setnumber(Index: Integer; const Astring: string); begin Fnumber := Astring; Fnumber_Specified := True; end; function DriversLicenseType.number_Specified(Index: Integer): boolean; begin Result := Fnumber_Specified; end; procedure DriversLicenseType.SetdateOfBirth(Index: Integer; const Astring: string); begin FdateOfBirth := Astring; FdateOfBirth_Specified := True; end; function DriversLicenseType.dateOfBirth_Specified(Index: Integer): boolean; begin Result := FdateOfBirth_Specified; end; procedure CustomerProfileBaseType.SetmerchantCustomerId(Index: Integer; const Astring: string); begin FmerchantCustomerId := Astring; FmerchantCustomerId_Specified := True; end; function CustomerProfileBaseType.merchantCustomerId_Specified(Index: Integer): boolean; begin Result := FmerchantCustomerId_Specified; end; procedure CustomerProfileBaseType.Setdescription(Index: Integer; const Astring: string); begin Fdescription := Astring; Fdescription_Specified := True; end; function CustomerProfileBaseType.description_Specified(Index: Integer): boolean; begin Result := Fdescription_Specified; end; procedure CustomerProfileBaseType.Setemail(Index: Integer; const Astring: string); begin Femail := Astring; Femail_Specified := True; end; function CustomerProfileBaseType.email_Specified(Index: Integer): boolean; begin Result := Femail_Specified; end; destructor CustomerProfileType.Destroy; var I: Integer; begin for I := 0 to System.Length(FpaymentProfiles)-1 do SysUtils.FreeAndNil(FpaymentProfiles[I]); System.SetLength(FpaymentProfiles, 0); for I := 0 to System.Length(FshipToList)-1 do SysUtils.FreeAndNil(FshipToList[I]); System.SetLength(FshipToList, 0); inherited Destroy; end; procedure CustomerProfileType.SetpaymentProfiles(Index: Integer; const AArrayOfCustomerPaymentProfileType: ArrayOfCustomerPaymentProfileType); begin FpaymentProfiles := AArrayOfCustomerPaymentProfileType; FpaymentProfiles_Specified := True; end; function CustomerProfileType.paymentProfiles_Specified(Index: Integer): boolean; begin Result := FpaymentProfiles_Specified; end; procedure CustomerProfileType.SetshipToList(Index: Integer; const AArrayOfCustomerAddressType: ArrayOfCustomerAddressType); begin FshipToList := AArrayOfCustomerAddressType; FshipToList_Specified := True; end; function CustomerProfileType.shipToList_Specified(Index: Integer): boolean; begin Result := FshipToList_Specified; end; destructor CustomerPaymentProfileBaseType.Destroy; begin SysUtils.FreeAndNil(FbillTo); inherited Destroy; end; procedure CustomerPaymentProfileBaseType.SetcustomerType(Index: Integer; const ACustomerTypeEnum: CustomerTypeEnum); begin FcustomerType := ACustomerTypeEnum; FcustomerType_Specified := True; end; function CustomerPaymentProfileBaseType.customerType_Specified(Index: Integer): boolean; begin Result := FcustomerType_Specified; end; procedure CustomerPaymentProfileBaseType.SetbillTo(Index: Integer; const ACustomerAddressType: CustomerAddressType); begin FbillTo := ACustomerAddressType; FbillTo_Specified := True; end; function CustomerPaymentProfileBaseType.billTo_Specified(Index: Integer): boolean; begin Result := FbillTo_Specified; end; destructor CustomerPaymentProfileType.Destroy; begin SysUtils.FreeAndNil(Fpayment); SysUtils.FreeAndNil(FdriversLicense); inherited Destroy; end; procedure CustomerPaymentProfileType.Setpayment(Index: Integer; const APaymentType: PaymentType); begin Fpayment := APaymentType; Fpayment_Specified := True; end; function CustomerPaymentProfileType.payment_Specified(Index: Integer): boolean; begin Result := Fpayment_Specified; end; procedure CustomerPaymentProfileType.SetdriversLicense(Index: Integer; const ADriversLicenseType: DriversLicenseType); begin FdriversLicense := ADriversLicenseType; FdriversLicense_Specified := True; end; function CustomerPaymentProfileType.driversLicense_Specified(Index: Integer): boolean; begin Result := FdriversLicense_Specified; end; procedure CustomerPaymentProfileType.SettaxId(Index: Integer; const Astring: string); begin FtaxId := Astring; FtaxId_Specified := True; end; function CustomerPaymentProfileType.taxId_Specified(Index: Integer): boolean; begin Result := FtaxId_Specified; end; procedure CustomerAddressType.SetphoneNumber(Index: Integer; const Astring: string); begin FphoneNumber := Astring; FphoneNumber_Specified := True; end; function CustomerAddressType.phoneNumber_Specified(Index: Integer): boolean; begin Result := FphoneNumber_Specified; end; procedure CustomerAddressType.SetfaxNumber(Index: Integer; const Astring: string); begin FfaxNumber := Astring; FfaxNumber_Specified := True; end; function CustomerAddressType.faxNumber_Specified(Index: Integer): boolean; begin Result := FfaxNumber_Specified; end; procedure CreateCustomerProfileResponseType.SetcustomerPaymentProfileIdList(Index: Integer; const AArrayOfLong: ArrayOfLong); begin FcustomerPaymentProfileIdList := AArrayOfLong; FcustomerPaymentProfileIdList_Specified := True; end; function CreateCustomerProfileResponseType.customerPaymentProfileIdList_Specified(Index: Integer): boolean; begin Result := FcustomerPaymentProfileIdList_Specified; end; procedure CreateCustomerProfileResponseType.SetcustomerShippingAddressIdList(Index: Integer; const AArrayOfLong: ArrayOfLong); begin FcustomerShippingAddressIdList := AArrayOfLong; FcustomerShippingAddressIdList_Specified := True; end; function CreateCustomerProfileResponseType.customerShippingAddressIdList_Specified(Index: Integer): boolean; begin Result := FcustomerShippingAddressIdList_Specified; end; procedure CreateCustomerProfileResponseType.SetvalidationDirectResponseList(Index: Integer; const AArrayOfString: ArrayOfString); begin FvalidationDirectResponseList := AArrayOfString; FvalidationDirectResponseList_Specified := True; end; function CreateCustomerProfileResponseType.validationDirectResponseList_Specified(Index: Integer): boolean; begin Result := FvalidationDirectResponseList_Specified; end; procedure CreateCustomerPaymentProfileResponseType.SetvalidationDirectResponse(Index: Integer; const Astring: string); begin FvalidationDirectResponse := Astring; FvalidationDirectResponse_Specified := True; end; function CreateCustomerPaymentProfileResponseType.validationDirectResponse_Specified(Index: Integer): boolean; begin Result := FvalidationDirectResponse_Specified; end; destructor GetCustomerProfileResponseType.Destroy; begin SysUtils.FreeAndNil(Fprofile); inherited Destroy; end; procedure GetCustomerProfileResponseType.Setprofile(Index: Integer; const ACustomerProfileMaskedType: CustomerProfileMaskedType); begin Fprofile := ACustomerProfileMaskedType; Fprofile_Specified := True; end; function GetCustomerProfileResponseType.profile_Specified(Index: Integer): boolean; begin Result := Fprofile_Specified; end; destructor CustomerProfileMaskedType.Destroy; var I: Integer; begin for I := 0 to System.Length(FpaymentProfiles)-1 do SysUtils.FreeAndNil(FpaymentProfiles[I]); System.SetLength(FpaymentProfiles, 0); for I := 0 to System.Length(FshipToList)-1 do SysUtils.FreeAndNil(FshipToList[I]); System.SetLength(FshipToList, 0); inherited Destroy; end; procedure CustomerProfileMaskedType.SetpaymentProfiles(Index: Integer; const AArrayOfCustomerPaymentProfileMaskedType: ArrayOfCustomerPaymentProfileMaskedType); begin FpaymentProfiles := AArrayOfCustomerPaymentProfileMaskedType; FpaymentProfiles_Specified := True; end; function CustomerProfileMaskedType.paymentProfiles_Specified(Index: Integer): boolean; begin Result := FpaymentProfiles_Specified; end; procedure CustomerProfileMaskedType.SetshipToList(Index: Integer; const AArrayOfCustomerAddressExType: ArrayOfCustomerAddressExType); begin FshipToList := AArrayOfCustomerAddressExType; FshipToList_Specified := True; end; function CustomerProfileMaskedType.shipToList_Specified(Index: Integer): boolean; begin Result := FshipToList_Specified; end; destructor CustomerPaymentProfileMaskedType.Destroy; begin SysUtils.FreeAndNil(Fpayment); SysUtils.FreeAndNil(FdriversLicense); inherited Destroy; end; procedure CustomerPaymentProfileMaskedType.Setpayment(Index: Integer; const APaymentMaskedType: PaymentMaskedType); begin Fpayment := APaymentMaskedType; Fpayment_Specified := True; end; function CustomerPaymentProfileMaskedType.payment_Specified(Index: Integer): boolean; begin Result := Fpayment_Specified; end; procedure CustomerPaymentProfileMaskedType.SetdriversLicense(Index: Integer; const ADriversLicenseMaskedType: DriversLicenseMaskedType); begin FdriversLicense := ADriversLicenseMaskedType; FdriversLicense_Specified := True; end; function CustomerPaymentProfileMaskedType.driversLicense_Specified(Index: Integer): boolean; begin Result := FdriversLicense_Specified; end; procedure CustomerPaymentProfileMaskedType.SettaxId(Index: Integer; const Astring: string); begin FtaxId := Astring; FtaxId_Specified := True; end; function CustomerPaymentProfileMaskedType.taxId_Specified(Index: Integer): boolean; begin Result := FtaxId_Specified; end; destructor PaymentMaskedType.Destroy; begin SysUtils.FreeAndNil(FcreditCard); SysUtils.FreeAndNil(FbankAccount); inherited Destroy; end; procedure PaymentMaskedType.SetcreditCard(Index: Integer; const ACreditCardMaskedType: CreditCardMaskedType); begin FcreditCard := ACreditCardMaskedType; FcreditCard_Specified := True; end; function PaymentMaskedType.creditCard_Specified(Index: Integer): boolean; begin Result := FcreditCard_Specified; end; procedure PaymentMaskedType.SetbankAccount(Index: Integer; const ABankAccountMaskedType: BankAccountMaskedType); begin FbankAccount := ABankAccountMaskedType; FbankAccount_Specified := True; end; function PaymentMaskedType.bankAccount_Specified(Index: Integer): boolean; begin Result := FbankAccount_Specified; end; procedure DriversLicenseMaskedType.Setnumber(Index: Integer; const Astring: string); begin Fnumber := Astring; Fnumber_Specified := True; end; function DriversLicenseMaskedType.number_Specified(Index: Integer): boolean; begin Result := Fnumber_Specified; end; procedure DriversLicenseMaskedType.SetdateOfBirth(Index: Integer; const Astring: string); begin FdateOfBirth := Astring; FdateOfBirth_Specified := True; end; function DriversLicenseMaskedType.dateOfBirth_Specified(Index: Integer): boolean; begin Result := FdateOfBirth_Specified; end; procedure CreditCardMaskedType.SetcardNumber(Index: Integer; const Astring: string); begin FcardNumber := Astring; FcardNumber_Specified := True; end; function CreditCardMaskedType.cardNumber_Specified(Index: Integer): boolean; begin Result := FcardNumber_Specified; end; procedure CreditCardMaskedType.SetexpirationDate(Index: Integer; const Astring: string); begin FexpirationDate := Astring; FexpirationDate_Specified := True; end; function CreditCardMaskedType.expirationDate_Specified(Index: Integer): boolean; begin Result := FexpirationDate_Specified; end; procedure CreditCardMaskedType.SetcardType(Index: Integer; const Astring: string); begin FcardType := Astring; FcardType_Specified := True; end; function CreditCardMaskedType.cardType_Specified(Index: Integer): boolean; begin Result := FcardType_Specified; end; procedure BankAccountMaskedType.SetroutingNumber(Index: Integer; const Astring: string); begin FroutingNumber := Astring; FroutingNumber_Specified := True; end; function BankAccountMaskedType.routingNumber_Specified(Index: Integer): boolean; begin Result := FroutingNumber_Specified; end; procedure BankAccountMaskedType.SetaccountNumber(Index: Integer; const Astring: string); begin FaccountNumber := Astring; FaccountNumber_Specified := True; end; function BankAccountMaskedType.accountNumber_Specified(Index: Integer): boolean; begin Result := FaccountNumber_Specified; end; destructor GetCustomerPaymentProfileResponseType.Destroy; begin SysUtils.FreeAndNil(FpaymentProfile); inherited Destroy; end; procedure GetCustomerPaymentProfileResponseType.SetpaymentProfile(Index: Integer; const ACustomerPaymentProfileMaskedType: CustomerPaymentProfileMaskedType); begin FpaymentProfile := ACustomerPaymentProfileMaskedType; FpaymentProfile_Specified := True; end; function GetCustomerPaymentProfileResponseType.paymentProfile_Specified(Index: Integer): boolean; begin Result := FpaymentProfile_Specified; end; destructor GetCustomerShippingAddressResponseType.Destroy; begin SysUtils.FreeAndNil(Faddress); inherited Destroy; end; procedure GetCustomerShippingAddressResponseType.Setaddress(Index: Integer; const ACustomerAddressExType: CustomerAddressExType); begin Faddress := ACustomerAddressExType; Faddress_Specified := True; end; function GetCustomerShippingAddressResponseType.address_Specified(Index: Integer): boolean; begin Result := Faddress_Specified; end; procedure UpdateCustomerPaymentProfileResponseType.SetvalidationDirectResponse(Index: Integer; const Astring: string); begin FvalidationDirectResponse := Astring; FvalidationDirectResponse_Specified := True; end; function UpdateCustomerPaymentProfileResponseType.validationDirectResponse_Specified(Index: Integer): boolean; begin Result := FvalidationDirectResponse_Specified; end; destructor ProfileTransactionType.Destroy; begin SysUtils.FreeAndNil(FprofileTransVoid); SysUtils.FreeAndNil(FprofileTransRefund); SysUtils.FreeAndNil(FprofileTransAuthOnly); SysUtils.FreeAndNil(FprofileTransPriorAuthCapture); SysUtils.FreeAndNil(FprofileTransAuthCapture); SysUtils.FreeAndNil(FprofileTransCaptureOnly); inherited Destroy; end; procedure ProfileTransactionType.SetprofileTransVoid(Index: Integer; const AProfileTransVoidType: ProfileTransVoidType); begin FprofileTransVoid := AProfileTransVoidType; FprofileTransVoid_Specified := True; end; function ProfileTransactionType.profileTransVoid_Specified(Index: Integer): boolean; begin Result := FprofileTransVoid_Specified; end; procedure ProfileTransactionType.SetprofileTransRefund(Index: Integer; const AProfileTransRefundType: ProfileTransRefundType); begin FprofileTransRefund := AProfileTransRefundType; FprofileTransRefund_Specified := True; end; function ProfileTransactionType.profileTransRefund_Specified(Index: Integer): boolean; begin Result := FprofileTransRefund_Specified; end; procedure ProfileTransactionType.SetprofileTransAuthOnly(Index: Integer; const AProfileTransAuthOnlyType: ProfileTransAuthOnlyType); begin FprofileTransAuthOnly := AProfileTransAuthOnlyType; FprofileTransAuthOnly_Specified := True; end; function ProfileTransactionType.profileTransAuthOnly_Specified(Index: Integer): boolean; begin Result := FprofileTransAuthOnly_Specified; end; procedure ProfileTransactionType.SetprofileTransPriorAuthCapture(Index: Integer; const AProfileTransPriorAuthCaptureType: ProfileTransPriorAuthCaptureType); begin FprofileTransPriorAuthCapture := AProfileTransPriorAuthCaptureType; FprofileTransPriorAuthCapture_Specified := True; end; function ProfileTransactionType.profileTransPriorAuthCapture_Specified(Index: Integer): boolean; begin Result := FprofileTransPriorAuthCapture_Specified; end; procedure ProfileTransactionType.SetprofileTransAuthCapture(Index: Integer; const AProfileTransAuthCaptureType: ProfileTransAuthCaptureType); begin FprofileTransAuthCapture := AProfileTransAuthCaptureType; FprofileTransAuthCapture_Specified := True; end; function ProfileTransactionType.profileTransAuthCapture_Specified(Index: Integer): boolean; begin Result := FprofileTransAuthCapture_Specified; end; procedure ProfileTransactionType.SetprofileTransCaptureOnly(Index: Integer; const AProfileTransCaptureOnlyType: ProfileTransCaptureOnlyType); begin FprofileTransCaptureOnly := AProfileTransCaptureOnlyType; FprofileTransCaptureOnly_Specified := True; end; function ProfileTransactionType.profileTransCaptureOnly_Specified(Index: Integer): boolean; begin Result := FprofileTransCaptureOnly_Specified; end; procedure ProfileTransVoidType.SetcustomerProfileId(Index: Integer; const AInt64: Int64); begin FcustomerProfileId := AInt64; FcustomerProfileId_Specified := True; end; function ProfileTransVoidType.customerProfileId_Specified(Index: Integer): boolean; begin Result := FcustomerProfileId_Specified; end; procedure ProfileTransVoidType.SetcustomerPaymentProfileId(Index: Integer; const AInt64: Int64); begin FcustomerPaymentProfileId := AInt64; FcustomerPaymentProfileId_Specified := True; end; function ProfileTransVoidType.customerPaymentProfileId_Specified(Index: Integer): boolean; begin Result := FcustomerPaymentProfileId_Specified; end; procedure ProfileTransVoidType.SetcustomerShippingAddressId(Index: Integer; const AInt64: Int64); begin FcustomerShippingAddressId := AInt64; FcustomerShippingAddressId_Specified := True; end; function ProfileTransVoidType.customerShippingAddressId_Specified(Index: Integer): boolean; begin Result := FcustomerShippingAddressId_Specified; end; procedure ProfileTransVoidType.SettransId(Index: Integer; const Astring: string); begin FtransId := Astring; FtransId_Specified := True; end; function ProfileTransVoidType.transId_Specified(Index: Integer): boolean; begin Result := FtransId_Specified; end; procedure OrderExType.SetpurchaseOrderNumber(Index: Integer; const Astring: string); begin FpurchaseOrderNumber := Astring; FpurchaseOrderNumber_Specified := True; end; function OrderExType.purchaseOrderNumber_Specified(Index: Integer): boolean; begin Result := FpurchaseOrderNumber_Specified; end; destructor ExtendedAmountType.Destroy; begin SysUtils.FreeAndNil(Famount); inherited Destroy; end; procedure ExtendedAmountType.Setname_(Index: Integer; const Astring: string); begin Fname_ := Astring; Fname__Specified := True; end; function ExtendedAmountType.name__Specified(Index: Integer): boolean; begin Result := Fname__Specified; end; procedure ExtendedAmountType.Setdescription(Index: Integer; const Astring: string); begin Fdescription := Astring; Fdescription_Specified := True; end; function ExtendedAmountType.description_Specified(Index: Integer): boolean; begin Result := Fdescription_Specified; end; destructor LineItemType.Destroy; begin SysUtils.FreeAndNil(Fquantity); SysUtils.FreeAndNil(FunitPrice); inherited Destroy; end; procedure LineItemType.SetitemId(Index: Integer; const Astring: string); begin FitemId := Astring; FitemId_Specified := True; end; function LineItemType.itemId_Specified(Index: Integer): boolean; begin Result := FitemId_Specified; end; procedure LineItemType.Setname_(Index: Integer; const Astring: string); begin Fname_ := Astring; Fname__Specified := True; end; function LineItemType.name__Specified(Index: Integer): boolean; begin Result := Fname__Specified; end; procedure LineItemType.Setdescription(Index: Integer; const Astring: string); begin Fdescription := Astring; Fdescription_Specified := True; end; function LineItemType.description_Specified(Index: Integer): boolean; begin Result := Fdescription_Specified; end; procedure LineItemType.Settaxable(Index: Integer; const ABoolean: Boolean); begin Ftaxable := ABoolean; Ftaxable_Specified := True; end; function LineItemType.taxable_Specified(Index: Integer): boolean; begin Result := Ftaxable_Specified; end; procedure CreateCustomerProfileTransactionResponseType.SetdirectResponse(Index: Integer; const Astring: string); begin FdirectResponse := Astring; FdirectResponse_Specified := True; end; function CreateCustomerProfileTransactionResponseType.directResponse_Specified(Index: Integer): boolean; begin Result := FdirectResponse_Specified; end; procedure ValidateCustomerPaymentProfileResponseType.SetdirectResponse(Index: Integer; const Astring: string); begin FdirectResponse := Astring; FdirectResponse_Specified := True; end; function ValidateCustomerPaymentProfileResponseType.directResponse_Specified(Index: Integer): boolean; begin Result := FdirectResponse_Specified; end; procedure GetCustomerProfileIdsResponseType.Setids(Index: Integer; const AArrayOfLong: ArrayOfLong); begin Fids := AArrayOfLong; Fids_Specified := True; end; function GetCustomerProfileIdsResponseType.ids_Specified(Index: Integer): boolean; begin Result := Fids_Specified; end; destructor GetTransactionDetailsResponseType.Destroy; begin SysUtils.FreeAndNil(Ftransaction); inherited Destroy; end; procedure GetTransactionDetailsResponseType.Settransaction(Index: Integer; const ATransactionDetailsType: TransactionDetailsType); begin Ftransaction := ATransactionDetailsType; Ftransaction_Specified := True; end; function GetTransactionDetailsResponseType.transaction_Specified(Index: Integer): boolean; begin Result := Ftransaction_Specified; end; destructor CustomerDataType.Destroy; begin SysUtils.FreeAndNil(FdriversLicense); inherited Destroy; end; procedure CustomerDataType.Settype_(Index: Integer; const ACustomerTypeEnum: CustomerTypeEnum); begin Ftype_ := ACustomerTypeEnum; Ftype__Specified := True; end; function CustomerDataType.type__Specified(Index: Integer): boolean; begin Result := Ftype__Specified; end; procedure CustomerDataType.Setid(Index: Integer; const Astring: string); begin Fid := Astring; Fid_Specified := True; end; function CustomerDataType.id_Specified(Index: Integer): boolean; begin Result := Fid_Specified; end; procedure CustomerDataType.Setemail(Index: Integer; const Astring: string); begin Femail := Astring; Femail_Specified := True; end; function CustomerDataType.email_Specified(Index: Integer): boolean; begin Result := Femail_Specified; end; procedure CustomerDataType.SetdriversLicense(Index: Integer; const ADriversLicenseType: DriversLicenseType); begin FdriversLicense := ADriversLicenseType; FdriversLicense_Specified := True; end; function CustomerDataType.driversLicense_Specified(Index: Integer): boolean; begin Result := FdriversLicense_Specified; end; procedure CustomerDataType.SettaxId(Index: Integer; const Astring: string); begin FtaxId := Astring; FtaxId_Specified := True; end; function CustomerDataType.taxId_Specified(Index: Integer): boolean; begin Result := FtaxId_Specified; end; procedure FDSFilterType.Setname_(Index: Integer; const Astring: string); begin Fname_ := Astring; Fname__Specified := True; end; function FDSFilterType.name__Specified(Index: Integer): boolean; begin Result := Fname__Specified; end; procedure FDSFilterType.Setaction(Index: Integer; const Astring: string); begin Faction := Astring; Faction_Specified := True; end; function FDSFilterType.action_Specified(Index: Integer): boolean; begin Result := Faction_Specified; end; destructor BatchDetailsType.Destroy; var I: Integer; begin for I := 0 to System.Length(Fstatistics)-1 do SysUtils.FreeAndNil(Fstatistics[I]); System.SetLength(Fstatistics, 0); SysUtils.FreeAndNil(FsettlementTimeUTC); SysUtils.FreeAndNil(FsettlementTimeLocal); inherited Destroy; end; procedure BatchDetailsType.SetbatchId(Index: Integer; const Astring: string); begin FbatchId := Astring; FbatchId_Specified := True; end; function BatchDetailsType.batchId_Specified(Index: Integer): boolean; begin Result := FbatchId_Specified; end; procedure BatchDetailsType.SetsettlementTimeUTC(Index: Integer; const ATXSDateTime: TXSDateTime); begin FsettlementTimeUTC := ATXSDateTime; FsettlementTimeUTC_Specified := True; end; function BatchDetailsType.settlementTimeUTC_Specified(Index: Integer): boolean; begin Result := FsettlementTimeUTC_Specified; end; procedure BatchDetailsType.SetsettlementTimeLocal(Index: Integer; const ATXSDateTime: TXSDateTime); begin FsettlementTimeLocal := ATXSDateTime; FsettlementTimeLocal_Specified := True; end; function BatchDetailsType.settlementTimeLocal_Specified(Index: Integer): boolean; begin Result := FsettlementTimeLocal_Specified; end; procedure BatchDetailsType.SetsettlementState(Index: Integer; const Astring: string); begin FsettlementState := Astring; FsettlementState_Specified := True; end; function BatchDetailsType.settlementState_Specified(Index: Integer): boolean; begin Result := FsettlementState_Specified; end; procedure BatchDetailsType.SetpaymentMethod(Index: Integer; const Astring: string); begin FpaymentMethod := Astring; FpaymentMethod_Specified := True; end; function BatchDetailsType.paymentMethod_Specified(Index: Integer): boolean; begin Result := FpaymentMethod_Specified; end; procedure BatchDetailsType.Setstatistics(Index: Integer; const AArrayOfBatchStatisticType: ArrayOfBatchStatisticType); begin Fstatistics := AArrayOfBatchStatisticType; Fstatistics_Specified := True; end; function BatchDetailsType.statistics_Specified(Index: Integer): boolean; begin Result := Fstatistics_Specified; end; destructor BatchStatisticType.Destroy; begin SysUtils.FreeAndNil(FchargeAmount); SysUtils.FreeAndNil(FrefundAmount); SysUtils.FreeAndNil(FreturnedItemAmount); SysUtils.FreeAndNil(FchargebackAmount); SysUtils.FreeAndNil(FchargeChargeBackAmount); SysUtils.FreeAndNil(FrefundChargeBackAmount); SysUtils.FreeAndNil(FchargeReturnedItemsAmount); SysUtils.FreeAndNil(FrefundReturnedItemsAmount); inherited Destroy; end; procedure BatchStatisticType.SetaccountType(Index: Integer; const Astring: string); begin FaccountType := Astring; FaccountType_Specified := True; end; function BatchStatisticType.accountType_Specified(Index: Integer): boolean; begin Result := FaccountType_Specified; end; procedure BatchStatisticType.SetcurrencyCode(Index: Integer; const Astring: string); begin FcurrencyCode := Astring; FcurrencyCode_Specified := True; end; function BatchStatisticType.currencyCode_Specified(Index: Integer): boolean; begin Result := FcurrencyCode_Specified; end; procedure BatchStatisticType.SetreturnedItemAmount(Index: Integer; const ATXSDecimal: TXSDecimal); begin FreturnedItemAmount := ATXSDecimal; FreturnedItemAmount_Specified := True; end; function BatchStatisticType.returnedItemAmount_Specified(Index: Integer): boolean; begin Result := FreturnedItemAmount_Specified; end; procedure BatchStatisticType.SetreturnedItemCount(Index: Integer; const AInteger: Integer); begin FreturnedItemCount := AInteger; FreturnedItemCount_Specified := True; end; function BatchStatisticType.returnedItemCount_Specified(Index: Integer): boolean; begin Result := FreturnedItemCount_Specified; end; procedure BatchStatisticType.SetchargebackAmount(Index: Integer; const ATXSDecimal: TXSDecimal); begin FchargebackAmount := ATXSDecimal; FchargebackAmount_Specified := True; end; function BatchStatisticType.chargebackAmount_Specified(Index: Integer): boolean; begin Result := FchargebackAmount_Specified; end; procedure BatchStatisticType.SetchargebackCount(Index: Integer; const AInteger: Integer); begin FchargebackCount := AInteger; FchargebackCount_Specified := True; end; function BatchStatisticType.chargebackCount_Specified(Index: Integer): boolean; begin Result := FchargebackCount_Specified; end; procedure BatchStatisticType.SetcorrectionNoticeCount(Index: Integer; const AInteger: Integer); begin FcorrectionNoticeCount := AInteger; FcorrectionNoticeCount_Specified := True; end; function BatchStatisticType.correctionNoticeCount_Specified(Index: Integer): boolean; begin Result := FcorrectionNoticeCount_Specified; end; procedure BatchStatisticType.SetchargeChargeBackAmount(Index: Integer; const ATXSDecimal: TXSDecimal); begin FchargeChargeBackAmount := ATXSDecimal; FchargeChargeBackAmount_Specified := True; end; function BatchStatisticType.chargeChargeBackAmount_Specified(Index: Integer): boolean; begin Result := FchargeChargeBackAmount_Specified; end; procedure BatchStatisticType.SetchargeChargeBackCount(Index: Integer; const AInteger: Integer); begin FchargeChargeBackCount := AInteger; FchargeChargeBackCount_Specified := True; end; function BatchStatisticType.chargeChargeBackCount_Specified(Index: Integer): boolean; begin Result := FchargeChargeBackCount_Specified; end; procedure BatchStatisticType.SetrefundChargeBackAmount(Index: Integer; const ATXSDecimal: TXSDecimal); begin FrefundChargeBackAmount := ATXSDecimal; FrefundChargeBackAmount_Specified := True; end; function BatchStatisticType.refundChargeBackAmount_Specified(Index: Integer): boolean; begin Result := FrefundChargeBackAmount_Specified; end; procedure BatchStatisticType.SetrefundChargeBackCount(Index: Integer; const AInteger: Integer); begin FrefundChargeBackCount := AInteger; FrefundChargeBackCount_Specified := True; end; function BatchStatisticType.refundChargeBackCount_Specified(Index: Integer): boolean; begin Result := FrefundChargeBackCount_Specified; end; procedure BatchStatisticType.SetchargeReturnedItemsAmount(Index: Integer; const ATXSDecimal: TXSDecimal); begin FchargeReturnedItemsAmount := ATXSDecimal; FchargeReturnedItemsAmount_Specified := True; end; function BatchStatisticType.chargeReturnedItemsAmount_Specified(Index: Integer): boolean; begin Result := FchargeReturnedItemsAmount_Specified; end; procedure BatchStatisticType.SetchargeReturnedItemsCount(Index: Integer; const AInteger: Integer); begin FchargeReturnedItemsCount := AInteger; FchargeReturnedItemsCount_Specified := True; end; function BatchStatisticType.chargeReturnedItemsCount_Specified(Index: Integer): boolean; begin Result := FchargeReturnedItemsCount_Specified; end; procedure BatchStatisticType.SetrefundReturnedItemsAmount(Index: Integer; const ATXSDecimal: TXSDecimal); begin FrefundReturnedItemsAmount := ATXSDecimal; FrefundReturnedItemsAmount_Specified := True; end; function BatchStatisticType.refundReturnedItemsAmount_Specified(Index: Integer): boolean; begin Result := FrefundReturnedItemsAmount_Specified; end; procedure BatchStatisticType.SetrefundReturnedItemsCount(Index: Integer; const AInteger: Integer); begin FrefundReturnedItemsCount := AInteger; FrefundReturnedItemsCount_Specified := True; end; function BatchStatisticType.refundReturnedItemsCount_Specified(Index: Integer): boolean; begin Result := FrefundReturnedItemsCount_Specified; end; destructor GetSettledBatchListRequestType.Destroy; begin SysUtils.FreeAndNil(FfirstSettlementDate); SysUtils.FreeAndNil(FlastSettlementDate); inherited Destroy; end; procedure GetSettledBatchListRequestType.SetincludeStatistics(Index: Integer; const ABoolean: Boolean); begin FincludeStatistics := ABoolean; FincludeStatistics_Specified := True; end; function GetSettledBatchListRequestType.includeStatistics_Specified(Index: Integer): boolean; begin Result := FincludeStatistics_Specified; end; procedure GetSettledBatchListRequestType.SetfirstSettlementDate(Index: Integer; const ATXSDateTime: TXSDateTime); begin FfirstSettlementDate := ATXSDateTime; FfirstSettlementDate_Specified := True; end; function GetSettledBatchListRequestType.firstSettlementDate_Specified(Index: Integer): boolean; begin Result := FfirstSettlementDate_Specified; end; procedure GetSettledBatchListRequestType.SetlastSettlementDate(Index: Integer; const ATXSDateTime: TXSDateTime); begin FlastSettlementDate := ATXSDateTime; FlastSettlementDate_Specified := True; end; function GetSettledBatchListRequestType.lastSettlementDate_Specified(Index: Integer): boolean; begin Result := FlastSettlementDate_Specified; end; destructor GetSettledBatchListResponseType.Destroy; var I: Integer; begin for I := 0 to System.Length(FbatchList)-1 do SysUtils.FreeAndNil(FbatchList[I]); System.SetLength(FbatchList, 0); inherited Destroy; end; procedure GetSettledBatchListResponseType.SetbatchList(Index: Integer; const AArrayOfBatchDetailsType: ArrayOfBatchDetailsType); begin FbatchList := AArrayOfBatchDetailsType; FbatchList_Specified := True; end; function GetSettledBatchListResponseType.batchList_Specified(Index: Integer): boolean; begin Result := FbatchList_Specified; end; procedure GetTransactionListRequestType.SetbatchId(Index: Integer; const Astring: string); begin FbatchId := Astring; FbatchId_Specified := True; end; function GetTransactionListRequestType.batchId_Specified(Index: Integer): boolean; begin Result := FbatchId_Specified; end; destructor GetTransactionListResponseType.Destroy; var I: Integer; begin for I := 0 to System.Length(Ftransactions)-1 do SysUtils.FreeAndNil(Ftransactions[I]); System.SetLength(Ftransactions, 0); inherited Destroy; end; procedure GetTransactionListResponseType.Settransactions(Index: Integer; const AArrayOfTransactionSummaryType: ArrayOfTransactionSummaryType); begin Ftransactions := AArrayOfTransactionSummaryType; Ftransactions_Specified := True; end; function GetTransactionListResponseType.transactions_Specified(Index: Integer): boolean; begin Result := Ftransactions_Specified; end; destructor TransactionSummaryType.Destroy; begin SysUtils.FreeAndNil(FsubmitTimeUTC); SysUtils.FreeAndNil(FsubmitTimeLocal); SysUtils.FreeAndNil(FsettleAmount); inherited Destroy; end; procedure TransactionSummaryType.SettransId(Index: Integer; const Astring: string); begin FtransId := Astring; FtransId_Specified := True; end; function TransactionSummaryType.transId_Specified(Index: Integer): boolean; begin Result := FtransId_Specified; end; procedure TransactionSummaryType.SettransactionStatus(Index: Integer; const Astring: string); begin FtransactionStatus := Astring; FtransactionStatus_Specified := True; end; function TransactionSummaryType.transactionStatus_Specified(Index: Integer): boolean; begin Result := FtransactionStatus_Specified; end; procedure TransactionSummaryType.SetinvoiceNumber(Index: Integer; const Astring: string); begin FinvoiceNumber := Astring; FinvoiceNumber_Specified := True; end; function TransactionSummaryType.invoiceNumber_Specified(Index: Integer): boolean; begin Result := FinvoiceNumber_Specified; end; procedure TransactionSummaryType.SetfirstName(Index: Integer; const Astring: string); begin FfirstName := Astring; FfirstName_Specified := True; end; function TransactionSummaryType.firstName_Specified(Index: Integer): boolean; begin Result := FfirstName_Specified; end; procedure TransactionSummaryType.SetlastName(Index: Integer; const Astring: string); begin FlastName := Astring; FlastName_Specified := True; end; function TransactionSummaryType.lastName_Specified(Index: Integer): boolean; begin Result := FlastName_Specified; end; procedure TransactionSummaryType.SetaccountType(Index: Integer; const Astring: string); begin FaccountType := Astring; FaccountType_Specified := True; end; function TransactionSummaryType.accountType_Specified(Index: Integer): boolean; begin Result := FaccountType_Specified; end; procedure TransactionSummaryType.SetaccountNumber(Index: Integer; const Astring: string); begin FaccountNumber := Astring; FaccountNumber_Specified := True; end; function TransactionSummaryType.accountNumber_Specified(Index: Integer): boolean; begin Result := FaccountNumber_Specified; end; destructor TransactionDetailsType.Destroy; var I: Integer; begin for I := 0 to System.Length(FFDSFilters)-1 do SysUtils.FreeAndNil(FFDSFilters[I]); System.SetLength(FFDSFilters, 0); for I := 0 to System.Length(FlineItems)-1 do SysUtils.FreeAndNil(FlineItems[I]); System.SetLength(FlineItems, 0); SysUtils.FreeAndNil(FsubmitTimeUTC); SysUtils.FreeAndNil(FsubmitTimeLocal); SysUtils.FreeAndNil(Fbatch); SysUtils.FreeAndNil(Forder); SysUtils.FreeAndNil(FrequestedAmount); SysUtils.FreeAndNil(FauthAmount); SysUtils.FreeAndNil(FsettleAmount); SysUtils.FreeAndNil(Ftax); SysUtils.FreeAndNil(Fshipping); SysUtils.FreeAndNil(Fduty); SysUtils.FreeAndNil(FprepaidBalanceRemaining); SysUtils.FreeAndNil(Fpayment); SysUtils.FreeAndNil(Fcustomer); SysUtils.FreeAndNil(FbillTo); SysUtils.FreeAndNil(FshipTo); inherited Destroy; end; procedure TransactionDetailsType.SettransId(Index: Integer; const Astring: string); begin FtransId := Astring; FtransId_Specified := True; end; function TransactionDetailsType.transId_Specified(Index: Integer): boolean; begin Result := FtransId_Specified; end; procedure TransactionDetailsType.SetrefTransId(Index: Integer; const Astring: string); begin FrefTransId := Astring; FrefTransId_Specified := True; end; function TransactionDetailsType.refTransId_Specified(Index: Integer): boolean; begin Result := FrefTransId_Specified; end; procedure TransactionDetailsType.SetsplitTenderId(Index: Integer; const AInt64: Int64); begin FsplitTenderId := AInt64; FsplitTenderId_Specified := True; end; function TransactionDetailsType.splitTenderId_Specified(Index: Integer): boolean; begin Result := FsplitTenderId_Specified; end; procedure TransactionDetailsType.SettransactionType(Index: Integer; const Astring: string); begin FtransactionType := Astring; FtransactionType_Specified := True; end; function TransactionDetailsType.transactionType_Specified(Index: Integer): boolean; begin Result := FtransactionType_Specified; end; procedure TransactionDetailsType.SettransactionStatus(Index: Integer; const Astring: string); begin FtransactionStatus := Astring; FtransactionStatus_Specified := True; end; function TransactionDetailsType.transactionStatus_Specified(Index: Integer): boolean; begin Result := FtransactionStatus_Specified; end; procedure TransactionDetailsType.SetresponseReasonDescription(Index: Integer; const Astring: string); begin FresponseReasonDescription := Astring; FresponseReasonDescription_Specified := True; end; function TransactionDetailsType.responseReasonDescription_Specified(Index: Integer): boolean; begin Result := FresponseReasonDescription_Specified; end; procedure TransactionDetailsType.SetauthCode(Index: Integer; const Astring: string); begin FauthCode := Astring; FauthCode_Specified := True; end; function TransactionDetailsType.authCode_Specified(Index: Integer): boolean; begin Result := FauthCode_Specified; end; procedure TransactionDetailsType.SetAVSResponse(Index: Integer; const Astring: string); begin FAVSResponse := Astring; FAVSResponse_Specified := True; end; function TransactionDetailsType.AVSResponse_Specified(Index: Integer): boolean; begin Result := FAVSResponse_Specified; end; procedure TransactionDetailsType.SetcardCodeResponse(Index: Integer; const Astring: string); begin FcardCodeResponse := Astring; FcardCodeResponse_Specified := True; end; function TransactionDetailsType.cardCodeResponse_Specified(Index: Integer): boolean; begin Result := FcardCodeResponse_Specified; end; procedure TransactionDetailsType.SetCAVVResponse(Index: Integer; const Astring: string); begin FCAVVResponse := Astring; FCAVVResponse_Specified := True; end; function TransactionDetailsType.CAVVResponse_Specified(Index: Integer): boolean; begin Result := FCAVVResponse_Specified; end; procedure TransactionDetailsType.SetFDSFilterAction(Index: Integer; const Astring: string); begin FFDSFilterAction := Astring; FFDSFilterAction_Specified := True; end; function TransactionDetailsType.FDSFilterAction_Specified(Index: Integer): boolean; begin Result := FFDSFilterAction_Specified; end; procedure TransactionDetailsType.SetFDSFilters(Index: Integer; const AArrayOfFDSFilterType: ArrayOfFDSFilterType); begin FFDSFilters := AArrayOfFDSFilterType; FFDSFilters_Specified := True; end; function TransactionDetailsType.FDSFilters_Specified(Index: Integer): boolean; begin Result := FFDSFilters_Specified; end; procedure TransactionDetailsType.Setbatch(Index: Integer; const ABatchDetailsType: BatchDetailsType); begin Fbatch := ABatchDetailsType; Fbatch_Specified := True; end; function TransactionDetailsType.batch_Specified(Index: Integer): boolean; begin Result := Fbatch_Specified; end; procedure TransactionDetailsType.Setorder(Index: Integer; const AOrderExType: OrderExType); begin Forder := AOrderExType; Forder_Specified := True; end; function TransactionDetailsType.order_Specified(Index: Integer): boolean; begin Result := Forder_Specified; end; procedure TransactionDetailsType.SetrequestedAmount(Index: Integer; const ATXSDecimal: TXSDecimal); begin FrequestedAmount := ATXSDecimal; FrequestedAmount_Specified := True; end; function TransactionDetailsType.requestedAmount_Specified(Index: Integer): boolean; begin Result := FrequestedAmount_Specified; end; procedure TransactionDetailsType.Settax(Index: Integer; const AExtendedAmountType: ExtendedAmountType); begin Ftax := AExtendedAmountType; Ftax_Specified := True; end; function TransactionDetailsType.tax_Specified(Index: Integer): boolean; begin Result := Ftax_Specified; end; procedure TransactionDetailsType.Setshipping(Index: Integer; const AExtendedAmountType: ExtendedAmountType); begin Fshipping := AExtendedAmountType; Fshipping_Specified := True; end; function TransactionDetailsType.shipping_Specified(Index: Integer): boolean; begin Result := Fshipping_Specified; end; procedure TransactionDetailsType.Setduty(Index: Integer; const AExtendedAmountType: ExtendedAmountType); begin Fduty := AExtendedAmountType; Fduty_Specified := True; end; function TransactionDetailsType.duty_Specified(Index: Integer): boolean; begin Result := Fduty_Specified; end; procedure TransactionDetailsType.SetlineItems(Index: Integer; const AArray_Of_LineItemType: Array_Of_LineItemType); begin FlineItems := AArray_Of_LineItemType; FlineItems_Specified := True; end; function TransactionDetailsType.lineItems_Specified(Index: Integer): boolean; begin Result := FlineItems_Specified; end; procedure TransactionDetailsType.SetprepaidBalanceRemaining(Index: Integer; const ATXSDecimal: TXSDecimal); begin FprepaidBalanceRemaining := ATXSDecimal; FprepaidBalanceRemaining_Specified := True; end; function TransactionDetailsType.prepaidBalanceRemaining_Specified(Index: Integer): boolean; begin Result := FprepaidBalanceRemaining_Specified; end; procedure TransactionDetailsType.SetcurrencyCode(Index: Integer; const Astring: string); begin FcurrencyCode := Astring; FcurrencyCode_Specified := True; end; function TransactionDetailsType.currencyCode_Specified(Index: Integer): boolean; begin Result := FcurrencyCode_Specified; end; procedure TransactionDetailsType.SettaxExempt(Index: Integer; const ABoolean: Boolean); begin FtaxExempt := ABoolean; FtaxExempt_Specified := True; end; function TransactionDetailsType.taxExempt_Specified(Index: Integer): boolean; begin Result := FtaxExempt_Specified; end; procedure TransactionDetailsType.Setpayment(Index: Integer; const APaymentMaskedType: PaymentMaskedType); begin Fpayment := APaymentMaskedType; Fpayment_Specified := True; end; function TransactionDetailsType.payment_Specified(Index: Integer): boolean; begin Result := Fpayment_Specified; end; procedure TransactionDetailsType.Setcustomer(Index: Integer; const ACustomerDataType: CustomerDataType); begin Fcustomer := ACustomerDataType; Fcustomer_Specified := True; end; function TransactionDetailsType.customer_Specified(Index: Integer): boolean; begin Result := Fcustomer_Specified; end; procedure TransactionDetailsType.SetbillTo(Index: Integer; const ACustomerAddressType: CustomerAddressType); begin FbillTo := ACustomerAddressType; FbillTo_Specified := True; end; function TransactionDetailsType.billTo_Specified(Index: Integer): boolean; begin Result := FbillTo_Specified; end; procedure TransactionDetailsType.SetshipTo(Index: Integer; const ANameAndAddressType: NameAndAddressType); begin FshipTo := ANameAndAddressType; FshipTo_Specified := True; end; function TransactionDetailsType.shipTo_Specified(Index: Integer): boolean; begin Result := FshipTo_Specified; end; procedure TransactionDetailsType.SetrecurringBilling(Index: Integer; const ABoolean: Boolean); begin FrecurringBilling := ABoolean; FrecurringBilling_Specified := True; end; function TransactionDetailsType.recurringBilling_Specified(Index: Integer): boolean; begin Result := FrecurringBilling_Specified; end; procedure TransactionDetailsType.SetcustomerIP(Index: Integer; const Astring: string); begin FcustomerIP := Astring; FcustomerIP_Specified := True; end; function TransactionDetailsType.customerIP_Specified(Index: Integer): boolean; begin Result := FcustomerIP_Specified; end; destructor ProfileTransAmountType.Destroy; var I: Integer; begin for I := 0 to System.Length(FlineItems)-1 do SysUtils.FreeAndNil(FlineItems[I]); System.SetLength(FlineItems, 0); SysUtils.FreeAndNil(Famount); SysUtils.FreeAndNil(Ftax); SysUtils.FreeAndNil(Fshipping); SysUtils.FreeAndNil(Fduty); inherited Destroy; end; procedure ProfileTransAmountType.Settax(Index: Integer; const AExtendedAmountType: ExtendedAmountType); begin Ftax := AExtendedAmountType; Ftax_Specified := True; end; function ProfileTransAmountType.tax_Specified(Index: Integer): boolean; begin Result := Ftax_Specified; end; procedure ProfileTransAmountType.Setshipping(Index: Integer; const AExtendedAmountType: ExtendedAmountType); begin Fshipping := AExtendedAmountType; Fshipping_Specified := True; end; function ProfileTransAmountType.shipping_Specified(Index: Integer): boolean; begin Result := Fshipping_Specified; end; procedure ProfileTransAmountType.Setduty(Index: Integer; const AExtendedAmountType: ExtendedAmountType); begin Fduty := AExtendedAmountType; Fduty_Specified := True; end; function ProfileTransAmountType.duty_Specified(Index: Integer): boolean; begin Result := Fduty_Specified; end; procedure ProfileTransAmountType.SetlineItems(Index: Integer; const AArray_Of_LineItemType: Array_Of_LineItemType); begin FlineItems := AArray_Of_LineItemType; FlineItems_Specified := True; end; function ProfileTransAmountType.lineItems_Specified(Index: Integer): boolean; begin Result := FlineItems_Specified; end; destructor ProfileTransOrderType.Destroy; begin SysUtils.FreeAndNil(Forder); inherited Destroy; end; procedure ProfileTransOrderType.SetcustomerShippingAddressId(Index: Integer; const AInt64: Int64); begin FcustomerShippingAddressId := AInt64; FcustomerShippingAddressId_Specified := True; end; function ProfileTransOrderType.customerShippingAddressId_Specified(Index: Integer): boolean; begin Result := FcustomerShippingAddressId_Specified; end; procedure ProfileTransOrderType.Setorder(Index: Integer; const AOrderExType: OrderExType); begin Forder := AOrderExType; Forder_Specified := True; end; function ProfileTransOrderType.order_Specified(Index: Integer): boolean; begin Result := Forder_Specified; end; procedure ProfileTransOrderType.SettaxExempt(Index: Integer; const ABoolean: Boolean); begin FtaxExempt := ABoolean; FtaxExempt_Specified := True; end; function ProfileTransOrderType.taxExempt_Specified(Index: Integer): boolean; begin Result := FtaxExempt_Specified; end; procedure ProfileTransOrderType.SetrecurringBilling(Index: Integer; const ABoolean: Boolean); begin FrecurringBilling := ABoolean; FrecurringBilling_Specified := True; end; function ProfileTransOrderType.recurringBilling_Specified(Index: Integer): boolean; begin Result := FrecurringBilling_Specified; end; procedure ProfileTransOrderType.SetcardCode(Index: Integer; const Astring: string); begin FcardCode := Astring; FcardCode_Specified := True; end; function ProfileTransOrderType.cardCode_Specified(Index: Integer): boolean; begin Result := FcardCode_Specified; end; procedure ProfileTransOrderType.SetsplitTenderId(Index: Integer; const AInt64: Int64); begin FsplitTenderId := AInt64; FsplitTenderId_Specified := True; end; function ProfileTransOrderType.splitTenderId_Specified(Index: Integer): boolean; begin Result := FsplitTenderId_Specified; end; procedure ProfileTransCaptureOnlyType.SetapprovalCode(Index: Integer; const Astring: string); begin FapprovalCode := Astring; FapprovalCode_Specified := True; end; function ProfileTransCaptureOnlyType.approvalCode_Specified(Index: Integer): boolean; begin Result := FapprovalCode_Specified; end; destructor ProfileTransRefundType.Destroy; begin SysUtils.FreeAndNil(Forder); inherited Destroy; end; procedure ProfileTransRefundType.SetcustomerProfileId(Index: Integer; const AInt64: Int64); begin FcustomerProfileId := AInt64; FcustomerProfileId_Specified := True; end; function ProfileTransRefundType.customerProfileId_Specified(Index: Integer): boolean; begin Result := FcustomerProfileId_Specified; end; procedure ProfileTransRefundType.SetcustomerPaymentProfileId(Index: Integer; const AInt64: Int64); begin FcustomerPaymentProfileId := AInt64; FcustomerPaymentProfileId_Specified := True; end; function ProfileTransRefundType.customerPaymentProfileId_Specified(Index: Integer): boolean; begin Result := FcustomerPaymentProfileId_Specified; end; procedure ProfileTransRefundType.SetcustomerShippingAddressId(Index: Integer; const AInt64: Int64); begin FcustomerShippingAddressId := AInt64; FcustomerShippingAddressId_Specified := True; end; function ProfileTransRefundType.customerShippingAddressId_Specified(Index: Integer): boolean; begin Result := FcustomerShippingAddressId_Specified; end; procedure ProfileTransRefundType.SetcreditCardNumberMasked(Index: Integer; const Astring: string); begin FcreditCardNumberMasked := Astring; FcreditCardNumberMasked_Specified := True; end; function ProfileTransRefundType.creditCardNumberMasked_Specified(Index: Integer): boolean; begin Result := FcreditCardNumberMasked_Specified; end; procedure ProfileTransRefundType.SetbankRoutingNumberMasked(Index: Integer; const Astring: string); begin FbankRoutingNumberMasked := Astring; FbankRoutingNumberMasked_Specified := True; end; function ProfileTransRefundType.bankRoutingNumberMasked_Specified(Index: Integer): boolean; begin Result := FbankRoutingNumberMasked_Specified; end; procedure ProfileTransRefundType.SetbankAccountNumberMasked(Index: Integer; const Astring: string); begin FbankAccountNumberMasked := Astring; FbankAccountNumberMasked_Specified := True; end; function ProfileTransRefundType.bankAccountNumberMasked_Specified(Index: Integer): boolean; begin Result := FbankAccountNumberMasked_Specified; end; procedure ProfileTransRefundType.Setorder(Index: Integer; const AOrderExType: OrderExType); begin Forder := AOrderExType; Forder_Specified := True; end; function ProfileTransRefundType.order_Specified(Index: Integer): boolean; begin Result := Forder_Specified; end; procedure ProfileTransRefundType.SettransId(Index: Integer; const Astring: string); begin FtransId := Astring; FtransId_Specified := True; end; function ProfileTransRefundType.transId_Specified(Index: Integer): boolean; begin Result := FtransId_Specified; end; procedure ProfileTransPriorAuthCaptureType.SetcustomerProfileId(Index: Integer; const AInt64: Int64); begin FcustomerProfileId := AInt64; FcustomerProfileId_Specified := True; end; function ProfileTransPriorAuthCaptureType.customerProfileId_Specified(Index: Integer): boolean; begin Result := FcustomerProfileId_Specified; end; procedure ProfileTransPriorAuthCaptureType.SetcustomerPaymentProfileId(Index: Integer; const AInt64: Int64); begin FcustomerPaymentProfileId := AInt64; FcustomerPaymentProfileId_Specified := True; end; function ProfileTransPriorAuthCaptureType.customerPaymentProfileId_Specified(Index: Integer): boolean; begin Result := FcustomerPaymentProfileId_Specified; end; procedure ProfileTransPriorAuthCaptureType.SetcustomerShippingAddressId(Index: Integer; const AInt64: Int64); begin FcustomerShippingAddressId := AInt64; FcustomerShippingAddressId_Specified := True; end; function ProfileTransPriorAuthCaptureType.customerShippingAddressId_Specified(Index: Integer): boolean; begin Result := FcustomerShippingAddressId_Specified; end; procedure ProfileTransPriorAuthCaptureType.SettransId(Index: Integer; const Astring: string); begin FtransId := Astring; FtransId_Specified := True; end; function ProfileTransPriorAuthCaptureType.transId_Specified(Index: Integer): boolean; begin Result := FtransId_Specified; end; initialization InvRegistry.RegisterInterface(TypeInfo(ServiceSoap), 'https://api.authorize.net/soap/v1/', 'utf-8'); InvRegistry.RegisterDefaultSOAPAction(TypeInfo(ServiceSoap), 'https://api.authorize.net/soap/v1/%operationName%'); InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap), ioDocument); RemClassRegistry.RegisterXSInfo(TypeInfo(MessageTypeEnum), 'https://api.authorize.net/soap/v1/', 'MessageTypeEnum'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfMessagesTypeMessage), 'https://api.authorize.net/soap/v1/', 'ArrayOfMessagesTypeMessage'); RemClassRegistry.RegisterXSClass(ANetApiResponseType, 'https://api.authorize.net/soap/v1/', 'ANetApiResponseType'); RemClassRegistry.RegisterXSClass(MessagesTypeMessage, 'https://api.authorize.net/soap/v1/', 'MessagesTypeMessage'); RemClassRegistry.RegisterXSClass(MerchantAuthenticationType, 'https://api.authorize.net/soap/v1/', 'MerchantAuthenticationType'); RemClassRegistry.RegisterExternalPropName(TypeInfo(MerchantAuthenticationType), 'name_', 'name'); RemClassRegistry.RegisterXSClass(ARBSubscriptionType, 'https://api.authorize.net/soap/v1/', 'ARBSubscriptionType'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ARBSubscriptionType), 'name_', 'name'); RemClassRegistry.RegisterXSClass(PaymentType, 'https://api.authorize.net/soap/v1/', 'PaymentType'); RemClassRegistry.RegisterXSClass(OrderType, 'https://api.authorize.net/soap/v1/', 'OrderType'); RemClassRegistry.RegisterXSClass(NameAndAddressType, 'https://api.authorize.net/soap/v1/', 'NameAndAddressType'); RemClassRegistry.RegisterXSClass(PaymentScheduleType, 'https://api.authorize.net/soap/v1/', 'PaymentScheduleType'); RemClassRegistry.RegisterXSInfo(TypeInfo(ARBSubscriptionUnitEnum), 'https://api.authorize.net/soap/v1/', 'ARBSubscriptionUnitEnum'); RemClassRegistry.RegisterXSClass(PaymentScheduleTypeInterval, 'https://api.authorize.net/soap/v1/', 'PaymentScheduleTypeInterval'); RemClassRegistry.RegisterExternalPropName(TypeInfo(PaymentScheduleTypeInterval), 'unit_', 'unit'); RemClassRegistry.RegisterXSClass(CreditCardSimpleType, 'https://api.authorize.net/soap/v1/', 'CreditCardSimpleType'); RemClassRegistry.RegisterXSClass(CreditCardType, 'https://api.authorize.net/soap/v1/', 'CreditCardType'); RemClassRegistry.RegisterXSInfo(TypeInfo(BankAccountTypeEnum), 'https://api.authorize.net/soap/v1/', 'BankAccountTypeEnum'); RemClassRegistry.RegisterXSInfo(TypeInfo(EcheckTypeEnum), 'https://api.authorize.net/soap/v1/', 'EcheckTypeEnum'); RemClassRegistry.RegisterXSClass(BankAccountBaseType, 'https://api.authorize.net/soap/v1/', 'BankAccountBaseType'); RemClassRegistry.RegisterXSClass(BankAccountType, 'https://api.authorize.net/soap/v1/', 'BankAccountType'); RemClassRegistry.RegisterXSInfo(TypeInfo(CustomerTypeEnum), 'https://api.authorize.net/soap/v1/', 'CustomerTypeEnum'); RemClassRegistry.RegisterXSClass(CustomerType, 'https://api.authorize.net/soap/v1/', 'CustomerType'); RemClassRegistry.RegisterExternalPropName(TypeInfo(CustomerType), 'type_', 'type'); RemClassRegistry.RegisterXSClass(DriversLicenseBaseType, 'https://api.authorize.net/soap/v1/', 'DriversLicenseBaseType'); RemClassRegistry.RegisterXSClass(DriversLicenseType, 'https://api.authorize.net/soap/v1/', 'DriversLicenseType'); RemClassRegistry.RegisterXSClass(ARBCreateSubscriptionResponseType, 'https://api.authorize.net/soap/v1/', 'ARBCreateSubscriptionResponseType'); RemClassRegistry.RegisterXSClass(ARBUpdateSubscriptionResponseType, 'https://api.authorize.net/soap/v1/', 'ARBUpdateSubscriptionResponseType'); RemClassRegistry.RegisterXSClass(ARBCancelSubscriptionResponseType, 'https://api.authorize.net/soap/v1/', 'ARBCancelSubscriptionResponseType'); RemClassRegistry.RegisterXSInfo(TypeInfo(ARBSubscriptionStatusEnum), 'https://api.authorize.net/soap/v1/', 'ARBSubscriptionStatusEnum'); RemClassRegistry.RegisterXSClass(ARBGetSubscriptionStatusResponseType, 'https://api.authorize.net/soap/v1/', 'ARBGetSubscriptionStatusResponseType'); RemClassRegistry.RegisterXSClass(CustomerProfileBaseType, 'https://api.authorize.net/soap/v1/', 'CustomerProfileBaseType'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfCustomerPaymentProfileType), 'https://api.authorize.net/soap/v1/', 'ArrayOfCustomerPaymentProfileType'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfCustomerAddressType), 'https://api.authorize.net/soap/v1/', 'ArrayOfCustomerAddressType'); RemClassRegistry.RegisterXSClass(CustomerProfileType, 'https://api.authorize.net/soap/v1/', 'CustomerProfileType'); RemClassRegistry.RegisterXSClass(CustomerPaymentProfileBaseType, 'https://api.authorize.net/soap/v1/', 'CustomerPaymentProfileBaseType'); RemClassRegistry.RegisterXSClass(CustomerPaymentProfileType, 'https://api.authorize.net/soap/v1/', 'CustomerPaymentProfileType'); RemClassRegistry.RegisterXSClass(CustomerAddressType, 'https://api.authorize.net/soap/v1/', 'CustomerAddressType'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfLong), 'https://api.authorize.net/soap/v1/', 'ArrayOfLong'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfString), 'https://api.authorize.net/soap/v1/', 'ArrayOfString'); RemClassRegistry.RegisterXSClass(CreateCustomerProfileResponseType, 'https://api.authorize.net/soap/v1/', 'CreateCustomerProfileResponseType'); RemClassRegistry.RegisterXSClass(CreateCustomerPaymentProfileResponseType, 'https://api.authorize.net/soap/v1/', 'CreateCustomerPaymentProfileResponseType'); RemClassRegistry.RegisterXSClass(CreateCustomerShippingAddressResponseType, 'https://api.authorize.net/soap/v1/', 'CreateCustomerShippingAddressResponseType'); RemClassRegistry.RegisterXSClass(GetCustomerProfileResponseType, 'https://api.authorize.net/soap/v1/', 'GetCustomerProfileResponseType'); RemClassRegistry.RegisterXSClass(CustomerProfileExType, 'https://api.authorize.net/soap/v1/', 'CustomerProfileExType'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfCustomerPaymentProfileMaskedType), 'https://api.authorize.net/soap/v1/', 'ArrayOfCustomerPaymentProfileMaskedType'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfCustomerAddressExType), 'https://api.authorize.net/soap/v1/', 'ArrayOfCustomerAddressExType'); RemClassRegistry.RegisterXSClass(CustomerProfileMaskedType, 'https://api.authorize.net/soap/v1/', 'CustomerProfileMaskedType'); RemClassRegistry.RegisterXSClass(CustomerPaymentProfileMaskedType, 'https://api.authorize.net/soap/v1/', 'CustomerPaymentProfileMaskedType'); RemClassRegistry.RegisterXSClass(PaymentMaskedType, 'https://api.authorize.net/soap/v1/', 'PaymentMaskedType'); RemClassRegistry.RegisterXSClass(DriversLicenseMaskedType, 'https://api.authorize.net/soap/v1/', 'DriversLicenseMaskedType'); RemClassRegistry.RegisterXSClass(CreditCardMaskedType, 'https://api.authorize.net/soap/v1/', 'CreditCardMaskedType'); RemClassRegistry.RegisterXSClass(BankAccountMaskedType, 'https://api.authorize.net/soap/v1/', 'BankAccountMaskedType'); RemClassRegistry.RegisterXSClass(CustomerAddressExType, 'https://api.authorize.net/soap/v1/', 'CustomerAddressExType'); RemClassRegistry.RegisterXSClass(GetCustomerPaymentProfileResponseType, 'https://api.authorize.net/soap/v1/', 'GetCustomerPaymentProfileResponseType'); RemClassRegistry.RegisterXSClass(GetCustomerShippingAddressResponseType, 'https://api.authorize.net/soap/v1/', 'GetCustomerShippingAddressResponseType'); RemClassRegistry.RegisterXSClass(UpdateCustomerProfileResponseType, 'https://api.authorize.net/soap/v1/', 'UpdateCustomerProfileResponseType'); RemClassRegistry.RegisterXSClass(CustomerPaymentProfileExType, 'https://api.authorize.net/soap/v1/', 'CustomerPaymentProfileExType'); RemClassRegistry.RegisterXSClass(UpdateCustomerPaymentProfileResponseType, 'https://api.authorize.net/soap/v1/', 'UpdateCustomerPaymentProfileResponseType'); RemClassRegistry.RegisterXSClass(UpdateCustomerShippingAddressResponseType, 'https://api.authorize.net/soap/v1/', 'UpdateCustomerShippingAddressResponseType'); RemClassRegistry.RegisterXSClass(DeleteCustomerProfileResponseType, 'https://api.authorize.net/soap/v1/', 'DeleteCustomerProfileResponseType'); RemClassRegistry.RegisterXSClass(DeleteCustomerPaymentProfileResponseType, 'https://api.authorize.net/soap/v1/', 'DeleteCustomerPaymentProfileResponseType'); RemClassRegistry.RegisterXSClass(DeleteCustomerShippingAddressResponseType, 'https://api.authorize.net/soap/v1/', 'DeleteCustomerShippingAddressResponseType'); RemClassRegistry.RegisterXSClass(ProfileTransactionType, 'https://api.authorize.net/soap/v1/', 'ProfileTransactionType'); RemClassRegistry.RegisterXSClass(ProfileTransVoidType, 'https://api.authorize.net/soap/v1/', 'ProfileTransVoidType'); RemClassRegistry.RegisterXSClass(OrderExType, 'https://api.authorize.net/soap/v1/', 'OrderExType'); RemClassRegistry.RegisterXSClass(ExtendedAmountType, 'https://api.authorize.net/soap/v1/', 'ExtendedAmountType'); RemClassRegistry.RegisterExternalPropName(TypeInfo(ExtendedAmountType), 'name_', 'name'); RemClassRegistry.RegisterXSClass(LineItemType, 'https://api.authorize.net/soap/v1/', 'LineItemType'); RemClassRegistry.RegisterExternalPropName(TypeInfo(LineItemType), 'name_', 'name'); RemClassRegistry.RegisterXSClass(CreateCustomerProfileTransactionResponseType, 'https://api.authorize.net/soap/v1/', 'CreateCustomerProfileTransactionResponseType'); RemClassRegistry.RegisterXSClass(ValidateCustomerPaymentProfileResponseType, 'https://api.authorize.net/soap/v1/', 'ValidateCustomerPaymentProfileResponseType'); RemClassRegistry.RegisterXSClass(GetCustomerProfileIdsResponseType, 'https://api.authorize.net/soap/v1/', 'GetCustomerProfileIdsResponseType'); RemClassRegistry.RegisterXSClass(UpdateSplitTenderGroupResponseType, 'https://api.authorize.net/soap/v1/', 'UpdateSplitTenderGroupResponseType'); RemClassRegistry.RegisterXSClass(GetTransactionDetailsResponseType, 'https://api.authorize.net/soap/v1/', 'GetTransactionDetailsResponseType'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfFDSFilterType), 'https://api.authorize.net/soap/v1/', 'ArrayOfFDSFilterType'); RemClassRegistry.RegisterXSClass(CustomerDataType, 'https://api.authorize.net/soap/v1/', 'CustomerDataType'); RemClassRegistry.RegisterExternalPropName(TypeInfo(CustomerDataType), 'type_', 'type'); RemClassRegistry.RegisterXSClass(FDSFilterType, 'https://api.authorize.net/soap/v1/', 'FDSFilterType'); RemClassRegistry.RegisterExternalPropName(TypeInfo(FDSFilterType), 'name_', 'name'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfBatchStatisticType), 'https://api.authorize.net/soap/v1/', 'ArrayOfBatchStatisticType'); RemClassRegistry.RegisterXSClass(BatchDetailsType, 'https://api.authorize.net/soap/v1/', 'BatchDetailsType'); RemClassRegistry.RegisterXSClass(BatchStatisticType, 'https://api.authorize.net/soap/v1/', 'BatchStatisticType'); RemClassRegistry.RegisterXSClass(GetSettledBatchListRequestType, 'https://api.authorize.net/soap/v1/', 'GetSettledBatchListRequestType'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfBatchDetailsType), 'https://api.authorize.net/soap/v1/', 'ArrayOfBatchDetailsType'); RemClassRegistry.RegisterXSClass(GetSettledBatchListResponseType, 'https://api.authorize.net/soap/v1/', 'GetSettledBatchListResponseType'); RemClassRegistry.RegisterXSClass(GetTransactionListRequestType, 'https://api.authorize.net/soap/v1/', 'GetTransactionListRequestType'); RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfTransactionSummaryType), 'https://api.authorize.net/soap/v1/', 'ArrayOfTransactionSummaryType'); RemClassRegistry.RegisterXSClass(GetTransactionListResponseType, 'https://api.authorize.net/soap/v1/', 'GetTransactionListResponseType'); RemClassRegistry.RegisterXSClass(TransactionSummaryType, 'https://api.authorize.net/soap/v1/', 'TransactionSummaryType'); RemClassRegistry.RegisterXSInfo(TypeInfo(ValidationModeEnum), 'https://api.authorize.net/soap/v1/', 'ValidationModeEnum'); RemClassRegistry.RegisterXSInfo(TypeInfo(SplitTenderStatusEnum), 'https://api.authorize.net/soap/v1/', 'SplitTenderStatusEnum'); RemClassRegistry.RegisterXSClass(FDSFilter, 'https://api.authorize.net/soap/v1/', 'FDSFilter'); RemClassRegistry.RegisterXSClass(statistic, 'https://api.authorize.net/soap/v1/', 'statistic'); RemClassRegistry.RegisterXSClass(batch, 'https://api.authorize.net/soap/v1/', 'batch'); RemClassRegistry.RegisterXSClass(transaction, 'https://api.authorize.net/soap/v1/', 'transaction'); RemClassRegistry.RegisterXSInfo(TypeInfo(Array_Of_LineItemType), 'https://api.authorize.net/soap/v1/', 'Array_Of_LineItemType'); RemClassRegistry.RegisterXSClass(TransactionDetailsType, 'https://api.authorize.net/soap/v1/', 'TransactionDetailsType'); RemClassRegistry.RegisterXSClass(ProfileTransAmountType, 'https://api.authorize.net/soap/v1/', 'ProfileTransAmountType'); RemClassRegistry.RegisterXSClass(ProfileTransOrderType, 'https://api.authorize.net/soap/v1/', 'ProfileTransOrderType'); RemClassRegistry.RegisterXSClass(ProfileTransAuthOnlyType, 'https://api.authorize.net/soap/v1/', 'ProfileTransAuthOnlyType'); RemClassRegistry.RegisterXSClass(ProfileTransAuthCaptureType, 'https://api.authorize.net/soap/v1/', 'ProfileTransAuthCaptureType'); RemClassRegistry.RegisterXSClass(ProfileTransCaptureOnlyType, 'https://api.authorize.net/soap/v1/', 'ProfileTransCaptureOnlyType'); RemClassRegistry.RegisterXSClass(ProfileTransRefundType, 'https://api.authorize.net/soap/v1/', 'ProfileTransRefundType'); RemClassRegistry.RegisterXSClass(ProfileTransPriorAuthCaptureType, 'https://api.authorize.net/soap/v1/', 'ProfileTransPriorAuthCaptureType'); end.