Index: FLOWBON5.mac.rou
===================================================================
diff -u -r1023 -r1268
--- FLOWBON5.mac.rou	(.../FLOWBON5.mac.rou)	(revision 1023)
+++ FLOWBON5.mac.rou	(.../FLOWBON5.mac.rou)	(revision 1268)
@@ -130,12 +130,13 @@
  ;
  ; Tonen van het aantal palletten in eco* retour
 EcopackRetour(BONNr)
- New I,rs,lbAantalPalletten,AantalPalletten,lbDetail,Titel,Tekst,PRNr,RestAantal,lbRec,Rec
+ New I,rs,lbAantalPalletten,AantalPalletten,ExtraPalletten,lbDetail,Titel,Tekst,PRNr,RestAantal,lbRec,Rec
  Set rs=##Class(APPS.MAG.RetourService).%New()
  Set lbAantalPalletten=rs.BepaalAantalPalletten(BONNr)
- Set lbDetail=$LI(lbAantalPalletten,2),AantalPalletten=$LI(lbAantalPalletten)
+ Set lbDetail=$LI(lbAantalPalletten,2),AantalPalletten=$LI($LI(lbAantalPalletten)),ExtraPalletten=$LI($LI(lbAantalPalletten),2)
  Set Titel="LevBonNr "_$$EXTNUM^vhDTyp(BONNr,0,".",0)
- Set Tekst="Aantal palletten: �i"_AantalPalletten_"�I"
+ Set Tekst="Aantal stapels : �i"_$J(AantalPalletten,3)_"�I"
+ Set:ExtraPalletten Tekst=Tekst_"~Extra palletten: �i"_$J(ExtraPalletten,3)_"�I"
  For I=1:1:$LL(lbDetail) {
 	 Set lbRec=$LI(lbDetail,I)
 	 Set PRNr=$LI(lbRec),RestAantal=$LI(lbRec,6)