Index: BL/PPS/TBX/WPPers/InfoBepaler.cls.xml
===================================================================
diff -u -r58564 -r68663
--- BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 58564)
+++ BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 68663)
@@ -69,7 +69,7 @@
 			#dim Onderdelenspecial As %String = TBX.GeefOnderdelenSpeciaal()
 			#dim IsSpoelbakLade As %Boolean = TBX.IsSpoelbakLade()
 			
-			Set:(LadeType="B") Info1=..GeefInfoMetMelding(Info1,"FRONT")
+			Set:(LadeType="B") Info1=..GeefInfoMetMeldingVoorFrontBinnenlade(Info1, TBX)
 			Set:("0"'[Antislipmat) Info1=..GeefInfoMetMelding(Info1,"MAT "_..MatFormatter.GeefKorteNotatie(..TBXMatToEnuMatConverter.GeefMateriaal(Antislipmat),..TBXMatToEnuMatConverter.GeefKleur(Antislipmat)))
 			Set:(Onderdelenspecial'="") Info1=..GeefInfoMetMelding(Info1,"SPECIAAL : "_$CASE(Onderdelenspecial,"F":"FRONT","R":"RUG","B":"BODEM","BR":"BODEM&RUG",:Onderdelenspecial))
 			Set:(IsSpoelbakLade) Info1=..GeefInfoMetMelding(Info1,"SPOELBAK/SYFON")
@@ -92,14 +92,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefInfoMetMelding">
-<FormalSpec>Info:%String,Melding:%String,Kleur:%String=##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Rood()</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $S($L(Info):Info_"; ",1:Kleur_":") _ Melding
-]]></Implementation>
-</Method>
-
 <Method name="GeefInfo2">
 <FormalSpec>BatchID:%String,LaatsteBatch:%Boolean</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -114,6 +106,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefInfoMetMeldingVoorFrontBinnenlade">
+<FormalSpec>Info:%String,TBX:DOM.PM.TBXProduct.TBXLade,Kleur:%String=##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Rood()</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Melding As %String = "FRONT"
+	
+	If (TBX.BevatGreep()) {
+		Set Melding = Melding _ "+GR"
+	}
+	If (TBX.BevatMeenemer()) {
+		Set Melding = Melding _ "+MEE"
+	}
+	
+	Quit ..GeefInfoMetMelding(Info, Melding, Kleur)
+]]></Implementation>
+</Method>
+
+<Method name="GeefInfoMetMelding">
+<FormalSpec>Info:%String,Melding:%String,Kleur:%String=##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Rood()</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $S($L(Info):Info_"; ",1:Kleur_":") _ Melding
+]]></Implementation>
+</Method>
+
 <Method name="IsV1Verpakking">
 <FormalSpec>TBX:DOM.PM.TBXProduct.TBXLade</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/BL/PPS/TBX/WPPers/InfoBepaler/Test.cls.xml
===================================================================
diff -u -r58564 -r68663
--- vhUnitTest/BL/PPS/TBX/WPPers/InfoBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58564)
+++ vhUnitTest/BL/PPS/TBX/WPPers/InfoBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 68663)
@@ -89,6 +89,8 @@
 	Do ..TBXLadeMock.VerwachtMethodCall("GeefOnderdelenSpeciaal").DanReturn("")
 	Do ..TBXLadeMock.VerwachtMethodCall("IsSpoelbakLade").DanReturn($$$True)
 	Do ..TBXLadeMock.VerwachtMethodCall("BevatSynchro").DanReturn($$$True)
+	Do ..TBXLadeMock.VerwachtMethodCall("BevatGreep").DanReturn($$$False)
+	Do ..TBXLadeMock.VerwachtMethodCall("BevatMeenemer").DanReturn($$$False)
 
 	Set InfoBepaler = ##class(BL.PPS.TBX.WPPers.InfoBepaler).%New(..MatFormatterMock,..TBXMatToEnuMatConverterMock,..ProductAPIMock)
 	#dim Info1 As %String = InfoBepaler.GeefInfo1("ProductNummer",$$$tsWachtend)
@@ -115,6 +117,8 @@
 	Do ..TBXLadeMock.IndienMethodCall("GeefRugMateriaal").DanReturn(##class(DOM.PM.enu.TBXRugwandMateriaal).Staal())
 	Do ..TBXLadeMock.IndienMethodCall("GeefOnderdelenSpeciaal").DanReturn("")
 	Do ..TBXLadeMock.IndienMethodCall("IsSpoelbakLade").DanReturn($$$True)
+	Do ..TBXLadeMock.IndienMethodCall("BevatGreep").DanReturn($$$False)
+	Do ..TBXLadeMock.IndienMethodCall("BevatMeenemer").DanReturn($$$False)
 
 	Set InfoBepaler = ##class(BL.PPS.TBX.WPPers.InfoBepaler).%New(..MatFormatterMock,..TBXMatToEnuMatConverterMock,..ProductAPIMock)
 	#dim Info1 As %String = InfoBepaler.GeefInfo1("ProductNummer",$$$tsWachtend)
@@ -142,6 +146,8 @@
 	Do ..TBXLadeMock.IndienMethodCall("GeefRugMateriaal").DanReturn(##class(DOM.PM.enu.TBXRugwandMateriaal).Staal())
 	Do ..TBXLadeMock.IndienMethodCall("GeefOnderdelenSpeciaal").DanReturn("")
 	Do ..TBXLadeMock.IndienMethodCall("IsSpoelbakLade").DanReturn($$$True)
+	Do ..TBXLadeMock.IndienMethodCall("BevatGreep").DanReturn($$$False)
+	Do ..TBXLadeMock.IndienMethodCall("BevatMeenemer").DanReturn($$$False)
 
 	Set InfoBepaler = ##class(BL.PPS.TBX.WPPers.InfoBepaler).%New(..MatFormatterMock,..TBXMatToEnuMatConverterMock,..ProductAPIMock)
 	#dim Info1 As %String = InfoBepaler.GeefInfo1("ProductNummer",$$$tsWachtend)
@@ -150,6 +156,62 @@
 	Do ..TBXLadeMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Geeft info1 met greep, zonder meenemer">
+<Implementation><![CDATA[
+	Do ..TBXLadeMock.VerwachtMethodCall("GeefVerpakking").DanReturn(##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen())
+	Do ..TBXLadeMock.VerwachtMethodCall("GeefTOBSetNietMeeleveren").DanReturn($$$False)
+	Do ..TBXLadeMock.VerwachtMethodCall("GeefTOBStangOpMaatNietMeeleveren").DanReturn($$$False)
+	Do ..TBXLadeMock.VerwachtMethodCall("BevatSynchro").DanReturn($$$True)
+
+	Do ..TBXLadeMock.IndienMethodCall("GeefInterneBreedte").DanReturn(500)
+	Do ..TBXLadeMock.IndienMethodCall("GeefDraagkracht").DanReturn(40)
+	Do ..TBXLadeMock.IndienMethodCall("GeefVariant").DanReturn(##class(DOM.PM.enu.Variant).TandemboxBaliko())
+	Do ..TBXLadeMock.IndienMethodCall("GeefAntislipmatNietMeeleveren").DanReturn($$$False)
+	Do ..TBXLadeMock.IndienMethodCall("GeefAntislipmat").DanReturn(##class(DOM.PM.enu.TBXAntislipmat).Grijs())
+	Do ..TBXLadeMock.IndienMethodCall("GeefBlumotion").DanReturn(##class(DOM.PM.enu.TBXBlumotion).TipOn())
+	Do ..TBXLadeMock.IndienMethodCall("GeefLadeType").DanReturn(##class(DOM.PM.enu.TBXLadeType).BinnenLade())
+	Do ..TBXLadeMock.IndienMethodCall("GeefRugMateriaal").DanReturn(##class(DOM.PM.enu.TBXRugwandMateriaal).Staal())
+	Do ..TBXLadeMock.IndienMethodCall("GeefOnderdelenSpeciaal").DanReturn("")
+	Do ..TBXLadeMock.IndienMethodCall("IsSpoelbakLade").DanReturn($$$True)
+	Do ..TBXLadeMock.IndienMethodCall("BevatGreep").DanReturn($$$True)
+	Do ..TBXLadeMock.IndienMethodCall("BevatMeenemer").DanReturn($$$False)
+
+	Set InfoBepaler = ##class(BL.PPS.TBX.WPPers.InfoBepaler).%New(..MatFormatterMock,..TBXMatToEnuMatConverterMock,..ProductAPIMock)
+	#dim Info1 As %String = InfoBepaler.GeefInfo1("ProductNummer",$$$tsWachtend)
+	
+	Do $$$AssertEquals(Info1,"R:FRONT+GR; MAT Mat; SPOELBAK/SYFON; TIP-ON; HOUTEN BALIKO LADE; stalen rug")
+	Do ..TBXLadeMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geeft info1 met greep en meenemer">
+<Implementation><![CDATA[
+	Do ..TBXLadeMock.VerwachtMethodCall("GeefVerpakking").DanReturn(##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen())
+	Do ..TBXLadeMock.VerwachtMethodCall("GeefTOBSetNietMeeleveren").DanReturn($$$False)
+	Do ..TBXLadeMock.VerwachtMethodCall("GeefTOBStangOpMaatNietMeeleveren").DanReturn($$$False)
+	Do ..TBXLadeMock.VerwachtMethodCall("BevatSynchro").DanReturn($$$True)
+
+	Do ..TBXLadeMock.IndienMethodCall("GeefInterneBreedte").DanReturn(500)
+	Do ..TBXLadeMock.IndienMethodCall("GeefDraagkracht").DanReturn(40)
+	Do ..TBXLadeMock.IndienMethodCall("GeefVariant").DanReturn(##class(DOM.PM.enu.Variant).TandemboxBaliko())
+	Do ..TBXLadeMock.IndienMethodCall("GeefAntislipmatNietMeeleveren").DanReturn($$$False)
+	Do ..TBXLadeMock.IndienMethodCall("GeefAntislipmat").DanReturn(##class(DOM.PM.enu.TBXAntislipmat).Grijs())
+	Do ..TBXLadeMock.IndienMethodCall("GeefBlumotion").DanReturn(##class(DOM.PM.enu.TBXBlumotion).TipOn())
+	Do ..TBXLadeMock.IndienMethodCall("GeefLadeType").DanReturn(##class(DOM.PM.enu.TBXLadeType).BinnenLade())
+	Do ..TBXLadeMock.IndienMethodCall("GeefRugMateriaal").DanReturn(##class(DOM.PM.enu.TBXRugwandMateriaal).Staal())
+	Do ..TBXLadeMock.IndienMethodCall("GeefOnderdelenSpeciaal").DanReturn("")
+	Do ..TBXLadeMock.IndienMethodCall("IsSpoelbakLade").DanReturn($$$True)
+	Do ..TBXLadeMock.IndienMethodCall("BevatGreep").DanReturn($$$True)
+	Do ..TBXLadeMock.IndienMethodCall("BevatMeenemer").DanReturn($$$True)
+
+	Set InfoBepaler = ##class(BL.PPS.TBX.WPPers.InfoBepaler).%New(..MatFormatterMock,..TBXMatToEnuMatConverterMock,..ProductAPIMock)
+	#dim Info1 As %String = InfoBepaler.GeefInfo1("ProductNummer",$$$tsWachtend)
+	
+	Do $$$AssertEquals(Info1,"R:FRONT+GR+MEE; MAT Mat; SPOELBAK/SYFON; TIP-ON; HOUTEN BALIKO LADE; stalen rug")
+	Do ..TBXLadeMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>