Jump to content
Fivewin Brasil

+1 Duvida com botôes

CTOAS

By CTOAS
in Programação

 Share

Recommended Posts

CTOAS Newbie

CTOAS

Posted
Posted

Amigos....

Existe possibilidade de colocar um menu vinculado a um botão ?

Christiano Silveira - Delta Solutions

E-Mail: christiano.silveira@gmail.com

MSN: christiano2@hotmail.com

Skype: christianosilveira

Clipper 5.3 / Fivewin 1.9.2

PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005 - EU VOU

Link to comment
Share on other sites
CTOAS Newbie

CTOAS

Posted
  • Author
Posted

Amigos....

Existe possibilidade de colocar um menu vinculado a um botão ?

Christiano Silveira - Delta Solutions

E-Mail: christiano.silveira@gmail.com

MSN: christiano2@hotmail.com

Skype: christianosilveira

Clipper 5.3 / Fivewin 1.9.2

PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005 - EU VOU

Link to comment
Share on other sites
CTOAS Newbie

CTOAS

Posted
  • Author
Posted

Amigos....

Existe possibilidade de colocar um menu vinculado a um botão ?

Christiano Silveira - Delta Solutions

E-Mail: christiano.silveira@gmail.com

MSN: christiano2@hotmail.com

Skype: christianosilveira

Clipper 5.3 / Fivewin 1.9.2

PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005 - EU VOU

Link to comment
Share on other sites
CTOAS Newbie

CTOAS

Posted
  • Author
Posted

Olá.... seria sim...

citação:

Crie sua barra de menus normalmente.

antes de criar os botoes, crie um menu como na barra de menus.

Tipo:

Menu BotMenu[x] PopUp

Menuitem "seu menu 1"

Menuitem "Seu menu 2"

EndMenu

Define Button botao[x] ....

Menu BotMenu[x]

id=quote>id=quote>

Mas da erro.... veja:

citação:

Error description: Error Objects/8 No Object Msg.: UNDEFINED:_BACTION

id=quote>id=quote>

Linha no prg:

citação:

Menu BotMenu[1] PopUp

Menuitem "seu menu 1"

Menuitem "Seu menu 2"

EndMenu

DEFINE BUTTON oBotao[3] resource "imprimir" of oBar noborder group tooltip "Ativa Impressao" action impre(rota)

menu BotMenu[1]

if user->imprime = .f.

obotao[3]:disable()

endif

id=quote>id=quote>

Como resolver ?

Christiano Silveira - Delta Solutions

E-Mail: christiano.silveira@gmail.com

MSN: christiano2@hotmail.com

Skype: christianosilveira

Clipper 5.3 / Fivewin 1.9.2

PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005 - EU VOU

Link to comment
Share on other sites
CTOAS Newbie

CTOAS

Posted
  • Author
Posted

o erro, eu resolvi... era um action no botão, mas não abre o menu...

Christiano Silveira - Delta Solutions

E-Mail: christiano.silveira@gmail.com

MSN: christiano2@hotmail.com

Skype: christianosilveira

Clipper 5.3 / Fivewin 1.9.2

PRESTIGIEM O III ENCONTRO DE USUÃRIOS DE FIVEWIN - 2005 - EU VOU

Link to comment
Share on other sites
kapiaba Enthusiast

kapiaba

Posted
Posted

// Chama o Estoque e Tambem o Sub-Menu das Demais Opcoes.

DEFINE BUTTON OF OBAR RESOURCE "PEPSI" ;

MESSAGE "Inclusão do Estoque nos Bancos de Dados do " + ;

"Cadastro de Produtos" ;

ACTION ( Click(), ESTOQUE() ) ;

TOOLTIP "Manutenção do Estoque nos Bancos de Dados do " + ;

"Cadastro de Produtos" ;

NOBORDER GROUP ;

CENTER ;

MENU MENUESTOQUE()

//-----------Sub-Menu do Estoque Geral Modificado em 08/08/2005 -------------//

STATIC FUNCTION MENUESTOQUE()

LOCAL oMenu

MENU oMenu POPUP

MENUITEM "Abrir Ordem de Produção" ;

+ TAB + "Shift+A" ;

ACCELERATOR ACC_SHIFT, ASC( "A" ) ;

RESOURCE "ESTOQUE01" ;

ACTION( Click(), ABRIRORD() ) ;

MESSAGE "Abrir Ordem Para Produção de Produtos(Estoque)"

SEPARATOR

MENUITEM "Alterar Entradas" ;

+ TAB + "Shift+B" ;

ACCELERATOR ACC_SHIFT, ASC( "B" ) ;

RESOURCE "ESTOQUE02" ;

ACTION( Click(), ALTENTRA() ) ;

MESSAGE "Alterar Entradas Efetuadas no Estoque - Produtos"

SEPARATOR

MENUITEM "Atualização do Estoque" ;

+ TAB + "Shift+C" ;

ACCELERATOR ACC_SHIFT, ASC( "C" ) ;

RESOURCE "ESTOQUE03" ;

ACTION( Click(), ESTOQUE() ) ;

MESSAGE "Inclusão do Estoque nos Bancos de Dados do " + ;

"Cadastro de Produtos"

SEPARATOR

MENUITEM "Baixar Produtos No Estoque" ;

+ TAB + "Shift+D" ;

ACCELERATOR ACC_SHIFT, ASC( "D" ) ;

RESOURCE "ESTOQUE04" ;

ACTION( Click(), BAIXAPRO() ) ;

MESSAGE "Baixar Produtos No Estoque"

SEPARATOR

MENUITEM "Dados dos Produtos" ;

+ TAB + "Shift+E" ;

ACCELERATOR ACC_SHIFT, ASC( "E" ) ;

RESOURCE "ESTOQUE05" ;

ACTION( Click(), ESTOQUE() ) ;

MESSAGE "Digitacao, Alteracao ou Apagamento de Dados dos Produtos"

SEPARATOR

MENUITEM "Dar Entrada no Estoque" ;

+ TAB + "Shift+F" ;

ACCELERATOR ACC_SHIFT, ASC( "F" ) ;

RESOURCE "ESTOQUE06" ;

ACTION( Click(), ENTRADAS() ) ;

MESSAGE "Cadastrar/Atualizar o Estoque "+ ;

"Nos Bancos de Dados de Produtos"

SEPARATOR

MENUITEM "Contagem do Estoque" ;

+ TAB + "Shift+G" ;

ACCELERATOR ACC_SHIFT, ASC( "G" ) ;

RESOURCE "ESTOQUE07" ;

ACTION( Click(), MENUPESQ(2) ) ;

MESSAGE "Atualizar Saldos dos Produtos Existentes no Estoque"

SEPARATOR

MENUITEM "Cotação de Preços" ;

+ TAB + "Shift+H" ;

ACCELERATOR ACC_SHIFT, ASC( "H" ) ;

RESOURCE "ESTOQUE08" ;

ACTION( Click(), COTACOES() ) ;

MESSAGE "Cadastrar Produtos e/ou Fornecedores Para " + ;

"Cotação de Preços(Estoque)"

SEPARATOR

MENUITEM "Fórmulas de Produção" ;

+ TAB + "Shift+I" ;

ACCELERATOR ACC_SHIFT, ASC( "I" ) ;

RESOURCE "ESTOQUE09" ;

ACTION( Click(), FORMULAS() ) ;

MESSAGE "Cadastrar ou Alterar as Fórmulas de Produção(Estoque)"

SEPARATOR

MENUITEM "Por Digito de Controle" ;

+ TAB + "Shift+J" ;

ACCELERATOR ACC_SHIFT, ASC( "J" ) ;

RESOURCE "ESTOQUE10" ;

ACTION( Click(), CONTROLE() ) ;

MESSAGE "Por Dígito de Controle nos Códigos de Barras Com " + ;

"12(Doze) Números"

SEPARATOR

MENUITEM "Por Preço de Venda" ;

+ TAB + "Shift+K" ;

ACCELERATOR ACC_SHIFT, ASC( "K" ) ;

RESOURCE "ESTOQUE11" ;

ACTION( Click(), PORPRECO() ) ;

MESSAGE "Por Preço de Venda nos Produtos"

SEPARATOR

MENUITEM "Quantidade Usada na Produção" ;

+ TAB + "Shift+L" ;

ACCELERATOR ACC_SHIFT, ASC( "L" ) ;

RESOURCE "ESTOQUE12" ;

ACTION( Click(), QUANTPRO() ) ;

MESSAGE "Calcular a Quantidade de Produtos Usados na Produção"

SEPARATOR

MENUITEM "Reajustar os Preços" ;

+ TAB + "Shift+M" ;

ACCELERATOR ACC_SHIFT, ASC( "M" ) ;

RESOURCE "ESTOQUE13" ;

ACTION( Click(), REAJPREC() ) ;

MESSAGE "Reajustar os Preços dos Produtos no Estoque"

SEPARATOR

MENUITEM "Recalcular o Estoque" ;

+ TAB + "Shift+N" ;

ACCELERATOR ACC_SHIFT, ASC( "N" ) ;

RESOURCE "ESTOQUE14" ;

ACTION( Click(), RECALEST() ) ;

MESSAGE "Recalcular a Movimentação no Mês do Estoque"

SEPARATOR

MENUITEM "Saldo Em Estoque" ;

+ TAB + "Shift+O" ;

ACCELERATOR ACC_SHIFT, ASC( "O" ) ;

RESOURCE "ESTOQUE15" ;

ACTION( Click(), MENUPESQ(1) ) ;

MESSAGE "Manutenção do Estoque nos Bancos de Dados de Produtos"

SEPARATOR

MENUITEM "Zerar Descontos em Promoção" ;

+ TAB + "Shift+P" ;

ACCELERATOR ACC_SHIFT, ASC( "P" ) ;

RESOURCE "BOOKOPEN" ;

ACTION( Click(), ZERADESC() ) ;

MESSAGE "Zerar Descontos em Promoção no Estoque"

ENDMENU

Return oMenu

TERCEIRO ENCONTRO DE FIVEWINNERS NOVEMBRO DE 2005 EU APOIO E VOU.

Bad Boy - São Paulo.

kmt_karinha@pop.com.br

FW 2.3C CLIPPER 5.3B BLINKER 7.0 WORKSHOP.EXE

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
 Share
Go to topic listing
×
×
  • Create New...