Index: vhUnitTest/BL/Flow/Levering/LabelLogoBepaler/GeefLogo/Test.cls.xml
===================================================================
diff -u -r63406 -r71336
--- vhUnitTest/BL/Flow/Levering/LabelLogoBepaler/GeefLogo/Test.cls.xml	(.../Test.cls.xml)	(revision 63406)
+++ vhUnitTest/BL/Flow/Levering/LabelLogoBepaler/GeefLogo/Test.cls.xml	(.../Test.cls.xml)	(revision 71336)
@@ -76,6 +76,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Klant Hapro heeft Hapro logo">
+<Implementation><![CDATA[
+	#dim KlantNummer As %Integer = 26471
+	#dim Logo As %String = ##class(BL.Flow.Levering.LabelLogoBepaler).%New().GeefLogo(KlantNummer)
+	Do $$$AssertEquals(Logo,"Logo\Logo HaproX 26471.jpg")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Klant Van Hoecke heeft het standaard VH logo">
 <Implementation><![CDATA[
 	#dim KlantNummer As %Integer = 4682
Index: vhDeploy/Deploy20230803xLogoHaproXOpAlleEtiketten.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20230803xLogoHaproXOpAlleEtiketten.cls.xml	(revision 0)
+++ vhDeploy/Deploy20230803xLogoHaproXOpAlleEtiketten.cls.xml	(revision 71336)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20230803xLogoHaproXOpAlleEtiketten">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Logo voor klant HaproX (26471) op alle etiketten afdrukken</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ^IPCom("CS", "LOGO26471", 0) = "Logo HaproX 26471.jpg"
+	Set ^IPCom("CS", "LOGO26471", 0, "LogoOpAlleBeslagEtiketten") = 1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>