cT164 ;Controle basisrekeningen ;%T164 ; [ 01/03/01  4:59 PM ]
 ;
 ; controle op rekeningen in ^_Q_BA(12),^(13),^(14) en ^(15)
 ; output : VERBOT = \rek(14,0) \rek(14,1) \rek(15,0) \rek(15,1) \
 ;          OK = 0 indien 1 van de rekeningen niet in ^_Q_BA of ^_Q_AR
 ;          SWAN = 1 indien analytische boekhouding aanwezig
 ;
T0 ;Controle basisrekeningen ;
T1 ;Basisrekening ;werd verwijderd ;
T2 ;Er ontbreken enkele basisrekeningen ;
T3 ;Analytische rekening ;
 ;
T0F ;Contrôle des comptes de base clients/fournisseurs ;
T1F ;Compte de base ;a été radié ;
T2F ;Il manquent quelques comptes de base ;
T3F ;Compte analytique ;
 ;
T0E ;Check basis accounts ;
T1E ;Basis account ;has been removed ;
T2E ;Some basis accounts are missing ;
T3E ;Analytical account ;
 ;
 ; start
1 S SWAN=$G(@("^"_Q_"BA(300)"),0)
11 S VERBOT=D,(R0,R0A)="",OK=1 F R1=12,13 D S1 Q:'OK
13 I OK F K=14,15 Q:'OK  S R1=$O(@("^"_Q_"BA(K,0)")) D S2:K=14 F R1=0:1:9 D S1 Q:'OK  I R1<2 S VERBOT=VERBOT_R2_D
15 I OK S K=$O(@("^"_Q_"AR(0)")) F R2=1:1 S R1=$P(R0,D,R2) Q:R1=""!'OK  I '$D(^(R1)) D E1
17 I OK S K=$O(@("^"_Q_"ARA(0)")) F R2=1:1 S R1=$P(R0A,D,R2) Q:R1=""!'OK  I '$D(^(R1)) D E3
 ;
 ; einde
YZ K R0,R0A,R1,R2 Q
 ;
 ; ophalen rekeningen
S1 I $D(^(R1)) S R2=$P($P(^(R1),D)," ")_" ",R0=R0_R2_D
S1A E  D E2
S1B I OK,R1=12,$P(SWAN,D,5)=1 S R2=$P(^(R1),D,2)_" ",R0A=R0A_R2_D I R2=" " D E2
S1C I OK,R1=13,$P(SWAN,D,4)=1 S R2=$P(^(R1),D,2)_" ",R0A=R0A_R2_D I R2=" " D E2
S1Z Q
 ;
 ; oude rekeningen negeren
S2 I '$D(^(8)),$D(^(6)) S ^(8)=^(6)
S2A I '$D(^(9)),$D(^(7)) S ^(9)=^(7)
S2Z Q
 ;
 ; foutboodschappen
E1 S K=$P($T(@("T1"_QT)),U,2)_R1_$P($T(@("T1"_QT)),U,3) D F1 S OK=0 G EZ
E2 S K=$P($T(@("T2"_QT)),U,2) D F1 S OK=0 G EZ
E3 S K=$P($T(@("T3"_QT)),U,2)_R1_$P($T(@("T1"_QT)),U,3) D F1 S OK=0 G EZ
EZ Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84