cTU0 ;INSTALLATIE UTILI-DATA ;%TU0;Do %TU26
 G 1
 ;
T1 ;KLANTEN;VIA KLANTNAAM;VIA KLANTNUMMER;
T2 ;LEVERANCIERS;VIA LEVERANCIERSNAAM;VIA LEVERANCIERSNUMMER;
T3 ;GROOTBOEKREKENINGEN;VIA NUMMER;VIA OMSCHRIJVING;
T4 ;BEGINSALDO;SALDO;VORIGE OMZ.;HUID. OMZET;
T5 ;S R="K\2000\DE KLANT\KL\K1" D ^cA101;S R="K\2000\DE LEVERANCIER\LE\L1" D ^cA101;S R="K\2000\DE REKENING\AR\R1" D ^cA102;
T6 ;15. UTILI-DATA\2\3\22\2\;
T7 ;1;BEHEER SELECTIES\4\3\^cTU1\D\^cTU1\\\\\;
T8 ;2;OVERZICHT SELECTIES\5\3\^cTU5\D\^cTU5\\\\\;
T9 ;3;UITVOERING SELECTIES\6\3\^cTU6\D\^cTU6\\\\\;
T10 ;4;BEHEER LISTINGS\8\3\^cTU7\D\^cTU7\\\\\;
T11 ;5;OVERZICHT LISTINGS\9\3\^cTU12\D\^cTU12\\\\\;
T12 ;6;DRUKKEN LISTINGS\10\3\^cTU10\D\^cTU10\\\\\;
T13 ;7;BEHEER ETIKETTEN\12\3\^cTU13\D\^cTU13\\\\\;
T14 ;8;OVERZICHT ETIKETTEN\13\3\^cTU16\D\^cTU16\\\\\;
T15 ;9;DRUKKEN ETIKETTEN\14\3\^cTU15\D\^cTU15\\\\\;
T16 ;10;BEHEER BRIEVEN\16\3\^cTU17\D\^cTU17\\\\\;
T17 ;11;OVERZICHT BRIEVEN\17\3\^cTU21\D\^cTU21\\\\\\;
T18 ;12;DRUKKEN BRIEVEN\18\3\^cTU20\D\^cTU20\\\\;
T19 ;13;Z-DIAGRAM\20\3\^cTU22\D\^cTU22\\\\;
T20 ;21;BEHEER PASWOORD BESTAND\4\43\^cTU31\D\^cTU31\\\\;
T21 ;BALANSREKENINGEN;VIA NUMMER;VIA OMSCHRIJVING;
T22 ;MET MS-DOS DOORSTURING\"[] = neen   1[] = ja";
 ;
S1 S K=99,S4="42;61"
S1A S K=$N(@("^"_Q_S1_"(0,K)")) I K'=-1 G S1A:$P(^(K),U,3)<40 S S4=^(K),S4=$P(S4,U,3)_U_$P(S4,U,6)
S1B S @("^"_Q_"LI(S1,0)")=$P(S2,U,2)_D_(I<3)_D_$P($T(T5),U,I+1),^(1)=$P(S2,U,3)_"\S I1=$N(^"_Q_S1_"(I1))",^(2)=$P(S2,U,4)_"\S K1=$N(^"_Q_S3_"(K1)),I1=K1 S:I1'=-1 I1=^(K1)"
S1C S K=@("^"_Q_S1_"(0,0)") F K=190:1:194 G S1Z:$D(^(K))
S1D G S1Z:$D(@("^"_Q_"LI(S1,190)")) S ^(190)=$P($T(T4),U,2)_";4;"_$P(S4,U,1)_";;4;"_$P(S4,U,2)_";;;12;;;;QD;;;S BJ=$P(^"_Q_"BA(2),D,2)\1 I $L(J1),$D(^"_Q_S1_"(J1,BJ)) S U3=+^(BJ);;;;;;1;"
S1E S ^(191)=$P($T(T4),U,3)_";5;"_$P(S4,U,1)_";;5;"_$P(S4,U,2)_";;;15;;;;QD;;;S R2="""_S1_""" D SALDO^cTU4;;;;;;1;" Q:I=3
S1F S ^(192)=$P($T(T4),U,4)_";6;"_$P(S4,U,1)_";;6;"_$P(S4,U,2)_";;;12;;;;QD;;;I $L(J1),$D(^"_Q_S1_"(J1,DJ-.99)) S U3=$P(^(DJ-.99),D,2);;;;;;1;"
S1G S ^(193)=$P($T(T4),U,5)_";7;"_$P(S4,U,1)_";;7;"_$P(S4,U,2)_";;;12;;;;QD;;;I $L(J1),$D(^"_Q_S1_"(J1,DJ+.01)) S U3=$P(^(DJ+.01),D,2);;;;;;1;"
S1Z Q
 ;
S2 I $E(S2,$L(S2))=" " S S2=$E(S2,1,$L(S2)-1) G S2
S2Z Q
 ;
S3 S K="",S2=0
S3A S S2=$N(^(S2)) Q:S2=-1
S3B S S1=^(S2) G S3A:$P(S1,U,16)'=309 S K=$P(S1,U,8),K=$P(K,"D,K)",1)_"U,$P(B(3),D,9))_"
S3C I K["\" S K=$P(K,D,1)_U_$P(K,D,2,99) G S3C
S3Z Q
 ;
S4 S K=@("^"_Q_"LI(S1,2)"),K=$P(K,"^(K1)")_"$P(I1,"" "",2)_"" """,^(2)=K Q
 ;
1 S QM=81,U=";",K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
100 S MENU="MENU",MT=0 S:$D(@("^"_Q_"BA(MENU,10,0)")) MT=$P(^(0),D,6)
11 F I=1:1:3 S S1=$P("KL\LE\AR",D,I),S2=$T(@("T"_I)),S3=$P("K1\L1\R1",D,I) D S1
13 D S4 I $D(@("^"_Q_"BL(0,0)")) S S1="BL",S2=$T(T21),S3="BL1",I=3 D S1,S4 K @("^"_Q_"LI(""BL"",190)"),^(191)
14 I S1="BL" S S4="AR\R1",K=@("^"_Q_"LI(S1,0)"),K=$P(K,S4)_"BL\BL1"_$P(K,S4,2),^(0)=K
15 I $D(@("^"_Q_"WE(0,0)")) D S3 S @("^"_Q_"LI(""WE"",0)")=$P(^(0),U,1)_"\1S K=$P(B(1),D,1,2)_D_D_"_K_"D_$P(B(1),D,3,5)",^(1)="\S I1=$N(^"_Q_"WE(I1))"
 ;
2 S I1=-1
21 S I1=$N(@("^"_Q_"LI(0,I1)")) G 3:I1=-1 S K=^(I1),S1=$P(K,D,2),S2=$P(K,D,1) K ^(I1) G 21:$D(@("^"_Q_"LI(S1)"))
22 S @("^"_Q_"LI(S1,0)")=S2,^(1)="\S I1=$N(^"_Q_S1_"(I1))" G 21
 ;
3 S I1=$N(@("^"_Q_"LI(I1)")) G 6:'I1 S OM=^(I1,0),X1=^(1),X2=^(2),Q1=^(3)
31 S K=99 K A F NR=1:1 Q:'$D(@("^"_Q_"LIL1(NR)"))
32 S K=$N(@("^"_Q_Q1_"(0,K)")) I K'=-1 S I=^(K),S1=$P(I,U,8) S:$L(S1) A($P(I,U,16))=S1 G 32
33 S K=99
34 S K=$N(@("^"_Q_"LI(Q1,K)")) I K'=-1 S I=^(K),S1=$P(I,U,16),S2=$P(I,U,13) G 34:'S1 S:'$D(A(S1)) A(S1)="" S:$L(S2) A(S1)=A(S1)_U_S2 G 34
35 S K="" F S1=1:1:99 S S2=$E(OM,S1) Q:S2=""  I S2'?1P S K=K_S2
36 S K=$E(K,1,24)_" "_NR,@("^"_Q_"LIL1(NR)")=K,@("^"_Q_"LIL(K,0)")=NR_D_OM_D_Q1
37 F I=1:1 S S1=$P(X2,D,I) Q:'S1  S S2=$P(X1,":",I+1),S4=$L(S2)-2,S2=$E(S2,2,S4+1),S3=U D S2 S:$D(A(S1)) S3=A(S1) S ^(100+I)=S4_U_S2_U_$P(S3,U,1)_U_S1_U_$P(S3,U,2)_U
 ;
4 G 5:'$D(@("^"_Q_"LI(I1,4)")) K A,B F I=4:2 Q:'$D(^(I+1))  S B(^(I))=^(I+1)
41 S K=99,SRT="" S:$D(^(I)) SRT=^(I)
42 S K=$N(@("^"_Q_Q1_"(0,K)")) I K'=-1 S I=^(K),A($P(I,U,16))=$P(I,U,1)_U_$P(I,U,9)_U_$P(I,U,16)_U_($P(I,U,21)="DCTR")_U G 42
43 F NR=1:1 Q:'$D(@("^"_Q_"LIS1(NR)"))
44 S K="" F S1=1:1:99 S S2=$E(OM,S1) Q:S2=""  I S2'?1P S K=K_S2
45 S K=$E(K,1,24)_" "_NR,@("^"_Q_"LIS1(NR)")=K,@("^"_Q_"LIS(K,0)")=NR_D_OM_D_Q1,K=-1,T=100
46 S K=$N(B(K)) G 49:K=-1 S I=0
47 S I=I+1 G 46:I>40 S S1=$P(B(K),D,I) G 47:'S1 S T=T+1,^(T)=$E(S1,1)_U_$E(S1,2,99)_U_A(K*100+I) G 47
49 S:$L(SRT) ^(1)=A(SRT) I $N(^(0))=-1 K ^(0),@("^"_Q_"LIS1(NR)")
 ;
5 K A,B,@("^"_Q_"LI(I1)") G 3
 ;
6 S K=$P($T(T6),U,2)_MT_D S:$D(@("^"_Q_"BA(MENU,81,0)")) K=$P(K,D,1,5)_D_$P(^(0),D,6,9) K @("^"_Q_"BA(MENU,81)")
61 S @("^"_Q_"BA(MENU,81,0)")=K
63 F I=1:1:14 S K=$T(@("T"_(I+6))),^($P(K,U,2))=$P(K,U,3)
 ;
7 S @("^"_Q_"BA(MENU,MT,15)")="UTILI-DATA\18\3\"_QM_"\M\81\\\"
71 S R="K\22\3\"_$P($T(T22),U,2)_"\1\\""1-""[K" D ^cA100 G ^cTU26:K
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 18.01.89 - 15 u 17