cT6421 ;Inkomende documenten ;%T64 ;%T64* ; [ 01/03/01  2:52 PM ]
 G 1
 ;
T0 ;Inkomende fact/creditn ;
T1 ;Grootboekrekening : ;
T2 ;De gekozen rekening is geen verlies/winstrekening ;
 ;
T0F ;Documents d'entrée ;
T1F ;Compte grand-livre : ;
T2F ;Le compte sélectionné n'est pas un compte perte/profit ;
 ;
T0E ;Registration of incoming documents ;
T1E ;General account : ;
T2E ;The chosen account is not a loss/profit account ;
 ;
S1 S FP=2102 W @F,@F92,$P($T(@("T1"_QT)),U,2),BR,$P(R,D,2),@F93,@F1
S1Z Q
 ;
1 S BR=$P(BR," ")_" " I '$D(@("^"_Q_"AR(BR,0)")) G Y
11 S R=^(0) I $P(R,D,13) D S1 S R=200 D F2 G Y
13 I VERBOT[(D_BR_D)!$L($P(R,D,10)) D S1 S R=25 D F2 G Y
15 I '$P(R,D,20) D S1 S K=$P($T(@("T2"_QT)),U,2),RR=R D F1 S R=RR K RR
 ;
2 S HIS=$P(R,D,3),HOE=$P(R,D,5),AVE=$P(R,D,6),SWAV="\1\A\K\"[(D_$P(AVE,"#")_D)&SWAN
21 G YZ:HIS!'MAN D S1 S R=100
23 S R=$O(@("^"_Q_"AR(0,R)")) G YZ:R="",23:$P(^(R),U,16)'=103 S K=^(R)
25 S R="K\22\3\"_$P(K,U)_"\"""_$P(K,U,10)_"""\"_$P(K,U,9)_D_$P(K,U,21)_D_$P(K,U,11)_"!(K=""-"")!(K="","")"
27 D ^cA100 I K'="-",K'="," S HIS=K 
29 G YZ
 ;
Y S BR=""
YZ S FP=2101 W @F,@F1 Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84