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 Return |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas