KTLVWK G 1 ;BEHEER TEKSTEN LEVERINGSVOORW. KLANTEN ;KTLVWK; [ 08/07/2002   4:08 PM ]
1 B 1 S TL="NEDERL.\FRANS  \DUITS  \ENGELS ",TL1="NFDE"
10 S TK="FT\AF\AM\FG",K=$P($T(+1),";",2)_QN_" ",FP=103+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=102 W @F,@F4,K,@F5
13 S SW=0,R="HER\22\3\TEKST VOOR LEVERINGSVOORWAARDE FT,AF,AM of FG\92\1\\(""-123""[K)\" D S0 G 6:K="-"
15 S HER=HER+1,FP=180 W @F,@F5 S FP=175 W @F,@F4,$P(TK,D,HER)," ",@F5,@F1
17 S A="'$D(^"_Q_"BA(153,HER))",Y=0 I @A S SW=1 G 2
19 F I="N","F","D","E" S @(I_"(1)=^"_Q_"BA(153,HER,I,1)") F X=2:1:5 S @(I_"(X)=^(X)")
2 F FP=201:100:2101 S X1=FP\100-2#5 S:X1 X="       " S:'X1 Y=Y+1,X=$P(TL,D,Y),X2=0 S X2=X2+1,Y1=$E(TL1,Y) D 5
21 S R="K\22\3\GEEF DE GEWENSTE LIJNKODE  vb. N1[] = NEDERLANDS EERSTE LIJN \90\5\\K?1U1N!(K?1U1N1""=""1U1N)!(K=""-"")&$L(K)\"
23 D S0 G 4:K="-" S A=""_$E(K,1)_"",B=$E(K,2) G 29:K'["="
25 S U=""_$E(K,4)_"",V=$E(K,5),@("TH="_U_"(V)") G 3
29 S R="TH\23\3\TEKST\""-[] = hernemen keuze""\68\\K=""-""!(K=K)\" D S0 G 21:K="-"
3 S @(A_"(B)=TH"),FP=$F(TL1,A)-2*5+B*100+112 W @F,TH,@F2 G 21
4 F I="N","F","D","E" S @("^"_Q_"BA(153,HER,I,1)="_I_"(1)") F X=2:1:5 S @("^(X)="_I_"(X)")
41 G 13
5 W @F,X," ",Y1,X2 S:SW @(Y1_"(X2)=""""") W:'SW " ",@(Y1_"(X2)"),@F2
51 Q
6 S FP=2179+F60 W @F,@F1 F I=1:1:4 I @("'$D(^"_Q_"BA(153,I))") D 63 S SW=1
61 G YZ:'SW W " ! [] = OK " R K G 13
63 W !,?61,@F5,$C(13),?3,@F4,"DE TEKST VOOR DE LEVERINGSVOORWAARDE ",$P(TK,D,I)," BESTAAT NOG NIET ",@F5,@F0 Q
YZ K D,F("1"),F("2"),F("3"),F("4"),F("5") S D="\" Q
90 W !,?2,"dupliceren van een reeds bestaande lijn   vb. F1=N1[]"
91 W !,?2,"-[] = einde tekst leveringsvoorwaarde ",$P(TK,D,HER) Q
92 W !,?2,"[] = FT   1[] AF   2[] = AM   3[] = FG      -[] = einde ingave" Q
S0 S S7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" S7=S7_","_$P(R,D,8) S:$P(R,D,7)'="" S7=S7_","_$P($T(@$P(R,D,7))," ",2,99)
S0A S S2=$P(R,D,2),S3=$P(R,D,3),S4=$P(R,D,4),S5=$P(R,D,5),S6=$P(R,D,6)
S0B S S0=$L(S4)+S3+3 S FP=S2*100+S3+F60 W @F W:S3<4 @F1 W @F2,S4," : " I S5'="" W:S5["""" !,?2,@S5 D:S5'["""" @S5
S0C S FP=S2*100+S0+F60 W @F,@F2 W $E("......................................................................",1,S6),@F,@F0
S0D R K W @F2 I $L(K)'>S6,@S7 S @$P(R,D,1)=K
S0E E  G S0C
S0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,S6),@F,K
S0Z K R,S0,S2,S3,S4,S5,S6,S7 Q  ;V3 23.08.84
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 36