KF23 G F ;AFDRUKKEN TE FAKTUREREN UITLEVERINGEN ;Do naar KF23B - Quit naar MENU [ 08/05/2002  10:44 AM ]
 ;
F S US="F" G 1
M S US="M" G 1
N S US="N" G 1
P S US="P" G 1
T S US="T" G 1
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),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,".",1) F R5=3,7 S R6=$L(R0) G R3B: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
 ;
S0 S UN=0,UZ=100
S0A S UZ=$N(@Q4) G S0B:UZ=-1,S0B:'UZ S UN=UN+$P(^(UZ),D,9) G S0A
S0B S SU1=^(1) G S0C:KV'="MTL" S UVM=$P(SU1,D,18),UPAR=$$MUNT^vhRtn1(UVM,,12),UN=$J(UN*UPAR,1,2)
S0BB S UPAR=$$LANDPAR^KLANT(KL),UN=$J(UN/UPAR,1,2)
S0C S LN=LN+1 I LN>50 W # D HD
S0D W ! G S0F:LKO'["U" W $P($T(T2),U,2) W:LREF'=0 $E(BLA,1,LREF)," :" W $C(13),?2,$J(UR,6) W:KC'=KCO ?11,$J(KC,5)
S0E W:KC'=KCO ?19,KN,?50,KT1 S KCO=KC G S0G
S0F W $P($T(T3),U,2) W:LREF'=0 $E(BLA,1,LREF)," :" W $C(13) W:KC'=KCO ?2,$J(KC,5) W:KC'=KCO ?10,KN,?41,KT1 W ?62,$J(UR,6) S KCO=KC
S0G W ?71,$P(SU1,D,2) S TKL=TKL+UN,R=UN_"\14\81\2" D R3 W ?96,MNT
S0H S UPAR=$$MUNT^vhRtn1(MNT,,12),UN=$J(UN*UPAR,1,2)
S0I S TKB=TKB+UN,TOT=TOT+UN,R=UN_"\14\101\2" D R3 W:LREF'=0 ?100,$P(SU1,D,3)
S0Z K SU1 Q
 ;
S1 S X=@("^"_Q_"KL(@(""^""_Q_""K1(KC)""),0)"),KN=$P(X,D,2),KL=$P(X,D,8),KV=$P(X,D,11),KT1=$P(X,D,13)
S1A S MNT=$$CONVMUNT^KLANT(KV,KL)
S1Z Q
 ;
1 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3)
2 S BLA="                                        ",STR="----------------------------------------"
3 S (BLZ,TOT)=0,K=$P($T(+1),";",2)_QN_" ",FP=203+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
5 S Q1="@(""^""_Q_""U1(UR)"")",Q2="@(""^""_Q_""U2(US,KC)"")",Q3="@(""^""_Q_""UL(KC,US,UR)"")",Q4="@(""^""_Q_""UL(KC,US,UR,UZ)"")"
7 I '$D(@("^"_Q_"U2(US)")) S FP=2403+F60 W @F,@F4,"ER ZIJN GEEN TE FAKTUREREN UITLEVERINGEN ! ",@F5,@F0 H 3 G YZ
8 S X=$N(@("^"_Q_"UL(0,US,0)")),X=100,LREF=0,REF=""
80 S X=$N(^(X)) G 9:X=-1!(X'?.N),80:$P(^(X),";",16)'=103 S REF=$P(^(X),";",1),LREF=$P(^(X),";",9)
9 S LKO="UITLEVERING",(FNR,UR,KC,KCO,TKL,TKB)=0,NXT="UR",Q5="@Q1"
11 S R="K\20\3\LIJST PER KLANTNUMMER OF PER UITLEVERINGNUMMER\""K[] = per klantnummer   U[] = per uitleveringnummer""\1\\""-KU""[K&$L(K)\\" D R0^KF23B
13 G YZ:K="-",23:K="U" S LKO="KLANT"
15 S (FNR,KC)=0,NXT="KC",Q5="@Q2",R="K\20\3\ALLE KLANTEN OF BEPAALDE KLANT\""[] = alle klanten   B[] = bepaalde klant""\1\\""-,B""[K\\" D R0^KF23B G 23:K="",9:"-,"[K
17 S R="I1\2000\KLANT\KL\K1" D R1^KF23B G 15:K="-" S KC=$P(I1," ",2),FP=2003+F60 W @F,"KLANT : ",$P(^(I1,0),D,1)," ",$P(^(0),D,2)
19 I $D(@Q2) S (FNR,LNR)=KC,KC=KC-1 G 23
21 S FP=2403+F60 W @F,@F4,"ER ZIJN GEEN TE FAKTUREREN UITLEVERINGEN VOOR DEZE KLANT ! ",@F5,@F0 H 3 G 17
23 D INIT^vhPRINTER(132) G 9:'$D(Print)
25 S:FNR=0 LNR=999999
BREACK1 B 1
27 D HD
29 S @NXT=$N(@Q5) G 41:@NXT=-1!(@NXT>LNR) I LKO["U" S KC=$P(^(UR,US),D,1) G 29:'$D(@("^"_Q_"UL(KC,US,UR)")) D S1,S0 G 29
31 S (UR,KCO)=0 D S1
33 S UR=$N(@Q3) G 39:UR'=-1
35 W !,$P($T(T3),U,2) W:LREF'=0 $E(BLA,1,LREF)," :" W $C(13),?82,$E(STR,1,13),?102,$E(STR,1,13),!,$P($T(T3),U,2) W:LREF'=0 $E(BLA,1,LREF)," :"
36 W $C(13) S R=TKL_"\14\81\2" D R3 W ?96,MNT S R=TKB_"\14\101\2" D R3 W !,$P($T(T3),U,2) W:LREF'=0 $E(BLA,1,LREF)," :" S (TKL,TKB)=00
37 S LN=LN+3 G 29:LN<51 W # D HD G 29
39 D S0 G 33
41 W !!!,?103,"TOT NETTO ",$$MUNT^vhRtn1(,1),!! S R=TOT_"\14\101\2" D R3 W # D CLOSE^vhPRINTER
BREACK0 B 0 G 3
 ;
YZ Q
 ;
T1 ;:-------------------------------------------------------------------------------------------------------------------
T2 ;:        :       :                              :                    :          :                   :               : 
T3 ;:       :                              :                    :        :          :                   :               : 
T4 ;": UITLEV : KL NR : NAAM                         : TELEFOON           : DATUM    : NETTO BEDR UITLEV :  BEDR NET "_$$MUNT^vhRtn1(,1)_" : "
T5 ;": KL NR : NAAM                         : TELEFOON           : UITLEV : DATUM    : NETTO BEDR UITLEV :  BEDR NET "_$$MUNT^vhRtn1(,1)_" : "
 ;
HD S BLZ=BLZ+1,LN=0 W !,NM1,?109 W:LREF'=0 ?(112+LREF) W "BLZ:",$J(BLZ,4),!,NM2,?32,@F82 W:LREF'=0 ?(LREF/2+50) W $P($P($T(+1),";",2)," ",2,99),@F83,$C(13),?109 W:LREF'=0 ?(112+LREF) W DT
HD1 W !,NM3,?32 W:LREF'=0 ?(LREF/2+50) W "(PER ",LKO,"NUMMER)" W ?110 W:LREF'=0 ?(113+LREF) W TD,!
HD2 W !!! W:LKO["U" @$P($T(T4),U,2) W:LKO["K" @$P($T(T5),U,2)
HD3 W REF,$E(BLA,1,LREF-$L(REF)) W:LREF'=0 " :" W !,$P($T(T1),U,2),$E(STR,1,LREF) W:LREF'=0 "---" W ":"
HDZ Q
 ;