Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada será executado na rotina Oportunid Negócios (VEICM680) ao ser executada a funcionalidade Incluir/Alterar. A mesma permite a inclusão/ manipulação de opções no Outras Ações.

Localização:

Atualizações \ Cad C e V \ Oportunid Negócios (VEICM680)

Eventos:

If nOpc == 3 .or. nOpc == 4

aAdd(aNewBot, {"PMSUSER", {|| VCM680F4(nOpc, .F.), VCM680PROS(), VCM680F4(nOpc, .T.)}, (STR0047)}) // Converter Prospect em Cliente

aAdd(aNewBot, {"PCO_COINC", {|| VCM680F4(nOpc, .F.), VCM680REPL(nOpc), VCM680F4(nOpc, .T.)}, (STR0051 + " <F4>")}) // Replicar

EndIf

aAdd(aNewBot, {"BMPVISUAL", {|| VCM680F4(nOpc, .F.), VCM680VATE(), VCM680F4(nOpc, .T.)}, (STR0041)}) // Visual.Atendimento

aAdd(aNewBot, {"BANCOCON" , {|| VCM6800016_BancoDeConhecimento()}, (STR0089)}) // Banco de Conhecimento

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

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

EndIf

FM_Mod3(cTitulo, cAliasEnchoice, cAliasGetD, @aCpoEnchoice,, @aHeader, @aCols, cFieldOk, cLinOk;

,,, nOpcE, nOpcG,, oMainWnd, @oAuxDlg, @oAuxEnchoice, @oAuxGetDados,,,,,,,, 40, aAlter)

oAuxGetDados:oBrowse:bChange := {|| FG_MEMVAR(oAuxGetDados:aHeader, oAuxGetDados:aCols, oAuxGetDados:nAt), VCM680CHANGE()}

oAuxGetDados:oBrowse:bDelete := {|| VCM680F4(nOpc, .F.), VCM680DEL(), VCM680F4(nOpc, .T.)}

Programa Fonte:

VEICM680.PRW

Função:

VCM680()

Parâmetros:
NomeTipoDescrição
aNewBotVetorVetor que compõe as opções padrão do browse da rotina.
Retorno:
NomeTipoDescrição
aRotVetorVetor que compõe as opções atualizadas pelo ponto de entrada do browse da rotina.

Exemplo:

Include totvs.ch

/*

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

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

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

##|Função | VCM680BOT | Autor | MIL | Data | 08/02/19 |##

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

##|Descrição | Inclusão no aNewBot de Oportunidades/Interesses (VEICM680) |##

##+----------| na tela de Inclusão/Alteração-------------------------------|##

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

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

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

*/

User Function VCM680BOT()

Local aRot := ParamIxb[1]

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

Return aRot