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: |
| ||||||||||||||
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 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: |
|
#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 }