PC Toledo

Nada impede de aproveitar algumas coisas de lá, como o TRY...CATCH.
Basta isolar em um arquivo CH seu.

No meu caso, tenho o meu jpa.ch que poderia acrescentar o que achar interessante.
É um ch exclusivo pra meu uso.

Código: Selecionar todos

#command @ <row>, <col> PROMPT <prompt> [ MESSAGE <message> ] => RatPrompt(<row>,<col>,<prompt>)
#command MENU TO <v> => <v> := RatMenuTo(<v>)
#xtranslate MemoWrit( ... )  => Change_MemoWrit_To_hb_MemoWrit( ... )
#xtranslate TempFile( ... )  => Change_TempFile_To_MyTempFile( ... )
#xtranslate Descend( ... ] ) => Change_Descend_To_MyDescend( ... )
#xtranslate XToC( ... )      => Change_Xtoc_To_ToString( ... )
#define DATABASE_DBF      1
#define DATABASE_HBNETIO  2
#define MYSQL_MAX_ALLOWED_PACKET 1000000 // MySQL default 4.194.304
#define MYSQL_LIMIT_RECBACKUP    25000

#define DOW_DOMINGO   1
#define DOW_SEGUNDA   2
#define DOW_TERCA     3
#define DOW_QUARTA    4
#define DOW_QUINTA    5
#define DOW_SEXTA     6
#define DOW_SABADO    7
...

Enviado: **27 Jan 2017 12:55**

Bom dia pessoal

Usei o exemplo de um post anterior, basicamente mudei para quando mudar de coluna alterar o set scope.
Só que deu um branco, não estou conseguindo resolver o problema.
Por exemplo:
Quando uso a teclas e de movimentação e se posiciona em uma coluna que não tem índice.
O que mostra no browse não é a mesma posição do dbf.
E algum refresh na tela para posicionar no registro do dbf.
Vou anexar o arquivo test.prg.

hbmk2 test.prg
Ele ira criar os dados para teste.

Se puderem compilar e ajudar.

Agradeço.

Enviado: **27 Jan 2017 13:09**

É isto?

Enviado: **27 Jan 2017 15:12**

Boa tarde Quintas

Em parte resolveu, agora esta sincronizando tela com o registro.
Mas eu posso te jurar que ja tinha feito isto, mas neste exemplo não coloquei RefreshAll depois da ordena_consulta.
Mas continua um problema quando navego para os lados do tBrowse() ele esta mudando de registro, mostra registro que não estão no filtro.
Mas vou examinar novamente.
Tem dia que parece que estou cego.

Obs.
Só quando navego para os lados e não digito carácter nenhum.
Se digitar ai faz o filtro normalmente.

Obrigado

Enviado: **27 Jan 2017 16:42**

Navegar pro lado não é o que muda ordem? E o filtro não é cFiltro?
Se zera cFiltro, de que outro filtro está falando?

Código: Selecionar todos


FUNCTION Ordena_Consulta( aMatriz, nOrdena )

   LOCAL nRecno := RecNo()

   IF aMatriz[ nOrdena, 3 ] != NIL
      dbSetOrder( aMatriz[ nOrdena, 3 ] )
      dbGoTop()
      dbGoto( nRecno )
   ENDIF
   cFiltro  := ""

   RETURN .T.

PC Toledo

Erro no Tbrowse

Erro no Tbrowse

Erro no Tbrowse

Erro no Tbrowse

Erro no Tbrowse

Erro no Tbrowse