PREGUNTAS CONTESTADAS - Clipper/FiveWin

   kInd:="AL__Vari->Tipo+Al__Vari->CODvar"       // 1ra key

   tInd:=AL_Vari     // tag

   fInd:=AL_Vari     // File

   IndMeter(kInd,tInd,fInd) 



   kInd:="AL__Vari->NomVar"                      //  2da key

   tInd:=AL_Varin     // tag

   fInd:=AL_Vari     // File

   IndMeter(kInd,tInd,fInd) 



SET INDEX TO &AL_VARI  

///////

//

///////////////////////////

//

function IndMeter()

   MsgMeter( { | oMeter, oText, oDlg, lEnd | ;

             BuildIndex( oMeter, oText, oDlg, @lEnd ) },;

             "cMsg Building the Index...",tInd )

return nil

//

//

function BuildIndex( oMeter, oText, oDlg, lEnd )

   oMeter:nTotal = RecCount()

*?kind,tind,find

   INDEX ON &kInd TAG &tInd TO &fInd ;

      EVAL ( oMeter:Set( RecNo() ), ;

             oText:setText( "Espere, por favor..."+ ;  // cambia el cMsg

                ltrim(str(recno()))+"/"+ltrim(str(lastrec())) ), ;

             SysRefresh(), ;

             ! lEnd ) ;

      EVERY 10

return nil