Jump to content
Fivewin Brasil

LISTBOX A SAGA TEM QUE CONTINUAR...

nancouto

By nancouto
in Programação

 Share

Recommended Posts

nancouto Newbie

nancouto

Posted
Posted

Amigos, estou com um problema no meu listbox. Explico: Criei um folder com três abas, na primeiro abro o banco de dados com listbox contendo os cadastro de clientes feitos anteriormente; na segunda aba, abro os campos para atualização; até ai tudo bem, funciona tudo. Mas, na terceira aba, quero condensar as informações com o SAY lendo os campos do banco de dados, só que não dá certo, pois o que é mostrado não é o registro corrente. Como resolver isso???

NANCOUTO - FHW 6.02 BCC HARBOUR 6.02 PELLEC

Link to comment
Share on other sites
nancouto Newbie

nancouto

Posted
  • Author
Posted

Amigos, estou com um problema no meu listbox. Explico: Criei um folder com três abas, na primeiro abro o banco de dados com listbox contendo os cadastro de clientes feitos anteriormente; na segunda aba, abro os campos para atualização; até ai tudo bem, funciona tudo. Mas, na terceira aba, quero condensar as informações com o SAY lendo os campos do banco de dados, só que não dá certo, pois o que é mostrado não é o registro corrente. Como resolver isso???

NANCOUTO - FHW 6.02 BCC HARBOUR 6.02 PELLEC

Link to comment
Share on other sites
Luiz Arruda (ICO) Newbie

Luiz Arruda (ICO)

Posted
Posted

Boa Noite..

Eu faço isso em 4 abas e não tenho problemas..

na 1º pego todos os dados cadastrais do funcionário, na segunda.. todas as alterações de holerite, na 3º efetuo os lançamentos da folha e na 4º visualizo as operações realizadas na conta do mesmo funcionário.

Mostre seu código, alguma coisa tá errado nele..

Abraços..

e Boa noite... icon_smile_big.gif

Luiz Arruda

Corumbá-MS

ico.corumba@gmail.com | TWT: @ico_Luiz

21182795.png

FiveWin 9.04

[x]Harbour

PellesC

Bcc Ws

Para saber o que vem pela frente, fale com quem está voltando

Link to comment
Share on other sites
Theotokos Apprentice

Theotokos

Posted
Posted

Será que qdo vc aciona a terceira aba, vc não esta movendo o ponteiro do registro? é com DBF que vc esta usando? tente amazenar a posição do registro atual em uma variável, e qdo vc for atribuir as variaveis para o SAY's posicione novamente o registro no arquivo "Dbgoto(nPos)"...

citação:

Amigos, estou com um problema no meu listbox. Explico: Criei um folder com três abas, na primeiro abro o banco de dados com listbox contendo os cadastro de clientes feitos anteriormente; na segunda aba, abro os campos para atualização; até ai tudo bem, funciona tudo. Mas, na terceira aba, quero condensar as informações com o SAY lendo os campos do banco de dados, só que não dá certo, pois o que é mostrado não é o registro corrente. Como resolver isso???

NANCOUTO - FHW 6.02 BCC HARBOUR 6.02 PELLEC

id=quote>id=quote>

Perfil.jpg

Link to comment
Share on other sites
nancouto Newbie

nancouto

Posted
  • Author
Posted

Amigo ICO, por gentileza olhe meu código, não sei onde está o erro.

redefine listbox oLbx fields PACIENTE->CODIGO,PACIENTE->NOMECOMPL ,;

PACIENTE->FONETRABA,PACIENTE->FONECASA_,;

PACIENTE->FONECELU_ ;

fieldsizes 56,360,112,112,112 ;

headers "Cód nº","Identificação","Trabalho","Casa","Celular" update id 4001 of oFld:aDialogs[1] ;

colors Branco, Branco ;

on change ( oDbf:Load(), oFld:aDialogs[2]:UpDate(), oFld:aDialogs[2]:aControls[1]:Disable() )

/* ____

Atualização do listbox

________________________________________________________________________ */

oLbx:setfont(oFont)

oLbx:cTooltip := "Selecione o paciente desejado"

oLbx:nClrBackHead := Ciano_Escuro // Cor do fundo do cabeçalho

oLbx:nClrForeHead := Branco // Cor do texto do cabeçalho

oLbx:nClrText := Azul_Escuro // Cor do texto da tabela

oLbx:nClrPane := Branco // Cor do fundo da tabela

oLbx:nClrForeFocus:= Branco // Cor do texto da barra ativa

oLbx:nClrBackFocus:= Ciano_Escuro // Cor do fundo barra ativa

oLbx:lCellStyle := .F. // Habilita as colunas independentes

/* ________

Aba - Dados do Cadastro

_________________________ */

redefine get oDbf:CODIGO ID 4003 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro

redefine get oDbf:NOMECOMPL ID 4004 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:ENDERECO_ ID 4007 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:NUMERO ID 4008 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:BAIRRO ID 4010 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font OFont

redefine get oDbf:COMPLEMEN ID 4012 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:CEP ID 4016 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:CIDADE ID 4017 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:UF ID 4018 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:PROFISSAO ID 4025 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:LOCALTRAB ID 4026 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:FONETRABA ID 4027 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:FONECASA_ ID 4028 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:FONECELU_ ID 4029 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:E_MAIL ID 4031 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine say oSay prompt "Estado Civil?" id 4033 of oFld:aDialogs[2] color Azul_Claro font oFont

redefine get oDbf:DATANASC_ ID 4038 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:CPF ID 4040 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:RG ID 4043 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:ORGAOESP ID 4044 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine say oSay prompt "Informações do Paciente:" id 4045 of oFld:aDialogs[2] color Azul_Claro font oFont

redefine get oDbf:INDICAC_ ID 4057 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

/* ___________________________________

Aba - Complemento

__________________ */

**** Aqui está o rolo todo ****

redefine say oSay var oDbf:CODIGO ID 4003 of oFld:aDialogs[3] color Azul_Escuro font oFont

redefine say oSay var oDbf:NOMECOMPL ID 4005 of oFld:aDialogs[3] color Azul_Escuro font oFont

redefine say oSay var alltrim(oDbf:ENDERECO_)+", n.º "+oDbf:NUMERO ID 4006 of oFld:aDialogs[3] Color Azul_Escuro font oFont

Obrigado.

NANCOUTO

Link to comment
Share on other sites
nancouto Newbie

nancouto

Posted
  • Author
Posted

citação:

Boa Noite..

Eu faço isso em 4 abas e não tenho problemas..

na 1º pego todos os dados cadastrais do funcionário, na segunda.. todas as alterações de holerite, na 3º efetuo os lançamentos da folha e na 4º visualizo as operações realizadas na conta do mesmo funcionário.

Mostre seu código, alguma coisa tá errado nele..

Abraços..

e Boa noite... icon_smile_big.gif

Luiz Arruda

Corumbá-MS

ico.corumba@gmail.com | TWT: @ico_Luiz

21182795.png

FiveWin 9.04

[x]Harbour

PellesC

Bcc Ws

Para saber o que vem pela frente, fale com quem está voltando

id=quote>id=quote>

Amigo ICO, por gentileza olhe meu código, não sei onde está o erro.

redefine listbox oLbx fields PACIENTE->CODIGO,PACIENTE->NOMECOMPL ,;

PACIENTE->FONETRABA,PACIENTE->FONECASA_,;

PACIENTE->FONECELU_ ;

fieldsizes 56,360,112,112,112 ;

headers "Cód nº","Identificação","Trabalho","Casa","Celular" update id 4001 of oFld:aDialogs[1] ;

colors Branco, Branco ;

on change ( oDbf:Load(), oFld:aDialogs[2]:UpDate(), oFld:aDialogs[2]:aControls[1]:Disable() )

/* ____

Atualização do listbox

________________________________________________________________________ */

oLbx:setfont(oFont)

oLbx:cTooltip := "Selecione o paciente desejado"

oLbx:nClrBackHead := Ciano_Escuro // Cor do fundo do cabeçalho

oLbx:nClrForeHead := Branco // Cor do texto do cabeçalho

oLbx:nClrText := Azul_Escuro // Cor do texto da tabela

oLbx:nClrPane := Branco // Cor do fundo da tabela

oLbx:nClrForeFocus:= Branco // Cor do texto da barra ativa

oLbx:nClrBackFocus:= Ciano_Escuro // Cor do fundo barra ativa

oLbx:lCellStyle := .F. // Habilita as colunas independentes

/* ________

Aba - Dados do Cadastro

_________________________ */

redefine get oDbf:CODIGO ID 4003 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro

redefine get oDbf:NOMECOMPL ID 4004 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:ENDERECO_ ID 4007 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:NUMERO ID 4008 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:BAIRRO ID 4010 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font OFont

redefine get oDbf:COMPLEMEN ID 4012 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:CEP ID 4016 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:CIDADE ID 4017 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:UF ID 4018 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:PROFISSAO ID 4025 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:LOCALTRAB ID 4026 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:FONETRABA ID 4027 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:FONECASA_ ID 4028 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:FONECELU_ ID 4029 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:E_MAIL ID 4031 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine say oSay prompt "Estado Civil?" id 4033 of oFld:aDialogs[2] color Azul_Claro font oFont

redefine get oDbf:DATANASC_ ID 4038 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:CPF ID 4040 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:RG ID 4043 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine get oDbf:ORGAOESP ID 4044 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

redefine say oSay prompt "Informações do Paciente:" id 4045 of oFld:aDialogs[2] color Azul_Claro font oFont

redefine get oDbf:INDICAC_ ID 4057 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont

/* ___________________________________

Aba - Complemento

__________________ */

**** Aqui está o rolo todo ****

redefine say oSay var oDbf:CODIGO ID 4003 of oFld:aDialogs[3] color Azul_Escuro font oFont

redefine say oSay var oDbf:NOMECOMPL ID 4005 of oFld:aDialogs[3] color Azul_Escuro font oFont

redefine say oSay var alltrim(oDbf:ENDERECO_)+", n.º "+oDbf:NUMERO ID 4006 of oFld:aDialogs[3] Color Azul_Escuro font oFont

Obrigado.

NANCOUTO

Link to comment
Share on other sites
aferra Newbie

aferra

Posted
Posted

Olá, Nancouto

vc colocou a mesma variavel de objeto para os tres SAY, tente alterar para oSay1, oSay2 e oSay3

Alessandroid=blue>

FW9.07+xHb121+PellesC+CDX

Fico feliz com os Meus erros, pois eles me apontam a direção para o acerto.id=red>

Link to comment
Share on other sites
nancouto Newbie

nancouto

Posted
  • Author
Posted

citação:

Olá, Nancouto

vc colocou a mesma variavel de objeto para os tres SAY, tente alterar para oSay1, oSay2 e oSay3

Alessandroid=blue>

FW9.07+xHb121+PellesC+CDX

Fico feliz com os Meus erros, pois eles me apontam a direção para o acerto.id=red>

id=quote>id=quote>

Amigo, não funcionou, mas obrigado pela dica.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
 Share
Go to topic listing
×
×
  • Create New...