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


02. DESCRIÇÃO

Descrição:

Ponto de entrada executado na rotina de O.S. Corretiva (MNTA420) ao excluir uma O.S., permitindo a exclusão de uma tabela específica relacionada a O.S.

Localização:

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

Programa Fonte:

MNTA420.prw

Função:

MNTA420G()

Retorno:

.T.

03. DEMAIS INFORMAÇÕES

Exemplo MNTA420G()
#INCLUDE 'PROTHEUS.CH'
 
User Function MNTA420G()
 
    DbSelectArea("SZA")
    DbSetOrder(4)
    If DbSeek(xFilial("SZA")+STJ->TJ_ORDEM+STJ->TJ_PLANO)  
        While !Eof() .And. SZA->ZA_FILIAL == xFilial("SZA") .And. SZA->ZA_OS == STJ->TJ_ORDEM .And. SZA->ZA_PLANO == STJ->TJ_PLANO     
            RecLock("SZA", .F.)    
            DbDelete()    
            MsUnlock("SZA")    
            DbSelectArea("SZA")    
            DbSkip()  
        End
    EndIf  
     
Return .T.


04. ASSUNTOS RELACIONADOS

  • Não se aplica.