KFBNL ;DRUKKEN BENELUX 50;KFBNL; [ 03/28/2001  4:32 PM ]
 G 1
 ;
T2 ;AFDRUKKEN BENELUX 50 DOKUMENT VOOR FAKTUUR 
T3 ;BENELUX 50 DOKUMENT VOOR FAKTUUR ; GOED AFGEDRUKT
T4 ;[] = ok   -[] = niet afdrukken   ;[] = ok   ;H[] = hernemen faktuur 
 ;
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
 ;
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  ;V1 26.11.84
 ;
ADRES S KI=^KK1(KC),K=^KKL(KI,0) D NAW
 S K=^(2),KREG=$P(K,D,23)
 S K=$$UPTRIMA^vhRtn1(KS) I $E(K,1,2)'="PB",$E(K,1,7)'="POSTBUS" Q
 S L="L" F  S L=$O(^KKL(KI,L)) Q:$E(L,1)'="L"  D
 .S K=^(L) I $P(K,D,19),$D(^KK1($P(K,D,19))) S K=^KKL(^($P(K,D,19)),0)
 .I KW=$P(K,D,7) D NAW S L="L999"
 S K=$$UPTRIMA^vhRtn1(KS) I $E(K,1,2)'="PB",$E(K,1,7)'="POSTBUS" Q
 S L="L" F  S L=$O(^KKL(KI,L)) Q:$E(L,1)'="L"  D
 .S K=^(L) I $P(K,D,19),$D(^KK1($P(K,D,19))) S K=^KKL(^($P(K,D,19)),0)
 .I KN=$P(K,D,2) D NAW S L="L999"
 Q
 ;
NAW S KN=$P(K,D,2),KA=$P(K,D,4),KS=$P(K,D,5),KP=$P(K,D,6),KW=$P(K,D,7)
 Q
 ;
1 D INIT^vhPRINTER(80) G 9:'$D(Print)
11 S:'$D(V) V=0 S FNR=-1
13 S NM2=@("^"_Q_"BA(99,2)"),NM3=^(3),NM7=^(7) F I=1:1 Q:$E(NM7,1)  S NM7=$E(NM7,2,99)      
 ;
2 S FNR=$N(@("^"_Q_"FBB($J,FNR)")) I FNR=-1 G 8:$D(VFNR),9
21 S R="K\22\3\"_$P($T(T2),U,2)_FNR_"\"""_$P($T(T4),U,2) S:$D(VFNR) R=R_$P($T(T4),U,4)_VFNR
23 S R=R_"""\1\\""-""[K!(K=""H""&$D(VFNR))" D R0 G 2:K="-" I K="H" S FNR=VFNR
 ;
3 S U0=^KFA(US,FNR,0,0),U3=^(3),KC=$P(U0,D,1),UVM=$P(U0,D,5)
31 S K=$P(U3,D,21),PAL=$P(K,"#",1),COL=$P(K,"#",2),KAR=$P(K,"#",3)
33 S GEW=$P(U3,D,22),VST=$P($P(U3,D,24),"#",1) I +VST,$D(^KSTNR(VST_" ")) S VST=^(VST_" ")
35 E  S VST=""
37 D ADRES
 ;
4 S R=72 D ^KFOLE
41 W !!!!?19,NM7,!?1,QN,!?1,NM2,!?1,NM3
43 W !!!?19,KREG,!?1,KA W:$L(KA) " " W KN,!?1,KS,!?1,KP," ",KW
45 W !!!!!?37,"Belgie       002"
47 W !!!!?37,$J(UVM,3) S R=$P(U0,D,12)_"\10\\"_$S(UVM="":0,1:2) D R3 W ?64,"1 1"
49 W !!,30,!?41 S R=FNR D R3 W "dd. ",$P(U0,D,6)
 ;
5 W !!!?47,$P(VST,D,1),!!?1 I PAL W PAL," palet" W:PAL>1 "ten" W "   "
51 W:COL COL," coli   " I KAR W KAR," karton" W:KAR>1 "s"
53 W !!?1,"Meubelbeslag",?56 S R=GEW_"\7" D R3
55 W !!!!?62 S R=$P(U0,D,14)_"\10" D R3
57 W !!!!!!!!!!!!!!!!!!!!!!?57,"Sint-Niklaas",!?57,DT
58 W !!!?49,"voor de nv VAN HOECKE",!!?57,"E. Guffens"
59 W # S VFNR=FNR,R=66 D ^KFOLE D CLOSE^vhPRINTER G 2
 ;
8 S R="K\22\3\"_$P($T(T3),U,2)_VFNR_$P($T(T3),U,3)_"\"""_$P($T(T4),U,3)_$P($T(T4),U,4)_"""\1\\""H""[K" D R0
81 I K="H" S FNR=VFNR G 3
 ;
9 K @("^"_Q_"FBB($J)"),KN,KN2,KA,KS,KP,KW,KT,TL,PAL,COL,KAR,TOE
91 I K'=",",'SW13 X:$D(SW12) @("^"_Q_"OD(0,US,1)"),^("UT"),^("UF") S K=","
 ;
YZ Q
 ;