nancouto Posted June 21, 2011 Report Share Posted June 21, 2011 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 Quote Link to comment Share on other sites More sharing options...
nancouto Posted June 21, 2011 Author Report Share Posted June 21, 2011 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 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted June 22, 2011 Report Share Posted June 22, 2011 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... Luiz Arruda Corumbá-MS ico.corumba@gmail.com | TWT: @ico_Luiz FiveWin 9.04 [x]Harbour PellesC Bcc Ws Para saber o que vem pela frente, fale com quem está voltando Quote Link to comment Share on other sites More sharing options...
Theotokos Posted June 22, 2011 Report Share Posted June 22, 2011 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> Quote Link to comment Share on other sites More sharing options...
nancouto Posted June 22, 2011 Author Report Share Posted June 22, 2011 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 Quote Link to comment Share on other sites More sharing options...
nancouto Posted June 22, 2011 Author Report Share Posted June 22, 2011 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... Luiz Arruda Corumbá-MS ico.corumba@gmail.com | TWT: @ico_Luiz 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 Quote Link to comment Share on other sites More sharing options...
aferra Posted June 22, 2011 Report Share Posted June 22, 2011 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> Quote Link to comment Share on other sites More sharing options...
nancouto Posted June 22, 2011 Author Report Share Posted June 22, 2011 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. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.