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