cT430 ;VERKOOPDAGBOEK ;%T43 ;overlay %T43* ; [ 01/03/01  7:21 PM ]
 G 1
 ;
T0 ;Verkoopdagboek ;
T1 ;blz :;
T2 ;:Fact/C.N. Datum Nummer-Naam van de klant  : Tot.document : Belastbare basis :  B. T. W.  : Egalis. : Kort.c.:Luxetaks:  Verschil  :;
T3 ;: Overdrachttotaal ;: Eindtotaal ;facturen;creditnota's;
 ;
T0F ;Journal des ventes ;
T1F ;page:;
T2F ;:Fact/N.C. Date  Numéro-Nom du client      : Tot.document : Base taxable     :  T. V. A.  : Egalis. : Esc.ct.:Taxe lux: Différence :;
T3F ;: Total transfert  ;: Total final ;factures;notes de credit;
 ;
T0E ;Sales journal ;
T1E ;pge :;
T2E ;:Inv./C.N. Date  Number-Name of the cust.  : Document tot.: Taxable basis   :  V. A. T.  : Egalis. :I.c.disc:Lux. tax:  Diff.     :;
T3E ;: Transfer total   ;: Final total ;invoices;credit notes;
 ;
S1 S:$E(S1,$L(S1))="-" S1=-S1 S S1=S1/DEC Q
 ;
S3 I 'R W $J("",$P(R,D,2)+1) 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,Y1,Y2,Y3,Y4,Y5,Y6)=0,I1=10 D 8 F I=0:1 Q:'$D(PBTW(I))  S T(I)=0,Y(I)=0
 ;
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
23 S S2="",B6=0 F I=0:1:9 S S1=$E(K2,1,10),K2=$E(K2,11,999) I S1 D S1 S S2=S2_S1_"#"_I_D,B6=B6+S1 S:FC="F" T(I)=T(I)+S1 S:FC'="F" Y(I)=Y(I)+S1
25 S S1=$E(K,31,42) D S1 S B1=S1,S1=$E(K,67,78) D S1 S B2=S1,S1=$E(K,79,90) D S1 S B3=S1,S1=$E(K,55,66) D S1
27 S B4=S1,S1=$E(K,91,102) D S1 S B5=S1,S1=$E(K,43,54) D S1 S B6=B6-S1 S:'SWF B6=B6+B4
28 I FC="F" S T1=T1+B1,T2=T2+B2,T3=T3+B3,T4=T4+B4,T5=T5+B5,T6=T6+B6
29 E  S Y1=Y1+B1,Y2=Y2+B2,Y3=Y3+B3,Y4=Y4+B4,Y5=Y5+B5,Y6=Y6+B6
 ;
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,26),":"
31 S R=B1_D_13_D_D_QD,S1=+$P(S2,"#",2) S:$D(PBTW(S1)) S1=PBTW(S1) D R3 W ": ",$E($J(S1,3)_"   ",1,6)
33 S R=+S2_D_10_D_D_QD,S2=$P(S2,D,2,99) D S3 W ":" S R=B2_D_11_D_D_QD D S3 W ":" S R=B3_D_8_D_D_QD D S3 W ":"
35 S R=B4_D_7_D_D_QD D S3 W ":" S R=B5_D_7_D_D_QD D S3 W ":" S R=B6_D_11_D_D_QD D S3 W ":"
 ;
4 G 2:S2="" S LN=LN+1 I LN>LNMAX D 9,8
41 S S1=+$P(S2,"#",2) S:$D(PBTW(S1)) S1=PBTW(S1) W !,":",?43,":",?58,": ",$E($J(S1,3)_"   ",1,6)
43 S R=+S2_D_10_D_D_QD,S2=$P(S2,D,2,99) D S3 W ":",?90,":",?100,":",?109,":",?118,":",?131,":" G 4
 ;
5 D 8 W !,"*",?79,"*"
 ;
8 S BLZ=BLZ+1,LN=0 W !,NM1,?124,$P($T(@("T1"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T0"_QT)),U,2),@F83,$$CR^cA334 W ?124,DT,!,NM3,?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),?43,":" S R=T1_D_13_D_D_QD D R3 W ":",$J(":",19) S R=T2_D_11_D_D_QD D S3 W ":"
91 S R=T3_D_8_D_D_QD D S3 W ":" S R=T4_D_7_D_D_QD D S3 W ":" S R=T5_D_7_D_D_QD D S3 W ":" S R=T6_D_11_D_D_QD D S3 W ":"
93 W !,$P($T(@("T3"_QT)),U,I1=""+2),$P($T(@("T3"_QT)),U,5),?43,":" S R=Y1_D_13_D_D_QD D R3 W ":",$J(":",19) S R=Y2_D_11_D_D_QD D S3 W ":"
95 S R=Y3_D_8_D_D_QD D S3 W ":" S R=Y4_D_7_D_D_QD D S3 W ":" S R=Y5_D_7_D_D_QD D S3 W ":" S R=Y6_D_11_D_D_QD D S3 W ":"
97 D 85 W $$FF^cA334 Q
 ;
YZ D 9 K B1,B2,B3,B4,B5,B6 G ^cT431
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84