Index: APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingNotPitched.cls.xml
===================================================================
diff -u -r58807 -r62511
--- APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingNotPitched.cls.xml	(.../BerekenTijdenLeadingNotPitched.cls.xml)	(revision 58807)
+++ APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingNotPitched.cls.xml	(.../BerekenTijdenLeadingNotPitched.cls.xml)	(revision 62511)
@@ -73,7 +73,7 @@
 	Set ResourcePitched.Activiteit=rsLijn.Data("Activiteit")
 	Set ResourcePitched.Productgroep=rsLijn.Data("Productgroep")
 	Set ResourcePitched.IsLeading=1
-	Set ResourcePitched.LeverenAanResource=""
+	Set ResourcePitched.LeverenAanResource=rsLijn.Data("LeverenAan")
 	;
 	Set ResourcePitched.DuurTijd=rsLijn.Data("Tijd")
 	Set ResourcePitched.EindTijdstip=..RefTijd
@@ -92,7 +92,7 @@
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
 	Set rs=##class(TECH.ResultSet).%New()
-	Set SQL="Select RL.Resourcegroep,RL.Resource, RL.Activiteit, RL.Productgroep,RL.ID ResourceLijnId,RL.ToeleveringNr, RL.UniekLijnNr, min(IsLeading) IsLeading, sum(RL.TijdPerStuk*TL.Aantal) Tijd, sum(TL.Aantal) Aantal "
+	Set SQL="Select RL.Resourcegroep,RL.Resource, RL.Activiteit, RL.Productgroep,RL.ID ResourceLijnId,RL.ToeleveringNr, RL.UniekLijnNr ,RL.LeverenAan, min(IsLeading) IsLeading, sum(RL.TijdPerStuk*TL.Aantal) Tijd, sum(TL.Aantal) Aantal "
 	_" From  APPS_Halux_Planning_Resource_dto.Resourcelijn RL"
 	_" join Flow_Toelev.Lijn TL on RL.ToeleveringNr=TL.ToeleveringNr and RL.UniekLijnNr=(TL.UniekLijnNr\100*100) "
 	_" where isleading=1 and rl.ToeleveringNr=? and TL.Leverancier=6332"
@@ -138,7 +138,7 @@
 	; Indien DueOutTijdstip voor VANDAAG (of vroeger) dan DueOutTijdstip is vandaag om 10:30 anders is het vandaag om 14:30
 	If +$zdth(DueOutTijdstip,3)>+$H
 	{
-		Set DueOutTijdstip=$zd(+$H,3)_" 14:30"
+		Set DueOutTijdstip=$zd(+$zdth(DueOutTijdstip,3),3)_" 14:30"
 	} Else {
 		Set DueOutTijdstip=$zd(+$H,3)_" 10:30"
 	}