Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada será executado na rotina Consulta Oport Neg (VEICC680), na tela de Detalhes do Interesse. A mesma permite a inclusão/ manipulação de opções no Outras Ações.

Localização:

Consultas \ C e V \ Consulta Oport Neg (VEICC680)

Eventos:

If Empty(cCodOpo+cCodInt)

Return(.t.)

EndIf


If (ExistBlock("VCC680ABT")) // Ponto de Entrada para adicionar opções no Menu

aNewBot := ExecBlock("VCC680ABT", .f., .f., {aNewBot})

EndIf


AADD(aNewBot,{"IMPRESSAO",{|| FS_IMPRIMIR(3) } , STR0068 } ) // Impressao

Programa Fonte:

VEICC680.PRW

Função:

VCC680VER()

Parâmetros:
NomeTipoDescrição
aNewBotVetor

Vetor que compõe as opções padrão do browse da rotina.

Retorno:
NomeTipoDescrição
aRotVetor

Vetor que compõe as opções atualizadas pelo ponto de entrada do browse da rotina.

Exemplo:

Include totvs.ch

/*

===============================================================================

###############################################################################

##+----------+------------+-------+-----------------------+------+----------+##

##|Função | VCC680ABT | Autor | MIL | Data | 16/04/19 |##

##+----------+------------+-------+-----------------------+------+----------+##

##|Descrição | Inclusão no aNewBot de Oportunidades de Negócios (VEICC680) |##

##+----------| na tela de Detalhes do Interesse----------------------------|##

##+----------+--------------------------------------------------------------+##

###############################################################################

===============================================================================

*/

User Function VCC680ABT()

Local aRot := ParamIxb[1]


aadd(aRot, {"", {|| "U_M_EXEMPLO"}, "Executar Exemplo"})

Return aRot