Reseller Portal SOAP Web Service - Internal License Managment

The following functions are provided to allow the reseller to create/edit/get postcode software customer account details

Get Price Internal Users


        Function   
          
Function GetPriceForInternalFullAddressUsers(ByVal Parameters$, ByVal NoUsers&, ByVal NoAreas&, ByRef PriceToCustomer As Double, ByRef PriceToReseller As Double, ByRef PriceDescToCustomer$, ByRef PriceDescToReseller$, ByVal ResellerAccountID&, ByVal ResellerAccountPassword$, ByRef ErrorDescription$) As Boolean

Function GetPriceForInternalThoroughfareAddressUsers(ByVal Parameters$, ByVal NoUsers&, ByVal NoAreas&, ByRef PriceToCustomer As Double, ByRef PriceToReseller As Double, ByRef PriceDescToCustomer$, ByRef PriceDescToReseller$, ByVal ResellerAccountID&, ByVal ResellerAccountPassword$, ByRef ErrorDescription$) As Boolean

Function GetPriceForInternalPostzonAddressUsers(ByVal Parameters$, ByVal NoUsers&, ByVal NoAreas&, ByRef PriceToCustomer As Double, ByRef PriceToReseller As Double, ByRef PriceDescToCustomer$, ByRef PriceDescToReseller$, ByVal ResellerAccountID&, ByVal ResellerAccountPassword$, ByRef ErrorDescription$) As Boolean
      
    
    

Parameters

Parameter name Description
Parameters Not used. For future use
NoUsers Number of users to price for
NoAreas Full Address can be restricted to individual postcode areas, which costs a lot less than full UK data. Click here for the latest prices
ResellerAccountID This is the account ID of your reseller account
ResellerAccountPassword Your reseller account password

Returns

Returns True if successful, else error in ErrorDescription$

Name Description
PriceToCustomer Is the suggested price, including VAT
PriceToReseller Price to the reseller, including VAT
PriceDescToCustomer See example below
PriceDescToReseller See example below
ErrorDescription Any error that may have occurred 

        Example code   
          
            
 Dim CustomerPortal As New CustomerPortal.WebServiceCustomerPortal

    
 Dim ErrorDescription$ = ""

          Dim Parameters$ = ""   'For future use

          Dim PriceToCustomer As Double = 0, PriceToReseller As Double = 0,

          PriceDescToCustomer$ = "", PriceDescToReseller$ = ""

        
 Dim InpNumberOfUsers& = Me.InpNumberOfUsers.Text

          Dim InpNumberOfAreas& = Me.InpNumberOfAreas.Text

        
 If Not CustomerPortal.GetPriceForInternalFullAddressUsers(Parameters, _

                         InpNumberOfUsers&, InpNumberOfAreas&, _

                          PriceToCustomer, PriceToReseller, PriceDescToCustomer$, _

                          PriceDescToReseller$, ResellerAccountID, _

                          ResellerAccountPassword, ErrorDescription) Then

            MsgBox("Error returned:" & ErrorDescription)

          Else

            Me.InpResult.Text = "Price to customer:" & Format(PriceToCustomer, _

                        "#,##0.00") & vbCrLf & PriceDescToCustomer & vbCrLf & vbCrLf & _

                      "Price to reseller:" & Format(PriceToReseller, "#,##0.00") & _

                              vbCrLf & PriceDescToReseller

          End If

        

          
        
    

Example:

For 1 user Internal Full Address call

Returns:

PriceDescToCustomer:

Full PAF £220.00 per user * 1 = £220.00 +VAT

PriceDescToReseller:

Full PAF £187.00 per user * 1 = £187.00 +VAT at 15% commission

Warning   Please note: Postcode Areas are not supported for Thoroughfare & Postzon Licenses

Get Price Internal Credit Packs

These are for Full address only

    
        Function   
          
            Function GetPriceForInternalFullAddressCreditPacks(ByVal Parameters$, ByVal NoOfCredits&, ByRef PriceToCustomer As Double, ByRef PriceToReseller As Double, ByRef PriceDescToCustomer$, ByRef PriceDescToReseller$, ByVal ResellerAccountID&, ByVal ResellerAccountPassword$, ByRef ErrorDescription$) As Boolean

Parameters

Parameter name Description
Parameters Not used. For future use
NoOfCredits The number of credits to purchase. These are sold in 500 and 5,000 credit packs. 5,000 are discounted
ResellerAccountID This is the account ID of your reseller account
ResellerAccountPassword Your reseller account password

Returns

Returns True if successful, else error in ErrorDescription$

Name Description
PriceToCustomer Is the suggested price, including VAT
PriceToReseller Price to the reseller, including VAT
PriceDescToCustomer See the example below
PriceDescToReseller See the example below
ErrorDescription Any error that may have occurred 

        Example code   
          
           
 Dim CustomerPortal As New CustomerPortal.WebServiceCustomerPortal

        
 Dim ErrorDescription$ = ""

          Dim Parameters$ = ""   'For future use

          Dim PriceToCustomer As Double = 0, PriceToReseller As Double = 0, 

          PriceDescToCustomer$ = "", PriceDescToReseller$ = ""

        
 Dim InpNumberOfCredits& = Me.InpNumberOfCredits.Text

        
 If Not CustomerPortal.GetPriceForInternalFullAddressCreditPacks(Parameters, _

                           InpNumberOfCredits&, PriceToCustomer, PriceToReseller, _

                            PriceDescToCustomer$, PriceDescToReseller$, _

                            ResellerAccountID, ResellerAccountPassword, ErrorDescription) Then

            MsgBox("Error returned:" & ErrorDescription)

          Else

            Me.InpResult.Text = "Price to customer:" & Format(PriceToCustomer, _

                            "#,##0.00")  & vbCrLf & PriceDescToCustomer & vbCrLf & vbCrLf & _

                  "Price to reseller:" & Format(PriceToReseller, "#,##0.00") & _

                            vbCrLf & PriceDescToReseller

          End If

        

          
        
    

Example:

For 6,000 Internal Full Address credits call

Returns:

PriceDescToCustomer:

Full PAF credits £880.00 for * 6,000 credits + VAT

PriceDescToReseller:

Full PAF credits £748.00 for * 6,000 credits + VAT at 15% commission

Warning  Please note: This is for Full Address only

Purchase Internal Credit Packs

  
        Function   
          
            Function PurchaseWebFullCreditPacks(ByVal Parameters$, ByVal NoOfCredits&, ByRef SummaryDescription$, ByRef PaymentNeededToUs As Double, ByVal CustomerAccountID&, ByVal ResellerAccountID&, ByVal ResellerAccountPassword$, ByRef ErrorDescription$) As Boolean

Parameters

Parameter name Description
Parameters Not used. For future use
NoOfCredits The number of credits to purchase. These are sold in 500 and 5,000 credit packs. 5,000 are discounted
CustomerAccountID Customer to buy License for
ResellerAccountID This is the account ID of your reseller account
ResellerAccountPassword Your reseller account password

Returns

Returns True if successful, else error in ErrorDescription$

Name Description
PaymentNeededToUs Price to the reseller, including VAT. This is the figure that should be paid to us
SummaryDescription Text Description of purchase, see below
ErrorDescription Any error that may have occurred 

        Example code   
          
          
Dim CustomerPortal As New  CustomerPortal.WebServiceCustomerPortal

    
Dim ErrorDescription$  = ""

      Dim  SummaryDescription$ = ""

      Dim Parameters$ =  ""   'For future use

      Dim PriceToReseller As  Double = 0

    
Dim InpNumberOfCredits& =  Me.InpNumberOfUsers.Text

    
If Not CustomerPortal.PurchaseInternalCreditPacks(Parameters,  

                       InpNumberOfCredits&, _

                      SummaryDescription$,  PriceToReseller, CustomerAccountID&, _

                      ResellerAccountID,  ResellerAccountPassword, ErrorDescription) Then

        MsgBox("Error  returned:" & ErrorDescription)

      Else

   Me.InpResult.Text = "Payment to  us:" & Format(PriceToReseller, "#,##0.00") & _

                vbCrLf & SummaryDescription$

      End If

    

      
    
    

Example:

For 6,000 (2 * 500, 1 * 5,000) Internal Full Address credits call

Returns:

SummaryDescription:

Full PAF Internal Lookup credits 1,000 Lookup Credits Less Commission:15%
Full PAF Internal Lookup credits 5,000 Lookup Credits Less Commission:15%

Warning  Please note:

  • We give immediate access to this license, and therefore expect immediate automatic payment from your system. This is a condition of use of this service. An Invoice and Remittance advice is sent to the e-mail address on the reseller account
  • Please put the customer's account number in any bank transactions for us to reconcile easily
  • For testing post purchases against TEST accounts only.
  • Use DoCommand function to clear any test transactions after testing
  • The credit level is returned when searching for an address. Therefore this can be monitored to detect low levels, and thus topped up.

Purchase User License

        Function   
          
Function PurchaseInternalFullUsers(ByVal Parameters$, ByVal NoOfUsers&, ByVal Renewall As Boolean, ByRef PaymentNeededToUs As Double, ByVal CustomerAccountID&, ByVal ResellerAccountID&, ByVal ResellerAccountPassword$, ByRef ErrorDescription$) As Boolean

Function PurchaseInternalThoroughfareUsers(ByVal Parameters$, ByVal NoOfUsers&, ByVal Renewall As Boolean, ByRef PaymentNeededToUs As Double, ByVal CustomerAccountID&, ByVal ResellerAccountID&, ByVal ResellerAccountPassword$, ByRef ErrorDescription$) As Boolean

Function PurchaseInternalPostZonUsersByVal Parameters$, ByVal NoOfUsers&, ByVal Renewall As Boolean, ByRef PaymentNeededToUs As Double, ByVal CustomerAccountID&, ByVal ResellerAccountID&, ByVal ResellerAccountPassword$, ByRef ErrorDescription$) As Boolean
              
            
    

Parameters

Parameter name Description
Parameters Not used. But any message or extra information you wish to send us as part of the transaction can be sent using this field.
NoUsers Number of users to purchase
Renewall Should be TRUE if license already exists and you wish to renew it after 12 months.  Thus we can extend the license from its expire date.
CustomerAccountID Customer to buy License for
ResellerAccountID This is the account ID of your reseller account
ResellerAccountPassword Your reseller account password

Returns

Returns True if successful, else error in ErrorDescription$

Name Description
PaymentNeededToUs Price to the reseller, including VAT. This is the figure that should be paid to us
ErrorDescription Any error that may have occurred 

        Example code   
          
           Dim CustomerPortal As New CustomerPortal.WebServiceCustomerPortal
        Dim ErrorDescription$ = ""

         Dim PriceToReseller As Double = 0
        Dim InpNumberOfUsers& = Me.InpNumberOfUsers.Text

         Dim Parameters$ = ""   'For future use
        If Not CustomerPortal.PurchaseInternalFullUsers(Parameters$, InpNumberOfUsers&, _

                 Me.InpRenewal.Checked, PriceToReseller, CustomerAccountID&, _

                  ResellerAccountID, ResellerAccountPassword, ErrorDescription) Then

          MsgBox("Error returned:" & ErrorDescription)

         Else

           Me.InpResult.Text = "Payment to us:" & Format(PriceToReseller, "#,##0.00") 
       End If

       
          
        
    

Warning  Please note:

  • We give immediate access to this license, and therefore expect immediate automatic payment from your system. This is a condition of use of this service. An Invoice and Remittance advice is sent to e-mail address on the reseller account
  • Please put the customer's account number in any bank transactions for us to reconcile easily
  • If you wish to purchase a Full license restricted to certain areas then set the Areas in customer record first, as the price will be calculated on the list of areas
  • Renewals: After 12 months you should make this call again with Renewal = TRUE.
  • For testing post purchases against TEST accounts only.
  • Use DoCommand function to clear any test transactions after testing