Errro ao criar dialog com dois gets memo

[jfaguiar]

Olá Amigos.

Estou tendo este erro em uma dialog com dois campos memos. Inexplicavelmente alguns registros não apresenta o erro, ao que parece são os com texto curto.

Alguém sabe explicar o poderá está acontecendo?

Para maior clareza a versão é FiveWin for xHarbour 9.02

Obrigado

Segue o código:

DEFINE FONT oFont8 NAME "Ms Sans Serif" SIZE 0,-6 BOLD

DEFINE DIALOG oDlg FROM 2, 1 TO 42,100 TITLE "Seções Terapêuticas - " +cNOMTERAPI

oDlg:Cargo := .F.

@ 0.1, 0.2 TO oDlg:nHeight()*.03554,oDlg:nWidth()*.07101 OF oDlg

nWidDialog := oDlg:nWidth() * IF(oDlg:nWidth() < 411, 0.480009,0.489900) - 3

//

@ LINS(01.0),COLS(01) SAY "Cliente:"

@ LING(01.0),COLG(06) GET cNOMCLI SIZE 100,12 FONT oFONT8 WHEN .F.

//

@ LINS(02.2),COLS(01) SAY "Relatório:"

@ LING(03.0),COLG(01) GET cHISTORIC MEMO SIZE nWidDialog,130 OF oDlg;

FONT oFONT8;

COLORS CLR_FONGET,CLR_FUNGET

//

@ LINS(13.9),COLS(01) SAY "Data:"

@ LINS(13.9),COLS(15) SAY "Terapêuta:"

@ LINS(13.9),COLS(35) SAY "Encaminhado para:"

@ LINS(13.9),COLS(55) SAY "Valor Seção:"

//@ LINS(13.9),COLS(70) SAY "Seção:"

@ LING(14.9),COLG(01) GET oDATEMIS VAR dDATEMIS PICT "99/99/99";

SIZE 32,12 FONT oFONT8;

WHEN &cCOND;

COLORS CLR_FONGET,CLR_FUNGET

@ LING(14.9),COLG(15) GET oNOMUSER VAR cNOMUSER SIZE 60,12 FONT oFONT8;

WHEN .F.

@ LIND(14.9),COLD(35) COMBOBOX oCbx VAR cNOMENCA ITEMS aTERAPEUT SIZE 70,560 OF oDlg;

STYLE CBS_DROPDOWN;

WHEN &cCOND;

ON CHANGE ( nUSERENC := oCbx:nAt,oCbx:Refresh() )

@ LING(14.9),COLG(55) GET nVALSEC SIZE 35,12 FONT oFONT8;

PICT "999999.99" WHEN &cCOND;

COLORS CLR_FONGET,CLR_FUNGET

//

@ LINS(16.2),COLS(01) SAY "Evolução: [Tab] para finalizar ou [shift Tab] para campo anterior"

@ LING(17.0),COLG(01) GET cDESCSEC MEMO SIZE nWidDialog,72 OF oDlg FONT oFONT8 WHEN &cCOND;

COLORS CLR_FONGET,CLR_FUNGET

@ oDlg:nHeight()/2-19,oDlg:nWidth()/2-70 BTNBMP SIZE 30,15 Pixel;

FILENAME "&cDRIVE\SISCOM\bitmaps\BTNOK.bmp";

ACTION (oDlg:Cargo := .T.,oDlg:End() )

@ oDlg:nHeight()/2-19,oDlg:nWidth()/2-35 BTNBMP SIZE 32,15 Pixel;

FILENAME "&cDRIVE\SISCOM\bitmaps\BTNCANC.bmp";

ACTION oDlg:End()

ACTIVATE DIALOG oDlg CENTERED

Segue o erro

Application

===========

Path and name: E:\NUCLEOPL\FNTW\SGCW.Exe (32 bits)

Size: 2,635,264 bytes

Time from start: 0 hours 0 mins 19 secs

Error occurred at: 11/06/14, 12:50:45

Error description: Error FiveWin/3 Cannot create Dialog Box:

Title: Seções Terapêuticas - MASSAGENS

Stack Calls

===========

Called from: .\source\classes\DIALOG.PRG => CREATEDLGERROR(558)

Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(290)

Called from: E:\NUCLEOPL\FNTW\lancons.prg => EDITAEVOLUCAO(851)

Called from: E:\NUCLEOPL\FNTW\lancons.prg => SELECEVOL(693)

Called from: E:\NUCLEOPL\FNTW\lancons.prg => (b)EVOLUCAO(656)

Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(0)

Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(0)

[kapiaba]

Retire a cor do MEMO e teste:

COLORS CLR_FONGET,CLR_FUNGET

[jfaguiar]

Éh meu amigo, o problema continua e por incrível que pareça.

Eu lembro que existe uma outra classe para edição de campos memos, mas não me lembro no momento. Se você souber alguma coisa, dá um toque pra gente.

Abraço

Obrigado

[kapiaba]

Poste a função completa para eu testar aqui; abs. Desconhçeo esta classe que vc. está falando. campo memo pertence a TGET.PRG

[Theotokos]

procure por RICHEDIT

[atnsoft]

Ola, verifique o tamanho da Var cNOMTERAPI. Tive este mesmo erro e corrigi com Left(Var, 20). Veja o tamanho da sua Variavel e diminua o seu tamanho pra um que fique

a contento.