ConneXionInsertClaim Method

public ConneXionResult InsertClaim(
	ref Claim Claim
)

Public Function InsertClaim ( 
	ByRef Claim As Claim
) As ConneXionResult

Dim oConneXion As New ConneXion.ConneXion
Dim oClaim As New ConneXion.Claim
Dim oResult As ConneXion.ConneXionResult

oClaim.TAMUsername = "EXEC"
oClaim.TAMPassword = "PSWD"
oClaim.PolicyIndex = "ABBOJO1-4"
oClaim.Coverage = "WIND"
oClaim.RiskName = "dwelling"
oClaim.Lossdate = "20031012"
oClaim.Reported = "20031015"
oClaim.Adjustor = "Fred Stoneburger"
oClaim.AdjustorsPhone = "217-895-7844"
oClaim.Assigned = "20031015"
oClaim.Chargeable = True
oClaim.SuitPending = False
oClaim.Closed = False
oClaim.ClaimNumber = "123456789"
oClaim.Paid = 900D
oClaim.ReservedAmount = 0D
oClaim.Salvage = 0D
oClaim.LossAmount = 1000D

oClaim.Description = "Little Joey Abbot was playing baseball and hit the ball through the living room window, breaking his mother’s heirloom vase"

oResult = oConneXion.InsertClaim(oClaim)
If oResult.Success Then
    MessageBox.Show("InsertClaim is Successful")
    txtResult.Text = "Claim Rec: " & oClaim.ClaimRec
Else
    txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Desc: " &
    oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription
End If