cT121 ;KONTROLE BOEKHOUDKUNDIGE VERWERKING FAKTUUR ;;Do uit %T120 [ 01/03/01  4:39 PM ]
 ;
T0 ;Controle boekhoudkundige verwerking factuur ;
T1 ;Leveranciersrekening onbekend :   ;
T2 ;Grootboekrekening onbekend : ;
T3 ;Debet-saldo verschilt van credit-saldo : ;
T4 ;Factuurnummer bestaat reeds : ;
 ;
T0F ;Contrôle de l'imputation de la facture ;
T1F ;Compte fournisseur inconnu : ;
T2F ;Compte de grand-livre inconnu : ;
T3F ;Total débit différent du total crédit : ;
T4F ;N° de document existe déjà: ;
 ;
T0E ;Check accounting processing invoice ;
T1E ;Supplier account unknown :   ;
T2E ;General account unknown : ;
T3E ;Debit balance differs from credit balance : ;
T4E ;Invoice number already exists : ;
 ;
1 I '$D(@("^"_Q_"LE(I1)")) S:$D(@("^"_Q_"L1(KC)")) I1=^(KC)
11 I '$D(@("^"_Q_"LE(I1)")) D F1 G 1
19 S BR="",R1=0,K=-NET-INV-NABTW S:+FNR<99999 FNR=100000+FNR
 ;
2 S R1=$O(^HULPE(HULPE,R1)) G 5:R1="" S B=^(R1),BR=$P(B,S),B=$P(B,S,4)
3 S K=K+B I '$D(@("^"_Q_"AR(BR)")) D F2,8 G 19
4 G 2
5 I K D F3
 ;
6 S K=$O(@("^"_Q_"AA(K)")) I $L(K) G 6:'$D(^(K,FNR)) D F4 S FNR=FNR+1,K=0 S:FNR>989999 FNR=100000 G 6
61 I $D(@("^"_Q_"LE(I1,FNR)")) D F4 S FNR=FNR+1,K=0 S:FNR>989999 FNR=100000 G 6
7 G YZ
 ;
8 I '$D(@("^"_Q_"AR(BR)")),BR S @("^"_Q_"AR(BR,0)")=$P(BR," ")_"\?\1\\\\\\\\\\\\\\\\\\\\\",@("^"_Q_"R1("" ""_$P(BR,"" ""))")="?"
81 Q
 ;
YZ Q
 ;
F1 S K=$P($T(@("T1"_QT)),U,2)_I1 D TXT^cAFA1(250) Q
F2 S K=$P($T(@("T2"_QT)),U,2)_BR D TXT^cAFA1(250) Q
F3 S K=$T(@("T3"_QT))_K G FZ
F4 S K=$T(@("T4"_QT))_FNR
FZ S K=$P(K,U,2),%00=$P($T(@("T0"_QT)),U,1)_K D TXT^cAFA1(250) D ^cA400 K %00 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84