Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 8

changes.mady.by.user Luan Alves

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Luan Alves

Gravado em

Chave

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

MNTA655E - Exclusão de Abastecimentos

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA655

Digitação de Nota Fiscal de Abastecimento.

Rotina(s) envolvida(s)

Nome Técnico

MNTA655

Digitação de Nota Fiscal de Abastecimento.

Issues Relacionadas

12.1.17.

País(es):

Todos.

Banco(s) de Dados:

Todos.

Sistema(s) Operacional(is):

Todos.

Ponto de Entrada

Descrição:

Ponto de entrada para bloquear a exclusão de abastecimentos já conciliados.

Localização:

SIGAMNT: Atualizações/Controle de Combustível/Abastecimento/Abastecimento Manual.

Eventos:

Digitação de Nota Fiscal de Abastecimento. (MNTA655).

Programa Fonte:

MNTA655.prx

Função:

MNTA655E()

Retorno
NomeTipoDescriçãoObrigatório

lRet

LógicoIndica se a exclusão (.T.) será feita ou não (.F.).Sim

 

Exemplo:

Bloco de código
languagevb
themeEclipse
User Function MNTA655E()
 
	Local aOldArea  := GetArea()
	Local lRet      := .T.
 
    //Checando se o abastecimento já foi conciliado.
 
	If !Empty(TQN->TQN_DTCON) .And. !Empty(TQN->TQN_NOTFIS)
		MSGSTOP("Esse abastecimento já foi conciliado e é atendido por nota fiscal, logo é impossível sua exclusão.")
		lRet := .F.
	EndIf
 
	RestArea(aOldArea)
 
Return lRet