![]() | |
ConneXionFindCompanyCommissionDefaults Method |
Namespace: ConneXion
public ConneXionResult FindCompanyCommissionDefaults( ref CommissionDefaults CommissionDefaults )
Dim oConneXion As New ConneXion.ConneXion Dim oResult As New ConneXion.ConneXionResult Dim oCommission As New ConneXion.CommissionDefaults oCommission.TAMUserName = "EXEC" oCommission.TAMPassword = "PSWD" oCommission.Code = "AET" oCommission.CompanyCommType = ConneXion.CommissionDefaults.EnumCompanyCommType.PERCENT_PREMIUM oCommission.PolicyType = "ALL" oCommission.BillMode = "D" oResult = oConneXion.FindCompanyCommissionDefaults(oCommission) If oResult.Success = False Then txtCommissionDefaults.Text = "FindCompanyCommissionDefaults is false. " & oResult.Description & oResult.TAMDescription Else txtCommissionDefaults.Text = "FindCompanyCommissionDefaults is successful. " & oResult.Description & oResult.TAMDescription End If