Index: ZBCHKFLO.mac.rou
===================================================================
diff -u -r33207 -r64373
--- ZBCHKFLO.mac.rou	(.../ZBCHKFLO.mac.rou)	(revision 33207)
+++ ZBCHKFLO.mac.rou	(.../ZBCHKFLO.mac.rou)	(revision 64373)
@@ -60,6 +60,8 @@
  ...Write !!,"Index ",ZR," order onbekend",!,?8,"Klant = ",$P(R,D)
  
  Write !!,"*** Flow - Toeleveringen ***"
+ New RapporteerSptMeldingen,IsMeldingNodig
+ Set RapporteerSptMeldingen = $Get(^||RapporteerSptMeldingen, "EERSTE-WARNING")   ; Andere mogelijke defaults : "ALLE", "ALLEEN-ERRORS", "NIETS" 
  If $G(Check)'=0 Do
  .Set LEVNr=0
  .For  Set LEVNr=$O(^KTO(LEVNr)) Quit:'LEVNr  Do
@@ -107,8 +109,20 @@
  ......Else  If (OrderLijnIsSpaceTower) && ($P(R,D,27)="KOM") Do
  ...... . Set Check=0
  ...... . Set ExtraMelding=", vermoedelijk is dit een niet-volledig ingeboekte toelevering voor SPACETOWER."
+ ......
+ ...... Set IsMeldingNodig = 1
+ ...... Set:(OrderLijnIsSpaceTower) IsMeldingNodig = $CASE(RapporteerSptMeldingen, "ALLE":1, "NIETS":0, "ALLEEN-ERRORS":Check=0, "EERSTE-WARNING":1, "TWEEDE-WARNING":0, :1)
+ ...... 
  ......Do wLEVERANCIER^zbcheck
- ......Write !!,"Kom link ",ZR," foutief"_ExtraMelding,!,?8,"Toelev  = ",TOENr,?29,"Order = ",ORDNr,?50,"Lijn = ",OLNr,!,?8,"Order = ",ORDNr,?29,"Toelev  = ",$P(R,D,27),?50,"Lijn = ",$P(R,D,28)
+ ......Write:(IsMeldingNodig) !!,"Kom link ",ZR," foutief"_ExtraMelding,!,?8,"Toelev  = ",TOENr,?29,"Order = ",ORDNr,?50,"Lijn = ",OLNr,!,?8,"Order = ",ORDNr,?29,"Toelev  = ",$P(R,D,27),?50,"Lijn = ",$P(R,D,28)
+ ......
+ ...... If OrderLijnIsSpaceTower && (Check=1) Do   ; in dit geval is het een WARNING (voor SPT) 
+ ...... . If (RapporteerSptMeldingen = "EERSTE-WARNING") Do
+ ...... . . Set RapporteerSptMeldingen = "TWEEDE-WARNING"
+ ...... . Else  If (RapporteerSptMeldingen = "TWEEDE-WARNING") Do
+ ...... . . Set RapporteerSptMeldingen = "ALLEEN-ERRORS"
+ ...... . . Write !!,"Er zijn nog meer SPACETOWER meldingen, die mogen genegeerd worden. ",!,"Gebruik deze code : Set ^||RapporteerSptMeldingen = ""ALLE""  om alle Spacetower-meldingen te tonen."
+ ......
  If $G(Check)'=0 Do
  .Set LEVNr=""
  .For  Set LEVNr=$O(^KTO2(LEVNr)) Quit:LEVNr=""  Do