ajuda RW (mais uma pro karinh)

[filizola]

inseri um twbrowse em uma tela, quando vou abrir a dita cuja vem o erro abaixo.

PS se eu retirar o TWBROWSE o erro desaparece.

TDIALOG:SETMSG (0) Unrecoverable error 667: Eval stack fault

TDIALOG:SETMSG 0000

TLISTBOX:SETMSG 0000

(b)TCONTROL 0000

TLISTBOX:LOSTFOCUS 0000

TLISTBOX:KILLFOCUS 0000

TLISTBOX:HANDLEEVEN 0000

ENDDIALOG 0000

TDIALOG:END 0000

(b)ERRORDIALO 0000

TBUTTON:CLICK 0000

TBUTTON:HANDLEEVEN 0000

SENDMESSAG 0000

TDIALOG:COMMAND 0000

TDIALOG:HANDLEEVEN 0000

DIALOGBOXI 0000

TDIALOG:ACTIVATE 0000

ERRORDIALO 0000

(b)ERRORSYS 0000

LOCKERRHAN 0000

(b)INITHANDL$ 0000

CREATEDLGE 0000

TDIALOG:ACTIVATE 0000

ACHAR 0136

(b)CADCLI 0051

TBUTTON:CLICK 0000

TBUTTON:HANDLEEVEN 0000

SENDMESSAG 0000

TDIALOG:COMMAND 0000

TDIALOG:HANDLEEVEN 0000

DIALOGBOX 0000

TDIALOG:ACTIVATE 0000

CADCLI 0055

(b)MAIN 0023

TBTNBMP:CLICK 0000

TBTNBMP:LBUTTONUP 0000

TBTNBMP:HANDLEEVEN 0000

WINRUN 0000

TWINDOW:ACTIVATE 0000

MAIN 0040

[karinha]

ACHAR 0136 // Chamada - Achar o ke? É uma pesquisa? - Linha 136

(b)CADCLI 0051 // Linha com erro, corrija. Veja a Sintaxe da Linha 51

CADCLI 0055 // Chamada... Chama o ke? Veja sintaxe. O ke ele tá fazendo aki?

(b)MAIN 0023 // Chamada do Menu Com Erro? Veja sintaxe - Estranho... Verifique O Menu.

MAIN 0040 // Chamada do Menu sem erro. Aqui, tudo bem. Deve ser o ACTIVATE WINDOW...

Poste a Sintaxe da Linha 51 de CADCLI.PRG O ke você quer ke ela faça?

João Santos

São Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

[karinha]

Resposta: By João Santos - http://www.gruporibas.com.br/kmt

Para: My Friend Filizola

function achar( fantasiap )

local wnome := Space( 50 ), odly, olbx

if MsgGet( "Buscar por", "Nome Fantasia", @wnome,;

"c:\clientes\docampo\bmps\lupa.bmp" )

set filter to rtrim(upper(wnome))$arqcli->fantasia

dbgotop()

if bof() .and. eof()

set filter to

nmsgbox(oemtoansi("Cliente nÆo encontrado"),oemtoansi("Aten‡Æo !"))

return nil

endif

define dialog odly resource "consulta" // Não é uma TCBROWSE e sim uma TWBROWSE.

redefine get wnome id 101 of odly when(.f.)

redefine listbox olbx fields arqcli->fantasia,arqcli->razao,arqcli->endereco,;

str(arqcli->numero,4,0),transf(arqcli->fone,"@r (99) 9999-9999"),;

arqcli->contato headers "Nome Fantasia",oemtoansi("RazÆo Social"),;

oemtoansi("Endere‡o"),oemtoansi("N£mero"),"Telefone","Contato";

id 102 of odly

redefine button id 103 of odly

*action()

redefine button id 104 of odly action(odly:end())

activate dialog odly centered

fantasiap:=arqcli->fantasia

set filter to

dbgotop()

EndDialog()

GlobalFree()

ResAllFree()

endif

return nil

//-----------------------------------------------------------------------------

/*

Caro amigo, vou dar uma 'rapidinha' sobre as browses do WorkShop:

O TOOLS do WorkShop.Exe the best, nos permite usar 4 estilos de LISTBOX(Browse)

a primeira, está ao lado do botão do TOOLS do WorkShop.Exe the best, ela é

equivalente, ao DBEDIT do clipper for DOS, (List Box Style), as demais, estão

na QUINTA fileira do TOOLS, na linha do botão do TOOLS.

Sendo que:

Primeira: TWBROWSE.

Segunda: TCBROWSE.

Terceira: TSBROWSE.

Verifique, que você criou no ID 102 (Aidi) uma TCBROWSE, e está tentando 'carregá-la'

como se ela fosse uma TWBROWSE... Pode? Não! Não Pode! Destrua-a e crie uma TWBROWSE.

Isto resolverá o seu problema.

Mais uma vez, repito, que ao enviar-me um DEMO, você envie completo:

RMK, LNK, PRG, DBF, RC/DLL - Grande abraço, e espero que resolva.

PS: As matriculas,(Area) vão ficar DUPLICADAS mesmo? Está correto?

O Foco dos GETS não estão obedecendo os controles, verifique! <1/2> do TOOLS.

*/

João Santos

São Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br

[filizola]

valeu karinh vc conhece mesmo do WS the best. (hahahahaha)

era isto mesmo, tenho desenvolvido este projeto em horarios que nao condizem com qualquer cérebro humano, entre 20:00 e 03:00hs. realmente nao percebi este pequeno e significante detalhe. muito obrigado.

veja só, as AREAS sao na verdade regioes de clientes entao irao repetir mesmo, nao uso RMK, tenho duvidas talvez, qqr dia irei me informar melhor.

[mou321]

Parabens JOAO , Pela sua Promoção.

Um Abraço

Mauricio (Rio de Janeiro)

[karinha]

Obrigado Mauricio. Não devemos nunca desistir de nossos sonhos...

João Santos

São Paulo-Brasil

(11) 3106-2832 a Noite

karinhannah@ubbi.com.br