Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 7

changes.mady.by.user Diego Oliveira

Gravado em

comparado com

Nova versão 8

changes.mady.by.user Cristiano Kair

Gravado em

Chave

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

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

rotina de Abastecimento de Posto Interno

rotinas em Abastecimento.

Localização:

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

Conc. Manual

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

Eventos:

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

(MNTA670)

Programa Fonte:

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

Função:

MNT656VL()

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

Retorno:

NomeTipoDescrição
Obrigatório
lNaoValida
LogicoRetorna se valida ou não.
Sim
aDadosCtrlArrayRetorna a quantidade abastecida.


Bloco de código
Sim
languagebash
 
titleExemplo
:#Include 'Protheus
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 

		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


		Else
			aDadosCtrl[1] += TQN->TQN_QUANT

Endif

EndIf


		Endif
	EndIf

	RestArea(aAreaST9)

	RestArea(aArea)


Return { lNaoValida, aDadosCtrl }