Página 1 de 1
Duvida ->DBSEEK
Enviado: 05 Ago 2010 11:42
por 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!
Re: Duvida ->DBSEEK
Enviado: 05 Ago 2010 12:16
por 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
Re: Duvida ->DBSEEK
Enviado: 05 Ago 2010 13:47
por elituhh
mas eu preciso que busque dentro de tip_setor
Se tiver PCP em tip_setor
Continue Normalmente
Senao
(Aviso)
Fim
Re: Duvida ->DBSEEK
Enviado: 05 Ago 2010 14:19
por 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" ).
Re: Duvida ->DBSEEK
Enviado: 05 Ago 2010 14:30
por 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+
Re: Duvida ->DBSEEK
Enviado: 05 Ago 2010 14:40
por elituhh
Resolvido, Obrigado a todos! :xau
Duvida ->DBSEEK
Enviado: 05 Ago 2010 15:53
por Pablo César
Como resolvido ? Os colegas tentaram te ajudar, o mínimo seria você explicar o que ocorreu.
Re: Duvida ->DBSEEK
Enviado: 06 Ago 2010 09:24
por 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
