ConneXionInsertCashReceipt Method

public ConneXionResult InsertCashReceipt(
	ref CashReceipts oCashReceipt,
	CashJournal oCashJournal
)

Public Function InsertCashReceipt ( 
	ByRef oCashReceipt As CashReceipts,
	oCashJournal As CashJournal
) As ConneXionResult

Dim oConneXion As New ConneXion.ConneXion

Dim oJournal As New ConneXion.CashJournal
Dim aCashJournals() As ConneXion.CashJournal = Nothing
oJournal.TAMUserName = "EXEC"
oJournal.TAMPassword = "PSWD"
oConneXion.FindAllCashJournals(oJournal, aCashJournals)

Dim oFinancedTran As New ConneXion.GeneralTrans.Transaction
Dim oResult As New ConneXion.ConneXionResult
oFinancedTran.TAMUserName = "EXEC"
oFinancedTran.TAMPassword = "PSWD"
oFinancedTran.EntityId = "AFCOPR1"
oFinancedTran.EntityType = "F"
oFinancedTran.Agency = 1

oResult = oConneXion.FindFinancedTransactions(oFinancedTran)
If oResult.Success Then
    Dim oCashReceipt As New ConneXion.CashReceipts
    oCashReceipt.TAMUserName = "EXEC"
    oCashReceipt.TAMPassword = "PSWD"

    oFinancedTran.Amount = 300
    oFinancedTran.Transactions(0).Amount = 100
    oFinancedTran.Transactions(1).Amount = 200

    oCashReceipt.Lines = New ConneXion.GeneralTrans.Transaction() {oFinancedTran}

    oResult = oConneXion.InsertCashReceipt(oCashReceipt, aCashJournals(0))

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