CAMPO MEMO X FOLDER O MISTURA DA GOTA

[nancouto]

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???

[nancouto]

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???

[aferra]

Olá.

Tem valid no campo memo? se tiver coloque CANCEL no botão, mas isso cancela o valid.

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>

[sambomb]

Sem o código é complicado....

RCA Sistemas - Itaocara - RJ

[nancouto]

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.