#include vhLib.Macro
#include Prod.Product
#include BL.Derde.KlantSpecifiek
#include BL.Derde.LevSpecifiek

quit
DELMAIL
	Set ml=""
	For  Set ml=$O(^vhMAIL("D",ml)) Quit:ml=""  Do
	.Quit:$P(^vhMAIL("D",ml),"\",8)'="Stockcorr. N.S."
	.D DELOBJ^vhMAIL(ml)
	Quit

job
	d ##class(AX.Uitgaand.EC.Service).%New().GenerateAll()
	q

StatGew
 Set KLNr=0
 Kill SomGewicht
	Set BeginDatum=$$CALCDATE^vhLib.DataTypes($H,"BJ","FD",-5)
	Set EindDatum=$$CALCDATE^vhLib.DataTypes($H,"BJ","LD",-1)
	Use Dev
	Set KLNr=""
	For  Set KLNr=$O(^KFA1("F",KLNr)) Quit:KLNr=""  Do
	. Set KlKey=^KK1(KLNr)
	. Set Regio=$P(^KKL(KlKey,0),"\",20)
	. Set Datum="" ; beginnen vanaf vandaag omdat orders van vorige maand ook in facturen van vandaag kunnen zitten
	. For  Set Datum=$O(^KFA1("F",KLNr,Datum)) Quit:Datum=""  Do
	. . Quit:-Datum>EindDatum
	. . Quit:-Datum<BeginDatum
	. . Set BKJaar=$$CALCDATE^vhLib.DataTypes(-Datum,"BJ","LD")
	. . Set FAKNr=""
 	. . For  Set FAKNr=$O(^KFA1("F",KLNr,Datum,FAKNr)) Quit:FAKNr=""  Do
	. . . Set BONNr="U"
	. . . For  Set BONNr=$O(^KFA("F",FAKNr,BONNr)) Quit:$E(BONNr)'="U"  Do
	. . . . Set BonRec=^KFA("F",FAKNr,BONNr,1)
	. . . . Set Vzw=$E($P(BonRec,"\",7),1,3)
	. . . . Set LNr=99
	. . . . For  Set LNr=$O(^KFA("F",FAKNr,BONNr,LNr)) Quit:LNr'?3.4N  Do
	. . . . . Set LRec=^KFA("F",FAKNr,BONNr,LNr)
	. . . . . Set PRNr=$P(LRec,"\",2)
	. . . . . Quit:'PRNr
	. . . . . Quit:$P(LRec,"\",17)="KF5"
	. . . . . Set Qty=$P(LRec,"\",3)
	. . . . . Quit:Qty<1
	. . . . . Set Gewicht=$$GetOrOld^PRODUKT(PRNr,$$$Gewicht)/1000
	. . . . . Quit:'Gewicht
	. . . . . Set IsHalux=$$GetOrOld^PRODUKT(PRNr,$$$LeveranciersNr)=$$$LevHalux

    . . . . . Set SomGewicht("ALLE",BKJaar)=$G(SomGewicht("ALLE",BKJaar))+(Qty*Gewicht)
    . . . . . Set:IsHalux SomGewicht("HALUX",BKJaar)=$G(SomGewicht("HALUX",BKJaar))+(Qty*Gewicht)
 zw SomGewicht
 Quit

StatMnd 
 Set Dev=$$OPEN^vhDEV(,"Qty HalfFab Halux.txt","W","T")
 Use Dev
 Set KLNr=0
 Write "KLNr	PRNr	KortTekst	GenTyp	SubGenTyp	Maand	Aantal	AantalHalfFab",!
 For  Set KLNr=$O(^KSTKL(KLNr)) Quit:KLNr=""  Do  ;q:KLNr>1007
 . Set PRNr=0
 . For  Set PRNr=$O(^KSTKL(KLNr,PRNr)) Quit:PRNr=""  Do
 . . Set KT=$P($G(^KPR(PRNr,0)),D,1)
 . . Quit:$E(KT,1,3)="GEN"
 . . Quit:$$GetOrOld^PRODUKT(PRNr,$$$LeveranciersNr)'=$$$LevHalux
 . . Set CntHalfFab=$$NbrHalfFab(PRNr)
 . . Quit:'CntHalfFab
 . . Set GenTyp=$$GENTYP^HAD(PRNr,1)
 . . Set Mnd=0
 . . For  Set Mnd=$O(^KSTKL(KLNr,PRNr,Mnd)) Quit:Mnd=""  Do
 . . . Set Maand=$$INTDATE^vhLib.DataTypes(Mnd,"DM4")
 . . . Set Qty=$P(^KSTKL(KLNr,PRNr,Mnd),"\",1)
 . . . Quit:Qty<1
 . . . Write KLNr,*9,PRNr,*9,KT,*9,$P(GenTyp,"\"),*9,$P(GenTyp,"\",2),*9,$$$ExcelDat(Maand),*9,$$$ExcelNum(Qty),*9,$$$ExcelNum(CntHalfFab),!
 Do CLOSE^vhDEV(Dev)
 Quit
 q
 
NbrHalfFab(PRNr)	New CntHalfFabr,BSKey
	Set CntHalfFabr="",BSNode="BS"
	Set BSKey=""
	For  Set BSKey=$O(^PRBS(BSNode,PRNr,BSKey)) Quit:BSKey=""  Do
	. Set:$P(^PRBS(BSNode,PRNr,BSKey),"\",3)="H" CntHalfFabr=CntHalfFabr+1
	Quit CntHalfFabr
 
 
PlaatMat 
 Set Dev=$$OPEN^vhDEV(,"Plaatmat.txt","W","T")
 Use Dev
 Set KLNr=0
 Write "KLNr	Naam	Regio	PRNr	KortTekst	GenTyp	SubGenTyp	Maand	Aantal",!
 Set PRNr=0
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 . Set KT=$P($G(^KPR(PRNr,0)),D,1)
 . Quit:'((KT?1"SLF".E)||(KT?1"SPP".E)||(KT?1"SPF".E))
 .WRite PRNr,*9,KT,*9,$$$ExcelNum($$$PRGet($$$CifPPLEUR)),!
 Do CLOSE^vhDEV(Dev)
 Quit
 q

KomLinkMetStock
 Set Device=0 ;$$OPEN^vhDEV(,"StatIO.txt","W","T")
 Use Device
 Write "KLNr	ORDNr	PRNr	Korttekst	ToeLev	OrderQty	FysStock	AantalOrdlijnen",!
 Set KLNr=""
 For  Set KLNr=$O(^KOD(KLNr)) Quit:KLNr=""  Do
 .
 . Quit:KLNr=6780
 . Quit:KLNr=4100
 .
 . Set ORDNr=""
 . For  Set ORDNr=$O(^KOD(KLNr,"F",ORDNr)) Quit:ORDNr=""  Do
 . . Set OLNr=""
 . . For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr=""  Do
 . . . Set LijnRec=^(OLNr)
 . . . Set PRNr=$P(LijnRec,"\",2)
 . . . Quit:PRNr'?4.8N
 . . . Quit:$$$PRGet($$$LeveranciersNr)'=$$$LevHalux
 . . . Set FysStock=$$GETSTOCK^PRODUKT4(PRNr,"F")
 . . . Set KomLink=$P(LijnRec,"\",27)
 . . . Quit:'((KomLink?6N)&&(+FysStock'=0))
 . . . Set NbrOfLines=0
 . . . Set (TmpORDNr,TmpOLUNr)=""
 . . . For  Set TmpORDNr=$O(^ORD("IP",PRNr,TmpORDNr)) Quit:TmpORDNr=""  Do 
 . . . . For  Set TmpOLUNr=$O(^ORD("IP",PRNr,TmpORDNr,TmpOLUNr)) Quit:TmpOLUNr=""  Set NbrOfLines=NbrOfLines+1 
 . . . Set OrdQty=$P(LijnRec,"\",3)
 . . . Write KLNr,*9,ORDNr,*9,PRNr,*9,$$$PRGet($$$KortTekst),*9,KomLink, *9,OrdQty, *9,FysStock,*9,NbrOfLines-1
 . . . Write !
 
 Do CLOSE^vhDEV(Device)
 
 Quit

PickingWho
 Set Device=$$OPEN^vhDEV(,"StatIO.txt","W","T")
 Use Device
 Write "KLNr	BONNr	Datum	Tijd	Vzw	Persoon	SoftMag	PickAantal	PRNr	KortTekst",!
 Set CONSNr=""
 For  Set CONSNr=$O(^ORDW("D",CONSNr)) Quit:CONSNr=""  Do
 . Set ORDNr=""
 . For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do
 . . Set OLUNr=""
 . . For  Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do
 . . . Set Rec=^(OLUNr)
 . . . Set LijnCnt=0
 . . . Set SOLNr=""
 . . . For  Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)) Quit:SOLNr=""  Do
 . . . . Set SOLRec=^(SOLNr)
 . . . . Set SoftMag=$P(SOLRec,"\",13)
 . . . . Set User=$P(SOLRec,"\",12)
 . . . . Set TijdStip=$P(SOLRec,"\",6)
 . . . . Set PRNr=$P(SOLRec,D,1)
 . . . . Set KLNr=$P(^ORDW("D",CONSNr),"\")
 . . . . Write KLNr,*9,CONSNr,*9,$$$ExcelDat(TijdStip),*9,$$$ExcelTime($P(TijdStip,",",2)),*9,$P(^ORDW("D",CONSNr),"\",2),*9,User,*9,SoftMag,*9,$P(SOLRec,D,4),*9,PRNr,*9,$$GetOrOld^PRODUKT(PRNr,$$$KortTekst)
 . . . . Write !
 
 Do CLOSE^vhDEV(Device)
 
 Quit
 
REDO
	Merge Fetch=^MRPRESLog(63720,82822,"MARK")
	zw Fetch
	Do CLOSE^MRPRES("Fetch")
	Quit
	
ReceptieMaatwerk2
	Set Device=$$OPEN^vhDEV(,"DagProd.txt","W","T")
	Use Device
	Write "PRNr	KortTekst	Datum	Tijd	GenTyp	Aantal",!
	Set PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Set KortT=$$$PRGet($$$KortTekst)
 	. Set GenTyp=$$GENTYP^HAD(PRNr,1)
 	. Quit:($P(GenTyp,"\")'="TBX")&&($P(GenTyp,"\")'="LBX") ;&&($P(GenTyp,"\")'="TAO")
  	. For  Set Key=$O(^PRHIST(PRNr,Key)) Quit:Key=""  Do
 	. . Set Rec=^PRHIST(PRNr,Key)
 	. . Quit:$P(Rec,"\",5)'="M"
 	. . Quit:$P(Rec,"\",4)'="I"
	. . Set Datum=+$P(Rec,"\")
	. . Quit:Datum<($H-50)
	. . Write PRNr,*9,KortT,*9,$$$ExcelDat(Datum),*9,$$$ExcelTime($P($P(Rec,"\"),",",2)),*9,$P(GenTyp,"\"),*9,$P(Rec,"\",2)
	. . Write !
	Do CLOSE^vhDEV(Device)
	Quit
	
	
	
ReceptieMaatwerk
	Set Device=$$OPEN^vhDEV(,"DagProd.txt","W","T")
	Use Device
	Write "Datum	GenType	Telbaar	Aantal",!
	Set PRNr=0
	Kill Cache,VoorraadCache
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Set KortT=$$$PRGet($$$KortTekst)
	. Set Telbaar=$$$PRGet($$$Telbaar) ; nodig voor TA'OR Bulk in onderdelen
	. Set Telbaar=$S(Telbaar="":"*",1:Telbaar)
 	. Set GenTyp=$$GENTYP^HAD(PRNr,1)
 	. Quit:($P(GenTyp,"\")'="TBX")&&($P(GenTyp,"\")'="LBX") ;&&($P(GenTyp,"\")'="TAO")
 	. Set Voorraad=$P($G(^PRSTOCK("D",PRNr)),"\",1)
 	. If Voorraad>0 Set VoorraadCache(PRNr,$P(GenTyp,"\",1),Telbaar)=Voorraad
 	. Set Key=""
 	. Set Cumul="",Aantal=""
 	. For  Set Key=$O(^PRHIST(PRNr,Key)) Quit:Key=""  Do
 	. . Set Rec=^PRHIST(PRNr,Key)
 	. . Quit:$P(Rec,"\",5)'="M"
 	. . Quit:$P(Rec,"\",4)'="I"
	. . Set Datum=+$P(Rec,"\")
	. . Set Cache(Datum,$P(GenTyp,"\"),$S(Telbaar="":"*",1:Telbaar))=$G(Cache(Datum,$P(GenTyp,"\"),$S(Telbaar="":"*",1:Telbaar)))+$P(Rec,"\",2)
	;zw Cache
	Set Datum="",GenTyp="",Telbaar=""
	For  Set Datum=$O(Cache(Datum)) Quit:Datum=""  Do
	. For  Set GenTyp=$O(Cache(Datum,GenTyp)) Quit:GenTyp=""  Do
	. . For  Set Telbaar=$O(Cache(Datum,GenTyp,Telbaar)) Quit:Telbaar=""  Do
	. . . Write $$$ExcelDat(Datum),*9,GenTyp,*9,Telbaar,*9,Cache(Datum,GenTyp,Telbaar),!
	Do CLOSE^vhDEV(Device)
	Set Device=$$OPEN^vhDEV(,"VoorraadProd.txt","W","T")
	Use Device
	Write "PRNr	GenType	Telbaar	Aantal",!
	Set PRNr=""
	Set GenTyp="",Telbaar=""
	For  Set PRNr=$O(VoorraadCache(PRNr)) Quit:PRNr=""  Do
	. For  Set GenTyp=$O(VoorraadCache(PRNr,GenTyp)) Quit:GenTyp=""  Do
	. . For  Set Telbaar=$O(VoorraadCache(PRNr,GenTyp,Telbaar)) Quit:Telbaar=""  Do
	. . . Write PRNr,*9,GenTyp,*9,Telbaar,*9,VoorraadCache(PRNr,GenTyp,Telbaar),!
	Do CLOSE^vhDEV(Device)
	Quit 
FacturatieMaatwerk
	Set Device=$$OPEN^vhDEV(,"DagFacturatie.txt","W","T")
	Use Device
	Write "Datum	GenType	Telbaar Aantal",!
	Kill Cache
	Set KLNr=0
	Set BeginDatum=$$CALCDATE^vhLib.DataTypes($H,"BJ","FD",0)
	Set EindDatum=+$H
	For  Set KLNr=$O(^KFA1("F",KLNr)) Quit:KLNr=""  Do
	. Set KlKey=^KK1(KLNr)
	. Set Regio=$P(^KKL(KlKey,0),"\",20)
	. Set Datum="" ; beginnen vanaf vandaag omdat orders van vorige maand ook in facturen van vandaag kunnen zitten
	. For  Set Datum=$O(^KFA1("F",KLNr,Datum)) Quit:Datum=""  Do
	. . Quit:-Datum>EindDatum
	. . Quit:-Datum<BeginDatum
	. . Set BKJaar=$$CALCDATE^vhLib.DataTypes(-Datum,"BJ","LD")
	. . Set FAKNr=""
 	. . For  Set FAKNr=$O(^KFA1("F",KLNr,Datum,FAKNr)) Quit:FAKNr=""  Do
	. . . Set BONNr="U"
	. . . For  Set BONNr=$O(^KFA("F",FAKNr,BONNr)) Quit:$E(BONNr)'="U"  Do
	. . . . Set BonRec=^KFA("F",FAKNr,BONNr,1)
	. . . . Set Vzw=$E($P(BonRec,"\",7),1,3)
	. . . . Set LNr=99
	. . . . For  Set LNr=$O(^KFA("F",FAKNr,BONNr,LNr)) Quit:LNr'?3.4N  Do
	. . . . . Set LRec=^KFA("F",FAKNr,BONNr,LNr)
	. . . . . Quit:$P(LRec,"\",17)="KF5"
	. . . . . Quit:($P(LRec,"\",14)["Z")||($P(LRec,"\",14)["S") ;zonder stockaanpassing
	. . . . . Set PRNr=$P(LRec,"\",2)
	. . . . . Quit:'PRNr
	. . . . . Set Telbaar=$$$PRGet($$$Telbaar) ; nodig voor TA'OR Bulk in onderdelen
	. . . . . Set:Telbaar=3 Telbaar=Telbaar_" "_PRNr
 	. . . . . Set GenTyp=$$GENTYP^HAD(PRNr,1)
 	. . . . . Quit:($P(GenTyp,"\")'="TBX")&&($P(GenTyp,"\")'="LBX")&&($P(GenTyp,"\")'="TAO")
	. . . . . Set Qty=$P(LRec,"\",3)
	. . . . . Quit:Qty<1
 	. . . . . Set Cache(-Datum,$P(GenTyp,"\"),$S(Telbaar="":"*",1:Telbaar))=$G(Cache(-Datum,$P(GenTyp,"\"),$S(Telbaar="":"*",1:Telbaar)))+Qty

	Set Datum="",GenTyp="",Telbaar=""
	For  Set Datum=$O(Cache(Datum)) Quit:Datum=""  Do
	. For  Set GenTyp=$O(Cache(Datum,GenTyp)) Quit:GenTyp=""  Do
	. . For  Set Telbaar=$O(Cache(Datum,GenTyp,Telbaar)) Quit:Telbaar=""  Do
	. . . Write $$$ExcelDat(Datum),*9,GenTyp,*9,Telbaar,*9,Cache(Datum,GenTyp,Telbaar),!
	Do CLOSE^vhDEV(Device)
	Quit
X
	s bl=##class(APPS.StockBeheer.impl.PalletLijstMetWaarde).%New()
 	Set bl.LocM=1
	Set Device=$$OPEN^vhDEV(,"PalletLijstMetWaarde.txt","W","T")
	
	Do bl.WriteHeader()
	;Do bl.WriteLines()
	Do CLOSE^vhDEV(Device)
	q
KKAAR
	Set Dat=""
	For  Set Dat=$O(^KKAAR(Dat)) Quit:Dat=""  Do
	. Set Reg=""
	. Set Omz=0
	. For  Set Reg=$O(^KKAAR(Dat,Reg)) Quit:Reg=""  Do
	. . Set Omz=Omz+$P(^KKAAR(Dat,Reg),D,1)
	. .
	. W Dat,*9,$J(Omz,0,0),!
	Quit

MetaTag
	Set PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Set Rec15=$G(^KPR(PRNr,15))
 	. Set MetaTag=$P(Rec15,D,10)
	. Set Dim=$P(Rec15,D,7)
	. If "PR"[MetaTag, Dim ,"ST"'[$P(Rec15,D,9) Do
	. . w PRNr," ",$$$PRGet($$$KortTekst)," L=",Dim, " ",$P(Rec15,D,9)," ",MetaTag,!
	. . d $$$PRSet($$$WerkvloerMetaTag,"PR1DIM")
	. ;If "PR"'[MetaTag, 'Dim Do
	. ;. w PRNr," ",$$$PRGet($$$KortTekst)," L=geen",Dim, " ",$P(Rec15,D,9)," ",MetaTag,!
	Quit
TRANSP
	Set Dev=$$OPEN^vhDEV(,"Transport.txt","W","T")
	Use Dev
	k CT
	Write "Transportteur	Transport	Datum	BonNr	Rembours	Gewicht	KLNr	Regio	Naam	Straat	Postcode	Gemeente	Land	Collie	Europallet	Langgoed	HalvePallet	BuitenMaats",!
	Set TNr=""
	For  Set TNr=$O(^TRANSP("D",TNr)) Quit:TNr=""  Do
	. Set TransporteurNr=$P(^TRANSP("D",TNr),"\")
	. Set Transporteur=$P(^KLE(^KL1(TransporteurNr),0),"\",2)
	. Set ANr=""
	. For  Set ANr=$O(^TRANSP("D",TNr,"D",ANr)) Quit:ANr=""  Do
	. . Quit:$P($P(^TRANSP("D",TNr,"D",ANr),"\",10),",")<$$INTDATE^vhLib.DataTypes("01-01-2013")
	. . Set KLNr=$P(^TRANSP("D",TNr,"D",ANr),"\")
	. . ;Set KLNr=$P($G(^KU1(ANr,"F")),"\")
	. . Quit:'KLNr
	. . For FakSoort="F","G","M" Quit:$D(^KUL(KLNr,FakSoort,ANr))
	. . Quit:'$D(^KUL(KLNr,FakSoort,ANr))
	. . Set Adres=^KUL(KLNr,FakSoort,ANr,3)
	. . Set Regio=$P(^KKL(^KK1(KLNr),0),"\",20)
	. . If $P(Adres,"\",2)="" Do ; default klant
	. . . Set Adres=^KKL(^KK1(KLNr),0)
	. . Write Transporteur,*9,TNr,*9,$$EXTDATE^vhLib.DataTypes($P($P(^TRANSP("D",TNr,"D",ANr),"\",10),",")),*9,ANr,*9,$S($P(^TRANSP("D",TNr,"D",ANr),"\",2)>0:"R",1:""),*9,$$$ExcelNum($P(^TRANSP("D",TNr,"D",ANr),"\",3)),*9,KLNr,*9,Regio
	. . Write *9,$P(Adres,"\",2),*9,$P(Adres,"\",5),*9,$P(Adres,"\",6),*9,$P(Adres,"\",7),*9,$$LAND^vhRtn1($P(Adres,"\",8))
	. . For Collie="C","E","L","P","B" Do
	. . . Write *9,$P($G(^TRANSP("D",TNr,"D",ANr,"Q",Collie)),"\")
	. . Write !
	. . ;Merge CT=^TRANSP("D",TNr,"D",ANr,"Q")
	Do CLOSE^vhDEV(Dev)
	;zw CT
 	Quit

TESTPR
	Set PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Set Prijs=$$KLANTPR^KPRIJS(1000,PRNr)
	. Set Prijs=$$KLANTPR^KPRIJS(1000,PRNr,"S")
	. ;w !,PRNr,":"
	. ;s Cnt=$$CntObj()
	. ;w !,"cnt",Cnt,!
	Quit 
	
CntObj()
	Set rs=##class(%ResultSet).%New("%SYSTEM.OBJ:ObjectList")
	do rs.Execute()
	s Cnt=0
	While rs.Next()
	{
		;w rs.Data("OREF")," "
		Set Cnt=Cnt+1
	}
	Quit Cnt

NAWERK
	Set CRef=$$OPEN^MRPRES() ; Aanmaak van de cache
	Merge @CRef=^MRPRESLog(63172,56252,"FETCH")
	Do CLOSE^MRPRES(CRef) 
	q

LEVVW
	Set KLNr=0
	;Set lbRegios=$Lb(98,99,3)
	Set BIndex=403
	For  
	{ Set KLNr=$O(^KK1(KLNr)) Quit:KLNr=""  
		Set oKlant=##class(Derde.Klant.Klant).%OpenId(KLNr)
		Continue:'$isObject(oKlant)
		Set Regio=oKlant.Sektor
 		Set KlKey=^KK1(KLNr),Node=BIndex\100-1,Piece=BIndex#100
 		Set R=$G(^KKL(KlKey,Node)),OldValue=$P(R,D,Piece)
		continue:'((OldValue=60)||(OldValue=64))
 		Write KLNr," ",oKlant.Naam," ",Regio," ",OldValue,!
		Do MODFIELD^KLANT(KLNr,BIndex,65)
	}
	Quit
 
 
ChangeMag(CONSNr,FromMag,ToMag)
 Set ORDNr=""
 Set BonCnt=0
 For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do
 . Set OLUNr=""
 . For  Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do
 . . Set Rec=^(OLUNr)
 . . Set LijnCnt=0
 . . Quit:'(($P(Rec,"\",2)="P")||($P(Rec,"\",2)="W"))
 . . Set SOLNr=""
 . . For  Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)) Quit:SOLNr=""  Do
 . . . Set SOLRec=^(SOLNr)
 . . . Quit:'($P(SOLRec,"\",2)="W")
 . . . If $P(SOLRec,"\",13)=FromMag Do
 . . . . Set $P(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr),"\",13)=ToMag
 . . . . Set BonCnt=BonCnt+1
 . . . . Set LijnCnt=LijnCnt+1
 . . If LijnCnt Do
 . . . Set $P(^ORDW("D",CONSNr,"D",ORDNr,OLUNr),"\",8)=$TR($P(^ORDW("D",CONSNr,"D",ORDNr,OLUNr),"\",8),FromMag,ToMag)

 If BonCnt Do
 . Merge ^ORDW("D",CONSNr,"S",ToMag)=^ORDW("D",CONSNr,"S",FromMag)
 . Kill ^ORDW("D",CONSNr,"S",FromMag)
 . Set ^ORDW("IW",CONSNr)=$TR(^ORDW("IW",CONSNr),FromMag,ToMag)
 Quit
 
Scholen
	Set KLID=$O(^KKL(0))
	Set NewCodex="L"
	While KLID'=""  
	{
		Set KLNr=$P(^KKL(KLID,0),"\")
		Set Aktiviteit=$$GetActiviteit^KLANT5(KLNr)
		If Aktiviteit="Scholen"
		{
			
			W !,KLNr," ",KLID," ",Aktiviteit," ", $P(^KKL(KLID,2),"\",3)," ", $P(^KKL(KLID,2),"\",4)," ", $P(^KKL(KLID,2),"\",32)
			
			Do MODFIELD^KLANT(KLNr,303,NewCodex)
			Do MODFIELD^KLANT(KLNr,304,NewCodex)
			Do MODFIELD^KLANT(KLNr,332,NewCodex)
		}
		Set KLID=$O(^KKL(KLID))
	}
	Quit
	
GetLocation(LocId)
	Set (LocM,LocG,LocX,LocY, LocTrans)=""
	&SQL( SELECT l.loc_M, l.loc_g, l.loc_x, l.loc_y, loc_trans
	into LocM,LocG,LocX,LocY, LocTrans
	FROM EWMS.Locations l
	left outer join EWMS.Transloc t on l.loc_m=t.loc_m and l.loc_g=t.loc_g and l.loc_x=t.loc_x and l.loc_y=t.loc_y
	WHERE (loc_id = :LocId) and l.loc_m<5
	)
	If $G(LocM)=""
	{
		Set Result=""
	}
	elseif LocTrans=""
	{
		Set Result=$E(100+LocM,2,3)_" "_$E(100+LocG,2,3)_" "_$E(100+LocX,2,3)_" "_$E(100+LocY,2,3)
	}
	else 
	{
		Set Result=##class(EWMS.TransLoc).FormatLocTrans(LocTrans)
	}
	Quit Result
	
MergeORDW ; Tijdelijk copieren van ORDW om de Dueout tijdstip te controleren
	Set Tijdstip=$O(^PVORDW(""))
	While Tijdstip'=""
	{
		
		If +$zdth(Tijdstip,3)<(+$H-7)
		{
			Kill ^PVORDW(Tijdstip)
		}
		Set Tijdstip=$O(^PVORDW(Tijdstip))
	}
	
	Set Tijdstip=$ZDT($H,3)
	Merge ^PVORDW(Tijdstip,"D")=^ORDW("D")
	Quit
	
TBXRug(PRNr)
	Quit:'PRNr ""
	Quit $P($G(^PRBS("BS",PRNr,"PRRUGLI.001")),"\",1)
	
TBXRugOms(PRNr)
	S HFPRNr=$$TBXRug(PRNr)
	Quit:'HFPRNr ""
	Quit $P($G(^KPR(HFPRNr,0)),"\")
TBXRug2(PRNr)
	Quit:'PRNr ""
	Quit $P($G(^PRBS("BS",PRNr,"PRRUGRE.001")),"\",1)
TBXRugOms2(PRNr)
	S HFPRNr=$$TBXRug2(PRNr)
	Quit:'HFPRNr ""
	Quit $P($G(^KPR(HFPRNr,0)),"\")
	
KadDB
	Kill Gen
	Set PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1,2)
	. Quit:GenTyp'?1(1"KAD\",1"PRF\",1"GLA\")
	. w PRNr," ",$$$PRGet($$$KortTekst),!
	. do $$$PRSet($$$SchaduwDBPerc,55.48)
	. do $$$PRSet($$$SchaduwCifPerc,6.00)
	Quit
	
TBXProDB
	Kill Gen
	Set PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do:PRNr<288134
	. Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1,2)
	. Quit:GenTyp'?1(1"TBX\PR+",1"TBX\PRO")
	. w PRNr," ",GenTyp," ",$$$PRGet($$$KortTekst),!
	. do $$$PRSet($$$SchaduwDBPerc,"")
	. do $$$PRSet($$$SchaduwCifPerc,"")
	Quit
TBXV1DB
	Kill Gen
	Set PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1,2)
	. Quit:GenTyp'?1(1"TBX\").E
	. Quit:GenTyp?1(1"TBX\PR+",1"TBX\PRO")
	. w PRNr," ",GenTyp," ",$$$PRGet($$$KortTekst),!
	. do $$$PRSet($$$SchaduwDBPerc,50.65)
	. do $$$PRSet($$$SchaduwCifPerc,5)
	Quit 
TBXDeDecker
	Kill Gen
	Set PRNr=0
	For  Set PRNr=$O(^PRBS("BS",PRNr)) Quit:PRNr=""  Do
	. Quit:$E($O(^PRBS("BS",PRNr,"CORR")),1,4)'="CORR"
	. Set Rec=^PRBS("BS",PRNr,"CORR.001")
	. If $P(Rec,"\",3)="S",Rec["Correctie ONDERDEEL -> ZONDER ONDERDEEL" Do
	. . Set $P(Rec,"\",2)=0
	. . Set ^PRBS("BS",PRNr,"CORR.001")=Rec
	. . Write PRNr," ",Rec,!
	. Else
	. . Write PRNr," GEEN GOEDE CORR ",Rec,!
	Quit 
Rug
	Kill Gen
	Set PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Set KortT=$$$PRGet($$$KortTekst)
	. Quit:$E(KortT,1,3)'="Z30"
	. Quit:KortT?1"Z30"1A1"000".E
	. Quit:$E($$$PRGet($$$IdentNummer))'="0"
	. w PRNr," ",$$$PRGet($$$KortTekst),!
	. do $$$PRSet($$$SchaduwDBPerc,58.00)
	Quit 
	 
DISP
 
 Set Kleur(0)=$$HEX^vhRtn1("1C,38") ;Geel - geen afhaling
 Set Kleur(1)=$$HEX^vhRtn1("1C,37") ;Oranje - dringend
 Set Kleur(2)=$$HEX^vhRtn1("1C,31") ;Rood - afhaling
 Set Kleur(3)=$$HEX^vhRtn1("1C,31") ;Rood - superspoed
 Set Kleur(9)=$$HEX^vhRtn1("1C,35") ;Dim green
 
  Set IPaddr="192.168.7.251"
 Set Dev="|TCP|4"
 
 OPEN Dev:(IPaddr:3001::$CHAR(3,4)):5 Else  Quit
 
 Use Dev
 
 Write $$HEX^vhRtn1("0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,01,5A,30,30,02") ; Broadcast naar alle displays
 Write $$HEX^vhRtn1("41,41") ; Write tot file "A"
 ;Write $$HEX^vhRtn1("1B,20")
 Write $$HEX^vhRtn1("1B,20,62")
 
 IF 1 Do
 . Write Kleur(3),""_"xqderdfdfsfdsf"_$r(100)
 
 If 0  Do  ; Datum en tijd
 . Write $S($P($G(Cnt),D,4):$$HEX^vhRtn1("63"),1:$$HEX^vhRtn1("62"))
 . Write $$HEX^vhRtn1("1D,30,31") ; dubbelstroke
 . Write Kleur(9),$$HEX^vhRtn1("0B,31,20,13")
 
 Write $$HEX^vhRtn1("04")
 
 Close Dev
 
 q
 
 
 
Vzw
	Set Vzw=""
	For  Set Vzw=$o(^RES("KLANT","PI","VERZENDWIJZE","D",Vzw)) Quit:Vzw=""  Do
	. Q:Vzw'?1"VT"1N
	. Write Vzw," "
	. S $P(^RES("KLANT","PI","VERZENDWIJZE","D",Vzw),"`",15)="LEVBON_ORGALUX"
	q
H
 	Set Dev=$$OPEN^vhDEV(,"Recepties Halux.txt","W","T")
	Use Dev
	
 	Set PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Set GenTyp=$$GENTYP^HAD(PRNr)
	. Quit:'(($P(GenTyp,"\")="TBX")||($P(GenTyp,"\")="LBX"))
	. Do HOne(PRNr,.C)
	Do CLOSE^vhDEV(Dev)
	Q
 
HOne(PRNr,GenTyp) 
 ;Begin,Einde : $H formaat
 ;Actie : Zie RES(PRHIST,PI,BEPERK)
 ;Magazijn : M = Magazijn, W = Werkvloer, K = Stock over kind, Z = Zonderstock
 ;Cumul, Aantal oproep via .Local (byRef)
 New Key,I,Rec
 Set KT=$$$PRGet($$$KortTekst)
 Set Actie="I"
 Set Magazijn="M"
 Set Begin=$$CALCDATE^vhLib.DataTypes($H,"M","FD",-10)
 Set Einde=$$CALCDATE^vhLib.DataTypes($H,"M","LD",-1)
 Set Verpakking=$$GeefVerpakking^HATBXLeanLijst(PRNr)
 Set Key=""
 For  Set Key=$O(^PRHIST(PRNr,Key)) Quit:Key=""  Do
 . Set Rec=^PRHIST(PRNr,Key)
 . Quit:+$P(Rec,"\")<Begin
 . Quit:+$P(Rec,"\")>Einde
 . Quit:$P(Rec,"\",5)'=Magazijn
 . Quit:$P(Rec,"\",4)'=Actie
 . Write PRNr,*9,KT,*9,$$$ExcelDat($P(Rec,"\")),*9,$$$ExcelNum($P(Rec,"\",2)),*9,Verpakking,!
 Quit
 
 
 ;<STATUS>\n   <TYPE>CUT</TYPE>\n   <ID>628685</ID>\n   <STATUS>4</STATUS>\n   <ServerName>SMALL</ServerName>\n   <MESSAGE>SUCCESSFULLY PROCESSED</MESSAGE>\n   <PROCESSID>1</PROCESSID>\n </STATUS>\n 
 ;<STATUS>\n   <TYPE>MACHINE</TYPE>\n   <ID>1</ID>\n   <STATUS>1</STATUS>\n   <ServerName>SMALL</ServerName>\n   <MESSAGE>Online - Machine in Automatic Mode - Machine in Idle Mode</MESSAGE>\n   <PROCESSID>0</PROCESSID>\n </STATUS>\n 
 ;<STATUS>\n   <TYPE>CUT</TYPE>\n   <ID>628686</ID>\n   <STATUS>3</STATUS>\n   <ServerName>SMALL</ServerName>\n   <MESSAGE>PROCESSING</MESSAGE>\n   <PROCESSID>1</PROCESSID>\n </STATUS>\n 
 
Status
	W "1"
	Set oS=##class(BL.Prod.OptiBox.sub.pxStatus).%New()
	Set oS.Type="CUT"
	Set oS.ID=628685
	Set oS.Status=4
	Set oS.Message="SUCCESSFULLY PROCESSED"
	Set oS.ProcessID=1
 
	Set ws=##class(WS.Prod.OptiBox.OptimizerServer).%New()
	Do ws.EventNotification(oS)
 
	W "2"
	
	Set oS=##class(BL.Prod.OptiBox.sub.pxStatus).%New()
	Set oS.Type="MACHINE"
	Set oS.ID=1
	Set oS.Status=1
	Set oS.Message="Online - Machine in Automatic Mode - Machine in Idle Mode"
	Set oS.ProcessID=0
	Set ws=##class(WS.Prod.OptiBox.OptimizerServer).%New()
	Do ws.EventNotification(oS)
	
	W "3"
	
	Set oS=##class(BL.Prod.OptiBox.sub.pxStatus).%New()
	Set oS.Type="CUT"
	Set oS.ID=628686
	Set oS.Status=3
	Set oS.Message="PROCESSING"
	Set oS.ProcessID=1
	Set ws=##class(WS.Prod.OptiBox.OptimizerServer).%New()
	Do ws.EventNotification(oS)
	
	w "4"
	Set ws=##class(WS.Prod.OptiBox.OptimizerServer).%New()
	Set x=ws.AreYouAlive()
 
 
	Q	
 
 
Kad
	Kill Gen
	Set PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1,2)
	. Quit:GenTyp'?1(1"KAD\",1"PRF\",1"GLA\")
	. Set LT=$$$PRGet($$$LeveringsTermijn)
	. ;Write PRNr,*9,$$$PRGet($$$KortTekst),*9,LT,!
	. Set:$P(^KPR(PRNr,0),"\",3) Gen($P(^KPR(PRNr,0),"\",3))=""
	;
	Set PRNr=""
	For  Set PRNr=$O(Gen(PRNr)) Quit:PRNr=""  Do
	. w PRNr
	. do $$$PRSet($$$LeveringsTermijn,0)
	Quit 
	
Stock
 Set MPRNr=$$SELECT^PRODUKT6()
 Do StartTimer^vhLib
 Kill Teller
 Set BSKey=""
 For  Set BSKey=$O(^PRBS("BS",MPRNr,BSKey)) Quit:BSKey=""  Do
 . Quit:$P(^PRBS("BS",MPRNr,BSKey),"\",3)'="K"
 . Set KPRNr=$P(^PRBS("BS",MPRNr,BSKey),"\",1)
 . Quit:'KPRNr
 . Set lbOrder=$$GetOrders(KPRNr)
 . Set lbToeLev=$$GetToeLev(KPRNr)
 . Set Teller("KIND")=$G(Teller("KIND"))+1
 . set AantalKinderenNodig = $P(^PRBS("BS",MPRNr,BSKey),"\",2)
 . Set Rec=$G(^PRSTOCK("D",KPRNr))
 . set FysischKind = $P(Rec,D,1)
 . set idxMoeder = ""
 . set AantalMoedersMogelijk=""
 . for  set idxMoeder = $o(arMoeders(idxMoeder)) q:idxMoeder=""  do
 . . set AantalMogelijk = ##class(TECH.Math).Floor(arMoeders(idxMoeder)/AantalKinderenNodig)
 . . quit:AantalMogelijk<0
 . . if '$length(AantalMoedersMogelijk) set AantalMoedersMogelijk = AantalMogelijk 
 . . else  if (AantalMoedersMogelijk > AantalMogelijk) set AantalMoedersMogelijk = AantalMogelijk
 . . 
 
 Do StopTimer^vhLib
 w @F11,@F1
 w !,MPRNr," ",$P(^KPR(MPRNr,0),"\")_" "_"aantal mogelijk : "_AantalMoedersMogelijk,!
 Write $$GetInterval^vhLib(),!
 zw Teller
 
 
 
 Quit
 
GetOrders(KPRNr)
 New MPRNr,BSKey
 Set MPRNr=""
 For  Set MPRNr=$O(^PRBS("IP",KPRNr,MPRNr)) Quit:MPRNr=""  Do
 . Set BSKey=""
 . Set Found=0
 . For  Set BSKey=$O(^PRBS("IP",KPRNr,MPRNr,BSKey)) Quit:BSKey=""  Quit:Found  Do
 . . Set Found=$P(^PRBS("IP",KPRNr,MPRNr,BSKey),"\")="K"
 . . Set:Found Teller("KINDMOEDER")=$G(Teller("KINDMOEDER"))+1
 . Set:Found lbOrder=$$GetMoederOrders(MPRNr)
 . Set:Found Teller("MOEDER")=$G(Teller("MOEDER"))+1
 . Set Rec=$G(^PRSTOCK("D",MPRNr))
 . set arOrder(MPRNr)=Rec
 Quit $G(lbOrder)
 
GetMoederOrders(MPRNr)
 Set ORDNr=""
 For  Set ORDNr=$O(^ORD("IP",MPRNr,ORDNr)) Quit:ORDNr=""  Do
 . Set OLUNr=""
 . For  Set OLUNr=$O(^ORD("IP",MPRNr,ORDNr,OLUNr)) Quit:OLUNr=""  Do
 . . Set OLNr=^(OLUNr)
 . . Set KLNr=$P(^KO1(ORDNr,"F"),"\")
 . . Set Qty=$P(^KOD(KLNr,"F",ORDNr,OLNr),"\",3)
 . . Set Teller("ORDER")=$G(Teller("ORDER"))+1
 . . Set arMoeders(MPRNr)=$Get(arMoeders(MPRNr))+Qty
 Quit ""
 
GetToeLev(KPRNr)
 Set TOENr=""
 For  Set TOENr=$O(^TO("IP",KPRNr,TOENr)) Quit:TOENr=""  Do
 . Set TLUNr=""
 . For  Set TLUNr=$O(^TO("IP",KPRNr,TOENr,TLUNr)) Quit:TLUNr=""  Do
 . . Set TLNr=^(TLUNr)
 . . Set LEVNr=$P(^KTO1(TOENr),"\")
 . . Set Qty=$P(^KTO(LEVNr,TOENr,TLNr),"\",3)
 . . Set Teller("TOE")=$G(Teller("TOE"))+1
 . . set arToe(KPRNr)=$G(arToe(KPRNr))+Qty
 
 Quit ""
 
 
 
 
 
Toegang
	#include BL.EC.Common
	;$$$blSession
	Set %ECSession=##class(Derde.EC.Session).%New()
	Set %ECSession.KlantNr=4943
	Set %ECSession.Taal="N"
	Set %Taal="N"
	
	;$$$blSession
	;do %blSession.SetKlant(4943,"N")
	$$$blProduct
	s PRNr=3551
	w !,PRNr," ",$P(^KPR(PRNr,0),"\")," : ",##class(BL.EC.Product).IsAllowed(PRNr),!
 
 	Q
GetNext(QueueID)
	; Translatie van QueueID naar batch
	&SQL(SELECT BatchID, Sequence 
	INTO :BatchID,:Sequence 
	FROM PPS.TBX_Queue 
	WHERE ID=:QueueID)
	
	; Volgende QueueID in de sequence ophalen
	&SQL(SELECT TOP 1 ID,Sequence
	INTO :NewID,:NewSequence
	FROM PPS.TBX_Queue 
	WHERE BatchID= :BatchID  and Sequence>:Sequence 
	order by Sequence
	)
	; tijdelijk DEBUG info - PV - 4/11/2010
	Set ^PVVerpakLookAhead(BatchID,$I(^PVVerpakLookAhead))=$LB($zdt($H,8),QueueID,Sequence,NewID,NewSequence)
	Quit
 
 
OD3
	Set Dev=$$OPEN^vhDEV(,"Klanten vzw.txt","W","T")
	Use Dev
	Set KLID=0
	For  Set KLID=$O(^KKL(KLID)) Quit:KLID=""  Do
	. Set Vzw=$P(^KKL(KLID,2),D,16)
	. Set KLNr=$P(^KKL(KLID,0),D,1)
	. Write $P(^KKL(KLID,0),D,1),*9,$P(^KKL(KLID,0),D,2),*9,$P(^KKL(KLID,0),D,6),*9,$P(^KKL(KLID,0),D,7),*9,$P(^KKL(KLID,0),D,8),*9,$$$ExcelNum($$KLANT^STAT(KLNr,0,"2009.10 ","2010.09 ",3)),*9,Vzw,!
	Do CLOSE^vhDEV(Dev)
	Quit
 	
OLTXT
 
 Set PRNr=0
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 . Set KT=$P(^KPR(PRNr,0),D,1)
 . Quit:$P($$GENTYP^HAD(PRNr),"\",1,2)'="DIV\ASM"
 . 
 . Set Orgalux=0
 . Set MPRNr=""
 . For  Set MPRNr=$O(^PRBS("IP",PRNr,MPRNr)) Quit:MPRNr=""  Do
 . . Quit:'$$ISORGAL^ORGALUX(MPRNr)
 . . Set Orgalux=MPRNr
 . Quit:'Orgalux
 . Set MPRNr=Orgalux
 . Write PRNr,*9,KT," -> " ;,MPRNr,*9,$P(^KPR(MPRNr,0),D,1),!
 . ;Write $P(^KPR(PRNr,4),D,1),!
 . Set LT=$P(^KPR(PRNr,4),D,1)
 . Set LT=$$REPLACE^vhRtn1(LT,"mat","mat ORGALUX") 
 . write LT,!
 . Set $P(^KPR(PRNr,4),D,1)=LT
 Quit
 
StatJB
 Set Dev=$$OPEN^vhDEV(,"Omzet MDS.txt","W","T")
 Use Dev
 Set KLNr=0
 Write "KLNr	Naam	Regio	PRNr	KortTekst	Aantal	Omzet",!
 For  Set KLNr=$O(^KSTKL(KLNr)) Quit:KLNr=""  Do  ;q:KLNr>1007
 .Set oKlant=##class(Derde.Klant.Klant).%OpenId(KLNr)
 .Set Divisie=oKlant.Divisie
 . Set PRNr=0
 . For  Set PRNr=$O(^KSTKL(KLNr,PRNr)) Quit:PRNr=""  Do
 . . Set KT=$P($G(^KPR(PRNr,0)),D,1)
 . . Quit:$E(KT,1,3)'="MDS"
 . . Set Omzet=$$KLANT^STAT(KLNr,PRNr,"20010.11 ","2011.10 ","1,4")
 . . Quit:'Omzet
 . . Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1,2)
 . . Set oProd=##class(Prod.Product).%OpenId(PRNr)
 . . Set ProductGroep=oProd.ProductGroep
 . . Write KLNr,*9,oKlant.Naam,*9,oKlant.Sektor,*9,PRNr,*9,KT,*9,$$$ExcelNum($P(Omzet,"\",1)),*9,$$$ExcelNum($P(Omzet,"\",3)),*9,$$$ExcelNum($P(Omzet,"\",4)),!
 Do CLOSE^vhDEV(Dev)
 Quit
 
 
 
AllProdVIL
	
 	
	Set Dev=$$OPEN^vhDEV(,"pROD.txt","W","T")
	Use Dev
	Set PRNr=""
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Set LT=$$$PRGet(123)
	. Write PRNr,*9,LT,!
	
	Do CLOSE^vhDEV(Dev)
	Quit
 
All
 
	Set Dev=0 ;$$OPEN^vhDEV(,"ProdBufferWeken2.txt","W","T")
	Use Dev
	Set PRNr=""
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Quit:'$$$PRGet($$$StockType)
	. Quit:$$$PRGet($$$BufferWeken)>1
	. Quit:$$$PRGet($$$LinkType)="S"
	. Write PRNr,*9,$$$PRGet($$$KortTekst)," ",$$$PRGet($$$StockType),"->",$$$PRGet($$$BufferWeken)," ",$$$PRGet($$$LinkType),!
	. Do $$$PRSet($$$BufferWeken,2)
 
	Do CLOSE^vhDEV(Dev)
	Quit
	
AllOL
 
	Set Dev=$$OPEN^vhDEV(,"Orgalux.txt","W","T")
	Use Dev
	Set PRNr=""
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Quit:'$$ISORGAL^ORGALUX(PRNr)
	. Write PRNr,*9,$$SORTKEY^PRODUKT(PRNr),*9,$$$PRGet($$$KortTekst),*9,$$$PRGet($$$NONAktief),*9,$$$PRGet($$$NotAvailableTo),!
		Do CLOSE^vhDEV(Dev)
	Quit
 
ResImage
	
 	Set blImg=##class(BL.Prod.ImageLink).Instantiate()
 	
	Set Dev=$$OPEN^vhDEV(,"ResImage.txt","W","T")
	Use Dev
	Write "PRNr	KortTekst	Stock	Verkoop	HasVerkoop	LastDat	LastJr	HasURL	URL",!
	Set PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Set Afgeleid=$$$PRGet($$$GenProduct)
	. Quit:(Afgeleid'="")&&(Afgeleid'?4.7N)
	. Set Stock=$$$PRGet($$$StockType)
	. Set LinkType=$$$PRGet($$$LinkType)
	. Set Stock=$S(Afgeleid?4.7N:"A",LinkType="K":"K",LinkType["H":"H",Stock:"S",1:"N")
	. Set IdentNr=$$$PRGet($$$IdentNummer)
	. Set VolgNr=""
	. Set Dat=""
	. For  Set VolgNr=$O(^PRHIST(PRNr,VolgNr),-1) Quit:VolgNr=""  Do  Quit:Dat'=""
	. . Set Actie=$P(^PRHIST(PRNr,VolgNr),"\",4)
	. . Set:Actie?1(1"U",1"H",1"I") Dat=+$P(^PRHIST(PRNr,VolgNr),"\")
	. Quit:$E(IdentNr)=6
	. Quit:$E(IdentNr)=7
	. Set KortTekst=$$$PRGet($$$KortTekst)
	. Set URL=blImg.GetProductImageURL(PRNr,##class(APPS.common.enu.Toepassing).Web())
	. Set Verkoop=$$PROD^STAT(PRNr,0,"2009.01 ","2010.01 ",1)
	. Set Jaar=$S(Dat="":0,1:$$EXTDATE^vhLib.DataTypes(Dat,"J4")>2008)
	. Write PRNr,*9,KortTekst,*9,Stock,*9,Verkoop,*9,(Verkoop>0),*9,$$$ExcelDat(Dat),*9,Jaar,*9,($L(URL)>1),*9,URL,!
	.
	Do CLOSE^vhDEV(Dev)
	Quit
VoorraadTellingLijst
	
	Kill MultiProd
	&sql(DECLARE VTL CURSOR FOR
	Select VoorraadTelling,MultipleProducts_Product into :PRNr,:MultiPRNr from Prod.VoorraadTelling_MultipleProducts)
   	&sql(OPEN VTL)
 	For  &sql(FETCH VTL) Quit:SQLCODE  Do
	. Set MultiProd(MultiPRNr)=PRNr
	&sql(CLOSE VTL)
 
	Set Dev=$$OPEN^vhDEV(,"VoorraadTelling.txt","W","T")
	Use Dev
	Write "PRNr	IdentNr	KortTekst	MultiProd	OpslagZone	HuidigeWV	Tel	TelMin1",!
	Set PRNr=""
	For  Set PRNr=$O(^PRSTOCK("D",PRNr)) Quit:PRNr=""  Do
	. Set WV=$P(^PRSTOCK("D",PRNr),"\",5)
	. Quit:WV="" ; nog nooit voorgekomen op de werkvloer
	. Set oVoorraadTelling=##class(DS.Prod.VoorraadTelling).%OpenId(PRNr)
	. Do OverzichtTellingen(oVoorraadTelling,.Tel,.TelMin1)
	. Set OpslagZone=$S($isObject(oVoorraadTelling):$LG(oVoorraadTelling.Zones),1:"")
	. Set:$L(OpslagZone) OpslagZone=$P($G(^RES("PRODUKT","PI","HFWVSUBMAG","D",OpslagZone)),"`",2)
	. Set MultiKT=""
	. If $D(MultiProd(PRNr)) Set MultiKT=$$$ProductGet(MultiProd(PRNr),$$$KortTekst)
	. Write PRNr,*9,$$$PRGet($$$IdentNummer),*9,$$$PRGet($$$KortTekst),*9,MultiKT,*9,OpslagZone
	. Write *9,$$$ExcelNum(WV),*9,$$$ExcelNum(Tel),*9,$$$ExcelNum(TelMin1)
	. Write !
	Do CLOSE^vhDEV(Dev)
	Quit
	
OverzichtTellingen(oVT,Tel,TelMin1)
	Set (Tel,TelMin1)=""
	Quit:'$isObject(oVT)
	Set Key=""
	Kill Sum
	For  Set oTel=oVT.Tellingen.GetNext(.Key) Quit:Key=""  Do
	. Set Sum(oTel.TellingNr)=$G(Sum(oTel.TellingNr))+oTel.Aantal
	Set MaxKey=$O(Sum(""),-1)
	Quit:MaxKey=""
	Set Tel=$G(Sum(MaxKey))
	Set MaxKey=$O(Sum(MaxKey),-1)
	Quit:MaxKey=""
	Set TelMin1=$G(Sum(MaxKey))
	Quit
 
KlantenBTWVrij
	Set Dev=$$OPEN^vhDEV(,"KlantBTWVrij.txt","W","T")
	use Dev
	Write "TBX	Qty	LC Diepte",!
	Set KLID=0
	For  Set KLID=$O(^KKL(KLID)) Quit:KLID=""  Do
	. Quit:$P(^KKL(KLID,0),D,15)'=0
	. Set KLNr=$P(^KKL(KLID,0),D,1)
	. Set KLNm=$P(^KKL(KLID,0),D,2)
	. Set LandCode=$$LAND^vhRtn1($P(^KKL(KLID,0),D,8),1)
	. 
	. Set Omzet=$$KLANT^STAT(KLNr,0,"2009.07 ","2009.07",3)
	. 
	. Write KLNr,*9,KLNm,*9,LandCode,*9,Omzet,!
	Do CLOSE^vhDEV(Dev)
	Quit
	
Masson
	Set KLNr=6279 ; optima pack
	Set Dev=$$OPEN^vhDEV(,"TBX"_KLNr_".txt","W","T")
	use Dev
	Write "TBX	Qty	LC Diepte",!
	Set PRNr=""
	For  Set PRNr=$O(^KSTKL(KLNr,PRNr)) Quit:PRNr=""  Do
	. Quit:$P($$GENTYP^HAD(PRNr),"\")'="TBX"
	. Set Qty=$$KLANT^STAT(KLNr,PRNr,"2008.10 ","2009.10 ",1)
	. Quit:'Qty
	. Set MKortTxt=$P(^KPR(PRNr,0),D,1)
 	. Set DC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DC"))
 	. Set DS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DS"))
 	. Set LC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC"))
 	. Set LD=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD"))
	. Write MKortTxt,*9,(Qty),*9,LC,*9,DC,*9,DS,*9,LD,!
	Do CLOSE^vhDEV(Dev)
	Quit
	
KellerHF
	Set Dev=$$OPEN^vhDEV(,"KellerHF.txt","W","T")
	use Dev
	Write "Moeder	KindIdentNr	Kind	Qty	CifPPL	PPL",!
	Set PRNr=""
	For  Set PRNr=$O(^KSTKL(1239,PRNr)) Quit:PRNr=""  Do
	. Quit:'$D(^PRBS("BS",PRNr))
	. Set Qty=$$KLANT^STAT(1239,PRNr,"2008.09 ","2009.08",1)
	. Quit:'Qty
	. Set MKortTxt=$P(^KPR(PRNr,0),D,1)
	. Set BSKey=""
	. For  Set BSKey=$O(^PRBS("BS",PRNr,BSKey)) Quit:BSKey=""  Do
	. . Set BSRec=^PRBS("BS",PRNr,BSKey)
	. . Quit:$P(BSRec,D,3)'="H"
	. . Set HFPRNr=$P(BSRec,D,1)
	. . Quit:HFPRNr'?4.7N
	. . Quit:'$D(^KPR(HFPRNr,"J5005"))
	. . Set HFQty=$P(BSRec,D,2)
	. . Set CifPPL=$P(^KPR(HFPRNr,"J5005"),D,23)
	. . Set PPL=$P(^KPR(HFPRNr,"J5005"),D,19)
	. . Write MKortTxt,*9,$P(^KPR(HFPRNr,2),D,25),*9,$P(^KPR(HFPRNr,0),D,1),*9,(Qty*HFQty),*9,$$$ExcelNum(CifPPL),*9,$$$ExcelNum(PPL),!
	Do CLOSE^vhDEV(Dev)
	Quit
	
	
	
 
tel	
	k Cnt
	Set KLNr=""
	For  Set KLNr=$O(^DLOG("K","KL",KLNr)) Quit:KLNr=""  Do
	. Set Key=20080000
	. For  Set Key=$O(^DLOG("K","KL",KLNr,Key)) Quit:Key=""  Do  ;Quit:Key>20089999  Do
	. . Q:$P(^DLOG("K","KL",KLNr,Key),"\")'="O"
	. . Set Cnt($E(Key,1,6))=$G(Cnt($E(Key,1,6)))+1
	. . Set Cnt=$G(Cnt)+1
	zW Cnt
tel2	
	k Cnt2
	Set KLNr=""
	Set Dat=$$CALCDATE^vhLib.DataTypes($H,"M",-15,"FD")-1
	For  Set Dat=$O(^LOG(Dat)) Quit:Dat=""  Do
	. Set Key=""
	. For  Set Key=$O(^LOG(Dat,Key)) Quit:Key=""  Do  ;Quit:Key>20089999  Do
	. . Q:$P(^LOG(Dat,Key),"\")'="KL"
	. . Q:$P(^LOG(Dat,Key),"\",3)'="O"
	. . Set Mnd=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(Dat,"M","FD"),"DM4")
	. . Set Cnt2(Mnd)=$G(Cnt2(Mnd))+1
	. . Set Cnt2=$G(Cnt2)+1
	zW Cnt2
	q
 	q
 
 ; d ORDSTAT^PV($H-400,$H) 
 
ORDINTAKE
	S Van=$$CALCDATE^vhLib.DataTypes($H,"M",-12,"FD")
	;S Van=$$CALCDATE^vhLib.DataTypes($H,"M",-1,"FD")
	S Tot=$$CALCDATE^vhLib.DataTypes($H,"M",-1,"LD")
	Set FaktVan=-Van
	Set Datum=-Tot-1
	Set Omzet=0
	;W Datum," ",Van,!
	s t1=$P($H,",",2)
	Set %J=$$%J^vhRtn1()
	Kill ^HULP(%J)
	Set KLNr=""
	For  Set KLNr=$O(^KFA1("F",KLNr)) Quit:KLNr=""  Do
	. Set Datum="" ; beginnen vanaf vandaag omdat orders van vorige maand ook in facturen van vandaag kunnen zitten
	. For  Set Datum=$O(^KFA1("F",KLNr,Datum)) Quit:Datum=""  Quit:Datum>FaktVan  Do
	. . Set FAKNr=""
	. . For  Set FAKNr=$O(^KFA1("F",KLNr,Datum,FAKNr)) Quit:FAKNr=""  Do
	. . . Set BONNr="U"
	. . . Set ORDNr="" 
	. . . For  Set BONNr=$O(^KFA("F",FAKNr,BONNr)) Quit:$E(BONNr)'="U"  Do
	. . . . Set LNr=99
	. . . . For  Set LNr=$O(^KFA("F",FAKNr,BONNr,LNr)) Quit:LNr=""  Do
	. . . . . Set FakRec=^KFA("F",FAKNr,BONNr,LNr)
	. . . . . If $P(FakRec,D,17)="KF5" Do
	. . . . . . Set ORDNr=$P($P(FakRec,D,5)," - ")
	. . . . . . Quit:$D(^HULP(%J,"C",KLNr,ORDNr))
	. . . . . . Set ORDDat=$$INTDATE^vhLib.DataTypes($P($P(FakRec,D,5)," - ",2),"DK")
	. . . . . . If (ORDDat<Van)||(ORDDat>Tot) Set ORDNr="" Quit
	. . . . . . Set EDIRef=$P(FakRec,D,21)
	. . . . . . If (EDIRef'?4.8N)&&(KLNr=1239)&&($P(FakRec,D,5)["EDI") Do
	. . . . . . . Set EDIRef=$P($P(FakRec,D,5),"EDI",2)
	. . . . . . . Set EDIRef=$P($P(EDIRef,"."),"/")
	. . . . . . . Set EDIRef=$$TRIMN^vhRtn1(EDIRef)
	. . . . . . Set ^HULP(%J,"C",KLNr,ORDNr)=$Lb(ORDNr,ORDDat,EDIRef,FAKNr)
	. . . . . Else  If ORDNr,$P(FakRec,D,2)?4.7N  Do
	. . . . . . Set PRNr=$P(FakRec,D,2)
	. . . . . . Set GenTyp=$$GENTYP^HAD(PRNr,1) ; ook in KPRO
	. . . . . . If $P(GenTyp,"\")="TBX" Do
	. . . . . . . Set ^HULP(%J,"C",KLNr,ORDNr,$O(^HULP(%J,"C",KLNr,ORDNr,""),-1)+1)=FakRec
	s t2=$P($H,",",2)
	Set Dev=$$OPEN^vhDEV(,"OrderIntake.txt","W","T")
	Use Dev
	Write "KLNr	KLNm	Regio	ORDNr	OrdDat	FactNr	EdiRef	LevDat	Werkdagen	Aantal	PRNr	KortTekst"
	Do HeaderKenmerken^PVJB
	Write !
	Set KLNr=""
	For  Set KLNr=$O(^HULP(%J,"C",KLNr)) Quit:KLNr=""  Do
	. Set ORDNr=""
	. For  Set ORDNr=$O(^HULP(%J,"C",KLNr,ORDNr)) Quit:ORDNr=""  Do
	. . Set Rec0=^KKL(^KK1(KLNr),0)
	. . Set KLNm=$P(Rec0,D,2)
	. . Set Regio=$P(Rec0,D,20)
	. . Set lbOrder=^HULP(%J,"C",KLNr,ORDNr)
	. . Set VolgNr=""
	. . For  Set VolgNr=$O(^HULP(%J,"C",KLNr,ORDNr,VolgNr)) Quit:VolgNr=""  Do
	. . . Set FakRec=^HULP(%J,"C",KLNr,ORDNr,VolgNr)
	. . . Set PRNr=$P(FakRec,D,2)
	. . . Do FetchKenmerken^PVJB(PRNr)
	. . . Write KLNr,*9,KLNm,*9,Regio,*9,ORDNr
	. . . Write *9,$$EXTDATE^vhLib.DataTypes($LG(lbOrder,2),"DK")
	. . . Write *9,$LG(lbOrder,4),*9,$LG(lbOrder,3)
	. . . Set DiffDate=$$DIFFDATE^vhLib.DataTypes($LG(lbOrder,2),$P(FakRec,D,25),"A")
	. . . Write *9,$$$ExcelDat($P(FakRec,D,25)),*9,DiffDate,*9,$$$ExcelNum($P(FakRec,D,3))
	. . . Write *9,PRNr,*9,$P(^KPR(PRNr,0),D)
	. . . Do WriteKenmerken
	. . . W !

	;Close:0'[Dev Dev
	Do CLOSE^vhDEV(Dev)
	s t3=$P($H,",",2)
	Write "Duur fetch=",t2-t1,!
	Write "Duur file=",t3-t2,!
	Quit 
	

WriteKenmerken
	Write *9,DC,*9,DS,*9,KLAS,*9,LC,*9,LT,*9,LD,*9,RH,*9,$$$ExcelNum(IB),*9,KL,*9,DK,*9,KB,*9,IsSR,*9,BS,*9,VPK,*9,KB,*9,$S(FS=0:"",1:FS),*9,$S(BGRP=0:"",1:BGRP),*9,$S(ASM=0:"",1:ASM),*9,$S(BM=0:"",1:BM),*9,KV,*9,NMCP,*9,RSTL,*9,$$$ExcelNum(ProboxDoos),*9,$$$ExcelNum(ProboxDeksel),*9,$$$ExcelNum(ProboxPallet)
	Write *9,LadeBeoordeling
	Write *9,$$$ExcelNum(KostenplaatsTBZAAG)
	Write *9,$$$ExcelNum(KostenplaatsTBMONT)
	Write *9,$$$ExcelNum(KostenplaatsTBVERPAK)
	Write *9,$$$ExcelNum(KostenplaatsHALUXKARTON)
	Quit
	
KLANTVZW
	Set Dev=$$OPEN^vhDEV(,"KlantVZW.txt","W","T")
	Use Dev
	Set KLID=0
	Write "KLNr	KLNm	Regio	Vzw	Omzet",!
	For  Set KLID=$O(^KKL(KLID)) Quit:KLID=""  Do
	. Set Regio=$P(^KKL(KLID,0),"\",20)
	. Set KLNr=$P(^KKL(KLID,0),"\",1)
	. Set KLNm=$P(^KKL(KLID,0),"\",2)
	. Set Stat=$$KLANT^STAT(KLNr,0,"2008.05 ","2009.06 ",3)
	. Quit:Stat<100
	. Set Vzw=$$SHOW^KLVERZW(,KLNr)
	. Quit:Vzw'["OD"
	. Quit:Vzw'["Vr"
	. Write KLNr,*9,KLNm,*9,Regio
	. Write *9,Vzw,*9,$$$ExcelNum(Stat),!
	Do CLOSE^vhDEV(Dev)
	Q 
 
 
 
 
STATHETAL
	Set Dev=$$OPEN^vhDEV(,"Regio23Hetal.txt","W")
	Use Dev
	Set KLID=0
	Write "KLNr	KLNm	Regio	Maand	OmzetStat	OmzetHetal",!
	For  Set KLID=$O(^KKL(KLID)) Quit:KLID=""  Do
	. Set Regio=$P(^KKL(KLID,0),"\",20)
	. Quit:Regio'?1(1"2",1"3")
	. Set KLNr=$P(^KKL(KLID,0),"\",1)
	. ;q:KLNr'=9077
	. Set KLNm=$P(^KKL(KLID,0),"\",2)
	. For MndCnt=1:1:37 Do
	. . Set Mnd=$$CALCDATE^vhLib.DataTypes($H,"M",-MndCnt)
	. . Set MndFmt=$$EXTDATE^vhLib.DataTypes(Mnd,"DM4")_" "
	. . Set KlantStat=$$KLANT^STAT(KLNr,0,MndFmt,MndFmt,3)
	. . Set HetalStat=$$FAKT(KLNr,$$CALCDATE^vhLib.DataTypes(Mnd,"M","FD"),$$CALCDATE^vhLib.DataTypes(Mnd,"M","LD"),"cbCheck^PV")
	. . Quit:'KlantStat&&'HetalStat
	. . Write KLNr,*9,KLNm,*9,Regio
	. . Write *9,$TR($$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(Mnd,"M","FD"),"DKP"),".","/"),*9,$$$ExcelNum(KlantStat),*9,$$$ExcelNum(HetalStat),!
	Close:0'[Dev Dev
	Q 
 
FAKT(KLNr,Van,Tot,cbFunc)
	Set Van=-Van
	Set Datum=-Tot-1
	Set Omzet=0
	;W Datum," ",Van,!
	For  Set Datum=$O(^KFA1("F",KLNr,Datum)) Quit:Datum=""  Quit:Datum>Van  Do
	. Set FAKNr=""
	. For  Set FAKNr=$O(^KFA1("F",KLNr,Datum,FAKNr)) Quit:FAKNr=""  Do
	. . Set BONNr="U"
	. . For  Set BONNr=$O(^KFA("F",FAKNr,BONNr)) Quit:$E(BONNr)'="U"  Do
	. . . ;w "."
	. . . Set LNr=99
	. . . For  Set LNr=$O(^KFA("F",FAKNr,BONNr,LNr)) Quit:LNr=""  Do
	. . . . Set FakRec=^KFA("F",FAKNr,BONNr,LNr)
	. . . . ;W FakRec,!
	. . . . Set PRNr=$P(FakRec,"\",2)
	. . . . Quit:PRNr'?4.7N
	. . . . X "Set Check=$$"_cbFunc_"(KLNr,PRNr,FAKNr,BONNr,FakRec)"
	. . . . Quit:'Check
	. . . . Set Omzet=Omzet+$P(FakRec,"\",34)
	Quit Omzet
 
cbCheck(KLNr,PRNr,FAKNr,BONInd,FakRec)
	;Q 1
	Set Key=$O(^KPR(PRNr,"J"))
	Set:$E(Key)'="J" Key=$O(^KPRO(PRNr,"J"))
	Quit:$E(Key)'="J" 0
	;w Key,"*"
	Quit Key?1(1"J6054",1"J6808")
 
 
 
 
 
 
 
 
 
 
 
 
TEST
 Set PRNr=""
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 . Set KT=$P(^KPR(PRNr,0),D,1)
 . Quit:$E(KT,1,6)'="SD1.PH"
 . Set DosNr=$E(KT,10,11)
 . Write PRNr," ",KT," ",$G(^KPR(PRNr,"G")),"->",DosNr,!
 . s ^KPR(PRNr,"G")=DosNr
 . D DELIND^PRODUKT2(PRNr)
 . D BLDIND^PRODUKT2(PRNr)
 Q
  
RECALCV1
 Set PRNr=""
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 . Set KT=$P(^KPR(PRNr,0),D,1)
 . Quit:$P(^KPR(PRNr,0),"\",3)'=89322 ; alleen V1
 . Write PRNr," ",KT,!
 . Set Pakket=$$DISP^PAKKET(1239,PRNr)
 . Write PRNr," ",KT," ",Pakket,!
 . Do $$$PRSet($$$SchaduwDBPerc,$S($L(Pakket):50.08,1:50.58))
 . Do $$$PRSet($$$SchaduwCifPerc,4)
 Q
RECALCPRO
 Set PRNr=""
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 . Set KT=$P(^KPR(PRNr,0),D,1)
 . Set GenPRNr=$P(^KPR(PRNr,0),"\",3)
 . Set:";435287;209370;209369;89325;"[(";"_PRNr_";") GenPRNr=PRNr
 . Quit:GenPRNr'?4.7N
 . Quit:";435287;209370;209369;89325;"'[(";"_GenPRNr_";")
 . ;Write PRNr," ",KT,!
 . ;Set Pakket=$$DISP^PAKKET(1239,PRNr)
 . Write PRNr," ",KT," ",$S(GenPRNr=89325:51.04,1:50.56),!
 . Do $$$PRSet($$$SchaduwDBPerc,$S(GenPRNr=89325:51.04,1:51.04))
 . Do $$$PRSet($$$SchaduwCifPerc,$S(GenPRNr=89325:2,1:2))
 Q 
 
HALLEAN
	Set Maand=$$CALCDATE^vhLib.DataTypes($H,"M",$G(Delta,-1))
	Set MndBegin=$$CALCDATE^vhLib.DataTypes($H,"M","FD",-6)
 	Set MndEnd=$$CALCDATE^vhLib.DataTypes($H,"M","LD",-1)
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"Producten opmaat"_$TR($$EXTDATE^vhLib.DataTypes(MndBegin,"DM"),".-","  ")_".txt","W")
 Use Dev
 Write $TR("GenTyp;SubGT;PRNr;Product;Aantal;Datum;ProfType;Vulling;Gehard;Hoogte;Breedte;Mon;Verpak;Toep",";",$C(9)),!
 Set PRNr=""
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 . Quit:'$D(^KPR(PRNr,"J6332"))
 . Set KT=$P(^KPR(PRNr,0),D,1)
 . Set GenTyp=$$GENTYP^HAD(PRNr)
 . Quit:$P(GenTyp,"\")=""
 . Quit:$P(GenTyp,"\")="TBX"
 . Set VolgNr=""
 . Set Qty=""
 . For  Set VolgNr=$O(^PRHIST(PRNr,VolgNr)) Quit:VolgNr=""  Do
 . . Set Rec=^PRHIST(PRNr,VolgNr)
 . . Set Datum=+$P(Rec,D,1)
 . . Quit:Datum<MndBegin
 . . Quit:Datum>MndEnd
 . . Set Actie=$P(Rec,D,4)
 . . Quit:Actie'="I"
 . . Set Qty=$P(Rec,D,2)
 . . Write $P(GenTyp,D,1),$C(9),$P(GenTyp,D,2),$C(9),PRNr,$C(9),$P(^KPR(PRNr,0),D)
 . . Write $C(9),Qty,*9,$TR($$EXTDATE^vhLib.DataTypes(Datum,"DKP"),".","/") ; Aantal
 . . Set Toep=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("KAD",PRNr,"TOEP"))
 . . Set (Hoogte,Breedte,Vulling,Hard,Profiel,Montage,Verpak)=""
 . . If Toep'=""  Do
 . . . Set Hoogte=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("KAD",PRNr,"PH"))
 . . . Set Breedte=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("KAD",PRNr,"PB"))
 . . . Set Profiel=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("KAD",PRNr,"PT"))
 . . . Set Vulling=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("KAD",PRNr,"VULCODE"))
 . . . Set Hard=##class(Prod.Kenmerk.DataDefinitie).Get("KAD",PRNr,"LVE")
 . . . Set:Hard'="" Hard=$S($LF(Hard,"HARD"):1,1:"")
 . . . Set Montage=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("KAD",PRNr,"MON"))
 . . . Set Verpak=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("KAD",PRNr,"VPK"))
 . . . Write *9,Profiel,*9,Vulling,*9,Hard,*9,Hoogte,*9,Breedte,*9,Montage,*9,Verpak,*9,Toep
 . . Write !
 Close:Dev'=0 Dev
 Quit
 
OIE
 
 Set Dev=$$OPEN^vhDEV(,"OIE.txt","W")
 Use Dev
 Write $TR("SortKey;ProductNaam;IdentNr;Oms",";",$C(9)),!
 Set PRNr=0
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 . Quit:$P(^KPR(PRNr,0),D,3)'=""
 . Set SortKey=$$SORTKEY^PRODUKT(PRNr)
 . Set KT=$$$PRGet($$$KortTekst)
 . Set IdentNr=$$$PRGet($$$IdentNummer)
 . Set LinkType=$$$PRGet($$$LinkType)
 . Quit:LinkType["H"
 . Quit:LinkType["K"
 . Quit:$$$PRGet($$$NONAktief)
 . 
 . Quit:$E(IdentNr)=6
 . Quit:$E(IdentNr)=7
 . Set Key=$$$Trim($E(KT,1,11))_"."_$$$Trim($E(KT,22,25))_"."_$E(IdentNr,1)
 . Set LangT=##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr, "N", ">CR<", 1)
 . Set StockNietstock=##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr, "N", ">CR<", 1)
 . Set Verpakking=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",PRNr,"Verpakking"))
 . Set LiRe=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",PRNr,"LiRe"))
 . Write SortKey,*9,KT,*9,IdentNr,*9,LangT,*9,*9,*9,$$$PRGet($$$StockType),*9,Key,*9,LiRe,*9,Verpakking,*9,!
 Close:Dev'=0 Dev
 Quit		
 
GREEP
#define ExcelNum(%n) $TR(%n,".",",")
 
 Set Maand=$$CALCDATE^vhLib.DataTypes($H,"M",$G(Delta,-1))
 Set MndBegin=$$CALCDATE^vhLib.DataTypes($H,"M","FD",-6)
 Set MndEnd=$$CALCDATE^vhLib.DataTypes($H,"M","LD",-1)
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"Grepen.txt","W")
 Use Dev
 Write $TR("SortKey;ProductNaam;Oms;LevNm;LevRef;OmsLev;JaarAantal;JaarOmz;VoorraadOp180209;CifPPL;PPL;LevKort%;Cif%",";",$C(9)),!
 Set PRNr=""
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 . ;Quit:'$D(^KPR(PRNr,"J6332"))
 . Set SortKey=$$SORTKEY^PRODUKT(PRNr)
 . Quit:$E(SortKey,7,9)'="G*K"&&($E(SortKey,7,9)'="GMW")
 . Set KT=$P(^KPR(PRNr,0),D,1)
 . Set VolgNr=""
 . Set Qty=""
 . Set Stat=$$PROD^STAT(PRNr,0,"2008.02 ","2009.01 ","1,3")
 . Set LangT=##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr, "N", ">CR<", 1)
 . Set LangR=##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr, "BR", ">CR<", 1)
 . Set CifPPL=$$$PRGet($$$CifPPLEUR)
 . Set MTL=$$$PRGet($$$PPLMTL)
 . Set Cif=$$$PRGet($$$CifPerc)
 . Set Kort=$$$PRGet($$$KortingPerc)
 . Set LevRef=$$$PRGet($$$Leveranciersreferentie)
 . Set LevNr=$E($O(^KPR(PRNr,"J")),2,5)
 . Set LevNm=$P(^KLE(^KL1(LevNr),0),D,2)
 . Write SortKey,*9,KT,*9,LangT,*9,LevNm,*9,LevRef,*9,LangR,*9,$$$ExcelNum($P(Stat,"\")),*9,$$$ExcelNum($P(Stat,"\",3)),*9,$$$ExcelNum($$GETSTOCK^PRODUKT4(PRNr,"F"))
 . Write *9,$$$ExcelNum(CifPPL),*9,$$$ExcelNum(MTL),*9,$$$ExcelNum(Kort),*9,$$$ExcelNum(Cif)
 . Write !
 Close:Dev'=0 Dev
 Quit	
 
GREEPK
#define ExcelNum(%n) $TR(%n,".",",")
 
 Set Maand=$$CALCDATE^vhLib.DataTypes($H,"M",$G(Delta,-1))
 Set MndBegin=$$CALCDATE^vhLib.DataTypes($H,"M","FD",-6)
 Set MndEnd=$$CALCDATE^vhLib.DataTypes($H,"M","LD",-1)
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"GrepenKlanten.txt","W")
 Use Dev
 Write $TR("SortKey;ProductNaam;Oms;LevNm;KLNr;KLNm;JaarAantal;JaarOmz;Prijs",";",$C(9)),!
 Set PRNr=""
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 . ;Quit:'$D(^KPR(PRNr,"J6332"))
 . Set SortKey=$$SORTKEY^PRODUKT(PRNr)
 . Quit:$E(SortKey,7,9)'="G*K"&&($E(SortKey,7,9)'="GMW")
 . Set KT=$P(^KPR(PRNr,0),D,1)
 . Set VolgNr=""
 . Set Qty=""
 . Set Stat=$$PROD^STAT(PRNr,0,"2008.02 ","2009.01 ","1")
 . Quit:Stat<1
 . Set LangT=##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr, "N", ">CR<", 1)
 . Set LangR=##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr, "BR", ">CR<", 1)
 . Set CifPPL=$$$PRGet($$$CifPPLEUR)
 . Set MTL=$$$PRGet($$$PPLMTL)
 . Set Cif=$$$PRGet($$$CifPerc)
 . Set Kort=$$$PRGet($$$KortingPerc)
 . Set LevRef=$$$PRGet($$$Leveranciersreferentie)
 . Set LevNr=$E($O(^KPR(PRNr,"J")),2,5)
 . Set LevNm=$P(^KLE(^KL1(LevNr),0),D,2)
 . Set KLNr=0
 . For  Set KLNr=$O(^KSTPR(PRNr,KLNr)) Quit:KLNr=""  Do
 . . Set Stat=$$PROD^STAT(PRNr,KLNr,"2008.02 ","2009.01 ","1,3")
 . . Quit:$P(Stat,D,1)<1
 . . Set KLNm=$P(^KKL(^KK1(KLNr),0),D,2)
 . . Set Land=##class(Derde.Klant.Klant).%OpenId(KLNr).LandCode
 . . Write SortKey,*9,KT,*9,LangT,*9,LevNm,*9,KLNr,*9,KLNm,*9,Land,*9,$$$ExcelNum($P(Stat,"\")),*9,$$$ExcelNum($P(Stat,"\",3)),*9,$$$ExcelNum(+$$KLANTPR^KPRIJS(KLNr,PRNr))
 . . Write !
 Close:Dev'=0 Dev
 Quit	
 
 
DL
	Set Dev=$$OPEN^vhDEV(,"IntivoDL.txt","W")
	Use Dev
	S PRNr=416620
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do  ;Quit:$E(IdentNr)=6
	. Quit:'$D(^KPR(PRNr,"J6332")) ; halux
	. Quit:$P($$GENTYP^HAD(PRNr),"\")'="TBX"
	. Set KT=$P(^KPR(PRNr,0),D,1)
	. Set IdentNr=$P(^KPR(PRNr,2),D,25)
	. Set LC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC"))
	. ;w PRNr," ",LC,!
	. Quit:LC'["DL"
	. Set BS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BS"))
	. Set KLNr=""
	. Set KLNr=$O(^KSTPR(PRNr,0))
	. Set QtyStat=0
	. Set Mnd=""
	. Set MemKLNr=""
	. If KLNr Do
	. . Set Mnd=$O(^KSTPR(PRNr,KLNr,0))
	. . Set MemKLNr=KLNr
	. . Set QtyStat=$$PROD^STAT(PRNr,0,"2008.09 ","2009.02 ",1)
	.
	. Set (ORDNr,OLUNr)=""
	. Set (QtyOrd,QtyToe)=""
	. For  Set ORDNr=$O(^ORD("IP",PRNr,ORDNr)) Quit:ORDNr=""  Do
	. . For  Set OLUNr=$O(^ORD("IP",PRNr,ORDNr,OLUNr)) Quit:OLUNr=""  Do
	. . . Set OLNr=^ORD("IP",PRNr,ORDNr,OLUNr)
	. . . Set KLNr=$P(^KO1(ORDNr,"F"),"\")
	. . . Set:KLNr MemKLNr=KLNr
	. . . Set OLRec=^KOD(KLNr,"F",ORDNr,OLNr)
	. . . Set:$P(OLRec,D,27)'="" QtyToe=QtyToe+$P(OLRec,D,3)
	. . . Set:$P(OLRec,D,27)="" QtyOrd=QtyOrd+$P(OLRec,D,3)
	. 
	. Set (BONNr,BLNr)=""
	. Set (QtyBon)=""
	. For  Set BONNr=$O(^KUP(PRNr,BONNr)) Quit:BONNr=""  Do
	. . For  Set BLNr=$O(^KUP(PRNr,BONNr,BLNr)) Quit:BLNr=""  Do
	. . . Set KLNr=^KUP(PRNr,BONNr,BLNr)
	. . . Set:KLNr MemKLNr=KLNr
	. . . Set QtyBon=QtyBon+$P(^KUL(KLNr,"F",BONNr,BLNr),D,3)
	. Quit:'MemKLNr
	. Set KLNm=$P(^KKL(^KK1(MemKLNr),0),D,2)
 	. Write MemKLNr,*9,KLNm,*9,PRNr,*9,KT,*9,BS,*9,Mnd,*9,QtyStat,*9,QtyBon,*9,QtyOrd,*9,QtyToe,!
 	c Dev
	Quit
  
KindEnDO
	S PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do  ;Quit:$E(IdentNr)=6
	. Quit:'$D(^KPR(PRNr,"J5005")) ; Blum
	. Set KT=$P(^KPR(PRNr,0),D,1)
	. Set IdentNr=$P(^KPR(PRNr,2),D,25)
	. Quit:$E(IdentNr)'=6
	. Write !, PRNr," ",KT," ",IdentNr
	. 
	. If $D(^PRBS("IP",PRNr))
	. . Set Found=0
	. . Set (MPRNr,BSKey)=""
	. . For MPRNr=$O(^PRBS("IP",PRNr,MPRNr)) Quit:MPRNr=""  Do
	. . . For BSKey=$O(^PRBS("IP",PRNr,MPRNr,BSKey)) Quit:BSKey=""  Do
	. . . . Set Found=^PRBS("IP",PRNr,MPRNr,BSKey)="H"
	. . w:Found "Product gebruikt als bouwsteen"
	. q
	. ; Huidig
	. Do $$$PRSet($$$KortingPerc,"")
	. Do $$$PRSet($$$PPLMTL,"")
	. Do $$$PRSet($$$CifPerc,"")
	. Do $$$PRSet($$$DBPerc,"")
	. Do $$$PRSet($$$VorkPerc,"")
	. Do RECALC^PRODUKT2(PRNr)
	. ; Schaduw
	. Do $$$PRSet($$$SchaduwKortingPerc,"")
	. Do $$$PRSet($$$SchaduwPPL,"")
	. Do $$$PRSet($$$SchaduwCifPerc,"")
	. Do $$$PRSet($$$SchaduwDBPerc,"")
	. Do $$$PRSet($$$SchaduwVorkPerc,"")
	. Set $P(^KPR(PRNr,2),D,27)=""
	. Do PUTLOG^PRODUKT(PRNr,,$P(^KPR(PRNr,2),D,27),"","SchaduwDatum")
 
	Quit
 
 
  
 
 
 
 
 
	q 
OFF
	Write "KLNr	Naam	OfferteNr",!
	S KLNr=0
	For  Set KLNr=$O(^KOFKL(KLNr)) Quit:KLNr=""  Do
	. SEt OFFNr=0
	. For  Set OFFNr=$O(^KOFKL(KLNr,"F",OFFNr)) Quit:OFFNr=""  Do
	. . Set OFLNr=99
	. . For  Set OFLNr=$O(^KOFKL(KLNr,"F",OFFNr,OFLNr)) Quit:OFLNr=""  Do
	. . . Set OLRec=$G(^KOFKL(KLNr,"F",OFFNr,OFLNr))
	. . . Set PRNr=$P(OLRec,D,2)
	. . . Quit:PRNr'=371505
	. . . Write KLNr,*9,$P(^KKL(^KK1(KLNr),0),D,2),*9,OFFNr,!
	Quit
 
 
 
 
 
 
 
	Do MAILKL("",,"")
	;Do MAILKL("F",,"")
Sequence() 
	s Dev=$$OPEN^vhDEV(,"CheckKleller.txt","W")
	u Dev
#define LevHalux 6332
	set lbTOENrs=$Lb("284254")
	Set Count=0
	For I=1:1:$LL(lbTOENrs) Do
	. Set TOENr=$LG(lbTOENrs,I)
	. Set TLNr=99
	. For  Set TLNr=$O(^KTO($$$LevHalux,TOENr,TLNr)) Quit:TLNr=""  Do  ;Quit:Count>10
	. . Set LRec=^KTO($$$LevHalux,TOENr,TLNr)
	. . Set PRNr=$P(LRec,"\",2)
	. . Quit:$P($$GENTYP^HAD(PRNr),"\")'="TBX"
	. . Set TLUNr=$P(LRec,"\",15)
	. . Set KLNr=$P($G(^KTO($$$LevHalux,TOENr,1)),"\",8) ; klant
	. .	Set ORDNr=$P($G(^KTO($$$LevHalux,TOENr,$G(^TO("IU",TOENr,TLUNr),"*"))),"\",27) ; KOMLink
	. . Set OLNr=$P($G(^KTO($$$LevHalux,TOENr,$G(^TO("IU",TOENr,TLUNr),"*"))),"\",28) ; KOMLink
	. . Set KlantOrdRef=$S(ORDNr&&OLNr:$P($G(^KOD(KLNr,"F",ORDNr,OLNr)),"\",45),1:"") ; Klantreferentie (ritnummer bij Keller EDI)
	. . Set TransportRef=$P(^KOD(KLNr,"F",ORDNr,1),"\",33)
	. . Set KlantProdRef=$S(KLNr:$$DISP^PAKKET(KLNr,PRNr),1:"")
	. . Write *9,TransportRef,*9,KlantOrdRef,*9,KlantProdRef,*9,PRNr,*9,$P(^KPR(PRNr,0),"\"),*9,$P(LRec,"\",3),!
	c Dev
	q 
KT26
	Write "PRNr	SortKey	KortTekst	HalfFabr	LEVNr	LevNm	#Fakt	Omzet	Marge",!
	S PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. ;Quit:$P(^KPR(PRNr,0),D,3)?4.7N ; afgeleid
	. Quit:'$D(^KPR(PRNr,"J6332")) ; Halux
	. Set KT=$P(^KPR(PRNr,0),D,1)
	. Quit:$L(KT)'>25
	. Write PRNr," ",KT,!
	. Do DELIND^PRODUKT2(PRNr)
	. Set $P(^KPR(PRNr,0),D,1)=$E(KT,1,25)
	. Do BLDIND^PRODUKT2(PRNr)
	Quit
	
MAILKL(TaalSel,LandSel,ExclTyp,InclTyp,LimGlobRef) Set Dev=0
	New U
	Set U=$C(9)
 ; TaalSel = N of F
 ; LandSel = "NL;BE"
 ; ExclTyp = ""  bv "BH;XX" (boekhouding;diverse)
 ; InclTyp = ""  bv "AK;AB" (Aankoop;Algemeen beheerder)
 ; LimGlobRef wordt gebruikt om te testen of een klant mag opgenomen worden in de maillijst - $D(@LimGlobRef@(KLNr))
 Set BeginOmzetMaand=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($H,"M",-12),"DM4")_" "
 Set EndOmzetMaand=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($H,"M",-1),"DM4")_" "
 New %J,Dev,KLId,KLNr,KLNm,Taal,Land,Pers,Nr,Found,I,connect,Typconnect,email,Naam,Voornaam,elink
 Set Dev=$$OPEN^vhDEV(,"MAILLIST"_$G(TaalSel)_".TXT","W")
 Use Dev
 Set KLId=""
 Write "KLNr	KLNm	ToeNaam	Aanspr	Straat	GEmeente	PostKode	Land	eLink	email	Regio	Taal	Persoon",!
 Set %J=$$%J^vhRtn1()
 Kill ^HULP(%J)
 For  Set KLId=$O(^KKL(KLId)) Quit:KLId=""  Do
 . Set eFound=0
 . Set KLNr=$P(^KKL(KLId,0),D)
 . If $L($G(LimGlobRef)) Quit:'$D(@LimGlobRef@(KLNr))
 . Quit:$P(^KKL(KLId,2),D,10) ; non akt
 . Quit:$L($P(^KKL(KLId,0),D,30)) ; non akt of verwijderd
 . Quit:'$P(^KKL(KLId,0),D,20) ; geen regio
 . Quit:$P(^KKL(KLId,1),D,25)="Z" ; Non akt
 . Quit:$P(^KKL(KLId,1),D,25)=0 ; Non akt
 . 
 . ;Quit:$L($P(^KKL(KLId,1),D,10)) ; Klant Van 
 . 
 . ;Set Found=0
 . ;Set Vzwn=$P(^KKL(KLId,2),D,16)
 . ;For I=1:1:$L(Vzwn,"`") Do
 . . Set Vzw=$P(Vzwn,"`",I)
 . . Set:($P(Vzw,";")="OD4")&&($P(Vzw,";",2)=1) Found=1
 . . Set:($E($P(Vzw,";"),1,2)="OD")&&($P(Vzw,";",2)=1) Found=1
 . ;Quit:'Found
 . ;Quit:'$$IncludeKlant(KLNr)
 . 
 . Set Regio=$P(^KKL(KLId,0),D,20)
 . ;Quit:(Regio)'?1(1"1",1"2",1"3",1"20",1"21",1"22",1"23",1"24",1"25",1"26",1"27")
 . ;Quit:(Regio>12)
 . ;Quit:Regio=1 ; geen key accounts
 . ;Quit:Regio'=30
 . Set Omzet=$$KLANT^STAT(KLNr,0,BeginOmzetMaand,EndOmzetMaand,3)
 . ;Quit:'Omzet
 .
 . Set KLNm=$P(^KKL(KLId,0),D,2)
 . Set Taal=$P(^KKL(KLId,0),D,9)
 . ;Quit:(Taal="D")!(Taal="E")
 . If $L($G(TaalSel)) Quit:Taal'=TaalSel
 . Set Land=$$LAND^vhRtn1(KLNr,"K",1,1)
 . If $L($G(LandSel)) Quit:(";"_LandSel_";")'[(";"_Land_";")
 . Set Nr=""
 . For  Set Nr=$O(^PERS("K",KLNr,Nr)) Quit:Nr=""  Do
 .. Set Pers=^PERS("K",KLNr,Nr)
 .. 
 .. ;Controleren of het één van de VerantwType NIET tot de ExclTyp behoort
 .. Set Typ=$P(Pers,D,5)
 .. Set Found=$S($L($G(ExclTyp)):0,1:1)
 .. If 'Found For I=1:1:$L(Typ,";") Do
 ... Quit:'$L($P(Typ,";"))
 ... Set:(";"_ExclTyp_";")'[(";"_$P(Typ,";",I)_";") Found=1
 .. Quit:'Found  ; Behoort to ExclTyp
 .. 
 .. ;Controleren of het één van de VerantwType tot de InclTyp behoort
 .. Set Typ=$P(Pers,D,5)
 .. Set Found=$S($L($G(InclTyp)):0,1:1)
 .. If 'Found For I=1:1:$L(Typ,";") Do
 ... Quit:'$L($P(Typ,";"))
 ... Set:(";"_InclTyp_";")[(";"_$P(Typ,";",I)_";") Found=1 ; Type van persoon behoort tot InclTyp 
 .. Quit:'Found  ; Behoort to IncTyp
 .. For I=15:1:19 Do
 ... Quit:$P(Pers,D,6) ; mail non aktief
 ... Set connect=$P(Pers,D,I)
 ... Quit:$P(connect,";")'="E"
 ... Set email=$P(connect,";",2)
 ... Quit:'$l(email)
 ... Quit:email'["@"
 ... Quit:$E(email)="#" ; NOOIT versturen
 ... Quit:$E(email)="~" ; PROBLEEM GEVAL  niet versturen
 ... If $E(email)="~" Set $E(email)=""  ; UNDELIVERABLE
 ... Quit:$D(^HULP(%J,$$UPTRIMAN^vhRtn1(email))) ;dubbel
 ... Set Naam=$P(Pers,D,2)
 ... Set VoorNaam=$P(Pers,D,3)
 ... Set elink=Naam_$S($L(VoorNaam):" "_VoorNaam,1:"")
 ... Set ^HULP(%J,$$UPTRIMAN^vhRtn1(email))=""
 ... ;Do WriteAdres(KLNr)
 ... Set eFound=1
 ... ;Write elink,U,email,U,$P(^KKL(KLId,0),D,20),U,Taal,U,$P(Pers,D,1),!
 . Set email=$P(^KKL(KLId,2),D,19) Do
 . Quit:eFound
 . If $E(email)="~" Set $E(email)=""  ; UNDELIVERABLE
 . if $$UPTRIMAN^vhRtn1(email)'="" Quit:$D(^HULP(%J,$$UPTRIMAN^vhRtn1(email))) ;dubbel
 . If '((email="")||(email'["@")||($E(email)="#")||($E(email)="~")) Quit
 . Do WriteAdres(KLNr)
 . ;Write U,email,U,$P(^KKL(KLId,0),D,20),U,Taal,!
 . Write U,U,$P(^KKL(KLId,0),D,20),U,Taal,!
 Close:Dev'=0 Dev
 Quit
 
WriteAdres(KLNr)
	Set Adres=^KKL(^KK1(KLNr),0)
	Set KLNr=$P(Adres,D,1)
	Set KLNm=$P(Adres,D,2)
	Set Aanspr=$P(Adres,D,4)
	Set ToeNm=$P(Adres,D,3)
	Set Straat=$P(Adres,D,5)
	Set Gemeente=$P(Adres,D,7)
	Set PostKode=$P(Adres,D,6)
	Set Land=$$LAND^vhRtn1($P(Adres,D,8),1)
	Write KLNr,U,KLNm,U,ToeNm,U,Aanspr,U,Straat,U,Gemeente,U,PostKode,U,Land,U
	Quit
IncludeKlant(KLNr)
	Set PRNr=0
	Set Found=0
	For  Set PRNr=$O(^KSTKL(KLNr,PRNr)) Quit:PRNr=""  Do  Quit:Found
	. Quit:$E($P($G(^KPR(PRNr,0)),"\",1),1,4)'=" 20S" ; Aventos HS
	. Set Found=1
	Quit Found
 
 
 
 
 
 
 
 
 
 
 
 
Image(PRNr)
	Set StartPad="\\Notes01\Images\"
	Set rsImg=##class(%ResultSet).%New("Res.ImageLink:GetViaFunctieTypes")
	Do rsImg.Execute("PR",PRNr,$LB("PB"),"N") ; Haalt alle objecten waarvang de functietype is PB en AG (ook dubbels worden getoond)
	Set TFile=""
	For  Quit:'rsImg.Next()  Do
	. Set TFile=##class(Res.ImageLink).GetFile(StartPad,rsImg.Data("%ID"),"W","\")
	Quit TFile
 
Banco
	S Dev=$$OPEN^vhDEV(,"PVH Banco.txt","W")
	Use Dev
	Write "PRNr	SortKey	KLNr	KLNm	KortTekst	#Fakt	Omzet	Marge",!
	S PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. ;Quit:$P(^KPR(PRNr,0),D,3)?4.7N ; afgeleid
	. Quit:($P(^KPR(PRNr,0),D,3)'=36945)&&($P(^KPR(PRNr,0),D,3)'=136797) ; Banco moeder
	. Set Stat=$$PROD^STAT(PRNr,0,"2007.11 ","2008.10","1,4")
	. Quit:+$P(Stat,D,3)=0
	. S KLNr=$O(^KSTPR(PRNr,0))
	. S KLNm=$P(^KKL(^KK1(KLNr),0),D,2)
	. Write PRNr,*9,$$SORTKEY^PRODUKT(PRNr),*9,KLNr,*9,KLNm,*9,$P(^KPR(PRNr,0),D,1),*9,$TR($P(Stat,D,2),".",","),*9,$TR($P(Stat,D,3),".",","),*9,$TR($P(Stat,D,4),".",","),!
	Close Dev
	Quit
 
TransProd
	S Dev=$$OPEN^vhDEV(,"PVH Producten.txt","W")
	Use Dev
	Write "PRNr	SortKey	KortTekst	HalfFabr	LEVNr	LevNm	#Fakt	Omzet	Marge",!
	S PRNr=0
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. ;Quit:$P(^KPR(PRNr,0),D,3)?4.7N ; afgeleid
	. Quit:$D(^KPR(PRNr,"J5005")) ; Blum
	. Quit:$D(^KPR(PRNr,"J6332")) ; Halux
	. Quit:$$$PRGet($$$NONAktief)
	. Quit:$$$PRGet($$$Hoofdgroep)["OL"
	. Set Stat=$$PROD^STAT(PRNr,0,"2007.11 ","2008.10","1,4")
	. Set HalfFabr=$$$PRGet($$$LinkType)
	. Set LEVNr=$E($O(^KPR(PRNr,"J")),2,99)
	. Set LEVNm=$P(^KLE(^KL1(LEVNr),0),D,2)
	. Write PRNr,*9,$$SORTKEY^PRODUKT(PRNr),*9,$P(^KPR(PRNr,0),D,1),*9,HalfFabr,*9,LEVNr,*9,LEVNm,*9,$TR($P(Stat,D,2),".",","),*9,$TR($P(Stat,D,3),".",","),*9,$TR($P(Stat,D,4),".",","),!
	Close Dev
	Quit
 
 
 
 
 
BLUMProd
	Set Dev=0
	Set Dev=$$OPEN^vhDEV(,"BlumIdVH.txt","W")
	Use Dev
	Kill MemIDNr
	S PRNr=""
	Set IDLoop=""
	For  Set IDLoop=$O(^KPR2(IDLoop)) Quit:IDLoop=""  Do
	. Set PRNr=$P(^KPR2(IDLoop),"\")
	. Quit:$$$PRGet($$$NONAktief)
	. Quit:'$D(^KPR(PRNr,"J5005"))
	. Set KortT=$P(^KPR(PRNr,0),"\")
	. Set IDNr=$P(^KPR(PRNr,2),"\",25)
	. Set $E(IDNr)=0
	. Quit:$D(MemIDNr(IDNr))
	. Set MemIDNr(IDNr)=""
	. Write IDNr,*9,KortT,!
	Close:Dev'=0 Dev
	Quit
 
 
 
	
OLBeperkAF
	S PRNr=""
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Quit:'$$$PRGet($$$NONAktief)
	. Quit:$$$PRGet($$$Hoofdgroep)'["OL"
	. Set Grp=$$$PRGet($$$Groep)
	. Quit:+$E(Grp,5,6)>15 ;15OL15SER
	. Set KortT=$P(^KPR(PRNr,0),"\")
	. Write Grp," ",KortT,!
	. Do $$$PRSet($$$NONAktief,"")
	Quit
 
 
 
SetOLKenmerk(String)
	Set Q="K",D="\",U=";"
	
	Set PRNr=$P(String,"\",1)
	Set WandDikte=$P(String,"\",2)
	Set Diepte=$P(String,"\",3)
	Set Kleur=$P(String,"\",4)
	
	Quit:PRNr'?4.7N "NOK"
	Quit:'$D(^KPR(PRNr)) "NOK"
	
  	Set sc1=##class(Prod.Kenmerk.DataDefinitie).Set("OL",PRNr,"Diepte",Diepte,";",17)
  	Set sc2=##class(Prod.Kenmerk.DataDefinitie).Set("OL",PRNr,"WandDikte",WandDikte,";",17)
  	Set sc3=##class(Prod.Kenmerk.DataDefinitie).Set("OL",PRNr,"Kleur",Kleur,";",17)
	Quit "SET"_$$ParseStatus^vhLib(sc1)_$$ParseStatus^vhLib(sc2)_$$ParseStatus^vhLib(sc3)
 
 
CtrlProd
	Set Dev=0
	Set Dev=$$OPEN^vhDEV(,"Prijsvgl.txt","W")
	Use Dev
	
	S PRNr=""
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Set Qty=$$PROD^STAT(PRNr,0,"2007.08 ","2008.08 ",1)
	. Quit:Qty<1
	. Quit:$$$PRGet($$$NONAktief)=1
	. Quit:$E($P(^KPR(PRNr,0),"\"),1,2)="OL"
	. Set Prijs=$$PRIJSGEG^KPRIJS(PRNr,"S")
	. Set Schaduw=$P(Prijs,"\",6)
	. Set Prijs=$$PRIJSGEG^KPRIJS(PRNr,"N")
	. Set Norm=$P(Prijs,"\",6)
	. Write $$SORTKEY^PRODUKT(PRNr),*9,PRNr,*9,$P(^KPR(PRNr,0),"\"),*9,$TR(Norm,".",","),*9,$TR(Schaduw,".",","),!
	Close:Dev'=0 Dev
	Quit
CtrlProdDeBetho
	Set Dev=0
	Set Dev=$$OPEN^vhDEV(,"PrijsvglDeBetho.txt","W")
	Use Dev
	
	S PRNr=""
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Set Qty=$$PROD^STAT(PRNr,0,"2007.08 ","2008.08 ",1)
	. ;Quit:Qty<1
	. Quit:$$$PRGet($$$NONAktief)=1
	. Quit:'$D(^KPR(PRNr,"J5529"))
	. Set Schaduw=$$$PRGet($$$SchaduwPPL)
	. Set Norm=$$$PRGet($$$PPLMTL)
	. Write $$SORTKEY^PRODUKT(PRNr),*9,$P(^KPR(PRNr,2),"\",25),*9,PRNr,*9,$P(^KPR(PRNr,0),"\"),*9,$TR(Norm,".",","),*9,$TR(Schaduw,".",","),!
	Close:Dev'=0 Dev
	Quit
 
Ninka
	Set Dev=0
	
	S PRNr=""
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Quit:$$$PRGet($$$NONAktief)=1
	. Quit:'$D(^KPR(PRNr,"J6118"))
	. Set KortT=$P(^KPR(PRNr,0),"\")
	. Set Opslag=$S($E(KortT,1,3)="AFV":2.5,1:4)
	. Set Prijs=$$$PRGet($$$SchaduwPPL)
	. Set:Prijs="" Prijs=$$$PRGet($$$PPLMTL)
	. Set SPrijs=+$J(Prijs*(1+(Opslag/100)),0,2)
	. Write PRNr," ",$P(^KPR(PRNr,0),"\"),"   ",$$$PRGet($$$PPLMTL),"->",Prijs," + ",Opslag,"% = ",SPrijs,!
	. Do $$$PRSet($$$SchaduwPPL,SPrijs)
	Quit
 
Prijs(KlantProdID)
	d MASTER^cQ5
	S Q="K"
	s D="\",U=";"
	S QU="PV",QU(1)=17,QU(2)="Paul Verhulst"
	s DT="26.09.08"
	Set KLNr=$P(KlantProdID,"\")
	Set ProdID=$P(KlantProdID,"\",2)
	q "OK:"_IDNr_";"_SchaduwPPL
 
SchadDB(String)
	S Q="K"
	s D="\",U=";"
	S QU="PV",QU(1)=17,QU(2)="Paul Verhulst"
	s DT="01.09.08"
	Set IDNr=$$TRIMN^vhRtn1($P(String,"$"))
	Set Schaduw=$P(String,"$",2)
	Set PRNr=$P($G(^KPR2($TR(IDNr,". ","")_" ")),"\")
	Quit:'SchaduwDB "NO DB"_IDNr_";"_$G(SchaduwDB)
	Quit:PRNr="" "NOT FOUND:"_IDNr_";"_$G(SchaduwDB)
	;d WLIP^vhDBG(15,IDNr_" "_SchaduwDB)
	Do $$$PRSet($$$SchaduwDBPerc,SchaduwDB)
	q "OK:"_IDNr_";"_SchaduwDB
 
SchadPPL(String)
	S Q="K"
	s D="\",U=";"
	S QU="PV",QU(1)=17,QU(2)="Paul Verhulst"
	s DT="01.09.08"
	Set IDNr=$$TRIMN^vhRtn1($P(String,"$"))
	Set SchaduwPPL=$P(String,"$",2)
	Quit:'SchaduwPPL "NO DB"_IDNr_";"_$G(SchaduwPPL)
	Set PRNr=$P($G(^KPR2($TR(IDNr,".","")_" ")),"\")
	Quit:PRNr="" "NOT FOUND:"_IDNr_";"_$G(SchaduwPPL)
	;d WLIP^vhDBG(15,IDNr_" "_SchaduwPPL)
	Do $$$PRSet($$$SchaduwPPL,SchaduwPPL)
	q "OK:"_IDNr_";"_SchaduwPPL
	 
Kaderdeur
	Set MPRNr=""
	For  Set MPRNr=$O(^PRBS("BS",MPRNr)) Quit:MPRNr=""  Do
	. Quit:$P($G(^PRBS("BS",MPRNr)),"\",2)'="KAD"
	. Quit:'$$PROD^STAT(MPRNr,0,"2007.08 ","2008.07 ",1)
	. Set BSKey=""
	. Set Found=0
	. For  Set BSKey=$O(^PRBS("BS",MPRNr,BSKey)) Quit:BSKey=""  Do
	. . Set BSRec=^PRBS("BS",MPRNr,BSKey)
	. . Set Oms=$zcvt($P(BSRec,D,13),"U")
	. . If Oms="VULLING ENERGIETOESLAG" Do
	. . . Set:$P(BSRec,"\",9)="" Found=1
	. . If Oms="VULLING" Do
	. . . Set:$P(BSRec,"\",9)="" Found=1
	. Quit:'Found
	. Write MPRNr,*9,$P(^KPR(MPRNr,0),"\"),!
	Quit
 
 
 
 
 
AutoOrgalux(PRNr)
	;Set PRNr=124919
	New Status,Result,BSKey,KindHalf,BSDefCod,Type,HFPRNr,Aantal,Lengte,Breedte,HistID,SnijMachineID,VolgNr,Rec,DimRec
	
	#define LabelOld "VERPAK"
	#define OmsVouwenOld "Vouwen"
	#define OmsInpakOld "Inpakken"
	#define OmsAfwerkOld "Afwerken"
	#define OmsLuchtZakOld "Luchtzak"
	#define OmsToeslagOld "Toeslag oververpakking"
	
	#define LabelNew "VERPAK"
	#define OmsVouwenNew "Vouwen"
	#define OmsInpakNew "Inpakken"
	#define OmsAfwerkNew "Afwerken"
	#define OmsLuchtZakNew "Luchtzak"
	#define OmsToeslagNew "Toeslag oververpakking"
	
	
	; Get old values
	Set Values=""
	Set BSKey="" 
	For  Set BSKey=$O(^HULP(%J,"C",BSKey)) Quit:BSKey=""  Do
	. Set BSRec=^HULP(%J,"C",BSKey)
	. If ($P(BSRec,D,11)=$$$LabelOld)||($P(BSRec,D,11)=$$$LabelNew) Do
	. . If ($P(BSRec,D,13)=$$$OmsVouwenOld)||($P(BSRec,D,13)=$$$OmsVouwenNew) Set $P(Values,D,1)=$P(BSRec,D,7)
	. . If ($P(BSRec,D,13)=$$$OmsInpakOld)||($P(BSRec,D,13)=$$$OmsInpakNew) Set $P(Values,D,2)=$P(BSRec,D,7)
	. . If ($P(BSRec,D,13)=$$$OmsAfwerkOld)||($P(BSRec,D,13)=$$$OmsAfwerkNew) Set $P(Values,D,3)=$P(BSRec,D,7)
	. . If ($P(BSRec,D,13)=$$$OmsToeslagOld)||($P(BSRec,D,13)=$$$OmsToeslagNew) Set $P(Values,D,4)=$P(BSRec,D,5)
	. . If ($P(BSRec,D,13)=$$$OmsLuchtZakOld)||($P(BSRec,D,13)=$$$OmsLuchtZakNew) Set $P(Values,D,5)=$P(BSRec,D,2)
 
	Set Verpakking=$zobjclassmethod("BL.Prod.OptiBox.Diverse","OptiDataDisplayName",PRNr)
	
	If '$P(Values,D,1)&&'$P(Values,D,1)&&'$P(Values,D,1) Do ; Defaulting
	. Set $P(Values,D,4)=.05
	. If Verpakking["(Volume)" Do ; alleen volume
	. . Set $P(Values,D,1)=0
	. . Set $P(Values,D,2)=5
	. . Set $P(Values,D,3)=15
	. Else  If Verpakking[";" Do ; meerdere verpakkingen
	. . Set $P(Values,D,1)=15
	. . Set $P(Values,D,2)=30
	. . Set $P(Values,D,3)=15
	. Else  If Verpakking["/" Do ; combinatie
	. . Set $P(Values,D,1)=5
	. . Set $P(Values,D,2)=10
	. . Set $P(Values,D,3)=5
	. Else  Do ; single
	. . Set $P(Values,D,1)=10
	. . Set $P(Values,D,2)=20
	. . Set $P(Values,D,3)=15
 
	Set sFL(1)=Values
	Do NIEUW^vhScherm("PRBSOLAUTO",,,,,,1)
	Quit:'%SC
 
	Do AutoOrgaluxSet(PRNr,sFL(1))
	
	Quit
	
AutoOrgaluxSet(PRNr,Values)
	
	; Delete old values
	Set BSKey="" 
	For  Set BSKey=$O(^HULP(%J,"C",BSKey)) Quit:BSKey=""  Do
	. Set BSRec=^HULP(%J,"C",BSKey)
	. If $P(BSRec,D,1)?4.7N,$E($P(^KPR(PRNr,0),D,1),1,3)="VPO" Kill ^HULP(%J,"C",BSKey)
	. Else  If ($P(BSRec,D,11)=$$$LabelOld)||($P(BSRec,D,11)=$$$LabelNew) Kill ^HULP(%J,"C",BSKey)
	
	; ToeslagMateriaal
	If $P(Values,D,4) Do
	. Set Rec=D_1_D_"S"
	. Set $P(Rec,D,11)=$$$LabelNew
	. Set $P(Rec,D,13)=$$$OmsToeslagNew
	. Set $P(Rec,D,5)=$P(Values,D,4)
	. Set BSKey=$$DEFBSKEY^PRBS("KOST")
	. Set ^HULP(%J,"C",BSKey)=Rec
	; Vouwen
	If $P(Values,D,1) Do
	. Set Rec=D_1_D_"T"
	. Set $P(Rec,D,11)=$$$LabelNew
	. Set $P(Rec,D,13)=$$$OmsVouwenNew
	. Set $P(Rec,D,7)=$P(Values,D,1)
	. Set $P(Rec,D,8)=$P(Values,D,1)
	. Set $P(Rec,D,9)="OLVERPAK"
	. Set BSKey=$$DEFBSKEY^PRBS("TIJD")
	. Set ^HULP(%J,"C",BSKey)=Rec
	; Inpak
	If $P(Values,D,2) Do
	. Set Rec=D_1_D_"T"
	. Set $P(Rec,D,11)=$$$LabelNew
	. Set $P(Rec,D,13)=$$$OmsInpakNew
	. Set $P(Rec,D,7)=$P(Values,D,2)
	. Set $P(Rec,D,8)=$P(Values,D,2)
	. Set $P(Rec,D,9)="OLVERPAK"
	. Set BSKey=$$DEFBSKEY^PRBS("TIJD")
	. Set ^HULP(%J,"C",BSKey)=Rec
	; Afwerken
	If $P(Values,D,3) Do
	. Set Rec=D_1_D_"T"
	. Set $P(Rec,D,11)=$$$LabelNew
	. Set $P(Rec,D,13)=$$$OmsAfwerkNew
	. Set $P(Rec,D,7)=$P(Values,D,3)
	. Set $P(Rec,D,8)=$P(Values,D,3)
	. Set $P(Rec,D,9)="OLVERPAK"
	. Set BSKey=$$DEFBSKEY^PRBS("TIJD")
	. Set ^HULP(%J,"C",BSKey)=Rec
	; ToeslagMateriaal
	If $P(Values,D,5) Do
	. Set Rec=D_1_D_"S"_D_"0.25"
	. Set $P(Rec,D,11)=$$$LabelNew
	. Set $P(Rec,D,13)=$$$OmsLuchtZakNew
	. Set $P(Rec,D,1)=$P(Values,D,5)
	. Set BSKey=$$DEFBSKEY^PRBS("KOST")
	. Set ^HULP(%J,"C",BSKey)=Rec
 
	;zw ^HULP(%J,"C")
	Set sMod=1
	Do SORT^PRBS
	;zw ^HULP(%J,"S")
	Do UPDATE^PRBS
 	Quit