cT6424 ;Inkomende documenten ;%T64 ; [ 01/03/01  3:03 PM ]
 G 1
 ;
T0 ;Inkomende fact/creditn ;
T1 ; ------ Uitsplitsing ------;
T2 ;Goederen;Diensten;Invest.;Andere;
T3 ;Bedrag in ;
T4 ;Bevestiging\".[] = ok   ,[] = hernemen";
T5 ;Uitsplitsing klopt niet ;
 ;
T0F ;Fact/N.C. d'entrée ;
T1F ; ------ Répartition -------;
T2F ;Marchand;Services;Invest.;Autres;
T3F ;Montant en ;
T4F ;Confirmation\".[] = ok   ,[] = reprendre";
T5F ;Répartition incorrecte ;
 ;
T0E ;Registration of incoming documents ;
T1E ; ----- Categorization -----;
T2E ;Goods;Services;Invest.;Other;
T3E ;Amount in ;
T4E ;Confirmation\".[] = ok   ,[] = retry";
T5E ;Categorization is incorrect;
 ;
S1 S FP=I+16*100+16 W @F,$J("",11) I X(I) W @F,$J($TR($FN(X(I),"T+",QA),"+"," "),11)
S1Z Q
 ;
S2 S FP=I+8*100+16,K=$J(X(I),0,QA) S:'K K="" W @F,$E(PNT,1,10-$L(K)),K
S2Z Q
 ;
1 S FP=1501 W @F,@F1,$P($T(@("T1"_QT)),U,2),!
11 F I=2:1:5 W !?2,$E($P($T(@("T2"_QT)),U,I)_$J("",11),1,11),":"
13 S R="1602\2127" D ^cA319
 ;
2 S X(1)=NETG,X(2)=NETD,X(3)=NETI,X(4)=NETA
21 F I=1:1:4 D S1
 ;
4 S I=1
41 S R="K\22\3\"_$P($T(@("T2"_QT)),U,I+1)_"\C1\10\INCTR" D R0 G 4:K=","
43 I K="-" S I=I-1 G 41:I,YZ
45 S X(I)=$S(K="":A,1:K) S:X(I)["-" X(I)=-X(I) D S1
47 S I=I+1 I I<5 G 41
49 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G 4:K=",",43:K="-"
 ;
5 I NETG+NETD+NETI+NETA-X(1)-X(2)-X(3)-X(4)'=0 S K=$P($T(@("T5"_QT)),U,2) D F1 G 49
51 S NETG=X(1),NETD=X(2),NETI=X(3),NETA=X(4) F I=1:1:4 D S2
 ;
YZ 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
 ;
C1 S A=$J(X(I),0,QA) S:A<0 A=$E(A,2,999)_"-" W !?2,$P($T(@("T3"_QT)),U,2),VM,"   [] = ",A Q
 ;
INCTR ;K?.N!(K?.N1"-")!(K?.N1".".N!(K?.N1".".N1"-")&QA&($L(K#1)-1'>QA))!(K="-")!(K=",")
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84