![]() | |
ConneXionFindProducerCommissionDefaults Method |
Namespace: ConneXion
public ConneXionResult FindProducerCommissionDefaults( 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 = "CJH" oCommission.ProducerCommType = oCommission.EnumProducerCommType.PR_PERCENT_COMMISSION oCommission.ProducerCompanyCode = "AET" oCommission.PolicyType = "ALL" oCommission.BillMode = "B" oResult = oConneXion.FindProducerCommissionDefaults(oCommission) If oResult.Success = False Then txtCommissionDefaults.Text = "FindProducerCommissionDefaults is false. " & oResult.Description & oResult.TAMDescription Else txtCommissionDefaults.Text = "FindProducerCommissionDefaults is successful. " & oResult.Description & oResult.TAMDescription End If