KOFTOFF G 1 ;ADFDRUKKEN OFFERTES ;Go naar KOFTOFG [ 11/07/2001  9:54 AM ]
 ;
T1 ;PRODUKTKODE\produktkode
T2 ;KL
T3 ;K1
T4 ;KLANT\klant
T5 ;GELDIG OP 
T6 ;GELDIG TOT
T7 ;REFERENTIE
T10 ; GOED AFGEDRUKT
T11 ;E[] = einde(ok)   H[] = hernemen
T12 ;[] = 
 ;
R0 S R7=1 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,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V5 02.01.86
 ;
1 S K=$P($T(+1),";",2)_QN_" " S FP=203+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S DOC=$P($T(+1),";",2),LSTX="K",VOLK=0
13 S SELK=1 D PP^KPSEL G YZ:K="-" I $N(B(100))'=-1 S VOLK=1
 ;
2 S UGL="OFKL",UG1="OFKL1",UG2="OFKL2",UGT="OFKLT",US="F",UOU=@("^"_Q_UGL_"(0,US,""UOU"")"),SW13=1
21 K DOC,PNT,Q1,Q2,Q3,X,X1,X2,SELK,LSTX I 'VOLK D 7^KF32 G 11:K="-",YZ
23 K @("^"_Q_"SEL($J)") S @("^"_Q_"SEL($J)")="",Q1=$P($T(T2),U,2),Q2=$P($T(T3),U,2),Q3=$P($T(T4),U,2),NVG=0,LN=7
25 S FP=801 W @F,@F1 D 2^KSELG I $N(@("^"_Q_"SEL($J,-1)"))=-1 K @("^"_Q_"SEL($J)") G 11
 ;
3 S R="UI\18\3\"_$P($T(T5),U,2)_"\"""_$P($T(T12),U,2)_DT_"""\8\DCTR" D R0 G 23:K="-" I K="" S UI=DT,FP=1816 W @F,DT
31 S R="VDT\19\3\"_$P($T(T6),U,2)_"\\8\DCTR" D R0 G 3:K="-"
33 S R="UJ\20\3\"_$P($T(T7),U,2)_"\\25" D R0 G 31:K="-"
 ;
4 D INIT^vhPRINTER(80) G 11:'$D(Print)
41 D ^KOFTOFG D CLOSE^vhPRINTER
43 S R="K\22\3\"_$P($T(T10),U,2)_"\"""_$P($T(T11),U,2)_"""\1\\""HE""[K&$L(K)" D R0 G 41:K="H"
 ;
YZ Q
 ;
DCTR ;K?2N1"."2N1"."2N&($P(K,".",1)>0)&($P(K,".",2)>0)&($P(K,".",1)<32)&($P(K,".",2)<13)&'("04060911"[$P(K,".",2)&($P(K,".",1)=31))&'(+$P(K,".",2)=2&(('($P(K,".",3)#4)&($P(K,".",1)>29))!($P(K,".",3)#4&($P(K,".",1)>28))))!("-"[K)
 ;