KKBG1 ;BETALINGSGEDRAG KLANTEN ;KKBG1; Do naar KKBG2 [ 11/07/2001  10:22 AM ]
 G 1
 ;
T1 ;KONTROLE VANAF PERIODE\"[] = 
T2 ;Klanten geselekteerd :
T3 ;92\"";C;C;1;;\"Klant";C;L;30;;|\"Bet vw ";C;R;8;;|\"# Fakt ";C;R;7;;|\"# Verv ";C;R;7;;|\"% Verv ";C;R;7;;|\"Gem d ";C;R;7;;|\"Max d ";C;R;7;; 
T4 ;92\"";C;C;1;;\2;C;L;4;; \3;C;L;25;;|\4;C;R;7;; |\5;N;R;7;;|\6;N;R;7;;|\7;N;R;7;;|\8;N;R;7;;|\9;N;R;7;;
T5 ;Betalingsgedrag vanaf 
T6 ;MINIMUM GEMIDDELD AANDAL DAGEN :
T7 ;KONTANT\8D\14D\30D\1M\30DEM\60D\2M\60DEM\90D\90DEM
T8 ;BETALINGSVOORWAARDE
T9 ;[] = ok   K[] = Kontant
T10 ;DAGEN VOOR 
T11 ;[] = 
T12 ;92\"";C;C;1;;\"Faktnr";C;L;8;;|\"Fakt dat ";C;R;10;;|\"Verv dat ";C;R;10;;|\"Bedrag "_$$MUNT^vhRtn1(,1)_" ";C;R;12;;|\"Bet dat ";C;R;10;;|\"Bedrag "_$$MUNT^vhRtn1(,1)_" ";C;R;12;;|\"Vrv ";C;R;5;;|\"Rap ";C;R;5;;
T13 ;92\"";C;C;1;;\1;N;R;8;;|\2;C;R;9;; |\3;C;R;9;; |\4;N;R;12;;|\5;C;R;9;; |\6;N;R;12;;|;9\7;N;R;5;;|\8;NC;R;5;;
T14 ;KLANT BETALINGSGEDRAG;OVERZICHT
 ;
S2 S Y=$P(B(I),D,1),J=$P(">\'<\=\<\'>\'=",D,$P(B(I),D,2)) G S2C:$L(J)
S2A S OK=1 F J=1:1:$L(Y) I $E(Y,J)'="#" S OK=$E(X,J-1+$P($P(B(I),D,3),",",1))=$E(Y,J) Q:'OK
S2B G S2Z
S2C I (X'?.N)!(Y'?.N) S OK=J_"Y" S:J="<" OK="']Y&(X'=Y)" S:J=">" OK="]Y&(X'=Y)" S:J="'>" OK="']Y!(X=Y)" S:J="'<" OK="]Y!(X=Y)" S OK="S OK=X"_OK X OK
S2D E  S OK="S OK=X"_J_"Y" X OK
S2Z Q
 ;
HLP S HLP(1)=$P($T(T14),U,2),HLP(2)=$P($T(T14),U,3),HLP(3)=6,HLP(6)="" D HLP^HELP
 Q
 ;
DETAIL S DL(1)="LD",LD(7)=LD(6) D EL^PROC
 D FETCHD($P(^HULP($J,LD(6)),D))
 K DET S DL(1)="DET",DET(1)="^HULP("_($J+200),DET(2)=$P($T(T13),U,2,99),DET(3)=6,DET(7)=1,DET(8)=$P($T(T12),U,2,99)
D1 D WL^PROC
D2 D SL^PROC I "?HELP"[R D HLP S DL(1)="DET" G D1:"-OENTER"'[R
 G D2:"-OENTER"'[R
 K ^HULP($J+200)
 Q
FETCHD(KI1,Ref) 
 N Count
 S Count=0
 I $D(Ref) D
 .S R=@Ref,@Ref=$P(R,D,3)_D_$P(^KKL(KI1,0),D,7)_D_$P(^KKL(KI1,2),D,14)
 .S Ref=$E(Ref,1,$L(Ref)-1)_",",Count=Count+1
 .S @(Ref_Count_")")=R
 E  S Ref="^HULP("_($J+200)_","
 K ^HULP($J+200) S FaktNr=""
F1 S FaktNr=$O(^HULP($J+100,KI1,FaktNr),-1) G F5:FaktNr=""
 S X=^(FaktNr,0,"F"),VervDat=$P(X,D,3),R=$E(FaktNr,$L(FaktNr)-5,$L(FaktNr)),$P(R,D,2)=$P(X,D,6)
 S $P(R,D,3)=$P(X,D,3),$P(R,D,4)=$P(X,D,14)
 S BetDat=0
F2 S BetDat=$O(^HULP($J+100,KI1,FaktNr,BetDat)) G F4:BetDat="" S VolgNr=0
F3 S VolgNr=$O(^HULP($J+100,KI1,FaktNr,BetDat,VolgNr)) G F2:VolgNr=""
 S X=^(VolgNr),$P(R,D,5)=$P(X,D,2),$P(R,D,6)=$P(X,D,5)
 I $E($P(X,D,14))'="W" S $P(R,D,8)=""
 E  S $P(R,D,8)="WISL" I $$DIFFDATE^vhDTyp(DT,$P(X,D,2))>0 S $P(R,D,5)="Saldo",$P(R,D,9)=1
 I $E($P(X,D,14))'="W" S $P(R,D,7)=$$DIFFDATE^vhDTyp(VervDat,$P(X,D,2)) I $P(R,D,7)'>0 S $P(R,D,7)=0
 S Count=Count+1,@(Ref_Count_")")=R,R="" G F3
F4 G F1:'$D(^HULP($J+100,KI1,FaktNr,0,"O")) S X=^("O")
 S $P(R,D,5)="Saldo",$P(R,D,6)=$P(X,D,10),$P(R,D,8)=$P(X,D,8),$P(R,D,9)=1
 S $P(R,D,7)=$$DIFFDATE^vhDTyp(VervDat,DT) I $P(R,D,7)'>0 S $P(R,D,7)=0
 S Count=Count+1,@(Ref_Count_")")=R G F1
F5 Q
 ;
BETVW S FP=803 W @F,@F1,$P($T(T6),U,2),!   
 S K=$P($T(T7),U,2) F I=1:1 Q:$P(K,D)=""  D
 .I '$D(BETVW($P(K,D))) S BETVW($P(K,D))=10_D_I
 .W !?3,$P(K,D),?12,": ",$P(BETVW($P(K,D)),D)
 .S K=$P(K,D,2,99)
B1 S R="K\23\3\"_$P($T(T8),U,2)_"\"""_$P($T(T9),U,2)_"""\5" D R0 Q:K=""!(K="-")
 I K="K" S K=$P($P($T(T7),U,2),D)
 G B1:'$D(BETVW(K)) S BETVW=K
 S R="K\23\3\"_$P($T(T10),U,2)_BETVW_"\"""_$P($T(T11),U,2)_$P(BETVW(BETVW),D)_"""\3\\K?.N!(K=""-"")" D R0 G B1:K="-"
 I $L(K) S $P(BETVW(BETVW),D)=K,FP=$P(BETVW(BETVW),D,2)+9*100+15 W @F,@F2,K
 G B1
 ;
 ;    initialisatie + vraag
1 S K=$P($T(+1),U,2),FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S KSEL=1 D KP^KSEL G YZ:K="-"
12 D BETVW G 11:K="-"
13 S Begin=(DJ-1)_"."_DM
15 S R="K\23\3\"_$P($T(T1),U,2)_Begin_"""\7" D R0
17 I $L(K) G 11:K=",",12:K="-",13:K'?4N1"."2N!($P(K,".",2)>12)!'$P(K,".",2) S Begin=K
18 E  S FP=2328 W @F,Begin
19 S FP=2403 w @F,@F1,$P($T(T2),U,2)
 ;
 ;    het verzamelen van de info
2 K ^HULP($J),^($J+100) S (Teller,Count)=0
25 I KL'=0 S X=$D(@Q0) G 29:X
27 S KL=$N(@Q0) I KL=-1!(KL]KLX) G 4
29 S K=KL S:K?.N K=^(K) S A(0)=@("^"_Q_"KL(K,0)") F I=1:1:SW3-1 S A(I)=^(I)
 ;
3 S I=100
31 S I=$N(B(I)) I I'=-1 S X=$P(A(I\100-1),D,I#100) D S2 G 27:'OK,31
33 S Teller=Teller+1 I '(Teller#10) S FP=2426 W @F,Teller," (",$P(A(0),D,1)," ",$P(A(0),D,2),")",@F1
32 S KX=$P($P($P(A(0),D,18),"/"),"-") I KX="" S KX=$P($P($T(T7),U,2),D)
37 S MinGem=0 i $D(BETVW(KX)) S MinGem=$P(BETVW(KX),D)
 S R=$$KLANT^KKBG2($P(A(0),D,1),Begin,MinGem)
 I $L(R) S Count=Count+1,^HULP($J,Count)=R
 G 27
 ;
 ;    het drukken van de info
4 S DL(1)="LD",LD(1)="^HULP("_$J,LD(2)=$P($T(T4),U,2,99),LD(3)=4,LD(6)=1,LD(8)=$P($T(T3),U,2,99),LD(10)="CB^"_$ZN
 S LD(11)=$P($T(T5),U,2)_Begin
 D ^OUTPUT("SPTH","-D?HELP","S") I $L(R),"?HELP"[R D HLP G 42:R'="D"
 G YZ:R'="D"
41 D DETAIL
42 I R'="-" S DL(1)="LD" D ^OUTPUT("S","-D?HELP","") G 41:R="D" I "?HELP"[R D HLP G 42:R'="D",41
 ;
YZ K ^HULP($J),^($J+100),^($J+200) Q
 ;
R0 S R7="K'[D&(K'?.E1C.E)" 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 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@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  ;V4 03.10.84
 ;
CB(Ref) 
 I $E(Print("PRINTER"))="P" Q ""
 S DLti=""
 I $L(Ref,",")=2 D FETCHD($P(@Ref,D),Ref) Q ";BGKLANT"
 I $L(Ref,",")=3,$P(Ref,",",3)="1)" Q ";BGHOOFD"
 Q ";BGDETAIL"
 ;