KDVZWK G 1 ;DRUKKEN VERZENDINGSWIJZEN [ 08/05/2002  10:33 AM ]
 ;
1 S K=$P($T(+1),";",2)_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
10 S BLZ=0,NM2=@("^"_Q_"BA(99,2)"),NM3=^(3)
2 S FP=403 W @F,@F1,"VANAF VERZENDINGSWIJZE :"
20 S IVW="",FP=501
3 S IVW=$N(@("^"_Q_"BA(155,IVW)")),VVE=1 G 5:IVW=-1 S FP=FP+100 W @F,$C(13),?2,IVW,?6,": ",^(IVW,"N"),?31,"PORT : ",$P("VRIJ\TE BET",D,^(0)+1)
4 G 3:FP<1600 S VVE=$N(@("^"_Q_"BA(155,IVW)"))=-1
5 S R="FVW\21\3\VANAF VERZENDINGSWIJZE\C1\3\\""-.""[K!($E(K,1)'="" ""&($E(K,2)'="" "")&($L(K)=2))\" D R0 G YZ:K="-"
6 I K="" S FP=501 W @F,@F1 G 20:VVE,3
7 S FVW=FVW_" ",FP=428 W @F,@F1,$S(K=".":"BEGIN",1:FVW)
8 S FP=503 W @F,@F1,"TOT VERZENDINGSWIJZE   :"
9 S IVW="",FP=601
11 S IVW=$N(@("^"_Q_"BA(155,IVW)")),VVE=1 G 15:IVW=-1 S FP=FP+100 W @F,$C(13),?2,IVW,?6,": ",^(IVW,"N"),?31,"PORT : ",$P("VRIJ\TE BET",D,^(0)+1)
13 G 11:FP<1600 S VVE=$N(@("^"_Q_"BA(155,IVW)"))=-1
15 S R="LVW\21\3\TOT VERZENDINGSWIJZE\C2\3\\""-.I""[K!($E(K,1)'="" ""&($E(K,2)'="" "")&($L(K)=2))\" D R0 G 2:K="-"
17 I K="" S FP=601 W @F,@F1 G 9:VVE,11
19 S:K="." LVW="ZZ" S:K="I" LVW=FVW S LVW=LVW_" ",FP=528 W @F,@F1,$S(K=".":"EINDE",1:LVW)
21 D INIT^vhPRINTER(80) G 8:'$D(Print)
23 D HD G 27:$D(@("^"_Q_"BA(155,FVW)"))
25 S FVW=$N(@("^"_Q_"BA(155,FVW)")) I FVW=-1!(FVW]LVW) G 33
27 I LN>49 W # D HD
28 S LN=LN+7 W !,"VERZENDINGSWIJZE : ",FVW,!,"----------------   --",!,"NEDERLANDS",?17,": ",^(FVW,"N")
29 F I="F","D",0 W !,$P("FRANS\DUITS\PORT",D,$F("FD0",I)-1),?17,": " W:I'=0 ^(I) W:I=0 $P("VRIJ\TE BET",D,^(I)+1)
31 W ! G 25
33 W # D CLOSE^vhPRINTER
YZ Q
 ;
HD S BLZ=BLZ+1,LN=0 W !,QN,?72,"BLZ: ",$J(BLZ,3),!,NM2,?32,$P($T(+1)," ",5),?72,DT
HD1 W !,NM3,?73,TD,!!
HDZ Q
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
C1 W !?2,".[] = vanaf het begin" W:'VVE "   [] = vervolg" W "   -[] = einde programma" Q
C2 W !?2,".[] = tot het einde" W:'VVE "   [] = vervolg" W "   I[] = idem als vorige" Q
 ;