KFOO1 G BREACK1 ;AFDRUKKEN OPENSTAANDE ORDERS ;Quit naar KFOO [ 08/05/2002  10:44 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,UNS,UNN)=0,UZ=$N(@Q4),SU1=^(UZ),UI=$P(SU1,D,2),UJ=$P(SU1,D,3),UZ=100,LN=LN+3 I LN>50 W # D HD
S0A W ! I LKO["O" W $P($T(T3),U,2),$C(13),?2,$J(UR,6) W:KR'=KRR ?11,KR W ?16,"**** ",UJ,?48,UI,!,$P($T(T3),U,2),$C(13) W:KR'=KRR ?11,KN W !,$P($T(T3),U,2),$C(13) W:KR'=KRR ?11,$E(KP_" "_KW,1,34)
S0B I LKO["K" W $P($T(T4),U,2),$C(13) W:KR'=KRR ?2,KR W ?7,"**** ",UJ,?39,$J(UR,6),?48,UI,!,$P($T(T4),U,2),$C(13) W:KR'=KRR ?2,KN W !,$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),TR=$P(U2,D,27) S:'TR UNS=UNS+$P(U2,D,9) S:TR UNN=UNN+$P(U2,D,9) G S0D:'PR S UA=$P(U2,D,3),ULT=$P(U2,D,25) S:'TR TR="STOCK"
S0E S X=@("^"_Q_"PR(PR,0)"),PC=$P(X,D,1),PST=$P(X,D,14),X=^(2),PRE=$P(X,D,9),PNR=$P(X,D,25)
S0G S LN=LN+1 I LN>50 D HD0
S0H W ! W:LKO["O" $P($T(T3),U,2),$C(13),?2,$J(TR,6),?11 W:LKO["K" $P($T(T4),U,2),$C(13),?2 I $D(KX) W KT1 W:LKO["O" ?38 W:LKO["K" ?29 W $J($S('+KX:"KONTANT",1:KX),7)
S0HH W:LKO["K" ?39,$J(TR,6) W ?48,$J($E(PNR,1,11),11),?62,PC S R=UA_"\7\89\0" D:+R R3 W ?99,ULT
S0I S R=PST_"\7\106\0" D:+R R3 S R=$P(PRE,"#",2)_"\7\115\0" D:+R R3 S R=$P(PRE,"#",3)_"\7\124\0" D:+R R3 K KX G S0D
S0J G S0L:KV'="MTL" S UVM=$P(SU1,D,18),UPAR=$$MUNT^vhRtn1("UVM",,12),UNS=$J(UNS*UPAR,1,2),UNN=$J(UNN*UPAR,1,2)
S0K S UPAR=$$LANDPAR^KLANT(KL),UNS=UNS/UPAR,UNN=UNN/UPAR
S0L S LN=LN+2,UN=UNS+UNN W ! I LKO["O" W $P($T(T3),U,2),$C(13) S R=UNS_"\9\12\2" D:+R R3 S R=UNN_"\9\22\2" D:+R R3 S R=UN_"\9\32\2" D:+R R3 W:+R MNT
S0M I LKO["K" W $P($T(T4),U,2),$C(13) S R=UNS_"\9\3\2" D:+R R3 S R=UNN_"\9\13\2" D:+R R3 S R=UN_"\9\23\2" D:+R R3 W:+R MNT
S0N S UPAR=$$MUNT^vhRtn1(MNT,,12),UNS=UNS*UPAR,UNN=UNN*UPAR
S0O S TOTS=TOTS+UNS,TOTN=TOTN+UNN W ! W:LKO["O" $P($T(T1),U,2) W:LKO["K" $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(@Q5) G 41:FST=-1!(LKO["K"&(FST]LST))!(LKO["O"&(FST>LST))
30 I LKO["O" S UR=FST,KR=$P(^(UR,US),D,1) G 29:'$D(@("^"_Q_"OD(KR,US,UR)")) D:KR'=KRR S1 D S0 S KRR=KR G 29
31 S KR=$P(FST," ",2),UR=0 G 29:'$D(@("^"_Q_"OD(KR)"))
33 D:KR'=KRR S1 S UR=$N(@Q3) G 29:UR=-1 D S0 S KRR=KR G 33
41 S TOT=TOTS+TOTN G 47:'TOT W !! W:LKO["O" ?20 W:LKO["K" ?11 W "STOCK             KOM          TOTAAL"
43 W ! I LKO["O" S R=TOTS_"\13\12\2" D:+R R3 S R=TOTN_"\13\28\2" D:+R R3 S R=TOT_"\13\44\2" D R3
45 I LKO["K" S R=TOTS_"\13\3\2" D:+R R3 S R=TOTN_"\13\19\2" D:+R R3 S R=TOT_"\13\35\2" D R3
 W $$MUNT^vhRtn1(,1)
47 W # D CLOSE^vhPRINTER
BREACK0 B 0
 ;
YZ Q
 ;
T1 ;:--------:------------------------------------:-------------:---------------------------:--------:-------:--------:-----------------:
T2 ;:------------------------------------:--------:-------------:---------------------------:--------:-------:--------:-----------------:
T3 ;:        :                                    :             :                           :        :       :        :                 :
T4 ;:                                    :        :             :                           :        :       :        :                 :
T5 ;:  ORDER : KLANT - REFERENTIE - TOTALEN       : DAT - ID-NR : PRODUKTNAAM               : AANTAL : LV-WK : FYS-ST : ST-RESERVAT-KOM :
T6 ;: KLANT - REFERENTIE - TOTALEN       :  ORDER : DAT - ID-NR : PRODUKTNAAM               : AANTAL : LV-WK : FYS-ST : ST-RESERVAT-KOM :
 ;
HD0 W ! W:LKO["O" $P($T(T1),U,2) W:LKO["K" $P($T(T2),U,2) W #
HD S BLZ=BLZ+1,LN=0 W !,NM1,?125,"BLZ:",$J(BLZ,4),!,NM2,?50,@F82,$P($P($T(+1),";",2)," ",2,99),@F83,$C(13),?125,DT
HD1 W !,NM3,?50,"(PER ",LKO,")",?126,TD,!
HD2 W !!! W:LKO["O" $P($T(T5),U,2),!,$P($T(T1),U,2) W:LKO["K" $P($T(T6),U,2),!,$P($T(T2),U,2)
HDZ Q
 ;