Index: EWORDS3.mac.rou
===================================================================
diff -u -r29059 -r44469
--- EWORDS3.mac.rou	(.../EWORDS3.mac.rou)	(revision 29059)
+++ EWORDS3.mac.rou	(.../EWORDS3.mac.rou)	(revision 44469)
@@ -1,3 +1,4 @@
+#include BL.Derde.LevSpecifiek
 EWORDS3 ;E'WMS Markeren voor orderpicking [ 11/28/2003  10:51 AM ]
 
  /*
@@ -253,10 +254,10 @@
 CHECK(CONSNr,TextPop) 
  New R,KLNr,Check,Krediet,Rembours,VooruitBetaling,VerzW,ORDNr,OrdTyp,KredLim,Dubieus,IsMonster,IsProforma,SendWMS
  Set R=^ORDW("D",CONSNr),KLNr=$P(R,D),VerzW=$P(R,D,2)
- Set SendWMS=$P(^KKL(^KK1(KLNr),2),D,8)
- Set Check=$E(SendWMS,$L(SendWMS)) ; Geen vrijgave door boekhouding nodig
+ Set Check=$$IsKlantVrijgesteldVanVrijgaveDoorBKH(KLNr) ; Geen vrijgave door boekhouding nodig
+ Set R=^KKL(^KK1(KLNr),3),Rembours=$P(R,D),VooruitBetaling=$P(R,D,2),Dubieus=$P(R,D,8)
+ Set:'Check Check=$$CheckVolledigHalux(CONSNr)&&('Rembours)&&('Dubieus)
  If 'Check Do
- .Set R=^KKL(^KK1(KLNr),3),Rembours=$P(R,D),VooruitBetaling=$P(R,D,2),Dubieus=$P(R,D,8)
  .Set Krediet=$$WAARDIG^KREDIET(KLNr,,,,,.Hulp),KredLim=$P(Krediet,D,3)
  .Set ORDNr=$O(^ORDW("D",CONSNr,"D","")),R=^KOD(KLNr,"F",ORDNr,1)
  .Set IsMonster=$P(R,D,25)="M",IsProforma=$P(R,D,25)="P"
@@ -292,6 +293,37 @@
  .Set R=$$WILD^vhTXTPOP("C;C","","Tekst")
  Quit Check
  ;
+IsKlantVrijgesteldVanVrijgaveDoorBKH(KLNr)
+ New VrijgaveAutomatisch
+ Set VrijgaveAutomatisch=$P(^KKL(^KK1(KLNr),2),D,8)
+ Quit $E(VrijgaveAutomatisch,$L(VrijgaveAutomatisch))
+
+
+CheckVolledigHalux(CONSNr)
+ New OLNr,R,ORDNr,OLUNr,TOELNr,PRNr,NietVolledigHalux,KLNr,LevNR
+ Set NietVolledigHalux=0
+ Set KLNr=$P(^ORDW("D",CONSNr),"\")
+ Set ORDNr=100
+ For {
+	Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr))
+	Quit:ORDNr=""
+ 	Set OLUNr=""
+ 	For {
+		Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr))
+		Quit:OLUNr=""
+		Set OLNr=^ORD("IU",ORDNr,OLUNr)
+		Set R=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(R,D,2)
+		Continue:'PRNr
+		Set LevNr=$E($O(^KPR(PRNr,"J")),2,9)
+		Set TOELNr=$P(R,D,28) ;bevat de lijnnr van de toelevering of KOM
+		If (TOELNr="")||(LevNr'=$$$LevHalux) Set NietVolledigHalux=1
+	 	Quit:NietVolledigHalux
+ 	}
+ 	Quit:NietVolledigHalux
+ }
+ Quit 'NietVolledigHalux
+ 
+ 
 BELET(CONSNr,Aktie) 
  New R,KLNr,Check,Rembours,Krediet,VooruitBetaling,Dubieus
  Set Aktie=$G(Aktie)
@@ -513,4 +545,3 @@
  ;
 
 
-