Autor Tópico: Atualizar tela  (Lida 3203 vezes)

Sergio

  • Newbie
  • *
  • Mensagens: 43
  • Karma: +0/-0
Atualizar tela
« Online: Janeiro 22, 2014, 12:07:59 pm »
Ola a Todos

Minha dúvida é a seguinte: Quando e clico no botão salvar eu estou atualizando um campo em outra tabela. Quando clico no botão novo ele teria que pegar o conteúdo do campo atualizado só que isso não acontece, tenho que fecha a tela e abrir novamente para ele pegar o conteúdo do campo atualizado
No windev o comando TableDisplay atualiza o conteúdo da tabela!
Gostaria que além de atualizar a tabela que tela também seja atualizada.

Alguém tem uma ideia de como proceder.

Sem mais

Etcoelho

  • Jr. Member
  • **
  • Mensagens: 52
  • Karma: +0/-0
Re:Atualizar tela
« Responder #1 Online: Janeiro 22, 2014, 12:46:37 pm »
Use "FileToScreen()" apos a atualização.

Os campos tem que esta linkados.

Arlindo Reis

  • Sr. Member
  • ****
  • Mensagens: 291
  • Karma: +0/-0
Re:Atualizar tela
« Responder #2 Online: Janeiro 22, 2014, 04:34:50 pm »
Sua tabela precisa ter um select solicitando as informações que você deseja,

cada vez que for salvar e quiser recuperar os dados faça um seek, armazenando a ID daquele último registro incluído naquele instante e utilize o FiletoPage() ou FiletoScreen() para carregar nos campos e para tabela TableDisplay(SuaTabela,taStart)!

Exemplo:

Código: [Selecionar]

HExecuteQuery(SuaQuery,hQueryDefault)
HReadFirst(SuaQuery)
TableDisplay(Suatabela,taStart)

//...

sVariavel = SuaTabela[indice].COL_ID

HReadSeek(tabelaBD,ID,sVariavel,hIdentical)
IF HFound() = True THEN FileToPage()


PauloViana

  • Full Member
  • ***
  • Mensagens: 104
  • Karma: +0/-0
Re:Atualizar tela
« Responder #3 Online: Janeiro 22, 2014, 05:11:45 pm »
para limpar os campos do form

hreset()
filetoscreeen()

se houver alguma table carregada por query é necessário iniciarlizar esta query com um valor

qry_teste.filtro=""
tabledisplay(minhatable)


att

Paulo Viana

Sergio

  • Newbie
  • *
  • Mensagens: 43
  • Karma: +0/-0
Re:Atualizar tela
« Responder #4 Online: Janeiro 24, 2014, 10:36:43 am »
Ola

Eu consegui identificar o problema. Em vez de usar esse código em end of initialization of da tela

HReadFirst(paramentros, codigo_parametros)
IF HFound(paramentros) = True THEN
   gAno = paramentros.ano
   gSeq = paramentros.seq_identificador
ELSE
   Error(“Erro ao acessar o Parâmetro”)
END

//
EDT_Ano = gAno
//
EDT_Id_identificador = gSeq + 1

Coloquei ele no botão novo e resolveu o problema

Grato a todos.