nancouto

July 5, 2011

citaÃ§Ã£o:
Amgos, uso na criaÃ§Ã£o de botÃµes o BTNBMP. No entanto, se quero destacar o caracter underline ("&"), nÃ£o funciona. Ã‰ possÃvel habilitar o botÃ£o com este recurso? Caso nÃ£o seja possÃvel, o que fazer?

Um abraÃ§o.

Nancouto - FWH 6.02 HB 6.02 BCC PellesC Windows 7

Amigo Kapiaba, o uso da classe nativa BUTTONBMP resolveu o problema, obrigado pela dica.

Um grande abraÃ§o.

NANCOUTO - FWH 6.02 HB 6.02 BCC PELLESC WINDOWS 7

id=quote>id=quote>

July 4, 2011

Amgos, uso na criaÃ§Ã£o de botÃµes o BTNBMP. No entanto, se quero destacar o caracter underline ("&"), nÃ£o funciona. Ã‰ possÃvel habilitar o botÃ£o com este recurso? Caso nÃ£o seja possÃvel, o que fazer?

Um abraÃ§o.

Nancouto - FWH 6.02 HB 6.02 BCC PellesC Windows 7

July 4, 2011

Amgos, uso na criaÃ§Ã£o de botÃµes o BTNBMP. No entanto, se quero destacar o caracter underline ("&"), nÃ£o funciona. Ã‰ possÃvel habilitar o botÃ£o com este recurso? Caso nÃ£o seja possÃvel, o que fazer?

Um abraÃ§o.

Nancouto - FWH 6.02 HB 6.02 BCC PellesC Windows 7

July 4, 2011

Luiz, obrigado pela dica, prometo ser mais atencioso. A verdade Ã© que ainda sou "fiotÃ£o" por aqui.

Um abraÃ§o.

July 1, 2011

Aos amigos que me enviaram dicas para resolver o problema, deixo aqui os meus mais sinceros agradecimentos.

Valeu demais.

NANCOUTO - FWH 6.2, HB 6.2, PELLESC, BCC WIN 7

July 1, 2011

Aos amigos que me enviaram dicas para resolver o problema, deixo aqui os meus mais sinceros agradecimentos.

Valeu demais.

NANCOUTO - FWH 6.2, HB 6.2, PELLESC, BCC WIN 7

June 30, 2011

citaÃ§Ã£o:
Sem o cÃ³digo Ã© complicado....

RCA Sistemas - Itaocara - RJ

id=quote>id=quote>

Segue o cÃ³digo para anÃ¡lise:

function tabelapacientes()

local oDlg,oSay,oDbf,oLbx,oBtn,oFont,oFont_,oFld

if ! file( 'PACIENTE.DBF' ) .OR. ! file ( 'PACI001.CDX' )

msgalert( 'Base de dados vazia!','AtenÃ§Ã£o' )

return .f.

end /* _____

___ */

USE PACIENTE INDEX PACI001,PACI002

dbSetOrder(2)

dbGoTop()

Database oDbf

/* _______

______________ */

define font oFont name "ARIAL" SIZE 0,-12 Bold

define font oFont_ name "ARIAL" SIZE 6, 10 Bold

define dialog oDlg resource "form_manutpaciente"

redefine folder oFld id 4001 prompt "&Pacientes","&Dados do Cadastro","&Complemento" of oDlg ;

dialogs "FORMLISTAPACIENTE","FORMDADOSPACIENTE","FORMCOMPACIENTE"

oFld:SetFont(oFont_)

/* _________

Aba - Pacientes cadastrados

____________________________ */

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

***************************************************************************************

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 ;

when fldManutencaoPaciente(oFld,2,oDbf ) ;

COLOR Azul_Escuro font oFont

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

__________________ */

redefine get oDbf:CODIGO ID 4003 OF oFld:aDialogs[3] UpDate ;

when fldManutencaoPaciente(oFld,3,oDbf) ;

COLOR Azul_Escuro font oFont

redefine get oDbf:NOMECOMPL ID 4005 of oFld:aDialogs[3] UpDate ;

when fldManutencaoPaciente(oFld,3,oDbf) ;

COLOR Azul_Escuro font oFont

redefine get oDbf:OBSERVAC ID 4008 of oFld:aDialogs[3] Memo UpDate ;

COLOR Azul_Escuro,Branco font oFont

/* ________________

Define os botÃµes de controle do formulÃ¡rio

____________________________________________ */

redefine btnBmp oBtn id 4002 of oDlg prompt "Fechar " resource "SAIDA03" left ;

tooltip "Encerra digitaÃ§Ã£o" ;

action ( oDlg:end() )

oDlg:UpDate()

activate dialog oDlg centered

return dbCloseAll()

/* ____

__________ */

/*

{ FunÃ§Ã£o de interrupÃ§Ã£o dos controles do

get ativo - simula o get desabilitado

sem permitir alteraÃ§Ãµes } */

static function fldManutencaoPaciente(oFld, numFolder, oDbf)

oDbf:Load()

if numFolder = 1 .or. numFolder = 2

oFld:aDialogs[2]:aControls[1]:Disable()

elseif numFolder = 3

oFld:aDialogs[3]:aControls[3]:Setfocus(3)

endif /* ____

_____ */

oFld:UpDate()

return .t.

June 29, 2011

Amigos, criei um folder com trÃªs opÃ§Ãµes e, na Ãºltima uso um campo memo para lanÃ§amento de observaÃ§Ãµes. AtÃ© ai blz, acontece que no formulÃ¡rio principal, criei um botÃ£o para fechar o DIALOG. O botÃ£o funciona normal na 1.Âª e 2.Âª aba, mas na aba onde estÃ¡ o "maledeto" memo, nÃ£o funciona. Como resolver esta encrenca???

June 29, 2011

Amigos, criei um folder com trÃªs opÃ§Ãµes e, na Ãºltima uso um campo memo para lanÃ§amento de observaÃ§Ãµes. AtÃ© ai blz, acontece que no formulÃ¡rio principal, criei um botÃ£o para fechar o DIALOG. O botÃ£o funciona normal na 1.Âª e 2.Âª aba, mas na aba onde estÃ¡ o "maledeto" memo, nÃ£o funciona. Como resolver esta encrenca???

June 24, 2011

Quem poderia me dizer qual a versÃ£o mais atualizada do fivewin disponÃvel - free?

June 24, 2011

Quem poderia me dizer qual a versÃ£o mais atualizada do fivewin disponÃvel - free?

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

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