Clipper On Line • Ver Tópico - como atualizar um EDIT no browse ?

como atualizar um EDIT no browse ?

Projeto HwGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

como atualizar um EDIT no browse ?

Mensagempor Fernando queiroz » 17 Jan 2019 23:37

estou com o seguinte problema , quando edito uma célula do browse e dou enter o novo valor não é gravado no DBF`

oBrowse1:AddColumn( HColumn():New('QUANT', FieldBlock( 'i_qTrib' ) ,'N',14, 4 ,.T.,2,2,'@E 99999999.9999',{|| oBrowse1oColumn5_onLostFocus( ) },,,,,,,,))
*************************************************
STATIC FUNCTION oBrowse1oColumn5_onLostFocus
*************************************************
   SKIP 0
   DBUNLOCK()
   RecLOCK( )
   ITENS->i_vUnTrib   := STR((i_vProd / i_qTrib),14,10)
   SKIP 0
   DBunlock()
   NotaXML:oBrowse1:REFRESHLINE()

   
Return .T.

*************************************************
STATIC FUNCTION RecLock()
*************************************************

DO WHILE ! RLOck()
   INKEY(0.3)
ENDDO
RETURN Rlock()


telasgc.jpg


SE eu teclar enter com o novo valor que foi colocado antes ele faz o calculo usando a nova quantidade

telasgc.jpg
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

como atualizar um EDIT no browse ?

Mensagempor Fernando queiroz » 17 Jan 2019 23:45

coloquei um display para ver o valor do campo no browse e ele esta o anterior mesmo após de ter dado enter

telasgc.jpg
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

como atualizar um EDIT no browse ?

Mensagempor Fernando queiroz » 18 Jan 2019 10:07

Solução encontrada:
trocando o ONLOSTFOCUS da célula por ONUPDATE do browse, resolveu o problema

:% :% :%

@ 21,324 BROWSE oBrowse1 DATABASE OF oGroup1 SIZE 1004,322;
ON POSCHANGE {|| oBrowse1_ONPOSCHANGE( ) } ;
ON UPDATE {|| oBrowse1_onUpdate( ) }

antes estava assim

oBrowse1:AddColumn( HColumn():New('QUANT', FieldBlock( 'i_qTrib' ) ,'N',14, 4 ,.T.,2,2,'@E 99999999.9999',{|| oBrowse1oColumn5_onLostFocus( ) },,,,,,,,))
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes




Retornar para HwGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro