Index: EWBON.mac.rou
===================================================================
diff -u -r734 -r1817
--- EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 734)
+++ EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 1817)
@@ -123,7 +123,7 @@
  Quit
  ;
 OLU(KLNr,CONSNr,ORDNr,OLUNr,ComTegKom) 
- New R,ULNr,OLNr,TOLNr,SOLUNr,MPRNr,KPRNr,PRNr,AantWMS,OrdAant,Netto,StukPr,StockUpd,BLUNr,MdrIsKnd,WMS,ChargeTraceID
+ New R,ULNr,OLNr,TOLNr,SOLUNr,MPRNr,KPRNr,PRNr,AantWMS,OrdAant,Netto,StukPr,StockUpd,BLUNr,MdrIsKnd,WMS,ChargeTraceID,FSCHout
  ; Copieren van tekst- en manuele lijnen vooraan in het order
  Do:$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr),-1)=""
  .Set (OLNr,TOLNr)=^ORD("IU",ORDNr,OLUNr)
@@ -146,6 +146,7 @@
  .Set:'MdrIsKnd MdrIsKnd=MPRNr=KPRNr
  .Do SOLU(KLNr,CONSNr,ORDNr,OLUNr,SOLUNr,.WMS,BLUNr)
  Set OLNr=^ORD("IU",ORDNr,OLUNr),R=^KOD(KLNr,"F",ORDNr,OLNr),OrdAant=$P(R,D,3)
+ Set:$L($P(R,D,48)) FSCHout=$P(R,D,48)
  Set Netto=$P(R,D,9),StukPr=$S(OrdAant:Netto/OrdAant,1:Netto)
  Set StockUpd=$P(R,D,14)'["S" Set:StockUpd StockUpd=$P(R,D,14)'["Z"
  If $P(R,D,2),'$$MAGHANDEL^PRODUKT2($P(R,D,2)) Set StockUpd=0
@@ -155,7 +156,7 @@
  Do BUILDBON^FLOWBON3(KLNr,CONSNr,ULNr),BUILDKUP^FLOWBON3(KLNr,CONSNr,ULNr)
  Set BLUNr=$Piece($G(^KUL(KLNr,"F",CONSNr,ULNr)),D,15)
  I +BLUNr Set $Piece(^ORDW("D",CONSNr,"D",ORDNr,OLUNr),"\",10)=BLUNr
- Do:OrdAant'<0 HIST(KLNr,CONSNr,BLUNr,MPRNr,OrdAant,StukPr,StockUpd,.WMS,,,'MdrIsKnd)
+ Do:OrdAant'<0 HIST(KLNr,CONSNr,BLUNr,MPRNr,OrdAant,StukPr,StockUpd,.WMS,,,'MdrIsKnd,.FSCHout)
  Do WEEKSTAT(KLNr,CONSNr,ULNr) 
  ;Do REMLINE^EWORDST(CONSNr,ORDNr,OLUNr)
  Do ADDRES(CONSNr,ORDNr,OLUNr)
@@ -175,7 +176,7 @@
  Quit
  ;
 SOLU(KLNr,CONSNr,ORDNr,OLUNr,SOLUNr,WMS,BLUNr) 
- New R,MPRNr,KPRNr,AantWMS,StukPr,StockUpd,Munt,Pariteit,BronPal,User,Date,DoelPal,SubHNr,FysMagaz,TempSOLUNr,SOPRPRNr
+ New R,MPRNr,KPRNr,AantWMS,StukPr,StockUpd,Munt,Pariteit,BronPal,User,Date,DoelPal,SubHNr,FysMagaz,TempSOLUNr,SOPRPRNr,FSCHout
  Set R=^ORDW("D",CONSNr,"D",ORDNr,OLUNr),MPRNr=$P(R,D)
  Set R=^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLUNr),AantWMS=$P(R,D,4)
  Do:AantWMS'<0
@@ -199,25 +200,26 @@
  . . Set SubHNr=$O(WMS(""),-1)+1,WMS(SubHNr)=R
  . Quit:KPRNr=MPRNr  ; Historiek wordt verwerkt op niveau OLU
  . Set OLNr=^ORD("IU",ORDNr,OLUNr),R=^KOD(KLNr,"F",ORDNr,OLNr)
+ . Set:$L($P(R,D,48)) FSCHout=$P(R,D,48)
  . Set StockUpd=$P(R,D,14)'["S" Set:StockUpd StockUpd=$P(R,D,14)'["Z"
  . If $P(R,D,2),'$$MAGHANDEL^PRODUKT2($P(R,D,2)) Set StockUpd=0
  . Set StukPr=$P($$KLANTPR^KPRIJS(KLNr,KPRNr),D,14)
  . If StukPr Do
  . . Set R=^KUL(KLNr,"F",CONSNr,1),Munt=$P(R,D,18)
  . . Set Pariteit=$$MUNT^vhRtn1(Munt,,12),StukPr=StukPr/Pariteit
  . If SOPRPRNr Do
- . . Do HIST(KLNr,CONSNr,BLUNr,SOPRPRNr,AantWMS,StukPr,StockUpd,.WMS,,MPRNr)
- . . Do HIST(KLNr,CONSNr,BLUNr,KPRNr,AantWMS,StukPr,StockUpd,.WMS,,SOPRPRNr)
+ . . Do HIST(KLNr,CONSNr,BLUNr,SOPRPRNr,AantWMS,StukPr,StockUpd,.WMS,,MPRNr,,.FSCHout)
+ . . Do HIST(KLNr,CONSNr,BLUNr,KPRNr,AantWMS,StukPr,StockUpd,.WMS,,SOPRPRNr,,.FSCHout)
  . Else  Do
- . . Do HIST(KLNr,CONSNr,BLUNr,KPRNr,AantWMS,StukPr,StockUpd,.WMS,,MPRNr)
+ . . Do HIST(KLNr,CONSNr,BLUNr,KPRNr,AantWMS,StukPr,StockUpd,.WMS,,MPRNr,,.FSCHout)
  Quit
  ;
 NEXTULNR(KLNr,CONSNr) 
  New ULNr
  Set ULNr=^KUL(KLNr,"F",CONSNr,0),^KUL(KLNr,"F",CONSNr,0)=ULNr+1
  Quit ULNr
  ;
-HIST(KLNr,CONSNr,BLUNr,PRNr,Aantal,StukPr,StockUpd,WMS,Histor,MPRNr,OverKind) 
+HIST(KLNr,CONSNr,BLUNr,PRNr,Aantal,StukPr,StockUpd,WMS,Histor,MPRNr,OverKind,FSCHout) 
  New R,RTemp,Munt,PR,Pariteit,BonDat,Waarde,ModHist,IsEuro,TransfWV,Magazijn,OrdDat,BLNr,IsKind
  Set Histor=$G(Histor) Set:Histor="" Histor="ON"
  Set MPRNr=$G(MPRNr),IsKind=0
@@ -242,9 +244,9 @@
  ..Do WV^KPR10
  Do:Histor["N"
  .Set Aantal=-Aantal,Magazijn=$S(OverKind:"K",'StockUpd:"Z",1:"M") Set:TransfWV (CONSNr,BLUNr)=""
- .Do PUT^PRHIST(PRNr,Aantal,$S(TransfWV:"T",Aantal>0:"R",1:"U"),Magazijn,KLNr,CONSNr,BLUNr,$$INTDATE^vhDTyp(BonDat),,,.WMS,,MPRNr,OrdDat)
+ .Do PUT^PRHIST(PRNr,Aantal,$S(TransfWV:"T",Aantal>0:"R",1:"U"),Magazijn,KLNr,CONSNr,BLUNr,$$INTDATE^vhDTyp(BonDat),,,.WMS,,MPRNr,OrdDat,.FSCHout)
  .Set Aantal=$S(StockUpd:-Aantal,1:0),Magazijn="W"
- .Do:TransfWV PUT^PRHIST(PRNr,Aantal,$S(TransfWV:"T",1:"U"),Magazijn,KLNr,CONSNr,BLUNr,$$INTDATE^vhDTyp(BonDat),,,,,MPRNr,OrdDat)
+ .Do:TransfWV PUT^PRHIST(PRNr,Aantal,$S(TransfWV:"T",1:"U"),Magazijn,KLNr,CONSNr,BLUNr,$$INTDATE^vhDTyp(BonDat),,,,,MPRNr,OrdDat,.FSCHout)
  Quit
  ;
 WEEKSTAT(KLNr,CONSNr,ULNr)