ER_FIN10037_Possibilitar_selecionar_opção_de_tipo_de_período_na_tela_TSTMNI

(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

Possibilitar que o cliente consiga extrair o relatório de Comissões de representantes (fin10037) tendo a opção de selecionar o período de/até com o critério de data de emissão do documento para comissões preparadas e pagas..

(Obrigatório)

Definição da Regra de Negócio

Será criado duas novas opções para o campo "Visão Por:" para que o usuário possa listar o relatório, desta forma as opções
para este campo serão:

Visão Por:  "E" =  empresa
                    "R" = representante
                    "M" =  Empresa por data do título
                    "N" =  Representante por data titulo

As duas novas visões refletirão no tipo de período que será utilizado na seleção dos dados. Caso selecione as opções 3 ou 4 o relatório considerará como filtro de data das comissões preparadas ou pagas a data de emissão do título. docum.dat_emis.

As consultas referentes a função fin10037_preparadas e fin10037_pagas serão alteradas para prever o filtro pela tabela docum.dat_emis quando a opção for 3 ou 4. Caso seja selecionada as opções 1 e 2, será mantida o critério atual, sendo as comissões selecionadas pela data de lançamemto (docum_comis_pagas.dat_lancamento) .

Revisar os demais pontos do programa que consistem o campo mr_tela.quebra_pagina para prever também os novos indicadores  

OBS: A FUNCTION fin10037_provisao() não será alterada  porque a seleção dos dados é possível somente pela tabela docum.

IMPORTANTE:

A função fin10037_preparada será alterada para prever a leitura dos novos indicadores, para possibilitar a consulta das comissões  preparadas  baseado na data do título e não do lançamento(docum_comis_pagas) 

abaixo segue sugestão da alteração.

#-----------------------------#
FUNCTION fin10037_preparada()
#-----------------------------#
  .

  .

  .

LET l_sql_stmt = " SELECT {CAMPOS} "

LET l_sql_from = " FROM docum_comis_pagas",
                               " LEFT OUTER JOIN docum" ,
                              " ON docum_comis_pagas.cod_empresa = docum.cod_empresa",
                              " AND docum_comis_pagas.num_docum = docum.num_docum ",
                              " AND docum_comis_pagas.ies_tip_docum = docum.ies_tip_docum "

LET l_sql_where = " WHERE docum_comis_pagas.apropr_desp IS NULL ",
                                       " AND NOT EXISTS ( SELECT docum ",
                                                                              " FROM cre_info_adic_doc ",
                                                                             " WHERE empresa = docum_comis_pagas.cod_empresa ",
                                                                             " AND docum = docum_comis_pagas.num_docum ",
                                                                             " AND tip_docum = docum_comis_pagas.ies_tip_docum "

IF mr_tela.quebra_pagina = 'M' OR
    mr_tela.quebra_pagina = 'N' THEN
    IF mr_tela.data_ini IS NOT NULL THEN
        LET l_sql_where = l_sql_where CLIPPED, " AND docum.dat_emis >= '",mr_tela.data_ini, "'",
                                                                                 " AND docum.dat_emis <= '", mr_tela.data_fim, "' "
    END IF
END IF

LET l_sql_where = l_sql_where CLIPPED, " AND sequencia_docum = docum_comis_pagas.num_seq_docum ",
                                                                        " AND campo = 'compl_docum_comis_pagas' ",
                                                                        " AND parametro_val > 0 ",
                                                                        " AND ( parametro_texto = 'ordem_compra' ",
                                                                        " OR parametro_texto = 'registro' ) ) "

IF mr_tela.quebra_pagina = 'E' OR
     mr_tela.quebra_pagina = 'R' THEN
      IF mr_tela.data_ini IS NOT NULL THEN
           LET l_sql_where = l_sql_where CLIPPED, " AND docum_comis_pagas.dat_lancamento >= '", mr_tela.data_ini, "'",
                                                                                   " AND docum_comis_pagas.dat_lancamento <= '", mr_tela.data_fim, "'"
       END IF
END IF

  .

  .

  .

END FUNCTION

A função fin10037_paga será alterada para prever a seleção das comissões pagas, tendo como referência a data do documento, segue sugestão da alteração 

#-----------------------------------#
FUNCTION fin10037_paga()
#-----------------------------------#

LET l_sql_stmt = " SELECT {CAMPOS} "
LET l_sql_from = " FROM docum_comis_pagas ", #, docum "
                                 " LEFT OUTER JOIN docum " ,
                                 " ON docum_comis_pagas.cod_empresa = docum.cod_empresa",
                                 " AND docum_comis_pagas.num_docum = docum.num_docum ",
                                 " AND docum_comis_pagas.ies_tip_docum = docum.ies_tip_docum ",
                                 " AND (docum_comis_pagas.cod_repres = docum.cod_repres_1 ",
                                 " OR docum_comis_pagas.cod_repres = docum.cod_repres_2 ",
                                 " OR docum_comis_pagas.cod_repres = docum.cod_repres_3) "

LET l_sql_where = " WHERE docum_comis_pagas.ies_tip_docum IN ( ",
                                " SELECT tip_docum ",
                                " FROM cre_tip_doc_compl ",
                                " WHERE cre_tip_doc_compl.empresa = docum_comis_pagas.cod_empresa ",
                                " AND cre_tip_doc_compl.campo = 'gera comissao' ",
                                " AND cre_tip_doc_compl.par_existencia <> 'N' ) ",
                                " AND ( docum_comis_pagas.apropr_desp IS NOT NULL ",
                                " OR EXISTS (SELECT docum ",
                                " FROM cre_info_adic_doc ",
                                " WHERE empresa = docum_comis_pagas.cod_empresa ",
                                " AND docum = docum_comis_pagas.num_docum ",
                                " AND tip_docum = docum_comis_pagas.ies_tip_docum ",
                                " AND sequencia_docum = docum_comis_pagas.num_seq_docum "

IF mr_tela.quebra_pagina = 'M' OR
     mr_tela.quebra_pagina = 'N' THEN
     IF mr_tela.data_ini IS NOT NULL THEN
          LET l_sql_where = l_sql_where CLIPPED, " AND docum.dat_emis >= '",mr_tela.data_ini, "'",
                                                                                  " AND docum.dat_emis <= '", mr_tela.data_fim, "' "
     END IF
END IF

LET l_sql_where = l_sql_where CLIPPED, " AND campo = 'compl_docum_comis_pagas' ",
                                                                        " AND parametro_val > 0 ",
                                                                        " AND ( parametro_texto = 'ordem_compra' ",
                                                                        " OR parametro_texto = 'registro' ) ) ) "
 #" AND docum.cod_empresa = docum_comis_pagas.cod_empresa ",
#" AND docum.num_docum = docum_comis_pagas.num_docum ",
#" AND docum.ies_tip_docum = docum_comis_pagas.ies_tip_docum ",

#" AND EXISTS (SELECT num_docum ",
# " FROM docum ",
# " WHERE cod_empresa = docum_comis_pagas.cod_empresa ",
# " AND num_docum = docum_comis_pagas.num_docum ",
# " AND ies_tip_docum = docum_comis_pagas.ies_tip_docum ",
# " AND (cod_repres_1 = docum_comis_pagas.cod_repres ",
# " OR cod_repres_2 = docum_comis_pagas.cod_repres ",
# " OR cod_repres_3 = docum_comis_pagas.cod_repres))",

IF mr_tela.quebra_pagina = 'E' OR
    mr_tela.quebra_pagina = 'R' THEN
    IF mr_tela.data_ini IS NOT NULL THEN
        LET l_sql_where = l_sql_where CLIPPED, " AND docum_comis_pagas.dat_lancamento >= '", mr_tela.data_ini, "'",
                                                                              " AND docum_comis_pagas.dat_lancamento <= '", mr_tela.data_fim, "'"
    END IF
END IF

   .

   .

   .

END FUNCTION

<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>.