![]() | |
ConneXionInsertFinanceCompany Method |
Namespace: ConneXion
Dim oConneXion As New ConneXion.ConneXion Dim oResult As New ConneXion.ConneXionResult Dim oFinance As New ConneXion.FinanceCompany oFinance.TAMUserName = "EXEC" oFinance.TAMPassword = "PSWD" oFinance.EntityID = "GREENE" oFinance.Name = "Greene Grasse Premium Finance" oFinance.Attention = "Brady Greene" oFinance.Street = "10978 W. Essington" oFinance.Street2 = "East" oFinance.City = "Shorewood" oFinance.State = "IL" oFinance.ZipCode = "60451" oFinance.Statement = "1" oFinance.Phone = "16543213" oFinance.Fax = "111165432" oResult = oConneXion.InsertFinanceCompany(oFinance) If oResult.Success Then MessageBox.Show("Insert Finance Company is successful") txtResult.Text = oResult.Description Else txtResult.Text = "Insert Finance Company is false" & vbCrLf & "Number: " & oResult.Number & vbCrLf & "Desc: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If