cT320 ;Aankoopdagboek ;%T32 ;%T32* ; [ 01/11/01  6:02 PM ]
 G 1
 ;
T0 ;Aankoopdagboek ;
T1 ;Factuur/ Datum Nummer + naam\Totaal;2\Goe/Die/Inv/And;;1\\Maatstaf;2\Aftrekbare;2\Uitsplitsing;;1\\Niet-aftr.;2\I;
T2 ;Creditn.       van de leverancier\document;2\S\Bedrag;2\van heffing;2\BTW;2\S\BTW-bedrag;2\BTW;2\C;
T3 ;Facturen;Creditnota's;Overdracht ;Eindtotaal ;
T4 ;G;D;I;A;
T5 ;O;I;M;V;
 ;
T0F ;Journal des achats ;
T1F ;Facture/ Date  Numéro + nom \Total;2\Mar/Ser/Inv/Aut;;1\\Mesure;2\TVA;2\Répartition;;1\\TVA;2\I;
T2F ;N.Crédit       du fournisseur\document;2\G\Montant;2\de taxation;2\Déduct.;2\G\Mont. TVA;2\Non déduct;2\C;
T3F ;Factures;Notes de crédit;Transfert ;Total final ;
T4F ;M;S;I;A;
T5F ;M;I;C;R;
 ;
T0E ;Purchase journal ;
T1E ;Invoice/ Date  Number + name\Total;2\Goo/Ser/Inv/Oth;;1\\Basis;2\Deductible;2\Categoriz.;;1\\Non deduc.;2\I;
T2E ;Credit n       of the supplier\document;2\S\Amount;2\of taxation;2\V.A.T.;2\S\VAT amount;2\V.A.T.;2\C;
T3E ;Invoices;Credit notes;Transfer   ;Final total;
T4E ;G;S;I;O;
T5E ;M;I;C;V;
 ;
 ; overzicht: dagboek naar file printen
DEV S DEV=$$HFS^cQ9 I DEV<51!(DEV>54) S DEV=0 G DEVZ:$ZV["MSM",DEVD
DEVA S I=Q_"AA.TXT"
DEVB O DEV:(I:"W"):2 E  S DEV=0 G DEVZ
DEVC U DEV:(I:"W") G DEVZ
DEVD S DEV=$$INFO^cQ5 O DEV:("WNS"):2 E  S DEV=0 ; Caché
DEVE I DEV'=0 U DEV
DEVZ Q
 ;
1 X F70 W @F80 I OVZ S PRINTER=$I D DEV I DEV'=0 S FAX=1 ; ivm %A334
10 S HD(1)=D,HD(2)=D_MNM_";C;F82",HD(3)=D
11 S TIT(1)=$P($T(@("T1"_QT)),U,2,99),TIT(2)=$P($T(@("T2"_QT)),U,2,99),TAB="43\58\60\75\90\105\107\118\129\131"
13 S AFS(1,1)=$P($T(@("T3"_QT)),U,4)_$P($T(@("T3"_QT)),U,2)_"\\9",AFS(2,1)=$P($T(@("T3"_QT)),U,4)_$P($T(@("T3"_QT)),U,3)_"\\9"
15 F I=0:1:4 K ^HULP(boot,I/100+$J)
17 F I="O","I","M","V"," " F J=2,3 S ^HULP(boot,J/100+$J,I,"F")=0,^("C")=0
19 F I=7,13:1:15 S ^HULP(boot,$J+.04,I)=0 F J=0,1 S ^HULP(boot,J/100+$J,I,"F")=0,^("C")=0
 ;
 ;dagboek
2 S I1=$O(@Q6) G Y:'$L(I1),2:I1#1 S Z=^(I1) G 2:$P(Z,D,21)-SRT&(SRT'="A")
21 K A S K=0,A(1)=7 F I=7,14,13,15 S X=$P(Z,D,I) I +X!+$P(X,"#",2) S K=K+1,A(K)=I
23 I $D(LN),$D(LNMAX),LN+$S(K:K,1:1)>LNMAX S END=4 D ^cA334
25 S FC=$P(Z,D),KC=$P(Z,D,4),B(1)=@("^"_Q_"LE(^"_Q_"L1(KC),0)") F I=1:1:10 S TXT(I)=""
 ;
 ;optelling
3 F I=7,13:1:15 S ^(FC)=^HULP(boot,$J,I,FC)+$P(Z,D,I),^(FC)=^HULP(boot,$J+.01,I,FC)+$P($P(Z,D,I),"#",2)
31 F I=7,14,13,15 I +$P($P(Z,D,I),"#",2) S ^(I)=^HULP(boot,$J+.04,I)+(FC="F"*2-1*$P(Z,D,9)) Q
33 S ^(FC)=^HULP(boot,$J+.03,$S($P(Z,D,11):"O",$P(Z,D,12):"I",$P(Z,D,16):"V",$P(Z,D,17):"M",1:" "),FC)+$P($P(Z,D,6),"#",2)
35 F I=11,12,16,17 S ^(FC)=^HULP(boot,$J+.02,$S(I=11:"O",I=12:"I",I=16:"V",1:"M"),FC)+$P(Z,D,I)
 ;
 ;printen
4 S TXT(1)=FC_" "_I1_" "_$E($P(Z,D,2),1,5)_" "_KC_" "_$P(B(1),D,2),TXT(2)=+$P(Z,D,6)
41 S TXT(6)=$P(Z,D,8) F I=11,12,16,17 I $P(Z,D,I) S TXT(7)=$P($T(@("T5"_QT)),U,$S(I=11:2,I=12:3,I=16:5,1:4)),TXT(8)=$P(Z,D,I) Q
43 S TXT(9)=$P(Z,D,9),TXT(10)="" I I=12 S TXT(10)=1
45 S X=$O(A("")) G 2:X="" S Y=A(X),TXT(3)=$P($T(@("T4"_QT)),U,$S(Y=7:2,Y=14:3,Y=13:4,1:5))
47 S TXT(4)=+$P(Z,D,Y),TXT(5)=$P($P(Z,D,Y),"#",2) K A(X)
49 F I=2,4,5,6,8,9 S $P(TXT(I),D,5)=1,$P(TXT(I),D,6)=QD,$P(TXT(I),D,8)=(FC="C"+1) I 'TXT(I) S:I>2!(X>1) TXT(I)=""
 ;
5 D ^cA334 F I=1:1:10 S TXT(I)=""
51 G 45
 ;
Y S AFS(1,1)=$P($T(@("T3"_QT)),U,5)_$P($T(@("T3"_QT)),U,2)_"\\9",AFS(2,1)=$P($T(@("T3"_QT)),U,5)_$P($T(@("T3"_QT)),U,3)_"\\9",END=4 D ^cA334
YY I OVZ,DEV'=0 C DEV U PRINTER S (BLZ,LN)=0 K DEV,FAX,PRINTER
YZ G ^cT321
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84