KF3L G F ;UITLEVEREN LEVERANCIERORDERS ;VANUIT MENU (ENKEL BEPAALDE KLANT) ;Quit naar MENU - Do naar KF4L [ 08/05/2002  10:44 AM ]
 ;
T2 ;Fakt;Bon 
 ;
XT S R=$$INTDATE^vhDTyp(R)
 Q
 ;
S1 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)
 .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 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\DCTR\\\" D R0 G YZ:K="-"
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
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 R="I1\2000\KLANT\KL\K1" D R1 G 9:K="-" S KC=$P(I1," ",2)
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)," ",$P(X,D,2)
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(^(1),D,17)
104 D S1 S KOPF=KOF D S2 S KOF=KOF+KOPB
109 I KSA S FP=452 W @F,$J($S(KX="":"KONTANT",1:KX),7),"  ",ODF,$J(KSA,10)
110 S UD=5 I KBON S UD=6,FP=510 W @F,@FMTB,"BON BIJVOEGEN",@FMTb
111 S:KSA'>0 SWBLK=0 G 11:'SWBLK&('KJ!(KJ>KOF))
112 D S3
114 S FP=2211 W @F,@F1,@F91 S FP=2202 W @F,@F92," KODE : ",@F0 U 0:(::::1) R K U 0:(:::::1) W @F91
 I KJ&(KJ<KOF) G 11:K=$P(UBLOK,D,4) S K="-" G 9
 I SWBLK,K'=$P(UBLOK,D,3),K'=$P(UBLOK,D,4) 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 ^KF4L I K="-" S FP=301 W @F,@F1 G 5
 S FP=501 W @F,@F1
 S UBLOK=^KOD(0,US,"UBLOK")
 D S1 S KOPF=KOF D S2 S KOF=KOF+KOPB
 S:KSA'>0 SWBLK=0 G 15:'KJ!(KJ>KOF)
 D S3
 S FP=2202 W @F," [] = ok : ",@F0 R K
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
 ;
R1 D ^cA101 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)
 ;
Z X ^cZ Q
ZZ ; 12.07.91 - 15 u 27