CE PLUS - Nota 009954

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: DI

Data/Hora da Publicação: 15/03/2010 00:00:00

Data/Hora Última Alteração: 20/06/2011 12:09:36

Descrição da Nota: AJUSTES PARA TRATAMENTO AMERICA LATINA

Sintoma

Ajustes para tratamento America latina

 

 

Solução

Ajustes para tratamento America latina

 

Versões Tratadas

8.0


Pré-Requisitos

Produto:

Nota

Descrição

MANTER ALTERAÇÕES DE ALIQUOTA NOS TRIBUTOS DA ANA

EXIT PARA CALCULO DE IMPOSTOS NA ANA

CAMPO 'TOTAL USD PG' NA PASTA TRIBUTOS NOS DETALHES DO ITEM.

AJUSTES NOS CALCULOS DE IMPOSTOS E NO RATEIO DOS VALORES DA ANA

REMOVER OBRIGATORIEDADE DE CANAL PARA O CHILE (ANA)

Informações Complementares

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

Nota Número 09954 Data: 15/03/2010 Hora: 09:17:24

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

 

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

Nota Número              : 09954

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00002

Agrupamento              : 00012

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

Referência às notas relacionadas:

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

 

04330  - 00001 - 7.0    - 00002  - MANTER ALTERAÇÕES DE ALIQUOTA NOS TRIBUTOS DA ANA

04399  - 00002 - 7.0    - 00002  - AJUSTES NOS CALCULOS DE IMPOSTOS E NO RATEIO DOS VALORES DA ANA

04698  - 00003 - 7.0    - 00003  - EXIT PARA CALCULO DE IMPOSTOS NA ANA

05550  - 00004 - 7.0    - 00004  - CAMPO 'TOTAL USD PG' NA PASTA TRIBUTOS NOS DETALHES DO ITEM.

09392  - 00005 - 8.0    - 00001  - REMOVER OBRIGATORIEDADE DE CANAL PARA O CHILE  (ANA)

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

AJUSTES PARA TRATAMENTO AMERICA LATINA

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

Palavras Chave:

AJUSTES - ANA - AMERICA - LATINA - CAMPO - REGIÃO - PARAMETROS - TABELA

/PWS/SAPMZYCI059

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

Objetos da nota:

DTEL /PWS/ZYCIL877

DTEL /PWS/ZYCIL878

DYNP /PWS/SAPMZYCI059                        0132

DYNP /PWS/SAPMZYCI059                        0133

FUGR /PWS/ZYCIGF1

REPS /PWS/MZYCI059F01

REPS /PWS/MZYCI059F03

REPS /PWS/MZYCI059I01

REPS /PWS/MZYCI059O01

REPT /PWS/SAPMZYCI059

TABD /PWS/ZYCIT399

TABD /PWS/ZYCIT400

TABD /PWS/ZYCIT401

TABD /PWS/ZYCIT402

TABD /PWS/ZYCIT404

TABD /PWS/ZYCIT484

TOBJ /PWS/ZYCIT399S

TOBJ /PWS/ZYCIT400S

TOBJ /PWS/ZYCIT401S

TOBJ /PWS/ZYCIT402S

TOBJ /PWS/ZYCIT404S

TOBJ /PWS/ZYCIT484S

 

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

Modificações efetuadas em DTEL /PWS/ZYCIL877

 

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

Elemento de dados incluído: /PWS/ZYCIL877

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Descrição breve incluída: (18 caracteres), idioma: EN

"GL - Minimum Value"

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

"GL - Valor minimo"

Descrição breve incluída: (17 caracteres), idioma: ES

"GL - Valor minimo"

Categoria de dados: Domínio

Domínio: DECV15_2

ID parâmetro:

Nome componente default:

Documentar modificações: SIM

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 06

Denominador breve incluído (6 caracteres), idioma: EN

"Vl. M."

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

"VL.Min"

Denominador breve incluído (6 caracteres), idioma: ES

"VL.Min"

Comprimento máximo do denominador médio: 13

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

"Minimum Value"

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

"Vl. Minimo"

Denominador médio incluído (10 caracteres), idioma: ES

"Vl. Minimo"

Comprimento máximo do denominador longo: 13

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

"Minimum Value"

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

"Valor Minimo"

Denominador longo incluído (12 caracteres), idioma: ES

"Valor Minimo"

Comprimento máximo do título: 15

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

"Minimum Value"

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

"Valor Minimo"

Título incluído (12 caracteres), idioma: ES

"Valor Minimo"

 

 

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

Modificações efetuadas em DTEL /PWS/ZYCIL878

 

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

Elemento de dados incluído: /PWS/ZYCIL878

Classe de desenvolvimento: /PWS/ZYGL

Idioma original: PT

Descrição breve incluída: (18 caracteres), idioma: EN

"GL - Maximum Value"

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

"GL - Valor Maximo"

Descrição breve incluída: (17 caracteres), idioma: ES

"GL - Valor Maximo"

Categoria de dados: Domínio

Domínio: DECV15_2

ID parâmetro:

Nome componente default:

Documentar modificações: SIM

Nome da ajuda de pesquisa:

Parâmetro da ajuda de pesquisa:

Comprimento máximo do denominador breve: 06

Denominador breve incluído (5 caracteres), idioma: EN

"M. VL"

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

"VL.Max"

Denominador breve incluído (6 caracteres), idioma: ES

"VL.Max"

Comprimento máximo do denominador médio: 13

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

"Maximum Value"

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

"Vl. Maximo"

Denominador médio incluído (10 caracteres), idioma: ES

"VL. Maximo"

Comprimento máximo do denominador longo: 13

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

"Maximum Value"

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

"Valor Maximo"

Denominador longo incluído (12 caracteres), idioma: ES

"Valor Maximo"

Comprimento máximo do título: 15

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

"Maximum Value"

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

"Valor Maximo"

Título incluído (12 caracteres), idioma: ES

"Valor Maximo"

 

 

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI059                        0132

 

INCLUIR TEXTO "TEXT001"

Comprimento Visível      16

Linha                    3

Coluna                   43

Formato                  CHAR

Texto                    Taxa Cambial USD

Código função

 

INCLUIR CAMPO TEXTO "V_USD"

Comprimento Visível      13

Linha                    3

Coluna                   61

Formato                  DEC

Texto                    _____________

 

 

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI059                        0133

 

MODIFICAR TEXTO "TXTTX"

Texto                    Aduana

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI059F01

 

...

FORM save_data.

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

  IF /pws/zycie085-canal2 IS INITIAL AND t001-land1 NE 'CL'.

* << Fim da exclusão

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

  IF /pws/zycie085-canal2 IS INITIAL .

* << Fim da inclusão

    CLEAR /pws/zycie085-canal.

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

    IF t001-land1 EQ 'AR'.

* << Fim da inclusão

    MESSAGE i015 WITH text-237.

    EXIT.

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

    ENDIF.

* << Fim da inclusão

  ENDIF.

...

 

...

             vigen_inicio <= p_data AND

             vigen_fim    >= p_data AND

             land1       = t001-land1.

      DESCRIBE TABLE itab_zycit174 LINES v_linhas.

      IF v_linhas EQ 1.

        READ TABLE itab_zycit174 INDEX 1.

        p_taxa = itab_zycit174-txconver.

      ELSEIF v_linhas EQ 0.

        CONCATENATE p_data+6(2) '/' p_data+4(2) '/' p_data+0(4) '.'

        INTO v_msgd.

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

        IF t001-land1 EQ 'AR'.

     CONCATENATE p_waers text-022 v_msgd INTO s_msg1 SEPARATED BY space.

        ELSE.

     CONCATENATE p_waers text-222 v_msgd INTO s_msg1 SEPARATED BY space.

        ENDIF.

* << Fim da exclusão

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

        CONCATENATE p_waers text-022 v_msgd INTO s_msg1

                                         SEPARATED BY space.

* << Fim da inclusão

        IF NOT p_data IS INITIAL.

          v_msgfre = 'N'.

          MESSAGE s015 WITH text-021 s_msg1.

          EXIT.

        ENDIF.

      ELSEIF v_linhas > 1.

        IF NOT p_data IS INITIAL.

          MESSAGE i015 WITH text-113.

        ENDIF.

      ENDIF.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI059F03

 

...

FORM carrega_tributos.

  DATA v_first TYPE i.

  DATA: itab_zycit403_t TYPE /pws/zycit403 OCCURS 0 WITH HEADER LINE.

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

  IF NOT /pws/zycie085-ukursfob IS INITIAL.

* << Fim da exclusão

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

  CHECK NOT /pws/zycie085-ukursfob IS INITIAL.

* << Fim da inclusão

    IF itab_zycit029[] IS INITIAL.

      SELECT SINGLE land1

        FROM t001

        INTO t001-land1

        WHERE bukrs EQ /pws/zycie085-bukrs.

      SELECT * FROM /pws/zycit029 INTO TABLE itab_zycit029

        WHERE codmod = 'D' AND

              land1  = t001-land1.

    ENDIF.

    IF ok_code EQ 'REFR'.

...

 

...

    ENDIF.

    IF itab_zycit404[] IS INITIAL OR ok_code EQ 'REFR'.

      IF NOT itab_it[] IS INITIAL.

        SELECT nrseq ebeln ebelp doc FROM /pws/zycit082

        INTO TABLE itab_zycit082

        FOR ALL ENTRIES IN itab_it WHERE

                ebeln = itab_it-ebeln AND

                ebelp = itab_it-ebelp AND

                nrseq = /pws/zycie001-nrseq.

      ENDIF.

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

    IF j_1bbranch-bukrs NE /pws/zycie085-bukrs OR

       j_1bbranch-branch NE /pws/zycie085-j_1bbranch.

      SELECT SINGLE * FROM j_1bbranch

        WHERE bukrs = /pws/zycie085-bukrs

         AND branch = /pws/zycie085-j_1bbranch.

      SELECT SINGLE * FROM adrc

        WHERE addrnumber = j_1bbranch-adrnr.

      SELECT SINGLE * FROM /pws/zycit477 INTO wa_zycit477

        WHERE land = t001-land1.

    ENDIF.

* << Fim da inclusão

      SELECT * FROM /pws/zycit404 INTO TABLE itab_zycit404

        WHERE codmod = 'D' AND

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

               regio IN (adrc-region, space) AND

* << Fim da inclusão

              pais  = t001-land1.

      IF sy-subrc EQ 0.

        SELECT * FROM /pws/zycit399 INTO TABLE itab_zycit399

         FOR ALL ENTRIES IN itab_zycit404

          WHERE  codigo = itab_zycit404-codigo AND

                 codmod = 'D' AND

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

               regio IN (adrc-region, space) AND

* << Fim da inclusão

                 pais  = t001-land1.

        SELECT * FROM /pws/zycit400 INTO TABLE itab_zycit400

         FOR ALL ENTRIES IN itab_zycit404

          WHERE  codigo = itab_zycit404-codigo AND

                 codmod = 'D' AND

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

               regio IN (adrc-region, space) AND

* << Fim da inclusão

                 pais  = t001-land1 AND

                 bukrs = /pws/zycie001-bukrs.

        SELECT * FROM /pws/zycit401 INTO TABLE itab_zycit401

         FOR ALL ENTRIES IN itab_zycit404

          WHERE  codigo = itab_zycit404-codigo AND

                 codmod = 'D' AND

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

               regio IN (adrc-region, space) AND

* << Fim da inclusão

                 pais  = t001-land1 AND

                 bukrs = /pws/zycie001-bukrs.

        SELECT * FROM /pws/zycit402 INTO TABLE itab_zycit402

         FOR ALL ENTRIES IN itab_zycit404

          WHERE  codigo = itab_zycit404-codigo AND

                 codmod = 'D' AND

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

               regio IN (adrc-region, space) AND

* << Fim da inclusão

                 pais  = t001-land1 AND

                 bukrs = /pws/zycie001-bukrs.

      ENDIF.

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

    SORT: itab_zycit404 DESCENDING BY regio,

          itab_zycit399 DESCENDING BY regio,

          itab_zycit400 DESCENDING BY regio,

          itab_zycit401 DESCENDING BY regio,

          itab_zycit402 DESCENDING BY regio.

    READ TABLE: itab_zycit404 INDEX 1,

                itab_zycit399 INDEX 1,

                itab_zycit400 INDEX 1,

                itab_zycit401 INDEX 1,

                itab_zycit402 INDEX 1.

    DELETE: itab_zycit404 WHERE regio NE itab_zycit404-regio,

            itab_zycit399 WHERE regio NE itab_zycit399-regio,

            itab_zycit400 WHERE regio NE itab_zycit400-regio,

            itab_zycit401 WHERE regio NE itab_zycit401-regio,

            itab_zycit402 WHERE regio NE itab_zycit402-regio.

* << Fim da inclusão

      SORT itab_zycit404 BY linha.

      LOOP AT itab_zycit404 WHERE exibir NE 'X'

                               OR somatoria EQ space.

        MOVE itab_zycit404 TO itab_zycit404_aux.

        APPEND itab_zycit404_aux.

      ENDLOOP.

      IF itab_zycit403[] IS INITIAL.

        v_first = 0.

        LOOP AT itab_it.

          READ TABLE itab_zycit003 WITH KEY ebeln = itab_it-ebeln

...

 

...

                  itab_trib-t_ivdesp = itab_trib-t_ivdesp / v_usd.

                ENDIF.

              ENDIF.

              itab_zycit403-base =

              itab_zycit403-base + itab_trib-t_ivdesp.

            ENDLOOP.

            IF ( itab_zycit404-codigo EQ '000415' OR

               itab_zycit404-codigo EQ '000422' OR

               itab_zycit404-codigo EQ '000429' ) AND

               t001-land1 EQ 'AR'.

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

            itab_zycit403-base = itab_zycit403-base

            + itab_it-vlicms.

          ELSEIF wa_zycit477-land EQ t001-land1.

            READ TABLE itab_zycit020

                              WITH KEY codigo = 'SISC'

                                       baseii = 'X'.

            IF sy-subrc EQ 0.

* << Fim da inclusão

              itab_zycit403-base = itab_zycit403-base

              + itab_it-vlicms.

            ENDIF.

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

          ENDIF.

* << Fim da inclusão

            CLEAR  v_valtot.

            IF itab_zycit404-codigo EQ '000010' OR

               itab_zycit404-codigo EQ '000011' OR

               itab_zycit404-codigo EQ 'DERECH'.

              READ TABLE itab_zycit082 WITH KEY ebeln = itab_it-ebeln

                                                ebelp = itab_it-ebelp.

              IF sy-subrc EQ 0 AND itab_zycit082-doc NE space.

                APPEND itab_zycit403.

                CLEAR itab_zycit403.

                CONTINUE.

              ENDIF.

            ENDIF.

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

          CLEAR: itab_zycit399.

* << Fim da inclusão

            READ TABLE itab_zycit399 WITH KEY

                             codigo = itab_zycit403-codigo.

            IF sy-subrc EQ 0.

              MOVE itab_zycit399-condicoes TO itab_zycit403-condicoes.

            ENDIF.

            READ TABLE itab_zycit400 WITH KEY

                             codigo = itab_zycit403-codigo

                             steuc = itab_it-j_1bnbm.

            IF sy-subrc EQ 0.

              MOVE itab_zycit400-aliquota TO itab_zycit403-advalorem.

...

 

...

                                  ebeln  = itab_zycit403-ebeln

                                  ebelp  = itab_zycit403-ebelp.

            IF sy-subrc EQ 0.

              MOVE

             itab_zycit403_t-percentual TO itab_zycit403-percentual.

            ELSE.

              MOVE itab_zycit403-advalorem TO itab_zycit403-percentual.

            ENDIF.

            itab_zycit403-valorcalc =

                itab_zycit403-base * itab_zycit403-percentual / 100.

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

          IF itab_zycit403-valorcalc < itab_zycit399-vlmin AND

             NOT  itab_zycit399-vlmin IS INITIAL.

            itab_zycit403-valorcalc = itab_zycit399-vlmin.

          ENDIF.

          IF itab_zycit403-valorcalc > itab_zycit399-vlmax AND

             NOT itab_zycit399-vlmax IS INITIAL.

            itab_zycit403-valorcalc = itab_zycit399-vlmax.

          ENDIF.

* << Fim da inclusão

            itab_zycit403-valorrec = itab_zycit403-valorcalc.

            APPEND itab_zycit403.

            READ TABLE itab_adic INTO wa_adic

                                 WITH KEY ebeln  = itab_it-ebeln

                                          ebelp  = itab_it-ebelp

                                          codigo = itab_zycit403-codigo.

            IF sy-subrc NE 0.

              MOVE: itab_it-ebeln            TO wa_adic-ebeln,

                    itab_it-ebelp            TO wa_adic-ebelp,

                    itab_it-j_1bnbm          TO wa_adic-j_1bnbm,

...

 

...

          ENDIF.

        ENDIF.

      ELSE.

        SORT itab_zycit403 BY codigo.

        CLEAR itab_zycit403t.

        REFRESH itab_zycit403t.

        LOOP AT itab_zycit403.

          MOVE-CORRESPONDING itab_zycit403 TO itab_zycit403t.

          COLLECT itab_zycit403t.

        ENDLOOP.

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

      ENDIF.

* << Fim da exclusão

    ENDIF.

  ENDIF.

ENDFORM.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI059I01

 

...

       itab_zycit403_i-codigo EQ 'DERECH'.

      READ TABLE itab_zycit082 WITH KEY ebeln = itab_zycit403_i-ebeln

                                        ebelp = itab_zycit403_i-ebelp.

      IF sy-subrc EQ 0 AND itab_zycit082-doc NE space.

        CLEAR: itab_zycit403_i-percentual, itab_zycit403_i-basered.

      ENDIF.

    ENDIF.

  ENDLOOP.

  itab_zycit403_i-valorcalc =

       itab_zycit403_i-base * itab_zycit403_i-percentual / 100.

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

  CLEAR itab_zycit399.

  READ TABLE itab_zycit399

        WITH KEY codigo = itab_zycit403_i-codigo.

  IF itab_zycit403_i-valorcalc < itab_zycit399-vlmin AND

     NOT  itab_zycit399-vlmin IS INITIAL.

    itab_zycit403_i-valorcalc = itab_zycit399-vlmin.

  ENDIF.

  IF itab_zycit403_i-valorcalc > itab_zycit399-vlmax AND

     NOT itab_zycit399-vlmax IS INITIAL.

    itab_zycit403_i-valorcalc = itab_zycit399-vlmax.

  ENDIF.

* << Fim da inclusão

  IF /pws/zycie085-recal EQ 'X'.

    itab_zycit403_i-valorrec = itab_zycit403_i-valorcalc.

  ENDIF.

  MODIFY itab_zycit403_i INDEX tc_trib-current_line.

ENDMODULE.

...

 

 

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

Modificações efetuadas em REPS /PWS/MZYCI059O01

 

...

    PERFORM: load_timp,

             load_cour,

             load_opfu,

             fill_desp,

             load_compl.

    /pws/zycie085-tpdi = 'N'.

    /pws/zycie085-ntimp = '99'.

    SELECT SINGLE * FROM /pws/zycit001 INTO /pws/zycie001

    WHERE nrseq = /pws/zycie100a-nrseq.

    SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie001-bukrs.

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

    IF j_1bbranch-bukrs NE /pws/zycie085-bukrs OR

       j_1bbranch-branch NE /pws/zycie085-j_1bbranch.

      SELECT SINGLE * FROM j_1bbranch

        WHERE bukrs = /pws/zycie085-bukrs

         AND branch = /pws/zycie085-j_1bbranch.

      SELECT SINGLE * FROM adrc

        WHERE addrnumber = j_1bbranch-adrnr.

      SELECT SINGLE * FROM /pws/zycit477 INTO wa_zycit477

        WHERE land = t001-land1.

    ENDIF.

* << Fim da inclusão

  ELSEIF ( sy-tcode <> '/PWS/ZYCI059_C'

       AND sy-tcode <> '/PWS/ZYCI059_I' ) AND s_cnpj IS INITIAL.

    PERFORM: load_init.

    v_txtkey = /pws/zycie085-nrseqdi.

    PERFORM read_text.

    SELECT SINGLE * FROM /pws/zycit001 INTO /pws/zycie001

    WHERE nrseq = /pws/zycie100a-nrseq.

    SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie001-bukrs.

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

    IF j_1bbranch-bukrs NE /pws/zycie085-bukrs OR

       j_1bbranch-branch NE /pws/zycie085-j_1bbranch.

      SELECT SINGLE * FROM j_1bbranch

        WHERE bukrs = /pws/zycie085-bukrs

         AND branch = /pws/zycie085-j_1bbranch.

      SELECT SINGLE * FROM adrc

        WHERE addrnumber = j_1bbranch-adrnr.

      SELECT SINGLE * FROM /pws/zycit477 INTO wa_zycit477

        WHERE land = t001-land1.

    ENDIF.

* << Fim da inclusão

  ENDIF.

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

    PERFORM carrega_tributos.

  ENDIF.

ENDMODULE.

...

 

...

        /pws/zycie003-advalicms = itab_it-advalicms.

        screen-input = '1'.

      ENDIF.

      MODIFY SCREEN.

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

        screen-input = '0'.

        MODIFY SCREEN.

      ENDIF.

    ENDIF.

    IF sy-dynnr = '0132' .

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

      IF wa_zycit477-land EQ t001-land1 AND

        ( screen-name = '/PWS/ZYCIE085-UKURSFOB' OR

          screen-name = '/PWS/ZYCIE085-UKURSFRE' OR

          screen-name = '/PWS/ZYCIE085-UKURSSEG' ).

        screen-input = '0'.

        MODIFY SCREEN.

      ENDIF.

* << Fim da inclusão

      IF /pws/zycie093-meiotransp EQ 'PS'.

        IF screen-name = '/PWS/ZYCIE085-DTTAX' OR

           screen-name = '/PWS/ZYCIE085-VLFRE' OR

           screen-name = '/PWS/ZYCIE085-WAERSSEG' OR

           screen-name = '/PWS/ZYCIE085-VLSEG'.

          screen-input = 1.

        ENDIF.

      ENDIF.

      IF screen-name = '/PWS/ZYCIE085-DTTAX'.

        IF v_nf041 EQ 'S'.

...

 

...

     /pws/zycie403-codigo EQ '000011' OR

     /pws/zycie403-codigo EQ 'DERECH'.

    READ TABLE itab_zycit082 WITH KEY ebeln = /pws/zycie403-ebeln

                                      ebelp = /pws/zycie403-ebelp.

    IF sy-subrc EQ 0 AND itab_zycit082-doc NE space.

      CLEAR: /pws/zycie403-percentual, /pws/zycie403-basered.

    ENDIF.

  ENDIF.

  /pws/zycie403-valorcalc =

       /pws/zycie403-base * /pws/zycie403-percentual / 100.

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

  CLEAR itab_zycit399.

  READ TABLE itab_zycit399

        WITH KEY codigo = /pws/zycie403-codigo.

  IF /pws/zycie403-valorcalc < itab_zycit399-vlmin AND

     NOT  itab_zycit399-vlmin IS INITIAL.

    /pws/zycie403-valorcalc = itab_zycit399-vlmin.

  ENDIF.

  IF /pws/zycie403-valorcalc > itab_zycit399-vlmax AND

     NOT itab_zycit399-vlmax IS INITIAL.

    /pws/zycie403-valorcalc = itab_zycit399-vlmax.

  ENDIF.

* << Fim da inclusão

  IF /pws/zycie085-recal EQ 'X'.

    /pws/zycie403-valorrec = /pws/zycie403-valorcalc.

  ENDIF.

  READ TABLE itab_zycit029 WITH KEY codmod = 'D'

                                    codigo = /pws/zycie403-codigo

                                    land1 = t001-land1.

  IF sy-subrc EQ 0.

    MOVE itab_zycit029-descricao TO  /pws/zycit029-descricao.

  ENDIF.

ENDMODULE.

...

 

...

MODULE ajuste OUTPUT.

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

  CHECK wa_zycit477-land NE t001-land1.

* << Fim da inclusão

  IF /pws/zycie403-valorusdp <= 0 AND  /pws/zycie403-valorusdg <= 0 AND

      /pws/zycie403-valorusda <= 0.

    MESSAGE i039 WITH text-235.

    CLEAR: /pws/zycie100a-ajuste.

  ENDIF.

  IF /pws/zycie403-base <= 0.

    CLEAR: /pws/zycie100a-ajuste.

    MESSAGE i039 WITH text-235.

  ENDIF.

ENDMODULE.

...

 

 

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

Modificações efetuadas em REPT /PWS/SAPMZYCI059

 

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

Modificado símbolo de texto:

 

Idioma: PT

 

Símbolo: 022

 

Texto: (7 caracteres)

" no dia"

 

Comprimento máximo: 15

 

 

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

Modificações efetuadas em TABD /PWS/ZYCIT399

 

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

 

MANDT          MANDT         T000            CLNT     3

PAIS           LAND1         T005            CHAR     3

* >> Início da inclusão:

REGIO          REGIO                         CHAR     3

* << Fim da inclusão

CODMOD         /PWS/ZYCIL090                 CHAR     1

CODIGO         /PWS/ZYCIL089 /PWS/ZYCIT029   CHAR     6

CONDICOES      /PWS/ZYGLL504                 CHAR     1

CREDITA        XFELD                         CHAR     1

* >> Início da inclusão:

VLMIN          /PWS/ZYCIL877                 DEC     15

VLMAX          /PWS/ZYCIL878                 DEC     15

* << Fim da inclusão

 

 

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

Modificações efetuadas em TABD /PWS/ZYCIT400

 

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

 

MANDT          MANDT         T000            CLNT     3

PAIS           LAND1         T005            CHAR     3

* >> Início da inclusão:

REGIO          REGIO                         CHAR     3

* << Fim da inclusão

CODMOD         /PWS/ZYCIL090                 CHAR     1

CODIGO         /PWS/ZYCIL089 /PWS/ZYCIT029   CHAR     6

...

 

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

Modificações efetuadas em TABD /PWS/ZYCIT401

 

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

 

MANDT          MANDT         T000            CLNT     3

PAIS           LAND1         T005            CHAR     3

* >> Início da inclusão:

REGIO          REGIO                         CHAR     3

* << Fim da inclusão

CODMOD         /PWS/ZYCIL090                 CHAR     1

CODIGO         /PWS/ZYCIL089 /PWS/ZYCIT029   CHAR     6

...

 

 

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

Modificações efetuadas em TABD /PWS/ZYCIT402

 

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

 

MANDT          MANDT         T000            CLNT     3

PAIS           LAND1         T005            CHAR     3

* >> Início da inclusão:

REGIO          REGIO                         CHAR     3

* << Fim da inclusão

CODMOD         /PWS/ZYCIL090                 CHAR     1

CODIGO         /PWS/ZYCIL089 /PWS/ZYCIT029   CHAR     6

...

 

 

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

Modificações efetuadas em TABD /PWS/ZYCIT404

 

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

 

MANDT          MANDT         T000            CLNT     3

PAIS           LAND1         T005            CHAR     3

* >> Início da inclusão:

REGIO          REGIO                         CHAR     3

* << Fim da inclusão

CODMOD         /PWS/ZYCIL090                 CHAR     1

LINHA          /PWS/ZYGLL120                 NUMC     3

...

 

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

Modificações efetuadas em TABD /PWS/ZYCIT484

 

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

 

MANDT          MANDT                         CLNT     3

LAND1          LAND          T005            CHAR     3

* >> Início da inclusão:

REGIO          REGIO                         CHAR     3

* << Fim da inclusão

BUKRS          BUKRS         T001            CHAR     4

CODMOD         /PWS/ZYCIL090                 CHAR     1

...

 

 

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

Modificações efetuadas em TOBJ /PWS/ZYCIT399S

 

Gerar novamente a tela de atualização para a tabela /PWS/ZYCIT399

 

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

Modificações efetuadas em TOBJ /PWS/ZYCIT400S

 

Gerar novamente a tela de atualização para a tabela /PWS/ZYCIT400

 

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

Modificações efetuadas em TOBJ /PWS/ZYCIT401S

 

Gerar novamente a tela de atualização para a tabela /PWS/ZYCIT401

 

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

Modificações efetuadas em TOBJ /PWS/ZYCIT402S

 

Gerar novamente a tela de atualização para a tabela /PWS/ZYCIT402

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

Modificações efetuadas em TOBJ /PWS/ZYCIT404S

 

Gerar novamente a tela de atualização para a tabela /PWS/ZYCIT404

 

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

Modificações efetuadas em TOBJ /PWS/ZYCIT484S

 

Gerar novamente a tela de atualização para a tabela /PWS/ZYCIT484