Index: APPS/PM/Vertaling/ExcelImport.cls.xml
===================================================================
diff -u -r31082 -r31106
--- APPS/PM/Vertaling/ExcelImport.cls.xml	(.../ExcelImport.cls.xml)	(revision 31082)
+++ APPS/PM/Vertaling/ExcelImport.cls.xml	(.../ExcelImport.cls.xml)	(revision 31106)
@@ -19,9 +19,12 @@
 <Implementation><![CDATA[
 	#define TAB $C(9)
 	
-	Set Tijdstip = ""
+	#dim Status As %Status
+	#dim Tijdstip As %String = ""
 	If (DatumVanExport '= "") Set Tijdstip = $zdth(DatumVanExport_" 00:00",4)
 	
+	Write !,"Import from file : "_FileLocation,!
+	
 	If ('##class(%File).Exists(FileLocation))
 	{
 		w "Bestand bestaat niet!"
@@ -36,39 +39,42 @@
 	}
 	
 	// Lees de header
-	Set Hoofding = Stream.ReadLine()
-	Set lbPieced = $$PiecesToList^vhLib(Hoofding,$$$TAB)
+	#dim Hoofding As %String = Stream.ReadLine()
+	#dim lbPieced As %String = $$PiecesToList^vhLib(Hoofding,$$$TAB)
+	#dim lbTalenInHoofding As %List = $LI(lbPieced,3,999)
+	#dim i As %Integer
+	#dim Taal As %String
 	
 	// Kolom 1 = Key, Kolom 2 = Type, Kolom > 2 = Talen
-	for i = 3:1:$ListLength(lbPieced) {
-		Set Taal(i-2) = ##class(Res.PI.Taal).LongToShort($LG(lbPieced,i))
+	for i = 1:1:$ListLength(lbTalenInHoofding) {
+		Set Taal(i) = ##class(Res.PI.Taal).LongToShort($LG(lbTalenInHoofding,i))
 	}
 	
-	Set TaalImportIndexen = ""
+	#dim lbTaalKolomIndexen As %List = ""
 	If (ImportAlleTalen)
 	{
-		For i=3:1:$ListLength(lbPieced) Set:("" '= $ListGet(lbPieced,i)) TaalImportIndexen = TaalImportIndexen_$ListBuild(i)
+		For i=3:1:$ListLength(lbPieced) Set:("" '= $ListGet(lbPieced,i)) lbTaalKolomIndexen = lbTaalKolomIndexen_$ListBuild(i)
 	}
 	Else
 	{
-		Set TaalImportIndexen = $ListBuild(4)
+		Set lbTaalKolomIndexen = $ListBuild(4)
 	}
-	Write "Aantal talen te importeren: ", $ListLength(TaalImportIndexen)
+	Write "Aantal talen te importeren: "_ $ListLength(lbTalenInHoofding)_" "_$$$LCVT(lbTalenInHoofding)
 	
 	#Dim AantalVertalingenGeimporteerd As %Integer = 0
 	#Dim AantalVertalingenGewijzigd As %Integer = 0
 	
 	While ('Stream.AtEnd) {
-		Set Line=Stream.ReadLine()
+		#dim Line As %String = Stream.ReadLine()
 		if ($$$Trim(Line) '= "")
 		{			
-			For i=1:1:$ListLength(TaalImportIndexen)
+			For i=1:1:$ListLength(lbTaalKolomIndexen)
 			{
-				Set TaalIndex = $ListGet(TaalImportIndexen,i)
-				Set TaalCode = Taal(TaalIndex-2)
-				Set Vertaling = $Piece(Line,$$$TAB,TaalIndex)
-				Set Intern = $Piece(Line,$$$TAB,1)
-				Set Type = $Piece(Line,$$$TAB,2)
+				#dim TaalKolomIndex As %Integer = $ListGet(lbTaalKolomIndexen,i)
+				#dim TaalCode As %String = Taal(TaalKolomIndex-2)
+				#dim Vertaling As %String = $Piece(Line,$$$TAB,TaalKolomIndex)
+				#dim Intern As %String = $Piece(Line,$$$TAB,1)
+				#dim Type As %String = $Piece(Line,$$$TAB,2)
 				
 				If ((VertaalGroep '= "") && (Intern '= "") && (Type '= "") && (TaalCode '= ""))
 				{
@@ -119,6 +125,7 @@
 	w !!,"... Import beëindigd"
 	w !, "Aantal vertalingen verwerkt : ", AantalVertalingenGeimporteerd
 	w !, "Aantal vertalingen effectief gewijzigd : ", AantalVertalingenGewijzigd
+	w !, "******************************",!
 ]]></Implementation>
 </Method>