Index: TECH/DateTime.cls.xml
===================================================================
diff -u -r2212 -r2257
--- TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 2212)
+++ TECH/DateTime.cls.xml	(.../DateTime.cls.xml)	(revision 2257)
@@ -49,7 +49,10 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Timestamp:%TimeStamp</FormalSpec>
 <ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[	Quit $zdh(Timestamp,3)
+<Implementation><![CDATA[
+	Set Date = ""
+	If (Timestamp '= "") Set Date = $zdh(Timestamp,3)
+	Quit Date
 ]]></Implementation>
 </Method>
 
@@ -65,7 +68,10 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Date:%Date</FormalSpec>
 <ReturnType>%TimeStamp</ReturnType>
-<Implementation><![CDATA[	Quit $zd(Date,3)_" 00:00:00"
+<Implementation><![CDATA[
+	Set TimeStamp = ""
+	If (Date '= "") Set TimeStamp = $zd(Date,3)_" 00:00:00"
+	Quit TimeStamp
 ]]></Implementation>
 </Method>
 
Index: vhConsistency/Checks/InvoerUitvoerLinken.cls.xml
===================================================================
diff -u -r2230 -r2257
--- vhConsistency/Checks/InvoerUitvoerLinken.cls.xml	(.../InvoerUitvoerLinken.cls.xml)	(revision 2230)
+++ vhConsistency/Checks/InvoerUitvoerLinken.cls.xml	(.../InvoerUitvoerLinken.cls.xml)	(revision 2257)
@@ -7,7 +7,7 @@
 
 <Method name="VoerUit">
 <Description>
-Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,0,"vhConsistency.Checks.InvoerUitvoerLinken")</Description>
+Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,1,"vhConsistency.Checks.InvoerUitvoerLinken")</Description>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
@@ -35,14 +35,36 @@
 					Set VerwachteInvoerInfo = ##class(DOM.ProdRes.dto.VerwachteInvoerInfo).%New()
 					Set VerwachteInvoerInfo.Aantal = ProductLijn.GeefAantal()
 					Set VerwachteInvoerInfo.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
-					Set VerwachteInvoerInfo.DueIn = ProductLijn.GeefLeverdag()
+					Set VerwachteInvoerInfo.DueIn = ##class(TECH.DateTime).DateToTimeStamp(ProductLijn.GeefLeverdag())
 					Set VerwachteInvoerInfo.ProductID = ProductLijn.GeefProduct().GeefPRNr()
 					Set VerwachteInvoerInfo.TransactieReferentie = Toelevering.GeefToeNr()
 					Set VerwachteInvoerInfo.TransactieLijnReferentie = ProductLijn.GeefLijnNr()
 					
 					Do VerwachteInvoerAPI.RegistreerVerwachteInvoer(VerwachteInvoerInfo)
 					Do ..VoegMeldingToe("Verwachte invoer aangemaakt (Toelevering, LijnNr): "_Toelevering.GeefToeNr()_", "_ProductLijn.GeefLijnNr())
 				}
+				Else
+				{
+					If (VerwachteInvoer.GeefAantal() '= ProductLijn.GeefAantal())
+					{
+						Do ..VoegMeldingToe("Verwachte invoer heeft verschillend aantal (Toelevering, LijnNr): "_Toelevering.GeefToeNr()_", "_ProductLijn.GeefLijnNr())
+						Do VerwachteInvoer.ZetAantal(ProductLijn.GeefAantal())
+						Do VerwachteInvoer.Save()
+					}
+					If (VerwachteInvoer.GeefDueIn() '= ##class(TECH.DateTime).DateToTimeStamp(ProductLijn.GeefLeverdag()))
+					{
+						Do ..VoegMeldingToe("Verwachte invoer heeft verschillende due in (Toelevering, LijnNr): "_Toelevering.GeefToeNr()_", "_ProductLijn.GeefLijnNr())
+						Do VerwachteInvoer.ZetDueIn(##class(TECH.DateTime).DateToTimeStamp(ProductLijn.GeefLeverdag()))
+						Do VerwachteInvoer.Save()
+					}
+					If (VerwachteInvoer.GeefProductID() '= ProductLijn.GeefProduct().GeefPRNr())
+					{
+						Do ..VoegMeldingToe("Verwachte invoer heeft verschillende producten in (Toelevering, LijnNr): "_Toelevering.GeefToeNr()_", "_ProductLijn.GeefLijnNr())
+						Set ResultSet = ##class(%ResultSet).%New()
+						Do ResultSet.Prepare("UPDATE DOM_ProdRes_impl.VerwachteInvoerImpl SET ProductID = ? WHERE ID = ?")
+						Do ResultSet.Execute(ProductLijn.GeefProduct().GeefPRNr(),VerwachteInvoer.%Id())
+					}
+				}
 			}
 		}
 	}
@@ -109,6 +131,10 @@
 						}
 					}
 				}
+				Else
+				{
+					// TODO: Controles doen op aantal, productid, dueout
+				}
 			}
 		}
 	}