KF3 G F ;UITLEVEREN ORDERS ;VANUIT MENU (ENKEL BEPAALDE KLANT) ;Quit naar MENU - Do naar KF4 [ 08/05/2002  10:44 AM ]
 #Include BL.Derde.Kennis
 ;
T2 ;Fakt;Bon 
 ;
XT S R=$$INTDATE^vhLib.DataTypes(R)
 Q
 ;
S1 Q  S KJ=$P(^KKL(^KK1(KC),2),D,7)*1000,XX=100000,(SWBLK,KOF)=0,(ODF,KSA)=""
 F  S XX=$N(^(XX)) Q:$L(XX)'=6  Do
 .S Y=^(XX) Q:"FC"'[$P(Y,D,1)!'$P(Y,D,5)
 .S R=$P(Y,D,3) D XT I (+$H-R+1)>+UBLOK&($P(Y,D,1)="F") S SWBLK=1
 .S Z="" S:$P(Y,D,1)="C" Z="-" S Z=Z_$P(Y,D,10),KOF=KOF+Z
 .S R=$P(Y,D,3) D XT Q:R>+$H
 .S KSA=KSA+Z S:ODF=""&($P(Y,D,1)="F") ODF=$P(Y,D,2)
 Q
 ;
S2 Q  N UPAR,UMNT,UR,UZ
 S (KOPB,UR)=0
 F  S UR=$O(^KUL(KC,US,UR)) Q:UR=""  D
 .Q:$P(^KUL(KC,US,UR,1),D,25)="P"!($P(^KUL(KC,US,UR,1),D,25)="M")
 .S UMNT=$P(^KUL(KC,US,UR,1),D,18),UPAR=$$MUNT^vhRtn1(UMNT,,12)
 .S UZ=100
 .F  S UZ=$O(^KUL(KC,US,UR,UZ)) Q:'UZ  S KOPB=KOPB+($P(^(UZ),D,9)*UPAR)
 S KOPB=$J(KOPB,0,0)
 Q
 ;
S3 S FP=1901 W @F,$C(13)
 I SWBLK Do
 .W ?2,"OPENSTAANDE FAKTUUR IS REEDS MEER DAN "
 .W $P(UBLOK,D,1)," DAGEN VERVALLEN"
 I KJ&(KJ<KOF) Do
 .W !?2,@FMTB,@FMTK,"KREDIETLIMIET",@FMTb,@FMTk," : ",KJ
 .W " - OPESTAAND SALDO : ",KOF," ("
 .I KOPF W $P($T(T2),U,2),": ",KOPF
 .I KOPB W:KOPF " - " W $P($T(T2),U,3),": ",KOPB
 .W ")"
 Q
 ;
S4(KC) 
 S R=0 F  S R=$O(@("^"_Q_"OD(KC,US,R)")) Q:R=""  I $P(^(R,1),D,25)'="L" Q
 Q R
 ;
F S US="F" G 1
M S US="M" G 1
N S US="N" G 1
P S US="P" G 1
T S US="T" G 1
 ;
1 S FP=222+$L(QN) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,$P($T(+1),";",2),QN," ",@F5
3 S BS="\\\\\\\\\\\\\\\\\\\\\\\\\\",UKIL=""
5 L
 S R="X\21\3\GEEF DE UITLEVERINGDATUM\""onder de vorm dd.mm.jj   [] = dagdatum""\8\\\\" D R0 G YZ:K="-"
 If $L(X) Do VALDATE^vhLib.DataTypes(X,"DK",$H,$H+62) Goto:'%TC 5
 Set:'$L(X) %EXT=$$EXTDATE^vhLib.DataTypes($H,"DK")
 Set X=$TR(%EXT,"-",".")
7 S:K="" X=DT S UDT=X X @("^"_Q_"OD(0,US,""UU"")") S UOU=^("UOU")
9 L  S FP=301 W @F,@F1
90 S R="K\21\3\GEEF UIT TE LEVEREN "_UOU_"NUMMER\""K[] = selektie via klant""\6\\""-K""[K!(K?.N&(K>0))&$L(K)\\" D R0
 I K?.N,K'>99999 S K=$$SHORTNUM^FLOW("KOD","KO1",K) G 90:'K
92 S (UR,KUR)=K G 5:K="-",10:K="K" I '$D(@("^"_Q_"O1(UR,US)")) D M1 G 90
94 I $L($P(^(US),D,2)) D M2 G 90
96 S KC=$P(^(US),D,1) G 100:$P(@("^"_Q_"OD(KC,US,UR,1)"),D,25)'="L",90
10 S (K,KC)=$$SELECT^KLANT6() G 9:"-."[K
100 S UBLOK=@("^"_Q_"OD(0,US,""UBLOK"")"),I1=@("^"_Q_"K1(KC)"),FP=402,X=@("^"_Q_"KL(I1,0)") W @F,@F1,"KLANT : ",$P(X,D,1)," ",$E($P(X,D,2),1,20)
102 S KP=$P(X,D,6),KL=$P(X,D,8),KT=$P(X,D,9),KX=$P(X,D,18)
 S KL=$$LAND^vhRtn1(KL) S:KT="" KT="N" S:'$L(KP) KP="GEEN"
103 S KBON=$P(@("^"_Q_"KL(I1,1)"),D,17),EENOPERF=$P(^(1),D,18)
 S:EENOPERF=3 EENOPERF=0 ; Meerdere orders per bon, een bon per factuur
 W:EENOPERF " (1 order/bon)"
 D ShowKennisAnker(KC,,1)
 S K=$$WAARDIG^KREDIET(KC)
 S KSA=$P(K,D,4),ODF=$$EXTDATE^vhLib.DataTypes($P(K,D,5))
109 I KSA S FP=449 W @F,$J($S(KX="":"KONTANT",1:KX),9),"  ",ODF,$$EXTNUM^vhLib.DataTypes(KSA,11,".",0)
110 S UD=5 I KBON S UD=6,FP=510 W @F,@FMTB,"BON BIJVOEGEN",@FMTb
 I 'K S K=$$WACHTW^KREDIET(KC,,$S($P(K,D,3)&($P(K,D,3)'>$P(K,D,2)):"KREDIETLIMIET",1:"ORDER"),K) I 'K S K="-" G 9
11 K SWBLK,KJ,ODF,KOF,KSA,KX,X,XX,Y,Z,UBLOK,KOPB,KOPF I '$$S4(KC) D M3 G 9
13 D ^KFTKL I K="-" S FP=301 W @F,@F1 G 5
 S UGW=0 D ^KF4 I K="-" S FP=301 W @F,@F1 G 5
15 K SWBLK,KJ,ODF,KOF,KSA,KX,X,XX,Y,Z,UBLOK,KOPB,KOPF
 S FP=301 W @F,@F1 G 5
 ;
YZ Q
 ;
M1 S MSG=UOU_" "_UR_" IS ONBEKEND" G MY
M2 S MSG=UOU_" "_UR_" IS REEDS UITGELEVERD" G MY
M3 S MSG="GEEN "_UOU_"BESTAND VOOR DEZE KLANT" G MY
MY S FP=2403+F60 W @F,@F2,@F4,MSG," ! [] = OK ",@F5,@F0 R K
MZ K MSG 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)),U,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 S:$P(R,D,7)="DCTR" RD=$P(K,".",1),RM=$P(K,".",2),RJ=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0F
R0E G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,RD,RM,RJ Q
 ;
DCTR ;K?2N1"."2N1"."2N&(RD>0)&(RM>0)&(RD<32)&(RM<13)&'("04060911"[RM&(RD=31))&'(+RM=2&(('(RJ#4)&(RD>29))!(RJ#4&(RD>28))))!("-"[K)
 ;
 ; Toon alle ongelezen ankers eventueel tot klant beperkt
 ; Indien CONSNr doorgegeven dan productafhankelijke ankers, anders de productonafhankelijke
ShowKennisAnker(KLNr, ORDNrs, InclGeneral)
 New PopUp,PRNr,lbProduct,ORDNr,OLNr
 Set InclGeneral=$G(InclGeneral)
 Set ORDNr=""
 For  Set ORDNr=$O(ORDNrs(ORDNr)) Quit:ORDNr=""  Do
 . Set OLNr=100
 . For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:'OLNr  Do
 . . Set PRNr=$P(^KOD(KLNr,"F",ORDNr,OLNr),D,2)
 . . Set:PRNr $LI(lbProduct,$LL($G(lbProduct))+1)=PRNr
 Set PopUp("Buttons")="GELEZEN"
 Set PopUp("Titel")="Ongelezen"
 Set PopUp("KLNr")=KLNr,PopUp("List")=1
 Set PopUp("Criteria",2)=KLNr_" "_$P(^KKL(^KK1(KLNr),0),D,2)
 If InclGeneral,KLNr'=4682 Set PopUp("Criteria",3)=4682_" "_$P(^KKL(^KK1(4682),0),D,2)
 Quit ##class(CHUI.Derde.Kennis.Kennis).PopUp(KLNr,$LB($$$adOrderVerwerkingOpBonZetten),$G(lbProduct),$G(CUserId,$G(QU(1))),,,InclGeneral,,,.PopUp)