add "temporary" TAG in Index ?

[tonton2]

Code: Select all

PROC CreaIndices
LOCAL aExtructura, nFor, cCampo, cIndice, Cais, cBase, cIndice
	Cais:=(cDossier+"\"+cFichier)
	cBase:=cDossier+"\Ind"
	USE &cais 
	aExtructura:=DBSTRUCT()
	FOR nFor=1 TO LEN(aExtructura)
		cCampo :=FIELNAME(nFor)
		cIndice:=cBAse+StrZero(nFor,2)
		INDEX ON &cCampo TO (cIndice) ADDITIVE	
	NEXT
RETURN

[/quote]
Voila ce que je voulais ,
A partir d'une base de donnée quelconque (cBase), je voudrais créer une base de donnée des differents champs avec COPY STRUCTURE EXTENDED (cBase_Champ) , de là créer des fichiers index (index on cBase_Champ->Field_Name to cindice pour recno(1)
index on cBase_Champ->Field_Name to cindice pour recno(2) etc...)

translate from google
Esto es lo que quería,
Desde cualquier base de datos (cBase), me gustaría crear una base de datos de los diferentes campos con COPY STRUCTURE EXTENDED (cBase_Champ), desde allí crear archivos de índice (index on cBase_Champ->Field_Name to cindice pour recno(1)
index on cBase_Champ->Field_Name to cindice pour recno(2) etc...)

[tonton2]

Your example working very good thank's

[tonton2]

Bonjour ,
Aquí está el programa finalizado gracias a la Sr. SALINETAS24 y GRIGORY muchas gracias a ellos.
Here is the program finalized thanks to Mrs SALINETAS24 and GRIGORY big thanks to them
Voila le programme finalisé grâce à Mrs SALINETAS24 et GRIGORY grand merci a eux

[tonton2]

Bonjour ,
Aquí está el programa finalizado gracias a la Sr. SALINETAS24 y GRIGORY muchas gracias a ellos.
Here is the program finalized thanks to Mrs SALINETAS24 and GRIGORY big thanks to them
Voila le programme finalisé grâce à Mrs SALINETAS24 et GRIGORY grand merci a eux

The same example but it is for HMG extended (Minigui) because Edit Extended Minigui is better than HMG.3.4.4

[serge_girard]

Tonton,

de combiens de d'enregistrements dans le fichier il s'agit? A tu essaye LOCATE?
Creer des indexes ça prends du temps aussi..!

Serge