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


02. DESCRIÇÃO

Descrição:

Ponto de entrada executado na rotina de Processamento de Plano de Manutenção (MNTA330) que verifica o número da Ordem de Serviço. É executado quando o Plano é salvo.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Plano Manutenção/Plano

Programa Fonte:

MNTA330.prw

Função:

MNTA330V()

Parâmetros:

NomeTipoDescrição
ParamIXB[1]CaracterNúmero da O.S. que será verificada

Retorno:

NomeTipoDescriçãoObrigatório

lRet

Lógico

Se O.S. já existe retorna verdadeiro ( .T. ), se não existe e pode ser gerada retorna falso ( .F. ) 

X

03. DEMAIS INFORMAÇÕES

Exemplo MNTA330V()
#INCLUDE "PROTHEUS.CH"
 
User Function MNTA330V()
 
    // Retorna .T. - O.S. ja existe
    // Retorna .F. - O.S. nao existe e pode ser gerada
    Local lRet := .F.
    Local cNumOS := ParamIXB[1]
     
    // Verificao
    dbSelectArea("STJ")
    dbSetOrder(1)
    If dbSeek(xFilial("STJ")+cNumOS)
        lRet := .T.
    Else
        lRet := .F.
    EndIf
     
Return lRet


04. ASSUNTOS RELACIONADOS

  • Não se aplica.