Histórico da Página
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 rotina de Abastecimento de Posto Interno. | ||||||||||||
Localização: | SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Conc. Manual Posto Interno | ||||||||||||
Eventos: | Conciliação Manual Posto Interno (MNTA670) | ||||||||||||
Programa Fonte: | MNTA670.PRX | ||||||||||||
Função: | MNT656VL() | ||||||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.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 }