Index: KFSO.mac.rou
===================================================================
diff -u -r29059 -r47580
--- KFSO.mac.rou	(.../KFSO.mac.rou)	(revision 29059)
+++ KFSO.mac.rou	(.../KFSO.mac.rou)	(revision 47580)
@@ -44,7 +44,11 @@
  S:ULT'?5N ULT=$$INTDATE^vhLib.DataTypes(ULT,"DW")
  S ULT=$$CALCDATE^vhLib.DataTypes(ULT,"W",-$S(PLL:WekenVH2Klant,ULT>$$CALCDATE^vhLib.DataTypes(,"W",1,"LD"):1,WeekDag>4:0,WeekDag<3:0,1:1)-CorLevT)
  S ULT=$$EXTDATE^vhLib.DataTypes(ULT,"DW") ; Levertermijn voor de toelevering
-7 S @("^"_Q_"HULP($J,LEV,VerpakkingsType,UZ)")=D_$P(U2,D,2,4)_"\\"_UEP_D_PK1_"#"_PK2_"\\"_UN_D_UN_"\\L\\\\"_UBE_"\KTRPL\\\\"_USP_D_UMC_"\\\"_ULT_"\\"_UR_D_UZ_"\\\\\\\\" G 3
+7 N UZRec,UZRecPiece
+  S UZRec=D_$P(U2,D,2,4)_"\\"_UEP_D_PK1_"#"_PK2_"\\"_UN_D_UN_"\\L\\\\"_UBE_"\KTRPL\\\\"_USP_D_UMC_"\\\"_ULT_"\\"_UR_D_UZ_"\\\\\\\\" 
+  F UZRecPiece=55:1:$L(U2,D) S $P(UZRec,D,UZRecPiece)=$P(U2,D,UZRecPiece)
+  S @("^"_Q_"HULP($J,LEV,VerpakkingsType,UZ)")=UZRec
+  G 3
 9 I $O(@("^"_Q_"HULP($J,0)"))="" K @("^"_Q_"HULP($J,0)")
  D:$D(@("^"_Q_"HULP($J,0)")) TEXTTOE
  S LEV=0,UJ="" I '$D(@("^"_Q_"HULP($J)")) S:'UAF UAF=1 G 33