serial KeyCodesCNTs,TTreeViewExCNTs Default %Library.TMFormClass %Library.String %Library.String %Library.TMForm %TMLabel %TMLabel %TMLabel %TMLabel %TMPanel %TMButton %TMButton %TMButton %TMComboBox %TMComboBox %TMLabel %TMEdit %TMEdit initvalue:%String cache 0 %Status document literal cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 document literal initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status document literal cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 0 Do .. Set ..cbbFetchID.ItemIndex=0 .. Set ..cbbFetchID.Enabled="True" . Else Do .. Set ..cbbFetchID.Enabled="False" .. Set ..cbbFetchID.Text="No ID's available" ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Program:%String cache 0 document literal cache 0 document literal Program,LDName:%String cache 0 document literal cache 0 document literal %Library.CacheSerialState list Address Form ComboBox1 ComboBox2 Label1 Label2 Label3 Panel1 btnAnnuleren btnOk cbbFetchID cbbProgram lblInfo txtDefName txtLDName LDName Program FLDName FProgram Label14 btnColumnSort txtVolgNr btnDefSort