KF2BCC G 1 ;WIJZIGEN ORDERLIJNEN (MANUELE LIJN) ;Quit naar KF2CC [ 08/05/2002  10:44 AM ]
 ;
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V5 02.01.86
 ;
C1 W !?2,"[] = ok" Q
 ;
1 S UEP=$P(U2,D,6),UN=$P(U2,D,9),UMC=$P(U2,D,22),FP=1903+F60 W @F,@F1,$C(13),?2,"WIJZIGEN ",K,?16,": ",$P(U2,D,5)
3 S UA=$P(U2,D,3) G 17:'UA S FP=2103+F60 W @F,@F1,"AANTAL        : ",UA
5 S R="K\22\3\AANTAL       \C1\6\\""-,""[K!(K?.N!(K?.N1"".""2N)&(K>0))!(K?1""-"".N)\\" D R0
7 I $L(K) G YZ:"-,"[K S UA=K,FP=2119+F60 W @F,@F1,K
9 S UEP=$P(U2,D,6),FP=2203+F60 W @F,@F1,"EENHEIDSPRIJS : ",UEP," ",UMC
11 S R="K\23\3\EENHEIDSPRIJS\C1\9\\""-,""[K!((K?.N!(K?.N1"".""1N)!(K?.N1"".""2N))&(K'<0)&($L(K)))\\" D R0
13 I $L(K) G YZ:K=",",3:K="-" S UEP=K,FP=2219+F60 W @F,@F1,$J(K,0,2)," ",UMC
15 G 23
17 S UBE=$P(U2,D,16),FP=2103+F60 W @F,@F1,"BEDRAG        : ",UBE," ",UMC
19 S R="K\22\3\BEDRAG       \C1\11\\""-,""[K!(K?.N)!(K?.N1"".""1N)!(K?.N1"".""2N)!(K<0)\\" D R0
21 I $L(K) G YZ:"-,"[K S UBE=K,FP=2119+F60 W @F,@F1,$J(K,0,2)," ",UMC
23 S UO=$P(U2,D,5),R="K\23\3\OMSCHRIJVING \C1\"_UTL D R0 I $L(K) G YZ:K=",",9:K="-"&(UA),17:K="-" S UO=K
25 S:UA UBE=UEP*UA S UBE=$J(UBE,0,2)
27 S U2=$P(U2,D,1,2)_D_UA_D_$P(U2,D,4)_D_UO_D_UEP_D_$P(U2,D,7,8)_D_UBE_D_UBE_D_$P(U2,D,11,15)_D_UBE_D_$P(U2,D,17,99),^(UVN)=U2
29  S:'UA UEP=UBE K:'UA UA D S1
31 I KV="MTL" S UPAR=$$MUNT^vhRtn1(UMC,,12),UN=$J(UN*UPAR/LPAR,1,2)
33 S UTOT=UTOT-UN,UN=UBE S:KV="MTL" UN=$J(UN*UPAR/LPAR,1,2) S UTOT=UTOT+UN D SHOWTOT^KFTOT(UTOT)
 ;
YZ K UMC,UBE,UN,UPAR Q
 ;
S1 S X=0
S1A S X=X+1,UP=$P(UUM,D,X) G S1D:UP="",S1A:'$D(@$P(UP,U,1)) S FP=UL*100+1+$P(UVV,",",$P(UP,U,2)) W @F
S1B I $P(UP,U,3)="L" W @$P(UP,U,1) W:$P(UP,U,1)'="U26" $E(BLA,1,$P(UVV,",",($P(UP,U,2)+1))-$P(UVV,",",$P(UP,U,2))-1-$L(@$P(UP,U,1))) G S1A
S1C W $J(@$P(UP,U,1),$P(UVV,",",($P(UP,U,2)+1))-$P(UVV,",",$P(UP,U,2))-1) G S1A
S1D I $P($P(U2,D,17),"#")="KF1925"&('$P(U2,D,3)) F I=2,5,45,55,67,71,73,79 S FP=UL*100+I W @F,"|"
S1E I $P($P(U2,D,17),"#")="KF1925"&($P(U2,D,3)) F I=2,5,38,45,55,67,71,73,79 S FP=UL*100+I W @F,"|"
S1Z Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 31