Erro com Janela Tbrowse

[Poka]

Olá a todos.

Será que alguém poderia dar uma olhada nessas rotinas. Já quebrei a cabeça e não achei o erro.

O erro é o seguinte:

Quando vou para a terceira janela e dou esc para sair, executo janela.release, e ele esta voltando diretamente para a janela anterior, gerando o erro. Se desativar a rotina rc_duplicataCopia() para não gerar a o arquivo temporario, desativar as linhas que utilizam o arquivo temporário na rotina rc_lancaOutros.prg o erro não ocorre.

Se alguém puder dar uma ajuda aí, agradeço.

Segue anexo

Poka

[alxsts]

Olá!

Poderia incluir o anexo ou postar o código?

[Poka]

Desculpe, achei que tivesse anexado.

Poka

[Toledo]

Poka, faça as seguintes alterações no seu programa:

No arquivo rc_browse procure por:

Código: Selecionar todos

rc_lancaOutros( (xarqpesq)->docum)+(xarqpesq)->codcli ;

e troque por:

Código: Selecionar todos

rc_lancaOutros( (xarqpesq)->docum+(xarqpesq)->codcli) ;

No arquivo rc_lancaOutros procure por:

Código: Selecionar todos

stat func Fsair
   telaX.release

retu nil

e troque por:

Código: Selecionar todos

stat func Fsair
   Select recegnf
   telaX.release
retu nil

Abraços,

[Poka]

Olá Toledo

rc_lancaOutros( (xarqpesq)->docum)+(xarqpesq)->codcli ;

essa linhao no sistema original estava correta. Ao passar para o teste acabei escrevendo errado.

O problema mesmo estava em

Select recegnf
antes de
telaX.release

Quantas horas perdidas, se tivesse peguntado antes..

Problema resolvido

Obrigado Toledo.

Poka

[Poka]

Olá a todos,

Estou aproveitando este tópico, pois tenho algumas duvidas com o tbrowse, que vou perguntar em outra ocasião.O problema agora é outro.

Estive lendo em outro tópico sobre a cláusula Valid.

As vezes tenho problemas com o valid no getbox. Tem que ser o Valid mesmo , não gosto muito do On LostFocus.

Problema:
O valid não vai para a função, e agora nessa rotina de teste, outro problema, além de não ir para a função quando está no campo, ao entrar na rotina <outros lançamentos> já entra direto na função antes de entrar no campo.

Não estou conseguindo ver onde está o erro.

Alguém pode dar uma luz para resolver esse problema.

Grato

Poka

[Poka]

Tinha esquecido do arquivo.


Poka

[Toledo]

Poka, no GETBOX procure utilizar sempre um codeblock no VALID, por exemplo:

Código: Selecionar todos

valid { || teste() }

O GETBOX deve ter algum bug quando se cria um formulário com apenas um GETBOX, você pressiona a tecla ENTER (ou TAB) e o foco não sai do GETBOX e nem executa a função em VALID.

No seu exemplo, se você colocar o BOTÃO BTesc (ESC - Sai) depois (uma linha baixo) do GETBOX e sem a opção NOTABSTOP, ai a função do VALID é executada quando se pressionar ENTER no GETBOX.

Abraços,