Index: EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml
===================================================================
diff -u -r59388 -r69835
--- EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 59388)
+++ EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 69835)
@@ -130,6 +130,7 @@
 <Implementation><![CDATA[
 	#dim Personality As DOM.common.Personality = ..CommonApi.GeefPersonality(..AanvraagHeader.PersonalityID)
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(..KlantBepaler.GeefKlantID(Personality, ..AanvraagHeader.KlantID))
+	#dim IsAlpnach As %Boolean = (..AanvraagHeader.KlantID = ##class(DOM.VKP.enu.SfsKlant).Alpnach())
 	
 	#dim Mail As TECH.Mail.Mail = ..MailApi.MaakNieuwMail()
 	Do Mail.ZetVerzender($$$SystemMail("EDI Bestelling"))
@@ -152,6 +153,7 @@
 		Do Mail.VoegToeOntvanger("ICT_Meldingen@vanhoecke.be")
 		Do Mail.VoegToeOntvangerCC(Klant.GeefInterneVerantwoordelijke().GeefEmailAdres())
 	} Else {
+		Set:(IsAlpnach) Onderwerp = Onderwerp _ " (Alpnach)"
 		Set Inhoud = Inhoud _ "Deze bestelling is goed verwerkt."
 		Do Mail.VoegToeOntvanger(Klant.GeefInterneVerantwoordelijke().GeefEmailAdres())
 	}
@@ -162,6 +164,7 @@
 			#dim BestelReferentie As %String = VerwerkteOrderInfoIterator.Next()
 			#dim AdminOrderId As %String = VerwerkteOrderInfoIterator.Key()
 			Set Inhoud = Inhoud _ $$$CRLF _ " - Offerte " _ AdminOrderId _ " :  ref. '" _ BestelReferentie _ "'"
+			Set:(IsAlpnach) Inhoud = Inhoud _ " (customer: Alpnach)"
 		}
 	}