Index: cQZSTART.mac.rou
===================================================================
diff -u -r60822 -r74593
--- cQZSTART.mac.rou (.../cQZSTART.mac.rou) (revision 60822)
+++ cQZSTART.mac.rou (.../cQZSTART.mac.rou) (revision 74593)
@@ -164,7 +164,7 @@
I IP'="?",$D(^cQSYS(CFG,"FIXED","IP",IP)) S P=^(IP) I $$PV(P),$D(^cLOG($ZU(5),"CHARWIN","INIT",P)) S K=P G IOSY
S (NBN,^cJOB(JOB,$ZCVT($ZU(110),"U"),"job","NBN"))=$$NBN(I)
S (MAC,^cJOB(JOB,$ZCVT($ZU(110),"U"),"job","MAC"))=$$MAC(I)
- S ORDER="IP\NBN",OK=0,J=$G(^cLOG($ZCVT($ZU(110),"U"),"IO","ORDER")) I $L(J) S ORDER=J
+ S ORDER="NBN\IP",OK=0,J=$G(^cLOG($ZCVT($ZU(110),"U"),"IO","ORDER")) I $L(J) S ORDER=J
F J=1:1:$L(ORDER,"\") S L=$P(ORDER,"\",J) D I OK=1 Q
. I $L(@L),@L'="?",$D(^cQSYS(CFG,"FIXED",L,@L)) S K=^(@L),OK=1
I 'OK,I?1.N S K=I
@@ -203,6 +203,7 @@
NBN(I) N DDB,JOB,K,R,%v
S I=$G(I,$I) S:I="" I=$I S JOB=$$ZJOB(I)
I JOB,$D(^cJOB(JOB,$ZCVT($ZU(110),"U"),"job","NBN")),^("NBN")'="??" Q ^("NBN")
+ Q ##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam()
S K=$ZU(67,12,$J) S:K["/" K=$P(K,"/") I $L(K),K?.ANP Set K = $ZCVT($Piece(K,".",1),"U") Q K
S K=$$CLN() S:'$L(K) K=$$CNN() I $L(K) Q K
S K=$P($P(I,":"),"|",3) S:K["~" K=$P(K,"~",2) I $L(K),K'?3(1.3N1".")1.3N Q $ZSTRIP($ZCONVERT($P(K,"."),"U"),"*C")
Index: APPS/CHUI/TerminalNavigatieService.cls.xml
===================================================================
diff -u -r59394 -r74593
--- APPS/CHUI/TerminalNavigatieService.cls.xml (.../TerminalNavigatieService.cls.xml) (revision 59394)
+++ APPS/CHUI/TerminalNavigatieService.cls.xml (.../TerminalNavigatieService.cls.xml) (revision 74593)
@@ -14,8 +14,13 @@
DOM.VKP.OrderAPI
+
+AXimpl.Admin.Common.GebruikerLookup
+1
+
+
-VerkoopAPI:DOM.VKP.VerkoopAPI,OrderAPI:DOM.VKP.OrderAPI
+VerkoopAPI:DOM.VKP.VerkoopAPI,OrderAPI:DOM.VKP.OrderAPI,GebruikerLookup:AXimpl.Admin.Common.GebruikerLookup
1
1
%Status
@@ -24,6 +29,7 @@
Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
Set ..VerkoopAPI = $$$Inject(VerkoopAPI,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
Set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+ Set ..GebruikerLookup = $$$Inject(GebruikerLookup,##class(AXimpl.Admin.Common.GebruikerLookup).%New())
Quit $$$OK
]]>
@@ -111,38 +117,45 @@
-ComputerNaam:%String
+ComputerNaam:%String,UserName:%String=""
APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak
-ComputerNaam:%String
+ComputerNaam:%String,UserName:%String=""
%Boolean
-ComputerNaam:%String,Taak:APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak=""
+ComputerNaam:%String,Taak:APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak="",Usernaam:%String=""
1
-ComputerNaam:%String
+ComputerNaam:%String,Usernaam:%String=""
ComputerNaam:%String
1
+
+%String
+
+
+
%String
Index: vhTest/Mock/APPS/CHUI/TerminalNavigatieService.cls.xml
===================================================================
diff -u -r48050 -r74593
--- vhTest/Mock/APPS/CHUI/TerminalNavigatieService.cls.xml (.../TerminalNavigatieService.cls.xml) (revision 48050)
+++ vhTest/Mock/APPS/CHUI/TerminalNavigatieService.cls.xml (.../TerminalNavigatieService.cls.xml) (revision 74593)
@@ -8,17 +8,24 @@
APPS.CHUI.TerminalNavigatieService,Tools.Mock.MockClassBase
right
+
+VerkoopAPI:DOM.VKP.VerkoopAPI,OrderAPI:DOM.VKP.OrderAPI,GebruikerLookup:AXimpl.Admin.Common.GebruikerLookup
+%Status
+
+
+
-ComputerNaam:%String
+ComputerNaam:%String,UserName:%String=""
APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak
-
-ComputerNaam:%String
+ComputerNaam:%String,UserName:%String=""
%Boolean
-
@@ -60,8 +67,8 @@
-ComputerNaam:%String
-ComputerNaam:%String,Usernaam:%String=""
+
Index: BLDSYSLOG.mac.rou
===================================================================
diff -u -r29059 -r74593
--- BLDSYSLOG.mac.rou (.../BLDSYSLOG.mac.rou) (revision 29059)
+++ BLDSYSLOG.mac.rou (.../BLDSYSLOG.mac.rou) (revision 74593)
@@ -34,19 +34,17 @@
Set CNaam=$ZCVT($P($E(IONaam,6,99),":",1),"U")
if CNaam="LOCALHOST" Set CNaam=$ZU(110)
-
+ set CNaam = ##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam() ;is evt reeds intune intune werkstation naam
; de computer naam is gekend maar nakijken of het bijhorend IP-adres veranderd is
If $D(^cQSYS(0,"FIXED","NBN",$P(CNaam,"."))) Do Quit
- . Set IP=$$GetIP(CNaam,1)
+ . Set IP=$s((IONaam [ ##class(TECH.Config.ConfigMgr).Instance().GetString("VDIServerPrefix","VDI-APPS")) :"",1:$$GetIP(CNaam,1)) ; geen ipaddres indien we over VDI komen
. Set Device=^cQSYS(0,"FIXED","NBN",$P(CNaam,"."))
. Do:$L(Device) RemQSYS(Device,CNaam,IP)
. Do:$L(Device) BldQSYS(Device,CNaam,IP)
-
; de computer naam is niet gekend, maar wel het IP-adres (VPN gebruikers)
Quit:$D(^cQSYS(0,"FIXED","IP",CNaam))
-
; de computer naam of IPadres is niet gekend
- Set Status=$$SendMiniMail^vhLib(##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()_"@VANHOECKE.BE",$LB("PV@VANHOECKE.BE","WRO@VANHOECKE.BE"),"Nieuwe telnet gebruiker "_CNaam,"$I = "_IONaam)
+ ;Set Status=$$SendMiniMail^vhLib(##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()_"@VANHOECKE.BE",$LB("PV@VANHOECKE.BE","ict_meldingen@VANHOECKE.BE"),"Nieuwe telnet gebruiker "_CNaam,"$I = "_IONaam)
If CNaam'?1.3N1"."1.3N1"."1.3N1"."1.3N Do
. Set IP=$$GetIP(CNaam,1)
Index: IINT.mac.rou
===================================================================
diff -u -r60822 -r74593
--- IINT.mac.rou (.../IINT.mac.rou) (revision 60822)
+++ IINT.mac.rou (.../IINT.mac.rou) (revision 74593)
@@ -58,7 +58,7 @@
ZetIctGebruikerViaIP
New GebruikerInitialen,GebruikerID
Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
- Set GebruikerInitialen = ##class(vhLib.TerminalDevice).GeefIctGebruikerInitialenVanIP($$GetClientIP^vhLib)
+ Set GebruikerInitialen = ##class(vhLib.TerminalDevice).GeefIctGebruikerInitialenVanIP($$GetClientIP^vhLib,,NBN)
Set GebruikerID = $$GeefUserIDViaInitialen^vhUSER(GebruikerInitialen)
Do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID("4682||"_GebruikerID)
Do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID("AdminSessie_"_$Job)
@@ -110,15 +110,16 @@
D BX^cQ13
I $D(^cLOG(boot,"LOGIN",io)) H:'^(io) S K=$P(^(io),"\",2) I $L(K),K'["^II" G @K
- new TerminalNavigatieService,ComputerNaam
+ new TerminalNavigatieService,ComputerNaam,Usernaam
Set TerminalNavigatieService=##class(APPS.CHUI.TerminalNavigatieService).%New()
+ Set Usernaam = ""
Set ComputerNaam=##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam(0)
- if TerminalNavigatieService.HeeftTaak(ComputerNaam) {
- Do TerminalNavigatieService.VoerTaakUit(ComputerNaam)
+ Set Usernaam=##class(APPS.CHUI.NativeCommandoService).%New().ReflectionRDPUserName()
+ if TerminalNavigatieService.HeeftTaak(ComputerNaam,Usernaam) {
+ Do TerminalNavigatieService.VoerTaakUit(ComputerNaam,Usernaam)
Quit
}
-
11 I $D(^cLOG(boot,"MODEM",io)),^(io,1) U 0:(:"S") F I=1:1:20 H 1 R !,K:0 I '$T,'$L(K) Q
12 I io>1!workst I '$G(^cLOG(boot,"TTT"),1) D G 33
. W !!?2,$P($T(@("T2"_QT)),";",2),io,$P($T(@("T2"_QT)),";",3),$J,$P($T(@("T2"_QT)),";",4)