KOF23 G F ;AFDRUKKEN OPENSTAANDE OFFERTES ;Quit naar MENU [ 08/05/2002  10:13 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
 ;
S0 S LN=LN+1 I LN>50 W # D HD G S0
S0A W ! G S0C:LKO'["O" W $P($T(T2),U,2,99) W:LREF'=0 $E(BLA,1,LREF)," |" W $C(13),?2,$J(UR,7) W:KC'=KCO ?12,$J(KC,7)
S0B S SU1=@("^"_Q_"OFF(KC,US,UR,1)") W:KC'=KCO ?22,$P(@("^"_Q_"KL(@(""^""_Q_""K1(KC)""),0)"),D,2) S KCO=KC G S0E
S0C W $P($T(T3),U,2,99) W:LREF'=0 $E(BLA,1,LREF)," |" W $C(13) W:KC'=KCO ?2,$J(KC,7)
S0D S SU1=@("^"_Q_"OFF(KC,US,UR,1)") W:KC'=KCO ?12,$P(@("^"_Q_"KL(@(""^""_Q_""K1(KC)""),0)"),D,2) W ?43,$J(UR,7) S KCO=KC
S0E W ?53,$P(SU1,D,2) W:LREF'=0 ?77,$P(SU1,D,3)
S0Z K SU1 Q
 ;
1 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3)
2 S BLA="                                                            ",STR="------------------------------------------------------------"
3 S (BLZ,TOT)=0,FP=235+$L(NM1) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,$P($T(+1),";",2),NM1," ",@F5
5 S Q1="@(""^""_Q_""OFF1(UR)"")",Q2="@(""^""_Q_""OFF2(US,KC)"")",Q3="@(""^""_Q_""OFF(KC,US,UR)"")"
7 I '$D(@("^"_Q_"OFF2(US)")) S FP=2403+F60 W @F,@F4,"ER ZIJN GEEN OPENSTAANDE OFFERTES ! [] = ok ",@F5,@F0 R *KY G YZ
8 S X=$N(@("^"_Q_"OFF(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="OFFERTE",(FNR,UR,KC,KCO)=0,NXT="UR",Q5="@Q1"
11 S R="K\20\3\LIJST PER KLANTNUMMER OF PER OFFERTENUMMER\""K[] = per klantnummer   O[] = per offertenummer""\1\\""-KO""[K&$L(K)\\" D R0
13 G YZ:K="-",23:K="O" S LKO="KLANT"
15 S (FNR,KC,TOTK)=0,NXT="KC",Q5="@Q2",R="K\20\3\ALLE KLANTEN OF BEPAALDE KLANT\""[] = alle klanten   B[] = bepaalde klant""\1\\""-,B""[K\\" D R0 G 23:K="",9:"-,"[K
17 S R="I1\2000\KLANT\KL\K1" D R1 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 OPENSTAANDE OFFERTES VOOR DEZE KLANT ! [] = ok ",@F5,@F0 R *KY 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["O" S KC=$P(^(UR,US),D,1) G 29:'$D(@("^"_Q_"OFF(KC,US,UR)")) D S0 G 29
31 S (UR,KCO)=0
33 S UR=$N(@Q3) G 39:UR'=-1
35 W !,$P($T(T3),U,2,99) W:LREF'=0 $E(BLA,1,LREF)," |" W $C(13),?64,"----------",!,$P($T(T3),U,2,99) W:LREF'=0 $E(BLA,1,LREF)," |"
36 W $C(13),?64,$J(TOTK,10),!,$P($T(T3),U,2,99) W:LREF'=0 $E(BLA,1,LREF)," |" S TOTK=0
37 S LN=LN+3 G 29:LN<51 W # D HD G 29
39 D S0 G 33
41 W !!!,?64,"TOTAAL NET",!!,?64,$J(TOT,10),# D CLOSE^vhPRINTER
BREACK0 B 0 G 3
 ;
YZ Q
 ;
T1 ;|-------------------------------------------------------------
T2 ;|        |                                    |          | 
T3 ;|         |                              |         |          |            | 
T4 ;| OFFERT | KLANT                              | DATUM    | 
T5 ;| KLANT                              | OFFERT | DATUM    | 
 ;
HD S BLZ=BLZ+1,LN=0 W !,NM1,?68 W:LREF'=0 ?(71+LREF) W "BLZ:",$J(BLZ,4),!,NM2,?25 W:LREF'=0 ?(LREF/2+27) W $P($P($T(+1),";",2),U,2,99),"PER ",LKO,"NUMMER",?68 W:LREF'=0 ?(71+LREF) W DT
HD1 W !,NM3,?69 W:LREF'=0 ?(72+LREF) W TD,!
HD2 W !!! W:LKO["O" $P($T(T4),U,2,99) W:LKO["K" $P($T(T5),U,2,99)
HD3 W REF,$E(BLA,1,LREF-$L(REF)) W:LREF'=0 " |" W !,$P($T(T1),U,2,99),$E(STR,1,LREF) W:LREF'=0 "---" W "|"
HDZ Q
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_","_$P(R,D,8) S:$P(R,D,7)'="" R7=R7_","_$P($T(@$P(R,D,7)),U,2,99)
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K S:$P(R,D,7)="DCTR" RD=$P(K,".",1),RM=$P(K,".",2),RJ=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0F
R0E G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,RD,RM,RJ Q
 ;
R1 D ^cA101 Q
 ;