![]() | |
ConneXionInsertPersonnelInfo Method |
Namespace: ConneXion
Dim oConneXionPersonnelInfo As New ConneXion.ConneXion Dim oPersonnelInfo As New ConneXion.PersonnelInfo Dim oResult As ConneXion.ConneXionResult oPersonnelInfo.TAMUserName = "EXEC" oPersonnelInfo.TAMPassword = "PSWD" oPersonnelInfo.TAMCentralAgency = "DEMOAG1" oPersonnelInfo.LicenseKey = "1234567 1" oPersonnelInfo.ClientKey = "C" oPersonnelInfo.ClientID = "ABBOJO1" oPersonnelInfo.LastName = "Abbott" oPersonnelInfo.FirstName = "Joseph" oPersonnelInfo.MiddleInitial = "W" oPersonnelInfo.Street = "1414 Hampton Road" oPersonnelInfo.City = "Homewood" oPersonnelInfo.State = "IL" oPersonnelInfo.ZipCode = "60430" oPersonnelInfo.PhoneNumber = "7087988345" oPersonnelInfo.Heading = "Joe" oPersonnelInfo.Attention = "" oPersonnelInfo.Gender = “0” oPersonnelInfo.Relationship = "INSU" oPersonnelInfo.DriversLicense = "A1234567890" oPersonnelInfo.LicenseState = "IL" oPersonnelInfo.SocialSecurity = "123456789" oPersonnelInfo.BirthDate = "19500101" oPersonnelInfo.MaritalStatus = "0" oPersonnelInfo.AwayFromHome = "False" oPersonnelInfo.Smoke = "True" oPersonnelInfo.Student = "False" oPersonnelInfo.Training = "False" oPersonnelInfo.Accidents = "0" oPersonnelInfo.Tickets = "1" oPersonnelInfo.CSR = "JS" oPersonnelInfo.OperatorID = "EX" oPersonnelInfo.Class1 = "DRVR" oPersonnelInfo.Class2 = "" oPersonnelInfo.Class3 = "" oPersonnelInfo.Class4 = "" oResult = oConneXionPersonnelInfo.InsertPersonnelInfo(oPersonnelInfo) If oResult.Success = False Then txtPersonnelInfo.Text = "InsertPersonnelInfo is false. " & oResult.Description & oResult.TAMDescription Else txtPersonnelInfo.Text = "InsertPersonnelInfo is successful. " & oResult.Description & oResult.TAMDescription End If