Linha Microsiga Protheus

Árvore de páginas

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


02. DESCRIÇÃO

Descrição:

Ponto de entrada acionado ao selecionar uma ou mais O.S. na rotina de liberação de O.S. para validar se o usuário poderá efetuar a liberação da O.S.

Localização:

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

Programa Fonte:

MNTA490.prw

Função:

MNTA4904()

Parâmetros:

NomeTipoDescriçãoObrigatório
PARAMIXB[1]Carácter
Ordem de ServiçoSim
PARAMIXB[2]CarácterPlanoSim

Retorno:

NomeTipoDescriçãoObrigatório

lRet

LógicoRetorno para validar se o usuário poderá liberar a O.S.Sim

03. DEMAIS INFORMAÇÕES

Exemplo MNTA4904()
#Include 'Protheus.ch'
 
//-------------------------------------------------------------------
/*/{Protheus.doc} MNTA4904
Verifica se usuário pode finalizar O.S.
 
@author  Eduardo Henrique Mussi
@since   28/07/2018
@version P12
/*/
//-------------------------------------------------------------------
User Function MNTA4904()
 
    Local aArea     := GetArea()
    Local cOrdem    := PARAMIXB[1]
    Local cPlano    := PARAMIXB[2]
    Local lRet      := .T.
 
    // Caso encontre um insumo do Tipo Produto na O.S não deixa Usuário finalizar
    dbSelectArea( 'STL' )
    dbSetOrder( 4 ) // Filial + Ordem + Plano + Tipo Insumo
    If dbSeek( xFilial( 'STL' ) + cOrdem + cPlano + 'P' )
        lRet := .F.
    EndIf
    RestArea( aArea )
Return lRet


04. ASSUNTOS RELACIONADOS

  • Não se aplica.