Duvida ->DBSEEK

[elituhh]

Bom, eu nao sei onde esta o erro, é que quando eu vou entrar em "GERAR OP" devieria verificar se o tipo de movimento fosse igual a PCP, quando eu vou fazer isso ele só passa no ELSE, veja codigo!

Código: Selecionar todos

OPEN(EMP_CAMINH,"SGI058","C","Tip_Setor",0,1) 
  IF DBSeek(M->Tip_Setor == "PCP")
     Return (.t.)
  ELSE
     Disp_Aviso("Movimento não aceito neste setor")
  ENDIF

Ali no IF eu nao sei se esta certo, eu quero dizer mais ou menos isso: "continue o processo...", coloquei um return (.t.) mais nao sei se esta certo, aguardo resposta!

Obrigado!

[alxsts]

Olá!

DbSeek() executa a busca do valor passado como parâmetro no índice ativo. Do modo como você esta fazendo, ele está buscando no índice o valor (lógico) da comparação M->Tip_Setor == "PCP".

Voce precisa passar o valor que está buscando. A função retornará .T. se encontrou ou .F. se não encontrou.

Código: Selecionar todos

OPEN(EMP_CAMINH,"SGI058","C","Tip_Setor",0,1) 

  Local Tip_Setor := "PCP"

  IF DBSeek( Tip_Setor)
     Return (.t.)
  ELSE
     Disp_Aviso("Movimento não aceito neste setor")
  ENDIF

[elituhh]

mas eu preciso que busque dentro de tip_setor
Se tiver PCP em tip_setor
Continue Normalmente
Senao
(Aviso)
Fim

[alxsts]

Olá!

Mas o que é "Tip_Setor"?

Se é um campo da tabela, o índice tem que ser por este campo. Então é só fazer DbSeek( "PCP" ).

[ANDRIL]

Amigo, o que o Alxsts postou não serviu? Olhando o seu codigo, somente o trecho postado, podemos imaginar diversas situações que queira fazer. Mais também achei o mesmo postado pelo colega Alxsts.

Veja isto então.

Código: Selecionar todos

*--Variavel local deve ser declarada no inicio da funcao antes
*--de outras declaracoes, porem nao sera usada aqui neste exemplo
01 Local Tip_Setor := "PCP"  
02 
03        OPEN(EMP_CAMINH,"SGI058","C","Tip_Setor",0,1)
04	 
05	  IF !DBSeek( "PCP" )
06	     Disp_Aviso("Movimento não aceito neste setor")
07	     return .f.
08	  ENDIF   
09	  
*--aqui vc coloca o resto do seu codigo caso a procura retorno .t.

Ate+

[elituhh]

Resolvido, Obrigado a todos! :xau

[Pablo César]

Como resolvido ? Os colegas tentaram te ajudar, o mínimo seria você explicar o que ocorreu.

[elituhh]

Pablo eu sei que vc nao via mto com minha cara, deixa eu explicar, é que eu ja consegui resolver o problema, se vc ler mais acima, EU EXPLIQUEI!!
Obg a todos