nani68

Obrigada a todos !!! Vou finalizar a compra !!! Abraços Ana Paula

Olá !!! Estou tentando comprar o livro do Fivewin e quando confirmo a compra está abrindo o site da BRpay com esse erro: Erro 100 - Este cliente não possui uma loja virtual cadastrada na BRpay Este é um problema momentâneo ??? Há outra forma para comprar o livro ??? Obrigada Ana Paula

Olá !!! Estou tentando comprar o livro do Fivewin e quando confirmo a compra está abrindo o site da BRpay com esse erro: Erro 100 - Este cliente não possui uma loja virtual cadastrada na BRpay Este é um problema momentâneo ??? Há outra forma para comprar o livro ??? Obrigada Ana Paula

Valeu Alessandro !!! Obrigada !!! Embuti sua função no SAMPLES\TESTMNU.PRG e funcionou beleza !!! Vou adaptar minhas arrays no seu modelo e continuar trabalhando !!! Pode deixar q qq coisa eu grito ! Obrigada a todos pela atenção e ajuda !!! Ana Paula

Marcelo, posso te mandar o prg e exe pra vc ver o q está acontecendo ? Obrigada

Marcelo, posso te mandar o prg e exe pra vc ver o q está acontecendo ? Obrigada

Oi Testei a dica do Alessandro e me perdi no "vmenu1[1]:=" que troquei por "vmenu[1]:=" e deu erro da mesma forma. A idéia do Marcelo é justamente o q tentei e as funções vão sendo executadas. Segue abaixo o SAMPLES\TESTMNU.PRG onde inclui 2 funções para tentar ver funcionando. E acontece igual meu programa, a função F_Teste() e Teste() são executadas na tela pra depois aparecer a janela sem o menu function BuildMenu() local oMenu local cAction USE Menu MENU oMenu while ! Eof() do case case Menu->Type == 0 MENU case Menu->Type == 1 if ! Empty( cAction := Menu->Action ) if Menu->nVirtKey == 0 MENUITEM ( AllTrim( Menu-Text ) ) ; BLOCK &( cAction ) ; MESSAGE ( AllTrim( Menu->Msg ) ) else MENUITEM ( AllTrim( Menu-Text ) ) ; BLOCK &( cAction ) ; MESSAGE ( AllTrim( Menu->Msg ) ) ; ACCELERATOR Menu->nState, Menu-nVirtKey endif else MENUITEM ( AllTrim( Menu->Text ) ) ; MESSAGE ( AllTrim( Menu->Msg ) ) endif case Menu->Type == 2 SEPARATOR case Menu->Type == 3 ENDMENU endcase SKIP end ENDMENU USE return oMenu //------------------------------------------------// function f_teste() msginfo("teste") return nil *-------------------------------------------------- function teste1() msginfo("teste 1") return nil *-------------------------------------------------- Montei o MENU.DBF com TYPE ACTION TEXT NVIRTKEY MSG 0 "" Tabela 0 1 F_Teste() Tabela Teste 0 1 Teste1() Tabela Teste1 0 Agradeço a ajuda de todos Mas encalhei nesse ponto !!! Obrigada

Olá ! Sou nova aqui e nova no uso do fivewin. Estou convertendo meus programas em clipper5.3 para fivewin . Achei q esse tópico solucionaria meu problema com menu, sendo que ele está numa array e não numa tabela. Montei de acordo com o exemplo do Marllon mas trocando o arquivo pela array. E o q aconteceu é que minhas funções estão sendo executadas automaticamente durante a montagem do menu. Aí fiz um teste utilizando arquivo e o programa do SAMPLES\TESTMNU.PRG e aconteceu a mesma coisa. Na montagem do menu as minhas funções são executadas. E dá erro de tanta função e item de menu que tenho. Não sei se fui clara mas alguém poderia me ajudar ??? Obrigada Ana Paula Fivewin 2.3 Clipper 5.3/Blinker 4.1