KKAA16 ;PRODUKTOVERZICHT KLANTEN ;KKAA16; [ 06/25/2002  10:47 AM ]
 G 1
 ;
T1 ;PRODUKTNAAM                STUKS DAT L PR LST PRIJS HUI PRIJS MNT E  REELE OMZ
T2 ;DE KLANT 
T3 ;GEEN PRODUKTEN BINNEN DEZE PERIODE
T4 ;PRODUKTOVERZICHT VAN DEZE KLANT IS IN GEBRUIK
T5 ;  [] = ok 
T6 ;HAN-
T7 ;IND-
T8 ;GEEN\CONS\PLUS\LIJST\RABAT\SPIL\BASIS\GROOT
T9 ;CPLRSBG
T10 ; (+)
T11 ;1\27\34\43\53\63\67\69\80
T12 ;1;2;;K W:BLD @FMTB\2;3;1;$J(K,0,0) W @FMTb\3;5;;K W:BLD @FMTB\4;6;1;$J(K,0,2) W @FMTb\5;9;1;$S($J(K,0,2)=$J($P(R,D,6),0,2):"",1:$J(K,0,2))\6;7;;\7;8;;$S(K="E":"",K="H":"%",1:K)\8;12;1;$J(K,0,0)
T13 ;+X[] OF -X[]   ,[] = hernemen   ;[] = ok;[] = vervolg
 ;
XT S R=$$INTDATE^vhDTyp(R)
 Q
 ;
S1 S R="K\24\3\"_$P($T(T13),U,2)_$P($T(T13),U,K+3)_"\\3\\"",-+""[K&($L(K)<2)!(K?1""+"".N)!(K?1""-"".N)" D R0^KFTR0
S1Z Q
 ;
S2 S K=""
S2A S KJ=$P(^(2),D,7)*1000 K KSA,KOF,ODF S (KSA,KOF)=0,XX=100000,SWBLK=0,ODF=""
S2B S XX=$N(^(XX)) G S2D:$L(XX)'=6 S Y=^(XX) G S2B:"FC"'[$P(Y,D,1) S R=$P(Y,D,3) D XT S:(+$H-R+1)>+UBLOK&($P(Y,D,1)="F") SWBLK=1
S2C S Z="" S:$P(Y,D,1)="C" Z="-" S Z=Z_$P(Y,D,10),KOF=KOF+Z,R=$P(Y,D,3) D XT G S2B:R>+$H S KSA=KSA+Z S:ODF=""&($P(Y,D,1)="F") ODF=$P(Y,D,2) G S2B
S2D I KSA<0 S KSA=$E(KSA,2,99)_$E(KSA,1)
S2E G S2Z:'SWBLK&('KJ!(KJ>KOF)) S KSV=K,FP=1703 W @F
S2F W !! I SWBLK W ?2,"OPENSTAANDE FAKTUUR IS REEDS MEER DAN ",$P(UBLOK,D,1)," DAGEN VERVALLEN"
S2G I KJ&(KJ<KOF) W !?2,@FMTB,@FMTK,"KREDIETLIMIET",@FMTb,@FMTk," : ",KJ," - OPESTAAND SALDO : ",KOF
S2H S FP=2211 W @F,@F1,$P($T(T5),U,2) R K S K="KODE" G S2Z
S2Z Q
 ;
F1 S K=$P($T(T3),U,2) G FY
F2 S K=$P($T(T4),U,2) G FY
FY S FP=2403+F60 W @F,@F2,@F4,K,$P($T(T5),U,2),@F5,@F0 R K G YZ
FZ Q
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 G YZ:'$D(@("^"_Q_"KAAP(0)")) S K=^(0) G YZ:'$P(K,U,5) S FP=280 W @F,@F5 S FP=259 W @F,@F4,$P(K,U,3)," - ",$P(K,U,4)," ",@F5
13 W @F8 S FP=880 W @F,@F5 S FP=801 W @F,@F4,$P($T(T1),U,2),@F5,@F7
15 W @F7 S FP=801 W @F,@$P(FG,D,10) S FP=701 W @F,@$P(FG,D,1) F I=1:1:78 W @$P(FG,D,9)
17 S FP=780 W @F,@$P(FG,D,2) S FP=880 W @F,@$P(FG,D,10)
18 F I=27,34,43,53,63,67,69 S FP=700+I W @F,@$P(FG,D,5) S FP=FP+100 W @F,@$P(FG,D,10)
19 W @F8 S KO=$P($T(T11),U,2),PO=$P($T(T12),U,2,99),UBLOK=@("^"_Q_"OD(0,""F"",""UBLOK"")")
 ;
2 L  S R="KI1\2000\"_$P($T(T2),U,2)_"\KL\K1" D R1^KFTR1 G YZ:K="-",9:K?1"#"2N
21 S R=^(K,0),KC=$P(R,D,1),FP=401 W @F,$C(13),$J(KC,6),"  ",$P(R,D,2),?53,$P(R,D,13)
23 W !?8,$P(R,D,5) S K=$$GetKlantType^KLANT5(KC) W ?53,$S(K=0:K,K?.N:$P($T(T6),U,2)_K,1:$P($T(T7),U,2)_K)
25 W !?8,$P(R,D,6)_"   "_$P(R,D,7) S K=$P(^KKL(^KK1(KC),2),D,3) W ?53,$P($P($T(T8),U,2),D,$F($P($T(T9),U,2),K))
27 W:$D(^KLPUTZ("N",KC)) $P($T(T10),U,2)
28 I $D(@("^"_Q_"KAAP(KC,0,0,0,0)")) S K=^(0),APR=$P(K,D,2),FP=669 W @F,$J($P(K,D,1),10,0)
29 S K=@("^"_Q_"KL(KI1,0)") D S2 S FP=575 W @F,K
 ;
3 I '$D(@("^"_Q_"KAAP(KC)")) D F1 G 8
31 ;L @("^"_Q_"KAAP(KC)"):2 E  D F2 G 8
33 S (TL,SCH)=0,TP=-1
 ;
5 S PHG=0,LN=8
51 S PHG=$N(@("^"_Q_"KAAP(KC,PHG)")) G 7:PHG=-1 S PGR=-1
52 S PGR=$N(@("^"_Q_"KAAP(KC,PHG,PGR)")) G 51:PGR=-1 S PSG=-1
53 S PSG=$N(@("^"_Q_"KAAP(KC,PHG,PGR,PSG)")) G 52:PSG=-1 S PCC=-1
54 S PCC=$N(@("^"_Q_"KAAP(KC,PHG,PGR,PSG,PCC)")) G 53:PCC=-1 S TP=TP+1
55 S TL=TL+1 G 57:TL'=15 S TL=0 G 55:R=1 S K=1 D S1 G 8:K=",",8:K="-"&'SCH,9:K?1"#"2N I K="" S SCH=SCH+1 G 55
56 S:'$L($E(K,2)) K=K_1 S TP=-1,SCH=SCH+K,R=1,FP=901 W @F,@F1 S:SCH<0 SCH=0 S:SCH>(APR\14) SCH=(APR\14) G 5
57 G 54:SCH'=(TP\14) S K=^(PCC),R=$P(K,D,5) D XT S BLD=$H-R>182,R=K
 ;
6 S I=0,LN=LN+1 I LN>22 S FP=LN+1*100+1,LN=LN-1 W @F,@F1 S FP=901 W @F,@FDL
61 S I=I+1,X=$P(PO,D,I) G 68:'$L(X) S K=$P(R,D,$P(X,U,2)),FP=LN*100+$P(KO,D,$P(X,U,1))+1 W @F,@F1
63 I $L($P(X,U,4)) X "S K="_$P(X,U,4)
65 I '$P(X,U,3) W $E(K,1,$P(KO,D,$P(X,U,1)+1)-$P(KO,D,$P(X,U,1)))
66 E  W $J(K,$P(KO,D,$P(X,U,1)+1)-$P(KO,D,$P(X,U,1))-1)
67 G 61
68 W @F7 F I=1:1 S X=$P(KO,D,I) Q:'$L(X)  S FP=LN*100+X W @F,@$P(FG,D,10)
69 W @F8 G 54
 ;
7 W @F7 S LN=LN+1,FP=LN*100+1 W @F,@$P(FG,D,3) F I=1:1:78 W @$P(FG,D,9)
71 S FP=LN*100+80 W @F,@$P(FG,D,4) F I=27,34,43,53,63,67,69 S FP=LN*100+I W @F,@$P(FG,D,8)
73 W @F8 S K=0 D S1 G 8:",+"[K,9:K?1"#"2N I K="-" G 8:'(APR\14)
75 S:'$L($E(K,2)) K=K_1 S TL=0,TP=-1,SCH=SCH+K,R=1,FP=901 W @F,@F1 S:SCH<0 SCH=0 S:SCH>(APR\14) SCH=(APR\14) G 5
 ;
8 F FP=401,501,601 W @F,@F2
81 S FP=901 W @F,@F1 G 2
 ;
9 G ^KFTP
 ;
YZ Q
 ;