cT292 ;AANKOOPDAGBOEK ;%T291;Do uit %T291, Go naar %T293 [ 04/12/00   9:06 AM ]
 G 1
 ;
T0 ;Aankoopdagboek ;
T1 ;blz :;
T2 ;:Fact/C.N. Datum Nummer-naam leverancier  : Totaal doc.  : Goederen kost: Investering  : Aftr.BTW : N.A. BTW :BTW Nelux : BTW O.H. :;
T3 ;: Overdrachttotaal ;: Eindtotaal ;Facturen;Creditnota's;
 ;
T0F ;Journal des achats ;
T1F ;page:;
T2F ;:Fact/N.C. Date  Numéro+nom fournisseur   : Total doc.   : Marchandises : Investissem. : TVA déd. :TVA n.déd :TVA Nelux : TVA Immo :;
T3F ;: Total transfert  ;: Tot. final ;Factures;N. de crédit;
 ;
T0E ;Aankoopdagboek ;
T1E ;blz :;
T2E ;:Fact/C.N. Datum Nummer-naam leverancier  : Totaal doc.  : Goederen kost: Investering  : Aftr.BTW : N.A. BTW :BTW Nelux : BTW O.H. :;
T3E ;: Overdrachttotaal ;: Eindtotaal ;Facturen;Creditnota's;
 ;
S1 S:$E(S1,$L(S1))="-" S1=-S1 S S1=S1/DEC Q
 ;
S3 W:'R $J("",$P(R,D,2)+1) D R3:R W ":" Q
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 S (BLZ,T1,T2,T3,T4,T5,T6,T7,T8,Y1,Y2,Y3,Y4,Y5,Y6,Y7,Y8)=0,I1=10 D 8
 ;
2 S I1=$O(^HULP("RC",Q,TNR,I1)) G YZ:I1="" S K=^(I1) G 2:$E(K,1,2)'=10,2:'$D(^(I1+2))
21 S K1=^(I1+1),K2=$E(^(I1+2),3,112),FC=$E(K,12),I1=I1+3,LN=LN+1 I LN>LNMAX D 9,8
25 S S1=$E(K,31,42) D S1 S B1=S1,S1=$E(K,43,54) D S1 S B2=S1,S1=$E(K2,3,14) D S1 S B3=S1,S1=$E(K,67,78) D S1
27 S B4=S1,S1=$E(K2,39,50) D S1 S B5=S1,S1=$E(K2,27,38) D S1 S B6=S1,S1=$E(K2,15,26) D S1 S B7=S1,S1=$E(K,91,102) D S1 S S1=0
28 I FC="F" S T1=T1+B1,T2=T2+B2,T3=T3+B3,T4=T4+B4,T5=T5+B5,T6=T6+B6,T7=T7+B7,T8=T8+S1
29 E  S Y1=Y1+B1,Y2=Y2+B2,Y3=Y3+B3,Y4=Y4+B4,Y5=Y5+B5,Y6=Y6+B6,Y7=Y7+B7,Y8=Y8+S1
 ;
3 W !,":",FC," ",$E(K,13,15),".",$E(K,16,18)," ",$E(K,19,20),".",$E(K,21,22)," ",$E(+$E(K,3,8)_"-"_$E(K1,3,30),1,25),":"
31 S R=B1_D_13_D_D_QD D S3 S R=B2_D_13_D_D_QD D S3 S R=B3_D_13_D_D_QD D S3
33 S R=B4_D_9_D_D_QD D S3 S R=B5_D_9_D_D_QD D S3 S R=B6_D_9_D_D_QD D S3 S R=B7_D_9_D_D_QD D S3
35 G 2
 ;
8 S BLZ=BLZ+1,LN=0 W !,NM1,?124,$P($T(@("T1"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,@F83,$$CR^cA334 W ?124,DT,!,NM3,?30,?125,TD,!!!
81 Q:I1=""  D 85 W !,$P($T(@("T2"_QT)),U,2)
85 W !,":-----------------------------------------:--------------:--------------:--------------:----------:----------:----------:----------:" Q
 ;
9 D 85 W !,$P($T(@("T3"_QT)),U,I1=""+2),$P($T(@("T3"_QT)),U,4),?42,":" S R=T1_D_13_D_D_QD D S3 S R=T2_D_13_D_D_QD D S3 S R=T3_D_13_D_D_QD D S3
91 S R=T4_D_9_D_D_QD D S3 S R=T5_D_9_D_D_QD D S3 S R=T6_D_9_D_D_QD D S3 S R=T7_D_9_D_D_QD D S3
93 W !,$P($T(@("T3"_QT)),U,I1=""+2),$P($T(@("T3"_QT)),U,5),?42,":" S R=Y1_D_13_D_D_QD D S3 S R=Y2_D_13_D_D_QD D S3 S R=Y3_D_13_D_D_QD D S3
95 S R=Y4_D_9_D_D_QD D S3 S R=Y5_D_9_D_D_QD D S3 S R=Y6_D_9_D_D_QD D S3 S R=Y7_D_9_D_D_QD D S3
97 D 85 W $$FF^cA334 Q
 ;
YZ D 9 K B1,B2,B3,B4,B5,B6,B7 G ^cT293
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84