1 AbstractOrderHandler 0 0 %Boolean %String als het TBXContext-object beschikbaar wordt gemaakt in deze klasse, dan is het beter om de method TBXContext.StatusInkoopAlsOrderToVH() op te roepen i.p.v. de voorwaarde (..Requester'="VHEPN") If $L(..Requester) && ( ( ..Requester'="VHEPN" ) ) { Set OrderResultType = "INKP" } ElseIf ..IsOrderVanAnoniemeGebruiker { Set OrderResultType = "OFFAV" } Else { Set OrderResultType = "BBON" } Quit OrderResultType ]]> %List 1 %List 1 %List ") } If ..IsDomeinOpTeVolgenDoorICT() { Set lbMailTo=lbMailTo _ $LB("ICT_SupportTBX@vanhoecke.be") } Quit lbMailTo ]]> 1 %String ")_$LB("ICT_SupportTBX@vanhoecke.be") ]]> 1 %String %String %String %Status %String " } Else { if ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).Destil() { set From = $$$EMailAKHelmY } elseif ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).SFS() { set From = $$$EMailAKSfs } elseif ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).MBHolland() { set From = $$$EMailAKMbho } elseif ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).HafeleBE() { set From = $$$EMailAKHflb } elseif ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).HafeleNL() { set From = $$$EMailAKHfle } elseif ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).Dupont() { set From = $$$EMailAKDupo } elseif ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).Kisch() { set From = $$$EMailAKKisch } else { set From = $$$EMailAKUnknown } } Quit From ]]> 1 %String