Ponto de Entrada que permite manutenção aos registros da tabela SEZ - Distribuição de Naturezas em CC

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Financeiro

Rotina:

Rotina	Nome Técnico
FINXNAT	Impressão da Ordem de Pagamento

Ponto de Entrada:

FNATRTEX

Requisito/Story/Issue (informe o requisito relacionado):

DSERFINP-36

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

SEZ, CTJ

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:	Ponto de Entrada que permite manutenção aos registros da tabela SEZ - Distribuição de Naturezas em CC. A tabela CTJ - Critérios de Rateio - já estará posicionada na seleção do usuário.
Eventos:	Múltiplas Naturezas com Rateio de Centro de Custos
Programa Fonte:	FINXNAT
Função:	CcCarrExt - Carrega definições do rateio externo baseado no CTJ (Múltiplas Naturezas por C.Custo).
Parâmetros :	aHeader - ARRAY - Contém configuração das colunas em edição - relativo à tabela SEZ. aLine - ARRAY - Contém a estrutura de dados em edição da linha atual.
Retorno:	ARRAY - contendo uma lista de pares de dados representando: Elemento 1 - NUMERICO - Posição relativa à estrutura aLine para receber valor; Elemento 2 - CARACTERE - Valor que deve ser gravado na posição indicada no elemento 1. Exemplo: {{1,'AAA'},{2,'BBB'},{3,'CCC'},..,{9,'ZZZ'}}

Exemplo:

#Include 'Protheus.ch'

User Function FNATRTEX()
LOCAL aRet := {}
LOCAL aHeader := PARAMIXB[1]
LOCAL aLineCols := PARAMIXB[2]
LOCAL nFieldPos := 0

nFieldPos := ASCAN(aHeader,{|x| ALLTRIM(x[2]) == 'EZ_TESTE' })
AADD(aRet,{nFieldPos,CTJ->CTJ_DEBITO})

RETURN ACLONE(aRet)