KFKAP2 G BREACK1 ;OPENST. ORDERS MET UITLEV. ;Quit naar KFKAP1 [ 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 ; S2 S UZ=100,USW=0,UZ=$N(@Q7) G S2Z:UZ=-1 S UZ=100 S2A S UZ=$N(^(UZ)) I UZ'=-1 S SU1=^(UZ) G S2A:'$L($P(SU1,D,2)) S USW=1 G S2A S2Z K SU1 Q ; S0 S (UZ,UNS,UNN)=0,UZ=$N(@Q7),SU1=^(UZ) G S0Z:$P(SU1,D,18)="MTL" S UI=$P(SU1,D,2),UJ=$P(SU1,D,3),UZ=100,LN=LN+3 S:Q7="@Q5" UJ=$P($P(SU1,D,7),"#",2) I LN>50 W # D HD S0A W !,$P($T(T3),U,2),$C(13) W:KR'=KRR ?2,KR W ?7,"**** ",UJ,?48,$J(UR,6),!,$P($T(T3),U,2),$C(13) W:KR'=KRR ?2,KN W ?48,UI,!,$P($T(T3),U,2),$C(13) W:KR'=KRR ?2,$E(KP_" "_KW,1,34) S0B S UZ=$N(@Q7) 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 S0B:'PR S UA=$P(U2,D,3),ULT=$P(U2,D,25) S0C S X=@("^"_Q_"PR(PR,0)"),PC=$P(X,D,1),PST=$P(X,D,14),X=^(2),PNR=$P(X,D,25) S0D S LN=LN+1 I LN>50 D HD0 S0E W !,$P($T(T3),U,2),$C(13),?2 I $D(KX) W KT2,?29,$J($S('+KX:"KONTANT",1:KX),7) S0F W ?39,$J(TR,6) W ?48,$J($E(PNR,1,11),11),?62,PC S R=UA_"\7\"_$S('TR:89,1:98)_"\0" D:+R R3 W ?108,ULT S0G I Q7="@Q5" S PST=0 F I=1:1:3 W $C(13),?119,"BON" S0I S R=PST_"\7\115\0" D:+R R3 K KX G S0B 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,UNS=UNS,UNN=UNN,UN=UNS+UNN S0M W !,$P($T(T3),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:Q7="@Q3" TOTOS=TOTOS+UNS,TOTON=TOTON+UNN S:Q7="@Q5" TOTUS=TOTUS+UNS,TOTUN=TOTUN+UNN W !,$P($T(T2),U,2) S0Z K SU1 Q ; S3 S UR=$N(@Q6) I UR'=-1 D S2 G S3:'USW D:KR'=KRR S1 D:KKL=""!(KL=KKL) S0 S KRR=KR G S3 S3Z 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),KT2=$P(X,D,13),KX=$P(X,D,18) S1A S KL=$$LAND^vhRtn1(KL),MNT=$$CONVMUNT^KLANT(KV,KL) S1Z Q ; XT S R=$$INTDATE^vhDTyp(R) Q ; BREACK1 B 1 1 S (BLZ,TOTOS,TOTON,TOTUS,TOTUN,KRR)=0 D HD S:$L(KKL) KKL=$$LAND^vhRtn1(KKL) I FST'=0 G 13:$D(@Q1) 11 S FST=$N(@Q1) G 4:FST=-1!(FST]LST) 13 S KR=$P(FST," ",2) G 11:'$D(@("^"_Q_"OD(KR)"))&'$D(@("^"_Q_"UL(KR)")),3:KBLOK="" ; 2 S KJ=$P(@("^"_Q_"KL(^"_Q_"K1(KR),2)"),D,7)*1000,XX=100000,(KOF,SWBLK)=0 21 S XX=$N(^(XX)) G 25:$L(XX)'=6 S Y=^(XX) G 21:"FC"'[$P(Y,D,1) S R=$P(Y,D,3) D XT S:(+$H-R+1)>UBLOK&($P(Y,D,1)="F") SWBLK=1 23 S X="" S:$P(Y,D,1)="C" X="-" S X=X_$P(Y,D,10),KOF=KOF+X G 21 25 G 11:'SWBLK&(KBLOK="N"),11:SWBLK&(KBLOK="U"),3:'KJ!(KBLOK="") I KBLOK="U",KJ