Linha Microsiga Protheus

Árvore de páginas

Carregando...
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:MNTA420S()
País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de entrada utilizado na rotina de O.S. Corretiva (MNTA420), responsável por gravar campos específicos da tabela SD4

Localização:

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

Programa Fonte:

MNTA420.prw

Função:

MNTA420S()

Parâmetros:

NomeTipoDescrição
ParamIXBArrayCampos já gravados na tabela SD4


Retorno:

.T.

03. DEMAIS INFORMAÇÕES

Exemplo MNTA420S()
#INCLUDE "PROTHEUS.CH"
 
User Function MNTA420S()
 
    Local nI := 0
    Local aAreaAtual := ""
    Local aLPSD4 := {}
 
    aLPSD4 := aClone(ParamIXB)
 
    aAreaAtual := SD4->(GetArea())
 
    DbSelectArea("SD4")
    DbSetOrder(1)
 
    For nI := 1 To Len(aLPSD4)
 
        If DbSeek(xFilial("SD4") + aLPSD4[nI] + (aLPSD4[nI] + "OS001"))
 
            While xFilial("SD4") == SD4->D4_FILIAL .And. SD4->D4_COD == aLPSD4[nI][1] .And. AllTrim(SD4->D4_OP) == (aLPSD4[nI][2] + "OS001")
 
            If SD4->D4_QUANT == aLPSD4[nI][3]
 
                RecLock("SD4", .F.)
 
                SD4->D4_CODAEN := aLPSD4[nI][4]
 
                SD4->(MsUnlock())
 
            EndIf
 
            DbSelectArea("SD4")
            DbSkip()
 
            End
 
        EndIf
 
    Next nI
 
    RestArea(aAreaAtual)
 
Return .T.


04. ASSUNTOS RELACIONADOS

  • Não se aplica.