0 0 serial 0 KeyCodesCNTs 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 Args:%String 0 0 0 0 code 0 0 0 0 code initvalue:%String 0 0 0 0 code initvalue:%String 0 %Status 0 0 0 code Args:%String 0 0 0 0 code Args:%String 0 0 0 0 code 0 0 0 Do . Set ..lbLeveranciers.ItemIndex=0 Quit //----------------------------------------------------------------------------- //----------------------------------------------------------------------------- //----------------------------------------------------------------------------- // SQL WAY - Not yet implemented Quit //----------------------------------------------------------------------------- Quit:(..txtNaamNummer.Text="") Do ..lbLeveranciers.Clear() Set ..lbLeveranciers.Visible="False" If $IsValidNum(..txtNaamNummer.Text) Do . Do LeverancierViaNummer(..txtNaamNummer.Text) Else Do . Do LeverancierViaNaam(..txtNaamNummer.Text) Set ..lbLeveranciers.Visible="True" Set ..Form.Caption="Selecteer leverancier: "_ ..lbLeveranciers.Items.Count _ " gevonden." Quit LeverancierViaNummer(Nummer) Set Nummer=$TR(Nummer,"*","%") Set Nummer=$TR(Nummer,"?","_") Set result=##class(%ResultSet).%New("%DynamicQuery:SQL") Do result.Prepare("SELECT ID,Naam FROM Derde_Lev.Lev WHERE Nummer="_Nummer) Do result.Execute() For Quit:'result.Next() Do . Do ..lbLeveranciers.Items.AddObject(result.Get("Naam"),result.Get("ID")) Do result.%Close() Quit LeverancierViaNaam(Naam) Set Naam=$ZCVT(Naam,"U") Set Naam=$TR(Naam,"*","%") Set Naam=$TR(Naam,"?","_") Set result=##class(%ResultSet).%New("%DynamicQuery:SQL") Do result.Prepare("SELECT ID,Naam FROM Derde_Lev.Lev WHERE UPPER(Naam) LIKE '"_Naam_"'") Do result.Execute() For Quit:'result.Next() Do . Do ..lbLeveranciers.Items.AddObject(result.Get("Naam"),result.Get("ID")) Do result.%Close() 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 lbLeveranciers