Index: TRANSP.mac.rou =================================================================== diff -u -r50561 -r50564 --- TRANSP.mac.rou (.../TRANSP.mac.rou) (revision 50561) +++ TRANSP.mac.rou (.../TRANSP.mac.rou) (revision 50564) @@ -326,8 +326,8 @@ ..If '$$CHKMENU(Menu,Type,"O"),'$$CHKMENU(Menu,Type,"T") Set Ok=0 .Else Do ..Set VervRef=$P(R,D,21),TranspNr=$P(R,D),Status=$P(R,D,2),R=$G(^TRANSP("T",TranspNr)),Items=$P(R,D,4) - ..If Type="F",Status="T",Aktie="VR",TranspNr=5036 Quit ; Herprint vervoerlijst ABX - ..If Type="F",Status="T",Aktie="RS",TranspNr=5036 Quit ; Herzenden vervoerlijst ABX + ..If Type="F",Status="T",Aktie="VR",(TranspNr=5036)||(TranspNr=6612) Quit ; Herprint vervoerlijst ABX + ..If Type="F",Status="T",Aktie="RS",(TranspNr=5036)||(TranspNr=6612) Quit ; Herzenden vervoerlijst ABX ..Set:Items="" Items="O#T#E" Set Items="#"_Items_"#" ..Set:Ophalen Items=$P(Items,"O#")_$P(Items,"O#",2) Set:Transfer Items=$P(Items,"T#")_$P(Items,"T#",2) ..If Items[("#"_Aktie_"#") Quit:Aktie'="E" Quit:'$$ISPRINT^TRANSPL(VervRef)