cT482 ;Fiche KL / LE ;%T48,%T49 ;%T48* ; [ 01/03/01  10:47 AM ]
 G 1
 ;
T0 ;Fiche kl / le ;
T1 ;Niet gevonden;
T2 ;Vervolg ;
T3 ;Periode : ; / Muntcode : ;
T4 ;Maandcumul verschillend; Omschrijving                                      :;
T5 ;:Datum  C Nummer:     Debet    :    Credit    :;     Saldo    ; Muntcode     ;:Refertes - Omzet:;
T6 ;V e r v o l g t;V e r v o l g;
T7 ;Blz :;
T8 ;:     Totaal;
 ;
T0F ;Historique cl / fo ;
T1F ;Introuvable;
T2F ;Suite ;
T3F ;Période : ; / Code mon.: ;
T4F ;Cumul mensuel différent; Description                                       :;
T5F ;:Date   C Numéro:     Débit    :    Crédit    :;     Solde    ; Devise       ;:Référence - C.A.:;
T6F ;A   s u i v r e;S u i t e;
T7F ;Page:;
T8F ;:     Total;
 ;
T0E ;History cu / su ;
T1E ;Not fount;
T2E ;next ;
T3E ;Period  : ; / Currency : ;
T4E ;Global month amount differs; Description                                       :;
T5E ;:Date   C Number:     Debit    :    Credit    :;    Balance   ; Currency     ;:Ref. - Turnover :;
T6E ;T o   b e   c o n t i n u e d;C o n t i n u a t i o n;
T7E ;Pge :;
T8E ;:      Total;
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),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,".",1) 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  ;V2 20.11.86
 ;
 ; test op vervolg
S1 S BL=BL+1 I TP Q:BL<LNMAX  W !,":",?16,":",?31,":",?46,":",?61,":",$P($T(@("T6"_QT)),U,2),?78,":" W:TSW ?130,":" S VV=1 D HDY,HD Q
S1A I BL>12 S K=$P($T(@("T2"_QT)),U,2) D F1 S Y=K S FP=980,BL=1 W @F,@F1
S1Z Q
 ;
 ; volgende lijn printen
S2 D S1 W:Y'="-" !,":",?16,":",?31,":",?46,":",?61,":",?78,":" W:TSW ?130,":" S SW2=0 Q
 ;
 ; bedrag omrekenen
S3 I 'VMSW S BE=$$BEDR^cAFE1(Q,BE,$P(MNTC,D),$P(MUNT,D),PARI)
S3Z Q
 ;
 ; omschrijving journaal
S5 S K=SRT_$E($P(A2,D,21)+1000,2,4)
S5A I $D(@("^"_Q_"BA(""%T"",K)")) S K=$P(^(K),D,2) S:$L(K) CD=K
S5Z Q
 ;
 ; volgende lijn printen
S6 S DEC=QD I VMSW S DEC=$$DEC^cAFA1(VM)
S6A D HD:S(1),TL:S(4),S8:S(2),S9:S(3) Q:'SWA  D:SW2 S2 D S1 Q:Y="-"  W !,":",DTM," ",CD,$J(NR,9-$L(CD)),":"
S6B S SAL=SAL+A(0)-A(1),DBTX=DBTX+A(0),CDTX=CDTX+A(1),DBTM=DBTM+A(0),CDTM=CDTM+A(1),TNET=TNET+NET
S6C F K=1:1:3-VMSW S R=$S(K=3:SAL,1:A(K-1))_"\13\\"_DEC D R3 W ":"
S6Z W:VMSW " "_VM,?61,":" W $E(REF,1,16),?78,":" W:TSW " ",OM,?130,":" Q
 ;
 ; gegevens uit aankoop/verkoopdagboek
S7 S A2=^(A1),CD=$P(A2,D),BE=$P(A2,D,$S(VMSW:25,1:6)),NET=$P(A2,D,7),(A(0),A(1))=0,NR=A1,DTM=$E($P(A2,D,2),1,5)
S7A S:SRT="A" NET=NET+$P(A2,D,14)+$P(A2,D,13)+$P(A2,D,15)+$P(A2,D,9) S NET=$$BEDR^cAFE1(Q,NET,$P(MNTC,D),$P(MUNT,D),PARI)
S7Z S OM=$P(A2,D,19),VM=$P(A2,D,24) S:VM="" BE=$P(A2,D,6),VM=BF D S3 Q
 ;
 ; maand per maand
1 S A2=D,KM=KM1,DEC=QD I KEU S K=KM1(J2) I K'=KM S S(3)=1,KM3=KM
11 S (DBTM,CDTM)=0,I4=1_(KM\1)_$P(KM,".",2),I4Z=I4+.99,SW2=1,BP=KM D 2 G YZ:Y="-" ;detail
14 I DBTM-$P(S1,D,BX)'=0!(CDTM-$P(S2,D,BX)'=0) S @("^"_Q_"TST(I1,BP)")=$P($T(@("T4"_QT)),U,2)_D_DT
15 I KM<KM2 S KM=$E(KM+.01_0,1,7),BX=BX+1 S:KM#1=.13 KM=KM+.88 G 11
16 G YZ:'SWA D HD:S(1),TL:S(4),S8:S(2),S9:S(3) 
17 I 'VMSW D HDY W !,$P($T(@("T8"_QT)),U,2),?16,":" F K=DBTX,CDTX,SAL S R=K_"\13\\"_DEC D R3 W ":"
18 I 'VMSW S R=TNET_"\15\\"_DEC D R3 W ?78,":" W:TSW ?130,":" 
19 I J2'<J4!('KEU&'SW)!(KEU&'SWXX) D HDY I 'TP S K=$P(TXT,D,3) D F1
190 S BL=BL+2 G YZ
 ;
 ; historieken per maand
2 S I4A=I4,I4=$O(@Q01) I $E(I4,1,7)'=$E(I4A,1,7)!(I4]I4Z)!(I4="") G YZ
21 S A=^(I4),A1=$P(A,D) G 2:'$L(A1)
 ;
 ; veld per veld
5 S A1=$P(A,D),A=$P(A,D,2,99),SRT=$E(A1),A1=$E(A1,2,99) G 2:A1=""
51 I SRT="A" G E2:'$D(@Q61) D S7 S A(CD="F")=BE,REF=$P(A2,D,18) S:CD="F" NET=-NET D S5 G 59
53 I SRT="V" G E2:'$D(@Q71) D S7 S A(CD="C")=BE,REF=$P(A2,D,14) S:CD="C" NET=-NET D S5 G 59
54 G E2:SRT'="B"!'$D(@Q95) S A2=^($P(A1,"#",2)),CD=$P(A2,D,6),BE=$P(A2,D,$S(VMSW:25,1:5)),REF=$P(A2,D,9),NET=0,OM=$P(A2,D,15)
55 S VM=$P(A2,D,24) S:VM="" BE=$P(A2,D,5),VM=BF D S3
56 S DTM=$E($P(A2,D,2),1,5),NR=$P(A2,D,3),(A(0),A(1))=0,A(CD="C")=BE,CD=$P(A2,D,4) S:CD="BD" CD="DV"
57 S K="D"_$E($P(A2,D,14)+1000,2,4) D S5A
59 S:REF=""&'TSW REF=OM D S6 G 5:Y'="-"
 ;
YZ Q
 ;
 ; hoofding
HD W:TP&BLZ $$FF^cA334 S BLZ=BLZ+1,FP=101 W:'TP @F,@F1 W !,QN,?TSW\2+27,U9,?71+TSW,$P($T(@("T7"_QT)),U,2),$J(BLZ,3) S S(1)="",SWA=1
HDA W !,NM2,?TSW\2+27,$P(N1,D)," ",$P(N1,D,2),?71+TSW,DT,!,NM3,?TSW\2+27,$P(N1,D,5),?72+TSW,TD,!?TSW\2+27,$P(N1,D,6)
HDB W " ",$P(N1,D,7),!?TSW\2+27,$P($T(@("T3"_QT)),U,2) W:'KEU KJ W:SW "+" W:KEU SM1," - ",SM2
HDC I 'VMSW W $P($T(@("T3"_QT)),U,3),$P(MUNT,D)
HDD W:VV ?62,$P($T(@("T6"_QT)),U,3) S (BL,VV)=0 W:TP ! D HDY W !,$P($T(@("T5"_QT)),U,2),$P($T(@("T5"_QT)),U,3+VMSW),$P($T(@("T5"_QT)),U,5) W:TSW $P($T(@("T4"_QT)),U,3)
HDY W !,":---------------:--------------:--------------:--------------:----------------:"
HDZ W:TSW "---------------------------------------------------:" Q
 ;
 ; beginsaldo
S8 I 'VMSW D S1 S K=KM1(J2) W !,": **01.",$P(K,".",2),".",K\1,"**:",?31,":",?46,":" S R=BSAL_"\13\\"_DEC D R3 W ":",?78,":" W:TSW ?130,":"
S8Z S S(2)="" Q
 ;
TL W !!,$E($P(N1,D)_" "_$P(N1,D,2)_" "_$P(N1,D,5)_" "_$P(N1,D,6)_" "_$P(N1,D,7),1,79),! D HDY S BL=BL+4,S(4)="",SWA=1 Q
 ;
 ; debet & credit begin boekingsmaand
S9 I 'VMSW D S2,S1 W !,": **01.",$P(KM3,".",2),".",KM3\1,"**:" F K=DBTX,CDTX,SAL S R=K_"\13\\"_DEC D R3 W ":"
S9A I 'VMSW W ?78,":" W:TSW ?130,":" 
S9Z S S(3)="" Q
 ;
E2 S @("^"_Q_"TST(I1,I4)")=$P($T(@("T1"_QT)),U,2)_D_SRT_A1_D_DT G 5
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84