Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 3 minutos

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:MNTA435A()
País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de entrada executado na rotina de Retorno Mod. 2 (MNTA435) que possibilita o uso de informações customizadas no cadastro de garantia de insumo tipo produto

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Retorno de OS/Retorno Mod. 2

Programa Fonte:

MNTA435.prw

Função:

MNTA435A()

Parâmetros:

NomeTipoDescrição
ParamIXB[1]Caracter

L - Código da Localização

Q - Quantidade (Garantia por Tempo)

U - Unidade de tempo

Retorno:

NomeTipoDescriçãoObrigatório
nRet/cRetNumérico/CaracterSe cTipoRet = "Q" retorna a quantidade, caso contrário, retorna string contendo o código de localização ou unidade de tempoX

03. DEMAIS INFORMAÇÕES

Exemplo MNTA435A()
#INCLUDE "Protheus.ch"
 
User Function MNTA435A()
 
    Local cTipoRet // Campo preenchido
    Local cRet := "" // Retorno caracter
    Local nRet := 0 // Retorno numerico
 
    //------------------------------------------------
    // Recebe o parametro que define em qual campo sera
    // preenchido o registro.
    // L - Codigo da Localizacao
    // Q - Quantidade (Garantia por Tempo)
    // U - Unidade de tempo
    //------------------------------------------------
    cTipoRet := PARAMIXB[1]
 
    If cTipoRet == "L"
        cRet := "DIAESQ"
    ElseIf cTipoRet == "Q"
        nRet := 999999
    ElseIf cTipoRet == "U"
        cRet := "Dia"
    EndIf
 
Return If(cTipoRet == "Q",nRet,cRet)


04. ASSUNTOS RELACIONADOS

  • Não se aplica.