KOFO1 G BREACK1 ;AFDRUKKEN OPENSTAANDE OFFERTES ;Quit naar KOFO [ 08/05/2002  11:30 AM ]
 ;
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 (UZ,UNT)=0,UZ=$N(@Q4),SU1=^(UZ),UI=$P(SU1,D,2),UJ=$P(SU1,D,3),UBK=$P(SU1,D,16),UZ=100
S0A S LN=LN+3 I LN>50 W # D HD G S0A
S0B W !,$P($T(T4),U,2),$C(13) W:KR'=KRR ?2,KR W ?7,"**** ",UJ,?39,$J(UR,6),?48,UI
S0C W !,$P($T(T4),U,2),$C(13) W:KR'=KRR ?2,KN W ?51,UBK,!,$P($T(T4),U,2),$C(13) W:KR'=KRR ?2,$E(KP_" "_KW,1,34)
S0D S UZ=$N(@Q4) G S0J:UZ=-1 S U2=^(UZ),PR=$P(U2,D,2),UNT=UNT+$P(U2,D,9) G S0D:'$L(PR) S UA=$P(U2,D,3),ULT=$P(U2,D,25),PC=$P(U2,D,2),PNR=$P(U2,D,20)
S0E I $D(@("^"_Q_"PR(PR,0)")) S X=^(0),PC=$P(X,D,1),X=^(2),PNR=$P(X,D,25)
S0G S LN=LN+1 I LN>50 D HD0
S0H W !,$P($T(T4),U,2),$C(13),?2 I $D(KX) W KT1,$J($S('+KX:"KONTANT",1:KX),7)
S0HH W ?48,$J($E(PNR,1,11),11),?62,PC S R=UA_"\7\89\0" D:+R R3 W ?99,$J($S(ULT=".":"STOCK",1:ULT),5)
S0I K KX G S0D
S0J G S0L:KV'="MTL" S UVM=$P(U2,D,22),UPAR=$$MUNT^vhRtn1(UVM,,12),UNT=$J(UNT*UPAR,1,2)
S0K S UPAR=$$LANDPAR^KLANT(KL),UNT=UNT/UPAR
S0L S LN=LN+2,UNT=UNT
S0M W !,$P($T(T4),U,2),$C(13) S R=UNT_"\9\23\2" D:+R R3 W:+R MNT
S0N I MNT'=$$FADEF^vhRtn1() S UPAR=$$MUNT^vhRtn1(MNT,,12),UNT=UNT*UPAR
S0O S TOT=TOT+UNT W !,$P($T(T2),U,2)
S0Z K SU1 Q
 ;
S1 S X=@("^"_Q_"KL(@(""^""_Q_""K1(KR)""),0)"),KN=$P(X,D,2),KP=$P(X,D,6),KW=$P(X,D,7),KL=$P(X,D,8),KV=$P(X,D,11),KT1=$P(X,D,13),KX=$P(X,D,18)
S1A S MNT=$$CONVMUNT^KLANT(KV,KL)
S1Z Q
 ;
BREACK1 B 1
27 D HD
29 S FST=$N(@Q2) G 41: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
41 G 47:'TOT W !!,?34,"TOTAAL"
45 W ! S R=TOT_"\13\35\2" D R3
 W $$MUNT^vhRtn1(,1)
47 W # D CLOSE^vhPRINTER
BREACK0 B 0
 ;
YZ Q
 ;
T2 ;:------------------------------------:--------:-------------:---------------------------:--------:-------:
T4 ;:                                    :        :             :                           :        :       :
T6 ;: KLANT - REFERENTIE - TOTALEN       : OFFERT : DAT - ID-NR : PRODUKTNAAM               : AANTAL :    LT :
 ;
HD0 W !,$P($T(T2),U,2) W #
HD S BLZ=BLZ+1,LN=0 W !,NM1,?98,"BLZ:",$J(BLZ,4),!,NM2,?32,@F82,$P($P($T(+1),";",2)," ",2,99),@F83,$C(13),?98,DT
HD1 W !,NM3,?99,TD,!
HD2 W !!!,$P($T(T2),U,2),!,$P($T(T6),U,2),!,$P($T(T2),U,2)
HDZ Q
 ;