CE PLUS - Nota 009671

Módulo: DRAWBACK

Funcionalidade: Ato Concessório

Data/Hora da Publicação: 12/01/2010 00:00:00

Data/Hora Última Alteração: 17/02/2011 15:44:58

Descrição da Nota: IMPLEMENTAÇÃO PERCENTUAL DE ACRÉSCIMO.

Sintoma

Criada funcionalidade para informar um percentual de acréscimo a ser aplicado sobre os valores dos

insumos do ato concessório de isenção.

 

 

Solução

Criada funcionalidade para informar um percentual de acréscimo a ser aplicado sobre os valores dos

insumos do ato concessório de isenção.

 

Versões Tratadas

8.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 8623
DESABILITA BOTÃO VERIFICAR ALTERAÇÕES QUANDO ATO NÃO ESTÁ DEFERIDO

Nota 9129
ADITIVO PARA MUDANÇA DA DATA DE VENCIMENTO FINAL.

Informações Complementares

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

Nota Número 09671 Data: 12/01/2010 Hora: 10:33:24

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

 

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

Nota Número              : 09671

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 8.0

Pacote                   : 00002

Agrupamento              : 00004

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

Referência às notas relacionadas:

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

 

08623  - 00001 - 7.0    - 00010  - DESABILITA BOTÃO VERIFICAR ALTERAÇÕES QUANDO ATO NÃO ESTÁ DEFERID

08966  - 00002 - 7.0    - 00010  - CRIAR COMO CÓPIA ATO CONCESSÓRIO INTERMEDIARIO IMPORTAÇÃO

09129  - 00003 - 8.0    - 00001  - ADITIVO PARA MUDANÇA DA DATA DE VENCIMENTO FINAL.

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

IMPLEMENTAÇÃO PERCENTUAL DE ACRÉSCIMO.

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

Palavras Chave:

ACRÉSCIMO - VALOR - PRECENTUAL - IMPORTAÇÃO - ATO - CONCESSÓRIO

/PWS/SAPMZYCI040 - SEGURO - FRETE - MERCADORIA

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

Objetos da nota:

CUAD /PWS/SAPMZYCI040

REPS /PWS/MZYCI040F02

REPS /PWS/MZYCI040F03

REPS /PWS/MZYCI040I01

REPT /PWS/SAPMZYCI040

 

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

Modificações efetuadas em CUAD /PWS/SAPMZYCI040

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI040F02

 

...

 /pws/zycie244-nrseqd.

    wa_zycit244 = /pws/zycie244.

  ENDIF.

ENDFORM.

FORM set_page2.

  ts_cabec2-activetab = pressed_tab_2a.

ENDFORM.

FORM trata_botoes2.

  CLEAR itab_botoes2. REFRESH itab_botoes2.

  IF v_tcode2 EQ '/PWS/ZYCI040_C'.

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

    itab_botoes2-bname = 'ACRESC'.

    APPEND itab_botoes2.

* << Fim da inclusão

    IF /pws/zycie244-aditivo IS INITIAL OR

       /pws/zycie244-status NE 'D'.

      itab_botoes2-bname = 'VFALT'.

      APPEND itab_botoes2.

    ENDIF.

    itab_botoes2-bname = 'EXCL'.

    APPEND itab_botoes2.

    itab_botoes2-bname = 'ATUALIZ'.

    APPEND itab_botoes2.

    itab_botoes2-bname = 'ENCER'.

...

 

...

    IF wa_zycit321-siscotrans EQ space.

      itab_botoes2-bname = 'TRANS'.

      APPEND itab_botoes2.

      itab_botoes2-bname = 'ATUALIZ'.

      APPEND itab_botoes2.

    ENDIF.

    itab_botoes2-bname = 'NEW'.

    APPEND itab_botoes2.

  ELSEIF v_tcode2 EQ '/PWS/ZYCI040_E'.

    itab_botoes2-bname = 'NEW'.

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

    APPEND itab_botoes2.

    itab_botoes2-bname = 'ACRESC'.

* << Fim da inclusão

    APPEND itab_botoes2.

    itab_botoes2-bname = 'ENCER'.

    APPEND itab_botoes2.

    itab_botoes2-bname = 'SAVE'.

    APPEND itab_botoes2.

    itab_botoes2-bname = 'EXCL'.

    APPEND itab_botoes2.

    itab_botoes2-bname = 'TRANS'.

    APPEND itab_botoes2.

    itab_botoes2-bname = 'MALL'.

...

 

...

    APPEND itab_botoes2.

    itab_botoes2-bname = 'COMPR'.

    APPEND itab_botoes2.

  ELSEIF /pws/zycie244-status NE 'D'.

    itab_botoes2-bname = 'COMPR'.

    APPEND itab_botoes2.

    itab_botoes2-bname = 'ENCER'.

    APPEND itab_botoes2.

  ENDIF.

  IF /pws/zycie244-modalidade NE 'I'.

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

    itab_botoes2-bname = 'ACRESC'.

    APPEND itab_botoes2.

* << Fim da inclusão

    itab_botoes2-bname = 'DOC'.

    APPEND itab_botoes2.

  ENDIF.

ENDFORM.

FORM carrega_icone2.

  IF /pws/zycie244-importacao EQ 'X'.

    CALL FUNCTION 'ICON_CREATE'

         EXPORTING

              name                  = text-001

              text                  = text-003

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI040F03

 

...

  v_statusv = 'X'.

  CHECK itab_zycit279_ap[] IS INITIAL.

  SELECT SINGLE * FROM /pws/zycit376 INTO wa_zycit376

    WHERE nrseqd EQ /pws/zycie244-nrseqd.               "#EC CI_NOFIRST

  CHECK sy-subrc NE 0.

  SELECT SINGLE * FROM /pws/zycit078 INTO wa_zycit078

    WHERE nrseqd EQ /pws/zycie244-nrseqd.               "#EC CI_NOFIELD

  CHECK sy-subrc NE 0.

  CLEAR v_statusv.

ENDFORM.

* >> Início da inclusão:

FORM acrescimo.

  DATA: itab_sval TYPE sval OCCURS 0 WITH HEADER LINE.

  itab_sval-tabname   = '/PWS/ZYCIT279'.

  itab_sval-fieldname = 'PIS' .

  itab_sval-fieldtext = text-363.

  APPEND itab_sval.

  CALL FUNCTION 'POPUP_GET_VALUES'

       EXPORTING

            popup_title     = text-362

       TABLES

            fields          = itab_sval

       EXCEPTIONS

            error_in_fields = 1

            OTHERS          = 2.

  IF sy-subrc <> 0.

    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.

  CLEAR itab_sval.

  READ TABLE itab_sval INDEX 1.

  MOVE itab_sval-value TO itab_zycit279-pis.

  LOOP AT itab_zycit245.

    itab_zycit245-vl_seg_t = itab_zycit245-vl_seg_t *

                        ( 1 + ( itab_zycit279-pis / 100 ) ).

    itab_zycit245-vl_frete_t = itab_zycit245-vl_frete_t *

                        ( 1 + ( itab_zycit279-pis / 100 ) ).

    itab_zycit245-netpr_t = itab_zycit245-netpr_t *

                        ( 1 + ( itab_zycit279-pis / 100 ) ).

    itab_zycit245-netpr = itab_zycit245-netpr_t /

                                itab_zycit245-qtd_tot.

    MODIFY itab_zycit245.

  ENDLOOP.

  LOOP AT itab_zycit245t.

    itab_zycit245t-vl_seg_t = itab_zycit245t-vl_seg_t *

                        ( 1 + ( itab_zycit279-pis / 100 ) ).

    itab_zycit245t-vl_frete_t = itab_zycit245t-vl_frete_t *

                        ( 1 + ( itab_zycit279-pis / 100 ) ).

    itab_zycit245t-netpr_t = itab_zycit245t-netpr_t *

                        ( 1 + ( itab_zycit279-pis / 100 ) ).

    itab_zycit245t-netpr = itab_zycit245t-netpr_t /

                                     itab_zycit245t-qtd_tot.

    MODIFY itab_zycit245t.

  ENDLOOP.

ENDFORM.

* << Fim da inclusão

 

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

Modificações efetuadas em REPS /PWS/MZYCI040I01

 

...

            MODIFY itab_zycit247.

          ENDLOOP.

          LOOP AT itab_zycit427.

            CLEAR: itab_zycit427-esgotado.

            itab_zycit427-nrseqd = /pws/zycit244-nrseqd.

            itab_zycit427-saldo = itab_zycit427-qtd_iten.

            MODIFY itab_zycit427.

          ENDLOOP.

        ENDIF.

      ENDIF.

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

    WHEN 'ACRESC'.

      perform acrescimo.

* << Fim da inclusão

  ENDCASE.

  CLEAR ok_code2.

ENDMODULE.

MODULE user_command_0200_exit INPUT.

  CASE ok_code2.

    WHEN 'ABORT'.

      PERFORM check_button_abort2.

  ENDCASE.

ENDMODULE.

MODULE trata_forecast INPUT.

...

 

 

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

Modificações efetuadas em REPT /PWS/SAPMZYCI040

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 362

 

Texto: (26 caracteres)

"Acréscimo valor Importação"

 

Comprimento máximo: 50

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 363

 

Texto: (11 caracteres)

"Acréscimo %"

 

Comprimento máximo: 20