Index: EWPAL.mac.rou
===================================================================
diff -u -r29059 -r47554
--- EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 29059)
+++ EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 47554)
@@ -139,7 +139,7 @@
  ;Opslaan van gewicht en samplecode
  ;If Gewicht Do  ; Tijdelijk geen gewicht aanpassingen
  .Set R=^KPR(PRNr,1) Set:$P(R,D,13)'=Gewicht/1000 $P(R,D,13)=Gewicht/1000,^KPR(PRNr,1)=R
- Set R=^KPR(PRNr,2) Set:$P(R,D,12)'=SampTyp $P(R,D,12)=SampTyp,^KPR(PRNr,2)=R ; de wijzing ^KPR moet niet doorgegeven worden aan het WMS
+ ;Set R=^KPR(PRNr,2) Set:$P(R,D,12)'=SampTyp $P(R,D,12)=SampTyp,^KPR(PRNr,2)=R ; de wijzing ^KPR moet niet doorgegeven worden aan het WMS
  Set:$L(PalId) R=^EWPAL("D",PRNr,PalId),$P(R,D,10)=1,^EWPAL("D",PRNr,PalId)=R ; Passed
  Quit
  ;