Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada utilizado para atribuir uma funcionalidade personalizada ao pressionar a tecla de atalho F9 na janela da rotina de Orçamento por Fases.

Localização:

Atualizações / Mov. Oficina / Orc. Por Fases (OFIXA011)

Eventos:

// Funcoes de Tecla

SETKEY(VK_F4,{|| OX001KEYF4() })

SETKEY(VK_F5,{|| OX001REQCPR() })

SETKEY(VK_F6,{|| OX001KEYF6() })

Do Case

Case cMV_VERIORC == "3"

SETKEY(VK_F7,{|| OFIXC009(2) })

Case cMV_VERIORC == "M_CONSPEC"

SETKEY(VK_F7,{|| U_M_CONSPEC("1") })

OtherWise

SETKEY(VK_F7,{|| OFIXC001() })

EndCase

If ExistBlock("OX001F8")

SETKEY(VK_F8,{|| ExecBlock("OX001F8",.f.,.f.,{ M->VS1_NUMORC , M->VS3_GRUITE , M->VS3_CODITE }) })

EndIf

If ExistBlock("OX001F9")

SETKEY(VK_F9,{|| ExecBlock("OX001F9",.f.,.f.,{ M->VS1_NUMORC , M->VS3_GRUITE , M->VS3_CODITE }) })

EndIf

 

Programa Fonte:

OFIXX001         

Função:

OX001EXEC  

Retorno:

 

 

Exemplo:

 

/*

ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±

±±ºPrograma ³ OX001F9 º Autor ³ MIL º Data ³ 25/07/2016 º±±

±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±

±±ºDescricao ³ Customizacao na tecla de atalho F9 do Orcamento Fases º±±

±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

*/

User Function OX001F9()

Local _cNumOrc := ParamIXB[01] // Nro de Orcamento ( VS1_NUMORC )

Local _cGruIte := ParamIXB[02] // Grupo da Peça ( VS3_GRUITE )

Local _cCodIte := ParamIXB[03] // Codigo da Peça ( VS3_CODITE )

MsgAlert("Ponto de Entrada OX001F9 (tecla de atalho F9) executado com sucesso!","Atenção")

Return()