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.