#Include vhLib.Macro


Error()
	quit $$$ERROR("-2","mijn ingegeven waarde")


	
	set KlantNr=""
	for { set KlantNr = $order(^KOD(KlantNr)) quit:KlantNr="" 
		set OrderNr=""
		for { set OrderNr = $order(^KOD(KlantNr,"F",OrderNr)) quit:OrderNr="" 
			set LineNr = 100
			for { set LineNr = $order(^KOD(KlantNr,"F",OrderNr,LineNr)) quit:LineNr="" 	
				set LijnType = $P(^(LineNr),"\",17)
				if LijnType ["KF1925" {
					if $L($P(LijnType,"#",2)) W !,LijnType
				}
			}
		}
	}
	
	
Delete
	set tCmd=##class(svn.Command).%New($lb(""))
	set tCmd.File="E:\svn\CacheAdminA\trunk2010\APPS\Halux\PPS\Activiteit\impl\TAOR\Zijkant\KamerFreesWerklijstItemMaker.cls.xml"
	set tCmd.SubCommand="delete"
	do tCmd.Options.SetAt("","--force")
	do tCmd.Execute()
	quit
	
	 



Go(Var = ";")
	w Var
	quit


	Kill ^JCL
	set ^JCL=1
	

Test(Input)
 	If Input=1 Do
 	. write "1"
 	Else  Do 
 	. if Input=2  Do
 	. . write "2"
 	Else  Do
 	. write "3"
 	quit
 


BTW
	set idx=0
	f  {  set idx=$order(^KFA("F",idx)) quit:idx="" 
		set BTWCode=$P(^KFA("F",idx,0,1),"#",1)
		b:BTWCode="7"
		set BTW(BTWCode_" ")=""
	}
	zw BTW
	quit

Test1 
	
	set x = ##class(zTryout.JCL.Demo.Klasse7).%New()
	s a = ##class(zTryout.JCL.Demo.Klasse7).%OpenId(1)

Offertes
	
	
	set OfferteIterator = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOfferteIterator()
	while OfferteIterator.HasNext() {
		set Offerte = OfferteIterator.Next()
		b:##class(BL.Flow.Proxy.pxHoutCertificaat).BepaalHoutCertificatenViaOfferte(Offerte.GeefID(),"N").Count()
	}


Facturen
	
	set itFacturen = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefFactuurIterator()
	while itFacturen.HasNext() {
		#dim Factuur As DOM.VKP.Factuur = itFacturen.Next()
		if Factuur.GeefPrijsAffichering() = ##class(DOM.VKP.enu.PrijsAffichering).BrutoPrijzen() {
			B
		}
		
	}