EWORDS3b ;E'WMS Markeren voor orderpicking (Mail) [ 12/13/2003  4:45 PM ]
 ;
 ; Type="K" MAILKODE
 ; Type="R" MAILREMB
 ; Type="V" MAILVBET
CHKMAIL 
 New D,R,UserIds,UserId,Tekst,Count,DlCount,NetUser,MailId,KLNr,BONNr
 Set D="\",(Tekst,NetUser)=""
 Do:"\K\V\"[(D_Type_D)
 .Quit:$L($$USERDEVS^cS(30))
 .Set (Count,DlCount)=0
 .Set UserIds=$$USERID^vhUSER("BOEKH")
 .For  Set UserId=$P(UserIds,";") Quit:UserId=""  Do
 ..Set UserIds=$P(UserIds,";",2,99),MailId=""
 ..For  Set MailId=$O(^vhMAIL("IN",UserId,MailId)) Quit:MailId=""  Do
 ...Quit:$D(MailId(MailId))  Quit:'$D(^vhMAIL("D",MailId,"N",UserId))
 ...Set R=^vhMAIL("D",MailId,"N",UserId)
 ...Quit:$P(R,D,3)="S"
 ...If +$P(R,D,5)>+$H Set DlCount=DlCount+1 Quit  ; Bewust uitgestaeld
 ...If +$P(R,D,5)=+$H,$P($P(R,D,5),",",2)>$P($H,",",2) Set DlCount=DlCount+1 Quit  ; Bewust uitgestaeld
 ...Set R=^vhMAIL("D",MailId),KLNr=$P(R,D,8)
 ...Quit:'KLNr  Quit:$P(R,D,7)'="KL"  Quit:$G(^VRIJGAVE(KLNr,"B"))'=MailId
 ...Set MailId(MailId)="",BONNr=""
 ...For  Set BONNr=$O(^VRIJGAVE(KLNr,"B",BONNr)) Quit:BONNr=""  Set Count=Count+1
 .Quit:'Count
 .If Count=1,'DlCount Set Tekst="Er is èèn"
 .Else  Set Tekst="Er zijn meerdere ("_Count_$S(DlCount:" + "_DlCount_" uitgesteld",1:"")_")"
 .Set Tekst=Tekst_" pickopdracht"_$S(Count+DlCount=1:"",1:"en")_" vrij te geven."
 .Set NetUser="HA_NTW"
 If $L(Tekst),$L(NetUser) ;Set R=$ZF(-1,"NET SEND "_NetUser_" """_Tekst_"""") ;Afgekoppeld, HA vond dit te vervelend
 Quit
 ;
 ; Op kode
MAILKODE 
 New R,Tekst,KLNr,KLNaam,VerzW,VerzDat,Count,Ref,Optie,TUserId,MailId,TeBet,Munt,ExtraTB,Onderwerp
 If '$G(CUserId) New CUserId Set CUserId=$P($$DEVUSER^vhUSER($$IO^cQ5),";") Set:'CUserId CUserId=3
 Set R=^ORDW("D",CONSNr),KLNr=$P(R,D)
 If '$$CHKMAIL^FLOW2(KLNr,"B") Do
 .Set VerzW=$P(R,D,2),VerzDat=$P(R,D,5)
 .Set R=$$TEBET(CONSNr),TeBet=$P(R,D),Munt=$P(R,D,2)
 .Set Count=0,R=^KKL(^KK1(KLNr),0),KLNaam=$P(R,D,2)
 .Set Count=Count+1,Tekst(Count)="Mail van : "_$$USERNAME^vhUSER(CUserId)
 .Set Count=Count+1,Tekst(Count)="~Klant    : "_KLNr_" "_KLNaam
 .Set Count=Count+1,Tekst(Count)="~~Deze klant staat op ªBªKKODEªbªk!"
 .Set Count=Count+1,Tekst(Count)="~Bepaalde leveringsbons kunnen niet verwerkt worden."
 .Set Count=Count+1,Tekst(Count)="~EXEC^vhRES(""@"",""$$ONDERW^"_$ZN_"("_KLNr_")"")"
 .Set Count=Count+1,Tekst(Count)="~Gelieve het nodige te doen en deze vrij te geven voor uitlevering."
 .Set Optie("LATER")="\D LATER^EWORDS3(MailId)"
 .Set Ref(1)="KL\"_KLNr_"\R\S",Ref(2)="KLEXTB\"_KLNr_"\W\"
 .Set Ref(3)="EWMSGLOBBON\"_KLNr,Onderwerp=$$ONDERW(KLNr,CONSNr)
 .Set TUserId="EWKODE"_$$BOEKHVW^KLOPV(KLNr,,-1)
 .Set:'$D(^vhUSER("S",TUserId)) TUserId="EWKODE"
 .Set MailId=$$SYSTEM^vhMAIL("KL",KLNr,Onderwerp,TUserId,.Tekst,.Ref,1,"",.Optie)
 .Set ^VRIJGAVE(KLNr,"B")=MailId
 Set ^VRIJGAVE(KLNr,"B",CONSNr)=CUserId_D_Aktie
 Do MarkeerKredietProbleemInCONSNr^EWORDS3(CONSNr,"B")
 Quit
 ;
 ; Vooruitbetaling
MAILVBET 
 New R,Tekst,KLNr,KLNaam,VerzW,VerzDat,Count,Ref,Optie,TUserId,MailId,TeBet,Munt,ExtraTB,Onderwerp
 If '$G(CUserId) New CUserId Set CUserId=$P($$DEVUSER^vhUSER($$IO^cQ5),";") Set:'CUserId CUserId=3
 Set R=^ORDW("D",CONSNr),KLNr=$P(R,D)
 If '$$CHKMAIL^FLOW2(KLNr,"B") Do
 .Set VerzW=$P(R,D,2),VerzDat=$P(R,D,5)
 .Set R=$$TEBET(CONSNr),TeBet=$P(R,D),Munt=$P(R,D,2)
 .Set Count=0,R=^KKL(^KK1(KLNr),0),KLNaam=$P(R,D,2)
 .Set Count=Count+1,Tekst(Count)="Mail van : "_$$USERNAME^vhUSER(CUserId)
 .Set Count=Count+1,Tekst(Count)="~Klant    : "_KLNr_" "_KLNaam
 .Set Count=Count+1,Tekst(Count)="~~Deze klant staat op ªBªKVOORUITBETALINGªbªk!"
 .Set Count=Count+1,Tekst(Count)="~Bepaalde leveringsbons kunnen niet verwerkt worden."
 .Set Count=Count+1,Tekst(Count)="~EXEC^vhRES(""@"",""$$ONDERW^"_$ZN_"("_KLNr_")"")"
 .Set Count=Count+1,Tekst(Count)="~Gelieve het nodige te doen en deze vrij te geven voor uitlevering."
 .Set Optie("LATER")="\D LATER^EWORDS3(MailId)"
 .Set Ref(1)="KL\"_KLNr_"\R\S",Ref(2)="KLEXTB\"_KLNr_"\W\"
 .Set Ref(3)="EWMSGLOBBON\"_KLNr,Onderwerp=$$ONDERW(KLNr,CONSNr)
 .Set TUserId="EWKODE"_$$BOEKHVW^KLOPV(KLNr,,-1)
 .Set:'$D(^vhUSER("S",TUserId)) TUserId="EWKODE"
 .Set MailId=$$SYSTEM^vhMAIL("KL",KLNr,Onderwerp,TUserId,.Tekst,.Ref,1,"",.Optie)
 .Set ^VRIJGAVE(KLNr,"B")=MailId
 Set ^VRIJGAVE(KLNr,"B",CONSNr)=CUserId_D_Aktie
 Quit
 ;
 ; Dubieus
MAILDUB 
 New R,Tekst,KLNr,KLNaam,VerzW,VerzDat,Count,Ref,Optie,TUserId,MailId,TeBet,Munt,ExtraTB,Onderwerp
 If '$G(CUserId) New CUserId Set CUserId=$P($$DEVUSER^vhUSER($$IO^cQ5),";") Set:'CUserId CUserId=3
 Set R=^ORDW("D",CONSNr),KLNr=$P(R,D)
 If '$$CHKMAIL^FLOW2(KLNr,"B") Do
 .Set VerzW=$P(R,D,2),VerzDat=$P(R,D,5)
 .Set R=$$TEBET(CONSNr),TeBet=$P(R,D),Munt=$P(R,D,2)
 .Set Count=0,R=^KKL(^KK1(KLNr),0),KLNaam=$P(R,D,2)
 .Set Count=Count+1,Tekst(Count)="Mail van : "_$$USERNAME^vhUSER(CUserId)
 .Set Count=Count+1,Tekst(Count)="~Klant    : "_KLNr_" "_KLNaam
 .Set Count=Count+1,Tekst(Count)="~~Deze klant staat op ªBªKDUBIEUSªbªk!"
 .Set Count=Count+1,Tekst(Count)="~Bepaalde leveringsbons kunnen niet verwerkt worden."
 .Set Count=Count+1,Tekst(Count)="~EXEC^vhRES(""@"",""$$ONDERW^"_$ZN_"("_KLNr_")"")"
 .Set Count=Count+1,Tekst(Count)="~Gelieve het nodige te doen en deze vrij te geven voor uitlevering."
 .Set Optie("LATER")="\D LATER^EWORDS3(MailId)"
 .Set Ref(1)="KL\"_KLNr_"\R\S",Ref(2)="KLEXTB\"_KLNr_"\W\"
 .Set Ref(3)="EWMSGLOBBON\"_KLNr,Onderwerp=$$ONDERW(KLNr,CONSNr)
 .Set TUserId="EWKODE"_$$BOEKHVW^KLOPV(KLNr,,-1)
 .Set:'$D(^vhUSER("S",TUserId)) TUserId="EWKODE"
 .Set MailId=$$SYSTEM^vhMAIL("KL",KLNr,Onderwerp,TUserId,.Tekst,.Ref,1,"",.Optie)
 .Set ^VRIJGAVE(KLNr,"B")=MailId
 Set ^VRIJGAVE(KLNr,"B",CONSNr)=CUserId_D_Aktie
 Quit
 ;
 ; Rembours
MAILREMB 
 New R,Tekst,KLNr,KLNaam,VerzW,VerzDat,Count,Ref,Optie,TUserId,MailId,TUserId,TeBet,Munt
 Set R=^ORDW("D",CONSNr),KLNr=$P(R,D)
 Set TUserId="EWREMB"
 If '$G(CUserId) New CUserId Set CUserId=$P($$DEVUSER^vhUSER($$IO^cQ5),";") Set:'CUserId CUserId=3
 Set R=^ORDW("D",CONSNr),KLNr=$P(R,D),VerzW=$P(R,D,2),VerzDat=$P(R,D,5)
 Set R=$$TEBET(CONSNr),TeBet=$P(R,D),Munt=$P(R,D,2)
 Set Count=0,R=^KKL(^KK1(KLNr),0),KLNaam=$P(R,D,2)
 Set Count=Count+1,Tekst(Count)="Mail van : "_$$USERNAME^vhUSER(CUserId)
 Set Count=Count+1,Tekst(Count)="~Klant    : "_KLNr_" "_KLNaam
 Set Count=Count+1,Tekst(Count)="~Lev. bon : "_CONSNr_$J($$EXTDATE^vhDTyp(VerzDat),9)
 Set:$L(VerzW) Tekst(Count)=Tekst(Count)_" "_^RES("KLANT","PI","VERZENDWIJZE","D",$P(VerzW,";"),"N")
 Set Count=Count+1,Tekst(Count)="~Te bet.  : "_$$EXTNUM^vhDTyp(TeBet,0,".T",2)_Munt_" (onder voorbehoud)."
 Set Count=Count+1,Tekst(Count)="~Extra    : "
 Set ExtraTB=$P($$GETEXTRA^REMBOURS(KLNr),";")
 Set:ExtraTB Tekst(Count)=Tekst(Count)_$$EXTNUM^vhDTyp(ExtraTB,0,".T",2)_Munt
 Set Count=Count+1,Tekst(Count)="~~Deze klant staat op ªBªKREMBOURSªbªk!"
 Set Count=Count+1,Tekst(Count)="~Gelieve het nodige te doen om deze leveringsbon vrij te geven voor uitlevering."
 Set Optie("LATER")="\D LATER^EWORDS3(MailId)"
 Set Ref(1)="KL\"_KLNr_"\R\",Ref(2)="REMBOVZ\"_KLNr_D
 Set Ref(3)="EWMSDEL\"_CONSNr_"\\;"_CUserId
 Set MailId=$$SYSTEM^vhMAIL("KL",KLNr,"Bon "_CONSNr_" -> vrijgave",TUserId,.Tekst,.Ref,1,"",.Optie)
 Set R=^ORDW("D",CONSNr),$P(R,D,7)=MailId,^ORDW("D",CONSNr)=R
 Quit
 ;
TEBET(CONSNr) 
 New R,Munt,TeBet
 Set R=$$CALCWMS^FLOWBON5(CONSNr)
 Set TeBet=$P(R,D),Munt=$P(R,D,7)
 Quit TeBet_D_Munt
 ;
 ; Opmaken van het onderwerp voor vhMAIL
ONDERW(KLNr,CONSNr)
 New R,Onderw,VerzW,DueOut,DueOutDate,DueOutTime,BetInfo,Land
 If $G(CONSNr) Do
 . Set Land=$$LAND^vhRtn1(KLNr,"K")
 . Set Onderw=$S(Land="NL":"n ",1:"b ")_"B/"_CONSNr
 . Set R=$G(^ORDW("D",CONSNr)),VerzW=$P(R,D,2),DueOut=$P(R,D,3)
 . If R="" Set Onderw=Onderw_" verwijderd" Quit
 . Set DueOutDate=$TR($P($$EXTDATE^vhDTyp(DueOut),"-",1,2),"-","/")
 . Set DueOutTime=$$EXTTIME^vhDTyp(DueOut)
 . Set BetInfo=$$BETINFO^KREDIET(KLNr)
 . Set R=$S($LG(BetInfo):"F",1:"")_$E($LG(BetInfo,3))_$E($LG(BetInfo,4))
 . Set Onderw=Onderw_"-"_$J(R,1)_"-"_DueOutDate_" "_DueOutTime_"-"_VerzW
 Else  Do
 . New CONSNr
 . Set (Onderw,CONSNr)=""
 . For  Set CONSNr=$O(^VRIJGAVE(KLNr,"B",CONSNr)) Quit:CONSNr=""  Set Onderw=Onderw_"~"_$$ONDERW(KLNr,CONSNr)
 . Set $E(Onderw)=""
 Quit Onderw
 ;