Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

  1. Visão Geral
  2. Parâmetros
  3. Exemplo de Utilização
  4. Opção na rotina
    1. Outras Ações / PE


01. VISÃO GERAL

Esse documento visa demostrar um exemplo do ponto de entrada CT100MNU que permite adicionar novas opções de menu ao browser da rotinaPonto de Entrada que permite incluir novas validações de lançamento contábil. Recebe como parâmetro de entrada, a variável lRet e lConfirma que indica se o lançamento está consistente (.T.) ou não(.F.).



Informações
titleObservação

Este ponto de entrada é chamado no momento da criação dos menus padrões da rotinaprocesso é utilizado para as movimentações dos lançamentos contábil.

02. PARÂMETROS


Parâmetro

Tipo

Descrição

Obrigatório

PARAMIXB[1]LógicoT. - Lançamento Ok.F. - Lançamento inconsistente
PARAMIXB[2]
ArrayNome do menuSim
Lógico.T. - Confirmação do lançamento

03. EXEMPLO DE UTILIZAÇÃO



Informações
titleObservação

Programa Fonte

CTBA105.PRW

Sintaxe

CT105POS - Retorno 

Valida Lançamento Contábil ( [ lRet ] ) --> lRet

Valida a confirmação do processamento ( [ lConfirma ] ) --> lConfirma

validação de retorno


Bloco de código
languagegroovy
themeDJango
titleExemplo do Ponto de Entrada
collapsetrue
#Include 'Protheus.ch'
#Include 'FWMVCDef.ch'

User Function CTB100MNUCT105POS()
Local aParam lRet          := PARAMIXB[1] //Contem opções original do menu

//adiciona botão no menu
aAdd(aParam,{"Copia","U_TESTE" ,0,9})

Return aParam

Informações
titleObservação
O ponto de entrada retorna a variável aParam contendo todas as opções do menu.

Local lConfirma     := PARAMIXB[2]

alert("Entrando na CT105POS....., o lConfirma entrando no fonte como: "+ cValToChar(lConfirma) )

If !MsgYesNo("Deseja Deixar o lConfirma  =  .T.  ? ", "Escolha....")
    lConfirma   := .F.
EndIf

Alert("Resultado de retorno  lConfirma :  " + cValToChar(lConfirma) )

Return(lConfirma)



Bloco de código
languagegroovy
themeDJango
titleEvento de chamada do Ponto de Entrada
collapsetrue
If ExistBlock("CTB100MNU")
	aRotina lRet := ExecBlock ExecBlock("CTB100MNUCT105POS",.Ff.,.Ff.,{aRotinalRet,lConfirma})
Endif

04. OPÇÃO NA ROTINA

Opção inserida via ponto de entrada exibida no menu de opções:

Outras Ações / Copia

...





HTML
<!-- esconder o menu --> 


<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>