cT863	;Eenmalige boekingsreeksen ;%T86* ; [ 01/04/01  2:11 PM ]
	G 1
	;
T0	;Kopiëren uittreksel ;
T1	;Boekingsmaand\"dit is de maand waarin het uittreksel werd geboekt";
T2	;Keuze\"[] = financiële rekening   D[] = diverse verrichtingen";
T3	;Nummer uittreksel;Uittreksel niet teruggevonden ;Het uittreksel bevat boekingen op klanten/leveranciers ;
T4	;Bevestiging\"[] = ok";
T5	;Er is een saldo : ;
T6	;Muntcode verschilt van ;
	;
T0F	;Copier extrait ;
T1F	;Mois comptable\"le mois dans lequel l'extrait a été comptabilisé";
T2F	;Choix\"[] = compte financier   D[] = opérations diverses";
T3F	;N° de l'extrait;Extrait ne pas retrouvé ;L'extrait contient des mouvements sur clients/fournisseurs ;
T4F	;Confirmation\"[] = ok";
T5F	;Il y a un solde : ;
T6F	;Code monétaire est incompatible avec ;
	;
T0E	;Copy statement ;
T1E	;Fiscal month\"this is the month in which the statement has been registered";
T2E	;Choice\"[] = financial account   D[] = miscellaneous transactions";
T3E	;Statement number;Statement not found ;The statement contains accoutings on customers/suppliers ;
T4E	;Confirmation\"[] = ok";
T5E	;There is a balance : ;
T6E	;Currency differs from ;
	;
	; boekingsmaand
1	;D O^cA612(4,1,18,80,1,0,0,0),T^cA612($P($T(@("T0"_QT)),U,2),0,0,7,0,0) ;10.03.00
	D P^cA612(4,1,18,80,1,0,0,0,$P($T(@("T0"_QT)),U,2),0,0,7,0,0)
11	S BP=DJ_"."_DM F I=1:1:24 Q:$D(@("^"_Q_"FI(BP)"))  S BP=$E(BP-.01_0,1,7) I '(BP#1) S BP=$E(BP,1,4)-.88
13	S R="BP\22\3\"_$P($T(@("T1"_QT)),U,2)_"\7\\$$JJJJMM^cAFI1(K)!(K=""-"")\\\\\1" D R0 G Y:K="-"!(K=",")
15	W /CUP(2,2),@F6,$P($P($T(@("T1"_QT)),U,2),D),@F9,": ",BP,@F1
17	I '$D(@("^"_Q_"FI(BP)")) G 13
19	S K=$$BJ^cAFE1(Q,BP),K=$$MNTC^cAFE1(Q,K) I $P(K,D)'=MNT S K=$P($T(@("T6"_QT)),U,2)_MNT D F1 G 13
	;
	; financieel / diversen
2	S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-D""[K\\\1" D R0 G 13:K="-",25:K="D"
21	S R="BR\1500\1\1\1\1\1\1" D ^cT278 W /CUP(15,1),@F1 G 2:K="-"
23	S RB=$P(BR," "),K=$$SIGN^cAFA1("AR",BR,0),NMB=$P(K,D,2),CD=$P(K,D,10) G 29
	; Diversen - 8e veld op 1 : automatische journalen selecteerbaar - FB - 26.01.07
25	S R="SRT\D\1000\\1500" S $P(R,D,8)=1 D ^cA336 G 2:K="-"
27	S K=$S(SRT:$E(1000+SRT,2,4),1:""),K="D"_K,K=^(K),BR="D",RB=BR_SRT,NMB=$P(K,D),CD=$P(K,D,2) I CD="" S CD=$P("DV\OD",D,QTU)
29	W /CUP(4,2),@F6,CD,@F9,": ",NMB,@F1 I '$D(@("^"_Q_"FI(BP,RB)")) G 2
	;
	; uittreksel
3	S R="NUM\22\3\"_$P($T(@("T3"_QT)),U,2)_"\\5\\$L(K)" D R0 G 2:K="-",13:K=","
31	W /CUP(6,2),@F6,$P($P($T(@("T3"_QT)),U,2),D),@F9,": ",NUM,@F1
33	S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""-,""[K" D R0 G 3:K="-",13:K=","
	;
	; opzoeken uittreksel
4	S (I3,RSAL)=0 K ^HULP(boot,$J)
41	S I3=$O(@("^"_Q_"FI(BP,RB,I3)")) G 5:I3="" S R=^(I3)
43	I $P(R,D,3)=NUM S ^HULP(boot,$J,I3)=R,RSAL=$P(R,D,6)="D"*2-1*$P(R,D,5)+RSAL
45	I $P(R,D,3)=NUM,$P(R,D,7)'="A" S K=$P($T(@("T3"_QT)),U,4) D F1 G 3
49	G 41
	;
	; controle
5	I '$D(^HULP(boot,$J)) S K=$P($T(@("T3"_QT)),U,3) D TXT^cAFA1(250) G 3
51	I RSAL'=0 S K=$P($T(@("T5"_QT)),U,2)_RSAL D F1 G 3
	;
	; opnemen in reeks
6	S I3=$O(^HULP(boot,$J,I3)) I I3="" S REFRESH=2 G Y
61	S R=^(I3),B(1)=$P($P(R,D,8),"#")_" "_D_$P(R,D,5)_$TR($P(R,D,6),"CD","-")_D_D_$P(R,D,16)_D_$P(R,D,27)
63	S UI1="" D DET^cT860 G 6
	;
	; einde
Y	K BP,NUM,I3,R,RSAL,^HULP(boot,$J)
YZ	D C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08