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 |
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 |
Eventos:
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: |
|
|
|
Bloco de código |
---|
|
|
| |
#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)
IfEndIf 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
Else aDadosCtrl[1] += TQN->TQN_QUANT |
Endif
EndIf
Endif EndIf RestArea(aAreaST9) |
RestArea(aArea) |
Return { lNaoValida, aDadosCtrl } |