Histórico da Página
PONTO DE ENTRADA PARA VALIDAÇÕES COMPLEMENTARES NOS CAMPOS DA TABELA SD3 NO 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ís(es): | Todos. | ||||||||
Banco(s) de Dados: | Todos. | ||||||||
Sistema(s) Operacional(is): | Todos. |
Ponto de Entrada
Descrição: | Ponto de Entrada chamado na rotina de Abastecimento Manual (MNTA655), para fazer as validações finais na tabela SD3 antes da gravação. | ||||||||||||||||||||||||
Localização: | SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Abastecimento Manual. | ||||||||||||||||||||||||
Programa Fonte: | MNTA655.prx | ||||||||||||||||||||||||
Função: | MNT655D3CC() | ||||||||||||||||||||||||
Parâmetros: |
| ||||||||||||||||||||||||
| Retorno: |
|
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#Include 'Protheus.ch'
User Function MNT655D3CC()
Local lRet := .T.
//Parâmetros
cTipo := PARAMIXB[1] // requisição ou devolução
cVeic := PARAMIXB[2] // Código do Veículo/Bem
cCCust := PARAMIXB[3] // Código de Centro de Custo
cFilTQF := PARAMIXB[4] // Código da filial do Posto
If IsInCallStack( "MNTA655" )
nRecno nRecno := PARAMIXB[5] // Último registro
dbSelectArea("SD3")
dbGoTo(nRecno)
RecLock("SD3",.F.)
SD3->D3_EMISSAO := dDataBase
MsUnlock("SD3")
EndIf
Return lRet |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas