Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite incluir tratativas após o processo de transferência de bens.

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

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

Rotina:

RotinaNome Técnico
MNTA550Transferência de Bens

Chamados Relacionados

DNG-5155 

Países:Todos

Bancos de Dados:

Todos

Sistemas Operacionais:

Todos

Ponto de Entrada

Descrição:

Ponto de entrada acionado após a conclusão com sucesso da transferência de um bem.

Localização:

SIGAMNT: Miscelânea/Histórico/Transferência de Bens

Eventos:

Transferência de Bens (MNTA550)

Programa Fonte:

MNTA550.prw

Função:

MNTA550()

Parâmetros:

Nome

Tipo

Descrição

ParamIXB[1]Caracter

Código do bem que foi transferido.

ParamIXB[2]

Data

Data de transferência do bem.

ParamIXB[3]

Caracter

Horario de transferência do bem. 

 


Exemplo: PE MNTA5503
#Include 'Totvs.ch'

User Function MNTA5503()

	Local cCode := ParamIXB[1]
	Local dDtTr := ParamIXB[2]
	Local cHrTr := ParamIXB[3]

	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