ER_FIN30122_Prever_processar_n_arquivos_retorno_escritural_TVRJZ7

(Obrigatório)

Informações Gerais

   Legenda: 1 – Inovação 2 – Manutenção (Os demais campos devem ser preenchidos para ambos os processos). 

(Obrigatório)

Objetivo

 Alterar o fin30122(Processa Retorno do pagamento escritural) para possibilitar informar mais arquivos que a versão atual, limitada a 5 arquivos por processamento.

(Obrigatório)

Definição da Regra de Negócio

Para atender  a solicitação, já existente na versão 10.02  da rotina, serão efetuadas as seguintes alterações:

1 -  Alterar a tela do programa para prever informar até 30 arquivos para processamento simultâneo, hoje está limitado a 5 arquivos;

2 - Alterar  o programa para prever a leitura e o processamento destes 30 arquivos. As estruturas replicadas serão:

2.1 - Ajuste da váriável de tela.

DEFINE mr_tela RECORD
cod_bco_pagador LIKE ap.cod_bco_pagador,
nom_banco CHAR(30),
padrao_arq SMALLINT,
des_padrao_arq CHAR(30),
ordenacao CHAR(01),
arquivo1 CHAR(75),
arquivo2 CHAR(75),
arquivo3 CHAR(75),
arquivo4 CHAR(75),
arquivo5 CHAR(75),
arquivo6 CHAR(75),
arquivo7 CHAR(75),
arquivo8 CHAR(75),
arquivo9 CHAR(75),
arquivo10 CHAR(75),

.

.

.
END RECORD

2.2 - Prever as variáveis para o caminho de diretório:

DEFINE m_progress_bar_reference varchar(10),
m_form_pagto_mutuo_ret CHAR(01),
m_mensagem CHAR(100),
m_eh_risco_sacado SMALLINT,
m_caminho_arquivo1 CHAR(100),
m_caminho_arquivo2 CHAR(100),
m_caminho_arquivo3 CHAR(100),
m_caminho_arquivo4 CHAR(100),
m_caminho_arquivo5 CHAR(100),
m_caminho_arquivo6 CHAR(100),
m_caminho_arquivo7 CHAR(100),
m_caminho_arquivo8 CHAR(100),
m_caminho_arquivo9 CHAR(100),
m_caminho_arquivo10 CHAR(100),

2.3 -  Replicar a função fin30122_valid_arquivoXX()

#-----------------------------------#

FUNCTION fin30122_valid_arquivo1()
#-----------------------------------#

DEFINE l_msg CHAR(200)

IF m_val_fin_dir_imp_arq = 'N' THEN
CALL fin30122_valida_arquivo(m_caminho_arquivo1)
RETURNING m_status, l_msg
ELSE
CALL fin30122_valida_arquivo(mr_tela.arquivo1)
RETURNING m_status, l_msg
END IF

IF NOT m_status THEN
CALL LOG_show_status_bar_text(m_form,l_msg, 'WARNING_TEXT')
RETURN FALSE
END IF

RETURN TRUE

END FUNCTION

2.4 -  Alterar a função  fin30122_confirm_process()

#----------------------------------#
FUNCTION fin30122_confirm_process()
#----------------------------------#
DEFINE l_caminho CHAR(100),
l_tamanho SMALLINT,
l_aux CHAR(100)

LET m_work = TRUE
LET m_last_row = FALSE

IF NOT fin30122_deleta_temporarias() THEN
RETURN FALSE
END IF

CALL fin80019_cria_temp()

#---------
IF m_val_fin_dir_imp_arq = 'N' THEN

LET l_caminho = log150_procura_caminho("PGE")

LET l_tamanho = LENGTH(l_caminho CLIPPED)
IF NOT l_caminho[l_tamanho] = '\\' THEN
LET l_caminho = l_caminho,'\\'
END IF

IF mr_tela.arquivo1 IS NOT NULL AND mr_tela.arquivo1 <> ' ' THEN
LET m_caminho_arquivo1 = l_caminho CLIPPED,'fin301221',p_user CLIPPED,'.ret'
CALL LOG_file_CopyClientToServer(mr_tela.arquivo1,m_caminho_arquivo1,FALSE)
END IF

IF mr_tela.arquivo2 IS NOT NULL AND mr_tela.arquivo2 <> ' ' THEN
LET m_caminho_arquivo2 = l_caminho CLIPPED,'fin301222',p_user CLIPPED,'.ret'
CALL LOG_file_CopyClientToServer(mr_tela.arquivo2,m_caminho_arquivo2,FALSE)
END IF

IF mr_tela.arquivo3 IS NOT NULL AND mr_tela.arquivo3 <> ' ' THEN
LET m_caminho_arquivo3 = l_caminho CLIPPED,'fin301223',p_user CLIPPED,'.ret'
CALL LOG_file_CopyClientToServer(mr_tela.arquivo3,m_caminho_arquivo3,FALSE)
END IF

.

END FUNCTION

2.5 -  Replicar a função fin30122_change_event_btn_diretorio2()

#----------------------------------------------#
FUNCTION fin30122_change_event_btn_diretorio2()
#----------------------------------------------#
DEFINE l_caminho CHAR(100),
l_tamanho SMALLINT
#LET mr_tela.arquivo2 = fin30122_caminho()

CALL fin30122_caminho()
RETURNING mr_tela.arquivo2, l_caminho

IF m_val_fin_dir_imp_arq = 'N' THEN
LET l_tamanho = LENGTH(l_caminho CLIPPED)
IF NOT l_caminho[l_tamanho] = '\\' THEN
LET l_caminho = l_caminho,'\\'
END IF

LET m_caminho_arquivo2 = l_caminho CLIPPED,'fin301222',p_user CLIPPED,'.ret'

IF mr_tela.arquivo2 IS NOT NULL AND mr_tela.arquivo2 <> ' ' THEN
CALL LOG_file_CopyClientToServer(mr_tela.arquivo2,m_caminho_arquivo2,FALSE)
END IF
END IF

RETURN TRUE
END FUNCTION

2.6 - Replicar a lógica dos arquivvos na função fin30122_processa_arquivos_selecionados()

#-------------------------------------------------#
FUNCTION fin30122_processa_arquivos_selecionados()
#-------------------------------------------------#
DEFINE l_gauge SMALLINT,
l_ind SMALLINT,
l_msg CHAR(150)

FOR l_ind = 1 TO 5

WHENEVER ERROR CONTINUE
DELETE FROM w_fin30122_retorno
WHENEVER ERROR STOP
IF sqlca.sqlcode <> 0 THEN
CALL log003_err_sql("DELETE","w_fin30122_retorno2")
RETURN
END IF

IF m_val_fin_dir_imp_arq = 'N' THEN
IF l_ind = 1 THEN
LET m_arquivo = m_caminho_arquivo1
END IF
IF l_ind = 2 THEN
LET m_arquivo = m_caminho_arquivo2
END IF
IF l_ind = 3 THEN
LET m_arquivo = m_caminho_arquivo3
END IF
IF l_ind = 4 THEN
LET m_arquivo = m_caminho_arquivo4
END IF

<Na tabela abaixo informe quais são as rotinas envolvidas, o tipo de operação, a opção de menu e se necessário uma breve descrição das regras de negócio relacionadas a rotina>.

Exemplo de Aplicação:

• Criar o campo “% Mínimo Espécie” (AAA_PERESP) onde o usuário informará o % que o aluno pagará em dinheiro. Esse % poderá ser alterado durante a negociação.
• Criar o campo “Referência Mínima para Cálculo” (AAA_REFCAL) onde o usuário informará um dos 4 valores disponíveis para pagamento das mensalidades  como a referência mínima para calcular o débito total do aluno.
• Criar o parâmetro MV_ACPARNE que definirá se as informações de “% Mínimo Espécie” e “Referência Mínima para Cálculo” serão obrigatórias.
• O parâmetro MV_ACPARNE deve ter as seguintes opções: 1=Obrigatório e 2=Opcional. Deve ser inicializado como opcional>.

Tabelas Utilizadas

• SE2 – Cadastro de Contas a Pagar
• FI9 – Controle de Emissão de DARF>.

Opcional

Protótipo de Tela

<Caso necessário inclua protótipos de telas com o objetivo de facilitar o entendimento do requisito, apresentar conceitos e funcionalidades do software>.

Protótipo 01

Opcional

Fluxo do Processo

<Nesta etapa incluir representações gráficas que descrevam o problema a ser resolvido e o sistema a ser desenvolvido. Exemplo: Diagrama - Caso de Uso, Diagrama de Atividades, Diagrama de Classes, Diagrama de Entidade e Relacionamento e Diagrama de Sequência>. 

Opcional

Dicionário de Dados

Arquivo ou Código do Script: AAA – Negociação Financeira / *Versao=CP.2014.12_03*/

(Opcional)

Grupo de Perguntas

<Informações utilizadas na linha Protheus>.

Nome: FINSRF2

(Opcional)

Consulta Padrão

<Informações utilizadas na linha Protheus>

Consulta: AMB

(Opcional)

Estrutura de Menu

<Informações utilizadas na linha Datasul>.

Procedimentos

Programas

Cadastro de Papéis

<O cadastro de papéis é obrigatório para os projetos de desenvolvimento FLEX a partir do Datasul 10>.

<Lembrete: o nome dos papeis em inglês descrito neste ponto do documento, devem ser homologados pela equipe de tradução>.