Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Diego Oliveira

Gravado em

comparado com

Nova versão 6

changes.mady.by.user Jean Costa

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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 Centro de Custo
	cFilTQF		 := PARAMIXB[4] //Parâmetro Código da filial do Posto
    nRecnoSD3nRecno  		 := PARAMIXB[5] // Último registro

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

Return lRet

...