Index: PV.mac.rou
===================================================================
diff -u -r39394 -r54049
--- PV.mac.rou	(.../PV.mac.rou)	(revision 39394)
+++ PV.mac.rou	(.../PV.mac.rou)	(revision 54049)
@@ -2,8 +2,520 @@
 #include Prod.Product
 #include BL.Derde.KlantSpecifiek
 #include BL.Derde.LevSpecifiek
+	q
+	s PRNr=20627
+	w $$$PRGet($$$NONAktief)
+	w $P(^KPR(PRNr,1),"\",25)
+	w $$KLANTPR^KPRIJS(4810,PRNr)
 
-quit
+
+
+
+AXStat
+
+		For MndCnt=-10:1:-1 Do 
+		. w MndCnt," "
+		. Do ##class(AXimpl.Admin.STAT.Invoice.Processor).%New($$CALCDATE^vhLib.DataTypes($H,"M",MndCnt)).Process()
+		Do ##class(AXimpl.Admin.STAT.Invoice.Processor).%New(+$H).Process()
+	q
+
+COGS
+	Set Device=$$OPEN^vhDEV(,"COGS.txt","W","T")
+	Use Device
+	Write "Grp	PRNr	Korttekst	Maand	Component	Rest	Aantal	Omzet	Marge",!
+	Set PRNr=""
+	For  Set PRNr=$O(^KSTPR(PRNr)) Quit:PRNr=""  Do
+	. ;Quit:$P($$GENTYP^HAD(PRNr),"\")'="KAD"
+	.Quit:'$d(^KPR(PRNr))
+    . Quit:$$$PRGet($$$LeveranciersNr)'=$$$LevHalux
+	. Set Maand=""
+	. Set Maand="2018.06 "
+	. For  Set Maand=$O(^KSTPR(PRNr,0,Maand)) Quit:Maand=""  Do
+	. . Set Aantal=$P(^KSTPR(PRNr,0,Maand),"\")
+	. . Set Omzet=$P(^KSTPR(PRNr,0,Maand),"\",3)
+	. . Set Marge=$P(^KSTPR(PRNr,0,Maand),"\",4)
+	. . Do SplitCOGS(PRNr,.Component, .Vulling, .Rest)
+	. . Write $P($$GENTYP^HAD(PRNr),"\"),*9,PRNr,*9,$$$PRGet($$$KortTekst),*9,Maand,*9,$$$ExcelNum(Component),*9,$$$ExcelNum(Rest),*9,Aantal,*9,$$$ExcelNum(Omzet),*9,$$$ExcelNum(Marge),!
+	Do CLOSE^vhDEV(Device)
+	Quit 
+	
+SplitCOGS(PRNr,Component,Vulling,Rest)
+	Set (Component,Vulling,Rest)=0
+ 	Set %J=$$%J^vhRtn1()
+ 	Kill ^HULP(%J)
+ 	Kill ^HULP(%J)
+ 	Merge ^HULP(%J,"C")=^PRBS("BS",PRNr)
+ 	Do CALCC^PRBS(.Som,1)
+ 	;zw ^HULP(%J)
+ 	Set BSKey=""
+ 	For  Set BSKey=$o(^HULP(%J,"C",BSKey)) Quit:BSKey=""  Do
+ 	. set BSRec=^HULP(%J,"C",BSKey)
+ 	. set BSKost=$G(^HULP(%J,"V",BSKey))
+ 	. If $P(BSRec,"\",1)?4.10N Do
+ 	. . Set Component=Component+ $P(BSKost,"\",1)
+ 	. Else  If $P(BSRec,"\",11)="KVUL" Do
+ 	. . Set Component=Component+ $P(BSKost,"\",1)
+ 	. Else  Do
+ 	. . Set Rest=Rest+ $P(BSKost,"\",1)
+	q
+Batch
+	Set Device=$$OPEN^vhDEV(,"SW Batch.txt","W","T")
+	Use Device
+	Write "TOENR	BatchId	TijdStip	ProdGrp",!
+	Set BatchId=""
+	For  Set BatchId=$O(^APPS.Halux.common.BatchD(BatchId)) Quit:BatchId=""  Do
+	.Set TijdStip=$LG($G(^APPS.Halux.common.BatchD(BatchId,"BatchImpl")),1)
+	.Set ProdGrp=$LG($G(^APPS.Halux.common.BatchD(BatchId,"BatchImpl")),7)
+	.Set TOENr=""
+	.For  Set TOENr=$O(^APPS.Halux.common.BatchD(BatchId,"ToeleveringenIndex",TOENr)) Quit:TOENr=""  Do
+	.. Write TOENr,*9, BatchId,*9,TijdStip,*9,ProdGrp,!
+	Do CLOSE^vhDEV(Device)
+	Quit 
+	
+SFS
+ 	Set Dev=$$OPEN^vhDEV(,"SFS MW TAX.txt","W","T")
+ 	Use Dev
+	Set MPRNr=""
+	Set KLNr=12486
+	Set MPRNr=""
+	Set %J=$$%J^vhRtn1()
+	For  Set MPRNr=$O(^KSTKL(KLNr,MPRNr)) Quit:MPRNr=""  Do 
+	. Set GenTyp=$P($$GENTYP^HAD(MPRNr),"\",1)
+	. Quit:'((GenTyp="TAX")||(GenTyp="TAO"))
+	. Set Rec=$$KLANT^STAT(KLNr,MPRNr,"2018.08 ","2018.09 ","1,3")
+	. Set Qty=$P(Rec,"\",1)
+	. Set Omz=$P(Rec,"\",3)
+	. Quit:+Qty<1
+	. Kill ^HULP(%J)
+	. Do CALC^PRBS(MPRNr,.som,1)
+	. Set BSKey=""
+	. Set (MW,CompHLX,CompVH)=0
+	. For  Set BSKey=$O(^PRBS("BS",MPRNr,BSKey)) Quit:BSKey=""  Do
+	. . Set KPRNr=$P(^PRBS("BS",MPRNr,BSKey),"\",1)
+	. . Set Rec=^HULP(%J,"V",BSKey)
+	. . If KPRNr Do
+	. . . Set LinkType=$$$ProductGet(KPRNr,$$$LinkType)
+	. . . If $E(LinkType,1,2)="HH" Do
+	. . . . Set CompHLX=CompHLX+$P(Rec,"\")
+	. . . Else  Do
+	. . . . Set CompVH=CompVH+$P(Rec,"\")
+	. . Else  Do
+	. . . Set MW=MW+$P(Rec,"\")
+	. Set KostTot=$$$ProductGet(MPRNr,$$$CifPPLEUR)
+	. Set KostTot2=$P(som,"\")
+	. W MPRNr,*9,$$$ProductGet(MPRNr,$$$KortTekst),*9,Qty,*9,$$$ExcelNum(Omz)
+	. W *9,$$$ExcelNum(KostTot*Qty),*9,$$$ExcelNum(KostTot2*Qty),*9,$$$ExcelNum(CompVH*Qty),*9,$$$ExcelNum(CompHLX*Qty),*9,$$$ExcelNum(MW*Qty)
+	. w !
+	Do CLOSE^vhDEV(Dev)
+
+	Q
+	
+HadPR
+	Set Device= $$OPEN^vhDEV(,"SW HadPR.txt","W","T")
+	Use Device
+	Write "PRNr	TOENr	TLNr	TijdStipActivatie	TijdStipKlaarzetten",!
+	Set FabKey=""
+	For  Set FabKey=$O(^HADPR("F",FabKey)) Quit:FabKey=""  Do
+	. Set PRNr=$P($G(^HADPR("F",FabKey)),"\",3)
+	. Quit:PRNr=""
+	. Set TijdStipA=$P($G(^HADPR("F",FabKey,"A")),"\",2)
+	. Set TijdStipK=$P($G(^HADPR("F",FabKey,"K")),"\",2)
+	. Quit:TijdStipA=""
+	. Write PRNr,*9,$P(FabKey,";"),*9,$P(FabKey,";",2),*9,$zdt(TijdStipA,3,1),*9,$S(TijdStipK="":"",1:$zdt(TijdStipK,3,1)),!
+	Do CLOSE^vhDEV(Device)
+	Quit
+	
+WkVkp
+	Set SelPRNr=$$SELECT^PRODUKT6()
+	w !,$S(SelPRNr:$$$ProductGet(SelPRNr,$$$KortTekst),1:"ALL"),!
+	Kill WeekTab
+	Set PRNr=$S(SelPRNr:SelPRNr-1,1:0)
+	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do  Quit:$S(SelPRNr:PRNr=SelPRNr,1:0)
+ 	. Set Key=""
+  	. For  Set Key=$O(^PRHIST(PRNr,Key)) Quit:Key=""  Do
+ 	. . Set Rec=^PRHIST(PRNr,Key)
+ 	. . Quit:$P(Rec,"\",5)'="M"
+ 	. . Quit:$P(Rec,"\",4)'="U"&&($P(Rec,"\",4)'="T")
+	. . Set Datum=+$P(Rec,"\")
+	. . Quit:+Datum<($H-1420)
+	. . Set KostPrijs=+$P(Rec,"\",12)
+	. . Set Aantal=$P(Rec,"\",2)
+	. . Set Week=$$CALCDATE^vhLib.DataTypes(+Datum,"W","FD")
+	. . Set WeekTab(Week)=$G(WeekTab(Week))-$S(SelPRNr:Aantal,1:KostPrijs)
+	
+	Set Device=$$OPEN^vhDEV(,"WkVkp "_$S(SelPRNr:$$$ProductGet(SelPRNr,$$$KortTekst),1:"ALL")_ ".txt","W","T")
+	Use Device
+	Write "Datum	Week	",$S(SelPRNr:"Aantal",1:"Kost"),!
+	
+	Set Week=""
+	For  Set Week=$O(WeekTab(Week)) Quit:Week=""  Do
+	. Write $$$ExcelDat(Week),*9,$$EXTDATE^vhLib.DataTypes(Week,"DW4"),*9,$$$ExcelNum(WeekTab(Week))
+	. Write !
+	
+	Do CLOSE^vhDEV(Device)
+	Quit	
+	
+	
+	
+	
+	
+	
+MRPRES
+	Set CRef="pvcache"
+	For Key=8,9,"C","G" Do
+	. Merge @CRef@("STO",Key)=^MRPRESLog(64833,56846,"SPLIT",Key)
+	. zw @CRef
+	Do BLD^MRPTORD($NAME(@CRef@("STO")))
+
+	q
+tt	
+		s ^RES("HATBXLEAN","LD","ZAAGPLATEN")	=	"Halux TBX zaag lijst met plaat aantallen`58225,34557```5;1;24`92`P``BU`1`1"
+	s ^RES("HATBXLEAN","LD","ZAAGPLATEN","F")	=	"@`$NA(^HULP(%J,""Z""))"
+ 	s ^RES("HATBXLEAN","LD","ZAAGPLATEN","HO",1)	=	"T`I`   | B kl | B H | B B | Bodemwissel | R kl | R H | R B |  Rugwissel  | Opmerking"
+ 	s ^RES("HATBXLEAN","LD","ZAAGPLATEN","L",1)	=	"HATBXLEAN`ZAAGPLATEN"
+ 	s ^RES("HATBXLEAN","LD","ZAAGPLATEN","L","PRINT")	=	"HATBXLEAN`ZAAGPLATEN"
+ 	s ^RES("HATBXLEAN","LK","ZAAGPLATEN")	=	"Halux TBX zaag`58225,34557"
+ 	s ^RES("HATBXLEAN","LK","ZAAGPLATEN",1)	=	"Nr`Nr`9`N+`L`3``|```"
+ 	s ^RES("HATBXLEAN","LK","ZAAGPLATEN",2)	=	"B K1`B K1`10`C`R`2``/```"
+	s ^RES("HATBXLEAN","LK","ZAAGPLATEN",3)	=	"B K2`B K2`19`C`L`2`` |```"
+ 	s ^RES("HATBXLEAN","LK","ZAAGPLATEN",4)	=	"B H`B H`16`N+`R`4`0` |``"
+	s ^RES("HATBXLEAN","LK","ZAAGPLATEN",5)	=	"B B`B B`15`N+.`R`4`0` |``"
+	s ^RES("HATBXLEAN","LK","ZAAGPLATEN",6)	=	"BW1`BW1`33`C`L`1````$S(X:""*"",1:"""")`"
+	s ^RES("HATBXLEAN","LK","ZAAGPLATEN",7)	=	"BW2`BW2`32`N+`R`2`0` ``"
+	s ^RES("HATBXLEAN","LK","ZAAGPLATEN",8)	=	"BW3`BW3`30`C`R`4`` ``$S(X:X_""pl"",1:"""")`"
+ 	s ^RES("HATBXLEAN","LK","ZAAGPLATEN",9)	=	"BW4`BW4`31`C`R`3`` |``$S(X:$P(X,""."")_""m""_$E($P(X,""."",2),1),1:"""")`"
+ 	s ^RES("HATBXLEAN","LK","ZAAGPLATEN",10)	=	"R K1`R K1`10`C`R`2``/```"""
+ 	s ^RES("HATBXLEAN","LK","ZAAGPLATEN",11)	=	"R K2`R K2`19`C`L`2`` |```"
+ 	s ^RES("HATBXLEAN","LK","ZAAGPLATEN",12)	=	"R H`R H`17`N+`R`4`0` |``"
+ 	s ^RES("HATBXLEAN","LK","ZAAGPLATEN",13)	=	"R B`R B`14`N+.`R`4`0` |``"
+ 	s ^RES("HATBXLEAN","LK","ZAAGPLATEN",14)	=	"RW1`RW1`38`C`L`1````$S(X:""*"",1:"""")`"
+ 	s ^RES("HATBXLEAN","LK","ZAAGPLATEN",15)	=	"RW2`RW2`37`N+`R`2`0` ``"
+ 	s ^RES("HATBXLEAN","LK","ZAAGPLATEN",16)	=	"RW3`RW3`35`C`R`4`` ``$S(X:X_""pl"",1:"""")`"
+ 	s ^RES("HATBXLEAN","LK","ZAAGPLATEN",17)	=	"RW4`RW4`36`C`R`3`` |``$S(X:$P(X,""."")_""m""_$E($P(X,""."",2),1),1:"""")`"
+ 	s ^RES("HATBXLEAN","LK","ZAAGPLATEN",18)	=	"Opm`Opm`25`C`R`10`````"
+	q
+LEVT
+	Set blVerzendWijze=##class(APPS.VKP.VerzendWijze).%New(4810,"DI1","B","2440")
+	Set Tijd=$zdth("2018-04-03 16:50:00",3)
+	w Tijd,!
+	Set blLeveringTermijn =##class(APPS.VKP.impl.LeveringsTermijnFactory).%New().MaakLeveringsTermijn(Tijd,blVerzendWijze)
+	
+	For PRNr=1205525,1013410,1111468,76072 Do
+	.Set Termijn=blLeveringTermijn.BinnenWelkeTermijnIsHetMaatwerkProductBeschikbaarBijVanHoecke(PRNr)
+	.Write PRNr," ",$$$PRGet($$$KortTekst)," ",$LI(Termijn) ,!
+	q
+Transport19159
+	Set KLNr=12486
+	Set BONNr=0
+	For  Set BONNr=$O(^KUL(KLNr,"F",BONNr)) Quit:BONNr=""  Do
+	. Set Rec=^KUL(KLNr,"F",BONNr,1)
+	. Set Transport=$P(Rec,"\",8)
+	. Set TRANSNr=$P(Transport,";")
+	. If TRANSNr=19159 Write BONNr," " Set $P(^KUL(KLNr,"F",BONNr,1),"\",8)=""
+	Quit
+	
+	
+ControleKOD
+	Set KLNr=0
+	For  Set KLNr=$O(^KOD(KLNr)) Quit:KLNr=""  Do
+	. Set ORDNr=0
+	. For  Set ORDNr=$O(^KOD(KLNr,"F",ORDNr)) Quit:ORDNr=""  Do
+	. . Set LNr=""
+	. . For  Set LNr=$O(^KOD(KLNr,"F",ORDNr,LNr)) Quit:LNr=""  Do
+	. . W "."
+	. . . Set Ref=^KOD(KLNr,"F",ORDNr,1)
+	. . . If (Ref[$C(10))||(Ref[$C(13))||(Ref[$C(9)) Do
+	. . . . Write KLNr," ",ORDNr," ",!
+	. . . . Write Ref,!
+	. . . . Write $TR(Ref,$C(13,10,9)),!
+	Quit
+ControleORDW
+	Set Device=$$OPEN^vhDEV(,"ORDW.txt","W","T")
+	Use Device
+	Write "CONSNr	Datum	Status	KLNr	ORDNR",!
+	Set CONSNr=0
+	For  Set CONSNr=$O(^ORDW("D",CONSNr)) Quit:CONSNr=""  Do
+	.Set Rec=^ORDW("D",CONSNr)
+	.Set Datum=$P(Rec,"\",18)
+ 	.Set:Datum="" Datum=$P(Rec,"\",19)
+ 	.Set:Datum="" Datum=$P(Rec,"\",3)
+	.Set:Datum="" Datum=$P(Rec,"\",5)
+	. For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do
+	. . Write CONSNr,*9,$$EXTDATE^vhLib.DataTypes(Datum,"DK")
+	. . Write *9,$P(^ORDW("D",CONSNr),"\",20),*9,$P(^ORDW("D",CONSNr),"\",1),*9,ORDNr,!
+	Do CLOSE^vhDEV(Device)
+	Quit
+
+NonAct6
+	Set PRNr=0
+	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
+	. Set KortT=$$$PRGet($$$KortTekst)
+	. Set IdentNr=$$$PRGet($$$IdentNummer)
+	. Quit:$E(IdentNr)'=6
+	. Quit:$$$PRGet($$$LeveranciersNr)'=$$$LevBlum
+	. Quit:##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New().IsSOPRKindInCache(PRNr)
+	. Do $$$PRSet($$$NONAktief,1)
+	. w PRNr,*9, IdentNr,*9,KortT,!
+	Quit
+
+DELALL()
+	Set KLNr=$$$KlantHalux
+	Set CONSNr=""
+	For  Set CONSNr=$O(^KUL(KLNr,"F",CONSNr)) Quit:CONSNr=""  Do
+	.Write CONSNr," "
+	.D DELBON(CONSNr)
+	q
+DELBON(CONSNr)
+
+	Set KLNr=$$$KlantHalux
+ 	Merge ^KUL(KLNr,"T",CONSNr)=^KUL(KLNr,"F",CONSNr)
+ 	Do DELBON^FLOWBON3(KLNr,CONSNr)
+ 	do DELKUP^FLOWBON3(KLNr,CONSNr)
+ 	Kill ^KUL(KLNr,"F",CONSNr)
+ 	Q
+
+
+
+
+
+KillORDWs
+	Set CONSNr=0
+	For  Set CONSNr=$O(^EWREC("BONERR",CONSNr)) Quit:CONSNr=""  Do
+	. Quit:$D(^ORDW("D",CONSNr,"D"))
+	. Write CONSNr, " "  r k
+	. Do DELOBJ^EWORDST(CONSNr)
+	. Kill ^EWREC("BONERR",CONSNr)
+	.
+	Do CLOSE^vhDEV(Device)
+	Quit
+
+Herreken
+	Set Device=$$OPEN^vhDEV(,"Prijs herreken met bouwsteen LBX.txt","W","T")
+	Use Device
+	Write "PRNr	KortTekst	Oud	Nieuw",!
+	Set PRNr=0
+	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
+	. Set KortT=$$$PRGet($$$KortTekst)
+	. Quit:$E(KortT,1,2)'="LB"
+ 	. Quit:'$D(^PRBS("BS",PRNr))
+ 	. Set SchaduwPPL=$$SchaduwPPL^KPRIJS(PRNr)
+ 	. Quit:SchaduwPPL=""
+ 	. Quit:SchaduwPPL=-1
+ 	. Set PPL=$$$PRGet($$$PPLMTL)
+	. Quit:PPL=-1
+ 	. Write PRNr,*9,KortT,*9,$$$ExcelNum(PPL)
+ 	. ;Do MODFIELD^PRODUKT(PRNr,"J119",SchaduwPPL,0),PUTLOG^PRODUKT(PRNr,,PPL,SchaduwPPL,"PPL (S>H)")
+ 	. ;Do RECALC^PRODUKT2(PRNr)
+ 	. Write *9,$$$ExcelNum(SchaduwPPL),!
+	Do CLOSE^vhDEV(Device)
+	Quit
+	
+Herreken2
+	Set Device=$$OPEN^vhDEV(,"DagProd.txt","W","T")
+	Use Device
+	Write "PRNr	KortTekst	Munt	Oud	Nieuw",!
+	Set PRNr=0
+	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
+	. Set KortT=$$$PRGet($$$KortTekst)
+ 	. Set Munt=$$$PRGet($$$MuntAankoop)
+ 	. Quit:(Munt'="GBP")&&(Munt'="USD")
+ 	. Write PRNr,*9,KortT,*9,Munt,*9,$$$ExcelNum($$$PRGet($$$CifPPLEUR))
+ 	. Do RECALC^PRODUKT2(PRNr)
+ 	. Write *9,$$$ExcelNum($$$PRGet($$$CifPPLEUR)),!
+	Do CLOSE^vhDEV(Device)
+	Quit
+	
+
+
+stock
+ 	Set Dev=$$OPEN^vhDEV(,"Stock.txt","W","T")
+ 	Use Dev
+	Set MPRNr=""
+	For  Set MPRNr=$O(^PRBS("IP",568116,MPRNr)) Quit:MPRNr=""  Do 
+	. Set TOENr=""
+	. For  Set TOENr=$O(^TO("IP",MPRNr,TOENr)) Quit:TOENr=""  Do
+	. . Set TLUNr=""
+	. . For  Set TLUNr=$O(^TO("IP",MPRNr,TOENr,TLUNr)) Quit:TLUNr=""  Do
+	. . . Set TLNr=^TO("IP",MPRNr,TOENr,TLUNr)
+	. . . Set Qty=$P(^KTO($$$LevHalux,TOENr,TLNr),"\",3)
+	. . . Set BSKey=""
+	. . . For  Set BSKey=$O(^PRBS("IP",568116,MPRNr,BSKey)) Quit:BSKey=""  Do
+	. . . . Set Factor=$P(^PRBS("BS",MPRNr,BSKey),"\",2)
+	. . . . Set Dim=$P(^PRBS("BS",MPRNr,BSKey,"D"),"\",3)
+	. . . . W MPRNr,*9,TOENr,*9,$P(^KTO($$$LevHalux,TOENr,TLNr),"\",27),*9,Qty,*9,Factor,*9,$$$ExcelNum(Dim/2780),*9,$$$ExcelNum(Dim/2780*Qty*Factor),!
+	Do CLOSE^vhDEV(Dev)
+
+	Q
+
+m	s Dag=""
+	f  s Dag=$O(^KKAAR(Dag)) Quit:Dag=""  do
+	.s Reg="",Omz=0
+	.f  s Reg=$O(^KKAAR(Dag,Reg)) Quit:Reg=""  do
+	. . set Omz=Omz+$P(^KKAAR(Dag,Reg),"\",1)
+	.W Dag,*9,$$$ExcelNum(Omz),!
+
+
+	quit
+B
+ 	Set Dev=$$OPEN^vhDEV(,"BonTellingen.txt","W","T")
+ 	Use Dev
+ 	S KLNr=0
+ 	For  Set KLNr=$O(^KUL(KLNr)) Quit:KLNr=""  Do
+	 .Set Node=""
+	. For  Set Node=$O(^KUL(KLNr,Node)) Quit:Node=""  Do
+	. .Set ORDNr=0
+	. .For  Set ORDNr=$O(^KUL(KLNr,"F",ORDNr)) Quit:ORDNr=""  Do
+	. . . Set OLNr=99, AantalPos=0, AantalNeg=0
+	. . . For  Set OLNr=$O(^KUL(KLNr,"F",ORDNr,OLNr)) Quit:OLNr'?3.N  Do
+	. . . . Set OLRec=^KUL(KLNr,"F",ORDNr,OLNr)
+	. . . . Quit:$P(OLRec,"\",17)'="KF6"
+	. . . . Quit:$P(OLRec,"\",14)'=""
+	. . . . Set Qty=$P(OLRec,"\",3)
+	. . . . Set:Qty>0 AantalPos=AantalPos+1
+	. . . . Set:Qty<0 AantalNeg=AantalNeg+1
+	. . . Write KLNr,*9,Node,*9,ORDNr,*9,$$$ExcelDat($$INTDATE^vhLib.DataTypes($P(^KUL(KLNr,"F",ORDNr,1),"\",2)))
+	. . . Write *9,AantalPos,*9,AantalNeg,*9,$S(AantalPos>0&&(AantalNeg>0):"G",AantalPos>0:"L",AantalNeg>0:"T",1:"X")
+	. . . Write !
+	Do CLOSE^vhDEV(Dev)
+	Q
+O
+ 	Set Dev=$$OPEN^vhDEV(,"OrderTellingen.txt","W","T")
+ 	Use Dev
+ 	S KLNr=0
+ 	For  Set KLNr=$O(^KOD(KLNr)) Quit:KLNr=""  Do
+	. Set ORDNr=0
+	. For  Set ORDNr=$O(^KOD(KLNr,"F",ORDNr)) Quit:ORDNr=""  Do
+	. . Write KLNr,*9,ORDNr,*9,$P(^KOD(KLNr,"F",ORDNr,1),"\",26),!
+	Do CLOSE^vhDEV(Dev)
+	Q
+T	
+	Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ProductieZijkantFrees).%New().VerwerkRecente()
+	Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ProductieAfkanter).%New().VerwerkRecente()
+	Q
+	
+File
+ Set:$G(WildCard)="" WildCard="*.txt"  ;Als WildCard weggelaten is wordt alles geselecteerd
+ Set Dir="\\ArdisClient\Import"
+ Set rs=##class(%ResultSet).%New("%Library.File:FileSet")
+ Do rs.Execute(Dir,WildCard)
+ While rs.Next() 
+ { 
+ 	Set FileNm=$TR(rs.Data("ItemName"),"\","/")
+ 	Set PadEnFile=$TR(rs.Data("Name"),"\","/")
+  	Set TijdStip=rs.Data("DateCreated")
+ 	Set TijdStip=$zdth(TijdStip,3)
+ 	If $$DIFFTIME^vhLib.DataTypes(TijdStip,$H)>300 ;5min
+ 	{
+		If FileNm?1"ImportList".E  ; Delete file
+		{
+					w FileNm," Delete",!
+		}
+		Else  ; Move file 
+		{
+			w FileNm," Move",!
+		}
+ 	}
+ }
+ Do rs.%Close()
+ Quit
+
+	
+FELEM 
+ Set Dev=$$OPEN^vhDEV(,"SubMag.txt","W","T")
+ Use Dev
+ New sRec,sItem,sCnt,sTaal
+ Set sItem=""
+ For  Set sItem=$O(^RES("PRODUKT","PI","HFWVSUBMAG","D",sItem)) Quit:sItem=""  Do
+ . Set sRec=^RES("PRODUKT","PI","HFWVSUBMAG","D",sItem)
+ . Write sItem,*9,$P(sRec,"`",2),*9,$P(sRec,"`",3),*9,$P(sRec,"`",4),!
+ Do CLOSE^vhDEV(Dev)
+ Quit
+
+ 
+Verpakking
+	Set Dev=$$OPEN^vhDEV(,"Verpakking.txt","W","T")
+	Use Dev
+	Write "PRNr	KortTekst	MinBH	LevTrm	Stock	Pallet	GVpk	NVpk	KVpk	PerStuk	LevNm	HfdGrp	Grp",!
+	Set PRNr=0
+	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
+	. Quit:$D(^KPR(PRNr,"G"))
+	. Quit:$$GENTYP^HAD(PRNr)'=""
+	. Quit:$$ISORGAL^ORGALUX(PRNr)
+	. Do VerpakkingOne(PRNr)
+	Do CLOSE^vhDEV(Dev)
+	Quit 
+	
+VerpakkingOne(PRNr)
+	Set Product=##class(Prod.Product).%OpenId(PRNr)
+	Quit:'$isObject(Product)
+	Write PRNr
+	Write *9,Product.KortTekst
+	Write *9,Product.Prijs.MinimumBestelhoeveelheid
+	Write *9,Product.Prijs.LeveringsTermijn
+	Write *9,Product.StockNietStock
+	Write *9,Product.PalletAantal
+	Write *9,Product.Prijs.GrootVerpakking
+	Write *9,Product.Prijs.NormaleVerpakking
+	Write *9,Product.Prijs.KleinVerpakking
+	Write *9,$case(Product.Prijs.VerkoopPerStuk,-1:"Nooit",1:"Toegelaten",:"Eventueel")
+	Write *9,Product.Prijs.Leverancier.Naam
+	Write *9,$E(Product.Klas.HoofdGroep,3,4)
+	Write *9,$E(Product.Klas.Groep,7,9)
+	Write !
+	Quit
+	
+	
+Bluran(FAKNr)
+	Do
+	. Do
+ 	. . 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"
+	. . . . . Write PRNr," ",$P(LRec,"\",14)
+	. . . . . Quit:$P(LRec,"\",14)'="Z"
+	. . . . . Set $P(^KFA("F",FAKNr,BONNr,LNr),"\",14)=""
+
+ Quit
+
+Offerte
+ Set Device=$$OPEN^vhDEV(,"Offerte.txt","W","T")
+ Use Device
+ Write "KLNr	OFFNr	Aantallijnen	IPNr	BIDI	Datum",!
+ Set KLNr=0
+ For  Set KLNr=$O(^KOFKL(KLNr)) Quit:KLNr=""  Do
+ .
+ . Quit:KLNr=6780
+ . Quit:KLNr=4100
+ .
+ . Set ORDNr=""
+ . For  Set ORDNr=$O(^KOFKL(KLNr,"F",ORDNr)) Quit:ORDNr=""  Do
+ . . Set HRec=^KOFKL(KLNr,"F",ORDNr,1)
+ . . Set IPNr=$P($P(HRec,"\",8),"#")
+ . . Set Naam=""
+ . . Set:IPNr Naam=$P(^vhUSER("D",IPNr),"\",2)
+ . . Set Datum=$$INTDATE^vhLib.DataTypes($P(HRec,D,2))
+ . . Quit:Datum<($H-360)
+ . . Set Cnt=0
+ . . Set OLNr=""
+ . . For  Set OLNr=$O(^KOFKL(KLNr,"F",ORDNr,OLNr)) Quit:OLNr=""  Do
+ . . . Set Cnt=Cnt+1
+ . . Write KLNr,*9,ORDNr,*9,Cnt,*9,IPNr,*9,Naam,*9,$$$ExcelDat(Datum)
+ . . Write !
+ 
+ Do CLOSE^vhDEV(Device)
+ 
+ Quit
+
+
+
 DELMAIL
 	Set ml=""
 	For  Set ml=$O(^vhMAIL("D",ml)) Quit:ml=""  Do
@@ -165,22 +677,25 @@
 	Do CLOSE^MRPRES("Fetch")
 	Quit
 	
-ReceptieMaatwerk2
-	Set Device=$$OPEN^vhDEV(,"DagProd.txt","W","T")
+Fof
+	Set Device=$$OPEN^vhDEV(,"Fof Data.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")
+ 	. ;Set GenTyp=$$GENTYP^HAD(PRNr,1)
+ 	. ;Quit:($P(GenTyp,"\")'="TBX")&&($P(GenTyp,"\")'="LBX") ;&&($P(GenTyp,"\")'="TAO")
+ 	. Set Key=""
   	. 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"
+ 	. . Quit:$P(Rec,"\",4)'="U"&&($P(Rec,"\",4)'="T")&&($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)
+	. . Quit:+Datum<($H-100)
+	. . Set Gewicht=$$$PRGet($$$Gewicht)
+	. . Set Aantal=$P(Rec,"\",2)
+	. . Write PRNr,*9,KortT,*9,$$$ExcelDat(Datum),*9,$$$ExcelTime($PIECE(Datum,",",2)),*9,$P(Rec,"\",4),*9,Aantal,*9,$$$ExcelNum(Gewicht*Aantal/1000)
 	. . Write !
 	Do CLOSE^vhDEV(Device)
 	Quit
@@ -2028,4 +2543,3 @@
 
 
 
-