CE PLUS - Nota 002034

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: DI

Data/Hora da Publicação: 01/09/2006 00:00:00

Data/Hora Última Alteração: 20/06/2011 13:18:30

Descrição da Nota: CRIAÇÃO DE UMA DI,IMPORTAÇÃO É SUSPENSO,PIS E O COFINS ESTÃO ZERADOS. VA

Sintoma

Na criação de uma DI onde o imposto de importação é suspenso, o campo valor a recolher do PIS e o

COFINS estão zerados. Verificando na adição, na pasta tributos - cálculos, o valor a recolher está

errado.

 

 

Solução

Fazer o tratamento quando a base de pis e cofins ficarem negativos. Limpar o campo e enviar uma msg.

so para não dar dump pois é erro de processo.

 

Versões Tratadas

6.0


Pré-Requisitos

Produto:

Nota

Descrição

INCLUSÃO DA NOVA TELA PIS/COFINS NA DI

Informações Complementares

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

Nota Número 02034 Data: 01/09/2006 Hora: 16:21:13

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

 

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

Nota Número              : 02034

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00129

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

Referência às notas relacionadas:

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

 

01520  - 00001 - 6.0    - 00023  - INCLUSÃO DA NOVA TELA PIS/COFINS NA DI

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

CRIAÇÃO DE UMA DI,IMPORTAÇÃO É SUSPENSO,PIS E O COFINS ESTÃO ZERADOS. VA

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

Palavras Chave:

DI - IMPOSTO DE IMPORTAÇÃO É SUSPENSO - CÁLCULOS - PIS   COFINS

 

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

Objetos da nota:

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023F03

REPS /PWS/MZYCI023F04

REPT /PWS/SAPMZYCI023

 

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

 

...

      v_ip = sy-tabix.

      IF v_msg = 'S'.

        MESSAGE i015 WITH text-219.

      ENDIF.

    ENDIF.

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

    if v_msg = 'A' .

        MESSAGE i015 WITH text-239 text-240.

    endif.

* << Fim da inclusão

    CALL SCREEN '0400'.

  ELSE.

    IF /pws/zycie085-dttax IS INITIAL.

      MESSAGE i015 WITH text-213.

      EXIT.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

 

...

  ELSE.

    v_advicms = ( /pws/zycie003-advalicms / 100 ).

  ENDIF.

  v_advpis  = ( /pws/zycie100a-advalpis / 100 ).

  v_advcof  = ( /pws/zycie100a-advalcofins / 100 ).

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

  IF /pws/zycit000-pis_cof EQ 'X'.

* << Fim da inclusão

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

  IF /pws/zycit000-pis_cof EQ 'X'.

* << Fim da exclusão

    IF NOT itab_zycit438[] IS INITIAL.

      IF NOT /pws/zycie085-dtreg IS INITIAL.

        READ TABLE itab_zycit438 WITH KEY lei = 'MP252'.

        IF sy-subrc EQ 0.

          IF itab_zycit438-vigencia     <= /pws/zycie085-dtreg AND

...

 

...

    ELSE.

      PERFORM mp_nova.

    ENDIF.

  ENDIF.

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

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

  IF /pws/zycie003-nrseqd IS INITIAL AND

     v_nratoc IS INITIAL.

* << Fim da exclusão

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

  PERFORM calc_piscofins.

* << Fim da inclusão

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

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

      CLEAR:  t_pis, t_cofins, t_icms.

    ELSE.

      CASE /pws/zycie100a-codregtripiscofi.

        WHEN '4'.

          IF /pws/zycie100a-basredpis IS INITIAL.

        t_pis = ( itab_it-basepis * ( /pws/zycie100a-advalpis / 100 ) ).

          ELSE.

       t_pis = ( itab_it-basepis * ( /pws/zycie100a-basredpis / 100 ) ).

          ENDIF.

          IF /pws/zycie100a-basredcof IS INITIAL.

            t_cofins = ( /pws/zycie100a-basecofins *

                       ( /pws/zycie100a-advalcofins / 100 ) ).

          ELSE.

            t_cofins = ( /pws/zycie100a-basecofins *

                       ( /pws/zycie100a-basredcof / 100 ) ).

          ENDIF.

        WHEN '1' OR '3' OR '5'.

          IF /pws/zycie100a-aliqpis IS INITIAL.

            t_pis = ( /pws/zycie100a-basepis *

                 ( /pws/zycie100a-advalpis / 100 ) ).

          ELSE.

            t_pis = ( /pws/zycie100a-basepis *

              ( /pws/zycie100a-aliqpis / 100 ) ).

          ENDIF.

          IF /pws/zycie100a-aliqcof IS INITIAL.

            t_cofins = ( /pws/zycie100a-basecofins *

           ( /pws/zycie100a-advalcofins / 100 ) ).

          ELSE.

            t_cofins = ( /pws/zycie100a-basecofins *

                       ( /pws/zycie100a-aliqcof / 100 ) ).

          ENDIF.

        WHEN OTHERS.

          t_pis = ( /pws/zycie100a-basecofins *

                  ( /pws/zycie100a-advalpis / 100 ) ).

          t_cofins = ( /pws/zycie100a-basecofins *

                 ( /pws/zycie100a-advalcofins / 100 ) ).

      ENDCASE.

    ENDIF.

  ELSE.

    IF /pws/zycie100a-codregtri EQ '5'.

      CLEAR:  t_pis, t_cofins.

    ELSE.

      CASE /pws/zycie100a-codregtripiscofi.

        WHEN '4'.

          IF /pws/zycie100a-basredpis IS INITIAL.

            t_pis = ( /pws/zycie100a-basepis *

             ( /pws/zycie100a-advalpis / 100 ) ).

          ELSE.

            t_pis = ( /pws/zycie100a-basepis *

                    ( /pws/zycie100a-basredpis / 100 ) ).

          ENDIF.

          IF /pws/zycie100a-basredcof IS INITIAL.

            t_cofins = ( /pws/zycie100a-basecofins *

                    ( /pws/zycie100a-advalcofins / 100 ) ).

          ELSE.

            t_cofins = ( /pws/zycie100a-basecofins *

                       ( /pws/zycie100a-basredcof / 100 ) ).

          ENDIF.

        WHEN '1' OR '3' OR '5'.

          IF /pws/zycie100a-aliqpis IS INITIAL.

            t_pis = ( /pws/zycie100a-basepis *

                    ( /pws/zycie100a-advalpis / 100 ) ).

          ELSE.

            t_pis = ( /pws/zycie100a-basepis *

                    ( /pws/zycie100a-aliqpis / 100 ) ).

          ENDIF.

          IF /pws/zycie100a-aliqcof IS INITIAL.

            t_cofins = ( /pws/zycie100a-basecofins *

                       ( /pws/zycie100a-advalcofins / 100 ) ).

          ELSE.

            t_cofins = ( /pws/zycie100a-basecofins *

                       ( /pws/zycie100a-aliqcof / 100 ) ).

          ENDIF.

        WHEN OTHERS.

          t_pis = ( /pws/zycie100a-basecofins *

                  ( /pws/zycie100a-advalpis / 100 ) ).

          t_cofins = ( /pws/zycie100a-basecofins *

                     ( /pws/zycie100a-advalcofins / 100 ) ).

      ENDCASE.

    ENDIF.

  ENDIF.

* << Fim da exclusão

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

    v_vliirec = a_iidevi.

  ELSE.

    v_vliirec = t_iirec.

  ENDIF.

...

 

...

      v_nratoc IS INITIAL.

      t_icmsx = ( 100 - /pws/zycie003-advalicms ) / 100.

      t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *

                                 ( t_icmsbs / t_icmsx ) .

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

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

        CLEAR: t_icmsx, t_icms_d2, t_icms.

* << Fim da inclusão

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

        CLEAR: t_icmsx, t_icms_d2, t_icms, t_pis, t_cofins.

* << Fim da exclusão

      ENDIF.

    ELSE.

      IF /pws/zycie100a-codregtri EQ '5'.

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

        CLEAR: t_icmsx, t_icms_d2, t_icms.

* << Fim da inclusão

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

        CLEAR: t_icmsx, t_icms_d2, t_icms, t_pis, t_cofins.

* << Fim da exclusão

      ELSE.

        t_icmsx = ( 100 - /pws/zycie003-advalicms ) / 100.

        t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *

                                   ( t_icmsbs / t_icmsx ) .

      ENDIF.

    ENDIF.

    t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.

  ELSE.

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

    IF itab_it-nrseqd IS INITIAL

       AND  v_nratoc IS INITIAL.

* << Fim da exclusão

      t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *

                                   t_icmsbs.

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

      IF /pws/zycie100a-codregtri EQ '5'.

        CLEAR: t_icmsx, t_icms_d2, t_icms, t_pis, t_cofins.

      ENDIF.

    ELSE.

* << Fim da exclusão

      IF /pws/zycie100a-codregtri EQ '5'.

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

        CLEAR t_icms.

      ELSE.

        t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *

                                t_icmsbs.

      ENDIF.

* << Fim da exclusão

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

      CLEAR: t_icmsx, t_icms_d2, t_icms.

* << Fim da inclusão

    ENDIF.

  ENDIF.

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

  IF NOT /pws/zycie003-nrseqd IS INITIAL OR

     NOT v_nratoc IS INITIAL.

    IF /pws/zycie100a-codregtri EQ '3'.

      CLEAR:  t_pis, t_cofins .

    ENDIF.

  ENDIF.

* << Fim da exclusão

  IF p_tipo = 'I' OR p_tipo = 'T'     .

    s_wicdevi = s_wicdevi + t_icms    .

    s_wicreco = s_wicdevi             .

    s_wpisreco = s_wpisreco + t_pis   .

    s_wcofreco = s_wcofreco + t_cofins.

    IF NOT /pws/zycie003-nrseqd IS INITIAL OR

       NOT v_nratoc IS INITIAL.

      IF /pws/zycie100a-codregtri EQ '5'.

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

        CLEAR: t_icms, t_pis, t_cofins .

* << Fim da exclusão

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

        CLEAR: t_icms.

* << Fim da inclusão

        screen-input = '0'.

      ELSE.

        s_wicreco = s_wicdevi.

      ENDIF.

    ELSEIF /pws/zycie003-nrseqd IS INITIAL.

...

 

...

  itab_it-vlicms   = t_icms.

  itab_it-vlpis    = t_pis   .

  itab_it-vlcofins = t_cofins.

  t_pisbs = itab_it-basepis.

  t_cofinsbs = itab_it-basecofins.

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

  PERFORM calc_piscofins.

* << Fim da exclusão

ENDFORM.

FORM data_sort.

  SORT itab_it BY

       j_1bnbm       fabric      lifnrfabr     lifnr          advalii

    advalipi      naladi      naladincca    codregtri      codregtriipi

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI023F04

 

...

  data: v_pisred like t_icms,

        v_cofred like t_icms,

        v_calcpc like itab_it-basepis.

   clear: itab_it-basecofins ,

          itab_it-basepis    .

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

  IF /pws/zycie100a-basredpis  >= '100'.

    /pws/zycie100a-basredpis = '0'.

  ENDIF.

  IF /pws/zycie100a-basredcof >= '100'.

    /pws/zycie100a-basredcof = '0'.

  ENDIF.

* << Fim da inclusão

   IF /pws/zycie100a-codregtri eq '4'.

      v_advii =  /pws/zycie100a-reduzida / 100 .

      if  /pws/zycie100a-reduzida is initial.

          v_advii = /pws/zycie003-ADVALII / 100 .

      endif.

...

 

...

       /pws/zycie003-advalipi IS INITIAL.

       v_advipi = itab_it-ipi_recolher / itab_it-baseipi .

   endif.

   case /pws/zycie100a-codregtripiscofi.

   when '4'.

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

            if /pws/zycie100a-basredpis is initial.

* << Fim da exclusão

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

      IF /pws/zycie100a-basredpis IS INITIAL OR

         /pws/zycie100a-basredpis GT '100' .

* << Fim da inclusão

                v_pisred  = ( /pws/zycie100a-advalpis / 100 ).

              else.

                v_pisred  = ( /pws/zycie100a-basredpis / 100 ).

            endif.

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

            if /pws/zycie100a-basredcof is initial.

* << Fim da exclusão

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

      IF /pws/zycie100a-basredcof IS INITIAL OR

         /pws/zycie100a-basredcof GT '100'.

* << Fim da inclusão

                v_cofred  = ( /pws/zycie100a-advalcofins / 100 ).

              else.

                v_cofred  = ( /pws/zycie100a-basredcof / 100 ).

            endif.

    when '1' or '3' or '5'.

...

 

...

    endcase.

   if ( not v_pisred is initial ) or ( not v_cofred is initial ) .

          v_advpis = v_pisred.

          v_advcof = v_cofred.

   endif.

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

  DATA: v_calcpc_ant TYPE /pws/zycit100-basepis.

  v_calcpc_ant = v_calcpc.

* << Fim da inclusão

    v_calcpc = ( t_ivadu * ( (  1 + v_advicms *  ( v_advii + v_advipi *

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

               ( 1 - v_advicms ) ) ) ).

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

  IF v_calcpc LT '0'.

    CLEAR : /pws/zycie100a-basredpis, /pws/zycie100a-basredcof,

    v_calcpc.

    MESSAGE s015 WITH text-239 text-240.

    itab_it-basecofins = itab_it-basepis =

   /pws/zycie100a-basecofins  = /pws/zycie100a-basepis = v_calcpc_ant.

  ELSE.

* << Fim da inclusão

    IF NOT /pws/zycie100a-percreduzpc IS INITIAL.

      v_calcpc =  v_calcpc - ( v_calcpc *

            ( ( 100 - /pws/zycie100a-percreduzpc ) / 100 ) ).

    endif.

    itab_it-basecofins = itab_it-basepis =

    /pws/zycie100a-basecofins  = /pws/zycie100a-basepis = v_calcpc.

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

  ENDIF.

* << Fim da inclusão

ENDFORM.

FORM trata_lineup.

  tc_desp-top_line = tc_desp-top_line - 10.

ENDFORM.

FORM trata_linedown.

...

 

...

  ENDIF.

ENDFORM.

FORM calc_piscofins.

  CLEAR: a_piscalc, a_pisredu, a_pisdevi, a_pisrec,

         a_cofcalc, a_cofredu, a_cofdevi, a_cofrec.

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

  CASE /pws/zycie100a-codregtripiscofi.

    WHEN '3' OR '5'.

* << Fim da inclusão

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

   case itab_it-codregtripiscofi.

   when '4'.

        if itab_it-basredpis is initial.

          a_piscalc = ( ( /pws/zycie100a-advalpis  / 100 ) * t_pisbs ).

* << Fim da exclusão

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

      IF /pws/zycie100a-aliqpis IS INITIAL.

        a_pisdevi = a_piscalc =

          ( ( /pws/zycie100a-advalpis  / 100 ) * t_pisbs ).

* << Fim da inclusão

              else.

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

          a_piscalc = ( ( /pws/zycie100a-basredpis  / 100 ) * t_pisbs ).

* << Fim da exclusão

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

        a_pisdevi = a_piscalc =

         ( ( /pws/zycie100a-aliqpis  / 100 ) * t_pisbs ).

* << Fim da inclusão

        endif.

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

      IF /pws/zycie100a-aliqcof IS INITIAL.

* << Fim da inclusão

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

        if itab_it-basredcof is initial.

             a_cofcalc = ( ( /pws/zycie100a-advalcofins  / 100 )

* << Fim da exclusão

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

        a_cofdevi = a_cofcalc =

           ( ( /pws/zycie100a-advalcofins  / 100 )

* << Fim da inclusão

                         * t_cofinsbs ).

              else.

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

             a_cofcalc = ( ( /pws/zycie100a-basredcof  / 100 )

                         * t_cofinsbs ).

* << Fim da exclusão

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

        a_cofdevi = a_cofcalc =

        ( ( /pws/zycie100a-aliqcof  / 100 ) * t_cofinsbs ).

* << Fim da inclusão

         endif.

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

      CLEAR : t_pis, a_pisredu , t_cofins , a_cofredu.

    WHEN '4'.

* << Fim da inclusão

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

    when '1' or '3' or '5'.

        if itab_it-aliqpis is initial.

          a_piscalc = ( ( /pws/zycie100a-advalpis  / 100 ) * t_pisbs ).

* << Fim da exclusão

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

      IF /pws/zycie100a-basredpis IS INITIAL.

        IF /pws/zycie100a-aliqpis IS INITIAL.

          a_piscalc =

           ( ( /pws/zycie100a-advalpis  / 100 ) * t_pisbs ).

        ELSE.

          a_piscalc =

         ( ( /pws/zycie100a-aliqpis  / 100 ) * t_pisbs ).

        ENDIF.

* << Fim da inclusão

              else.

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

          a_piscalc = ( ( /pws/zycie100a-aliqpis  / 100 ) * t_pisbs ).

* << Fim da exclusão

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

        a_piscalc =

          ( ( /pws/zycie100a-basredpis  / 100 ) * t_pisbs ).

* << Fim da inclusão

        endif.

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

      IF /pws/zycie100a-basredcof IS INITIAL.

        IF /pws/zycie100a-aliqcof IS INITIAL.

* << Fim da inclusão

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

        if itab_it-aliqcof is initial.

             a_cofcalc = ( ( /pws/zycie100a-advalcofins  / 100 )

                         * t_cofinsbs ).

* << Fim da exclusão

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

          a_cofcalc =

          ( ( /pws/zycie100a-advalcofins  / 100 ) * t_cofinsbs ).

        ELSE.

          a_cofcalc =

    ( ( /pws/zycie100a-aliqcof / 100 ) * t_cofinsbs ).

        ENDIF.

* << Fim da inclusão

          else.

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

             a_cofcalc = ( ( /pws/zycie100a-aliqcof  / 100 )

                         * t_cofinsbs ).

* << Fim da exclusão

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

        a_cofcalc =

          ( ( /pws/zycie100a-basredcof  / 100 )  * t_cofinsbs ).

* << Fim da inclusão

        endif.

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

    endcase.

* << Fim da exclusão

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

      t_pis = a_pisdevi = a_pisredu =

       ( /pws/zycie100a-basepis / 100 ) * /pws/zycie100a-basredpis  .

* << Fim da inclusão

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

  IF /pws/zycie100a-codregtripiscofi EQ 4.

        clear: a_piscalc, a_cofcalc .

* << Fim da exclusão

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

      t_cofins = a_cofdevi = a_cofredu =

       ( /pws/zycie100a-basecofins / 100 ) * /pws/zycie100a-basredcof.

* << Fim da inclusão

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

        a_pisredu = ( /pws/zycie100a-basepis / 100 ) *

                      /PWS/ZYCIE100A-basredpis  .

* << Fim da exclusão

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

    WHEN OTHERS.

      IF /pws/zycie100a-aliqpis IS INITIAL.

        t_pis =  a_pisredu = a_pisdevi = a_piscalc =

          ( ( /pws/zycie100a-advalpis  / 100 ) * t_pisbs ).

      ELSE.

        t_pis =  a_pisredu = a_pisdevi = a_piscalc =

         ( ( /pws/zycie100a-aliqpis  / 100 ) * t_pisbs ).

      ENDIF.

* << Fim da inclusão

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

        a_cofredu = ( /pws/zycie100a-basecofins / 100 ) *

                      /pws/zycie100a-basredcof.

        a_pisdevi = a_pisredu.

        a_cofdevi = a_cofredu.

* << Fim da exclusão

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

      IF /pws/zycie100a-aliqcof IS INITIAL.

        t_cofins = a_cofredu = a_cofdevi = a_cofcalc =

           ( ( /pws/zycie100a-advalcofins  / 100 )

                    * t_cofinsbs ).

* << Fim da inclusão

  ELSE.

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

    a_pisdevi = a_piscalc.

    a_cofdevi = a_cofcalc.

* << Fim da exclusão

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

        t_cofins = a_cofredu = a_cofdevi = a_cofcalc =

        ( ( /pws/zycie100a-aliqcof  / 100 ) * t_cofinsbs ).

* << Fim da inclusão

  ENDIF.

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

  CASE /pws/zycie100a-codregtripiscofi.

    WHEN  '3' OR '5'.

      CLEAR : a_pisrec.

      CLEAR : a_cofrec.

    WHEN OTHERS.

      a_pisrec = a_pisdevi.

      a_cofrec = a_cofdevi.

* << Fim da exclusão

  ENDCASE.

  itab_it-pis_calculado = a_piscalc.

  itab_it-pis_reduzido  = a_pisredu.

  itab_it-pis_devido    = a_pisdevi.

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

  itab_it-pis_recolher  = a_pisrec .

* << Fim da exclusão

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

  itab_it-pis_recolher  = t_pis.

* << Fim da inclusão

  itab_it-cof_calculado = a_cofcalc.

  itab_it-cof_reduzido  = a_cofredu.

  itab_it-cof_devido    = a_cofdevi.

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

  itab_it-cof_recolher  = a_cofrec .

* << Fim da exclusão

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

  itab_it-cof_recolher  = t_cofins.

* << Fim da inclusão

ENDFORM.

form seleciona_fund_legal_pc using     p_campo

                                       p_campo1

                             changing  p_texto p_campo2.

  DATA: v_descr LIKE /pws/zycit471-descr.

...

 

 

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

Modificações efetuadas em REPT /PWS/SAPMZYCI023

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 001

 

Texto: (16 caracteres)

"CGC not founded."

 

Comprimento máximo: 18

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 002

 

Texto: (25 caracteres)

"Impossible to edit texts."

 

Comprimento máximo: 25

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 003

 

Texto: (8 caracteres)

"Bar code"

 

Comprimento máximo: 15

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 004

 

Texto: (16 caracteres)

"CRT identificat."

 

Comprimento máximo: 17

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 005

 

Texto: (12 caracteres)

"Identificat."

 

Comprimento máximo: 13

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 006

 

Texto: (10 caracteres)

"Post place"

 

Comprimento máximo: 17

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 010

 

Texto: (40 caracteres)

"Attention. The additions were recalculat"

 

Comprimento máximo: 40

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 012

 

Texto: (36 caracteres)

"It is necessary mark one item first."

 

Comprimento máximo: 37

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 013

 

Texto: (35 caracteres)

"Attention!!! Seq number changed to:"

 

Comprimento máximo: 46

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 015

 

Texto: (39 caracteres)

"There aren¿t itens filled on docs table"

 

Comprimento máximo: 43

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 017

 

Texto: (30 caracteres)

"Itens no invoiced in this B/L."

 

Comprimento máximo: 37

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 018

 

Texto: (25 caracteres)

"It isn¿t possible to use."

 

Comprimento máximo: 26

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 019

 

Texto: (35 caracteres)

"URF forward.is equal to URF entranc"

 

Comprimento máximo: 35

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 021

 

Texto: (42 caracteres)

"Attention!!! There is not exchange rate of"

 

Comprimento máximo: 43

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 022

 

Texto: (13 caracteres)

"to BRL on day"

 

Comprimento máximo: 15

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 024

 

Texto: (28 caracteres)

"Do you wish to save bef.ex.?"

 

Comprimento máximo: 28

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 026

 

Texto: (47 caracteres)

"DI registered! It is not possible to change it."

 

Comprimento máximo: 47

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 028

 

Texto: (10 caracteres)

"DI has NF."

 

Comprimento máximo: 22

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 030

 

Texto: (24 caracteres)

"Expenditure not settled:"

 

Comprimento máximo: 30

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 031

 

Texto: (50 caracteres)

"Company does not consist on Global Param of Import"

 

Comprimento máximo: 50

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 032

 

Texto: (45 caracteres)

"Attention! Expenditure not param at SISCOMEX:"

 

Comprimento máximo: 50

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 033

 

Texto: (35 caracteres)

"URF forwarding dif from URF entranc"

 

Comprimento máximo: 35

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 034

 

Texto: (35 caracteres)

"Necessary to salve the datas before"

 

Comprimento máximo: 37

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 035

 

Texto: (23 caracteres)

"execute this operation."

 

Comprimento máximo: 23

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 036

 

Texto: (40 caracteres)

"Datas of this clearance will be excluded"

 

Comprimento máximo: 40

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 037

 

Texto: (28 caracteres)

"Wish continue the exclusion?"

 

Comprimento máximo: 28

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 038

 

Texto: (22 caracteres)

"Exclusion confirmation"

 

Comprimento máximo: 23

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 039

 

Texto: (38 caracteres)

"Attention! Incoterm not in parameters:"

 

Comprimento máximo: 41

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 040

 

Texto: (45 caracteres)

"DI number can not has more than 13 caracteres"

 

Comprimento máximo: 50

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 041

 

Texto: (21 caracteres)

"DI has only one item."

 

Comprimento máximo: 25

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 042

 

Texto: (32 caracteres)

"Country belongs of agreem: ALADI"

 

Comprimento máximo: 32

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 043

 

Texto: (35 caracteres)

"Country belongs to agreem: MERCOSUL"

 

Comprimento máximo: 35

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 046

 

Texto: (20 caracteres)

"DI is not saved yet."

 

Comprimento máximo: 25

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 047

 

Texto: (38 caracteres)

"DI was inserted on transmission queue."

 

Comprimento máximo: 39

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 048

 

Texto: (45 caracteres)

"It is not possible to insert on transm queue."

 

Comprimento máximo: 48

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 049

 

Texto: (31 caracteres)

"DI already on the transm queue."

 

Comprimento máximo: 34

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 050

 

Texto: (8 caracteres)

"Delivery"

 

Comprimento máximo: 8

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 052

 

Texto: (6 caracteres)

"Order:"

 

Comprimento máximo: 8

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 056

 

Texto: (18 caracteres)

"with valid format."

 

Comprimento máximo: 21

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 058

 

Texto: (5 caracteres)

"Disp."

 

Comprimento máximo: 6

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 063

 

Texto: (18 caracteres)

"Inform valid code."

 

Comprimento máximo: 23

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 069

 

Texto: (18 caracteres)

"Retransmit the DI?"

 

Comprimento máximo: 27

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 071

 

Texto: (6 caracteres)

"Plant:"

 

Comprimento máximo: 8

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 073

 

Texto: (42 caracteres)

"None contract was typed on Payment folder."

 

Comprimento máximo: 44

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 074

 

Texto: (42 caracteres)

"None contract was typed on Payment folder."

 

Comprimento máximo: 44

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 106

 

Texto: (14 caracteres)

"Plant address:"

 

Comprimento máximo: 19

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 107

 

Texto: (52 caracteres)

"Total value different from amount of addition itens!"

 

Comprimento máximo: 53

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 109

 

Texto: (19 caracteres)

"It is linked to LI:"

 

Comprimento máximo: 20

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 110

 

Texto: (16 caracteres)

"with expire date"

 

Comprimento máximo: 22

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 113

 

Texto: (45 caracteres)

"Table data of parameters are not consistents."

 

Comprimento máximo: 45

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 114

 

Texto: (14 caracteres)

"Plant address:"

 

Comprimento máximo: 19

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 115

 

Texto: (11 caracteres)

"Order item:"

 

Comprimento máximo: 12

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 124

 

Texto: (42 caracteres)

"Shipment Reg is not qualify on this option"

 

Comprimento máximo: 42

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 125

 

Texto: (20 caracteres)

"Total amount of invc"

 

Comprimento máximo: 21

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 132

 

Texto: (27 caracteres)

"that are waiting to send or"

 

Comprimento máximo: 31

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 135

 

Texto: (27 caracteres)

"They weren¿t customized the"

 

Comprimento máximo: 27

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 136

 

Texto: (19 caracteres)

"server datas. Table"

 

Comprimento máximo: 25

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 140

 

Texto: (27 caracteres)

"It isn¿t customized the way"

 

Comprimento máximo: 32

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 141

 

Texto: (28 caracteres)

"and program name of transfer"

 

Comprimento máximo: 35

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 142

 

Texto: (8 caracteres)

"on table"

 

Comprimento máximo: 9

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 143

 

Texto: (38 caracteres)

"The file CESISCOMEX.EXE was not found."

 

Comprimento máximo: 44

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 144

 

Texto: (37 caracteres)

"Reinstall the program of transmission"

 

Comprimento máximo: 37

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 145

 

Texto: (37 caracteres)

"The file CESUFRAMA.EXE was not found."

 

Comprimento máximo: 43

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 146

 

Texto: (37 caracteres)

"Reinstall the program of transmission"

 

Comprimento máximo: 37

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 148

 

Texto: (21 caracteres)

"which are on waiting!"

 

Comprimento máximo: 23

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 151

 

Texto: (21 caracteres)

"which are on waiting!"

 

Comprimento máximo: 23

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 152

 

Texto: (37 caracteres)

"Regime on taxation is not customized!"

 

Comprimento máximo: 40

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 153

 

Texto: (48 caracteres)

"There isn¿t exchange rate. DI can not be salved."

 

Comprimento máximo: 50

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 155

 

Texto: (27 caracteres)

"of Batch-Input of functions"

 

Comprimento máximo: 27

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 156

 

Texto: (22 caracteres)

"Execut. of Batch-Input"

 

Comprimento máximo: 23

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 202

 

Texto: (22 caracteres)

"DSI of courier process"

 

Comprimento máximo: 47

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 205

 

Texto: (9 caracteres)

"additions"

 

Comprimento máximo: 9

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 206

 

Texto: (27 caracteres)

"Invoice not entered, return"

 

Comprimento máximo: 34

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 207

 

Texto: (22 caracteres)

"the invoice and enter."

 

Comprimento máximo: 24

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 209

 

Texto: (13 caracteres)

"Cont. process"

 

Comprimento máximo: 14

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 212

 

Texto: (23 caracteres)

"DI can not be excluded!"

 

Comprimento máximo: 25

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 213

 

Texto: (28 caracteres)

"Fill the exchange rate date."

 

Comprimento máximo: 50

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 214

 

Texto: (30 caracteres)

"Process salved with accounting"

 

Comprimento máximo: 55

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 215

 

Texto: (34 caracteres)

"of exchange variance. There is GR!"

 

Comprimento máximo: 40

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 217

 

Texto: (21 caracteres)

"posted in the company"

 

Comprimento máximo: 22

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 218

 

Texto: (42 caracteres)

"It wasn¿t accounting of exchange variance!"

 

Comprimento máximo: 45

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 219

 

Texto: (44 caracteres)

"Freight value greater than total item value."

 

Comprimento máximo: 47

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 220

 

Texto: (24 caracteres)

"Inform the exchange rate"

 

Comprimento máximo: 28

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 221

 

Texto: (44 caracteres)

"There isn¿t exchange rate for informed date."

 

Comprimento máximo: 45

 

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

Modificado símbolo de texto:

 

Idioma: EN

 

Símbolo: 226

 

Texto: (38 caracteres)

"Broker doesn¿t have access to the ship"

 

Comprimento máximo: 38

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 237

 

Texto: (34 caracteres)

"BL is being used in other process."

 

Comprimento máximo: 132

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 238

 

Texto: (41 caracteres)

"Legal grounds informed is not registered!"

 

Comprimento máximo: 47

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 239

 

Texto: (31 caracteres)

"PIS base Value/Negative COFINS."

 

Comprimento máximo: 61

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 239

 

Texto: (34 caracteres)

"Valor da Base Pis/Cofins negativo."

 

Comprimento máximo: 61

 

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

Incluído símbolo de texto:

 

Idioma: EN

 

Símbolo: 240

 

Texto: (25 caracteres)

"Please check the aliquots"

 

Comprimento máximo: 27

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 240

 

Texto: (27 caracteres)

" Favor verificar alíquotas."

 

Comprimento máximo: 27