I am able to create a new subscription for recurring billing with the Authorize.Net API and when I click ont the Subscription ID to drill through to the detail I am able to see the Subscription Name, Customer Name, Payment Type, etc....
When I go back to the Subscription Status Report Screen it doesn't display the Subscr Name and sometimes not the Customer Name or Payment method.
Trying to figure out what I need to add if anyone has any ideas?
Public Class CreateSubscription
Public Shared Function Run(ByVal ApiLoginID As String, ByVal ApiTransactionKey As String, ByVal intervalLength As Short) As ANetApiResponse
Console.WriteLine("Create Subscription Sample")
ApiOperationBase(Of ANetApiRequest, ANetApiResponse).RunEnvironment = AuthorizeNet.Environment.SANDBOX
ApiOperationBase(Of ANetApiRequest, ANetApiResponse).MerchantAuthentication = New merchantAuthenticationType() With {
.name = ApiLoginID,
.ItemElementName = ItemChoiceType.transactionKey,
.Item = ApiTransactionKey
}
Dim interval As paymentScheduleTypeInterval = New paymentScheduleTypeInterval()
interval.length = intervalLength
interval.unit = ARBSubscriptionUnitEnum.months
Dim schedule As paymentScheduleType = New paymentScheduleType With {
.interval = interval,
.startDate = DateTime.Now.addmonths(1),
.totalOccurrences = 12,
.trialOccurrences = 3
}
Dim creditCard As creditCardType = New creditCardType() With {
.cardNumber = "4111111111111111",
.expirationDate = "1028"
}
Dim checkAcct As bankAccountType = New bankAccountType() With {
.routingNumber = "091408501",
.accountNumber = "175091211111",
.accountType = bankAccountTypeEnum.checking,
.echeckType = echeckTypeEnum.PPD,
.bankName = "US Bank NA",
.nameOnAccount = "Donald Duck"
}
Dim orderInfo As orderType = New orderType() With {
.invoiceNumber = "10988",
.description = "Riddles Jewelry Installment Loan"
}
Dim cc As paymentType = New paymentType With {
.Item = creditCard
}
Dim chk As paymentType = New paymentType With {
.Item = checkAcct
}
Dim addressInfo As nameAndAddressType = New nameAndAddressType() With {
.firstName = "Donald",
.lastName = "Duck",
.address = "1111 Main Street",
.city = "Rapid City",
.state = "SD",
.zip = "57701"
}
Dim subscriptionType As ARBSubscriptionType = New ARBSubscriptionType() With {
.amount = 60.33D,
.trialAmount = 0.00D,
.paymentSchedule = schedule,
.billTo = addressInfo,
.payment = chk,
.order = orderInfo,
.name = "Test Subscription"
}
Dim request = New ARBCreateSubscriptionRequest With {
.subscription = subscriptionType
}
Dim controller = New ARBCreateSubscriptionController(request)
controller.Execute()
Dim response As ARBCreateSubscriptionResponse = controller.GetApiResponse()
If response IsNot Nothing AndAlso response.messages.resultCode = messageTypeEnum.Ok Then
If response IsNot Nothing AndAlso response.messages.message IsNot Nothing Then
Console.WriteLine("Success, Subscription ID : " & response.subscriptionId.ToString())
End If
ElseIf response IsNot Nothing Then
Console.WriteLine("Error: " & response.messages.message(0).code & " " + response.messages.message(0).text)
End If
Return response
End Function
End Class
