DT_OX018ARV_Inclusao_de_Opcoes_no_menu_Pedido_de_Venda_e_Orcamento_do_Painel_de_Orcamento

Descrição:

Este Ponto de entrada tem a finalidade de permitir que o cliente inclua opções no menu de Pedido de Venda e no menu de orçamento do Painel do Orçamento (OFIXA018). Entretanto, a rotina OFIXA015 não poderá ser chamada através deste, devido ao fato de haver tratativas especificas e efetuar a chamada de outras rotinas internas.

Eventos:

if GetNewPar("MV_VERIORC","1") $ "2"

If FindFunction("OFIXC008")

AADD( aMenu , { "NODE_OF_CP","NODE_OR",STR0021,"VS1","OFIXA011","OFIXC008",01,.f. } ) // STR0021

EndIF

Elseif GetNewPar("MV_VERIORC","1") $ "M_CONSPEC"

If FindFunction("U_M_CONSPEC")

AADD( aMenu , { "NODE_OF_CP","NODE_OR",STR0021,"VS1","OFIXA011","M_CONSPEC",01,.f. } ) // STR0021

Endif

Else

If FindFunction("OFIXC001")

AADD( aMenu , { "NODE_OF_CP","NODE_OR",STR0021,"VS1","OFIXA011","OFIXC001",01,.f. } ) // STR0021

EndIF

Endif

AADD( aMenu , { "NODE_OF_RP","NODE_OR",STR0050,"VS1","OFIXA018","OXA018RP",01,.f. } ) // Rastreamento Pedidos

AADD( aMenu , { "NODE_OF_L" ,"NODE_OR",STR0012 ,"VS1","OFIXA011","OFIXA011",09,.f. } ) //

AaDD( aMenu , { "NODE_OF_C","NODE_OR",STR0062, "VS1","OFINJD28","OXA018DRE", 02, .f. }) // Demanda Retro 02-orcamento

if ExistBlock("OX018ARV")

aMenu := ExecBlock("OX018ARV",.f.,.f.,{aMenu})

Endif

AADD( aMenu , {"","","","","",STR0046,0,.f. } ) // Atualizar

AADD( aMenu , {"","","","","",STR0047,0,.f. } ) // Mostra/Oculta Vencidos

AADD( aMenu , {"","","","","",STR0048,0,.f. } ) // Mostra/Oculta Faturados

AADD( aMenu , {"","","","","",STR0024,0,.f. } ) // Sair

Função:

OXA018CMENU