cT293 ;AANKOOPDAGBOEK ;%T291;Go uit %T292 [ 04/12/00   9:06 AM ]
 G 1
 ;
T0 ;Aankoopdagboek ;
T1 ;blz :;
T2 ;Algemeen totaal der facturen;
T3 ;Goederen;
T4 ;Investering;
T5 ;Aftrekb.BTW;
T6 ;Niet-aftr.BTW;
T7 ;Luxetaks;
T8 ;Leveranciers;
T9 ;Versch.BTW Nelux;
T10 ;Versch.BTW O.H.;
T11 ;Algemeen totaal der creditnota's;
T12 ;Verschuldigde BTW;
T13 ;Aftrekb.BTW Nelux;
T14 ;Aftrekb. BTW O.H.;
 ;
T0F ;Journal des achats ;
T1F ;page:;
T2F ;Total final des factures;
T3F ;Marchand;
T4F ;Investissem;
T5F ;TVA déduct.;
T6F ;TVA non déd. ;
T7F ;Taxe luxe;
T8F ;Fournisseurs;
T9F ;TVA Nelux due;
T10F ;TVA Immob. due;
T11F ;Total final des notes de crédit;
T12F ;TVA due;
T13F ;TVA Nelux déduct.;
T14F ;TVA Immob. déduct.;
 ;
T0E ;Aankoopdagboek ;
T1E ;blz :;
T2E ;Algemeen totaal der facturen;
T3E ;Goederen;
T4E ;Investering;
T5E ;Aftrekb.BTW;
T6E ;Niet-aftr.BTW;
T7E ;Luxetaks;
T8E ;Leveranciers;
T9E ;Versch.BTW Nelux;
T10E ;Versch.BTW O.H.;
T11E ;Algemeen totaal der creditnota's;
T12E ;Verschuldigde BTW;
T13E ;Aftrekb.BTW Nelux;
T14E ;Aftrekb. BTW O.H.;
 ;
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 D 8 W !,"*",?57,"*",!,"*",?5,$P($T(@("T2"_QT)),U,2),?57,"*",!,"*",?57,"*"
11 W !,"*",?5,$P($T(@("T3"_QT)),U,2),?24 S R=T2_D_14_D_D_QD,DEB=R D R3 W ": ",?57,"*"
13 I T3 W !,"*",?5,$P($T(@("T4"_QT)),U,2),?24 S R=T3_D_14_D_D_QD,DEB=DEB+R D R3 W ":",?57,"*"
15 I T4 W !,"*",?5,$P($T(@("T5"_QT)),U,2),?24 S R=T4_D_14_D_D_QD,DEB=DEB+R D R3 W ":",?57,"*"
17 I T5 W !,"*",?5,$P($T(@("T6"_QT)),U,2),?24 S R=T5_D_14_D_D_QD,DEB=DEB+R D R3 W ":",?57,"*"
19 I T8 W !,"*",?5,$P($T(@("T7"_QT)),U,2),?24 S R=T8_D_14_D_D_QD,DEB=DEB+R D R3 W ":",?57,"*"
2 W !,"*",?5,$P($T(@("T8"_QT)),U,2),?39,": " S R=T1_D_14_D_D_QD,CRE=R D R3 W ?57,"*"
21 I T6 W !,"*",?5,$P($T(@("T9"_QT)),U,2),?39,": " S R=T6_D_14_D_D_QD,CRE=CRE+R D R3 W ?57,"*"
23 I T7 W !,"*",?5,$P($T(@("T10"_QT)),U,2),?39,": " S R=T7_D_14_D_D_QD,CRE=CRE+R D R3 W ?57,"*"
25 W !,"*",?24,"-------------- : --------------",?57,"*"
27 W !,"*",?24 S R=DEB_D_14_D_D_QD D R3 W ": " S R=CRE_D_14_D_D_QD D R3 W ?57,"*"
29 W !,"*",?57,"*" D 85 W !!!!!!!
 ;
3 D 85 W !,"*",?57,"*",!,"*",?5,$P($T(@("T11"_QT)),U,2),?57,"*",!,"*",?57,"*"
31 W !,"*",?5,$P($T(@("T3"_QT)),U,2),?39,": " S R=Y2_D_14_D_D_QD,CRE=R D R3 W ?57,"*"
33 I Y3 W !,"*",?5,$P($T(@("T4"_QT)),U,2),?39,": " S R=Y3_D_14_D_D_QD,CRE=CRE+R D R3 W ?57,"*"
35 I Y4 W !,"*",?5,$P($T(@("T12"_QT)),U,2),?39,": " S R=Y4_D_14_D_D_QD,CRE=CRE+R D R3 W ?57,"*"
37 I Y5 W !,"*",?5,$P($T(@("T6"_QT)),U,2),?39,": " S R=Y5_D_14_D_D_QD,CRE=CRE+R D R3 W ?57,"*"
39 I Y8 W !,"*",?5,$P($T(@("T7"_QT)),U,2),?39,": " S R=Y8_D_14_D_D_QD,CRE=CRE+R D R3 W ?57,"*"
4 W !,"*",?5,$P($T(@("T8"_QT)),U,2),?24 S R=Y1_D_14_D_D_QD,DEB=R D R3 W ?39,":",?57,"*"
41 I Y6 W !,"*",?5,$P($T(@("T13"_QT)),U,2),?24 S R=Y6_D_14_D_D_QD,DEB=DEB+R D R3 W ?39,":",?57,"*"
43 I Y7 W !,"*",?5,$P($T(@("T14"_QT)),U,2),?24 S R=Y7_D_14_D_D_QD,DEB=DEB+R D R3 W ?39,":",?57,"*"
45 W !,"*",?24,"-------------- : --------------",?57,"*"
47 W !,"*",?24 S R=DEB_D_14_D_D_QD D R3 W ": " S R=CRE_D_14_D_D_QD D R3 W ?57,"*"
49 W !,"*",?57,"*" D 85 W $$FF^cA334 G YZ
 ;
8 S BLZ=BLZ+1,LN=0 W !,NM1,?71,$P($T(@("T1"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T0"_QT)),U,2),@F83,$$CR^cA334 W ?71,DT,!,NM3,?72,TD,!
85 W !,"**********************************************************" Q
 ;
YZ K T1,T2,T3,T4,T5,T6,T7,T8,Y1,Y2,Y3,Y4,Y5,Y6,Y7,Y8 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84