Linha Microsiga Protheus

Árvore de páginas

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:

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