KOFO2 G BREACK1 ;AFDRUKKEN OPENSTAANDE OFFERTES ;Quit naar KOFO [ 08/05/2002  11:30 AM ]
 ;
S0 S UZ=0,UZ=$N(@Q4),SU1=^(UZ),UI=$P(SU1,D,2),UJ=$P(SU1,D,3),UBK=$P(SU1,D,16)
S0A S LN=LN+1 I LN>50 D HD0 G S0A
S0B W !,$P($T(T4),U,2),$C(13) W:KR'=KRR ?1,$J(KR,5)," ",KN W ?39,$J(UR,6)
S0C W ?48,UI,?59,UBK,?70,UJ
S0Z K SU1 Q
 ;
S1 S X=@("^"_Q_"KL(@(""^""_Q_""K1(KR)""),0)"),KN=$P(X,D,2)
S1Z Q
 ;
BREACK1 B 1
27 D HD
29 S FST=$N(@Q2) G 47:FST=-1!(FST]LST)
31 S KR=$P(FST," ",2),UR=0 G 29:'$D(@("^"_Q_"OFF(KR)"))
33 D:KR'=KRR S1 S UR=$N(@Q3) G 29:UR=-1 D S0 S KRR=KR G 33
47 W !,$P($T(T2),U,2),# D CLOSE^vhPRINTER
BREACK0 B 0
 ;
YZ Q
 ;
T2 ;:------------------------------------:--------:----------:----------:---------------------------:
T4 ;:                                    :        :          :          :                           :
T6 ;: KLANT                              : OFFERT : DATUM    : GELDIG   : REFERENTIE                :
 ;
HD0 W !,$P($T(T2),U,2) W #
HD S BLZ=BLZ+1,LN=0 W !,NM1,?89,"BLZ:",$J(BLZ,4),!,NM2,?32,@F82,$P($P($T(+1),";",2)," ",2,99),@F83,$C(13),?89,DT
HD1 W !,NM3,?90,TD,!
HD2 W !!!,$P($T(T2),U,2),!,$P($T(T6),U,2),!,$P($T(T2),U,2)
HDZ Q
 ;