CE PLUS - Nota 004015

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: DI

Data/Hora da Publicação: 22/06/2007 00:00:00

Data/Hora Última Alteração: 22/02/2011 13:41:50

Descrição da Nota: FECHAR CAMPOS DE REDUÇÃO II PARA REGIME SUSPENÇÃO E TRATAR VARIAÇÃO NEGA

Sintoma

Não está contrabilizando variação cambial negativa e está abrindo os campos de redução de II quando

o regime tributario é suspensão.

 

 

Solução

Fechar campos de redução de II quando o regime for suspenção e utilizar o valor absoluto da variação

para a verificação de variação gerada por arredondamento.

 

Versões Tratadas

7.0


Pré-Requisitos

Produto:

Nota

Descrição

FATURA TIPO P ERRO NA DI

Informações Complementares

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

Nota Número 04015 Data: 22/06/2007 Hora: 14:18:22

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

 

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

Nota Número              : 04015

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00001

Agrupamento              : 00171

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

Referência às notas relacionadas:

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

 

02673  - 00001 - 6.0    - 00025  - FATURA TIPO P ERRO NA DI

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

FECHAR CAMPOS DE REDUÇÃO II PARA REGIME SUSPENÇÃO E TRATAR VARIAÇÃO NEGA

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

Palavras Chave:

CAMPOS - REDUÇÃO - FECHAR - II - VARIAÇÃO - CAMBIAL - NEGATIVA

/PWS/SAPMZYCI023

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

Objetos da nota:

REPS /PWS/LZYCIGF2F01

REPS /PWS/MZYCI023F04

 

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

Modificações efetuadas em REPS /PWS/LZYCIGF2F01

 

...

      ENDIF.

    ENDIF.

  ENDIF.

ENDFORM.

FORM lanctos_variacao TABLES itab_zycbt011 STRUCTURE /pws/zycbt011

                      USING  p_zycbt007 STRUCTURE /pws/zycbt007

                             p_zycit001 STRUCTURE /pws/zycit001

                             itab_zycbe033 STRUCTURE /pws/zycbe033.

  DATA: itab_zycbt012  TYPE /pws/zycbt012 OCCURS 10 WITH HEADER LINE,

        v_soma         TYPE /pws/zycit085-vlfob,

* >> Início da inclusão: FORM LANCTOS_VARIACAO

        vl_varia       TYPE /pws/zycit085-vlfob,

* << Fim da inclusão

        vl_variacao    TYPE /pws/zycit085-vlfob.

  SELECT * FROM /pws/zycbt012 INTO TABLE itab_zycbt012

                WHERE codmod  = 'D'.

  SELECT SINGLE *

    FROM /pws/zycit031

    WHERE codmod EQ 'D'

      AND inco1  EQ p_zycit001-inco1

      AND land1  EQ t001-land1.

  LOOP AT itab_bsis_aux WHERE hkont = itab_matuse_aux2-hkont.

    READ TABLE itab_di WITH KEY hkont = itab_matuse_aux2-hkont.

...

 

...

                      itab_bsis_aux-dmbtr.

        v_soma = itab_di-vlfob + itab_di-vlfre + itab_di-vlfren .

        IF itab_zycbe033-tcode = 'F-51'

           AND NOT v_belnrf05 IS INITIAL.

          PERFORM: move_lanctos USING v_soma

                                      vl_variacao.

        ELSEIF itab_zycbe033-tcode = 'F-51'.

          PERFORM move_lanctos USING v_soma

                                     vl_variacao.

        ELSEIF itab_zycbe033-tcode = 'F-05'.

* >> Início da exclusão: FORM LANCTOS_VARIACAO

          IF vl_variacao > '0.03'.

* << Fim da exclusão

* >> Início da inclusão: FORM LANCTOS_VARIACAO

          vl_varia = abs( vl_variacao ).

          IF vl_varia > '0.03'.

* << Fim da inclusão

            PERFORM move_lanctos_f05 USING vl_variacao.

          ELSE.

            v_erro_f05 = 'S'.

          ENDIF.

        ENDIF.

      ELSEIF /pws/zycit031-inco1_ci = 'CIF'.

        vl_variacao = itab_di-vlfob + itab_di-vlfre + itab_di-vlfren +

                      itab_di-vlseg - itab_bsis_aux-dmbtr.

        IF itab_zycbe033-tcode = 'F-51'

           AND NOT v_belnrf05 IS INITIAL.

          PERFORM: move_lanctos USING itab_di-vldi

                                      vl_variacao.

        ELSEIF itab_zycbe033-tcode = 'F-51'.

          PERFORM move_lanctos USING itab_di-vldi

                                     vl_variacao.

        ELSEIF itab_zycbe033-tcode = 'F-05'.

* >> Início da exclusão: FORM LANCTOS_VARIACAO

          IF vl_variacao > '0.03'.

* << Fim da exclusão

* >> Início da inclusão: FORM LANCTOS_VARIACAO

          vl_varia = abs( vl_variacao ).

          IF vl_varia > '0.03'.

* << Fim da inclusão

            PERFORM move_lanctos_f05 USING vl_variacao.

          ELSE.

            v_erro_f05 = 'S'.

          ENDIF.

        ENDIF.

      ENDIF.

    ELSEIF itab_bsis_aux-tpfatura = '02'

      AND NOT itab_di-vlfre IS INITIAL.

      IF NOT /pws/zycit000-provfre IS INITIAL.

        CONTINUE.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI023F04

 

...

            screen-input = '0'.

            CLEAR: /pws/zycie100a-aladi, a_aladi.

          ENDIF.

        ELSEIF screen-name EQ '/PWS/ZYCIE100A-ACORDORATE'.

          IF /pws/zycie100a-acordo IS INITIAL.

            screen-input = '0'.

            CLEAR: /pws/zycie100a-acordorate.

          ENDIF.

        ELSEIF screen-name EQ '/PWS/ZYCIE100A-REDUZIDA'.

          IF NOT /pws/zycie100a-percreduz IS INITIAL OR

* >> Início da exclusão: FORM SET_SCREEN_0431

             '12369' CA /pws/zycie100a-codregtri.

* << Fim da exclusão

* >> Início da inclusão: FORM SET_SCREEN_0431

             '123569' CA /pws/zycie100a-codregtri.

* << Fim da inclusão

            screen-input = '0'.

            CLEAR: /pws/zycie100a-reduzida.

          ENDIF.

        ELSEIF screen-name EQ '/PWS/ZYCIE100A-PERCREDUZ'.

          IF NOT /pws/zycie100a-reduzida IS INITIAL OR

* >> Início da exclusão: FORM SET_SCREEN_0431

             '12369' CA /pws/zycie100a-codregtri.

* << Fim da exclusão

* >> Início da inclusão: FORM SET_SCREEN_0431

             '123569' CA /pws/zycie100a-codregtri.

* << Fim da inclusão

            screen-input = '0'.

            CLEAR: /pws/zycie100a-percreduz.

          ENDIF.

        ELSEIF screen-name EQ '/PWS/ZYCIE100A-CODFUNLEG'.

          IF ' 178' CA /pws/zycie100a-codregtri.

            screen-input = '0'.

            CLEAR: /pws/zycie100a-codfunleg, t_fundes.

          ENDIF.

          IF v_existe_li EQ 'X'.

            screen-input = '0'.

...