Histórico da Página
Ponto de Entrada
Descrição: | Este Ponto de Entrada será executado na rotina Veic. Atendimento (VEIXC001) e permite a inclusão/ manipulação de opções no Outras Ações do Browse. |
Localização: | Consultas \ Gerais \ Veic. Atendimento (VEIXX001) |
Eventos: | aAdd(aNewBot,{"FILTRO" ,{|| FS_HAB_FX(.f.,@aRetFiltro,cNumAte,nQtdVei) , FS_TOTFILT() , FS_HAB_FX(.t.,@aRetFiltro,cNumAte,nQtdVei) },STR0094}) // Filtros aAdd(aNewBot,{"MAQFOTO" ,{|| FS_HAB_FX(.f.,@aRetFiltro,cNumAte,nQtdVei) , IIf(!Empty(aVeicVer[oLbVeic:nAt,24]),VEIXC003(aVeicVer[oLbVeic:nAt,24]),.t.) , FS_HAB_FX(.t.,@aRetFiltro,cNumAte,nQtdVei) },("<F4> "+STR0048)}) // Foto aAdd(aNewBot,{"BMPVISUAL" ,{|| FS_HAB_FX(.f.,@aRetFiltro,cNumAte,nQtdVei) , IIf(!Empty(aVeicVer[oLbVeic:nAt,14]),VEIVC140(aVeicVer[oLbVeic:nAt,14], aVeicVer[oLbVeic:nAt,24]),.t.) , FS_HAB_FX(.t.,@aRetFiltro,cNumAte,nQtdVei) },("<F5> "+STR0005)}) // Rastreamento do Veiculo aAdd(aNewBot,{"PARAMETROS",{|| FS_HAB_FX(.f.,@aRetFiltro,cNumAte,nQtdVei) , IIf(!Empty(aVeicVer[oLbVeic:nAt,24]),VX002VV1(aVeicVer[oLbVeic:nAt,24]),.t.) , FS_HAB_FX(.t.,@aRetFiltro,cNumAte,nQtdVei) },("<F6> "+STR0006)}) // Visualiza Cadastro do Veiculo If lAtend // Consulta chamada pelo Atendimento de Veiculos VEIXA018 aAdd(aNewBot,{"ROTEIRO" ,{|| FS_HAB_FX(.f.,@aRetFiltro,cNumAte,nQtdVei) , IIf(FS_PROGRES(lRetVJ1,@aVJ1),(nOpcao:=3,oConsVeic:End()),.t.) , FS_HAB_FX(.t.,@aRetFiltro,cNumAte,nQtdVei) },("<F8> "+STR0007)}) // Progresso de Veiculo aAdd(aNewBot,{"LIQCHECK",{|| FS_HAB_FX(.f.,@aRetFiltro,cNumAte,nQtdVei) , IIf(FS_SIMVDFUT(@aRetFiltro),(nOpcao:=2,oConsVeic:End()),.t.) , FS_HAB_FX(.t.,@aRetFiltro,cNumAte,nQtdVei) },("<F9> "+STR0008)}) // Simulacao / Venda Futura Else // Consulta chamada diretamente pelo MENU aAdd(aNewBot,{"ROTEIRO" ,{|| FS_HAB_FX(.f.,@aRetFiltro,cNumAte,nQtdVei) , IIf(FS_PROGRES(lRetVJ1,@aVJ1),.t.,.t.) , FS_HAB_FX(.t.,@aRetFiltro,cNumAte,nQtdVei) },("<F8> "+STR0007)}) // Progresso de Veiculo aAdd(aNewBot,{"LJPRECO" ,{|| FS_HAB_FX(.f.,@aRetFiltro,cNumAte,nQtdVei) , IIf(!Empty(aVeicVer[oLbVeic:nAt,24]),FGX_VEISIM(aVeicVer[oLbVeic:nAt,24]),.t.) , FS_HAB_FX(.t.,@aRetFiltro,cNumAte,nQtdVei) },("<F9> "+STR0009)}) // Simulacao EndIf aAdd(aNewBot,{"AVGLBPAR1",{|| FS_HAB_FX(.f.,@aRetFiltro,cNumAte,nQtdVei) , IIf(!Empty(aVeicVer[oLbVeic:nAt,24]),FS_BONUS(oLbVeic:nAt),.t.) , FS_HAB_FX(.t.,@aRetFiltro,cNumAte,nQtdVei) },(STR0078)}) // Bonus do Veiculo aAdd(aNewBot,{"FOLDER11" ,{|| FS_HAB_FX(.f.,@aRetFiltro,cNumAte,nQtdVei) , IIf(!Empty(aVeicVer[oLbVeic:nAt,24]),FS_DOCTO(oLbVeic:nAt),.t.) , FS_HAB_FX(.t.,@aRetFiltro,cNumAte,nQtdVei) },(STR0060)}) // Banco de Conhecimento aAdd(aNewBot,{"BMPCPO" ,{|| FS_HAB_FX(.f.,@aRetFiltro,cNumAte,nQtdVei) , FS_MOSTRACFG() , FS_HAB_FX(.t.,@aRetFiltro,cNumAte,nQtdVei) }, "<F10>"+STR0088}) aAdd(aNewBot,{"ANALITIC" ,{|| FS_HAB_FX(.f.,@aRetFiltro,cNumAte,nQtdVei) , VXC001TOT() , FS_HAB_FX(.t.,@aRetFiltro,cNumAte,nQtdVei) },("<F11> "+STR0087)}) // Totais aAdd(aNewBot,{"BMPCPO" ,{|| FS_HAB_FX(.f.,@aRetFiltro,cNumAte,nQtdVei) , VXC001F12(.t.,cNumAte,nQtdVei) , FS_HAB_FX(.t.,@aRetFiltro,cNumAte,nQtdVei) },("<F12> "+STR0079)}) // Parametros/Colunas aAdd(aNewBot,{"BMPCPO" ,{|| FS_HAB_FX(.f.,@aRetFiltro,cNumAte,nQtdVei) , VC001LEG() , FS_HAB_FX(.t.,@aRetFiltro,cNumAte,nQtdVei) }, STR0090 }) // Parametros/Colunas // If (ExistBlock("VXC01MD")) // Ponto de Entrada para adicionar opções no Menu aNewBot := ExecBlock("VXC01MD", .f., .f., {aNewBot}) EndIf // |
Programa Fonte: | VEIXC001.PRW |
Função: | VEIXC001() |
Parâmetros | aNewBot - Vetor que compõe as opções padrão do browse da rotina. |
Retorno | aRot - Vetor que compõe as opções atualizadas pelo ponto de entrada do browse da rotina. |
Exemplo:
#Include 'Protheus.ch'
/*
===============================================================================
###############################################################################
##+----------+------------+-------+-----------------------+------+----------+##
##|Função | VXC01MD | Autor | MIL | Data | 08/11/18 |##
##+----------+------------+-------+-----------------------+------+----------+##
##|Descrição | Inclusão no aNewBot de Consulta de Veículos |##
##+----------+--------------------------------------------------------------+##
##+----------+--------------------------------------------------------------+##
###############################################################################
===============================================================================
*/
User Function VXC01MD()
Local aRot := ParamIxb[1]
aadd(aRot, {"OPCAO01", {|| "U_M_EXEMPLO"}, ("Executar Exemplo")})
Return(aRot)