Sintoma

DAI - Declaração Amazonense de Importação ¿ Nova pasta na DI para informações sobre LACRE.

Nos processos cuja região do importador = AM, na DI abrir nova pasta com título ¿DAÍ¿ onde serão

digitadas e armazenadas informações sobre lacre de transporte, referentes ao transporte interno

desde o porto/aeroporto até a fábrica.

Solução

Novo tratamento para informações de lacred na DAI. (nova tabela, nova pasta na DI)

Informações Complementares

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

Nota Número 12326 Data: 27/06/2012 Hora: 11:39:04

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

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

Nota Número              : 12326

Categoria                : Melhoria

Prioridade               : Baixa

Versão PW.CE             : 9.0

Pacote                   : 00001

Agrupamento              : 00118

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

Referência às notas relacionadas:

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

11861  - 00001 - 8.0    - 00010  - TRILHA DE AUDITORIA NA DI

12154  - 00002 - 8.0    - 00011  - DAI - DECLARAÇÃO AMAZONENSE DE IMPORTAÇÃO

12172  - 00003 - 8.0    - 00011  - INSERIR AS TRANSAÇÕES DA DAI NO MENU /PWS/ZYCI

12201  - 00004 - 8.0    - 00011  - DAI - /PWS/SAPMZYCI002 - LACRE - BL - COMPLEMENTO

12231  - 00005 - 8.0    - 00011  - DAI - AJUSTES NA TABELA /PWS/ZYCIT218

12251  - 00006 - 8.0    - 00011  - DAI - INSERIR CHAVE EXTERNA E AJUDA DE PESQUISA NOS CAMPOS

12289  - 00007 - 9.0    - 00001  - DAI - FORMATAR O CAMPO  INSCRIÇÃO ESTADUAL (CDIMPORTADOR)

12298  - 00008 - 9.0    - 00001  - DAI - OBRIGATORIEDADE DE CAMPOS

12311  - 00009 - 9.0    - 00001  - DAI - INSERIR UM NOVO VALOR NO DOMÍNIO /PWS/ZYCID916

12313  - 00010 - 9.0    - 00001  - DAI - ERRO NO CAMPO "UTILIZAÇÃO" NA OPÇÃO "00 - NÃO SE APLICA"

12317  - 00011 - 9.0    - 00001  - DAI - NOVAS DEFINIÇÕES PARA O NCM E CÓDIGO SUFRAMA

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

DAI - NOVA PASTA NA DI PARA INFORMAÇÕES SOBRE LACRE

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

Palavras Chave:

DAI - DI - LACRE - /PWS/SAPMZYCI023 - /PWS/SAPMZYCI002

/PWS/ZYCIT525 - /PWS/ZYCIT055

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

Objetos da nota:

DOMA /PWS/ZYCID929

DTEL /PWS/ZYCIL929

DTEL /PWS/ZYCIL930

DYNP /PWS/SAPMZYCI002                        0105

DYNP /PWS/SAPMZYCI023                        0100

DYNP /PWS/SAPMZYCI023                        0370

DYNP /PWS/SAPMZYCI023                        0371

FUNC /PWS/ZYCI_CARREGA_DAI

REPS /PWS/MZYCI002I01

REPS /PWS/MZYCI002O01

REPS /PWS/MZYCI023F01

REPS /PWS/MZYCI023F04

REPS /PWS/MZYCI023F05

REPS /PWS/MZYCI023I01

REPS /PWS/MZYCI023O01

REPS /PWS/MZYCI023TOP

REPS /PWS/MZYCI023X01

TABD /PWS/ZYCIE055

TABD /PWS/ZYCIT055

TABD /PWS/ZYCIT525

TABL /PWS/ZYCIE525

TABT /PWS/ZYCIT525

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

Modificações efetuadas em DOMA /PWS/ZYCID929

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

Domínio incluído: /PWS/ZYCID929

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

"Tipo de veículo"

Classe de desenvolvimento: /PWS/ZYCI

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 "1"

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

"PLACA"

Incluído valor fixo "2"

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

"CONTAINER"

Incluída tabela de valores:

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

Modificações efetuadas em DTEL /PWS/ZYCIL929

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

Elemento de dados incluído: /PWS/ZYCIL929

Classe de desenvolvimento: /PWS/ZYCI

Idioma original: PT

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

"Tipo de veículo"

Categoria de dados: Domínio

Domínio: /PWS/ZYCID929

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 (10 caracteres), idioma: PT

"Tp.Veículo"

Comprimento máximo do denominador médio: 15

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

"Tipo de veículo"

Comprimento máximo do denominador longo: 20

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

"Tipo de veículo"

Comprimento máximo do título: 15

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

"Tipo de veículo"

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

Modificações efetuadas em DTEL /PWS/ZYCIL930

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

Elemento de dados incluído: /PWS/ZYCIL930

Classe de desenvolvimento: /PWS/ZYCI

Idioma original: PT

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

"Identificação"

Categoria de dados: Domínio

Domínio: CHAR20

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

"Identif."

Comprimento máximo do denominador médio: 15

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

"Identificação"

Comprimento máximo do denominador longo: 20

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

"Identificação"

Comprimento máximo do título: 13

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

"Identificação"

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

Modificações efetuadas em TABD /PWS/ZYCIE055

EXCLUIR O CAMPO LACRE DA ESTRUTURA /PWS/ZYCIE055 UTILIZANDO A TRANSAÇÃO SE11

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

Modificações efetuadas em TABD /PWS/ZYCIT055

EXCLUIR O CAMPO LACRE DA TABELA /PWS/ZYCIT055 UTILIZANDO A TRANSAÇÃO SE11

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

Modificações efetuadas em TABD /PWS/ZYCIT525

CRIAR A TABELA TRANSPARENTE: /PWS/ZYCIT525

DESCRIÇÃO BREVE: DAI - Lacre.

CLASSE DE DESENVOLVIMENTO: /PWS/ZYCI

CLASSE DE ENTREGA: A - Tabela de aplicação (dados mestre e de movimento)

(X) Atual.tabelas permitida

CAMPO       CHV.  INIC.  TIPO DE CAMPO   TABELA DE VERIFICAÇÃO

MANDT        X     X     MANDT           T000

NRSEQDI      X     X     /PWS/ZYCIL230   /PWS/ZYCIT085

LACRE        X     X     /PWS/ZYCIL918

TPVEICULO                /PWS/ZYCIL929

IDENTIF                  /PWS/ZYCIL930

OPÇÕES TÉCNICAS:

Tipo de dados:     APPL1   Dados de movimento, tabelas transparente

Categor.tamanho:   1       Registros dados esperados: 11.000 Até 45

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

Modificações efetuadas em TABL /PWS/ZYCIE525

CRIAR A ESTRUTURA: /PWS/ZYCIE525

DESCRIÇÃO BREVE: DAI - Lacre.

CLASSE DE DESENVOLVIMENTO: /PWS/ZYCI

CAMPO         TIPO COMPONENTE

NRSEQDI       /PWS/ZYCIL230

LACRE         /PWS/ZYCIL918

TPVEICULO     /PWS/ZYCIL929

IDENTIF       /PWS/ZYCIL930

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI002                        0105

EXCLUIR CAMPO TEXTO "/PWS/ZYCIE055-LACRE" em tbl.contr./tabstr.

EXCLUIR TEXTO "/PWS/ZYCIE055-LACRE" em tbl.contr./tabstr.

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI023                        0100

INCLUIR ÁREA DE SUB-TELA "SS_LACRE" em tbl.contr./tabstr.

Altura                   19

Comprimento Visível      115

Linha                    8

Coluna                   4

Linhas mínimas           3

Colunas mínimas          3

INCLUIR BOTÃO "TAB_LACRE" em tbl.contr./tabstr.

Comprimento Visível      11

Linha                    1

Coluna                   10

Formato                  CHAR

Campo referência         SS_LACRE

Texto                    DAI - Lacre

Código função            FC_LACRE

Categoria de Função      P

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0100

...

        set_screen,

        exit_tela.

call subscreen:     ss_bas  including syst-cprog '0110',

                    ss_tra  including syst-cprog '0120',

                    ss_car  including syst-cprog '0130',

                    ss_pag  including syst-cprog '0141',

                    ss_pg2  including syst-cprog '0142',

                    ss_ite  including syst-cprog '0150',

                    ss_des  including syst-cprog '0160',

                    ss_com  including syst-cprog '0180',

* >> Início da exclusão:

                    ss_cont including syst-cprog '0450'.

* << Fim da exclusão

* >> Início da inclusão:

                      ss_cont INCLUDING syst-cprog '0450',

                      ss_lacre INCLUDING syst-cprog '0371'.

* << Fim da inclusão

process after input.

 field /PWS/ZYCIE085-BUKRS module authority_empresa.

call subscreen:     ss_bas ,

                    ss_tra ,

                    ss_car ,

                    ss_pag ,

                    ss_pg2 ,

                    ss_ite ,

                    ss_des ,

                    ss_com ,

* >> Início da exclusão:

                    ss_cont.

* << Fim da exclusão

* >> Início da inclusão:

                      ss_cont,

                      ss_lacre.

* << Fim da inclusão

chain.

     field /pws/zycie085-bukrs.

     field /pws/zycie085-j_1bbranch.

     module load_cpnj on chain-request.

endchain.

field: /pws/zycie085-canal  module load_cana on request.

module carrega_dados.

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI023                        0370

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0370

PROCESS BEFORE OUTPUT.

* >> Início da inclusão:

  MODULE set_screen_370.

* << Fim da inclusão

PROCESS AFTER INPUT.

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI023                        0371

O Download das telas encontra-se disponível no link abaixo

http://produtos.sondait.com.br/home/PW.CE/Notas/

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

Modificações efetuadas em FUNC /PWS/ZYCI_CARREGA_DAI

FUNCTION /pws/zyci_carrega_dai.

  DATA: it_001     TYPE /pws/zycie001  OCCURS 0  WITH HEADER LINE,

        it_049     TYPE /pws/zycie049  OCCURS 0  WITH HEADER LINE,

        it_520     TYPE /pws/zycit520  OCCURS 0  WITH HEADER LINE,

        it_523     TYPE /pws/zycit523  OCCURS 0  WITH HEADER LINE,

        itab_116   TYPE /pws/zycit116  OCCURS 0  WITH HEADER LINE,

        it_055     TYPE /pws/zycit055  OCCURS 0  WITH HEADER LINE,

        it_078     TYPE /pws/zycit078  OCCURS 0  WITH HEADER LINE,

        it_079     TYPE /pws/zycit079  OCCURS 0  WITH HEADER LINE,

* >> Início da exclusão: FUNCTION /PWS/ZYCI_CARREGA_DAI

        t_despesas TYPE /pws/zycie123b OCCURS 0  WITH HEADER LINE.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_CARREGA_DAI

        t_despesas TYPE /pws/zycie123b OCCURS 0  WITH HEADER LINE,

        it_525     TYPE /pws/zycit525  OCCURS 0  WITH HEADER LINE.

* << Fim da inclusão

  DATA:  wa_t001w      LIKE t001w,

         wa_j_1bbranch LIKE j_1bbranch,

         wa_197        LIKE /pws/zycit197,

         wa_198        LIKE /pws/zycit198,

         wa_289        LIKE /pws/zycit289,

         wa_218        LIKE /pws/zycit218,

         wa_219        LIKE /pws/zycit219,

         wa_079        TYPE /pws/zycit079.

  DATA: s_tax      TYPE /pws/zycie085-ukursfob,

        v_vlantid  TYPE /pws/zycit100-vlantid,

...

...

            ENDIF.

          ENDIF.

        ENDIF.

      ENDIF.

      APPEND wa_adicao_item TO  t_adicao_item.

    ENDLOOP.

    wa_adicao-item = t_adicao_item.

    CLEAR t_adicao_item.

    APPEND wa_adicao TO t_adicao.

  ENDLOOP.

* >> Início da exclusão: FUNCTION /PWS/ZYCI_CARREGA_DAI

  IF it_001-meioemba EQ 'RD'.

    t_lacre-tp_veiculo = 1.

    t_lacre-id_veiculo = it_bl_di-placa.

    APPEND t_lacre.

  ELSE.

    t_lacre-tp_veiculo = 2.

    IF NOT it_bl_di[] IS INITIAL.

      SELECT * FROM /pws/zycit055 INTO TABLE it_055

        FOR ALL ENTRIES IN it_bl_di

        WHERE nrseq = it_bl_di-nrseqce.

      LOOP AT it_055.

        t_lacre-id_veiculo = it_055-nrcontainer.

        t_lacre-lacre      = it_055-lacre.

        APPEND t_lacre.

      ENDLOOP.

    ENDIF.

  ENDIF.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_CARREGA_DAI

  SELECT * FROM /pws/zycit525

    INTO TABLE it_525

    WHERE nrseqdi = i_nrseqdi.

  LOOP AT it_525.

    t_lacre-tp_veiculo = it_525-tpveiculo.

    t_lacre-id_veiculo = it_525-identif.

    t_lacre-lacre      = it_525-lacre.

    APPEND t_lacre.

  ENDLOOP.

* << Fim da inclusão

  PERFORM verifica_obrigatoriedade.

  IF itab_obrig[] IS INITIAL.

    CALL FUNCTION '/PWS/ZYCI_TRANSFER_DAI'

      DESTINATION 'ZYCIENVIADAI'

      EXPORTING

...

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

Modificações efetuadas em REPS /PWS/MZYCI002I01

...

    itab_zycit055-dtidacont   = /pws/zycie055-dtidacont.

    itab_zycit055-dtvoltacont = /pws/zycie055-dtvoltacont.

    itab_zycit055-dtentrada   = /pws/zycie055-dtentrada.

    itab_zycit055-dtsaidaarm  = /pws/zycie055-dtsaidaarm.

    itab_zycit055-dtdevcont   = /pws/zycie055-dtdevcont.

    itab_zycit055-perarmaz    = /pws/zycie055-perarmaz.

    itab_zycit055-armazen     = /pws/zycie055-armazen.

    itab_zycit055-pesobruto   = /pws/zycie055-pesobruto.

    itab_zycit055-dtforzoso   = /pws/zycie055-dtforzoso.

    itab_zycit055-gewei       = /pws/zycie055-gewei.

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

    itab_zycit055-lacre       = /pws/zycie055-lacre.

* << Fim da exclusão

    itab_zycit055-marc        = marc3.

    MODIFY itab_zycit055 INDEX tabctrl1-current_line.

  ELSE.

    itab_zycit055-nrseq       = /pws/zycie093-nrseqce.

    itab_zycit055-embarca     = /pws/zycie093-identify.

    itab_zycit055-nrcontainer = /pws/zycie055-nrcontainer.

    itab_zycit055-dtatrac     = /pws/zycie055-dtatrac.

    itab_zycit055-tp_cont     = /pws/zycie055-tp_cont.

    itab_zycit055-mod_cont    = /pws/zycie055-mod_cont.

    itab_zycit055-desova      = /pws/zycie055-desova.

...

...

    itab_zycit055-dtidacont   = /pws/zycie055-dtidacont.

    itab_zycit055-dtvoltacont = /pws/zycie055-dtvoltacont.

    itab_zycit055-dtentrada   = /pws/zycie055-dtentrada.

    itab_zycit055-dtsaidaarm  = /pws/zycie055-dtsaidaarm.

    itab_zycit055-dtdevcont   = /pws/zycie055-dtdevcont.

    itab_zycit055-perarmaz    = /pws/zycie055-perarmaz.

    itab_zycit055-armazen     = /pws/zycie055-armazen.

    itab_zycit055-pesobruto   = /pws/zycie055-pesobruto.

    itab_zycit055-dtforzoso   = /pws/zycie055-dtforzoso.

    itab_zycit055-gewei       = /pws/zycie055-gewei.

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

    itab_zycit055-lacre       = /pws/zycie055-lacre.

* << Fim da exclusão

    itab_zycit055-marc        = marc3.

    IF NOT /pws/zycie055-nrcontainer IS INITIAL.

      APPEND itab_zycit055.

    ENDIF.

  ENDIF.

  DESCRIBE TABLE itab_zycit055 LINES /pws/zycie093-qtd_cont.

ENDMODULE.

...

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

Modificações efetuadas em REPS /PWS/MZYCI002O01

...

  IF ts_bl-activetab EQ 'FC_CONT'.

    tabctrl1-lines = tabctrl1-lines + 15.

  ENDIF.

  PERFORM seleciona_pais.

  READ TABLE itab_t001 WITH KEY bukrs = itab_zycit093-bukrs.

  IF itab_t001-land1 = 'BR'.

    LOOP AT tabctrl1-cols INTO wa_cols2.

      IF wa_cols2-screen-name = '/PWS/ZYCIE055-DTFORZOSO'.

        wa_cols2-invisible = 1.

        MODIFY tabctrl1-cols FROM wa_cols2.

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

      ELSEIF wa_cols2-screen-name = '/PWS/ZYCIE055-LACRE'.

        IF v_region NE 'AM' .

          wa_cols2-invisible = 1 .

        ELSE.

          wa_cols2-invisible = 0 .

        ENDIF.

        MODIFY tabctrl1-cols FROM wa_cols2.

* << Fim da exclusão

      ENDIF.

    ENDLOOP.

  ENDIF.

ENDMODULE.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

        lt_zycit087   TYPE /pws/zycit087 OCCURS 0 WITH HEADER LINE,

        lt_zycit096   TYPE /pws/zycit096 OCCURS 0 WITH HEADER LINE,

        lt_zycit114   TYPE /pws/zycit114 OCCURS 0 WITH HEADER LINE,

        lt_zycit115   TYPE /pws/zycit115 OCCURS 0 WITH HEADER LINE,

        lt_zycit116   TYPE /pws/zycit116 OCCURS 0 WITH HEADER LINE,

        lt_zycit118   TYPE /pws/zycit118 OCCURS 0 WITH HEADER LINE,

        lt_zycit121   TYPE /pws/zycit121 OCCURS 0 WITH HEADER LINE,

        lt_zycit124   TYPE /pws/zycit124 OCCURS 0 WITH HEADER LINE,

        lt_zycit485   TYPE /pws/zycit485 OCCURS 0 WITH HEADER LINE,

        lt_zycit486   TYPE /pws/zycit486 OCCURS 0 WITH HEADER LINE.

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

  DATA: lt_zycit525   TYPE /pws/zycit525 OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

  DATA: BEGIN OF itab_atolegal OCCURS 0,

  ebeln LIKE ekpo-ebeln,

  ebelp LIKE ekpo-ebelp,

  END OF itab_atolegal.

  DATA: v_text1(50),

        v_text2(50).

  DATA: v_pesotd TYPE /pws/zycie003-ntgewd.

  DATA v_ex TYPE c.

  e_subrc = 0.

  PERFORM verifica_exit USING 'D'

...

...

           basred        = itab_it-basred

       WHERE

           nrseq = itab_it-nrseq AND

           ebeln = itab_it-ebeln AND

         ebelp = itab_it-ebelp.                         "#EC CI_NOFIRST

    IF sy-subrc EQ 0.

      MOVE-CORRESPONDING itab_it TO /pws/zycit003.

      PERFORM carrega_log USING '/PWS/ZYCIT003' 'U'

              ' '  '/PWS/SAPMZYCI001' /pws/zycit003-nrseq.

    ENDIF.

  ENDLOOP.

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

  SELECT * FROM /pws/zycit525 INTO TABLE lt_zycit525

   WHERE nrseqdi = /pws/zycie085-nrseqdi.

  LOOP AT lt_zycit525.

    MOVE-CORRESPONDING lt_zycit525 TO /pws/zycit525.

    PERFORM carrega_log USING '/PWS/ZYCIT525' 'D'

            ' '  '/PWS/SAPMZYCI023' /pws/zycit525-nrseqdi.

  ENDLOOP.

  DELETE FROM /pws/zycit525 WHERE nrseqdi = /pws/zycie085-nrseqdi.

  MODIFY /pws/zycit525 FROM TABLE itab_zycit525.

  LOOP AT itab_zycit525.

    MOVE-CORRESPONDING itab_zycit525 TO /pws/zycit525.

    PERFORM carrega_log USING '/PWS/ZYCIT525' 'I'

            ' '  '/PWS/SAPMZYCI023' /pws/zycit525-nrseqdi.

  ENDLOOP.

* << Fim da inclusão

  CLEAR: itab_zycit003_t,   itab_zycit078_t,

         itab_zycit085_t,   itab_zycit100_t.

  REFRESH: itab_zycit003_t, itab_zycit078_t,

           itab_zycit085_t, itab_zycit100_t.

  SELECT * FROM /pws/zycit085 INTO TABLE itab_zycit085_t WHERE

      nrseqdi = /pws/zycie085-nrseqdi AND

      nrdi    = /pws/zycie085-nrdi.

  IF sy-subrc = 0.

    IF NOT itab_zycit085_t[] IS INITIAL.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F04

...

        IF /pws/zycie085-flag_reclass IS INITIAL AND

           /pws/zycie085-belnr_0 IS INITIAL AND

           /pws/zycie085-belnr_1 IS INITIAL AND

           /pws/zycie085-belnr_2 IS INITIAL AND

           /pws/zycie085-belnr_3 IS INITIAL.

          screen-invisible = '1'.

          MODIFY SCREEN.

        ENDIF.

      ENDIF.

    ENDIF.

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

    IF screen-name EQ 'TAB_LACRE'.

      IF v_region EQ 'AM' .

        IF /pws/zycie085-nrdi IS INITIAL.

          screen-invisible = '1'.

        ELSE.

          screen-invisible = '0'.

        ENDIF.

      ELSE.

        screen-invisible = '1'.

      ENDIF.

      MODIFY SCREEN.

    ENDIF.

* << Fim da inclusão

  ENDLOOP.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023F05

...

FORM set_screen_adicao.

  LOOP AT SCREEN.

    IF screen-name EQ 'TAB_DAI'.

      IF v_region EQ 'AM' .

        IF /pws/zycie085-nrdi IS INITIAL.

          screen-invisible = '1'.

        ELSE.

          screen-invisible = '0'.

        ENDIF.

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

      ELSE.

        screen-invisible = '1'.

* << Fim da inclusão

      ENDIF.

      MODIFY SCREEN.

    ENDIF.

    IF screen-name EQ 'TAB_MERCOSUL'.

      READ TABLE itab_zycit107 WITH KEY

      land1 = wa_it-porigem

      mercosul = 'X'.

      IF sy-subrc NE 0.

        screen-invisible = '1'.

        MODIFY SCREEN.

      ENDIF.

    ENDIF.

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

    IF sy-tcode EQ '/PWS/ZYCI023_E'.

* << Fim da exclusão

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

    IF sy-tcode EQ '/PWS/ZYCI023_E'

      AND  screen-name(3) NE 'TAB'.

* << Fim da inclusão

      screen-input = '0'.

    ENDIF.

    MODIFY SCREEN.

  ENDLOOP.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI023I01

...

* >> Início da inclusão:

MODULE modi_data525 INPUT.

  itab_zycit525-nrseqdi   = /pws/zycie085-nrseqdi.

  itab_zycit525-lacre     = /pws/zycie525-lacre.

  itab_zycit525-tpveiculo = /pws/zycie525-tpveiculo.

  itab_zycit525-identif   = /pws/zycie525-identif.

  IF NOT itab_zycit525 IS INITIAL.

    MODIFY itab_zycit525 INDEX tc_lacre-current_line.

    IF sy-subrc NE 0.

      APPEND itab_zycit525.

    ENDIF.

  ENDIF.

ENDMODULE.

MODULE user_command_0371 INPUT.

  CASE sy-ucomm.

    WHEN 'FC_DELE'.

      IF sy-tcode NE '/PWS/ZYCI023_E'.

        DELETE itab_zycit525 WHERE mark = 'X'.

      ENDIF.

  ENDCASE.

ENDMODULE.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI023O01

...

    MOVE 'RETI' TO it_statu2-fcode.

    APPEND it_statu2.

  ENDIF.

  IF /pws/zycit000-flag_rateio IS INITIAL.

    MOVE 'VISUA' TO it_statu4-fcode.

    APPEND it_statu4.

    MOVE 'VISUA' TO it_statu2-fcode.

    APPEND it_statu2.

  ENDIF.

  IF v_region NE 'AM'.

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

    MOVE: 'DAI' TO it_statu4-fcode,

          'DAI' TO it_statu2-fcode.

    APPEND : it_statu4,

             it_statu2 .

  ELSE.

* << Fim da inclusão

    IF /pws/zycie085-nrdi IS INITIAL.

      MOVE: 'DAI' TO it_statu4-fcode,

            'DAI' TO it_statu2-fcode.

      APPEND : it_statu4,

               it_statu2 .

    ENDIF.

  ENDIF.

  IF gc_subscreen-prog NE '0200'.

    IF /pws/zycie085-retif IS INITIAL

      OR itab_zycit100a[] IS INITIAL.

...

...

* >> Início da inclusão:

MODULE fill_struct525 OUTPUT.

  MOVE-CORRESPONDING itab_zycit525 TO /pws/zycie525.

ENDMODULE.

MODULE load_lacre OUTPUT.

  IF itab_zycit525[] IS INITIAL.

    SELECT * FROM /pws/zycit525

      INTO TABLE itab_zycit525

      WHERE nrseqdi EQ /pws/zycie085-nrseqdi.

  ENDIF.

  DESCRIBE TABLE itab_zycit525 LINES tc_lacre-lines.

  ADD 10 TO tc_lacre-lines.

ENDMODULE.

MODULE set_screen_525 OUTPUT.

  IF sy-tcode EQ '/PWS/ZYCI023_E'.

    LOOP AT tc_lacre-cols INTO v_cols.

      v_cols-screen-input = '0'.

      MODIFY tc_lacre-cols FROM v_cols.

    ENDLOOP.

  ENDIF.

ENDMODULE.

MODULE set_screen_370 OUTPUT.

  IF sy-tcode EQ '/PWS/ZYCI023_E'.

    LOOP AT SCREEN.

      IF screen-name EQ '/PWS/ZYCIE116-DESTINACAO' OR

         screen-name EQ '/PWS/ZYCIE116-UTILIZACAO' OR

         screen-name EQ '/PWS/ZYCIE116-TRIBUTACAO'.

        IF v_region EQ 'AM' .

          IF /pws/zycie085-nrdi IS INITIAL.

            screen-input = '1'.

          ELSE.

            screen-input = '0'.

          ENDIF.

        ELSE.

          screen-input = '1'.

        ENDIF.

        MODIFY SCREEN.

      ENDIF.

    ENDLOOP.

  ENDIF.

ENDMODULE.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI023TOP

...

  tc_aacr  TYPE TABLEVIEW USING SCREEN 0331,                "#EC NEEDED

  tc_aded  TYPE TABLEVIEW USING SCREEN 0332,                "#EC NEEDED

  tc_apga  TYPE TABLEVIEW USING SCREEN 0351,

  tc_apgv  TYPE TABLEVIEW USING SCREEN 0352,

  tc_apar  TYPE TABLEVIEW USING SCREEN 0353,

  tc_arep  TYPE TABLEVIEW USING SCREEN 0360,

  tc_idoc  TYPE TABLEVIEW USING SCREEN 0412,

  tc_irep  TYPE TABLEVIEW USING SCREEN 0440,

  tc_cab_merc TYPE TABLEVIEW USING SCREEN 0134,

  tc_mercosul TYPE TABLEVIEW USING SCREEN 0413,

* >> Início da exclusão:

  tc_merc_ad  TYPE TABLEVIEW USING SCREEN 0324.

* << Fim da exclusão

* >> Início da inclusão:

  tc_merc_ad  TYPE TABLEVIEW USING SCREEN 0324,

  tc_lacre    TYPE TABLEVIEW USING SCREEN 0371.

* << Fim da inclusão

TABLES:

  /pws/zycit001,

  /pws/zycie085a,

  /pws/zycie086,

  /pws/zycie087,

  /pws/zycit094,

  /pws/zycie095, /pws/zycie095a,

  /pws/zycie096,

  /pws/zycit107,                                            "#EC NEEDED

  /pws/zycie114,

...

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

Modificações efetuadas em REPS /PWS/MZYCI023X01

...

        /pws/zycit003,

        /pws/zycit095,

        /pws/zycit086,

        /pws/zycit087,

        /pws/zycit096,

        /pws/zycit114,

        /pws/zycit115,

        /pws/zycit118,

        /pws/zycit049,

        /pws/zycit200,

* >> Início da exclusão:

        /pws/zycit269.

* << Fim da exclusão

* >> Início da inclusão:

        /pws/zycit269,

        /pws/zycit525,

        /pws/zycie525.

* << Fim da inclusão

TABLES: /pws/zycit496.

TABLES /pws/zycit374.

DATA: BEGIN OF COMMON PART a.

...

...

* >> Início da inclusão:

DATA: BEGIN OF itab_zycit525 OCCURS 0.

        INCLUDE STRUCTURE /pws/zycit525 .

DATA   mark.

DATA END OF itab_zycit525.

* << Fim da inclusão

DATA: END OF COMMON PART.