Applying GP Payables Documents in SmartConnect Integrations

dim success as boolean
dim errorResult as boolean
dim errorCode as integer
dim responseMessage as string
dim licenseKey as string
dim serverInstance as string
dim userConnectType as string
dim userID as string
dim userPassword as string
dim companyDatabase as string
dim documentType as string
dim apApplyTest as new Precipio.APApply.Import()


licenseKey = "mykey"     'Retrieved from Precipio Services
serverInstance = "eone-2014eone"
userConnectType = "SQL"    'SQL or GP 
userID = "sa"
userPassword = "pass@word1"
companyDatabase = "TWO"


'Initialize the license
success = apApplyTest.Initialize(licenseKey, serverInstance, userConnectType, userID, userPassword, responseMessage)

'Display a message if the initialize fails. Only use this if running manually
if not success then
  MessageBox.Show("Initialize: " & responseMessage)
  return false
end if



'Apply the Payment that was just integrated to a voucher
documentType = "PAYMENT" 'PAYMENT or CREDIT

success = apApplyTest.ApplyPayment(companyDatabase, _VENDORID, Convert.ToDateTime(_DOCDATE), documentType, _PAYMENTNUMBER, _APPLYDOCUMENTNUMBER, _APPLYAMOUNT, errorResult, errorCode, responseMessage)

if not success then
  MessageBox.Show("Apply: " & responseMessage)
  return false
else if errorResult then
  MessageBox.Show("Apply: " & responseMessage)
  return false
end if

apApplyTest = nothing

return true

bool success = false;
bool errorResult = false;
int errorCode = 0;
string responseMessage = null;
string licenseKey = null;
string serverInstance = null;
string userConnectType = null;
string userID = null;
string userPassword = null;
string companyDatabase = null;
string documentType = null;
Precipio.APApply.Import apApplyTest = new Precipio.APApply.Import();

licenseKey = "mykey";
//Retrieved from Precipio Services
serverInstance = "eone-2014\eone";
userConnectType = "SQL";
//SQL or GP 
userID = "sa";
userPassword = "pass@word1";
companyDatabase = "TWO";

//Initialize the license
success = apApplyTest.Initialize(licenseKey, serverInstance, userConnectType, userID, userPassword, responseMessage);

//Display a message if the initialize fails. Only use this if running manually
if (!success) {
  MessageBox.Show("Initialize: " + responseMessage);
  return false;
}

//Apply the Payment that was just integrated to a voucher
documentType = "PAYMENT";
//PAYMENT or CREDIT
success = apApplyTest.ApplyPayment(companyDatabase, _VENDORID, 
              Convert.ToDateTime(_DOCDATE), documentType, _PAYMENTNUMBER, 
              _APPLYDOCUMENTNUMBER, _APPLYAMOUNT, errorResult, errorCode, responseMessage);

if (!success) {
  MessageBox.Show("Apply: " + responseMessage);
  return false;
} else if (errorResult) {
  MessageBox.Show("Apply: " + responseMessage);
  return false;
}

apApplyTest = null;
return true;