ER_MANFIN01-402_ FIN30135_Ajuste_cadastro_de_prefeitura_x_pctISS_+_tipo_despesa

(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 seja incluído o relacionamento automático entre os tipos de despesas cadastrados que possuam controle de retenção de ISS com o tipo de valor e prefeitura. Este relacionamento era opcional na versão 10.02 e tornou-se obrigatório a partir da versão 12 

(Obrigatório)

Definição da Regra de Negócio

 A partir da versão metadados, o relacionamento entre os tipos de despesas x prefeituras x pct ISS se tornou obrigatório, não permitindo a inclusão de documentos que não possuam este relacionamento. O programa fin30135 será alterado para prever a inclusão de todos os relacionamentos, sendo previsto as seguintes alterações:

1 - No Zoom dos tipos de despesas, serão selecionados apenas os registros que possuam a trava de retenção do ISS ativa. 

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

  FUNCTION fin30135_before_zoom_tip_desp()

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

  DEFINE l_where_clause CHAR(1000)

  LET l_where_clause = ' cod_empresa    = "',p_cod_empresa,'" '

    LET l_where_clause = l_where_clause CLIPPED, ' AND cod_tip_despesa IN (SELECT tip_despesa FROM cap_par_tip_desp ',

                                               ' WHERE empresa =  "',p_cod_empresa,'" ',

                                               ' AND parametro = "usa_ctrl_trava_iss" ',

                                               ' AND parametro_booleano <> "0") '

  CALL LOG_zoom_set_where_clause(l_where_clause)

  RETURN TRUE

END FUNCTION

2 - Será criada uma nova função no FIN30135 para verificar no final da inclusão, se ficou faltando relacionar tipos de despesas com obrigatoriedade de retenção do ISS. caso encontre mostrará a mensagem questionando o usuário se não deseja que a inclusão dos demais relacionamentos seja feita automaticamente. Esta lógica deverá ser incluída antes da função de replicação dos dados para as demais empresas. 

#-----------------------------------------#
FUNCTION fin30135_confirm_create()
#-----------------------------------------#
DEFINE l_where_clause CHAR(1000)

#Arthur
#--# Cadastra os tipos de despesas não informados automoaticamente #--#
CALL fin30135_insere_relac_retencao_iss_autom("I")
RETURNING m_status, m_msg

IF NOT m_status THEN
    RETURN FALSE, m_msg
END IF

#--# Replica para outras empresas #--#
CALL fin30135_replica_dados('I')
RETURNING m_status, m_msg
IF NOT m_status THEN
    CALL log_show_status_bar_text(m_form,m_msg CLIPPED,'ERROR_TEXT')
RETURN FALSE
END IF

LET l_where_clause = ' mest.empresa = "',ma_relac_pref[1].empresa CLIPPED,'"',
' AND mest.tip_val = ',ma_relac_pref[1].tip_val

LET m_status = _ADVPL_get_property(m_form,"EXECUTE_OPERATION","FIND",l_where_clause)
CALL log_show_status_bar_text(m_form, 'Inclusão efetuada com sucesso','INFO_TEXT')

RETURN TRUE

END FUNCTION

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

FUNCTION fin30135_confirm_update()
#-----------------------------------------#

DEFINE l_ind SMALLINT
#Arthur
#--# Cadastra os tipos de despesas não informados automoaticamente #--#
CALL fin30135_insere_relac_retencao_iss_autom("A")
RETURNING m_status, m_msg

IF NOT m_status THEN
RETURN FALSE, m_msg
END IF

#--# Replica para outras empresas #--#
CALL fin30135_replica_dados('A')
RETURNING m_status, m_msg

IF NOT m_status THEN
CALL log_show_status_bar_text(m_form,m_msg CLIPPED,'ERROR_TEXT')
RETURN FALSE
END IF

RETURN TRUE

END FUNCTION

#---------------------------------------------------------#
FUNCTION fin30135_insere_relac_retencao_iss_autom(l_opcao)
#---------------------------------------------------------#
DEFINE l_progress_bar VARCHAR(30),
l_max_value INTEGER

DEFINE lr_cap_pct_iss_municipio RECORD LIKE cap_pct_iss_municipio.*,
              lr_cap_iss_municipio RECORD LIKE cap_iss_municipio.*,
              lr_tipo_despesa RECORD LIKE tipo_despesa.*

DEFINE l_cod_cidade LIKE fornecedor.cod_cidade

DEFINE l_tot_regs INTEGER,
               l_reg_curr INTEGER,
               l_ind INTEGER,
               l_opcao CHAR(01),
               l_qtd_munic INTEGER,
               l_cod_munic LIKE cap_pct_iss_municipio.municipio_iss


   IF NOT log_question('Deseja efetuar o relacionamento automático para todos os tipo de despesa que controlam ISS ?') THEN
        RETURNFALSE, ' '  
   END IF

   # CALL fin30135_gauge_inicializa()

   LET l_max_value = 0

   WHENEVER ERROR CONTINUE
   SELECT COUNT(*)
        INTO l_max_value
      FROM tipo_despesa
    WHERE cod_empresa = ma_relac_pref[1].empresa
  WHENEVER ERROR STOP
   IF sqlca.sqlcode <> 0 THEN 
        CALL log003_err_sql("SELECT","TIPO_DESPESA")
         RETURN FALSE
   END IF

    FOR l_ind = 1 TO 500
          IF ma_relac_pref[l_ind].empresa IS NOT NULL THEN
               IF l_ind = 1 THEN
                   LET l_qtd_munic = 1
                  LET l_cod_munic = ma_relac_pref[l_ind].municipio_iss
               END IF

               IF l_cod_munic <> ma_relac_pref[l_ind].municipio_iss THEN
                   LET l_qtd_munic = l_qtd_munic + 1
                   LET l_cod_munic = ma_relac_pref[l_ind].municipio_iss
               END IF
         ELSE
               EXIT FOR
         END IF
    END FOR

    LET l_max_value = l_max_value * l_qtd_munic
     # CALL _ADVPL_set_property(m_progress_bar_reference,"MAX_VALUE",l_max_value)

     # CALL fin30135_gauge_total_processos(l_max_value)

     IF l_opcao = "A" THEN
         WHENEVER ERROR CONTINUE
         DELETE FROM cap_pct_iss_municipio
          WHERE cap_pct_iss_municipio.empresa = ma_relac_pref[1].empresa
                AND cap_pct_iss_municipio.tip_val = ma_relac_pref[1].tip_val
        WHENEVER ERROR STOP
 

         IF sqlca.SQLCODE <> 0 THEN
              RETURN FALSE, "Problema na exclusão do registro de municipio!"
         END IF
END IF

#Arthur
FOR l_ind = 1 TO 300
        IF ma_relac_pref[l_ind].empresa IS NOT NULL THEN

            # CALL fin30135_gauge_incrementa()

            WHENEVER ERROR CONTINUE
            DECLARE cq_tipo_despesa CURSOR WITH HOLD FOR
              SELECT cod_tip_despesa
                 FROM tipo_despesa, cap_par_tip_desp
              WHERE tipo_despesa.cod_empresa = p_cod_empresa
                    AND cap_par_tip_desp.empresa = tipo_despesa.cod_empresa
                    AND cap_par_tip_desp.parametro = 'usa_ctrl_trava_iss'
                    AND cap_par_tip_desp.tip_despesa = tipo_despesa.cod_tip_despesa
                    AND cap_par_tip_desp.parametro_booleano <> "0"
            WHENEVER ERROR STOP
 

             IF sqlca.sqlcode <> 0 THEN
                 CLOSE cq_tipo_despesa
                 FREE cq_tipo_despesa
                 RETURN FALSE, "Problema na busca dos registros de Tipo de Despesa - Rotina antiga"
             END IF

             WHENEVER ERROR CONTINUE
             FOREACH cq_tipo_despesa INTO lr_tipo_despesa.cod_tip_despesa
                        IF sqlca.sqlcode <> 0 THEN
                             CLOSE cq_tipo_despesa
                             FREE cq_tipo_despesa
                            RETURN FALSE, "Problema na busca dos registros de Tipo de Despesa - Rotina antiga"
                         END IF

                        LET lr_cap_pct_iss_municipio.empresa = ma_relac_pref[l_ind].empresa
                        LET lr_cap_pct_iss_municipio.municipio_iss = ma_relac_pref[l_ind].municipio_iss
                        LET lr_cap_pct_iss_municipio.fornecedor_municipio_iss = ma_relac_pref[l_ind].fornecedor_municipio_iss
                        LET lr_cap_pct_iss_municipio.tip_desp = lr_tipo_despesa.cod_tip_despesa
                        LET lr_cap_pct_iss_municipio.tip_val = ma_relac_pref[l_ind].tip_val
                        LET lr_cap_pct_iss_municipio.eh_isento = ma_relac_pref[l_ind].eh_isento
                        LET lr_cap_pct_iss_municipio.dia_vencimento = ma_relac_pref[l_ind].dia_vencimento
                        LET lr_cap_pct_iss_municipio.qtde_meses_vencimento = ma_relac_pref[l_ind].qtde_meses_vencimento

                        CASE l_opcao
                           WHEN 'I'

                                  IF NOT (lr_cap_pct_iss_municipio.empresa = ma_relac_pref[l_ind].empresa AND
                                       lr_cap_pct_iss_municipio.municipio_iss = ma_relac_pref[l_ind].municipio_iss AND
                                       lr_cap_pct_iss_municipio.fornecedor_municipio_iss = ma_relac_pref[l_ind].fornecedor_municipio_iss AND
                                       lr_cap_pct_iss_municipio.tip_desp = ma_relac_pref[l_ind].tip_desp AND
                                       lr_cap_pct_iss_municipio.tip_val = ma_relac_pref[l_ind].tip_val AND
                                       lr_cap_pct_iss_municipio.eh_isento = ma_relac_pref[l_ind].eh_isento AND
                                       lr_cap_pct_iss_municipio.dia_vencimento = ma_relac_pref[l_ind].dia_vencimento AND
                                      lr_cap_pct_iss_municipio.qtde_meses_vencimento = ma_relac_pref[l_ind].qtde_meses_vencimento) THEN
                                     

                                       WHENEVER ERROR CONTINUE
                                       INSERT INTO cap_pct_iss_municipio (empresa,
                                                                                                         municipio_iss,
                                                                                                         fornecedor_municipio_iss,
                                                                                                         tip_desp,
                                                                                                          tip_val,
                                                                                                          eh_isento,
                                                                                                          dia_vencimento,
                                                                                                          qtde_meses_vencimento)
                                                                                          VALUES (lr_cap_pct_iss_municipio.empresa,
                                                                                                           lr_cap_pct_iss_municipio.municipio_iss,
                                                                                                           lr_cap_pct_iss_municipio.fornecedor_municipio_iss,
                                                                                                           lr_cap_pct_iss_municipio.tip_desp,
                                                                                                           lr_cap_pct_iss_municipio.tip_val,
                                                                                                           lr_cap_pct_iss_municipio.eh_isento,
                                                                                                           lr_cap_pct_iss_municipio.dia_vencimento,
                                                                                                           lr_cap_pct_iss_municipio.qtde_meses_vencimento)
                                           WHENEVER ERROR STOP

                                          IF sqlca.sqlcode <> 0 THEN
                                               IF sqlca.sqlcode = -239 OR sqlca.sqlcode = -268 THEN
                                               ELSE
                                                       RETURN FALSE, "Problema na inclusão no novo registro de municipio!"
                                               END IF
                                        END IF
                             END IF

                 WHEN 'A'

                          WHENEVER ERROR CONTINUE
                                 INSERT INTO cap_pct_iss_municipio (empresa,
                                                                                                  municipio_iss,
                                                                                                  fornecedor_municipio_iss,
                                                                                                  tip_desp,
                                                                                                  tip_val,
                                                                                                  eh_isento,
                                                                                                  dia_vencimento,
                                                                                                  qtde_meses_vencimento)
                                                                                  VALUES (lr_cap_pct_iss_municipio.empresa,
                                                                                                   lr_cap_pct_iss_municipio.municipio_iss,
                                                                                                   lr_cap_pct_iss_municipio.fornecedor_municipio_iss,
                                                                                                   lr_cap_pct_iss_municipio.tip_desp,
                                                                                                   lr_cap_pct_iss_municipio.tip_val,
                                                                                                   lr_cap_pct_iss_municipio.eh_isento,
                                                                                                   lr_cap_pct_iss_municipio.dia_vencimento,
                                                                                                   lr_cap_pct_iss_municipio.qtde_meses_vencimento)
                           WHENEVER ERROR STOP
 

                          IF sqlca.sqlcode <> 0 THEN
                                  IF sqlca.sqlcode = -239 OR sqlca.sqlcode = -268 THEN
                                  ELSE
                                       RETURN FALSE, "Problema na inclusão no novo registro de municipio!"
                                 END IF
                         END IF

             END CASE
      END FOREACH
      FREE cq_tipo_despesa
      WHENEVER ERROR STOP
  END IF
END FOR

RETURN TRUE, ' '

END FUNCTION

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