#include vhLib.Macro
#include Prod.Product
#include BL.Derde.KlantSpecifiek
 
 
StatJB
 Set Dev=$$OPEN^vhDEV(,"Omzet BJ2010.txt","W","T")
 Use Dev
 Set KLNr=0
 Write "KLNr	Divisie	PRNr	KortTekst	GenTyp	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 Omzet=$$KLANT^STAT(KLNr,PRNr,"2009.07 ","2010.06 ",3)
 . . Quit:'Omzet
 . . Set KT=$P(^KPR(PRNr,0),D,1)
 . . Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1,2)
 . . Set:$$ISORGAL^ORGALUX(PRNr) GenTyp="OL"
 . . Set oProd=##class(Prod.Product).%OpenId(PRNr)
 . . Set ProductGroep=oProd.ProductGroep
 . . Write KLNr,*9,oKlant.Divisie,*9,PRNr,*9,KT,*9,GenTyp,*9,ProductGroep,*9,$$$ExcelNum(Omzet),!
 Do CLOSE^vhDEV(Dev)
 Quit 
 
 
 
ASM	
	Set EndMnd=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($H,"M",-1),"DM4")_" "
	Set StartMnd=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($H,"M",-12),"DM4")_" "
	;Set EndMnd=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($H,"J",-1,"LD"),"DM4")_" "
	;Set StartMnd=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($H,"J",-1,"FD"),"DM4")_" "
	Write "Periode: ",StartMnd," - ",EndMnd,!
	Set Dev=0
	Set Dev=$$OPEN^vhDEV(,"ASMTBXOverzicht.txt","W","T")
	Use Dev
	Set PRNr=0
	Write "GenTyp	SubGT	Type	PRNr	KT	KLNr	KLNm	Regio	Activiteit	Kwantitatief	Kwalitatief	Qty	VKP	AKP	Kleur",!
	For  Set PRNr=$O(^KSTPR(PRNr)) Quit:PRNr=""  Do
	. Set GenTyp=$$GENTYP^HAD(PRNr)
	. Quit:'$D(^KPR(PRNr))
	. Set KT=$P(^KPR(PRNr,0),D)
	. Set MatKleur="",Type=""
	. If $P(GenTyp,"\")="TBX" Set MatKleur=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM")), Type="TBX"
	. If $P(GenTyp,"\",1,2)="DIV\ASM" Set MatKleur=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("ASM",PRNr,"ASM")),Type="ASM" 
	. If $D(^KPR(PRNr,"J5002"))&&($E(KT,1,3)="MAT") Set MatKleur=$CASE($E(KT,22,25),"ANTR":"G"," ROT":"R","   S":"S",:""),Type="STD"
	. Quit:MatKleur=""||(MatKleur=0)
	. Set KLNr=0
	. For  Set KLNr=$O(^KSTPR(PRNr,KLNr)) Quit:KLNr=""  Do
	. . Quit:KLNr=$$$KlantHalux
	. . Set Stat=$$PROD^STAT(PRNr,KLNr,StartMnd,EndMnd,"1,4")
	. . Set Qty=$P(Stat,"\",1)
	. . Quit:Qty<1
	. . ;Set BodemPRNr=$P(^PRBS("BS",PRNr,"PRBDHZ.001"),"\")
	. . Set KLNm=$P(^KKL(^KK1(KLNr),0),D,2)
	. . Set Regio=$P(^KKL(^KK1(KLNr),0),D,20)
	. . Write $P(GenTyp,"\",1),*9,$P(GenTyp,"\",2),*9,Type,*9,PRNr,*9,KT,*9,KLNr,*9,KLNm,*9,Regio,*9,$LG($$DisplayActiviteit^KLANT5(KLNr),1),*9,$LG($$DisplayKwantitatief^KLANT5(KLNr),2),*9,$LG($$DisplayKwalitatief^KLANT5(KLNr),2),*9,$P(Qty,"\",1)
	. . Write *9,$$$ExcelNum($P(Stat,"\",3)) ; Omzet
	. . Write *9,$$$ExcelNum($P(Stat,"\",4)) ; Marge
	. . Write *9,MatKleur,!
	Do CLOSE^vhDEV(Dev)
	Quit
 
TBX	
	Set EndMnd=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($H,"M",-1),"DM4")
	Set StartMnd=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($H,"M",-12),"DM4")
 
	Set StartMnd=$$ASK^vhINP("Start maand : ",7,StartMnd,"formaat: JJJJ.MM")
	Quit:StartMnd'?4N1"."2N
	Set EndMnd=$$ASK^vhINP("Eind maand : ",7,EndMnd,"formaat: JJJJ.MM")
	Quit:EndMnd'?4N1"."2N
	
	Set EndMnd=EndMnd_" "
	Set StartMnd=StartMnd_" "
	;Set StartMnd=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($H,"J","FD"),"DM4")_" "
	;Set EndMnd=$$EXTDATE^vhDTyp($H,"DM4")_" "
 
	Set LimKLNr=$$SELECT^KLANT6(1,"","Beperkt tot klant ")
	Set:'LimKLNr LimKLNr=""
	
	Write @F11,@F1,!!!!,"Periode: ",StartMnd," - ",EndMnd,!
	If LimKLNr="" Do
	. Write "Alle klanten",!
	Else  Do
	. Write "Beperkt tot "_LimKLNr_" "_$P(^KKL(^KK1(LimKLNr),0),"\",2),!
	
	Set Dev=$$OPEN^vhDEV(,"TBXOverzicht"_LimKLNr_".txt","W","T")
	Use Dev
	Set PRNr=0
	Write "GenTyp	SubGT	PRNr	KT	KLNr	KLNm	Regio	Activiteit	Kwantitatoef	Kwalitatief	Qty	VKP	AKP	BodemAKP	BodProd	BodCode"
	;Write "	Omzet"
	;Write "	Marge"
	Write "	DC	DS	KLAS	LC	LT	LD	RH	IB	KL	DK	KB	IsSR	BS	VPK	KB	FS	BGRP	ASM	BM	KV	NMCP	RSTL",!
	For  Set PRNr=$O(^KSTPR(PRNr)) Quit:PRNr=""  Do
	. Set GenTyp=$$GENTYP^HAD(PRNr)
	. Quit:$P(GenTyp,"\")'="TBX"
	. Set KLNr=0
	. For  Set KLNr=$O(^KSTPR(PRNr,KLNr)) Quit:KLNr=""  Do:$S(LimKLNr:LimKLNr=KLNr,1:1)
	. . Set Qty=$$PROD^STAT(PRNr,KLNr,StartMnd,EndMnd,"1,4")
	. . Quit:+Qty<1
	. . Set KT=$P(^KPR(PRNr,0),D,1)
	. . Set DS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DS")) ; Design
	. . Quit:DS=""
	. . Set DC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DC")) ; Designcode
	. . Set LD=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD")) ; Ladediepte
	. . Set IB=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IB")) ; Internebreedte
	. . Set LC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC")) ; LadeCode
	. . Set LT=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LT")) ; LadeType
	. . Set RH=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RH")) ; Rughooogte
	. . Set KL=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KL")) ; Kleurlade
	. . Set DK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DK")) ; Draagkracht
	. . Set KLAS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS")) ; Klasse (Spoelbak, Lade, ...)
	. . Set BIN=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BIN")) ; Binnenlade
	. . Set DK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DK")) ; Draagkracht
	. . Set KB=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KB")) ; Kleurbodem
	. . Set VPK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK")) ; Verpakking
	. . Set IsSR=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IsSR")) ; Stalenrug
	. . Set BS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BS")) ; Boxside
	. . Set KV=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KV")) ; Kleurvulling
	. . Set BM=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BM")) ; Blumotion
	. . Set ASM=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM")) ; Antislipmat
	. . Set FS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"FS")) ; Frontbevestiging
	. . Set BGRP=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BGRP")) ; Binnengreep
	. . Set NMCP=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"NMCP")) ; Niet meeleveren corpusprofielen
	. . Set RSTL=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RSTL")) ; Rugstuk verlaagd
	. . Set PrijsRec=$$KLANTPR^KPRIJS(KLNr,PRNr)
	. . Set Omzet=$P(PrijsRec,D,14)
	. . Set AKP=$P(PrijsRec,D,13)
	. . Set BodemPRNr=$P($G(^PRBS("BS",PRNr,"PRBDHZ.001")),"\"),Type="PRBDHZ"
	. . Set:BodemPRNr'?4.7N BodemPRNr=$P($G(^PRBS("BS",PRNr,"PRBDHO.001")),"\"),Type="PRBDHO"
	. . Set:BodemPRNr'?4.7N BodemPRNr=$P($G(^PRBS("BS",PRNr,"PROD.001")),"\"),Type="PROD"
	. . Set (BodemPPL,BodemTxt)=""
	. . Set:BodemPRNr?4.7N BodemPPL=$$$ProductGet(BodemPRNr,$$$CifPPLEUR),BodemTxt=$$$ProductGet(BodemPRNr,$$$KortTekst)
	. . ;Set BodemPRNr=$P(^PRBS("BS",PRNr,"PRBDHZ.001"),"\")
	. . Set KLNm=$P(^KKL(^KK1(KLNr),0),D,2)
	. . Set Regio=$P(^KKL(^KK1(KLNr),0),D,20)
	. . Write $P(GenTyp,"\",1),*9,$P(GenTyp,"\",2),*9,PRNr,*9,KT,*9,KLNr,*9,KLNm,*9,Regio,*9,$LG($$DisplayActiviteit^KLANT5(KLNr),1),*9,$LG($$DisplayKwantitatief^KLANT5(KLNr),2),*9,$LG($$DisplayKwalitatief^KLANT5(KLNr),2),*9,$P(Qty,"\",1)
	. . Write *9,$$$ExcelNum(Omzet),*9,$$$ExcelNum(AKP),*9,$$$ExcelNum(BodemPPL),*9,BodemTxt,*9,Type ; Omzet
	. . ;Write *9,$$$ExcelNum($P(Stat,"\",3)) ; Omzet
	. . ;Write *9,$$$ExcelNum($P(Stat,"\",4)) ; Marge
	. . 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,!
	Do CLOSE^vhDEV(Dev)
	Quit
TBXMnd
	Set EndMnd=$$EXTDATE^vhDTyp($H,"DM4")_" "
	Set StartMnd=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($H,"M",-25),"DM4")_" "
	;Set StartMnd=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($H,"M",-1,D"),"DM4")_" "
	Write "Periode: ",StartMnd," - ",EndMnd,!
	Set Dev=$$OPEN^vhDEV(,"TBXOverzicht.txt","W","T")
	Use Dev
	Set PRNr=0
	Write "Maand	GenTyp	SubGT	PRNr	KT	KLNr	KLNm	Regio	Qty"
	Write "	Omzet"
	Write "	Marge"
	Write "	DC	DS	KLAS	LC	LT	LD	RH	IB	KL	DK	KB	IsSR	BS	VPK	KB	FS	BGRP	ASM	BM",!
	For  Set PRNr=$O(^KSTPR(PRNr)) Quit:PRNr=""  Do
	. Set GenTyp=$$GENTYP^HAD(PRNr)
	. Quit:$P(GenTyp,"\")'="TBX"
	. Set VPK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK")) ; Verpakking
    . Quit:(VPK'="A")&&(VPK'="B")
	. Set KLNr=0
	. For  Set KLNr=$O(^KSTPR(PRNr,KLNr)) Quit:KLNr=""  Do:KLNr=$$$KlantSFS
	. . Set Mnd=StartMnd
	. . For  Set Mnd=$O(^KSTPR(PRNr,KLNr,Mnd)) Quit:Mnd=""  Do
	. . . Set Qty=$P(^KSTPR(PRNr,KLNr,Mnd),"\",1)
	. . . Quit:+Qty<1
	. . . Set KT=$P(^KPR(PRNr,0),D,1)
	. . . Set DS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DS")) ; Design
	. . . Quit:DS=""
	. . . Set DC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DC")) ; Designcode
	. . . Set LD=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD")) ; Ladediepte
	. . . Set IB=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IB")) ; Internebreedte
	. . . Set LC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC")) ; LadeCode
	. . . Set LT=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LT")) ; LadeType
	. . . Set RH=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RH")) ; Rughooogte
	. . . Set KL=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KL")) ; Kleurlade
	. . . Set DK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DK")) ; Draagkracht
	. . . Set KLAS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS")) ; Klasse (Spoelbak, Lade, ...)
	. . . Set BIN=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BIN")) ; Binnenlade
	. . . Set DK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DK")) ; Draagkracht
	. . . Set KB=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KB")) ; Kleurbodem
	. . . Set VPK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK")) ; Verpakking
	. . . Set IsSR=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IsSR")) ; Stalenrug
	. . . Set BS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BS")) ; Boxside
	. . . Set KV=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KV")) ; Kleurvulling
	. . . Set BM=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BM")) ; Blumotion
	. . . Set ASM=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM")) ; Antislipmat
	. . . Set FS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"FS")) ; Frontbevestiging
	. . . Set BGRP=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BGRP")) ; Binnengreep
	. . . Set KLNm=$P(^KKL(^KK1(KLNr),0),D,2)
	. . . Set Regio=$P(^KKL(^KK1(KLNr),0),D,20)
	. . . Set MndDag=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp(Mnd,"DM4"),"DKP"),".","-")
	. . . Write MndDag,*9,$P(GenTyp,"\",1),*9,$P(GenTyp,"\",2),*9,PRNr,*9,KT,*9,KLNr,*9,KLNm,*9,Regio,*9,$P(Qty,"\",1)
	. . . Write *9,$$$ExcelNum($P(Stat,"\",3)) ; Omzet
	. . . Write *9,$$$ExcelNum($P(Stat,"\",4)) ; Marge
	. . . 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),!
	Do CLOSE^vhDEV(Dev)
	Quit
 
WEEK	
	Set BeginWk=+$TR($$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($H,"W",-53),"DW4"),"/")
	Write "Periode: ",BeginWk," - ","nu",!
	Set Dev=$$OPEN^vhDEV(,"TBXVHOSSOverzicht.txt","W","T")
	Use Dev
	Set PRNr=0
	Write "Datum	Week	GenTyp	SubGT	PRNr	KT	KLNr	KLNm	Regio	Qty"
	;Write "	Omzet"
	;Write "	Marge"
	Write "	DC	DS	KLAS	LC	LT	LD	RH	IB	KL	DK	KB	IsSR	BS	VPK	KB	FS	BGRP	ASM	BM",!
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Set GenTyp=$$GENTYP^HAD(PRNr)
	. Quit:$P(GenTyp,"\")'="TBX"
	. 
	. 
	. Set VPK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK")) ; Verpakking
	. Quit:VPK'?1(1"A",1"B")&&($P(GenTyp,"\",2)'="PR+")
	. 
	. Set KLNr=0
	. For  Set KLNr=$O(^KSTPR(PRNr,KLNr)) Quit:KLNr=""  Do
	. . Set Week=BeginWk
	. . For  Set Week=$O(^KSPW(PRNr,Week)) Quit:Week=""  Quit:$E(Week,$L(Week))=" "  Do
	. . . Set Qty=""
	. . . Set Toe=""
	. . . For  Set Toe=$O(^KSPW(PRNr,Week,Toe)) Quit:Toe=""  Do
	. . . . Set Qty=Qty+$P(^KSPW(PRNr,Week,Toe),"\")
	. . . Quit:+Qty<1
	. . . Set KT=$P(^KPR(PRNr,0),D,1)
	. . . Set DS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DS")) ; Design
	. . . Quit:DS=""
	. . . Set DC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DC")) ; Designcode
	. . . Set LD=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD")) ; Ladediepte
	. . . Set IB=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IB")) ; Internebreedte
	. . . Set LC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC")) ; LadeCode
	. . . Set LT=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LT")) ; LadeType
	. . . Set RH=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RH")) ; Rughooogte
	. . . Set KL=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KL")) ; Kleurlade
	. . . Set DK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DK")) ; Draagkracht
	. . . Set KLAS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS")) ; Klasse (Spoelbak, Lade, ...)
	. . . Set BIN=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BIN")) ; Binnenlade
	. . . Set DK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DK")) ; Draagkracht
	. . . Set KB=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KB")) ; Kleurbodem
	. . . Set VPK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK")) ; Verpakking
	. . . Set IsSR=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IsSR")) ; Stalenrug
	. . . Set BS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BS")) ; Boxside
	. . . Set KV=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KV")) ; Kleurvulling
	. . . Set BM=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BM")) ; Blumotion
	. . . Set ASM=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM")) ; Antislipmat
	. . . Set FS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"FS")) ; Frontbevestiging
	. . . Set BGRP=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BGRP")) ; Binnengreep
	. . . Set KLNm=$P(^KKL(^KK1(KLNr),0),D,2)
	. . . Set Regio=$P(^KKL(^KK1(KLNr),0),D,20)
	. . . Set MndDag=$$INTDATE^vhDTyp(Week,"DW4")
	. . . Write $$$ExcelDat(MndDag),*9,Week,*9,$P(GenTyp,"\",1),*9,$P(GenTyp,"\",2),*9,PRNr,*9,KT,*9,KLNr,*9,KLNm,*9,Regio,*9,$P(Qty,"\",1)
	. . . ;Write *9,$$$ExcelNum($P(Stat,"\",3)) ; Omzet
	. . . ;Write *9,$$$ExcelNum($P(Stat,"\",4)) ; Marge
	. . . 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),!
	Do CLOSE^vhDEV(Dev)
	Quit