Ponto de entrada para realizar alterações dos campos da ST9

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 de Bens

Rotina(s) envolvida(s)	Nome Técnico
MNTA6932	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 de Bens (MNTA692) responsável por realizar dos campos da ST9.

Localização:

SIGAMNT: Atualizações/Construção Civil/Transferência/Transferência de Bens

Programa Fonte:

MNTA693.prw

Função:

MNTA6932()

Parâmetros:

Nome	Tipo	Descrição	Obrigatório
PARAMIXB[ 1 ]	Caractere	Código do bem	X
PARAMIXB[ 2 ]	Caractere	Empresa Origem	X
PARAMIXB[ 3 ]	Caractere	Empresa de Destino	X

Retorno:

Nome

Tipo

Descrição

Obrigatório

Estrutura de Retorno

aReturn

Array

Retorna os campos a serem alterados

X

aReturn[ x, 1 ] - Campo a ser alterado.

aReturn[ x, 2 ] - Valor para o campo

#Include 'Totvs.ch'

User Function MNTA6932()

    Local aReturn   := {}
    Local cCodBem    := AllTrim( PARAMIXB[ 1 ] )
    Local cEmpOrigem := PARAMIXB[ 2 ]
    Local cEmpDestin := PARAMIXB[ 3 ]
	
    // Somente executa verificação na tabela de vinculo para as transferências que forem de empresas diferentes
    If cEmpOrigem != cEmpDestin
        
        If cCodBem == 'GOL'
			// Para alteração do campo sempre utilizar (cTRB)-> + o nome do campo na ST9
            aReturn := { { '(cTRB)->T9_TIPMOD', '055' } }
        EndIf

    EndIf

Return aReturn