KY70 G 1 ; BEHEER TEKSTEN OP DE FAKTUUR ;KY70; [ 05/30/94  1:51 PM ]
 ;
T4 ;FC-lijn = faktuurclausule   T1, T2, T3 of T4-lijn = tekstlijn faktuur
T5 ;-[] = einde programma
T6 ;R=R_"GEEF HET TE WIJZIGEN LIJNNUMMER\"
T7 ;R=R_"TT1"
T11 ;TEKST
 ;
TT1 W !?3,$P($T(T4),";",2),!?2,$P($T(T5),";",2) Q
TT2 W !?3,$P(TL,D,K-1\5+1)," ",$S(X["C":"faktuurclausule",1:"tekstlijn faktuur") Q
 ;
1 S TX="NC\N1\N2\N3\N4\FC\F1\F2\F3\F4\DC\D1\D2\D3\D4\EC\E1\E2\E3\E4"
 S TXT="NFC\NT1\NT2\NT3\NT4\FFC\FT1\FT2\FT3\FT4\DFC\DT1\DT2\DT3\DT4\EFC\ET1\ET2\ET3\ET4"
3 S TL="nederlandse\franse\duitse\engelse",T=0
12 S FP=234+$L(QN) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,$P($T(+1),";",2),QN," ",@F5
14 S K=410 F I="N","F","D","E" S FP(I)=K S K=K+600
15 F I="N","F","D","E" S X(I,"C")="" S:$D(@("^"_Q_"BA(152,I)")) X(I,"C")=^(I) F J=1:1:4 S X(I,J)="" S:$D(@("^"_Q_"BA(151,I,J)")) X(I,J)=^(J)
17 F I="N","F","D" S FP=FP(I)-9,T=T+1 W @F,$J(T,2)," ",$P(TXT,D,T)," : ",X(I,"C") F J=1:1:4 S FP=FP+100,T=T+1 W @F,$J(T,2)," ",$P(TXT,D,T)," : ",X(I,J)
 ;
20 S R="K\22\4\",@$P($T(T6),";",2),@$P($T(T7),";",2),R=R_"\",R=R_"2\\K=""-""!(K?.N&(K>0)&(K<16))&$L(K)" D S0 G Y:K="-"
30 S X=$P(TX,D,K),R="K\22\4\"_$P(TXT,D,K)_"\TT2\68\\1" D S0
40 G 20:K="-" S I=$E(X,1),X=$E(X,2),X(I,X)=K,FP=FP(I) S:X FP=FP+($F("1234",X)-1*100) W @F,@F2,X(I,X)
 G 20
 ;
Y S @%Q1=0 F I="N","F","D","E" S @("^"_Q_"BA(152,I)")=X(I,"C") F J=1:1:4 S $P(@("^"_Q_"BA(151,I,J)"),D,1)=X(I,J)
YZ S @%Q1=1 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,@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 ; 12.09.90 -  8 u 24