Index: FLOWBON5.mac.rou
===================================================================
diff -u -r948 -r1023
--- FLOWBON5.mac.rou	(.../FLOWBON5.mac.rou)	(revision 948)
+++ FLOWBON5.mac.rou	(.../FLOWBON5.mac.rou)	(revision 1023)
@@ -127,4 +127,23 @@
  . If $G(IsAfhaling) Set Check=($E(VerzendWijze,1,2)="AF")
  . Else  Set Check=($E(VerzendWijze,1,2)'="AF")
  Quit Check
+ ;
+ ; Tonen van het aantal palletten in eco* retour
+EcopackRetour(BONNr)
+ New I,rs,lbAantalPalletten,AantalPalletten,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 Titel="LevBonNr "_$$EXTNUM^vhDTyp(BONNr,0,".",0)
+ Set Tekst="Aantal palletten: �i"_AantalPalletten_"�I"
+ For I=1:1:$LL(lbDetail) {
+	 Set lbRec=$LI(lbDetail,I)
+	 Set PRNr=$LI(lbRec),RestAantal=$LI(lbRec,6)
+	 Continue:'RestAantal
+	 Set:Tekst'["~&S" Tekst=Tekst_"~&S~Restaantallen:"
+	 Set Rec=$P(^KPR(PRNr,0),D),Rec=Rec_$J("",26-$L(Rec))_"| �i"_$J(RestAantal,3)_"�I"
+	 Set Tekst=Tekst_"~"_Rec
+ }
+ Do WARN^vhTXTPOP(Tekst,Titel)
+ Quit
  ;
\ No newline at end of file