Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Diego Oliveira

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Jean Costa

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Revertida da versão 11

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:

Rotina

Nome Técnico

MNTA655

Abastecimento Manual

MNTA080

Cadastro de Bens

Rotina(s) envolvida(s)

Nome Técnico

MNTA080KMNT655D3CC

Ponto de Entrada

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()

VariáveisParâmetros:

NomeTipoPode AlterarDescrição
cTipoCaracterNãoSim

Tipo de Operação (requisição ou devolução).

cVeicCaracterNãoSimCódigo do Veículo/Bem.
cCCustCaracterNãoSimCódigo de Centro de Custo.
cFilTQFCaracterNãoSimCódigo da filial do Posto.
nRecnoNuméricoNãoSimNumeração do registro.
Retorno:
NomeTipoDescriçãoObrigatório
lRetLógicoIndica se a validação foi feitaSim
Bloco de código
languagesql
titleExemplo do Ponto de Entrada MNT655D3CC
#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 //Parâmetro
 Centro de Custo
	cFilTQF	:= PARAMIXB[4] // Código da filial do Posto
	
	If IsInCallStack( "MNTA655" )
	   nRecnoSD3 nRecno	:= PARAMIXB[5] // Último registro

	    	dbSelectArea("SD3")
	    dbGoTo(nRecnoSD3nRecno)
	    RecLock("SD3",.F.)
	    SD3->D3_EMISSAO := dDataBase
	    MsUnlock("SD3")
	EndIf

Return lRet