cTA380	;Analytische verrichtingen; cTA380
	G 1
	;
T0	;Analytische verrichtingen ;
T1	;Diversen;
T2	;  **      Saldo     **;
T3	;  **Uittreksel ;  ** Wissel ;
T4	;Blz :;
T5	;Analytische verrichtingen ;Ingeboekte wissels ;
T6	; ( bedragen in ;
T7	;:Datum Nummer-naam/rekening             : D-------Klanten------C : D----Leveranciers----C : D------Grootboek-----C : Referentie    :;An.rek.;
T8	;Overdracht:;Eindtotaal:;
T9	;Totaal debet;
T10	;Totaal credit;
	;
T0F	;Opérations analytiques ;
T1F	;Opérations diverses;
T2F	;  **      Solde     **;
T3F	;  **Extrait ;  ** Traite ;
T4F	;Page:;
T5F	;Opérations analytiques ;Traites enregistrés ;
T6F	; ( montants en ;
T7F	;:Date  Numéro-nom/compte                : D-------Clients------C : D----Fournisseurs----C : D------Cpte g.l.-----C : Référence     :;C.Anal.;
T8F	;Transfert:;Total final:;
T9F	;Total débit;
T10F	;Total crédit;
	;
T0E	;Analytische verrichtingen ;
T1E	;Diversen;
T2E	;  **      Saldo     **;
T3E	;  **Uittreksel ;  ** Wissel ;
T4E	;Blz :;
T5E	;Analytische verrichtingen ;Ingeboekte wissels ;
T6E	; ( bedragen in ;
T7E	;:Datum Nummer-naam/rekening             : D-------Klanten------C : D----Leveranciers----C : D------Grootboek-----C : Referentie    :;An.rek.;
T8E	;Overdracht:;Eindtotaal:;
T9E	;Totaal debet;
T10E	;Totaal credit;
	;
S2	;S LN=LN+1 I LN+2>LNMAX D 9 W # D 8,83 ;21.03.01
	S LN=LN+1 I LN+2>LNMAX D 9 W $$FF^cA334 D 8,83
S2Z	Q
	;
R3	S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A	S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B	W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z	K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
	;
1	S BPB=@("^"_Q_"BA(2)"),NM1=^(99,1),NM2=^(2),NM3=^(3),(I1,BLZ)=0
11	S X=BPB,K=$P(X,D,2) S:BP>K X=K\1*12+(K#1*100),K=K+1 S BX=BJ*12+BM-X+1,BJ=K\1,BPB=$P(BPB,D,2)
15	I BR S K=@("^"_Q_"AR(BR,0)") S:$P(K,D,17) BR="W"_BR
19	X F70 W @F80 I BR'="." S I1=$P(BR," ")_SRT G 21
	;
2	S I1=$O(@("^"_Q_"FIE(BP,I1)")) G Y:I1=""
21	S BN=$P($T(@("T1"_QT)),U,2),CD="DV",SWR=I1["W",X1=$E(I1,SWR+1,9)_" ",HBF=BF,HQD=QD K ^HULP(boot,$J) F S1=1:1:6 S B(S1)=""
23	I I1?1"D".N S K="E"_$E(1000+$E(I1,2,4),2,4) I $D(@("^"_Q_"BA(""%T"",K)")) S K=^(K),BN=$P(K,D),K=$P(K,D,2) S:$L(K) CD=K
25	S (VMSW,KDT,KCT,LDT,LCT,B(7),B(8),SAL)=0,UTR="" I $D(@("^"_Q_"AR(X1,0)")) D S1
27	;D 8,83,S2,87 S I2=0 I 'SWD&'SWU W *13,$P($T(@("T2"_QT)),U,2),?26 S R=SAL_D_13_D_D_HQD,LN=LN+1 D R3,87 ;21.03.01
	D 8,83,S2,87 S I2=0 I 'SWD&'SWU W $$CR^cA334,$P($T(@("T2"_QT)),U,2),?26 S R=SAL_D_13_D_D_HQD,LN=LN+1 D R3,87
	;
3	S I2=$O(@("^"_Q_"FIE(BP,I1,I2)")),A=D I I2 S A=^(I2) G 3:$P(A,D,2)'=SWD&SWD,3:$P(A,D,3)'=SWU&SWU
31	;I $P(A,D,3)'=UTR&UTR&'SWU D S2:I2,87 W *13,$P($T(@("T3"_QT)),U,SWR+2),UTR,?20,"**    " S R=SAL_D_13_D_D_HQD,LN=LN+1+'I2 D R3:'SWD,87 ;21.03.01
	I $P(A,D,3)'=UTR&UTR&'SWU D S2:I2,87 W $$CR^cA334,$P($T(@("T3"_QT)),U,SWR+2),UTR,?20,"**    " S R=SAL_D_13_D_D_HQD,LN=LN+1+'I2 D R3:'SWD,87
33	G 5:'I2 S CO=$P(A,D,6),K1=$P(A,D,7),KC=$P($P(A,D,8),"#"),BE=$P(A,D,VMSW*6+5),X=$F("KLA",K1)-1*2-(CO="D") F K=1:1:6 S T(K)=""
35	I K1="K" S K=$P(@("^"_Q_"KL(^"_Q_"K1(KC),0)"),D,2) S:X=1 KDT=KDT+BE S:X=2 KCT=KCT+BE G 4
37	I K1="L" S K=$P(@("^"_Q_"LE(^"_Q_"L1(KC),0)"),D,2) S:X=3 LDT=LDT+BE S:X=4 LCT=LCT+BE G 4
39	S K=KC_" " S:'$D(^HULP(boot,$J,K)) ^(K)=D S $P(^(K),D,X-4)=$P(^(K),D,X-4)+BE S K=$P(@("^"_Q_"AR(K,0)"),D,2)
	;
4	;D S2 W !,": ",$E($P(A,D,2),1,5)," ",$E(KC_"-"_K,1,$S(SWAV:24,1:32)) S T(X)=BE,B(X)=B(X)+BE,I=40 I SWAV W ?33,$P(A,D,16),*13 ;21.03.01
	D S2 W !,": ",$E($P(A,D,2),1,5)," ",$E(KC_"-"_K,1,$S(SWAV:24,1:32)) S T(X)=BE,B(X)=B(X)+BE,I=40 I SWAV W ?33,$P(A,D,16),$$CR^cA334
41	F S1=1:2:5 W ?I,":" S I=I+25,K=T(S1),SAL=SAL-K,R=K_D_13_D_D_HQD D:K R3 S K=T(S1+1),SAL=SAL+K,R=K_D_23_D_D_HQD D:K R3
43	W ?115,":",$E($P(A,D,9),1,15),?131,":" S UTR=$P(A,D,3) G 3
	;
5	;D 9 W # ;21.03.01
	D 9 W $$FF^cA334
51	I 'SWU&'SWD D ^cTA381 S K=I1_" ",X=105 S:'I1 K=I1,X=106 ; K @("^"_Q_"BA(BP,K)"),^(I1_" "),^(X)
53	G 2:BR=".",Y
	;
8	;S BLZ=BLZ+1,LN=0 W !,NM1,?124,$P($T(@("T4"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T5"_QT)),U,2+SWR)," : ",MNM,@F83,SWD," ",SWU,*13 ;21.03.01
	S BLZ=BLZ+1,LN=0 W !,NM1,?124,$P($T(@("T4"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T5"_QT)),U,2+SWR)," : ",MNM,@F83,SWD," ",SWU,$$CR^cA334
81	W ?124,DT,!,NM3,?35,CD," - ",BN,$P($T(@("T6"_QT)),U,2),HBF," )",?125,TD,! Q
83	;D 85 W !,$P($T(@("T7"_QT)),U,2) I SWAV W *13,?33,$P($T(@("T7"_QT)),U,3) ;21.03.01
	D 85 W !,$P($T(@("T7"_QT)),U,2) I SWAV W $$CR^cA334,?33,$P($T(@("T7"_QT)),U,3)
85	W !,":---------------------------------------:------------------------:------------------------:------------------------:---------------:" Q
87	W ! F S1=0,40,65,90,115,131 W ?S1,":"
89	Q
	;
9	D 85 W !,":",?7,$P($T(@("T8"_QT)),U,'I2+2),?20,$P($T(@("T9"_QT)),U,2),?40,":"
91	F S1=1:2:5 S R=B(S1)_D_13_D_D_HQD D R3 W $J(":",11)
93	W ?131,":",!,":",?20,$P($T(@("T10"_QT)),U,2),?40,":" F S1=2:2:6 S R=B(S1)_D_23_D_D_HQD D R3 W ":"
95	W ?131,":" D 85 Q
	;
Y	X F71
YZ	Q
	;
S1	S K=^(0),BN=$P(K,D,2),CD=$P(K,D,10) I SWM S HBF=$P(K,D,11) S:HBF="" HBF=BF S:BF'=HBF VMSW=1,HQD=2
S1A	S X=1_BP*100_"B"_I1 I $D(^(X)) S K=^(X),B(7)=$P(K,D,VMSW*2+3),B(8)=$P(K,D,VMSW*2+4)
S1B	S SSS=1 I BP>BPB S S1=VMSW*.01+BJ-1,S2=24 D S3
S1C	S S1=VMSW*.01+BJ,S2=BX D S3
S1D	I SWM,$D(@("^"_Q_"BA(11,HBF)")) S HQD=+$P(^(HBF),D,7)
S1Z	K SSS Q
	;
S3	S S3=$S($D(^(S1)):^(S1),1:D),S4=$S($D(^(S1+.02)):^(S1+.02),1:D)
S3A	S:SSS SAL=+S3,SSS=0 I S2>2 F S5=2:1:S2-1 S SAL=SAL+$P(S3,D,S5)-$P(S4,D,S5)
S3Z	K S1,S2,S3,S4,S5 Q
	;
Z	X ^cZ Q
ZZ	; 18.05.04 - 15 u 48 * V8