cT6423 ;Inkomende documenten ;%T64 ;%T64* ;  [ 01/03/01  3:00 PM ]
 G 1
 ;
T0 ;Inkomende fact/creditn ;
 ;
T0F ;Fact/N.C. achat ;
 ;
T0E ;Registration of incoming documents ;
 ;
S1 S U1=$O(@("^"_Q_$P(EXBA,D,4)_","""_U1_""")"),-1) I U1'="" S U1=U1-1
S1Z Q
 ;
1 G YZ:'$L($P(EXBA,D,4)) S KK=$P(KK," "),U1="",OLX=LX F LX=OLX:-1 Q:$D(A(LX))
11 S U1=$O(@("^"_Q_$P(EXBA,D,4)_","""_U1_""")")) G Y:U1="" S U2=^(U1)
13 I $L($P(U2,U,4)),@$P(U2,U,4) S:K'="-" K="" G 11:K="" D S1 G Y:U1="",11
15 I $L($P(U2,U,7)),@$P(U2,U,14) X "S K="_$P(U2,U,7) G 3
17 I $L($P(U2,U,17)),@$P(U2,U,18) X $P(U2,U,17) G 3
19 I $L($P(U2,U,19)),@$P(U2,U,20) X $P(U2,U,19) G 3
 ;
2 S R="K"_D_$P(U2,U,2)_D_$P(U2,U,3)_D_$P(U2,U)_"\"""_$P(U2,U,10)_"""\"_$P(U2,U,9)_D_$P(U2,U,21)
21 S:$L($P(U2,U,11)) R=R_D_$P(U2,U,11)_"!(K=""-"")!(K="","")" D R0
 ;
3 I K="," S U1="" G 11
31 I K="-" D S1 G Y:U1="",11
33 S U3=K I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
35 S FP=$P(U2,U,5)*100+$P(U2,U,6) I FP W @F,U3,$J("",$P(U2,U,9)+$P(U2,U,13)-$L(U3))
37 X "S "_$P(U2,U,16)_"=K" D S2^cT6422 G 11
 ;
Y S LX=OLX,FP=2101 W @F,@F1
YZ K U1,U2,U3,OLX 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