0 0 serial 0 KeyCodesCNTs,ReportErrorCNTs 0 Default %Library.TMFormClass 0 %TMBevel 0 0 "" 0 0 0 0 0 %TMBevel 0 0 "" 0 0 0 0 0 %Library.TMForm 0 0 "" 0 0 0 0 0 %TMLabel 0 0 "" 0 0 0 0 0 %TMSpeedButton 0 0 "" 0 0 0 0 0 %TMSpeedButton 0 0 "" 0 0 0 0 0 %TMListBox 0 0 "" 0 0 0 0 0 %TMEdit 0 0 "" 0 0 0 0 0 0 0 code initvalue:%String 0 %Status 0 0 0 code 0 0 0 0 code 0 0 0 0 code Args:%String 0 0 0 0 code 0 0 0 0 code initvalue:%String 0 0 0 0 code initvalue:%String 0 %Library.Status 0 0 0 code ErrorType:%Integer,Msg:%String="",MsgBoxType=0 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code 0 0 0 Do . Set ..lbRekeningen.ItemIndex=0 Quit //----------------------------------------------------------------------------- RekeningViaNr(Nummer) Set Nummer=$$WildCardToPattern^vhLib(Nummer) New NrLoop Set NrLoop="" For Set NrLoop=$O(plRekeningNrs(NrLoop)) Quit:(NrLoop="") Do . Do:(NrLoop?@Nummer) ..lbRekeningen.Items.AddObject(NrLoop_" "_plRekeningNrs(NrLoop),NrLoop) Quit RekeningViaNaam(Naam) Set Naam=$ZCVT($$WildCardToPattern^vhLib(Naam),"U") New NrLoop,RekOmsch Set NrLoop="" For Set NrLoop=$O(plRekeningNrs(NrLoop)) Quit:(NrLoop="") Do . Do:(plRekeningNrs(NrLoop)?@Naam) ..lbRekeningen.Items.AddObject(NrLoop_" "_plRekeningNrs(NrLoop),NrLoop) Quit ]]> 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 %Library.CacheSerialState list Address Form Bevel1 btnAnnuleren btnOk lbSortList lbKlanten Bevel2 Label1 txtNaamNummer txtGroepNummer lbRekeningen