Linha Microsiga Protheus

Árvore de páginas

PERMITE NÃO VALIDAR/ATUALIZAR ESTOQUE E CONTADOR DO VEÍCULO

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

MNTA670

Conciliação Manual Posto Interno

Rotina(s) envolvida(s)

Nome Técnico

MNTA656

Abastecimento de Posto Interno

MNTA670Conciliação Manual Posto Interno
MNTA645Conciliação automática das notas fiscais
MNTA650Conciliação manual das notas fiscais

Issues Relacionadas

11.80: MNG-3306

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de Entrada que permite não validar/atualizar estoque e contador do veículo através da rotinas em Abastecimento.

Localização:

SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Conciliação Automática

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

SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Abastecimento Lote Posto Interno

SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Conciliação Manual Posto Interno

Programa Fonte:

MNTA645.PRX, MNTA650.PRX, MNTA656.PRX, MNTA670.PRX

Função:

MNT656VL()

Parâmetros:
NomeTipoDescrição
PARAMIXB[1]CaracterCódigo do Bem
PARAMIXB[2]ArrayQuantidade a abastecer.

Retorno:

NomeTipoDescrição
lNaoValida
LogicoRetorna se valida ou não.
aDadosCtrlArrayRetorna a quantidade abastecida.


Exemplo Ponto de Entrada MNT656VL
#include 'Totvs.ch'

User Function MNT656VL()

	Local aArea := GetArea()
	Local aAreaST9 := ST9->(GetArea())
	Local cFrota := PARAMIXB[1] //Parâmetro código do Bem
	Local lNaoValida := .F. //valida
	Local aDadosCtrl := {}

	dbSelectArea("ST9")
	dbSetOrder(01)
	If dbSeek( xFilial("ST9") + cFrota )
		If ".001" $ ST9->T9_CCUSTO
			lNaoValida := .T. //nao valida mais
		EndIf
	EndIf

	// Quando chamada realizada pela rotina de Conciliação (MNTA670)
	If IsInCallStack("Mna670Ini") .And. lNaoValida
		If Empty( aDadosCtrl := PARAMIXB[2] ) //Parâmetro Quantidade abastecida
			aAdd( aDadosCtrl, TQN->TQN_QUANT)
		Else
			aDadosCtrl[1] += TQN->TQN_QUANT
		Endif
	EndIf

	RestArea(aAreaST9)
	RestArea(aArea)

Return { lNaoValida, aDadosCtrl }