• A Confluence está sendo executada atualmente com todos os plugins que não são do sistema desabilitados. Pode haver perda de algumas funcionalidades
Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

Função:MNT656VL
País:Brasil


02. DESCRIÇÃO

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:

Nome

Tipo

Descrição

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

03. DEMAIS INFORMAÇÕES

Exemplo 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 }


04. ASSUNTOS RELACIONADOS

  • Não se aplica.