SQL()
	#Include %occInclude
	#Include %CHUI.System
 
	;-----------------------------------------------------------------------------------------
	; QUERY 
	;-----------------------------------------------------------------------------------------
	New RS,Query
	Set Query="Res.ImageLink:QGetLinks"
	Set RS=##class(%ResultSet).%New(Query)
	If RS=$$$NULLOREF Do  Quit
	. ;"Kan geen nieuwe instantie van de query '"_Query_"' maken."
 
	New tmpStatus
	//palbObjType , palbObjRef , palbFunctieType , palbVisueelType , palbExtensie , paTaal
	Set tmpStatus=RS.Execute("PR",89800,$LB("*"),$LB("W","P","*"),$LB("PDF","*"),"N")
	If $$$ISERR(tmpStatus) Do  Quit
	. ;"Fout bij het uitvoeren van de query '"_Query_"': "_$C(13,10)_$$ParseStatus^vhLib(tmpStatus)
	. Do RS.%Close()
 
	For  Quit:('RS.Next())  Do
	. w RS.Get("ImageLinkID")_" ("_RS.Get("aLinksKey")_") "_RS.Get("ObjType")_" "_RS.Get("ObjRef")_" "_RS.Get("FunctieType")_" "_RS.Get("VisueelType")_" "_RS.Get("Extensie"),!
	
	Do RS.%Close()
	
	Quit
 
 
		//----------------------------------------
 
		#Include BL.EC.Common
 
Go()
		New SesKey
		Set SesKey="+0iDDLVKMoBsTyph3I+DkQ=="
		D ##class(BL.EC.Session).ReInstateSession(SesKey)  
		$$$blProduct
		
		New IT
		Set IT=##class(Res.ImageLink).AllFunctieTypes()
		New Proxy
 
		Do WLIP^vhDBG(96,"*** ProductDetail ***")
 
		S Proxy=%blProduct.ProductDetail(200627,.IT)
		
 
		Set str=""
		Do Proxy.XMLExportToString(.str)
		Do WLIP^vhDBG(96,str)
 
		Do WLIP^vhDBG(96,"*** ProductDetailOrgalux ***")
 
		;Do %blProduct.ProductDetailOrgalux(##class(Prod.Product).%OpenId(89800),.Proxy)
 
		;Set str=""
		;Do Proxy.XMLExportToString(.str)
		;Do WLIP^vhDBG(96,str)
 
		q Proxy
		
	///Do SetIDsToRevise^TRTST
SetIDsToRevise(MyUser)
	Quit:(+$G(MyUser)=0)
 
	Set Query="BL.Derde.Kennis.Kennis:GetOldIDs"
	
	;Prepare (geef alle ankers terug die laatst gewijzigd/aangemaakt zijn zes maanden geleden)
	Set RS=##class(%ResultSet).%New(Query)
	If RS=$$$NULLOREF Do  Quit ""
	. Set varErrStr="Kan geen nieuwe instantie van de query '"_Query_"' maken."
 
	Set HBeforeDate=$$CALCDATE^vhDTyp(,"M",-6)
	Set tmpStatus=RS.Execute(HBeforeDate)
	
	;Execute
	If $$$ISERR(tmpStatus) Do  Quit ""
	. Set varErrStr="Fout bij het uitvoeren van de query '"_Query_"': "_$C(13,10)_$$ParseStatus^vhLib(tmpStatus)
 
	Set varErrStr=""
	Set lbKennisID=""
	Set LogLoop=""
 
	;De queryresultaten doorlopen en kijken of het anker gelezen is in de laatste zes maanden door de "CreationUser"
	For  Quit:('RS.Next())  Do
	. ;Anker enkel teruggeven indien niet gelezen door de gebruiker die het aangemaakt/gewijzigd heeft -> omgekeerd zoeken in logging
	. Set CreationUser=RS.Data("CreationUser")
	. Quit:(MyUser'=CreationUser)
	. Set KennisID=RS.Data("ID")
	. k ^Derde.Kennis.Kennis.Log(KennisID)
	. w KennisID,!
	
	Quit
	
tsql()
	&sql(SELECT 
					CASE postprocoutdata_id
						WHEN 4 THEN 2
						WHEN 5 THEN 6
						ELSE 0 
					END
				FROM FOP_DocRepo.Postprocoutdata)
	
	//&sql(UPDATE FOP_DocRepo.Postprocoutdata SET userstring6=CASE userstring2 WHEN 'N' THEN 1 ELSE 0 END WHERE postprocoutdata_id=6872)
	q
	
	Set SQL="UPDATE FOP_DocRepo.Postprocoutdata SET userstring9='FACTUUR-NL-MAN',userstring6=CASE WHEN userstring2='N' THEN 1 ELSE 0 END WHERE postprocoutdata_id=6872"
	Set SQL="UPDATE FOP_DocRepo.Postprocoutdata SET (userstring6=CASE WHEN userstring2='N' THEN 1 ELSE 0 END) WHERE postprocoutdata_id=6872"
	Set RS=##class(%ResultSet).%New("%DynamicQuery:SQL")
	w !!,SQL,!!
	Set Status=RS.Prepare(SQL)
	w:($$$ISERR(Status)) $$ParseStatus^vhLib(Status)
	
	Set Status=RS.Execute()
 
	w $S($$$ISOK(Status):"",1:$$ParseStatus^vhLib(Status))	
	q
	
File(Sort,ID)
	Set Query="%Library.File:FileSet"
	Set RS=##class(%ResultSet).%New(Query)
	If RS=$$$NULLOREF Do  Quit
	. Do $$$ShowMsgBoxSimple(..Caption,"Kan geen nieuwe instantie van de query '"_Query_"' maken.")
 
	Set tmpStatus=RS.Execute("\\fop\e$\FOP\OMRTest","*.*",$G(Sort,"DateModified"),$G(ID,0))
	If $$$ISERR(tmpStatus) Do  Quit
	. Do $$$ShowMsgBoxSimple(..Caption,"Fout bij het uitvoeren van de query '"_Query_"': "_$C(13,10)_$$ParseStatus^vhLib(tmpStatus))
	
	Set Cnt=0
	For  Quit:('RS.Next())  Do
	. w $$AddTrailingChar^vhLib(RS.Get("Name")," ",70)_RS.Get("DateModified"),!
	. ;RS.Get("Size")
	. ;RS.Get("DateCreated")
	. ;RS.Get("DateModified")
	. ;RS.Get("ItemName")
	q
 
sd()
  New aDocRef,Loop1,Loop2,Loop3
  Set Loop1="", Loop2="", Loop3=""
  For  Set Loop1=$O(^Derde.Kennis.Kennis.Mark(Loop1)) Quit:(Loop1="")  Do
  . For  Set Loop2=$O(^Derde.Kennis.Kennis.Mark(Loop1,Loop2)) Quit:(Loop2="")  Do
  ..  For  Set Loop3=$O(^Derde.Kennis.Kennis.Mark(Loop1,Loop2,Loop3)) Quit:(Loop3="")  Do
	...   If '$D(aDocRef(Loop3)) Do
	....    w Loop3,!
	....    s aDocRef(Loop3)=1
 
fill()
	w !
	w 
	w !
	q 1
 
KBLog2()
	New ID,Loop,lbRec,H,aH,TakeH
	Set (ID,Loop)=""
	For  Set ID=$O(^Derde.Kennis.Kennis.Log(ID)) Quit:(ID="")  Do
	. For  Set Loop=$O(^Derde.Kennis.Kennis.Log(ID,Loop)) Quit:(Loop="")  Do
	..  Set lbRec=^Derde.Kennis.Kennis.Log(ID,Loop)
	..  If ($LI(lbRec,1)="Created") && (Loop>1) Do
	...   s aH($LI(lbRec,3),ID,Loop)=$$GetHumanDate^vhLib($LI(lbRec,3))_" door "_##class(Res.InternePersoon).GetFullName($LI(lbRec,2))
	
	zw aH
	
	Quit
 
purgekblog()
	New ID,Loop
	Set (ID,Loop)=""
	For  Set ID=$O(^Derde.Kennis.Kennis.Log(ID)) Quit:(ID="")  Do
	. w:('##class(Derde.Kennis.Kennis).%ExistsId(ID)) "Delete: "_ID,!
	. k:('##class(Derde.Kennis.Kennis).%ExistsId(ID)) ^Derde.Kennis.Kennis.Log(ID)
	. ;For  Set Loop=$O(^Derde.Kennis.Kennis.Log(ID,Loop)) Quit:(Loop="")  Do
	
	quit
	
	quit
 
portal()
	new user,prog
	set (user,prog)=""
	for  set user=$o(^Res.Port.UserProfilesD(user)) q:(user="")  do
	. for  set prog=$o(^Res.Port.UserProfilesD(user,prog)) q:(prog="")  do
	..  q:(prog="_FULL") 
	..  k:('##class(Res.Portal.Program).%ExistsId(prog)) ^Res.Port.UserProfilesD(user,prog)
	
	quit
	//^Res.Port.UserProfilesD("AM",96)=<<$LB("","AM","96")>>
 
prodcop()
	set prodnr=""
	set id2=""
	set cnt=0
	k ^Prod.Ken.DataDefinitieD.TBX
	for  set prodnr=$O(^Prod.Ken.DataDefinitieD(prodnr)) q:prodnr=""  d
	.	for  set id2=$O(^Prod.Ken.DataDefinitieD(prodnr,id2)) q:id2=""  d
	..  q:$p(id2,"||",1)'="TBX"
	..  q:"KLAS,RH,LT,BS"'[$p(id2,"||",2)
	..  s cnt=cnt+1
	..  ;w:(cnt#15759=0) cnt\15759,!
	..  ;m ^Prod.Ken.DataDefinitieD.TBX(prodnr,id2)=^Prod.Ken.DataDefinitieD(prodnr,id2)
	
	w cnt,!
	
	quit
 
uitz()
	New KlantNr
	Set KlantNr=1239
 
	New Q,D,U
	Set Q="K",D="\",U="\"
 
	New HG,G,SG,ProdNr,VolgNr,pxUitzondering,PrevSortKlassificatie,SortKlassificatie,KlassificatieStr,ProductStr,Rec,ReferentieProduct,PrijsRec,KortingStr,Korting2,PrijsStr
	Set (HG,G,SG,ProdNr,VolgNr)=""
	Set PrevKlassificatie=""
	For  Set HG=$O(^KLPUTZ("N",KlantNr,HG)) Quit:(HG="")  Do
	. For  Set G=$O(^KLPUTZ("N",KlantNr,HG,G)) Quit:(G="")  Do
	..  For  Set SG=$O(^KLPUTZ("N",KlantNr,HG,G,SG)) Quit:(SG="")  Do
	...   For  Set ProdNr=$O(^KLPUTZ("N",KlantNr,HG,G,SG,ProdNr)) Quit:(ProdNr="")  Do
	....    For  Set VolgNr=$O(^KLPUTZ("N",KlantNr,HG,G,SG,ProdNr,VolgNr)) Quit:(VolgNr="")  Do
	.....			Set Rec=^KLPUTZ("N",KlantNr,HG,G,SG,ProdNr,VolgNr)
	.....     If +ProdNr=0 Do
	......			Set WildCard=$P(Rec,D,14)
	......			Set Pattern=$P(Rec,D,15)
	......			Set ProductStr=$S(WildCard'="":$C(171)_WildCard_$C(187),Pattern'="":$C(171)_Pattern_$C(187),1:"")
	.....			Else  Do
	......			Set ProductStr=##class(Prod.Product).GetPropViaNr(ProdNr,"KortTekst")
	.....			Set ReferentieProduct=$P(Rec,D,4)
	.....			Quit:('##class(Prod.Product).%ExistsId(ReferentieProduct))
	.....			Set PrijsRec=$$KLANTPR^KPRIJS(KlantNr,ReferentieProduct)
	.....			Set KortingStr=$J($P(PrijsRec,D,5),0,1)_" %"
	.....			Set Korting2=$P(PrijsRec,D,6)
	.....			Set:(+Korting2>0) KortingStr=KortingStr_" + "_$J(Korting2,0,1)_" %"
	.....			Set PrijsStr=$S(+ProdNr=0:"",1:$P(PrijsRec,D,1)_" "_$P(PrijsRec,D,2)_$S($P(PrijsRec,D,3)="H":"%",1:""))
	.....			Set Klassificatie=$S(G=0:$$DISPLS^KLASS(HG),SG=0:$$DISPLS^KLASS(G),1:$$DISPLS^KLASS(SG))
	.....			Set aRow(Klassificatie_"."_ProdNr_"."_VolgNr)=$LB(Klassificatie,ProductStr,KortingStr,PrijsStr)
 
	Set SortKlassificatie=""
	Set (PrevKlas,Klas)=""
	For  Set SortKlassificatie=$O(aRow(SortKlassificatie)) Quit:(SortKlassificatie="")  Do
	. Set Rec=aRow(SortKlassificatie)
	. Set Klas=$LI(Rec)
	. w $$AddTrailingChar^vhLib(Klas," ",25)_"    "_$$GetStrCrossSection^vhLib(PrevKlas,Klas,"-"),!
	. Set PrevKlas=Klas
 
sel()
	New Criteria,w,p,s
	Set Criteria=##class(BL.Prod.pxSelectCriteria).%New()   ///teststuff
	Set w=##class(WS.Prod.Select).%New()
	Set p=w.Select("test",Criteria)
	d p.XMLExportToString(.s)
	w s,!
 
XML()
	s x=##class(%XML.Writer).%New()
	//set x.Charset="UTF-8"
 
	Do x.OutputToString()
	s x.NoXMLDeclaration=1
 	;s x.Indent=1	
 	d x.StartDocument()
 	d x.RootElement("VHINTRA","")
 	;w $$ParseStatus^vhLib(x.Element("PROD_SELECT",""))
 	;w $$ParseStatus^vhLib(x.Write("All"))
 	;w $$ParseStatus^vhLib(x.EndElement())
 	d x.EndRootElement()
 	d x.EndDocument()
 
 
	Set XMLString=x.GetXMLString(.v)
	w XMLString,!
	w "hi",!
 	;d x.OutputToDevice()
 	
	Quit
 
cbm()
	d ##class(Prod.OptiBox.BoxMeta).%DeleteExtent()
	s bm=##class(Prod.OptiBox.BoxMeta).%New()
	s bm.Name="FastTester"
	s bm.ProductGroep="FastPG"
	
	s ebm=##class(Prod.OptiBox.emBoxSelect).%New()
	;s ebm.Naam="boxselectnaam"
	w "insert:"_bm.BoxSelect.Insert(ebm),!
	
	w "save:"_bm.%Save(),!
	
	s ID=bm.%Id()
	
	k (ID)
	
	s bm=##class(Prod.OptiBox.BoxMeta).%OpenId(ID)
	w "reopen:"_bm.Name,!
	
	w "count:"_bm.BoxSelect.Count(),!
 
	Set aKey=""
	For  Set oBoxSelect=bm.BoxSelect.GetNext(.aKey) Quit:aKey=""  Do
	. w "oBoxSelect:"_oBoxSelect,!
 
 
	Quit
	
KM(lbKennisKlassificatie,lbCheckProduct)
	Set KlassificationMatches=0
	For Loop=1:1:$LL(lbCheckProduct) Do  Quit:(KlassificationMatches)
	. Set ProdNr=$LI(lbCheckProduct,Loop)
	. Quit:('##class(Prod.Product).%ExistsId(ProdNr))
	. Set KKeyProd=$$Get^PRODUKT(ProdNr,"I04")
	. For SubLoop=1:1:3 Do  Quit:(KlassificationMatches)
	..  Set KSortLevel=$$GETSORT^KLASS(KKeyProd,SubLoop)
	..  Set KKeyLevel=$$GETKEY^KLASS(KSortLevel)
	..  If $LF(lbKennisKlassificatie,KKeyLevel) Do
	...   Set KlassificationMatches=1
	
	Quit KlassificationMatches
	
	;d FlexTCP^TRTST()
FlexTCP()
	New Dev
	Set Dev="|TCP|64777"
	
	Open Dev
	;Else  w "Kan server niet initialiseren",! q ""
 
	Use Dev	
 
	Read Incoming
	
	If Incoming'="#START#" Do  Quit ""
	. Close Dev
	. w "Early close...",!
	
	For  Do  Quit:(Incoming="#END#")
	. Hang 1
	. Write $H,!
	. Use 0 
	. Write "sending "_$H,! 
	. Use Dev
	. Read Incoming
	
	Close Dev
 
	Quit ""
	/*
	;d FlexTCP2^TRTST()
FlexTCP2()
	New Dev
	Set Dev="|TCP|64777"
	
	Open Dev
	;Else  w "Kan server niet initialiseren",! q ""
	
	Use Dev
	
	For  Do  Quit:(Incoming="#EXIT#")
	.	Read Incoming
	. Use 0 Write "START:"_Incoming,! Use Dev
	. Quit:(Incoming="#EXIT#")
	. Job:(Incoming="#NEW#") TCPChild:(:5:Dev:Dev)
	
	Close Dev
 
	Quit ""
 
TCPChild
	For  Do  Quit:(Incoming="#END#")
	. Hang 1
	. Write $H,!
	. d WLIP^vhDBG(96,"before read")
	. Read Incoming
	Quit
 
	//d TCPClient^TRTST()
TCPClient(StopServer)
	New Dev
	Set Dev="|TCP|64777"
	
	Open Dev:("cache02":64777)
	
	Use Dev
	
	If $G(StopServer) Do  Quit
	. w "#EXIT#",!
	. Close Dev
 
	w "#NEW#",!
 
	s c=0
	f  s c=c+1 d  q:c=5
	. r Incoming:2
	. use 0 w Incoming use Dev
	. d WLIP^vhDBG(96,"schrijf ok")
	. w "#OK#",!
	. d WLIP^vhDBG(96,"schrijf ok2")
	. w "#OK#",!
	
	Close Dev
 
	Quit*/
 
 //d StartServer^TRTST()
StartServer()
	New Dev
	Set Dev="|TCP|64777"
	
	Open Dev:(::"MA")
	
	Use Dev
	
	New Incoming
	For  Do  Quit:(Incoming="#EXIT#")
	. Read Incoming
	. Use 0 Write "START:"_Incoming,! Use Dev
	. Quit:(Incoming="#EXIT#")
	. Job:(Incoming="#NEW#") TCPChild:(:5:Dev:Dev)
	
	Close Dev
 
	Quit ""
 
TCPChild
	Use $P:(::"M")
	
	New Incoming
	For  Do  Quit:(Incoming="#END#")
	. Hang 1
	. Write $H,!
	. Read Incoming
	Quit
 
  //d TCPClient^TRTST()
TCPClient(StopServer)
	New Dev
	Set Dev="|TCP|64777"
	
	Open Dev:("cache02":64777)
	
	Use Dev
	
	If $G(StopServer) Do  Quit
	. w "#EXIT#",!
	. Close Dev
 
	w "#NEW#",!
 
	New Cnt,Incoming,Incoming2
	Set Cnt=0
	For  Set Cnt=Cnt+1 Do  Quit:(Cnt=5)
	. Read Incoming
	. Use 0 w Incoming,!
	. Use Dev w "#OK#",!
	
	Close Dev
 
	Quit
	
HasObjParam(ClassName,MethodName)
	New lbParams
	Set lbParams=^oddCOM(ClassName,$$$cINDEXmethod,MethodName,$$$cMETHformalspecparsed)
	
	New Loop
	For Loop=1:1:$LL(lbParams) Do
	. Set lbParam=$LI(lbParams,Loop)
	
 
	Quit
 
	;d ResetBatch^TRTST
ResetBatch
	k ^PPS.QueueD
	m ^PPS.QueueD=^TR.PPS.QueueD
 	k ^PPS.QueueI
	m ^PPS.QueueI=^TR.PPS.QueueI
	Quit