Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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

Relacionadas

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ís(es)Países:

Todos.

Banco(s) Bancos de Dados:

Todos

Sistema(s) Operacional(is)

.

Sistemas Operacionais:

Todos.

Ponto de Entrada

Define se o processo for validado com êxito

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
Lógico
CaracterMensagem de inconsistência que será apresentada ao final do processo.Sim

 

Bloco de código
languagesql
themeEclipse
titleExemplo P.E. MNTA5500
linenumberstrue
#Include 'Protheus.ch'


User Function MNTA5500()

	Local cCode   := ParamIXB[1]
	Local cAlsQry := GetNextAlias()
	Local lRetcRet    := .T.''

	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

		lRetcRet := MsgYesNo( 'Existem ' + Trim( cValToChar( (cAlsQry)->QtdOS ) ) + ' O.S. em aberto para este bem, desejao continuarprocesso'+;
		' com o processo de Transferência?', 'Atenção' ) será cancelado.'

	EndIf

	(cAlsQry)->( dbCloseArea() )

Return lRetcRet