Index: EWPAL.mac.rou
===================================================================
diff -u -r51729 -r56253
--- EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 51729)
+++ EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 56253)
@@ -225,10 +225,10 @@
  .Set Reden="C/C "_TempPal
  If $G(^EWREC("P","INVENTARIS")) Do
  .Set Reden="INV "_$$EXTDATE^vhDTyp($H,"J4")
- Do:+Qty'=0&&'$G(^EWREC("P","INVENTARIS"))&&(Reden'="**") MAILSTCK(PRNr,MailQty,,"C/C",PalId,Reden,User,$D(Mail)) ; Niet bij inventaris en optimalisatie(Reden="**")
+ Do:+Qty'=0&&('$G(^EWREC("P","INVENTARIS"))||1)&&(Reden'="**") MAILSTCK(PRNr,MailQty,,"C/C",PalId,Reden,User,$D(Mail)) ; Niet bij inventaris en optimalisatie(Reden="**")
  ;Do:+Qty'=0&'$G(^EWREC("P","INVENTARIS")) MAILSTCK(PRNr,MailQty,,"C/C",PalId,Reden,User,$D(Mail)) ; Niet bij inventaris en optimalisatie(Reden="**")
  Do ADDSTOCK(PRNr,Qty,ModTyp,$H,Reden,PalId,Qty,User,$S(+$G(C("AUTOCC")):"D",1:"M"))
- Do:+Qty'=0&&'$G(^EWREC("P","INVENTARIS"))&&(Reden'="**") MOEDER(PRNr,TempQty,Reden,.Mail,$S(+$G(C("AUTOCC")):"D",1:"M")) ; niet bij inventars en optimalisatie(Reden:"**")
+ Do:+Qty'=0&&('$G(^EWREC("P","INVENTARIS"))||1)&&(Reden'="**") MOEDER(PRNr,TempQty,Reden,.Mail,$S(+$G(C("AUTOCC")):"D",1:"M")) ; niet bij inventars en optimalisatie(Reden:"**")
  Quit
  ;
 ADDPAL(PRNr,PalId,AddQty)  ; Bijvoegen of weghalen van een aantal op een palet