>>local lcPK >>lcPK = this.value >>with this.parent >> .cboCarrier_Branches.rowsource = "" >> .Carrier_Branches_Merge_biz1.Set_fk(m.lcPK) >> .Carrier_Branches_Merge_biz1.requery(.t.,'crsCarrier_branches_All_merge') >> >> .cboCarrier_Branches.rowsourcetype = 2 >> .cboCarrier_Branches.rowsource = 'crsCarrier_branches_All_merge' >> .cboCarrier_Branches.requery() >> .cboCarrier_Branches.enabled = .t. >> do case >> case reccount('crsCarrier_branches_All_merge') = 1 >> =ErrorMsg("The carrier " + alltrim(.cboCarriersToSelect.displayvalue) + ; >> " has only 1 branch") >> >> case reccount('crsCarrier_branches_All_merge') = 0 >> =ErrorMsg("The carrier " + alltrim(.cboCarriersToSelect.displayvalue) + " does not have branches") >> endcase >> .cboCarriers.enabled = .f. >>endwith>>