KKBG3 ;ACHTERSTAL Atradius ;KKBG1; Do naar KKBG2 [ 05/30/2002  8:33 AM ]
 
 Do ##class(TECH.CodeGebruik.RoutineLogger).LogRoutine("^"_$zn)
 Goto ^Derde.Klant.BetalingsGedrag.Atradius
 
 /*
 ;
 S $P(R,D,99)=$P(^KKL(KI1,2),D,7)*1000
T1 ;KONTROLE VANAF PERIODE\"[] = 
T2 ;Klanten geselekteerd :
T3 ;92\"KLNr";C;L;4;;|\"Naam";C;L;25;;|\"Adres";C;L;30;;|\"Woonpl";C;L;30;;|\"Land";C;L;30;;|\"FaktNr";C;R;6;;|\"Betwist";C;R;7;;|\"Fakt dat";C;R;8;;|\"Verv dat";C;R;8;;|\"Bedrag EUR";C;R;10;;|\"DV";C;R;3;;|\"Kredietlimiet";C;R;13;;
T4 ;92\1;C;L;4;;|\2;C;L;25;;|\3;C;L;30;;|\4;C;L;30;;|\5;C;L;30;;|\6;C;R;6;;|\15;C;R;6;;|;;\7;C;R;8;;|;;$TR($$CONVDATE^vhLib.DataTypes(X,,"DK4"),"-","/")\8;C;R;8;;|;;$TR($$CONVDATE^vhLib.DataTypes(X,,"DK4"),"-","/")\9;N;R;10;2;|\12;N;R;3;;|\1;N;R;13;;;;$P(^KKL(^KK1(X),2),D,7)*1000
T5 ;Betalingsgedrag vanaf 
T8 ;AANTAL DAGEN VERVALLEN
T9 ;[] = ;60
T10 ;FAKTUREN
T11 ;A[] = alle fakturen   [] = enkel de openstaande
 ;
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
 ;
DAGENVV S FP=1403 W @F,@F1,$P($T(T8),U,2)," :"
 S R="DagenVv\23\3\"_$P($T(T8),U,2)_"\"""_$P($T(T9),U,2)_$P($T(T9),U,3)_"""\5\\K=""-""!K?.N" D R0
 S:K="" (K,DagenVv)=$P($T(T9),U,3)
 S FP=1428 W @F,DagenVv
 Q
 ;
 ;    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 DAGENVV G 11:K="-"
13 S Begin=(DJ-1)_"."_DM
15 S FP=1503 W @F,@F1,$P($P($T(T1),";",2),D)," :"
 S R="K\23\3\"_$P($T(T1),U,2)_Begin_"""\7" D R0
 I $L(K) G 11:K=",",12:K="-",13:K'?4N1"."2N!($P(K,".",2)>12)!'$P(K,".",2) S Begin=K
 S FP=1528 W @F,@F1,Begin
16 S FP=1603 W @F,@F1,$P($T(T10),";",2),$J("",15),":"
 S R="K\23\3\"_$P($T(T10),U,2)_"\"""_$P($T(T11),U,2)_"""\7" D R0
 I $L(K) G 11:K=",",15:K="-",16:K'="A"
 S Fakturen=$S(K="":"O",1:""),FP=1628 W @F,@F1,$S(Fakturen="O":"Openstaande",1:"Alle")
 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
 G 27:'$D(^KK1($P(A(0),D,1)))
 S R=$$KLANT^KKBG2($P(A(0),D,1),Begin,,Fakturen,DagenVv)
 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)
 S LD(10)="CB^"_$ZN,LD(11)=$P($T(T5),U,2)_Begin
 D ^OUTPUT("T")
 ;
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 "SK"
 Q ""
 ;
FETCHD(KI1,Ref) 
 N Count,C
 S Count=0
 S C=^KKL(KI1,0)
 I $D(Ref) S Ref=$E(Ref,1,$L(Ref)-1)_","
 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,FANr)=$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 Betwist=$P(^("O"),D,12)
 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^vhLib.DataTypes(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^vhLib.DataTypes(VervDat,$P(X,D,2)) I $P(R,D,7)'>0 S $P(R,D,7)=0
 S R=$P(C,D)_D_$P(C,D,2)_D_$P(C,D,5)_D_$P(C,D,7)_D_$$LAND^vhRtn1($P(C,D,8),2)_D_R
 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^vhLib.DataTypes(VervDat,DT) I $P(R,D,7)'>0 S $P(R,D,7)=0
 S R=$P(C,D)_D_$P(C,D,2)_D_$P(C,D,5)_D_$P(C,D,7)_D_$$LAND^vhRtn1($P(C,D,8),2)_D_R_D_Betwist
 S Count=Count+1,@(Ref_Count_")")=R G F1
F5 Q
 ;
 */