ATKORD ; Afstand-toegang voor klanten [ 12/14/2003  7:03 PM ]
 Quit
 ;
MOEDERB(ALogNr) 
 New I
 Do STORE^vhTERMINA()
 Do
 .New (ALogNr,MailId,CUserId)
 .Do
 ..New ALogNr,MailId,CUserId
 ..Do INIT^vhTERMINA
 .Set KLNr=""
 .For  Set KLNr=$O(^MBLOG("A",KLNr)) Quit:'KLNr  Quit:$D(^MBLOG("A",KLNr,ALogNr))
 .If KLNr Do
 ..If $D(^MBLOG("D",$$IO^cQ5,KLNr)) Do  Quit
 ...Set FP=2301
 ...Write @F,@F1
 ...Do TXTL^vhINP("ATKORD","MOEDERBON")
 ..Do ADD^vhLock("^MBLOG(""A"",KLNr,ALogNr)")
 ..If '%TC Set FP=2301 Write @F,@F1 Do LDISP^vhLock("^MBLOG(""A"",KLNr,ALogNr)","Moederbon") Quit
 ..Do MARKLOG^RPLMBON(KLNr)
 ..Set DLogNr=^MBLOG("D",$$IO^cQ5,KLNr)
 ..Merge ^MBLOG("D",$$IO^cQ5,KLNr)=^MBLOG("A",KLNr,ALogNr)
 ..Set R=^MBLOG("D",$$IO^cQ5,KLNr)
 ..Set $P(R,D)=DLogNr,$P(R,D,7)=$$EXTDATE^vhDTyp($P(R,D,7),"DW")
 ..Set ^MBLOG("D",$$IO^cQ5,KLNr)=R
 ..Set R=$$RAADPL^KLANT(KLNr,"V")
 ..If '$D(^MBLOG("D",$$IO^cQ5,KLNr)),'$D(^MBLOG("T",KLNr,DLogNr)) Quit
 ..Kill ^MBLOG("A",KLNr,ALogNr)
 ..Do MODMAIL(MailId,"M")
 .Do REMOVE^vhLock("^MBLOG(""A"",KLNr,ALogNr)")
 Kill Link
 Do REFRESH^vhTERMINA()
 Quit
 ;
ORDER(ALogNr) 
 New I
 Do STORE^vhTERMINA()
 Do
 .New (ALogNr,MailId,CUserId)
 .Do
 ..New ALogNr,MailId,CUserId
 ..Do INIT^vhTERMINA
 .Set KLNr=""
 .For  Set KLNr=$O(^MBLOG("A",KLNr)) Quit:'KLNr  Quit:$D(^MBLOG("A",KLNr,ALogNr))
 .If KLNr Do
 ..If $D(^MBLOG("D",$$IO^cQ5,KLNr)) Do  Quit
 ...Set FP=2301
 ...Write @F,@F1
 ...Do TXTL^vhINP("ATKORD","MOEDERBON")
 ..Do ADD^vhLock("^MBLOG(""A"",KLNr,ALogNr)")
 ..If '%TC Set FP=2301 Write @F,@F1 Do LDISP^vhLock("^MBLOG(""A"",KLNr,ALogNr)","Order") Quit
 ..Do MARKLOG^RPLMBON(KLNr)
 ..Set DLogNr=^MBLOG("D",$$IO^cQ5,KLNr)
 ..Merge ^MBLOG("D",$$IO^cQ5,KLNr)=^MBLOG("A",KLNr,ALogNr)
 ..Set R=^MBLOG("D",$$IO^cQ5,KLNr)
 ..Set $P(R,D)=DLogNr,$P(R,D,7)=$$EXTDATE^vhDTyp($P(R,D,7),"DW")
 ..Set ^MBLOG("D",$$IO^cQ5,KLNr)=R,KC=KLNr
 ..Do TRANSFER^RPLMBON,BUILDOBJ^FLOWORD(KLNr,DLogNr)
 ..Kill ^MBLOG("D",$$IO^cQ5,KLNr)
 ..Kill ^MBLOG("A",KLNr,ALogNr)
 ..Do MODMAIL(MailId,"O")
 .Do REMOVE^vhLock("^MBLOG(""A"",KLNr,ALogNr)")
 Kill Link
 Do REFRESH^vhTERMINA()
 Quit
 ;
ANNULEER(ALogNr) 
 New I
 Do STORE^vhTERMINA()
 Do
 .New (ALogNr,MailId,CUserId)
 .Do
 ..New ALogNr,MailId,CUserId
 ..Do INIT^vhTERMINA
 .Set KLNr=""
 .For  Set KLNr=$O(^MBLOG("A",KLNr)) Quit:'KLNr  Quit:$D(^MBLOG("A",KLNr,ALogNr))
 .If KLNr Do
 ..Do ADD^vhLock("^MBLOG(""A"",KLNr,ALogNr)")
 ..If '%TC Set FP=2301 Write @F,@F1 Do LDISP^vhLock("^MBLOG(""A"",KLNr,ALogNr)","Moederbon") Quit
 ..Set R=$$ASKL^vhINP("ATKORD","ANNULEER")
 ..Quit:R'="A"
 ..Kill ^MBLOG("A",KLNr,ALogNr)
 ..Do MODMAIL(MailId,"A")
 .Do REMOVE^vhLock("^MBLOG(""A"",KLNr,ALogNr)")
 Kill Link
 Do REFRESH^vhTERMINA()
 Quit
 ;
GETREF(ALogNr) 
 New KLNr,Ref
 Set KLNr=""
 For  Set KLNr=$O(^MBLOG("A",KLNr)) Quit:'KLNr  Quit:$D(^MBLOG("A",KLNr,ALogNr))
 If KLNr Set Ref=$P(^MBLOG("A",KLNr,ALogNr),D,3)
 Quit $G(Ref,"Skip")
 ;
MAIL ; controle of een VHISIE gebruiker een order heeft ingegeven
 ; en zo ja dit mailen naar OV
 New
 Do INIT^vhTERMINA
 Set KLNr="",%J=$$%J^vhRtn1()
 For ATKId=1:1:10 Set UserId=$$USERID^vhUSER("ATKORD"_ATKId) Quit:UserId
 Set:UserId="" UserId=$$USERID^vhUSER("Chris W")
 For  Set KLNr=$O(^MBLOG("A",KLNr)) Quit:KLNr=""  Do
 .Kill ^HULP(%J)
 .Set Ref(1)="KL\"_KLNr_"\R"
 .Set ALogNr=""
 .For  Set ALogNr=$O(^MBLOG("A",KLNr,ALogNr)) Quit:ALogNr=""  Do
 ..Quit:$G(^MBLOG("A",KLNr,ALogNr,"MAIL"))
 ..Kill ^HULP(%J)
 ..Set PRNr=""
 ..For  Set PRNr=$O(^MBLOG("A",KLNr,ALogNr,PRNr)) Quit:'PRNr  Do
 ...Set Aantal=^MBLOG("A",KLNr,ALogNr,PRNr),Aantal=$P(Aantal,D)+$P(Aantal,D,2),I=$O(^KPR(PRNr,"I"))
 ...Set R="" Set:$E(I)="I" R=^KPR(PRNr,I)
 ...Set SortKey=" ",KKey=$P(R,D,4) Set:KKey SortKey=$$GETSORT^KLASS(KKey)
 ...Set R=^KPR(PRNr,0),KortText=$P(R,D),CompKort=$$UPTRIMAN^vhRtn1(KortText)
 ...Set R=KortText_$J("",26-$L(KortText))_":"_$J(Aantal,7)
 ...Set ^HULP(%J,ALogNr,SortKey_CompKort)=R
 ..Quit:'$D(^HULP(%J))
 ..Kill Text,TCount
 ..Do TEXT("Volgende bestelling werd genoteerd :")
 ..Set Ref(2)="ATK\"_ALogNr_"\M"
 ..Set Ref(3)="ATK\"_ALogNr_"\O"
 ..Set Ref(4)="ATK\"_ALogNr_"\A"
 ..Do TEXT("",1)
 ..Set R=^MBLOG("A",KLNr,ALogNr)
 ..Do TEXT("Referentie       : "_$P(R,D,3),1)
 ..Do TEXT("Besteld door     : "_$P($P(R,D,8),"#"),1)
 ..Do TEXT("Leverweek        : "_$$EXTDATE^vhDTyp($P(R,D,7),"DW"),1)
 ..Do TEXT("Orderbevestiging : "_$S($L($P(R,D,9)):"Ja",1:"Neen"),1)
 ..Set Memo=$G(^MBLOG("A",KLNr,ALogNr,"MEMO"))
 ..If $L(Memo) Do TEXT("",1),TEXT("ªBªKMemoªbªk",1),TEXT(Memo,1)
 ..Do TEXT("",1)
 ..Set SortKey=""
 ..For  Set SortKey=$O(^HULP(%J,ALogNr,SortKey)) Quit:SortKey=""  Set R=^HULP(%J,ALogNr,SortKey) Do TEXT(R,1)
 ..Set MailId=$$SYSTEM^vhMAIL("KL",KLNr,"VHISIE - order",UserId,.Text,.Ref,1,1),Count=0
 ..For ATKId=ATKId+1:1:10 Do
 ...Set UserId=$$USERID^vhUSER("ATKORD"_ATKId)
 ...Quit:'UserId
 ...Set Count=Count+1,^vhMAIL("D",MailId,"N",UserId)="\\S\\"_$$CALCTIME^vhDTyp($H,"S",1800*Count)
 ...Set ^vhMAIL("IN",UserId,MailId)=""
 ..Set ^MBLOG("A",KLNr,ALogNr,"MAIL")=MailId
 Kill ^HULP(%J)
 Quit
 ;
TEXT(R,NewLine) 
 Set TCount=$G(TCount)+1,Text(TCount)=$P("\~",D,$G(NewLine)+1)_R
 Quit
 ;
MODMAIL(MailId,Via) 
 New R,UserId,UserName
 Do DELREF^vhMAIL(MailId)
 Set UserId=";"_$$TUSERID^vhMAIL(MailId)_";"
 Set UserId=$P(UserId,";"_CUserId_";")_";"_$P(UserId,";"_CUserId_";",2)
 Set $E(UserId)="",$E(UserId,$L(UserId))=""
 Do DELUSERS^vhMAIL(MailId,UserId)
 Set UserName=$$USERNAME^vhUSER(CUserId),Via=$S(Via="M":"moederbon",Via="O":"order",1:Via)
 If Via="A" Set R="Volgende bestelling is ªBgeannuleerd door "_UserName_"ªb"
 Else  Set R="Volgende bestelling is ªBverwerkt door "_UserName_"ªb via "_Via_"."
 Set ^vhMAIL("D",MailId,"T",1)=R
 Quit
 ;