Index: APPS/Halux/Planning/Pitching/impl/ImportFromXLS.cls.xml
===================================================================
diff -u -r52358 -r57301
--- APPS/Halux/Planning/Pitching/impl/ImportFromXLS.cls.xml	(.../ImportFromXLS.cls.xml)	(revision 52358)
+++ APPS/Halux/Planning/Pitching/impl/ImportFromXLS.cls.xml	(.../ImportFromXLS.cls.xml)	(revision 57301)
@@ -30,64 +30,56 @@
 
 <Method name="InitialiseReader">
 <Implementation><![CDATA[
-	Set ..Reader=##class(TECH.FileReader).%New("\\notes01\shared\halux\planning\Productie pitching.txt")
+	Set ..Reader=##class(TECH.FileReader).%New("\\notes01\shared\halux\planning\Batch sequentie export from XLS.txt")
 	/// Do reader.SetDelimiter($C(9)) ; optioneel, default is TAB
-	Do ..Reader.SetHeaderRow(2)
-	Do ..Reader.SetFirstDataRow(3)
+	Do ..Reader.SetHeaderRow(1)
+	Do ..Reader.SetFirstDataRow(2)
 	/// Do reader.SetTranslateHeader2UpperCase() ; optioneel, default=0
 	/// Do reader.AddHeaderTranslation(From, To, DataType) ; optioneel, 1 per translatie
 ]]></Implementation>
 </Method>
 
 <Method name="ImportXLS">
-<FormalSpec>BatchID:TECH.String</FormalSpec>
 <Implementation><![CDATA[
-	#dim Batch as %String
+	#dim BatchId as %String
 	#dim Lijn as %Integer
-	#dim Opmerking as %Decimal
-
-	#dim AantalVeldenPerLijn as %Integer=2
-	#dim Volgorde as %Integer=0
+	#dim Pitchorde as %Integer=0
+	#dim Opmerking as %String
+	Do ..ActiefActiveerAllen()
 	
 	While ..Reader.Next()
 	{
-		Set Volgorde=Volgorde+1
-		For Lijn=1:1:4
-		{
-			Set Batch=..Reader.Column((Lijn-1)*AantalVeldenPerLijn+1)
-			Set Opmerking=..Reader.Column((Lijn-1)*AantalVeldenPerLijn+2)
-			If Batch?3.N
-			{
-				Do ..OpslaanRecord(Lijn, Volgorde, Batch,Opmerking)
-			}
-		}
+		Set BatchId=..Reader.Data("BatchID")
+		Set Lijn=..Reader.Data("Lijn")
+		Set Pitchorde=..Reader.Data("VolgNummer")
+		Set Opmerking=""
+		Do ..OpslaanRecord(Lijn, Pitchorde, BatchId,Opmerking)
 	}
-    Do ..SwitchActief()
+    Do ..ActiefInverteerAllen()
     Do ..VerwijderOude()
 ]]></Implementation>
 </Method>
 
 <Method name="OpslaanRecord">
-<FormalSpec>Lijn:%Integer,Volgorde:%Integer,BatchLastKar:%String,Opmerking:%String</FormalSpec>
+<FormalSpec>Lijn:%Integer,Pitchorde:%Integer,BatchId:%String,Opmerking:%String</FormalSpec>
 <Implementation><![CDATA[
-		#dim BatchVolgorde as BatchVolgorde
-		Set GeplandeCapaciteit=##class(BatchVolgorde).%New()
-		Set GeplandeCapaciteit.Lijn=Lijn
-		Set GeplandeCapaciteit.Volgorde=Volgorde
-		Set GeplandeCapaciteit.CreatieTijdstip=..CreatieTijdstip
-		Set GeplandeCapaciteit.BatchLastKar=BatchLastKar
-		Set GeplandeCapaciteit.Opmerking=Opmerking
-		Set GeplandeCapaciteit.Actief=0
-		Set BatchId=..ZoekBatchFromLastKar(BatchLastKar)
-		If BatchId
+		#dim BatchPitching as BatchPitched
+		If ##class(APPS.Halux.common.impl.BatchImpl).%ExistsId(BatchId)
 		{
-			Do GeplandeCapaciteit.BatchSetObjectId(BatchId)
-			Do GeplandeCapaciteit.Save()	
+			Set BatchPitching=##class(BatchPitched).%New()
+			Do BatchPitching.BatchSetObjectId(BatchId)
+			Set BatchPitching.Actief=0
+			Set BatchPitching.Lijn=Lijn
+			Set BatchPitching.ResourceId=$S(Lijn?1N:"Lijn "_Lijn,1:Lijn)
+			Set BatchPitching.Pitchorde=Pitchorde
+			Do BatchPitching.Save()	
 		}
 ]]></Implementation>
 </Method>
 
 <Method name="ZoekBatchFromLastKar">
+<Description>
+overbodig, er wordt geen verkorte ingave gedaan van de batch id</Description>
 <FormalSpec>BatchLastKar:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set rs=##class(TECH.ResultSet).%New("%DynamicQuery:SQL")
@@ -102,18 +94,21 @@
 ]]></Implementation>
 </Method>
 
-<Method name="SwitchActief">
-<Implementation><![CDATA[
-	Set Tijdstip=..CreatieTijdstip
-	&SQL( update APPS_HaLux_Planning_Pitching_impl.BatchVolgorde set Actief = case when CreatieTijdstip=:Tijdstip then 1 else 0 END)
+<Method name="ActiefActiveerAllen">
+<Implementation><![CDATA[	&SQL(Update APPS_Halux_Planning_Pitching_impl.BatchPitched Set Actief=1)
 ]]></Implementation>
 </Method>
 
+<Method name="ActiefInverteerAllen">
+<Implementation><![CDATA[	&SQL(Update APPS_Halux_Planning_Pitching_impl.BatchPitched Set Actief=case Actief when 1 then 0 else 1 end)
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderOude">
 <Implementation><![CDATA[
 	Set Tijdstip=$$$Timestamp($h-1)
 
-	;&SQL( delete APPS_HaLux_Planning_Pitching_impl.BatchVolgorde where CreatieTijdstip<:Tijdstip and Actief=0 )
+	&SQL( delete APPS_HaLux_Planning_Pitching_impl.BatchPitched where Actief=0 )
 ]]></Implementation>
 </Method>
 </Class>