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: |
| |||||||||
Retorno: |
|
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.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas