KFBON ;OVERZICHT FAKTUREN MET ORIGINELE KLANTENBON;KFBON; [ 05/04/93  1:54 PM ]
 G 1
 ;
T1 ;OVERZICHT KLANTEN "BON BIJVOEGEN"
T2 ; KLANT                             |  ORDER | REFERENTIE
T3 ;1;C;R;5;; \2;C;L;28;; |\3;C;R;7;; | \4;C;L;30;;
T4 ;OVERZICHT
T5 ;E[] = einde   ;;[] = begin;[] = vervolg
 ;
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
 ;
1 S FP=402 W @F,@F1,$P($T(T1),U,2)
11 S DL(1)="KBON",KBON(1)="^HULP($J,""EXTRAS"",""B""," D RL^PROC1
13 S KBON(2)=$P($T(T3),U,2,999),KBON(3)=6,KBON(4)=16,KBON(8)=$P($T(T2),U,2)
 ;
2 D WL^PROC
 ;
3 S VRV=$D(^HULP($J,"EXTRAS","B",KBON(7)+KBON(4)+1))+1 I VRV=1,KBON(7)=1 S VRV=0
31 S R="K\23\3\"_$P($T(T4),U,2)_"\"""_$P($T(T5),U,2)_$P($T(T5),U,VRV+3)_"""\1\\""E""[K" D R0 G YZ:$L(K)
33 G 31:'VRV S DL(2)=$P("HO\NP",D,VRV) D ML^PROC G 3
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 10.06.91 - 16 u 52