KF2BCN ;CREDITEREN VAN FAKTUREN (MANUELE LIJN) ; [ 08/05/2002  10:44 AM ]
 ;
 N U2 S U2=R
 N UEP,UO,UMC,UBE,UN,UPAR
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 ",?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)
 ;
YZ S R=U2
 Q
 ;
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
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 31