Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 4 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:MNTA510
País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de Entrada é executado antes das validações da Situação do Bem, permitindo que as validações

sejam ignoradas, se necessário.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Retorno de O.s./Fechamento em Lote

Eventos:

Fechamento Em Lote (MNTA510)

Programa Fonte:

MNTA510.prx

Função:

MNTA5103()

Parâmetros:
NomeTipoDescrição
PARAMIXB[1]CaractereFilial da O.s.
PARAMIXB[2]CarácterCódigo da O.s.
PARAMIXB[3]CarácterCódigo do Bem
Retorno:

Lógico, Se as validações da situação do bem devem ser ignoradas, o P.E. deve retornar .T.; caso contrário,

se a validação deve ser executada, deve retornar .F.



03. DEMAIS INFORMAÇÕES

Exemplo MNTA5103
#INCLUDE 'PROTHEUS.CH'

User Function MNTA5103()

    Local cFilial  := PARAMIXB[1]
    Local cOrdem   := PARAMIXB[2]
    Local cBem     := PARAMIXB[3]
    Local lPulaVld := .F.


    dbSelectArea( 'ST9' )
    dbSetOrder( 1 )
    If dbSeek( FWxFilial( 'ST9' ) + cBem ) 

        If ST9->T9_SITBEM == 'T'
       
            lPulaVld := .T.
       
        EndIf

    EndIf

    dbSelectArea( 'STJ' )
    dbSetOrder( 1 )
    If !lPulaVld .And. dbSeek(cFilial + cOrdem ) 

        If !Empty(STJ->TJ_DTMRINI)

            lPulaVld := .T.
        
        EndIf

    EndIf

Return lPulaVld


04. ASSUNTOS RELACIONADOS

  • Não se aplica.