Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite realizar operações após gravação na rotina de parte diária (MNTI851) acionado via integração com RM

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas 

Rotina:

Rotina

Nome Técnico

MNTI851

Mensagem única Parte Diária

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de entrada executado na mensagem única de Parte Diária (MNTI851) que permite realizar operações após gravação de dados.

Programa Fonte:

MNTI851.prw

Função:

MNTI851B()

Parâmetros
PosiçãoTipoDescrição
1N

Conteúdo do campo TV1_FILIAL

2CConteúdo do campo TV1_EMPRES
3 CConteúdo do campo TV1_CODBEM
4DConteúdo do campo TV1_DTSERV
5C

Conteúdo do campo TV1->TV1_TURNO

Retorno:

Nulo

 

Exemplo do Ponto de Entrada MNTA851B()
#include 'protheus.ch'

User Function MNTI851B()

    Local cFilTV1 := PARAMIXB[1] // TV1->TV1_FILIAL
    Local cEmpTv1 := PARAMIXB[2] // TV1->TV1_EMPRES
    Local cBemTv1 := PARAMIXB[3] // TV1->TV1_CODBEM
    Local dDtTv1  := PARAMIXB[4] // TV1->TV1_DTSERV
    Local cTurTv1 := PARAMIXB[5] // TV1->TV1_TURNO
    Local cKey    := cFilTV1 + cEmpTv1 + cBemTv1 + dtos( dDtTv1 ) + cTurTv1 
	Local nQtdReg := 0


    dbSelectArea('TV2')
    dbSetOrder(1)
    If dbSeek( cKey )

        While TV2->( !Eof() ) .And. cKey == TV2->TV2_FILIAL + TV2->TV2_EMPRES + TV2->TV2_CODBEM + DToS( TV2->TV2_DTSERV ) + TV2->TV2_TURNO
                
            nQtdReg++

            dbSelectArea("TV2")
            dbSkip()
                
        End

    EndIf

    dbSelectArea('TV1')
    dbSetOrder(1)
    If dbSeek( cKey )
        RecLock("TV1",.F.)
        TV1->TV1_OBS1 := 'Foram gravados ' +cValToChar(nQtdReg)+ ' registros na parte diária.'
        MsUnlock()
    EndIf

Return