Jump to content
Fivewin Brasil

Menu Fiscal


laurenti

Recommended Posts

Eu criei uma dialog com vários botões, um para cada opção e um para sair da tela, a tela é não modal e posso chamar de qualquer lugar do sistema atraves de uma combinação de teclas.

Organizei na ordem de aparecimento no roteiro.

Obs.: Como alguns ECF's que eu trabalho são matriciais e outros térmicos, as funções não suportados pelas matriciais ficam visiveis normalmente e apresento a mensagem de "Não suportado..."

Email: SamirSSabreu@gmail.com

MSN: samirabreu@hotmail.com

Skype: Samirid=red>Abreu

xHarbour 1.1.0 + FwXh 8.02

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

xHarbour 1.2.1 + FwxH 10.6id=black>

Link to comment
Share on other sites

Boa Noite,

Veja se o código abaixo ajuda, migrei de uma tela delphi e estou usando no meu sistema:


MENUFISCAL DIALOG 27, 20, 301, 213

STYLE DS_SYSMODAL | WS_POPUP | WS_VISIBLE | WS_CAPTION

CAPTION " Menu Fiscal"

FONT 9, "Arial"

{

PUSHBUTTON "LX", 68, 10, 8, 92, 18

PUSHBUTTON "Estoque", 74, 105, 8, 105, 18

GROUPBOX " Período/Intervalo", -1, 215, 58, 80, 39, BS_GROUPBOX

GROUPBOX " Faixa de Dados ", -1, 215, 6, 81, 48, BS_GROUPBOX

PUSHBUTTON "LMFC", 69, 10, 27, 92, 18

PUSHBUTTON "Movimento por ECF", 75, 105, 27, 105, 18

PUSHBUTTON "LMFS", 70, 10, 46, 92, 18

PUSHBUTTON "Meios de Pagto.", 76, 105, 46, 105, 18

PUSHBUTTON "Espelho MFD", 71, 10, 65, 92, 18

PUSHBUTTON "Vendas do Período", 77, 105, 65, 105, 18

PUSHBUTTON "Arq. MFD", 72, 10, 84, 92, 18

PUSHBUTTON "Tab.Ãndice Técnico Produção", 78, 105, 84, 105, 18

PUSHBUTTON "Tab. Produtos", 73, 10, 103, 92, 18

PUSHBUTTON "", 79, 105, 103, 105, 18

PUSHBUTTON "Identificação do PAF-ECF", 80, 10, 122, 200, 18

PUSHBUTTON " Esc - Sai", 81, 10, 145, 200, 21

CHECKBOX " 0 - Período", 60, 220, 18, 60, 10, BS_CHECKBOX | NOT WS_TABSTOP

CHECKBOX " 2 - COO", 62, 220, 40, 60, 10, BS_CHECKBOX | NOT WS_TABSTOP

GROUPBOX " Tipo de Saida", -1, 215, 100, 80, 39, BS_GROUPBOX

CHECKBOX " 0 - Impressora", 65, 220, 110, 60, 12, BS_CHECKBOX | NOT WS_TABSTOP

CHECKBOX " 1 - Arquivo", 66, 220, 122, 60, 12, BS_CHECKBOX | NOT WS_TABSTOP

EDITTEXT 63, 236, 70, 42, 10

EDITTEXT 64, 236, 82, 42, 10

LTEXT "De", -1, 221, 70, 12, 10

LTEXT "Até", -1, 220, 82, 12, 10

CHECKBOX " 1 - CRZ", 61, 220, 29, 60, 10, BS_CHECKBOX | NOT WS_TABSTOP

GROUPBOX " Assinatura Digital", -1, 215, 143, 80, 24, BS_GROUPBOX

CHECKBOX " EAD", 67, 220, 152, 60, 12, BS_CHECKBOX | NOT WS_TABSTOP

EDITTEXT 83, 236, 70, 42, 10

EDITTEXT 84, 236, 82, 42, 10

}

id=code>id=code>

Espero que ajude, estas são as opções pra quem não usa DAV( que é o meu caso ).

Luiz Augusto

São José dos Pinhais - PR

xHarbour + Fivewin + Workshop + Sql via Odbc

Vamos Aderir:"Retorne avisando se a dica funcionou"

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...
×
×
  • Create New...