Index: EWORDF.mac.rou
===================================================================
diff -u -r5214 -r50908
--- EWORDF.mac.rou	(.../EWORDF.mac.rou)	(revision 5214)
+++ EWORDF.mac.rou	(.../EWORDF.mac.rou)	(revision 50908)
@@ -128,7 +128,7 @@
  Set IsUgly=$G(IsUgly,0)
  ; De aantallen van de suborderlijnen cumuleren en doorgeven aan de orderlijn, rekening houdend met moeder->kindproducten
  ; De status/errormelding van de suborderlijn propageren naar orderlijn en verder naar orderhoofding
- New SOLNr,Qty,MaxQty,MinQty,MPRNr,KPRNr,CONSRec,OLRec,SOLRec,KQty,SOLCnt,StatCnt,OLStat,FStat,EStat,OLEStat,OLFStat,KindQty
+ New SOLNr,Qty,MaxQty,MinQty,MPRNr,KPRNr,CONSRec,OLRec,SOLRec,KQty,SOLCnt,StatCnt,OLStat,FStat,EStat,OLEStat,OLFStat,KindFactor
  Set OLRec=^ORDW("D",CONSNr,"D",ORDNr,OLUNr)
  If $G(^EWLOG("DEBUG"))=2 Write !,OLRec
  Set SOLNr=""
@@ -148,11 +148,14 @@
  Set MaxQty=-1,MinQty=999999999
  
  For  Set KPRNr=$O(KQty(KPRNr)) Quit:KPRNr=""  Do
- .Set KindQty=$P($G(^PRLINK("D",MPRNr,KPRNr),1),D)
- .Quit:KindQty'>0
- .Set KQty=KQty(KPRNr)\KindQty
- .Set:KQty<MinQty MinQty=KQty
- .Set:KQty>MaxQty MaxQty=KQty
+ . Set KindFactor=$$GetMoederKindFactorRecursief^PRBS(MPRNr,KPRNr) ; probleem met Moeder -> Kind -> SingleKind oplossen, aangepast PV 14/02/2012
+ . ;If KindFactor'>0&&$P(OLRec,D,4)>0 Do ; probleem met Moeder -> Kind -> SingleKind oplossen, aangepast PV 11/02/2012
+ . ;. Set KindFactor=$G(KReqQty(KPRNr))\$P(OLRec,D,4)
+ . ;Set:'KindFactor KindFactor=1
+ . Quit:KindFactor'>0
+ . Set KQty=KQty(KPRNr)\KindFactor
+ . Set:KQty<MinQty MinQty=KQty
+ . Set:KQty>MaxQty MaxQty=KQty
  Set:MinQty=999999999 MinQty=0
  Set:MaxQty=-1 MaxQty=0
  If MinQty>0,$P(OLRec,D,3)="E" Set $P(OLRec,D,3)="Q" ;Als er een deel gepickt is dan "Q" ipv "E"
@@ -172,7 +175,7 @@
  
  ; Propageren van de lijnstatus naar SOFTV en hoofdrecord
 PROPLIJN(CONSNr,SoftV,OLFStat,OLEStat) 
- New SoftVRec,CONSRec,FStat,EStat,Eprio,OLEprio,HerZend
+ New SoftVRec,CONSRec,FStat,EStat,Eprio,OLEprio,HerZend,tempSoftV,Vzw
  ; propageren naar SoftV status
  Set SoftVRec=$G(^ORDW("D",CONSNr,"S",SoftV))
  Set FStat=$P(SoftVRec,D,1)
@@ -196,11 +199,13 @@
  Set:Eprio<OLEprio EStat=OLEStat
  If FStat="W" Do 
  . Set FStat="P"
- . Set SoftV=$O(^ORDW("D",CONSNr,"S",""))
- . Quit:SoftV=""
- . Quit:$O(^ORDW("D",CONSNr,"S",SoftV))="" ; slechts 1 SOFTV groep
+ . Set tempSoftV=$O(^ORDW("D",CONSNr,"S",""))
+ . Quit:tempSoftV=""
+ . Quit:$O(^ORDW("D",CONSNr,"S",tempSoftV))="" ; slechts 1 SOFTV groep
+ . Set Vzw=$P(^ORDW("D",CONSNr),"\",2)
+ . Quit:Vzw'?1(1"DI1",1"OD1",1"OD2",1"OD3",1"OD4") ; alleen voor GLS en OD
  . Set DueOut=$P(CONSRec,D,3)
- . Set $P(DueOut,",",2)=$P(DueOut,",",2)-300 ; 5 min vroeger
+ . Set $P(DueOut,",",2)=$S(Vzw="OD1":6,Vzw="OD2":7,Vzw="OD3":8,Vzw="OD4":9,1:4)*60*60
  . Set:$P(DueOut,",",2)<0 $P(DueOut,",",2)=120 ; correctie negatieve tijd PV 12-03-2012
  . Set $P(CONSRec,D,3)=DueOut
  . Set HerZend=1 ; herzenden van dueout naar EWMS
@@ -320,4 +325,4 @@
 ORDSTAT ;"De status in het order is foutief moet ""P"" zijn :"_C("VOLGNR")_";"_C("CONSNR")_";"_C("ORDNR")_";"_SoftV_";"_C("STATUS")_";"_ORDStat
 OLSTAT2 ;"De status van sommige orderlijnen zijn nog niet afgesloten :"_C("VOLGNR")_";"_C("CONSNR")_";"_C("ORDNR")_";"_OLStat
 NOCONS ;"Consolidatie bestaat niet :"_C("VOLGNR")_";"_C("CONSNR")
-VOORTREK ;"Consolidatie wordt vervroegd omdat een deel reeds gepickt wordt :"_C("VOLGNR")_";"_C("CONSNR")
\ No newline at end of file
+VOORTREK ;"Consolidatie wordt vervroegd omdat een deel reeds gepickt wordt :"_C("VOLGNR")_";"_C("CONSNR")_";"_SoftV_";"_boot
\ No newline at end of file