Index: PROC.mac.rou =================================================================== diff -u -r56959 -r58380 --- PROC.mac.rou (.../PROC.mac.rou) (revision 56959) +++ PROC.mac.rou (.../PROC.mac.rou) (revision 58380) @@ -99,7 +99,7 @@ FL4 GOTO FL6:'$LENGTH(FL(2)),FL5:'$LENGTH($PIECE(FieldParameters,U,7)) ;print IF $PIECE(FieldParameters,U,7)?.N SET FLb=$PIECE(FL(3),"\",$PIECE(FieldParameters,U,7)) - ELSE XECUTE "S FLb="_$PIECE(FieldParameters,U,7) + ELSE XECUTE "S FLb="_$PIECE(FieldParameters,U,7) // N.B. Variabelen zoals FLs zijn hernoemd naar leesbaardere vormen, zie revisie 56936. IF '$GET(FL(4)),FLb WRITE @FMTB,$$FLATASCI(R),@FMTb,$PIECE(FieldParameters,U,6) GOTO FL6 FL5 Set Positie = 1 Index: VERLOF.mac.rou =================================================================== diff -u -r29059 -r58380 --- VERLOF.mac.rou (.../VERLOF.mac.rou) (revision 29059) +++ VERLOF.mac.rou (.../VERLOF.mac.rou) (revision 58380) @@ -153,11 +153,12 @@ Quit $$EXTDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes(Dag_"."_Maand_"."_Jaar),"W") ; KNIP + Break If Bold,VtWn'?.N Do .Write:'$D(Print) @FMTK .Write @FMTB," ",$TR(R," ",""),$S(Scherm=0:$S(UitzFirma:"*",1:" "),1:$S($L($TR(R," ",""))>1:"",1:" ")) .Write:'$D(Print) @FMTk - .Write @FMTb S FLs=FLs_R,R="" If @DL(1)@(6) Write @FMTB + .Write @FMTb S FormattedLine=FormattedLine_R,R="" If @DL(1)@(6) Write @FMTB Quit ; LOCK(Jaar)