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


02. DESCRIÇÃO

Descrição:

Ponto de entrada executado na rotina de O.S. Corretiva (MNTA420) que permite adicionar validações após a inclusão de um insumo previsto

Localização:

SIGAMNT: Em Atualizações > Controle de Oficina > Ordens de Serviço > Corretiva.

Programa Fonte:

MNTA420.prw

Função:

MNTA420E()

Retorno:

.T.

03. DEMAIS INFORMAÇÕES

Exemplo MNTA420E()
#INCLUDE 'PROTHEUS.CH'  

User Function MNTA420E() 
 
    Local i
     
    For i:= 1 to Len(aGetIns)    
         
        DbSelectArea("STL")   
        DbSetOrder(1)   
        If DbSeek( xFilial("STL") + cOSAtu + "000000" + "0     " + aGETINS[i][nTIP] + aGETINS[i][nCOD] )   
            RecLock("STL",.F.) 
            STL->TL_NUMRMS := SZA->ZA_NUM
            MsUnlock("STL")   
        EndIf
    Next i 
     
Return .T.


04. ASSUNTOS RELACIONADOS

  • Não se aplica.