Histórico da Página
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: |
| ||||
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 |
| ||||||||||||||||||
Retorno: | Nulo |
Bloco de código | ||||
---|---|---|---|---|
| ||||
#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
EndIf
Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas