Payment/reversal formula

This formula uses a service oriented architecture approach to communicate with an external system. It uses a Cashiering class as a proxy to forward the charge information to another system. The other system would then use Infor Public Sector Web Services to perform any additional actions. With slight modifications this same formula could be used for a reversal formula.

Note: The EXTERNALCHARGE table has a boolean property called PAID that determines whether a charge will be returned to the search grid. The grid only shows charges where PAID = ‘N’.

dim res as Hansen.Core.Result = Hansen.Core.Result.Success
dim resultReturn as string="True"
dim wsproxy as Hansen.Cashiering.ISOAProxy
ServerApplication.NewComponent("Hansen.Cashiering.SOAProxy",oRegTran.UserInfo)
dim parameters() as Object = {11234,"Payment","Hansen.Cashiering.Charge","Mike"}
resultReturn= wsproxy.CallWebService("http://localhost/AgencyService/AgencyService.asmx",
"AgencyService", "ReceiveAction",parameters)
If(resultReturn="True") Then
   return res
Else
   return new Hansen.Core.Result(-1,Hansen.Core.ResultSeverity.Error,resultReturn)
End if