Sintoma

O programa não calcula de forma correta os impostos.

Solução

Adicionado código para que o imposto seja calculado de forma correta.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 05911 Data: 13/02/2008 Hora: 13:04:17

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 05911

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00004

Agrupamento              : 00034

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

00304  - 00001 - 6.0    - 00021  - CÁLCULO DO RATEIO DOS IMPOSTOS CONFORME CENTROS DE CUSTOS

00388  - 00002 - 6.0    - 00021  - INCLUIR CMPS DIAGRAMA REDE/OPERAÇÃO/PED.COMPRA/ITEM DOC COMPRA, N

00399  - 00003 - 6.0    - 00022  - EXIT NA REMESSA FINANCEIRA DE PAGAMENTO PARA CÁLCULO DO CIDE E IS

00421  - 00004 - 6.0    - 00022  - EXIT NA REMESSA FINANCEIRA DE PAGAMENTO PARA CÁLCULO DO CIDE E IS

00429  - 00005 - 6.0    - 00022  - PASSAGEM DE PARÂMETROS DO INCLUDE PARA A EXECUÇÃO DA EXIT

00456  - 00006 - 6.0    - 00022  - REMESSA PAGTO. - CAMPOS ATRIBUIÇÃO E TEXTO NÃO SÃO PREENCHIDOS

00481  - 00007 - 6.0    - 00022  - REMESSA FINANCEIRA COM IRRF DEDUZIDO DA FATURA

01231  - 00008 - 6.0    - 00023  - REMESSA - IMPOSTOS NOVOS

01243  - 00009 - 6.0    - 00023  - DESPESAS - PROBLEMAS COM ANO E PERÍODO CONTÁBIL

02024  - 00011 - 6.0    - 00024  - COMPLEMENTO DO BOLETO REMESSA FINANCEIRA ALTERAÇÃO VALOR MI F-43

02171  - 00010 - 6.0    - 00025  - REMESSA - DA STATUS CAMPOS TELA PAGAMENTO/RECEBIMENTO

02515  - 00012 - 6.0    - 00025  - REMESSA - PONTO DE EXIT REM002

02709  - 00013 - 6.0    - 00026  - REMESSA - CAMPO "AD VALOREM" E REMOÇÃO DA TELA 004

03379  - 00014 - 7.0    - 00001  - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO - DES. ADIC. REMESSA

03700  - 00015 - 7.0    - 00001  - REMESSA - EXIT REM003 - BASE DE CÁLCULO IMPOSTOS

04798  - 00017 - 7.0    - 00003  - REMESSA - DA BASE CÁLCULO IMPOSTOS

04824  - 00016 - 7.0    - 00003  - REMESSA COM ORIGEM - RATEIO PASTA CONTABILIZAÇÃO PRINCIPAL

04834  - 00018 - 7.0    - 00003  - ESTRATÉGIA LIBERAÇÃO - REMESSA - JPY - FATOR DE CONVERSÃO

05772  - 00019 - 7.0    - 00004  - VERIFICAÇÃO AMPLIADA, CODE INSPECTOR MODULO DE FUNÇÃO CAMBIO

----------------------------------------------------------------------------------------------------

REMESSA - AJUSTE NO CALCULO DE IMPOSTOS

----------------------------------------------------------------------------------------------------

Palavras Chave:

REMESSA - AJUSTE BASE DE CALCULO CIDE C/FLAG DEDUZ FAT IRRF

----------------------------------------------------------------------------------------------------

Objetos da nota:

FUNC /PWS/ZYCA_TRANSACAO_F_51P

REPS /PWS/LZYCAGF2F01

REPS /PWS/LZYCAGF2TOP

REPS /PWS/MZYCA109I01

REPS /PWS/MZYCA109TOP

REPS /PWS/MZYCA109X01

REPT /PWS/SAPMZYCA109

----------------------------------------------------------------------------------------------------

Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_51P

...

    PERFORM bdc_screen USING 'SAPDF05X' '3100'.

    PERFORM bdc_field USING 'BDC_CURSOR'  'DF05B-PSDIF(01)'.

    PERFORM bdc_field USING 'BDC_OKCODE'  '=Z+'.

    IF v_processo = 'P'.

      PERFORM bdc_screen USING 'SAPDF05X'   '3100'.

      PERFORM bdc_field USING 'BDC_CURSOR'  'DF05B-PSDIF(01)'.

      PERFORM bdc_field USING 'BDC_OKCODE'  '=PI'.

      PERFORM bdc_screen USING 'SAPDF05X'   '3100'.

      PERFORM bdc_field USING 'BDC_CURSOR'  'DF05B-PSDIF(01)'.

      PERFORM bdc_field USING 'BDC_OKCODE'  '=BS'.

* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_51P

      PERFORM verifica_empresas USING t_dados-bukrs

                                      'UMBUCHNG'

                                       t_dados-agkon

                                       t_dados-agkoa.

* << Fim da inclusão

      PERFORM bdc_screen USING 'SAPMF05A' '0700'.

      CONCATENATE 'RF05A-AZEI1(' v_cont ')' INTO v_campo.

      PERFORM bdc_field USING:

        'BDC_CURSOR'  'RF05A-AZEI1(02)',

        'BDC_OKCODE'  '=PI'.

      PERFORM bdc_screen USING 'SAPMF05A'   '0302'.

      IF NOT t_dados-c_sgtxt IS INITIAL.

        PERFORM bdc_field USING: 'BDC_CURSOR' 'BSEG-SGTXT',

                                 'BSEG-SGTXT' t_dados-c_sgtxt.

      ENDIF.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/LZYCAGF2F01

...

            i_koart          = '+'

            i_monat          = p_period

       EXCEPTIONS

            error_period     = 1

            error_period_acc = 2

            OTHERS           = 3.

  IF sy-subrc EQ 0.

  else.

  ENDIF.

ENDFORM.

* >> Início da inclusão:

FORM verifica_empresas USING  p_emp

                              p_tplanc

                              p_conta

                              p_tpcont.

  DATA v_lines(3).

  SELECT * FROM t041b

         INTO TABLE itab_t041b

         WHERE bukrs EQ p_emp

           AND bbukr NE p_emp

           AND auglv EQ p_tplanc.

  IF sy-subrc EQ 0.

    LOOP AT itab_t041b.

      IF itab_t041b-bukrs = itab_t041b-bbukr.

        DELETE itab_t041b.

      ENDIF.

    ENDLOOP.

    CLEAR itab_t041b.

    CHECK NOT itab_t041b[] IS INITIAL.

    IF p_tpcont EQ 'S'.

      SELECT bukrs saknr FROM skb1

             INTO TABLE itab_empresas

             WHERE saknr EQ p_conta.

    ELSEIF p_tpcont EQ 'K'.

      SELECT bukrs lifnr FROM lfb1

             INTO TABLE itab_empresas

             WHERE lifnr EQ p_conta.

    ELSEIF p_tpcont EQ 'D'.

      SELECT bukrs kunnr FROM knb1

             INTO TABLE itab_empresas

             WHERE kunnr EQ p_conta.

    ENDIF.

    IF NOT itab_empresas[] IS INITIAL.

      CLEAR v_lines.

      LOOP AT itab_empresas.

        LOOP AT itab_t041b WHERE bbukr = itab_empresas-bukrs.

          v_lines = v_lines + 1.

        ENDLOOP.

      ENDLOOP.

      IF NOT v_lines IS INITIAL.

        PERFORM bdc_screen USING  'SAPMF05A'    '0701'.

        PERFORM bdc_field  USING: 'BDC_CURSOR'  'RF05A-BUKZ1(1)',

                                  'BDC_OKCODE'  '=PI'.

      ENDIF.

    ENDIF.

  ENDIF.

ENDFORM.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/LZYCAGF2TOP

...

        conta LIKE lfb1-akont,

      END OF itab_oculto2.

DATA: itab_zycbt036 LIKE /pws/zycbt036 OCCURS 10 WITH HEADER LINE.

DATA: BEGIN OF itab_oculto OCCURS 10,

        campo(30),

        chave TYPE c,

      END OF itab_oculto.

DATA: itab_zycet006 LIKE /pws/zycet006 OCCURS 10 WITH HEADER LINE.

DATA:  v_num LIKE itab_zycbt036-belnr,

       v_ok(1) VALUE 'N'.  "#EC *

* >> Início da inclusão:

DATA: itab_t041b    LIKE t041b    OCCURS 10 WITH HEADER LINE.

DATA: BEGIN OF itab_empresas OCCURS 10,

      bukrs  LIKE skb1-bukrs,

      conta  LIKE skb1-saknr,

      END OF itab_empresas.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCA109I01

...

    read table itab_zycat024 with key bukrs = /pws/zycbe124-bukrs

                                      tpimp = itab_zycat025-tpimp.

    if sy-subrc                      eq 0         and

       ( ( itab_zycat024-altera_base is initial   or

           itab_zycat025-basecalc    is initial ) or

         ( v_control_ci              eq 1         and

           sy-tcode                  eq '/PWS/ZYCB109_C' ) ).

      read table itab_zycat025_aux2 with key tpimp(4) = 'IRRF'.

      if sy-subrc = 0 and itab_zycat025_aux2-dedfat = 'X' and

         /pws/zycbe124-vlme => itab_zycat025_aux2-vlimpme.

* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS

         IF v_verif IS INITIAL.

           CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'

             EXPORTING

               defaultoption = 'Y'

               textline1     = text-100

               textline2     = text-101

               titel         = space

             IMPORTING

               answer        = v_answer

             EXCEPTIONS

               OTHERS = 0."#EC

           IF v_answer = 'J'.

* << Fim da inclusão

               v_valorme = /pws/zycbe124-vlme - itab_zycat025_aux2-vlimpme.

* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS

               v_resposta = 'X'.

* << Fim da inclusão

            else.

                v_valorme = /pws/zycbe124-vlme.

* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS

                v_resposta = space.

            ENDIF.

           v_verif = 'X'.

         ELSE.

           IF v_resposta = space.

             v_valorme = /pws/zycbe124-vlme.

           ELSE.

            v_valorme = /pws/zycbe124-vlme - itab_zycat025_aux2-vlimpme.

           ENDIF.

         ENDIF.

       ELSE.

         v_valorme = /pws/zycbe124-vlme.

         v_verif = space.

* << Fim da inclusão

      endif.

      read table itab_zyglt100 with key zexit = 'REM003' binary search.

      if sy-subrc eq 0 and not itab_zyglt100-zexit_ativa is initial.

        perform (itab_zyglt100-formulario)

                in program (itab_zyglt100-programa).

      else.

        read table itab_zycat026 with key

                                       tpimp = itab_zycat025-tpimp(4).

        if sy-subrc = 0 and not itab_zycat026-formula is initial.

          perform calcula_base_calculo using    v_valorme

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCA109TOP

...

DATA: v_nome_campo(35) TYPE c,

      v_comp(35)       TYPE c,

      v_cod_grupo      LIKE /pws/zyglt320-cod_grupo,

      cont             TYPE i VALUE 0,

      v_tela           LIKE sy-ucomm,

      wa_zycbe141_aux  LIKE /pws/zycbe141,

      v_dtlanc(10)     TYPE c,

      v_vlme_assoc     TYPE /pws/zycbt124-vlme,

      v_sld_associar   TYPE /pws/zycbt124-sld_associar.

DATA: v_porcentagem TYPE /pws/zycbt124-vlme,

* >> Início da inclusão:

  v_resposta TYPE c,

  v_verif   TYPE c,

* << Fim da inclusão

      v_total_docto TYPE bseg-wrbtr.

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCA109X01

...

        WITH HEADER LINE,

      itab_zycbt141_i_aux

        TYPE STANDARD TABLE OF t_zycbt141

        WITH HEADER LINE,

      itab_zycbt141_i_aux2

        TYPE STANDARD TABLE OF t_zycbt141

        WITH HEADER LINE.

DATA: BEGIN OF itab_zycat025 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycat025.

DATA: mark(1) TYPE c.

* >> Início da inclusão:

DATA: verificado(1) type c.

DATA: resposta(1)   type c.

* << Fim da inclusão

DATA: END OF itab_zycat025.

DATA: itab_zycbt141_aux LIKE /pws/zycbt141 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_zycat026 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycat026.

DATA: END OF itab_zycat026.

DATA: BEGIN OF itab_contas OCCURS 0.

        INCLUDE STRUCTURE /pws/zyglt350.

DATA: END OF itab_contas.

DATA: BEGIN OF itab_custo OCCURS 0.

        INCLUDE STRUCTURE /pws/zyglt350.

DATA: END OF itab_custo.

DATA: BEGIN OF itab_lucro OCCURS 0.

        INCLUDE STRUCTURE /pws/zyglt350.

DATA: END OF itab_lucro.

DATA: BEGIN OF itab_zycbe033 OCCURS 100.

        INCLUDE STRUCTURE /pws/zycbe033.

DATA: END OF itab_zycbe033.

DATA: BEGIN OF itab_zycat025_aux2 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycat025.

DATA: mark(1) TYPE c.

* >> Início da inclusão:

DATA: verificado(1) type c.

DATA: resposta(1)   type c.

* << Fim da inclusão

DATA: END OF itab_zycat025_aux2.

DATA:

  w_ok        LIKE sy-ucomm,

  v_valorme   LIKE /pws/zycbt124-vlme.

DATA: v_belnr_s    TYPE /pws/zycbt124-belnr,

      v_tpimp      TYPE /pws/zycat025-tpimp,"#EC NEEDED

      wa_zycbt011  LIKE /pws/zycbt011.

DATA: BEGIN OF itab_zycbt032 OCCURS 100.

        INCLUDE STRUCTURE /pws/zycbt032.

DATA: END OF itab_zycbt032.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPT /PWS/SAPMZYCA109

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 100

Texto: (50 caracteres)

"Desconta o Valor Imposto ME do Valor ME da Remessa"

Comprimento máximo: 50

------------------------------------------------------------------------

Incluído símbolo de texto:

Idioma: PT

Símbolo: 101

Texto: (40 caracteres)

"para informe da Base de Cálculo do CIDE?"

Comprimento máximo: 40