Sintoma

Problema para inserção da Memória de Cálculo de impostos nas Informações complementares da DI.

Solução

Localizar a Memória de Calculo ante de preencher as Informações Complementares

Informações Complementares

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

Nota Número 07134 Data: 13/08/2008 Hora: 12:10:10

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

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

Nota Número              : 07134

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00061

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

Referência às notas relacionadas:

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

06284  - 00001 - 7.0    - 00005  - DESENVOLVIMENTO PARA MEMÓRIA DE CÁLCULO NA PASTA COMPLEMENTARES

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

NA DI NÃO ESTA PREENCHENDO CORRETAMENTE A MEMÓRIA DE CALCULO

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

Palavras Chave:

DI - MEMÓRIA - CALCULO - DESEMBARAÇO - COMPLEMENTARES

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

Objetos da nota:

REPS /PWS/MZYCI023F03

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023F04

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

    CONCATENATE /pws/zycie085-identify '-' it_adi-adicao

                INTO it_adi-identify.

    APPEND it_adi.

    READ TABLE itab_zycit100_temp WITH KEY nrseq = itab_it_aux-nrseq

                                           ebeln = itab_it_aux-ebeln

                                           ebelp = itab_it_aux-ebelp.

    IF sy-subrc = 0.

      MOVE itab_it_aux-adicao TO itab_zycit100_temp-adicao.

      MODIFY itab_zycit100_temp INDEX v_tabix TRANSPORTING adicao.

    ENDIF.

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

    READ TABLE itab_memoria WITH KEY ebeln = itab_it-ebeln

     ebelp = itab_it-ebelp.

    IF sy-subrc EQ 0.

      itab_memoria-adicao = itab_it-adicao.

      MODIFY itab_memoria TRANSPORTING adicao

      WHERE ebeln = itab_it-ebeln

      AND   ebelp = itab_it-ebelp.

    ENDIF.

* << Fim da exclusão

  ENDLOOP.

  SORT itab_it_aux BY adicao ebeln ebelp.

  READ TABLE itab_it_aux INDEX 1.

  v_adic = itab_it_aux-adicao.

  CLEAR v_cont .

  LOOP AT itab_it_aux.

    v_tabix = sy-tabix.

    IF v_adic = itab_it_aux-adicao.

      itab_it_aux-item_adi_sisc = v_cont + 1 .

    ELSE.

...

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

    a_icdevi  = a_icdevi  + t_icms.

    a_icreco  = a_icreco + a_icdevi.

  ENDIF.

  itab_it-baseicms = t_icmsbs.

  itab_it-vlpis    = v_vlpisrec  .

  itab_it-vlcofins = v_vlcofrec.

  t_pisbs = itab_it-basepis.

  t_cofinsbs = itab_it-basecofins.

  v_vlpisrec   = t_pis   .

  v_vlcofrec   = t_cofins.

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

  read table itab_it with key

             ebeln     = itab_it-ebeln

             ebelp     = itab_it-ebelp

            transporting adicao.

* << Fim da inclusão

  itab_memoria-ebeln     = itab_it-ebeln   .

  itab_memoria-ebelp     = itab_it-ebelp   .

  itab_memoria-adicao    = itab_it-adicao  .

  itab_memoria-vl_aduan  = t_ivadu         .

  itab_memoria-aliqii    = itab_it-advalii .

  itab_memoria-aliqipi   = itab_it-advalipi.

  itab_memoria-aliqpis   = itab_it-advalpis.

  itab_memoria-aliqcof   = itab_it-advalcofins.

  itab_memoria-aliqicms  = itab_it-advalicms.

  itab_memoria-vlcofins  = v_vlcofrec      .

...

...

              OTHERS                  = 8.

    IF sy-subrc = 0.

      LOOP AT rtextcompl.

        ittxt1-line = rtextcompl-tdline.

        APPEND ittxt1.

      ENDLOOP.

    ENDIF.

  ENDLOOP.

  REFRESH: ittxt2.

  LOOP AT ittxt1.

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

    CLEAR: it_words, it_words_app.

* << Fim da inclusão

    REFRESH: it_words, it_words_app.

    SPLIT ittxt1-line AT '&' INTO TABLE it_words.

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

    READ TABLE it_words WITH KEY word = 'MEMORIA'.

* << Fim da inclusão

    IF it_words-word EQ 'MEMORIA'.

      PERFORM carrega_memoria.

      v_word = 'X'.

    ELSE.

      CLEAR v_word.

...

Modificações efetuadas em REPS /PWS/MZYCI023F04

...

  DATA: END OF itab_memoria3.

  DATA : v_aliq(6),

         v_valor(14),

         t_vl_aduan LIKE itab_memoria-vl_aduan  ,

         t_despii   LIKE itab_memoria-despii  ,

         t_vlpis    LIKE itab_memoria-vlpis   ,

         t_vlcofins LIKE itab_memoria-vlcofins,

         t_vlbase   LIKE itab_memoria-baseicms  ,

         t_icmsdev  LIKE itab_memoria-vlicmsdev,

         t_vlicmsr  LIKE itab_memoria-vlicms    .

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

  data: itab_memoria_aux like itab_memoria occurs 0 with header line.

* << Fim da inclusão

  IF NOT itab_memoria[] IS INITIAL.

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

    clear itab_memoria_aux.

    refresh itab_memoria_aux.

    loop at itab_memoria.

      itab_memoria_aux-adicao    = itab_memoria-adicao    .

      itab_memoria_aux-aliqii    = itab_memoria-aliqii    .

      itab_memoria_aux-aliqipi   = itab_memoria-aliqipi   .

      itab_memoria_aux-aliqpis   = itab_memoria-aliqpis   .

      itab_memoria_aux-aliqcof   = itab_memoria-aliqcof   .

      itab_memoria_aux-aliqicms  = itab_memoria-aliqicms  .

      itab_memoria_aux-basred    = itab_memoria-basred    .

      read table itab_memoria_aux with key

           adicao = itab_memoria-adicao.

      if sy-subrc eq 0.

        itab_memoria_aux-vl_aduan  =

          itab_memoria_aux-vl_aduan  + itab_memoria-vl_aduan  .

        itab_memoria_aux-vlcofins  =

          itab_memoria_aux-vlcofins  + itab_memoria-vlcofins  .

        itab_memoria_aux-vlpis     =

          itab_memoria_aux-vlpis     + itab_memoria-vlpis     .

        itab_memoria_aux-baseicms  =

          itab_memoria_aux-baseicms  + itab_memoria-baseicms  .

        itab_memoria_aux-vlii      =

          itab_memoria_aux-vlii      + itab_memoria-vlii      .

        itab_memoria_aux-vlipi     =

          itab_memoria_aux-vlipi     + itab_memoria-vlipi     .

        itab_memoria_aux-despii    =

          itab_memoria_aux-despii    + itab_memoria-despii    .

        itab_memoria_aux-despicms  =

          itab_memoria_aux-despicms  + itab_memoria-despicms  .

        itab_memoria_aux-vlicmsdev =

          itab_memoria_aux-vlicmsdev + itab_memoria-vlicmsdev .

        itab_memoria_aux-vlicms    =

          itab_memoria_aux-vlicms    + itab_memoria-vlicms    .

      modify itab_memoria_aux index sy-tabix.

      else.

        itab_memoria_aux-vl_aduan  = itab_memoria-vl_aduan  .

        itab_memoria_aux-vlcofins  = itab_memoria-vlcofins  .

        itab_memoria_aux-vlpis     = itab_memoria-vlpis     .

        itab_memoria_aux-baseicms  = itab_memoria-baseicms  .

        itab_memoria_aux-vlii      = itab_memoria-vlii      .

        itab_memoria_aux-vlipi     = itab_memoria-vlipi     .

        itab_memoria_aux-despii    = itab_memoria-despii    .

        itab_memoria_aux-despicms  = itab_memoria-despicms  .

        itab_memoria_aux-vlicmsdev = itab_memoria-vlicmsdev .

        itab_memoria_aux-vlicms    = itab_memoria-vlicms    .

        append itab_memoria_aux.

      endif.

    endloop.

    clear itab_memoria.

    refresh itab_memoria.

    move itab_memoria_aux[] to itab_memoria[].

* << Fim da inclusão

    CLEAR it_words-word.

    SORT itab_memoria BY adicao ebeln ebelp.

    LOOP AT itab_memoria.

      WRITE itab_memoria-adicao TO v_aliq.

      itab_memoria1-adicao = itab_memoria2-adicao =

      itab_memoria3-adicao = v_aliq.

      WRITE itab_memoria-vl_aduan TO v_valor CURRENCY '5'.

      itab_memoria1-vl_aduan  = v_valor.

      WRITE itab_memoria-despii TO v_valor CURRENCY '5'.

      itab_memoria1-despii = v_valor.

...