Clipper On Line • Ver Tópico - Erro no Browse -> ONCHANGE

Erro no Browse -> ONCHANGE

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Erro no Browse -> ONCHANGE

Mensagempor Vandi » 24 Jan 2013 20:26

Boa noite,

Mais uma vez venho pedir a ajuda dos colaboradores desse grupo.
Tenho uma rotina com o seguinte browse:

      
     DEFINE TOOLBAR ToolBar_1 BUTTONSIZE 90,32 FONT "Arial" SIZE 9 FLAT RIGHTTEXT
     BUTTON Cerrar    CAPTION _HMG_aABMLangButton[1]  PICTURE "MINIGUI_EDIT_CLOSE"  ACTION Form_1.RELEASE
     BUTTON Nuevo   CAPTION _HMG_aABMLangButton[2]  PICTURE "MINIGUI_EDIT_NEW"  ACTION ( modo:='1', IncluiAltera())
     BUTTON Modificar CAPTION _HMG_aABMLangButton[3]  PICTURE "MINIGUI_EDIT_EDIT"   ACTION ( modo:='2', nRec:=S2->COD2, msginfo(nRec))    //IncluiAltera(nRec*10) )        AUTOSIZE
     BUTTON Eliminar  CAPTION _HMG_aABMLangButton[4]  PICTURE "MINIGUI_EDIT_DELETE" ACTION MsgInfo('rotina4')
     BUTTON Buscar    CAPTION _HMG_aABMLangButton[5]  PICTURE "MINIGUI_EDIT_FIND"   ACTION MsgInfo('rotina5')
     BUTTON Imprimir  CAPTION _HMG_aABMLangButton[16] PICTURE "MINIGUI_EDIT_PRINT"  ACTION MsgInfo('rotina6')
     END TOOLBAR

     @ 50,10 BROWSE Browse_1   ;
     WIDTH 870     ;
     HEIGHT 390    ;   
     HEADERS { 'Codigo' , 'Nome' , 'Empresa' , 'Funcao', 'CTPS', 'Serie' , 'UF' } ;
     WIDTHS { 60 , 264 , 200 , 164 , 70 , 60 , 30 } ;
     WORKAREA S2 ;
     FIELDS { 'S2->Cod2' , 'S2->Name' , 'If( S1->(DbSeek(left(S2->Cod2,3))) , AllTrim(Left(S1->Empr,30)) , Nil )',     'S2->Carg' , 'S2->CTTR' , 'S2->Seri' , 'S2->UfEm' } ;
                 JUSTIFY { BROWSE_JTFY_CENTER ,,,, BROWSE_JTFY_CENTER, BROWSE_JTFY_CENTER, BROWSE_JTFY_CENTER } ;
                 VALUE 1 ;
                 ON CHANGE Actualizar() ;
                 DELETE


A procedure Actualizar é a seguinte:
*****************************
Function Actualizar
***************************************
   
   Form_1.Browse_1.Value := RecNo()

Return Nil


Porém, quando da execução do programa, ao carregar o browse, ocorre o seguinte erro:

BROWSE: Value property can't be changed inside ONCHANGE event.

Alguém pode me dizer como solucionar esse problema?

Agradecimentos,

Gilvandi
Vandi
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 83
Data de registro: 16 Set 2011 23:26
Cidade/Estado: Brasilia-DF
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Erro no Browse -> ONCHANGE

Mensagempor Pablo César » 25 Jan 2013 08:30

Oi Givaldi, experimente utilizar value recno() na definição do seu browser. E na função Actualizar, antes dessa linha coloque dbgoto(Form_1.Browse_1.Value) depois Form_1.Browse_1.Value := RecNo()

Faltou dizer qual é a versão da sua ferramenta.
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5312
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes

Erro no Browse -> ONCHANGE

Mensagempor Vandi » 25 Jan 2013 12:53

Pablo,
Boa tarde...

Mais uma vez, obrigado pela atenção dispensada.
Fiz as alterações como você disse. O erro já não aparece mais, até aí tudo bem. Acontece que tem um detalhe que eu esqueci de dizer anteriormente e continua ocorrendo: na tela do browse quando seleciono qualquer registro e depois clico no botão Editar/Alterar, na tela seguinte aparecem sempre os dados do primeiro registro do arquivo e não os dados do registro que eu selecionei.
Por que motivo isso está ocorrendo?

Agradecimento,

Gilvandi...
Vandi
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 83
Data de registro: 16 Set 2011 23:26
Cidade/Estado: Brasilia-DF
Curtiu: 0 vez
Mens.Curtidas: 1 vez

Erro no Browse -> ONCHANGE

Mensagempor Pablo César » 25 Jan 2013 13:03

Você pode adicionar a sua função de edição para que posicione-se no registro onde está o focus. Na verdade você a seleção é apenas visual. Se a opção de selecionar registros estiver habilitada, você pode tratar os itens selecionados para edição.
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5312
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes

Erro no Browse -> ONCHANGE

Mensagempor Vandi » 29 Jan 2013 15:12

:D Pablo, :D
Boa tarde...

Problema resolvido!!! Apesar de ainda ter quebrado um pouco a cabeça.
Valeu pelas dicas!!!!!!

Obrigado,

Gilvandi
Vandi
Usuário Nível 2

Usuário Nível 2
 
Mensagens: 83
Data de registro: 16 Set 2011 23:26
Cidade/Estado: Brasilia-DF
Curtiu: 0 vez
Mens.Curtidas: 1 vez




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 10 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