Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite realizar customizações no processo de validação, que antecede a transferência de um bem para outra filial.

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

MNTA550

Transferência de Bens

Issues

DNG-8685

Países:

Todos.

Bancos de Dados:

Todos.

Sistemas Operacionais:

Todos.

Ponto de Entrada

Descrição:

Ponto de entrada que permite realizar customizações no processo de validação, que antecede a transferência de um bem para outra filial.

Localização:

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

Eventos:

Transferência de bens

Programa Fonte:

MNTA550.prw

Função:

A550CONOK()

Parâmetros:
NomeTipoDescriçãoObrigatório
ParamIXB[1]CaracaterCódigo do BemSim
Retorno:
TipoDescriçãoObrigatório
CaracterMensagem de inconsistência que será apresentada ao final do processo.Sim

 

Exemplo P.E. MNTA5500
#Include 'Protheus.ch'


User Function MNTA5500()

	Local cCode   := ParamIXB[1]
	Local cAlsQry := GetNextAlias()
	Local cRet    := ''

	BeginSQL Alias cAlsQry

		SELECT
			COUNT( STJ.TJ_ORDEM ) AS QtdOS
		FROM
			%table:STJ% STJ
		WHERE
			( STJ.TJ_SITUACA = 'L' OR
			STJ.TJ_SITUACA = 'P' )        AND
			STJ.TJ_TERMINO = 'N'          AND
			STJ.TJ_TIPOOS = 'B'           AND
			STJ.TJ_CODBEM = %exp:cCode%   AND
			STJ.TJ_FILIAL = %xFilial:STJ% AND
			STJ.%NotDel%

	EndSQL

	If (cAlsQry)->QtdOS > 0

		cRet := 'Existem ' + Trim( cValToChar( (cAlsQry)->QtdOS ) ) + ' O.S. em aberto para este bem, o processo'+;
		' de Transferência será cancelado.'

	EndIf

	(cAlsQry)->( dbCloseArea() )

Return cRet