cA200 ;STANDAARD OPENINGSPROGRAMMA ;%A200; Go naar %A201,%A203,%A205 of %A206 [ 12/04/92  12:04 PM ]
 ;
T0 ;Standaard openingsprogramma ;
T1 ;De klant;
T2 ;volgende klant;
T3 ;De leverancier;
T4 ;volgende leverancier;
T5 ;De rekening;
T6 ;volgende rekening;
T7 ;Alfabetische;alfabetische;numerieke;numerieke;
 ;
T0F ;Programme general pour création ;
T1F ;Client;
T2F ;client suivant;
T3F ;Fournisseur;
T4F ;fournisseur suivant;
T5F ;Compte comptable;
T6F ;compte suivant;
T7F ;Alphabétique;alphabétique;numérique;numérique;
 ;
T0E ;Standaard openingsprogramma ;
T1E ;De klant;
T2E ;volgende klant;
T3E ;De leverancier;
T4E ;volgende leverancier;
T5E ;De rekening;
T6E ;volgende rekening;
T7E ;Alfabetische;alfabetische;numerieke;numerieke;
 ;
YZ Q
 ;
 ; klanten
KO S Q1="KL",Q2="K1",X1=$P($T(@("T1"_QT)),U,2),X4=$P($T(@("T2"_QT)),U,2) G ^cA201
KW S Q1="KL",Q2="K1",X1=$P($T(@("T1"_QT)),U,2),WIJZ=1 G ^cA203
KR S Q1="KL",Q2="K1",X1=$P($T(@("T1"_QT)),U,2),WIJZ=0 G ^cA203
KV S Q1="KL",Q2="K1",X1=$P($T(@("T1"_QT)),U,2) G ^cA205
KL S Q1="KL",Q2="K1",X1=$P($T(@("T1"_QT)),U,2),X3=0 G ^cA206
KP S Q1="KL",Q2="K1",X1=$P($T(@("T1"_QT)),U,2),X4=$P($T(@("T2"_QT)),U,2) G ^cA235
KS S Q1="KL",Q2="K1",X1=$P($T(@("T1"_QT)),U,2),X4=$T(@("T7"_QT)),X8=$P($T(@("T2"_QT)),U,2),WIJZ=2 G ^cA233
 ;
 ; leveranciers
LO S Q1="LE",Q2="L1",X1=$P($T(@("T3"_QT)),U,2),X4=$P($T(@("T4"_QT)),U,2) G ^cA201
LW S Q1="LE",Q2="L1",X1=$P($T(@("T3"_QT)),U,2),WIJZ=1 G ^cA203
LR S Q1="LE",Q2="L1",X1=$P($T(@("T3"_QT)),U,2),WIJZ=0 G ^cA203
LV S Q1="LE",Q2="L1",X1=$P($T(@("T3"_QT)),U,2) G ^cA205
LL S Q1="LE",Q2="L1",X1=$P($T(@("T3"_QT)),U,2),X3=0 G ^cA206
LP S Q1="LE",Q2="L1",X1=$P($T(@("T3"_QT)),U,2),X4=$P($T(@("T4"_QT)),U,2) G ^cA235
LS S Q1="LE",Q2="L1",X1=$P($T(@("T3"_QT)),U,2),X4=$T(@("T7"_QT)),X8=$P($T(@("T4"_QT)),U,2),WIJZ=2 G ^cA233
 ;
 ; grootboekrekeningen
AO S Q1="AR",Q2="R1",X1=$P($T(@("T5"_QT)),U,2),X4=$P($T(@("T6"_QT)),U,2) G ^cA201
AW S Q1="AR",Q2="R1",X1=$P($T(@("T5"_QT)),U,2),WIJZ=1 G ^cA203
AR S Q1="AR",Q2="R1",X1=$P($T(@("T5"_QT)),U,2),WIJZ=0 G ^cA203
AV S Q1="AR",Q2="R1",X1=$P($T(@("T5"_QT)),U,2) G ^cA205
AL S Q1="AR",Q2="R1",X1=$P($T(@("T5"_QT)),U,2),X3=1 G ^cA206
AP S Q1="AR",Q2="R1",X1=$P($T(@("T5"_QT)),U,2),X4=$P($T(@("T6"_QT)),U,2) G ^cA235
AS S Q1="AR",Q2="R1",X1=$P($T(@("T5"_QT)),U,2),X4=$T(@("T7"_QT)),X8=$P($T(@("T6"_QT)),U,2),WIJZ=2 G ^cA233
 ;
 ; algemeen met parameters vanuit menu
O S Q1=$P(R,U,2),Q2=$P(R,U,3),X1=$P(R,U,4),X4=$P(R,U,5) G ^cA201
W S Q1=$P(R,U,2),Q2=$P(R,U,3),X1=$P(R,U,4),WIJZ=1 G ^cA203
R S Q1=$P(R,U,2),Q2=$P(R,U,3),X1=$P(R,U,4),WIJZ=0 G ^cA203
V S Q1=$P(R,U,2),Q2=$P(R,U,3),X1=$P(R,U,4) G ^cA205
L S Q1=$P(R,U,2),Q2=$P(R,U,3),X1=$P(R,U,4),X3=$P(R,U,5) G ^cA206
P S Q1=$P(R,U,2),Q2=$P(R,U,3),X1=$P(R,U,4),X4=$P(R,U,5) G ^cA235
S S Q1=$P(R,U,2),Q2=$P(R,U,3),X1=$P(R,U,4),X8=$P(R,U,5),X4=$T(@("T7"_QT)),WIJZ=2 G ^cA233
 ;
S1 I SW2=1 D ^cA218 S @%Q1=0,@("^"_Q_Q2_"(I)")=$P(B(1),D,2)
S1A S I=$P(B(1),D)_" ",@%Q1=0 F X=1:1:SW3 S @("^"_Q_Q1_"(NR_"" "",X-1)")=B(X)
S1B I SW2=1,Q1="AR",$L($P(B(1),D,10)) S ^(0)=@("^"_Q_"BA(4,0)")_$P(B(1),D,10)_D
S1Z S @%Q1=1,OK=1 Q
 ;
S2 S OK=1,K=B(1),B(1)=@("^"_Q_Q1_"(I1,0)") D ^cA218 S J=I,B(1)=K D ^cA218 S @%Q1=0,@("^"_Q_Q2_"(I)")=$P(K,D,2) K:I'=J ^(J)
S2A S @("^"_Q_Q1_"(I1,0)")=B(1) F I=2:1:6 I $D(B(I)) S ^(I-1)=B(I)
S2Z Q
 ;
S3 S OK=1 D ^cA218 S @%Q1=0 K @("^"_Q_Q2_"(I)"),@("^"_Q_Q1_"(I1)") I Q1="AR" K @("^"_Q_"FIB(I1)"),@("^"_Q_"BA(4,$P(B(1),D))")
S3A I Q1="AR" S X=$P(B(1),D,10) I $L(X) S X=D_X,K=@("^"_Q_"BA(4,0)"),^(0)=$P(K,X)_$P(K,X,2,99)
S3Z S @%Q1=1 Q
 ;
S4 S OK=1 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84