Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Kamila Thaise de Oliveira

Gravado em

comparado com

Nova versão 6

changes.mady.by.user Kamila Thaise de Oliveira

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

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.

Localização:

SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Conc. Manual Posto Interno

Eventos:

Conciliação Manual Posto Interno (MNTA670)

Programa Fonte:

MNTA670.PRX

Função:

MNT656VL()

Retorno:

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

 

Exemplo:

#Include 'Protheus.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 }