Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

Função:MNT655D3CC
País:Brasil


02. DESCRIÇÃO

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:

NomeTipoPode AlterarDescrição
cTipoCaracterSim

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

cVeicCaracterSimCódigo do Veículo/Bem.
cCCustCaracterSimCódigo de Centro de Custo.
cFilTQFCaracterSimCódigo da filial do Posto.
nRecnoNuméricoSimNumeração do registro.
Retorno:

Nome

Tipo

Descrição

Obrigatório

lRetLógicoIndica se a validação foi feitaSim

03. DEMAIS INFORMAÇÕES

Exemplo 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] // Código da filial do Posto
     
    If IsInCallStack( "MNTA655" )
        nRecno  := PARAMIXB[5] // Último registro
        dbSelectArea("SD3")
        dbGoTo(nRecno)
        RecLock("SD3",.F.)
        SD3->D3_EMISSAO := dDataBase
        MsUnlock("SD3")
    EndIf
 
Return lRet


04. ASSUNTOS RELACIONADOS

  • Não se aplica.