KFOU1 G BREACK1 ;AFDRUKKEN OPENSTAANDE UITLEVERINGEN ;Quit naar KFOU [ 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),NPL=$P($P(SU1,D,7),"#",2),UPT=$P(SU1,D,13),UVM=$P(SU1,D,18),UZ=100,LN=LN+3 I LN>50 W # D HD
S0A W ! I LKO["U" W $P($T(T3),U,2),$C(13),?2,$J(UR,6) W:KR'=KRR ?11,KR W ?16,"**** ",NPL,?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,"**** ",NPL,?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)
S0C W ?109,$J(UVM,3) S (UPV,UPB)=$J(+UPT,0,2),UPAR=$$MUNT^vhRtn1(UVM,,12),UPV=$J(UPB/UPAR,0,2)
S0D S UZ=$N(@Q4) G S0L:UZ=-1 S U2=^(UZ),PR=$P(U2,D,2) G S0D:'PR S UA=$P(U2,D,3)
S0E S X=@("^"_Q_"PR(PR,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 ! W:LKO["U" $P($T(T3),U,2),$C(13),?11 W:LKO["K" $P($T(T4),U,2),$C(13),?2 I $D(KX) W KT1 W:LKO["U" ?38 W:LKO["K" ?29 W $J($S('+KX:"KONTANT",1:KX),7)
S0I W ?48,$J($E(PNR,1,11),11),?62,PC S R=UA_"\7\89\0" D:+R R3
S0J S (UNV,UNB)=$P(U2,D,9),UPAR=$$MUNT^vhRtn1(UVM,,12),UNB=$J(UNV*UPAR,1,2)
S0K S UNS=UNS+UNV,UNN=UNN+UNB,R=UNV_"\14\98\2" D:+R R3 S R=UNB_"\14\114\2" D:+R R3 K KX G S0D
S0L S LN=LN+4 W ! W:LKO["U" $P($T(T3),U,2) W:LKO["K" $P($T(T4),U,2) W $C(13),?99,"-------------   -------------"
S0M W ! W:LKO["U" $P($T(T3),U,2) W:LKO["K" $P($T(T4),U,2) W $C(13),?90,"TOTAAL" S R=UNS_"\14\98\2" D:+R R3 S R=UNN_"\14\114\2" D:+R R3
S0N W ! W:LKO["U" $P($T(T3),U,2) W:LKO["K" $P($T(T4),U,2) W $C(13),?90,"PORT"
S0O I $P(UPT,"#",2) S R=UPV_"\14\98\2" D:+R R3 S R=UPB_"\14\114\2" D:+R R3 S UPTA=UPTA+UPT
S0P E  W ?124,"VRIJ" S UPTV=UPTV+UPT
S0Q S UNT=UNT+UNN W ! W:LKO["U" $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["U"&(FST>LST))
30 I LKO["U" S UR=FST,KR=$P(^(UR,US),D,1) G 29:'$D(@("^"_Q_"UL(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_"UL(KR)"))
33 D:KR'=KRR S1 S UR=$N(@Q3) G 29:UR=-1 D S0 S KRR=KR G 33
41 I UNT W !!,?106,"TOTAAL :" S R=UNT_"\14\114\2" D R3
43 W ! I UPTA W !?95,"AANGEREKENDE PORT :" S R=UPTA_"\14\114\2" D R3
45 I UPTV W !?90,"NIET AANGEREKENDE PORT :" S R=UPTV_"\14\114\2" D R3
47 W # D CLOSE^vhPRINTER
BREACK0 B 0
 ;
YZ Q
 ;
T1 ;:--------:------------------------------------:-------------:---------------------------:--------:---------------:---------------:
T2 ;:------------------------------------:--------:-------------:---------------------------:--------:---------------:---------------:
T3 ;:        :                                    :             :                           :        :               :               :
T4 ;:                                    :        :             :                           :        :               :               :
T5 ;": UITLEV : KLANT - VERZENDINGSWIJZE           : DAT - ID-NR : PRODUKTNAAM               : AANTAL :  MUNT - NETTO :  BEDR NET "_$$MUNT^vhRtn1(,1)_" :"
T6 ;": KLANT - VERZENDINGSWIJZE           : UITLEV : DAT - ID-NR : PRODUKTNAAM               : AANTAL :  MUNT - NETTO :  BEDR NET "_$$MUNT^vhRtn1(,1)_" :"
 ;
HD0 W ! W:LKO["U" $P($T(T1),U,2) W:LKO["K" $P($T(T2),U,2) W #
HD S BLZ=BLZ+1,LN=0 W !,NM1,?122,"BLZ:",$J(BLZ,4),!,NM2,?50,@F82,$P($P($T(+1),";",2)," ",2,99),@F83,$C(13),?122,DT
HD1 W !,NM3,?50,"(PER ",LKO,")",?123,TD,!
HD2 W !!! W:LKO["U" @$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
 ;