OX001F8 - Customização na Tecla de Atalho F8 da Rotina de Orçamento por Fases

Este Ponto de Entrada é utilizado para atribuir uma funcionalidade personalizada ao pressionar a tecla de atalho F8 na tela da rotina de Orçamento por Fases.

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³ OX001F8 º Autor ³ MIL º Data ³ 21/09/2015 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDescricao ³ Customizacao na tecla de atalho F8 do Orcamento Fases º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
User Function OX001F8()
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 OX001F8 (tecla de atalho F8) executado com sucesso!","Atenção")
Return()

Português(Brasil)

Todas

Todos

Todas

M->VS1_NUMORC - Nro do Orçamento
M->VS3_GRUITE - Grupo do Item posicionado
M->VS3_CODITE - Codigo do Item posicionado

// Funcoes de Tecla
SETKEY(VK_F4,\{|| OX001KEYF4() \})
SETKEY(VK_F5,\{|| OX001REQCPR() \})
SETKEY(VK_F6,\{|| OX001KEYF6() \})
if GetNewPar("MV_VERIORC","1") $ "2"
SETKEY(VK_F7,\{|| OFIXC008("1") \})
Elseif GetNewPar("MV_VERIORC","1") $ "M_CONSPEC"
SETKEY(VK_F7,\{|| U_M_CONSPEC("1") \})
Else
SETKEY(VK_F7,\{|| OFIXC001() \})
Endif
If ExistBlock("OX001F8")
SETKEY(VK_F8,\{|| ExecBlock("OX001F8",.f.,.f.,\{ M->VS1_NUMORC , M->VS3_GRUITE , M->VS3_CODITE \}) \})
EndIf

OFIXX001