Linha Microsiga Protheus

Árvore de páginas


Ponto de Entrada LJ70101

Descrição:

Este ponto de entrada permite realizar ações antes ou depois de registrar o item da venda através do campo (LQ_PRODUTO) que fica localizado na parte superior da tela da rotina Venda Assistida .

O Ponto de Entrada é invocado em dois momentos. O que identifica o momento que o ponto de entrada está executando é um parâmetro passado, onde “1” significa primeiro momento e “2” significa o segundo momento.

Momento 1: O ponto de entrada é executado antes de incluir o item na venda, desta forma permite controlar se continua ou não registrar o item na venda.

Momento 2: O ponto de entrada é executado após incluir o item na venda, assim é possível realizar alguma ação após a inclusão do item na venda. Neste caso não irá impedir a inclusão do produto, pois o mesmo já foi incluído, apenas permite realizar ações complementares após incluir o produto.

Observações:

Este Ponto de Entrada é utilizado quando for incluído itens da venda na rotina Venda Assistida, através do campo (LQ_PRODUTO) que fica localizado na parte superior da tela da rotina Venda Assistida .

Programa Fonte:

LOJA701

Parâmetros:

TipoDescrição
ExpC1Momento que o Ponto de Entrada é executado  (1=O ponto de entrada é executado antes de incluir o item na venda; 2=O ponto de entrada é executado após incluir o item na venda)

Retorno:

Lógico

  • Obs.: O retorno do Ponto de Entrada somente terá efeito quando executado no Momento 1 (antes de incluir o produto na venda).

.T. = Prossegue com a inclusão do registro do produto na venda
.F. = Aborta a inclusão do registro do produto na venda.

 

Exemplo:

User Function LJ70101()
Local lRet := .T. //Retorno da funcao
Local cOperacao := PARAMIXB[1] //Tipo de Operacao em execucao (1=O ponto de entrada é executado antes de incluir o item na venda; 2=O ponto de entrada é executado após incluir o item na venda)

If cOperacao  == "1" //1=O ponto de entrada é executado antes de incluir o item na venda

     //<coloque suas validacoes aqui>

     lRet  := .T.

ElseIf cOperacao  == "2" //2=O ponto de entrada é executado após incluir o item na venda

     //<coloque suas acoes aqui>

EndIf

Return lRet