Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Alexandre dos Santos

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Alexandre dos Santos

Gravado em

Chave

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

Ponto de entrada que permite incluir validação para o processo de exclusão de abastecimento.

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAGFR - Gestão de Frotas  

Rotina:

Rotina

Nome Técnico

MATA655

Abastecimento Manual

Ponto de Entrada

Descrição:

Ponto de entrada executado ao acionar o processo de exclusão de um abastecimento,assim permitindo validar o mesmo.

Programa Fonte:

MNTA655.prx

Retorno:

Tipo

Descrição

Lógico

Indica se o processo de exclusão deve ser abortado ou não.

 

Bloco de código
languagesql
titleExemplo P.E. NGDEVSTL
linenumberstrue
#INCLUDE#Include 'PROTHEUSProtheus.CHch'    

User Function NGDEVSTLMNTA655EX()
    
    
	Local oFwTemplRet := ParamIXB[1]
    Local cAlsMNT := oFwTemp:GetAlias()

    (cAlsMNT)->( dbGoBottom() ) // Pega o ultimo insumo encontrado
    
Return (cAlsMNT)->TRB_RECNO.T.

	If Year( TQN->TQN_DTABAS ) < YEAR( Date() )

		// Não permite exclusão de abastecimento de anos anteriores ao ano atual.
		lRet := .F.

	EndIf

Return lRet