PC Toledo

Código: Selecionar todos

  Xprocura := Space(40)
  @ 11, 21 get Xprocura picture "@K!" 
  read
  if (LastKey() == 27)          
     return 1
  endif       
     Js:=savescreen(0,0,24,79)
     Tam := Len(Alltrim(Xprocura))
     Vetor := {}
     Select PRODUTOS
     Go top
     Achou := .f.
     
     Do While !eof()

        For i:=1 to 40
           If i+Tam > 40
              Exit
           endif           
           If Subst(NomeProduto,i,Tam) = Alltrim(Xprocura)
              aadd(Vetor,CodProduto+'│'+NomeProduto)
              Achou:=.t.
              Exit
           Endif
        Next
        Skip
     Enddo
   If Achou
      Xp:=Escolhe:=1      
      Do While .t.
         LTest := array(len(Vetor))
         @ 04,04 to 06,76 color 'b+/w'   
         afill( ltest, .T. )
         Escolhe:=achooice(7,4,21,76, Vetor, ltest, 1,cabeca )  
         if Escolhe = 0 //Se pressionou a tecla            
            Exit
         else  //Se pressionou ENTER 
            tPES:=Savescreen(0,0,24,79)
            Select Produtos
            Set order to 1
            Seek subst(Vetor[Escolhe],1,5)             
            
            RestScreen(0,0,24,79,tpes)
            Exit
         Endif
      Enddo
   Else
      ALERT('« ALERTA »;;Näo há produto com este nome')
   Endif
   restscreen(0,0,24,79,Js) //Retorna a tela salva anterior.