Árvore de páginas

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âmetrosaNewBot - Vetor que compõe as opções padrão do browse da rotina.
RetornoaRot - 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)