KA200 ;STANDAARD OPENINGSPROGRAMMA ;KA200; Go naar %A201,%A203,%A205 of %A206 [ 08/18/97  2:11 PM ]
 ;
T1 ;DE KLANT;
T2 ;volgende klant;
T3 ;DE LEVERANCIER;
T4 ;volgende leverancier;
T5 ;DE REKENING;
T6 ;volgende rekening;
T7 ;ALFABETISCHE;alfabetische;NUMERIEKE;numerieke;
 ;
YZ Q
 ;
 ; klanten
KO S Q1="KL",Q2="K1",X1=$P($T(T1),U,2),X4=$P($T(T2),U,2) G ^cA201
KW S Q1="KL",Q2="K1",X1=$P($T(T1),U,2),WIJZ=1 G ^KA203
KR S Q1="KL",Q2="K1",X1=$P($T(T1),U,2),WIJZ=0 G ^cA203
KV S Q1="KL",Q2="K1",X1=$P($T(T1),U,2) G ^cA205
KL S Q1="KL",Q2="K1",X1=$P($T(T1),U,2),X3=0 G ^cA206
KP S Q1="KL",Q2="K1",X1=$P($T(T1),U,2),X4=$P($T(T2),U,2) G ^cA235
KS S Q1="KL",Q2="K1",X1=$P($T(T1),U,2),X4=$T(T7),X8=$P($T(T2),U,2) G ^cA233
 ;
 ; leveranciers
LO S Q1="LE",Q2="L1",X1=$P($T(T3),U,2),X4=$P($T(T4),U,2) G ^cA201
LW S Q1="LE",Q2="L1",X1=$P($T(T3),U,2),WIJZ=1 G ^KA203
LR S Q1="LE",Q2="L1",X1=$P($T(T3),U,2),WIJZ=0 G ^cA203
LV S Q1="LE",Q2="L1",X1=$P($T(T3),U,2) G ^cA205
LL S Q1="LE",Q2="L1",X1=$P($T(T3),U,2),X3=0 G ^cA206
LP S Q1="LE",Q2="L1",X1=$P($T(T3),U,2),X4=$P($T(T4),U,2) G ^cA235
LS S Q1="LE",Q2="L1",X1=$P($T(T3),U,2),X4=$T(T7),X8=$P($T(T4),U,2) G ^cA233
 ;
 ; grootboekrekeningen
AO S Q1="AR",Q2="R1",X1=$P($T(T5),U,2),X4=$P($T(T6),U,2) G ^cA201
AW S Q1="AR",Q2="R1",X1=$P($T(T5),U,2),WIJZ=1 G ^cA203
AR S Q1="AR",Q2="R1",X1=$P($T(T5),U,2),WIJZ=0 G ^cA203
AV S Q1="AR",Q2="R1",X1=$P($T(T5),U,2) G ^cA205
AL S Q1="AR",Q2="R1",X1=$P($T(T5),U,2),X3=1 G ^cA206
AP S Q1="AR",Q2="R1",X1=$P($T(T5),U,2),X4=$P($T(T6),U,2) G ^cA235
AS S Q1="AR",Q2="R1",X1=$P($T(T5),U,2),X4=$T(T7),X8=$P($T(T6),U,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) 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 Q1="AR",$L($P(B(1),D,10)) S ^(0)=@("^"_Q_"BA(4,0)")_$P(B(1),D,10)_D,^($P(B(1),D),DJ)=0
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 ; 06.05.91 - 17 u 28