Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 6 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:MNTA2909()
País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de entrada executado na rotina de Fechamento de Solicitação de Serviço (MNTA290) utiliza dados da SS para gravação em outras tabelas ou campo da própria TQB.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Solicitação de Serviço/Fechamento.

Programa Fonte:

MNTA290.prx

Função:

MNTA2909()

Retorno:

.T.

Observação:

Alguns campos ou tabelas contidos no exemplo do ponto de entrada devem ser criados manualmente pelo configurador, porque não existem no sistema.

03. DEMAIS INFORMAÇÕES

Exemplo MNTA2909()
#Include 'Protheus.ch'
 
User Function MNTA2909()
 
    Local aArea := GetArea()
    Local lTemPai := .F.
    Local nModo := Paramixb[1]
 
    If nModo == 3 //Fechamento
        cSolici := TQB->TQB_SOLICI
        cCodBem := TQB->TQB_CODBEM
 
        dbSelectArea("STC")
        dbSetOrder(3)
        If dbSeek(xFilial("STC")+cCodBem)
            lTemPai := .T.
            cCdBemPai := STC->TC_CODBEM
        EndIf
 
        DbselectArea("ZA0")
        DbsetOrder(01)
        If Dbseek(xFilial("ZA0")+cSolici+cCodBem)
            If IsInCallStack("MNTA290") .Or. IsInCallStack("MNTA400")
                dDtFim := TQB->TQB_DTFECH
                cHrFim := TQB->TQB_HOFECH
                RecLock("ZA0",.F.)
                ZA0->ZA0_DTFIM := dDtFim
                ZA0->ZA0_HRFIM := cHrFim
                MsUnlock("ZA0")
                If lTemPai
                    DbselectArea("ZA0")
                    DbsetOrder(01)
                    If Dbseek(xFilial("ZA0")+cSolici+cCdBemPai)
                        RecLock("ZA0",.F.)
                        ZA0->ZA0_DTFIM := dDtFim
                        ZA0->ZA0_HRFIM := cHrFim
                        MsUnlock("ZA0")
                    EndIf
                EndIf
            EndIf
        EndIf
    ElseIf nModo == 5 //Cancelamento
        dbSelectArea("TQB")
        dbSetOrder(1)
        If dbSeek(xFilial("TQB")+TQB->TQB_SOLICI)
            RecLock("TQB",.F.)
            TQB->TQB_TESTE := 'TESTE PE MNTA2909'
            TQB->( MsUnLock() )
        EndIf
    EndIf
 
    RestArea(aArea)
 
Return .T.


04. ASSUNTOS RELACIONADOS

  • Não se aplica.