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 set From = """Destil TBX Inkoop"" " } elseif ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).SFS() { set From = $$$EMailAKSfs set From = """SFS TBX Inkoop"" " } elseif ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).MBHolland() { set From = $$$EMailAKMbho set From = """MBHO TBX Inkoop"" " } elseif ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).HafeleBE() { set From = $$$EMailAKHflb set From = """Hafele.be TBX Inkoop"" " } elseif ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).HafeleNL() { set From = $$$EMailAKHfle set From = """Hafele TBX Inkoop"" " } elseif ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).Dupont() { set From = $$$EMailAKDupo set From = """Du Pont TBX Aankoop"" " } elseif ..Requester = ##class(APPS.TBXWeb.enu.TBXHandel).Kisch() { set From = $$$EMailAKKisch set From = """KISCH TBX Inkoop"" " } else { set From = $$$EMailAKUnknown } } Quit From ]]>