Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite incluir novas validações na rotina de Abastecimento Manual (MNTA655)

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

Abastecimento Manual


Rotina(s) envolvida(s)

Nome Técnico

MNTA655SEN

Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos


Ponto de Entrada

Descrição:

Ponto de entrada executado na rotina de Abastecimento Manual (MNTA655) que permite incluir validações para a rotina

Localização:

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

Programa Fonte:

MNTA655.prx

Função:

MNTA655SEN()

Retorno:

.T.
Exemplo do Ponto de Entrada MNTA655SEN()
#include 'Protheus.ch'

User Function MNTA655SEN()

	Local aOldArea := GetArea()
	
	//Gravando os dados do Abastecimento em uma tabela de usuário
	dbSelectArea("ZZZ")
	dbSetOrder(01)
	If dbSeek(xFilial("ZZZ")+M->TQN_NOTFIS)   
		RecLock("ZZZ",.T.)   
		ZZZ->ZZZ_FILIAL := xFilial("ZZZ")   
		ZZZ->ZZZ_POSTO  := M->TQN_POSTO   
		ZZZ->ZZZ_LOJA   := M->TQN_LOJA   
		ZZZ->ZZZ_NFISCA := M->TQN_NOTFIS   
		ZZZ->ZZZ_TOTAL  := M->TQN_VALTOT   
		MsUnlock("ZZZ")
	EndIf
	
	RestArea(aOldArea)
	
Return .T.