- Arreglo de la información de los índices que se había desacomodado por ordenarlos alfabéticamente

- Arreglo del test de índices para que no tenga en cuenta el orden de los mismos, sino su estructura
- Nueva vista local offline para testear la BDD

foxbin2prg.prg

@@ -20919,24 +20919,30 @@ DEFINE CLASS CL_DBF_INDEX AS CL_CUS_BASE
 	PROCEDURE toText
 		*---------------------------------------------------------------------------------------------------
 		* PAR<41>METROS:				(v=Pasar por valor | @=Pasar por referencia) (!=Obligatorio | ?=Opcional) (IN/OUT)
-		* taTagInfo					(@? IN    ) Array de informaci<63>n de indices
-		* I							(@? IN    ) Indice en evaluaci<63>n
+		* taTagInfo					(@! IN    ) Array de informaci<63>n de indices
+		* I							(@! IN    ) Indice en evaluaci<63>n
 		*---------------------------------------------------------------------------------------------------
 		LPARAMETERS taTagInfo, I
 
 		EXTERNAL ARRAY taTagInfo
 
 		TRY
-			LOCAL I, lcText, loEx AS EXCEPTION
+			LOCAL X, lcText, loEx AS EXCEPTION
 			lcText	= ''
+			
+			FOR X = 1 TO ALEN(taTagInfo,1)
+				IF TAG('', X) == taTagInfo(I,1) THEN
+					EXIT
+				ENDIF
+			ENDFOR
 
 			TEXT TO lcText TEXTMERGE NOSHOW FLAGS 1+2 PRETEXT 1+2
 				<<>>		<INDEX>
 				<<>>			<TagName><<taTagInfo(I,1)>></TagName>
-				<<>>			<TagType><<ICASE(LEFT(taTagInfo(I,2),3)='BIN','BINARY',PRIMARY(I),'PRIMARY',CANDIDATE(I),'CANDIDATE',UNIQUE(I),'UNIQUE','REGULAR'))>></TagType>
+				<<>>			<TagType><<ICASE(LEFT(taTagInfo(I,2),3)='BIN','BINARY',PRIMARY(X),'PRIMARY',CANDIDATE(X),'CANDIDATE',UNIQUE(X),'UNIQUE','REGULAR'))>></TagType>
 				<<>>			<Key><<taTagInfo(I,3)>></Key>
 				<<>>			<Filter><<taTagInfo(I,4)>></Filter>
-				<<>>			<Order><<IIF(DESCENDING(I), 'DESCENDING', 'ASCENDING')>></Order>
+				<<>>			<Order><<IIF(DESCENDING(X), 'DESCENDING', 'ASCENDING')>></Order>
 				<<>>			<Collate><<taTagInfo(I,6)>></Collate>
 				<<>>		</INDEX>
 			ENDTEXT