ConneXionInsertPayTransaction Method

public ConneXionResult InsertPayTransaction(
	ref GeneralTransTransaction PayTransaction,
	CashJournal CashJournal
)

Public Function InsertPayTransaction ( 
	ByRef PayTransaction As GeneralTransTransaction,
	CashJournal As CashJournal
) As ConneXionResult

Dim oConneXion As New ConneXion.ConneXion
Dim oFinanceTrans As New ConneXion.GeneralTrans.Transaction
Dim oResult As ConneXion.ConneXionResult

oFinanceTrans.TAMUserName = "EXEC"
oFinanceTrans.TAMPassword = "PSWD"
oFinanceTrans.EntityType = "F"
oFinanceTrans.EntityId = "TIFCO-1"
oFinanceTrans.Agency = 1

oResult = oConneXion.FindFinancedTransactions(oFinanceTrans)

If oResult.Success Then

    Dim oJournal As New ConneXion.CashJournal
    Dim aCashJournals() As ConneXion.CashJournal = Nothing

    oJournal.TAMUserName = "EXEC"
    oJournal.TAMPassword = "PSWD"
    oResult = oConneXion.FindAllCashJournals(oJournal, aCashJournals)

    oFinanceTrans.Amount = 100
    oFinanceTrans.Transactions(oFinanceTrans.Transactions.Count - 1).Applied = 50
    oFinanceTrans.Transactions(oFinanceTrans.Transactions.Count - 2).Applied = 50

    If oResult.Success Then
        oResult = oConneXion.InsertPayTransaction(oFinanceTrans, aCashJournals(aCashJournals.Length - 1))
    End If

    If oResult.Success Then
        MessageBox.Show("Insert Pay was Successful.  ")
    Else
        txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " &
        oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
    End If
Else
    MessageBox.Show("FindFinancedTransactions is false")
End If