CE PLUS - Nota 008573

Módulo: DRAWBACK

Funcionalidade: Ato Concessório

Data/Hora da Publicação: 23/06/2009 00:00:00

Data/Hora Última Alteração: 17/02/2011 15:27:57

Descrição da Nota: AJUSTES REFERENTES AO DRAWBACK INTEGRADO

Sintoma

Ajustado ato concessório para tratamento do drawback integrado.

 

 

Solução

Ajustado ato concessório para tratamento do drawback integrado.

 

Versões Tratadas

7.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 7401
ADEQUAÇÃO A PORTARIA N° 21 DE 24.09.2008

Nota 7112
COMPRAS NO MERCADO INTERNO PARA DRAWBACK SUSPENSÃO

Informações Complementares

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

Nota Número 08573 Data: 23/06/2009 Hora: 09:20:02

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

 

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

Nota Número              : 08573

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00010

Agrupamento              : 00102

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

Referência às notas relacionadas:

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

 

07112  - 00001 - 7.0    - 00006  - COMPRAS NO MERCADO INTERNO PARA DRAWBACK SUSPENSÃO

07401  - 00002 - 7.0    - 00007  - ADEQUAÇÃO A PORTARIA N° 21 DE 24.09.2008

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

AJUSTES REFERENTES AO DRAWBACK INTEGRADO

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

Palavras Chave:

DESENVOLVIMENTO - DRAWBACK - INTEGRADO - ATO - CONCESSÓRIO

/PWS/SAPMZYCI040

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

Objetos da nota:

DOMA /PWS/ZYCIL183

DTEL /PWS/ZYCIL874

DYNP /PWS/SAPMZYCI040                        0201

REPS /PWS/MZYCI040F02

REPS /PWS/MZYCI040F03

REPS /PWS/MZYCI040I01

REPT /PWS/SAPMZYCI040

TABD /PWS/ZYCIE244

TABD /PWS/ZYCIT244

 

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

Modificações efetuadas em DOMA /PWS/ZYCIL183

 

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

Domínio incluído: /PWS/ZYCIL183

Descrição breve incluída (29 caracteres), idioma: PT

"GL - sub-tipo ato concessório"

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Categoria de dados: CHAR

Número de posições: 1

Comprimento de saída: 1

Rotina de conversão:

Letras minúsculas: NÃO

-Valores individuais

Incluído valor fixo ""

Texto incluído, idioma: PT (6 caracteres):

"Normal"

Incluído valor fixo "X"

Texto incluído, idioma: PT (13 caracteres):

"Verde-Amarelo"

Incluído valor fixo "2"

Texto incluído, idioma: PT (9 caracteres):

"Integrado"

Incluída tabela de valores:

 

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

Modificações efetuadas em DTEL /PWS/ZYCIL874

 

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

Elemento de dados incluído: /PWS/ZYCIL874

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Descrição breve incluída: (29 caracteres), idioma: PT

"GL - Sub-tipo Ato Concessório"

Categoria de dados: Domínio

Domínio: /PWS/ZYCIL183

ID parâmetro:

Nome componente default:

Documentar modificações: NÃO

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 10

Denominador breve incluído (8 caracteres), idioma: PT

"Sub-tipo"

Comprimento máximo do denominador médio: 15

Denominador médio incluído (8 caracteres), idioma: PT

"Sub-tipo"

Comprimento máximo do denominador longo: 27

Denominador longo incluído (27 caracteres), idioma: PT

"Sub-tipo do ato concessório"

Comprimento máximo do título: 08

Título incluído (8 caracteres), idioma: PT

"Sub-tipo"

 

 

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI040                        0201

 

MODIFICAR CAIXA DE VERIFICAÇÃO "/PWS/ZYCIE244-CICMS"

Linha                    21

 

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE244-IMPORTACAO"

Linha                    20

 

MODIFICAR TEXTO "/PWS/ZYCIE244-IMPORTACAO"

Linha                    20

 

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE244-OPER_IND"

Linha                    19

 

MODIFICAR TEXTO "/PWS/ZYCIE244-OPER_IND"

Linha                    19

 

MODIFICAR CAMPO TEXTO "/PWS/ZYCIE244-TIPOEMP"

Linha                    18

 

MODIFICAR TEXTO "/PWS/ZYCIE244-TIPOEMP"

Linha                    18

 

EXCLUIR CAIXA DE VERIFICAÇÃO "/PWS/ZYCIE244-VERD_AMA"

 

EXCLUIR CHTXT "/PWS/ZYCIE244-VERD_AMA"

 

INCLUIR CAMPO TEXTO "/PWS/ZYCIE244-VERD_AMA"

Altura                   19

Comprimento Visível      1

Linha                    17

Coluna                   16

Formato                  CHAR

Linhas mínimas           1

Texto                    _

Código função            VERDE_AM

 

INCLUIR TEXTO "/PWS/ZYCIE244-VERD_AMA"

Comprimento Visível      8

Linha                    17

Coluna                   3

Formato                  CHAR

Texto                    Sub-tipo

Código função

 

MODIFICAR CAMPO TEXTO "LINHA"

Linha                    21

 

MODIFICAR TEXTO "TEXT_CICMS"

Linha                    21

 

MODIFICAR CAMPO TEXTO "V_ICOICMS"

Linha                    21

 

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0201

...

  CHAIN.

    FIELD /pws/zycie244-kunnr MODULE altera_cliente ON CHAIN-REQUEST.

  ENDCHAIN.

  CHAIN.

    FIELD /pws/zycie244-codagrup MODULE altera_areac ON CHAIN-REQUEST.

  ENDCHAIN.

  FIELD /pws/zycie244-vcto_fn MODULE trata_vcto_final.

  CHAIN.

    FIELD /pws/zycie244-status MODULE verifica_ato ON CHAIN-REQUEST.

  ENDCHAIN.

* >> Início da inclusão:

  CHAIN.

    FIELD: /PWS/ZYCIE244-VERD_AMA,

          /pws/zycie244-tipo2 MODULE mod_sub_tipo ON CHAIN-REQUEST.

  ENDCHAIN.

* << Fim da inclusão

  MODULE user_command_0201.

PROCESS ON VALUE-REQUEST.

  FIELD /pws/zycie244-tipo2   MODULE trata_matchcode.

 

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

Modificações efetuadas em REPS /PWS/MZYCI040F02

 

...

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

        screen-invisible = 1.

        CLEAR: /pws/zycie244-verd_ama.

      ELSE.

        screen-invisible = 0.

      ENDIF.

      MODIFY SCREEN.

    ENDIF.

    IF screen-name EQ 'FS_MERC2'.

      IF /pws/zycie244-tipo EQ 'F' OR

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

         /pws/zycie244-verd_ama NE 'X' OR

* << Fim da exclusão

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

         /pws/zycie244-verd_ama IS INITIAL OR

* << Fim da inclusão

         /pws/zycie244-modalidade EQ 'I'.

        screen-invisible = '1'.

        MODIFY SCREEN.

      ELSE.

        screen-invisible = '0'.

        MODIFY SCREEN.

      ENDIF.

    ENDIF.

  ENDLOOP.

ENDFORM.

...

 

...

        ENDIF.

        MODIFY SCREEN.

        screen-invisible = '0'.

        MODIFY SCREEN.

      ENDIF.

    ENDIF.

    IF screen-name EQ '/PWS/ZYCIE244-VERD_AMA'.

      IF /pws/zycie244-modalidade EQ 'I' OR

         /pws/zycie244-tipo EQ 'F'.

        screen-invisible = 1.

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

        screen-active = 0.

* << Fim da inclusão

        CLEAR: /pws/zycie244-verd_ama.

      ELSE.

        IF NOT /pws/zycie244-nratoc IS INITIAL.

          screen-input = 0.

        ELSE.

          screen-input = 1.

        ENDIF.

        screen-invisible = 0.

      ENDIF.

      MODIFY SCREEN.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI040F03

 

...

FORM seleciona_tipo.

  DATA: v_descricao(20) TYPE c.

  CONCATENATE /pws/zycie244-tipo2(19) '%' INTO v_descricao.

  SELECT SINGLE domvalue_l FROM dd07t

           INTO /pws/zycie244-tipo

           WHERE domname    EQ '/PWS/ZYGLD053'

           AND   ddlanguage EQ sy-langu(1)

           AND   ddtext LIKE v_descricao.

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

  IF /pws/zycie244-verd_ama EQ '2' AND

     /pws/zycie244-tipo EQ 'N'.

    CLEAR: /pws/zycie244-verd_ama.

    MESSAGE e015 WITH text-347 text-348.

  ENDIF.

* << Fim da inclusão

ENDFORM.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI040I01

 

...

      PERFORM execute_button_btn2.

    WHEN 'AREA'.

      PERFORM execute_button_area.

    WHEN 'BTN3'.

      PERFORM trata_button_btn3.

    WHEN 'CEN_EI'.

      PERFORM centros_ei.

    WHEN 'SITUAC'.

      PERFORM trata_button_situac2.

      IF /pws/zycie244-status EQ 'D' AND

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

         /pws/zycie244-verd_ama EQ 'X' AND

* << Fim da exclusão

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

        NOT /pws/zycie244-verd_ama IS INITIAL AND

* << Fim da inclusão

         /pws/zycie244-dtdi IS INITIAL.

        /pws/zycie244-dtdi = sy-datlo.

      ENDIF.

    WHEN 'ENCER'.

      CALL SCREEN 0248 STARTING AT 5 5

                       ENDING   AT 60  5 .

      IF v_nratoc EQ /pws/zycie244-nratoc.

        IF /pws/zycit321-siscotrans IS INITIAL OR

           /pws/zycie244-modalidade EQ 'I'  OR

           /pws/zycie244-tipo EQ 'F'.

...

 

...

    WHEN 'T_ADITIVO'.

      SELECT SINGLE uname cpf FROM /pws/zycet184

          INTO (/pws/zycet184-uname, /pws/zycet184-cpf)

          WHERE uname EQ sy-uname.

      IF sy-subrc EQ 0.

        PERFORM trans_aditivo.

      ELSE.

        MESSAGE i015 WITH text-293 text-294.

      ENDIF.

    WHEN 'VERDE_AM'.

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

      LOOP AT itab_zycit246 WHERE nritem > 90000.         "#EC PORTABLE

        MESSAGE i015 WITH text-343 text-344.

        /pws/zycie244-verd_ama = 'X'.

        EXIT.

      ENDLOOP.

* << Fim da exclusão

  ENDCASE.

  CLEAR ok_code2.

ENDMODULE.

...

 

...

* >> Início da inclusão:

MODULE mod_sub_tipo INPUT.

  IF /pws/zycie244-verd_ama EQ '2' AND

     /pws/zycie244-tipo EQ 'N'.

    CLEAR: /pws/zycie244-verd_ama.

    MESSAGE e015 WITH text-347 text-348.

  ENDIF.

ENDMODULE.

* << Fim da inclusão

 

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

Modificações efetuadas em REPT /PWS/SAPMZYCI040

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 347

 

Texto: (37 caracteres)

"Sub-tipo Integrado não permitido para"

 

Comprimento máximo: 65

 

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

Incluído símbolo de texto:

 

Idioma: PT

 

Símbolo: 348

 

Texto: (27 caracteres)

"drawback tipo Intermediario"

 

Comprimento máximo: 27

 

 

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

Modificações efetuadas em TABD /PWS/ZYCIE244

 

Nome campo  Elem.dados    Tab.verif.    N CtDt Comp. Grupo

*Alterações:

*De.

VERD_AMA    CHAR1                         CHAR     1

*Para.

VERD_AMA    /PWS/ZYCIL874                 CHAR     1

 

 

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

Modificações efetuadas em TABD /PWS/ZYCIT244

 

Nome campo  Chv Elem.dados    Tab.verif.    N CtDt Comp. Grupo

 

*Alterações:

*De.

VERD_AMA        CHAR1                         CHAR     1

*Para.

VERD_AMA        /PWS/ZYCIL874                 CHAR     1