ATKJOB2 ; Afstand-toegang voor klanten [ 05/31/2002   9:21 AM ]
 Quit
 ;
OFFINPUT(JobNr,PRNr,KLNr) 
 New D,U,Q,I,K,R
 Quit:'$G(^ATK(0,0,"A"))
 Do INIT^ATKJOB
 If $D(^KPR(PRNr)) Do
 .Set R=^KPR(PRNr,0)
 .For I=3:1:10,12:1:$L(R,D) Set $P(R,D,I)=""
 .Set ^HULP(JobNr,"OFFINPUT",PRNr,0)=R
 .Set R=$P(R,D),K=$E(R,$L(R)-3,$L(R))_" "
 .Set R=$G(^KCOL(K,"N"))
 .For I="F","D","E" Set R=R_D_$G(^KCOL(K,I))
 .Set ^HULP(JobNr,"OFFINPUT",PRNr,"K")=R
 .Set R=^KPR(PRNr,1)
 .For I=1:1:19,21,23:1:$L(R,D) Set $P(R,D,I)=""
 .Set ^HULP(JobNr,"OFFINPUT",PRNr,1)=R
 .Set R=^KPR(PRNr,2)
 .For I=3:1:24,26:1:$L(R,D) Set $P(R,D,I)=""
 .Set ^HULP(JobNr,"OFFINPUT",PRNr,2)=R
 .Set R=^KPR(PRNr,3)
 .For I=1:1:20,24:1:$L(R,D) Set $P(R,D,I)=""
 .Set ^HULP(JobNr,"OFFINPUT",PRNr,3)=R
 .Set R="",I=$O(^KPR(PRNr,"J")) Set:$E(I)="J" R=^KPR(PRNr,I)
 .For I=1:1:5,8:1:12,17:1:$L(R,D) Set $P(R,D,I)=""
 .Set ^HULP(JobNr,"OFFINPUT",PRNr,"J")=R
 .Do PRIJS^ATKJOB(KLNr,PRNr,.Prijs)
 .Merge ^HULP(JobNr,"OFFINPUT",PRNr,"P")=Prijs
 .Set ^HULP(JobNr,"OFFINPUT",PRNr)=1
 Quit
 ;
OFPAKKET(JobNr,PakNr) 
 Quit:'$G(^ATK(0,0,"A"))
 Merge ^HULP(JobNr,"OFFINPUT","P",PakNr)=^PAKKET("D",PakNr)
 Set ^HULP(JobNr,"OFFINPUT","P")=1
 Quit
 ;
MERGE(JobNr,KLNr,%J) 
 New D,U,Q,I,R,PRNr,Aantal,LcUser
 Do INIT^ATKJOB
 Kill ^HULP(%J,"OFFERTE")
 Set LcUser=$G(^HULP(JobNr,"KLINIT","LcUser")),PRNr=""
 For  Set PRNr=$O(^HULP(JobNr,"OFFINPUT",PRNr)) Quit:'PRNr  Do
 .Set Aantal=$G(^HULP(JobNr,"OFFINPUT",PRNr,"A"))
 .Quit:'Aantal
 .Set ^HULP(%J,"OFFERTE",PRNr)=Aantal
 If $D(^HULP(%J,"OFFERTE")) Set ^HULP(%J,"OFFERTE")=KLNr_D_LcUser
 Quit
 ;
VERWERK(%J) 
 New D,U,Q,I,R,KLNr,PRNr,Aantal,Count,OFFNr,LcUser
 Do INIT^ATKJOB
 Set R=^HULP(%J,"OFFERTE"),KLNr=$P(R,D),LcUser=$P(R,D,2),PRNr="",Count=0
 For  Set PRNr=$O(^HULP(%J,"OFFERTE",PRNr)) Quit:'PRNr  Do
 .Set Aantal=^HULP(%J,"OFFERTE",PRNr),Aantal=$P(Aantal,D)+$P(Aantal,D,2)
 .Set Count=Count+1,PRNr(Count)=PRNr_D_Aantal
 Do ^cA106
 Set Refer=$E("VHISIE "_$$EXTDATE^vhLib.DataTypes()_" "_LcUser,1,25)
 Set OFFNr=$$BUILDOBJ^FLOWOFF(KLNr,"D",Refer,.PRNr)
 Do MAIL(KLNr,OFFNr,LcUser)
 Quit
 ;
MAIL(KLNr,OFFNr,LcUser) 
 New UserId,Ref,Text,MailId
 Set UserId=$$USERID^vhUSER("ATKOFF") Set:UserId="" UserId=$$USERID^vhUSER("Chris W")
 Set Ref(1)="OFF\"_OFFNr_"\R"
 Set Text="Via ªBVHISIEªb werd een offerte gevraagd"
 Set:$L(LcUser) Text=Text_" door ªB"_LcUser_"ªb" Set Text=Text_"."
 Set MailId=$$SYSTEM^vhMAIL("KL",KLNr,"VHISIE - offerte",UserId,Text,.Ref,1,1)
 Quit
 ;