Histórico da Página
Ponto de entrada que permite customizar a validação de negociação e preço de posto na rotina de Abastecimento Manual (MNTA655)
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Manufatura | ||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||
Rotina: |
| ||||
Países: | Todos | ||||
Bancos de Dados: | Todos | ||||
Sistemas Operacionais: | Todos |
Ponto de Entrada
Descrição: | Ponto de entrada executado na rotina de Abastecimento Manual (MNTA655) para customização da validação de negociação e preço de posto | ||||||||||||
Localização: | SIGAMNT: Atualizações > Controle de Combustíveis > Abastecimento > Abastecimento Manual | ||||||||||||
Programa Fonte: | MNTA655.prx | ||||||||||||
Função: | MNTA655HR() / MNA655HR() | ||||||||||||
Parâmetros: |
| ||||||||||||
Retorno: |
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE 'PROTHEUS.CH' User Function MNTA6557() Local lRet := .T. cCodPos := PARAMIXB[1] // Código do Posto cCodLoj := PARAMIXB[2] // Código da Loja cCodCnp := PARAMIXB[3] // CNPJ/CPF If Empty( M->TQN_VALUNI ) If MsgYesNo("Não há uma negociação anterior a esse abastecimento. Deseja Continuar?","ATENÇÃO") M->TQN_VALUNI := 3.19 // Recebe o valor padrão Else lRet := .F. EndIf EndIf Return lRet |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas