cT810 ;Fin & div: module k/l ;%T80 ; [ 01/03/01  10:08 AM ]
 G 1
 ;
T0 ;Fin & div: module k/l ;
T1 ;De klant;de leverancier;
T2 ;Foutieve input ;
T3 ;  Even geduld ... ;
T4 ;Nummer document of volgnummer;   [] = vervolg;
 ;
T0F ;Fin & div: module c/f ;
T1F ;Client;fournisseur;
T2F ;Entrée fautive ;
T3F ;  Un instant ... ;
T4F ;N° du document ou n° d'ordre;   [] = suite;
 ;
T0E ;Financial and miscellaneous transactions: module c/s ;
T1E ;The customer;the supplier;
T2E ;Wrong input ;
T3E ;  One moment ... ;
T4E ;Document number or number;   [] = next;
 ;
 ; interpretatie input
1 S A=$E(U5,2,999),B=$E(A),Q1="KL",Q2="K1",Q3="^"_Q_"KL(I1)",Q5="VE",Q6="^"_Q_"VF(FNR)"
11 I K1="L" S Q1="LE",Q2="L1",Q3="^"_Q_"LE(I1)",Q5="AA",Q6="^"_Q_"AF(FNR)"
13 D ^cT808 I A="?" S KW=A G YZ
15 K FNR,HFNR,I1,KW G 2:B="",3:B=".",4:B="R",5:A?5.6N
17 I $L($P(BA86,D)),$L($P(BA86,D,2)),@$P(BA86,D,2) D @$P(BA86,D) G YZ:K="-"!(K=","),23:$L($G(I1)),51:$G(FNR)
19 S K=$P($T(@("T2"_QT)),U,2) D F1 G YZ
 ;
 ; via syn.rout
2 S I1=$$^cANSYN(Q1) G YZ:K="-"!(K=",")
23 S B=@("^"_Q_Q1_"(I1,0)"),KC=$P(B,D),KN=$P(B,D,2) L +@Q3:2 E  S R=14 D F2 G YZ
25 D 2^cT808 S SWAA=1 G ^cT811
 ;
 ; via openstaand bedrag
3 D S1 S A=$E(U5,3,999) S:A="" A=$TR($FN(HUX,"T",HQD),"- ") S B=$$UC^cAFA1(A),A=$TR(B,"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),B=$P(B,A,2)
31 K ^HULP(boot,$J) S FNR="" S:B="" B=HBF I '$D(VM(B)) S VM(B)=$P($G(@("^"_Q_"BA(11,B)"),B),D)
33 S FNR=$O(@Q6) G 6:FNR="" S KC=$P(^(FNR),D) S:KC[" " KC=$P(KC," ",2) G 33:'$D(@("^"_Q_Q1_"(^"_Q_Q2_"(KC),FNR)"))
35 S I=^(FNR),J=$P(I,D,9) S:J="" J=BF I '$D(VM(J)) S VM(J)=$P($G(@("^"_Q_"BA(11,J)"),J),D)
37 I VM(J)=VM(B)&(+A=($P(I,D,5)-$P(I,D,6)))!(VM(B)=VM(BF)&(+A=+$P(I,D,10))) D S3
39 G 33
 ;
 ; via referte
4 D S1 S A=$E(U5,3,999),FNR="" K ^HULP(boot,$J)
41 S FNR=$O(@Q6) G 6:FNR="" S KC=$P(^(FNR),D) S:KC[" " KC=$P(KC," ",2) G 41:'$D(@("^"_Q_Q1_"(^"_Q_Q2_"(KC),FNR)"))
43 S I=^(FNR),J=$P(I,D,7) I A=J D S3
45 G 41
 ;
 ; via factuurnummer
5 S FNR=A
51 I '$D(@Q6) S R=86 D F2 G YZ
53 S HFNR=FNR,B=$P(^(FNR),D) S:B[" " B=$P(B," ",2) S I1=@("^"_Q_Q2_"(B)") G 23
 ;
 ; syn.rout. openstaande facturen
6 S I=$O(^HULP(boot,$J,"")),FNR=I#1*1E7#1E6 I I="" S R=86 D F2 G 2
61 G 51:$O(^(I))="" S I=""
63 K A S (B,J)=0,FP=2001 W @F,@F1
65 S I=$O(^HULP(boot,$J,I)) G 7:I="" S B=B+1,A(B)=I#1*1E7#1E6
67 D S2 S FP=FP+100 I FP<2300 G 65
69 S J=$O(^HULP(boot,$J,I))'=""
 ;
7 S R="K\24\3\"_$P($T(@("T4"_QT)),U,2)_$P($T(@("T4"_QT)),U,4-J)_"\\6\\K?.N!(K=""-"")" D R0 G 2:K="-" I K="" S:'J I="" G 63
71 S FNR=K G 53:$D(@Q6) I K?1.2N,$D(A(K)) S K=A(K) G 71
73 S R=86 D F2 G 7
 ;
YZ Q
 ;
S1 S FP=2401 W @F,@F1,$P($T(@("T3"_QT)),U,2) Q
 ;
S2 S KC=^(I),S1=@("^"_Q_Q1_"(^"_Q_Q2_"(KC),0)"),S2=^(A(B))
S2A W @F,$J(B,3),$J($P(S2,D),2),$J(A(B),7),$J(KC,7)," ",$E($P(S1,D,2)_$J("",29),1,29),$P(S1,D,7)
S2Z K S1,S2 Q
 ;
S3 S I=$P(I,D,2),J=$$DC^cAFD1(I),^HULP(boot,$J,J_"."_(1E6+FNR))=KC
S3Z Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84