KF27 G F ;FAKTURATIE ;VANUIT MENU (ENKEL BEPAALDE KLANT) ;Quit naar MENU - Do naar KF20 [ 06/12/2003  4:05 PM ]
 ;
FE S US="F",Extern=1 G 1
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 N %K
 I $ZV["MSM" S %K=$V(108,$J,4)/1024+125 Do INT^cPARTSIZE
 D S1 S BS="\\\\\\\\\\\\\\\\\\\\\\\\\\"
 G YZ:'$$MagFactureren()
3 S UD=5,UKIL="" G 7:'$D(@("^"_Q_"BA(35)")),7:^(35)[(D_$I_D)
5 S FP=2403+F60 W @F,@F1,@F4,"DEZE TERMINAL HEEFT GEEN TOEGANG TOT DE FAKTURATIE ! ",@F5,@F0 H 3 G YZ
7 S X=$N(@("^"_Q_"BA(18,-1)")) F X=0:1:9 S:$D(^(X)) PBTW(X)=$P(^(X),D,1) S:$D(^(X+10)) PTXT(X)=$P(^(X+10),D,1) S:$D(^(X+20)) PEGA(X)=$P(^(X+20),D,1)
8 I '$D(Extern) D FDAT G YZ:K="-"
80 X @("^"_Q_"UL(0,US,""UF"")") S UOU=^("UOU")
9 L  S FP=301 W @F,@F1 S Q5="@(""^""_Q_""BA(BJ,""""VFNR"""")"")"
90 I $D(Extern) S K=ULNr
91 E  S R="K\21\3\GEEF TE FAKTUREREN "_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("KUL","KU1",K) G 90:'K
 I $$CHECKWMS^FLOW(,,,,K,,1,1) G YZ:$D(Extern),90
92 S (UR,KUR)=K G 8:K="-",10:K="K" I '$D(@("^"_Q_"U1(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
10 S (K,KC)=$$SELECT^KLANT6() G 9:"-."[K
100 S I1=@("^"_Q_"K1(KC)"),FP=402 W @F,@F1,"KLANT : ",$P(@("^"_Q_"KL(I1,0)"),D,1)," ",$E($P(^(0),D,2),1,20)
 S EENOPERF=$P(@("^"_Q_"KL(I1,1)"),D,18),EENOPERFOL=EENOPERF="O"
 S EENOPERF=EENOPERF>1 ; Een order/bon/factuur
 W:EENOPERF " (1 bon/faktuur)" W:EENOPERFOL " (Orgalux/bon/faktuur)"
11 I '$D(@("^"_Q_"UL(KC,US)")) D M3 G 9
13 D 4^KF20
 D:$D(^HULP("Incasso")) ##class(CHUI.Flow.Facturatie.BulkFacturatie).MailIncasso()
 I '$D(Extern) G 9:'$D(ABV) K ABV D S1 X @("^"_Q_"UL(0,US,""UF"")") G 9
 ;
YZ I $ZV["MSM" S %K=$V(108,$J,4)/1024-125 Do INT^cPARTSIZE
 Q
 ;
M1 S MSG=UOU_" "_UR_" IS ONBEKEND" G MY
M2 S MSG=UOU_" "_UR_" IS REEDS GEFAKTUREERD" G MY
M3 S MSG="GEEN "_UOU_"BESTAND VOOR DEZE KLANT" G MY
MY S FP=2403+F60 W @F,@F4,MSG," ! [] = OK ",@F5,@F0 R K
MZ K MSG Q
 ;
S1 S FP=215+$L(QN) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,$P($T(+1),U,2),QN," ",@F5
S1Z Q
 ;
FDAT N LFaktDat,NFaktDat,LMaand,NMaand
 S R="K\21\3\GEEF DE FAKTUURDATUM\""onder de vorm dd.mm.jj   [] = dagdatum""\8\DCTR\\\" D R0
 I K="-" K BH,BJ,BM,BP,BPZ,BX,FDT Q
 S:K="" K=DT S (FDT,R)=K D D^cT163 G FDAT:'OK
 S LFaktDat=$$INTDATE^vhLib.DataTypes($P($G(^KFA(0,"FDT")),D)),NFaktDat=$$INTDATE^vhLib.DataTypes(FDT)
 I LFaktDat>NFaktDat D  G FDAT:'OK
 .S LMaand=$$EXTDATE^vhLib.DataTypes(LFaktDat,"MCL"),NMaand=$$EXTDATE^vhLib.DataTypes(NFaktDat,"MCL")
 .I LMaand=NMaand S (LMaand,NMaand)=""
 .E  S LMaand=" ("_LMaand_")",NMaand=" ("_NMaand_")"
 .S OK=$$^vhTXTPOP("FAKTURATIE","FAKUURDATUM","",FDT,NMaand,$P(^KFA(0,"FDT"),D),LMaand,$P(^KFA(0,"FDT"),D,2))
 Q
 ;
EXTERN(ULNr,IsBulk,BulkGroep,AutoPrint)
 New Q5,UTF,UFA,Paletten,Collo,Kartons,DekPlaat,DekWaarb,DekTerug,RecupVp
 New VM,UVM,KFA,KCF,KCN,FNR,I1,UPKK,NBP,UNBP,USB,USBX,VWT,VWTX,XOL,ORLU,REMB,UREMB
 Do FE
 Lock
 If $G(AutoPrint),$O(AutoPrint("")) Do BULK^DCPRINT("F",.AutoPrint,12)
 Quit
 ;
MagFactureren(UserId,Warn)
 New MagFactureren
 Set Warn=$G(Warn,1)
 Set MagFactureren=##class(TECH.Config.ConfigMgr).Instance().GetBoolean("ToegangTotFacturatie_CheckAltijdOk")
 Set:'MagFactureren MagFactureren=$$IsGroep^vhUSER(.UserId,"FACTURATIE")
 If Warn,'MagFactureren Do WARN^vhTXTPOP($$USERNAME^vhUSER(.UserId,2)_", u heeft geen toegang tot de facturatie!","")
 Quit MagFactureren
 ;
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 ; 21.04.88 - 12 u 31