Index: APPS/Halux/Planning/Capaciteit/impl/ImportFromXLS.cls.xml
===================================================================
diff -u -r71510 -r74341
--- APPS/Halux/Planning/Capaciteit/impl/ImportFromXLS.cls.xml	(.../ImportFromXLS.cls.xml)	(revision 71510)
+++ APPS/Halux/Planning/Capaciteit/impl/ImportFromXLS.cls.xml	(.../ImportFromXLS.cls.xml)	(revision 74341)
@@ -41,32 +41,53 @@
 </Method>
 
 <Method name="ImportXLS">
-<FormalSpec>BatchID:TECH.String</FormalSpec>
 <Implementation><![CDATA[
+	
 	Do ..VerwijderAlles()
 	#dim Datum as %Date
+	#dim Uur as %Integer
 	#dim TijdstipVan as %Integer
 	#dim TijdstipTot as %Integer
 	#dim KolomNr as %Integer
 	#dim ResourceNaam as %String
 	#dim BaseFactor as %Decimal
 	#dim CorrectieFactor as %Decimal
+	
 	While ..Reader.Next()
-	{
-		If (..Reader.Column(1)?1.2N1"/"2N1"/"2.4N) && (..Reader.Column(2)?1.2N1":"2N) && (..Reader.Column(3)?1.2N1":"2N)
+	{	
+		If (..Reader.Column(1)?1(1.2N1"/"1.2N1"/"2.4N,1.2N1"-"1.2N1"-"2.4N))
 		{
-			Set Datum=$ZDH(..Reader.Column(1),4)
-			Set TijdstipVan=$ZTH(..Reader.Column(2))
-			Set TijdstipTot=$ZTH(..Reader.Column(3))
-			For KolomNr=4:2:..Reader.GetColumnCount()
+			Set Datum=$ZDH($tr(..Reader.Column(1),"-","/"),4)
+			Set Uur=..Reader.Column(2)
+
+			For KolomNr=3:3:..Reader.GetColumnCount()
 			{
-				Set BaseFactor=$TR(..Reader.Column(KolomNr),",",".")
-				Set CorrectieFactor=$TR($G(..Reader.Column(KolomNr+1)),",",".")
-				Set ResourceNaam=$tr(..Reader.GetColumnHeader(KolomNr),"""")
-				If ResourceNaam'=""
+				Set ResourceNaam=$TR(..Reader.GetColumnHeader(KolomNr),"""")
+				Set:ResourceNaam?1N ResourceNaam="Lijn "_ResourceNaam
+
+				If (ResourceNaam'="")
 				{
-					Set:ResourceNaam?1N ResourceNaam="Lijn "_ResourceNaam
-					Do ..OpslaanRecord(Datum, TijdstipVan, TijdstipTot, ResourceNaam, BaseFactor, CorrectieFactor)
+					Set BaseFactor=+$TR($TR(..Reader.Column(KolomNr),",","."),"""")
+					Set CorrectieFactor=0
+
+					Set VanMinuut=$G(..Reader.Column(KolomNr+1))
+					Set TotMinuut=$G(..Reader.Column(KolomNr+2))
+					Set:(VanMinuut="")||(VanMinuut>60)||(VanMinuut<0) VanMinuut=0
+					Set:(TotMinuut="")||(TotMinuut>60) TotMinuut=60
+					Set:TotMinuut=59 TotMinuut=60
+
+					If VanMinuut>0 && (VanMinuut<TotMinuut) ; Voor de pauze
+					{
+						Do ..OpslaanRecord(Datum, Uur, 0, VanMinuut, ResourceNaam, BaseFactor, CorrectieFactor)
+					}
+					If TotMinuut<60 && (VanMinuut<TotMinuut) ; Na de pauze
+					{
+						Do ..OpslaanRecord(Datum, Uur, TotMinuut, 60, ResourceNaam, BaseFactor, CorrectieFactor)
+					}
+					If (VanMinuut=0) && (TotMinuut=60) ; gans uur
+					{
+						Do ..OpslaanRecord(Datum, Uur, 0, 60, ResourceNaam, BaseFactor, CorrectieFactor)
+					}
 				}
 			}
 		}
@@ -75,8 +96,10 @@
 </Method>
 
 <Method name="OpslaanRecord">
-<FormalSpec>Datum:%Date,TijdstipVan:%Integer,TijdstipTot:%Integer,Resource:%String,BaseFactor:%Decimal,CorrectieFactor:%Decimal</FormalSpec>
+<FormalSpec>Datum:%Date,Uur:%Integer,VanMinuut:%Integer,TotMinuut:%Integer,Resource:%String,BaseFactor:%Decimal,CorrectieFactor:%Decimal</FormalSpec>
 <Implementation><![CDATA[
+		Set TijdstipVan=$zth(Uur_":"_$E(100+VanMinuut,2,3))
+		Set TijdstipTot=$zth($S(TotMinuut=60:Uur+1_":00",1:Uur_":"_$E(100+TotMinuut,2,3)))
 		#dim GeplandeCapaciteit as APPS.Halux.Planning.Capaciteit.dto.GeplandeCapaciteit
 		Set GeplandeCapaciteit=##class(APPS.Halux.Planning.Capaciteit.dto.GeplandeCapaciteit).%New()
 		Set GeplandeCapaciteit.Datum=Datum
@@ -87,6 +110,7 @@
 		Set GeplandeCapaciteit.CorrectieFactor=CorrectieFactor
 		Do ..BerekenCapaciteit(GeplandeCapaciteit)
 		Do GeplandeCapaciteit.Save()
+		;Do DumpObject^%apiOBJ(GeplandeCapaciteit)
 		If (Datum'<+$H) && (BaseFactor+CorrectieFactor)>0
 		{
 			Set ^Halux.GeplandeCapaciteit(1,$zcvt(Resource,"U"),Datum,TijdstipVan)=$LB(TijdstipTot,(BaseFactor+CorrectieFactor))
@@ -96,6 +120,8 @@
 </Method>
 
 <Method name="BerekenCapaciteit">
+<Description>
+Bereken capaciteit in seconden volgens de openingstijd in seconden</Description>
 <FormalSpec>GeplandeCapaciteit:APPS.Halux.Planning.Capaciteit.dto.GeplandeCapaciteit</FormalSpec>
 <Implementation><![CDATA[
 	Set Verschil=$$DIFFTIME^vhLib.DataTypes($zdth(GeplandeCapaciteit.TijdstipVan,3),$zdth(GeplandeCapaciteit.TijdstipTot,3),"S")