nancouto Posted June 23, 2011 Report Share Posted June 23, 2011 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 - FWH 6.02 BCC HB 6.02 PELLEC WINDOWS 7 Quote Link to comment Share on other sites More sharing options...
nancouto Posted June 23, 2011 Author Report Share Posted June 23, 2011 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 - FWH 6.02 BCC HB 6.02 PELLEC WINDOWS 7 Quote Link to comment Share on other sites More sharing options...
ricardomouramarques Posted June 23, 2011 Report Share Posted June 23, 2011 fácil, fácil... Antes de tudo, dê um nome diferente para cada objeto do SAY. Tipo: oSay1, oSay2... etc. faça assim: redefine say oSay1 var oDbf:CODIGO ID 4003 of oFld:aDialogs[3] color Azul_Escuro font oFont redefine say oSay2 var oDbf:NOMECOMPL ID 4005 of oFld:aDialogs[3] color Azul_Escuro font oFont redefine say oSay3 var alltrim(oDbf:ENDERECO_)+", n.º "+oDbf:NUMERO ID 4006 of oFld:aDialogs[3] Color Azul_Escuro font oFont id=code>id=code>blz... Agora vamos fazer com que o clique na terceira aba do folder atualize esses SAYs. Não và no seu código qual é o objeto do folder, então vou usar como exemplo "oFolder". Logo após a declaração do folder coloque essa linha: oFolder:bChange := {|| if(oFolder:nOption = 3, Carga(), NIL) } id=code>id=code>Agora crie a função CARGA(), onde os SAYs serão atualizados: Function Carga() //------------------------------------------ Function Carga() oDbf:Load() oSay1:Refresh() oSay2:Refresh() oSay3:Refresh() Return NIL id=code>id=code>TaÃ... prontinho. Ricado Marques Araguari-MG Quote Link to comment Share on other sites More sharing options...
nancouto Posted June 24, 2011 Author Report Share Posted June 24, 2011 citação:fácil, fácil... Antes de tudo, dê um nome diferente para cada objeto do SAY. Tipo: oSay1, oSay2... etc. faça assim: redefine say oSay1 var oDbf:CODIGO ID 4003 of oFld:aDialogs[3] color Azul_Escuro font oFont redefine say oSay2 var oDbf:NOMECOMPL ID 4005 of oFld:aDialogs[3] color Azul_Escuro font oFont redefine say oSay3 var alltrim(oDbf:ENDERECO_)+", n.º "+oDbf:NUMERO ID 4006 of oFld:aDialogs[3] Color Azul_Escuro font oFont id=code>id=code>blz... Agora vamos fazer com que o clique na terceira aba do folder atualize esses SAYs. Não và no seu código qual é o objeto do folder, então vou usar como exemplo "oFolder". Logo após a declaração do folder coloque essa linha: oFolder:bChange := {|| if(oFolder:nOption = 3, Carga(), NIL) } id=code>id=code>Agora crie a função CARGA(), onde os SAYs serão atualizados: Function Carga() //------------------------------------------ Function Carga() oDbf:Load() oSay1:Refresh() oSay2:Refresh() oSay3:Refresh() Return NIL id=code>id=code>TaÃ... prontinho. Ricado Marques Araguari-MG id=quote>id=quote>Ricardo, valeu pela dica, vou fazer as alteraçoes e mando notÃcias. Um abraço Luiz Fernando 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.