cT331 ;Aankoopventilaties ;%T33 ;overlay %T33* ; [ 01/04/01  11:09 AM ]
 G 1
 ;
T0 ;Aankoopventilaties ;
T1 ;Blz :;
T2 ;facturen;creditnota's;
T3 ;Debet    :    Credit       *;
T4 ;Journaalpost aankopen ;
T5 ;Aftrekbare B.T.W.;
T6 ;Verschuldigde verlegging B.T.W.;
T7 ;Verschuldigde intracomm. B.T.W.;Verschuldigde B.T.W. Nelux;
T8 ;Verschuldigde B.T.W. O.H.;Verschuldigde B.T.W. medecontr.;
T9 ;Leveranciers;
T10 ;Totaal;
T11 ;Aftrekbare intracomm. B.T.W.;Aftrekbare B.T.W. Nelux;
T12 ;Aftrekbare B.T.W. O.H.;Aftrekbare B.T.W. medecontr.;
T13 ;Verschuldigde B.T.W.;
T14 ;Aftrekbare B.T.W. verlegging;
 ;
T0F ;Ventilations des achats ;
T1F ;Page:;
T2F ;factures;notes de crédit;
T3F ;Débit    :    Crédit       *;
T4F ;Article de journal achats ;
T5F ;TVA déductible;
T6F ;TVA report de perception due;
T7F ;TVA intracomm. due;TVA Nelux due;
T8F ;TVA immobilière due;TVA cocontractant due;
T9F ;Fournisseurs;
T10F ;Total;
T11F ;TVA I.C. déductible;TVA Nelux déductible;
T12F ;TVA immobilière déductible;TVA cocontractant déductible;
T13F ;TVA due;
T14F ;TVA report de perception déductible;
 ;
T0E ;Purchase ventilations ;
T1E ;Pge :;
T2E ;invoices;credit notes;
T3E ;Debit    :    Credit       *;
T4E ;Journal entry purchase ;
T5E ;Deductable VAT;
T6E ;Due VAT transferred charges;
T7E ;Due VAT intracommunity;Due VAT Nelux;
T8E ;Due VAT Im.Ch.;Due VAT co-contractor;
T9E ;Suppliers;
T10E ;Total;
T11E ;Deductible VAT intracommunity;Deductible VAT Nelux;
T12E ;Deducible VAT Im.Ch.;Deductible VAT co-cont.;
T13E ;Due VAT;
T14E ;Deducible VAT transferred charges;
 ;
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
 ;
S1 S R=^(BR)_D_14_D_D_QD,LN=LN+1 I LN+5>LNMAX D 85 W $$FF^cA334 D 8
S1Z W !,"*" Q
 ;
1 S (BR,DEB,CRD)=0,FC=2 D 8
2 S BR=$O(^HULP(boot,$J,1,BR)) I $L(BR) D S1 S DEB=DEB+R W ?5,BR,?12,$E($P(@Q41,D,2),1,38),?57 D R3 W ":",?90,"*" G 2
21 I ABF W !,"*",?5,$P($T(@("T5"_QT)),U,2),?57 S R=ABF_D_14_D_D_QD,DEB=DEB+R D R3 W ":",?90,"*"
23 I ICF W !,"*",?10,$P($T(@("T7"_QT)),U,$S(BP>1993:2,1:3)),?72,": " S R=ICF_D_14_D_D_QD,CRD=CRD+R D R3 W " *"
24 I OBF W !,"*",?10,$P($T(@("T8"_QT)),U,2),?72,": " S R=OBF_D_14_D_D_QD,CRD=CRD+R D R3 W " *"
25 I MCF W !,"*",?10,$P($T(@("T8"_QT)),U,3),?72,": " S R=MCF_D_14_D_D_QD,CRD=CRD+R D R3 W " *"
27 I VLF W !,"*",?10,$P($T(@("T6"_QT)),U,2),?72,": " S R=VLF_D_14_D_D_QD,CRD=CRD+R D R3 W " *"
28 W !,"*",?10,$P($T(@("T9"_QT)),U,2),?72,": " S R=LF_D_14_D_D_QD,CRD=CRD+R D R3 W " *"
29 D 7
 ;
3 S (BR,DEB,CRD)=0,FC=3 D 8
31 W !,"*",?5,$P($T(@("T9"_QT)),U,2),?57 S R=LC_D_14_D_D_QD,DEB=DEB+R D R3 W ":",?90,"*"
33 I ICC W !,"*",?5,$P($T(@("T11"_QT)),U,$S(BP>1993:2,1:3)),?57 S LN=LN+1,R=ICC_D_14_D_D_QD,DEB=DEB+R D R3 W ":",?90,"*"
34 I OBC W !,"*",?5,$P($T(@("T12"_QT)),U,2),?57 S LN=LN+1,R=OBC_D_14_D_D_QD,DEB=DEB+R D R3 W ":",?90,"*"
35 I MCC W !,"*",?5,$P($T(@("T12"_QT)),U,3),?57 S LN=LN+1,R=MCC_D_14_D_D_QD,DEB=DEB+R D R3 W ":",?90,"*"
36 I VLC W !,"*",?5,$P($T(@("T14"_QT)),U,2),?57 S LN=LN+1,R=VLC_D_14_D_D_QD,DEB=DEB+R D R3 W ":",?90,"*"
37 S BR=$O(^HULP(boot,$J,0,BR)) I $L(BR) D S1 S CRD=CRD+R W ?10,BR,?17,$E($P(@Q41,D,2),1,38),?72,": " D R3 W " *" G 37
38 I ABC W !,"*",?10,$P($T(@("T13"_QT)),U,2),?72,": " S R=ABC_D_14_D_D_QD,CRD=CRD+R D R3 W " *"
4 D 7 G Y
 ;
7 W !,"*",?57,"-------------- : --------------  *"
71 W !,"*",?5,$P($T(@("T10"_QT)),U,2),?57 S R=DEB_D_14_D_D_QD D R3 W ": " S R=CRD_D_14_D_D_QD D R3 W " *"
73 W !,"*",?90,"*" D 85 W $$FF^cA334 Q
 ;
Y D ^cT332:SWAV&$D(^HULP(boot,$J+.01)) K ^HULP(boot,$J),^($J+.01) G:'SWD&'SWU Y^cT33
YZ X F71 Q
 ;
8 S BLZ=BLZ+1,LN=7 W !,NM1,?30,@F82,MNM,@F83,$$CR^cA334 W ?124,$P($T(@("T1"_QT)),U,2),$J(BLZ,3),!,NM2,?30,TIT,$$CR^cA334 W ?124,DT,!,NM3,$$CR^cA334 W ?125,TD,!!!
81 D 85 W !,"*",?90,"*",!,"*",?5,$P($T(@("T4"_QT)),U,2),$P($T(@("T2"_QT)),U,FC),?90,"*"
83 W !,"*",?63,$P($T(@("T3"_QT)),U,2),!,"*",?63,"-----    :    ------       *" Q
85 W !,"*******************************************************************************************" Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84