Histórico da Página

Ponto de entrada que permite incluir tratativas

no

após o processo de

gravação dos insumos alterados

transferência de bens.

Características do Requisito

País(es)

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

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

Rotina:

Rotina	Nome Técnico
MNTA550	Transferência de Bens	MNTA420	O.S. Corretiva

Chamados Relacionados

MNG-3504

DNG-5155

Países

:

Todos

Banco(s) Bancos de Dados:

Todos

Sistema(s) Operacional(is)

Sistemas Operacionais:

Todos

Ponto de Entrada

Descrição:

Ponto de entrada acionado  antes da gravação dos insumos no processo de alteraçãoapós a conclusão com sucesso da transferência de um bem.

Localização:

SIGAMNT: AtualizaçõesMiscelânea/Controle de OficinaHistórico/Ordem Transferência de Serviço/CorretivaBens

Eventos:

Corretiva Transferência de Bens (MNTA420MNTA550)

Programa Fonte:

MNTA420MNTA550.prxprw

Função:

NG420ALTEMNTA550()

Parâmetros:

Array contendo os insumos da O.S. após o processo de alteraçãoArray contendo os insumos antes o processo de alteração. Array contendo os campos que serão apresentados nos Arrays ParamIXB[1] e ParamIXB[2]

Nome	Tipo	Descrição
ParamIXB[1]	Array	Caracter	Código do bem que foi transferido.
ParamIXB[2]	Array	Data	Data de transferência do bem.
ParamIXB[3]	Array	Caracter	Horario de transferência do bem.

Bloco de código

language	sql
title	Exemplo: PE MNTA420VMNTA5503
linenumbers	true

#Include 'ProtheusTotvs.ch'

User Function MNTA420VMNTA5503()
 
    	Local aGetIns cCode  := ParamIXB[1]
    	Local aGetInSaldDtTr := ParamIXB[2]
    	Local aHead   cHrTr  := ParamIXB[3]
    Local nX        := 0
    Local nInsAnt   := 0
    Local nInsAtu   := 0
     
    //Conta quantos insumos tinha após a alteração
    For nX := 1 To Len( aGetIns )

        If !Empty( aGetIns[nx, 1] ) .And. !aGetIns[nx, Len( aGetIns[nX] )]
            nInsAtu++
        EndIf
     
    Next nX
     
    //Conta quantos insumos tinha antes da alteração
    For nX := 1 To Len( aGetInSal )
     
        If !Empty( aGetInSal[nx, 1] )
            nInsAnt++
        EndIf
     
    Next nX
     
    MsgInfo( 'Quantidade de insumos antes da alteração ' + cValtoChar( nInsAnt ) + CHR( 10 ) +;
             'Quantidade de insumos depois da alteração ' + cValtoChar( nInsAtu ) )
 
	dbSelectArea( 'TQ2' )
	dbSetOrder( 1 )
	If dbSeek( xFilial( 'TQ2' ) + cCode + DtoS( dDtTr ) + cHrTr )

		MsgInfo( 'Transferência do bem: ' + Trim( cCode ) + ' realizada ' + DtoC( dDtTr ) + ' às ' + cHrTr )

	EndIf

Return

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave

Características do Requisito

Ponto de Entrada