D ##class(CHUI.Derde.SMSService).Run() 1 TCHUI.TForm TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TEdit TCHUI.TMemo TCHUI.TMemo TCHUI.TButton TCHUI.TButton TCHUI.TKader TCHUI.TEdit TCHUI.TEdit In te vullen door de GUI applicatie 0 Sender:%String Sender:%String Sender,Value,Continu Sender 160:" ("_(StringLen\155+1)_")",1:"") ;Set ..lblCount.Align=$S((..lblCount.Caption[1):"L",1:"R") ]]> Sender,Continu 1:%Application.User.Naam_",VAN HOECKE NV",1:%Application.User.Initialen) Do ..edAfzender.DefaultPaint() ]]> Sender,Menu 0 Menu,ObjType,ObjRef,ObjConnect 1 Menu.AddItem(%this,"miSep","-",1) . Set Ref=$P(ObjRef,"\",Obj) . For Set PersNr=$O(^PERS(ObjType,Ref,PersNr)) Quit:PersNr="" Do . . Set Rec=^PERS(ObjType,Ref,PersNr),ConnectType=$P(Rec,"\",5) . . If '$L(ObjConnect) Set ObjMatch=1 ; Geen beperking op personen . . Else Do . . . Set ObjMatch=0 . . . If ObjConnect="??" . . . Else If ObjConnect="VE3",";"_ConnectType_";"'[(";VE3;") . . . Else If ObjConnect'="VE3",";"_ConnectType_";"[(";VE3;"),$L(ConnectType,";")=1 . . . Else Set ObjMatch=1 . . Quit:'ObjMatch ; PersNr komt niet overeen met de selectie . . Set (SMSNr,TelNr)="" . . For I=15:1:20 Do Quit:$L(SMSNr) . . . Set CommRec=$P(Rec,"\",I) . . . Set:$P(CommRec,";")="S" SMSNr=$P(CommRec,";",2) ; SMS . . . Set:$P(CommRec,";")="G" TelNr=$P(CommRec,";",2) ; GSM . . Set:$L(SMSNr) TelNr=SMSNr . . Quit:TelNr="" . . Set Nm=$P(Rec,"\",2) . . Set VNm=$P(Rec,"\",3) . . Set Nm=Nm_$S($L(Nm)&$L(VNm):" ",1:"")_VNm . . If $isObject($G(Menu)) Do . . . Set Item=Menu.AddItem(%this,"P"_PersNr,Nm,1,,$LB(%this,"onClickAddTelNr")) . . . Set Item.Tag=TelNr . . Else Set TelLijst=TelLijst_$LB(TelNr) If ObjType="K",$isObject($G(Menu)),"\4682\9544\"[("\"_ObjRef_"\") Do . Do:ObjConnect'="??" Menu.AddItem(%this,"miSep","-",1) . Set SkipItem=$S(ObjRef=4682:"VE3B",ObjRef=9544:"VE3N",1:$S(ObjConnect'="??":"ZZ3Z",1:"")) . For ConnectType="VE3B","VE3N","ZZ3Z" Do:ConnectType'=SkipItem . . Set Item=Menu.AddItem(%this,"P",$S(ConnectType="VE3B":"Verkoop Belgie",ConnectType="VE3N":"Verkoop Nederland",1:"Andere"),1,,$LB(%this,"onClickAddTelNr")) . . Set Item.Tag=ConnectType Quit TelLijst ]]> Sender 0 D ##class(CHUI.Derde.SMSService).Run() 1 1