Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada será executado na rotina Painel Orçamento (OFIXA018) ao ser executada a funcionalidade Incluir do menu Pedido de Venda. A mesma permite validações para abrir ou não a tela de inclusão.

Localização:

Atualizações \ Mov Peças \ Painel Orçamento (OFIXA018)

Eventos:

Function OXA012I(cAlias,nReg,nOpc)

//

// Ponto de Entrada para validações antes de abrir a tela para Incluir

If ExistBlock("OA012INI")

If !ExecBlock("OA012INI", .f., .f.)

Return .f.

EndIf

EndIf


lRet = OFIXX001(NIL,NIL,NIL,100)

nRecVS1020 := VS1->(Recno())

OXA012ATUVS1(nRecVS1020)

//

Return .t.

Programa Fonte:

OFIXA012.PRW

Função:

OXA012I()

Parâmetros:

N/A

Retorno:
NomeTipoDescrição
lRet

Lógico

Retorna se a tela de inclusão deve abrir ou não, onde .t. abrirá e .f. não abrirá.

Exemplo:

Include totvs.ch

/*

ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»±±

±±ºPrograma ³ OA012INI º Autor ³ MIL º Data ³ 07/07/2020 º±±

±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍ͹±±

±±ºDescricao ³ PE executado na rotina Pedido de Venda (Orçamento Fases) º±±

±±º ³ (OFIXA012) para validações antes da abertura da tela para º±±

±±º ³ inclusão de Pedido de Venda º±±

±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

*/

User Function OA012INI()

Local lRet := .t.


MsgAlert("Ponto de Entrada OA012INI executado com sucesso!", "Atenção")

Return lRet