PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → Wx - Voltar ao registro no Browser List apos incluir ou alterar um registro por um Form Update ao usar Querys e nao tables.
Wx - Voltar ao registro no Browser List apos incluir ou alterar um registro por um Form Update ao usar Querys e nao tables.
Iniciado por adrianoboller, mar., 08 2016 11:09 PM - 1 resposta
Membro registado
3.659 mensagems
Popularité : +175 (223 votes)
Publicado em março, 08 2016 - 11:09 PM
Prezados,

Segue aqui um passo a passo de como voltar o ponteiro, FOCO, ou melhor, ao registro atual selecionado no BrowserList (Looper, Table) após incluir ou alterar um registro por um FormUpdate ao usar Querys e não tables, focando exatamente no registro em questão.

Esse passo a passo foi feito pelo Empresario e Desenvolvedor Jacques Bicas que cedeu para colocar no fórum a informação e assim contribuir com a comunidade.

Vamos lá ao passo a passo:

Isto vale para quando a table é populada manualmente ou não está linkada a database TABLE, quando o Browserlist foi feito via query, view, etc.

1) Criei uma variável global (do tipo VARIANT) e ao fechar o o FORM posiciona o ID da tabela que foi alterada (cliente, fornecedor, produto, etc)





//RESERVA POSICAO
gvNovoRegistro = CADTRANSPORTADORAS.TRANSPORTADORA


2) No botão incluir ou alterar uso o código abaixo:





// Botao incluir e alterar
gvNovoRegistro = CADTRANSPORTADORAS.TRANSPORTADORA







//Retorna Foco ao Registro

sRetorno is string = Open(Win_cadastro_CNPJCPF, "T")

IF sRetorno > "" THEN

IF Open(gsNomeForm,1,sRetorno) THEN

TableSelectPlus(Table_Cadastro, TableSeek(Table_Cadastro.Col_Codigo, gvNovoRegistro, True))

END

END



COMPLEMENTO DESSE POST:

http://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/931-capturar-click-browse-list/read.awp…

SE GOSTOU DA UM LIKE

Forte abraço a todos e muito obrigado Jacques por compartilhar seu conhecimento.

Sucesso a todos

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.blogspot.com.br/
Membro registado
3.659 mensagems
Popularité : +175 (223 votes)
Publicado em junho, 29 2016 - 11:11 PM
Procedure Refresh
LooperDisplay(WIN_OS_03Roteiro.LOOP_QRY_T022Roteiro,taReExecuteQuery)
LooperDisplay(WIN_OS_03Roteiro.LOOP_QRY_T022Roteiro,taInit)


Procedure Refresh
TableDisplay(WIN_OS_03Roteiro.TABLE_QRY_T022Roteiro,taReExecuteQuery)
TableDisplay(WIN_OS_03Roteiro.TABLE_QRY_T022Roteiro,taInit)


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Mensagem modificada, junho, 29 2016 - 11:13 PM