Sintoma

Noão está preenchendo o valor de PIS e COFINS na pasta de pagamentos da DSI, porem quando a DSI é

atualizada pela segunda vez ou quando está é salva e retornamos na pasta pagamento o valor de PIS e

COFINS é Preenchido.

Solução

Atualização do programa da DSI para mover a base de PIS e COFINS para a tabela antes de efetuar o

calculo do valor a recolher.

Informações Complementares

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

Nota Número 02811 Data: 04/01/2007 Hora: 11:24:55

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

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

Nota Número              : 02811

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00026

Agrupamento              : 00146

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

Referência às notas relacionadas:

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

02718  - 00001 - 6.0    - 00025  - DSI VALORES SE MODIFICAM TODA ATUALIZAÇÃO

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

AJUSTE NO CALCULO DA BASE DE PIS E COFINS PARA MP ANTIGA

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

Palavras Chave:

DSI - PIS - COFINS - BASE - MP - ANTIGA

/PWS/SAPMZYCI058

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

Objetos da nota:

REPS /PWS/MZYCI058F04

REPS /PWS/MZYCI058F02

REPS /PWS/MZYCI058F03

REPS /PWS/MZYCI058I01

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

Modificações efetuadas em REPS /PWS/MZYCI058F02

...

           load_cpfc,

           load_seto,

           load_coll,

           calc_itab.

  MOVE itab_it[] TO itab_ita[].

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

  v_line = 1.

  PERFORM: fill_taxasiscomex USING v_line.

* << Fim da exclusão

ENDFORM.

FORM load_coll.

  v_fretc = /pws/zycie093-prepaid + /pws/zycie093-collect -

 /pws/zycie093-ternacion.

  s_frvr = v_fretc * /pws/zycie085-ukursfre.

...

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

Modificações efetuadas em REPS /PWS/MZYCI058F03

...

                                           ebeln = itab_it-ebeln

                                           ebelp = itab_it-ebelp.

    IF sy-subrc = 0.

      PERFORM adic_list.

    ENDIF.

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

    READ TABLE itab_it WITH KEY nrseq = itab_zycit100_temp-nrseq

                                ebeln = itab_zycit100_temp-ebeln

                                ebelp = itab_zycit100_temp-ebelp.

* << Fim da exclusão

  ENDIF.

  IF NOT /pws/zycit000-flag_txsisc IS INITIAL.

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

    LOOP AT itab_zycit100_temp WHERE adicao = wa_it-adicao.

* << Fim da exclusão

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

    LOOP AT itab_zycit100_temp WHERE adicao = itab_it-adicao.

* << Fim da inclusão

      v_nr_itens = v_nr_itens + 1.

    ENDLOOP.

  ENDIF.

  IF NOT /pws/zycit000-flag_txsisc IS INITIAL.

    READ TABLE itab_zycit049 WITH KEY tpdesp = wa_it000-cod_sisc.

...

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

Modificações efetuadas em REPS /PWS/MZYCI058F04

FORM mp_antiga.

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

  /pws/zycie100a-basecofins =  /pws/zycie100a-basepis =

* << Fim da inclusão

  itab_it-basecofins  =  itab_it-basepis  =

  ( t_iibas * ( (  1 + v_advicms * ( v_advii + v_advipi *

  ( 1 + v_advii ) )  ) / ( 1 - v_advpis - v_advcof - v_advicms ) ) )

   + ( ( v_desp + t_ivdesp ) * ( v_advicms /

   ( 1 - v_advpis - v_advcof - v_advicms ) ) ).

...

...

         /pws/zycie093-meiotransp = 'PS'.

        screen-invisible = '0'.

      ENDIF.

      IF /pws/zycie100a-codregtri EQ '2' OR

         /pws/zycie100a-codregtri EQ '6'.

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

        CLEAR: t_iibas          ,

* << Fim da exclusão

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

        CLEAR:

* << Fim da inclusão

               /pws/zycie003-advalii ,

               a_iicalc         ,

               t_iirec          ,

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

               t_ipibas         ,

* << Fim da exclusão

               /pws/zycie003-advalipi,

               a_ipidevi        ,

               t_ipirec         .

        IF screen-name EQ '/PWS/ZYCIE003-ADVALII' OR

           screen-name EQ '/PWS/ZYCIE003-ADVALIPI'.

          screen-input = 0.

        ENDIF.

      ELSEIF /pws/zycie100a-codregtri EQ '7'.

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

        CLEAR: t_ipibas         ,

* << Fim da exclusão

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

        CLEAR:

* << Fim da inclusão

               /pws/zycie003-advalipi,

               a_ipidevi        ,

               t_ipirec         .

        IF screen-name EQ '/PWS/ZYCIE003-ADVALIPI'.

          screen-input = 0.

...

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

Modificações efetuadas em REPS /PWS/MZYCI058I01

...

  itab_zycit049-tpdesp = /pws/zycie049-tpdesp.

  itab_zycit049-descr  = /pws/zycie049-descr.

  itab_zycit049-vldp   = /pws/zycie049-vldp.

  itab_zycit049-waers  = /pws/zycie049-waers.

  IF NOT itab_zycit049-vldp   IS INITIAL.

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

    if /pws/zycbt007-waersb is initial.

  SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007

                  WHERE bukrs EQ /pws/zycie085-bukrs.

    endif.

* << Fim da inclusão

    IF itab_zycit049-waers  NE  /pws/zycbt007-waersb.

      PERFORM taxa_converte USING    /pws/zycie049-waers

 /pws/zycie085-dttax

                            CHANGING s_tax.

      itab_zycit049-vlreal = itab_zycit049-vldp * s_tax.

...

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

Modificações efetuadas em REPS /PWS/MZYCI058X01

...

      noinitial,

      mark.

DATA: END   OF itab_zycit003.

DATA: itab_zycit100_temp LIKE /pws/zycie100a OCCURS 0 WITH HEADER LINE,

      itab_itb       LIKE itab_it       OCCURS 0 WITH HEADER LINE.

* >> Início da inclusão:

data: itab_it_AUX    LIKE itab_it       OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

DATA: BEGIN OF  itab_adicao OCCURS 0.

        INCLUDE STRUCTURE /pws/zycie116.

DATA: nr_itens TYPE i,

      flag_vltot,

     END OF itab_adicao.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCI058

*Os seguintes textos foram inseridos

ID  Chave      Comprimento  Txt.

 I  238        132    Fundamento Legal informado não está cadastrado!