KKFI8 G 1 ;KLANTENFICHE;KKFI1;Do van KKFI5, KKFI6 - Quit naar KKFI4 [ 12/10/2003  11:55 AM ]
 ;
T1 ;BLZ:
 ;
S1 I I1=3 S C(3)=$O(^PERS("K",$P(B(1),D),""),-1)+1 S:C(3)>1 C(3)=C(3)+1
S1A S SI2=$N(C(I1,I2)),LN=LN+C(I1)+2 I LN>59 W # D HD G S1A
S1B S I2=$N(C(I1,I2)),I3=0 G S1H:I2=-1 F I=SI2:1:I2-1 W !
S1C S SI2=I2,I3=$N(C(I1,I2,I3)) G S1B:I3=-1 S U2=C(I1,I2,I3),X=$P(U2,U,4)
S1D S (K,U3)=$S(X:$P(B(X\100),D,X#100),1:"") I $L($P(U2,U,3)) X "S U3="_$P(U2,U,3)
S1E W ?I3+1
 I $E($P(U2,U))="$" W @$P(U2,U)
 E  W $P(U2,U,1)
 W ?$P(U2,U,2)-4,": "
 I $P(U2,U,4)=311 D  G S1C
 .N I,R
 .W !?I3+1,@FMTU,"Ver|Naam                          |ConnectTyp",$J("",30),@FMTu
 .F I=1:1 Q:'$D(^PERS("K",$P(B(1),D),I))  D
 ..S R=^PERS("K",$P(B(1),D),I)
 ..W !?I3+1,$P(R,D,5),?I3+4,"|",$E($$NAME^PERS("K",$P(B(1),D),I),1,30),?I3+35,"|",$E($$CONNECTL^PERS(R),1,40)
S1F W U3 I DUP[(D_$P(U2,U,4)_D) F I=1,2 W $C(13),?$P(U2,U,2)-2,U3
S1G G S1C
S1H W !!!
S1Z Q
 ;
S0 S I3=0,L="L",TITS=TIT,TIT="LEVERINGSADRESSEN"
S0A S L=$N(@("^"_Q_"KL(KLS,L)")) G S0D:$E(L,1)'="L" S B(0)=^(L) I BLZ=1 S:$E($N(^(L)),1)="L" LN=LN+C(0)
S0B S K=$P(B(0),D,19) I K,$D(@("^"_Q_"K1(K)")) S B(0)=$P(@("^"_Q_"KL(^(K),0)"),D,1,9)_D_$P(B(0),D,10,99)
S0C D S1 G S0A
S0D S TIT=TITS K TITS
S0Z Q
 ;
1 S BLZ=0 G 13:'$D(C) D HD S I1=0
11 S I1=$N(C(I1)),I2=0 I I1'=-1 D S1 G 11
12 S I1=0 D S0
13 S KC=$P(B(1),D,1) K PNT,X2,K,R,X,U2 F I=0,2:1:SW3 K B(I)
14 S LN=100 I $N(@("^"_Q_"KOV(KC,100)"))'=-1,KSE[",2," D ^KKFI5
15 I $D(^VERSLAG("IK",KC)),KSE[",3," D ^KKFI6
16 I KSE[",1,"!(KSE[",2,")!(KSE[",3,") W #
17 I $N(@("^"_Q_"KL(KLS,100000)"))<999999,$N(^(100000))?.N,KSE[",4," D ^KKFI9
18 I $D(^KLPUTZ("N",KC)),KSE[",5," D ^KKFI10
19 I $D(@("^"_Q_"STKL(KC)")),KSE[",6," D ^KKFI11
 ;
YZ Q
 ;
 ;    titel drukken
HD S BLZ=BLZ+1,LN=0 W !?3,$P($T(T1),U,2),$J(BLZ,4),!?3,DT F X=1:1:3 W $C(13),?30,TIT
HDA W !?3,TD,!!!
HDZ Q
 ;