PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 24 → 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.
Débuté par adrianoboller, 08 mar. 2016 23:09 - 1 réponse
Membre enregistré
2 907 messages
Popularité : +89 (91 votes)
Posté le 08 mars 2016 - 23:09
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/
Membre enregistré
2 907 messages
Popularité : +89 (91 votes)
Posté le 29 juin 2016 - 23:11
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/
Message modifié, 29 juin 2016 - 23:13