Index: FLOWHALUX.mac.rou
===================================================================
diff -u -r54064 -r54336
--- FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 54064)
+++ FLOWHALUX.mac.rou	(.../FLOWHALUX.mac.rou)	(revision 54336)
@@ -387,19 +387,14 @@
  Set TBXBulkVan=$P(sFL(1),D,5), TBXProboxVan=$P(sFL(1),D,6), TBXKartonVan=$P(sFL(1),D,7) ,TBXVHOSSVan=$P(sFL(1),D,8)
  Set TAORProboxVan=$P(sFL(1),D,9), TAORKartonVan=$P(sFL(1),D,10)
  
- Set DisplayOnly=0
+ Do DISPLAY^vhScherm("TBXPRODAG")
+ Set FP=2301 Write @F,"Druk op <enter> om verder te gaan : "
+ Read K
  
- Lock +ProductieDagenData:1 Else  Set DisplayOnly=1  
- 
- If DisplayOnly
- {
-	 Do DISPLAY^vhScherm("TBXPRODAG")
-	 Set FP=2301 Write @F,"Reeds ingebruik. Druk op <enter> om verder te gaan"
-	 Read K
- }
- Else
- {
-	 Do NIEUW^vhScherm("TBXPRODAG",,,,,,,"A")
+ If $ZCVT(K,"U")="WIJZIG" {
+   	 
+   	 Lock +ProductieDagenData:1 Else  Set DisplayOnly=1  
+  	 Do NIEUW^vhScherm("TBXPRODAG",,,,,,,"A")
 	 If (AlleVoor '= sFL(1))
 	 {
 	 	Quit:$$^vhTXTPOP("FILE","SAVE2")'="J"