w ##class(TCHUI.Dlg.TSelectProduct).Select("Select kindproduct","Zot is wie dit leest",,"71M",15) Prod.Product 1 TCHUI.TForm TCHUI.TKader TCHUI.TLabel TCHUI.TLabel TCHUI.TPopup TCHUI.TEdit TCHUI.TLabel TCHUI.TLijst TCHUI.TDataSetList TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction %String %Boolean LEVNr "LIMKLAS" -> $LB(HG,GR,SG) "LIMKLANT" -> KLNr "STOCK" -> "S" ,"N" of Leeg "AFGELEID" -> "N" of Leeg "ONEAUTO" -> "N" of Leeg]]> %String 1 %Integer 1 %Integer 2 %Integer 3 %Integer 4 ! ; § # . DataSet 1000 10 100 101 102 103 105 106 107 108 110 111 112 113 1 In te vullen door de GUI applicatie 0 Korttekst~ ; -> Identnummer~ # -> Dossier~ ! -> LevRef~ . -> Internproductnr~~Via Opties kunnen verdere beperkingen opgelegd worden","~") Do ##class(TCHUI.TLabel).CreateSet(%this,"lblMessage","",4,3,1,65,30,) Do ##class(TCHUI.TButton).CreateSet(%this,"btnSelect","Select",2,..Width-11,1,10,51,51,,,$$$alCenter) Set ..btnSelect.Action=..acSelect Do ##class(TCHUI.TButton).CreateSet(%this,"btnClose","Annuleer",4,..Width-11,1,10,50,50,,,$$$alCenter) Set ..btnClose.Action=..acClose Do ##class(TCHUI.TButton).CreateSet(%this,"btnSelectAll","Alles",2,..btnSelect.Left-12,1,10,51,51,,,$$$alCenter) Set ..btnSelectAll.Action=..acSelectAll Do ##class(TCHUI.TButton).CreateSet(%this,"btnOptions","Opties",4,..btnClose.Left-12,1,10,52,52,,,$$$alCenter) Set ..btnOptions.Action=..acOptions ;Do ..txtZoek.CreateHelp(,"Selecteer 'opties' om verdere beperkingen op te leggen, zoals op leverancier, productboom, gekocht door, ...","~") ]]> Sender,Continue Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Als er slechts 1 product in de dataset zit wordt het product teruggegeven anders leeg DataSet Sender,ResultStr Sender,ResultStr Sender,ResultStr ..#MaxQueryQty Continu=0 ; Maximum overschreden ]]> Sender Sender,ResultStr ..#MaxQueryQty Continu=0 ; Maximum overschreden ]]> Sender Sender,ResultStr ..#MaxQueryQty Continu=0 ; Maximum overschreden ]]> Sender Sender Controleert de extra beperking opgeslagen in Options PRNr