Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Eduardo H. Mussi

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Eduardo H. Mussi

Gravado em

Chave

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

Ponto de entrada para realizar validações do bem e sua estrutura

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

MNTA693

Transferência entre empresas/filiaisde Bens

Rotina(s) envolvida(s)

Nome Técnico

MNTA6931

Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de entrada executado na rotina de Transferência entre empresas/filiais de Bens (MNTA693) responsável por realizar validações especificas no bem e sua estrutura.

Localização:

SIGAMNT: Atualizações/Controle de Riscos/Sinistros/Complemento de SinistroConstrução Civil/Transferência/Transferência de Bens

Programa Fonte:

MNTA693.prw

Função:

MNTA6931()

Parâmetros:
NomeTipoDescriçãoObrigatórioComplemento 
PARAMIXB[ 1 ]ArrayEstrutura do bemXCada posição do array será representada pelo código do bem contido na estrutura.
PARAMIXB[ 2 ]CaractereCódigo do bemX-
PARAMIXB[ 3 ]CaractereEmpresa de DestinoX-

Retorno:

Nome

Tipo

Descrição

Obrigatório

Estrutura de Retorno

 aReturn

Array

Retorna a inconsistência encontrada

X

aReturn[ x, 1 ] - Tabela

aReturn[ x, 2 ] - Campo que foi utilizado para validação

aReturn[ x, 3 ] - Mensagem a ser apresentada em tela

aReturn[ x, 4 ] - Tipo de inconsistência

 

Bloco de código
titleExemplo do Ponto de Entrada MNTA5454()
#Include 'Totvs.ch'

User Function MNTA6931()

    Local aReturn := {}
    Local aEstru  := PARAMIXB[ 1 ]
    Local cBem    := PARAMIXB[ 2 ]
    Local cEmpDes := PARAMIXB[ 3 ]

	// Tipos de inconsistências
	// 0 - Grava campo em branco
	// 1 - Não grava o registro, mas transfere
	// 2 - Necessita informar, obrigatório
	// 3 - Reservado
	// 4 - Inconsistência de cadastros

	// Os tipo 2 e 4 impedem a transferência

    If cBem == 'GOL'
        aReturn := {{ 'ST9' , 'T9_CODBEM' , 'O Bem ' + cBem + ' não pode ser transferido para a empresa ' + cEmpDes,  4  }}
    EndIf

Return aReturn