Sintoma

Adicionado campo nos parametros gerais de drawback para indicar a categoria de cambio a ser

utilizada.

Solução

Adicionado campo nos parametros gerais de drawback para indicar a categoria de cambio a ser

utilizada.

Informações Complementares

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

Nota Número 09195 Data: 14/10/2009 Hora: 16:34:15

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

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

Nota Número              : 09195

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00001

Agrupamento              : 00001

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

Referência às notas relacionadas:

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

08035  - 00001 - 7.0    - 00008  - PROGRAMA DE GERENCIAMENTO DOS PARAMETROS GERAIS DO DRAWBACK

08477  - 00002 - 7.0    - 00009  - CODE INSPECTOR

08738  - 00003 - 7.0    - 00010  - IMPRESSÃO LADO A LADO DOS FORMULÁRIOS DO DRAWBACK (EXCEL)

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

CRIADO PARAMETRO PARA CATEGORIA DE CAMBIO

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

Palavras Chave:

CATAGORIA - CAMBIO - DRAWBACK - PARAMETRO

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

Objetos da nota:

DYNP /PWS/SAPMZYCI081                        0101

REPS /PWS/MZYCI017F02

REPS /PWS/MZYCI020F02

REPS /PWS/MZYCI040F02

REPS /PWS/MZYCI064F02

REPS /PWS/MZYCI068F01

REPS /PWS/ZYCRR004

REPS /PWS/ZYCRR005

REPS /PWS/ZYCRR007

REPS /PWS/ZYCRR035

REPS /PWS/ZYCRR036

REPS /PWS/ZYCRR038

TABD /PWS/ZYCIT321

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI081                        0101

INCLUIR CAMPO TEXTO "/PWS/ZYCIT321-KURST"

Comprimento Visível      4

Linha                    7

Coluna                   23

Formato                  CHAR

Linhas mínimas           4

Texto                    ____

Código função

INCLUIR TEXTO "/PWS/ZYCIT321-KURST"

Comprimento Visível      15

Linha                    7

Coluna                   4

Formato                  CHAR

Texto                    Ctg.taxa câmbio

Código função

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

Modificações efetuadas em REPS /PWS/MZYCI017F02

...

FORM converter_moeda USING p_devlme

                           p_deme

                           p_parame

                           p_data

                  CHANGING p_paravlme.

  DATA: v_ctmoeda LIKE tcurr-kurst VALUE 'G',

        v_devlme   LIKE bsak-wrbtr,

        v_paravlme LIKE bsak-wrbtr.

  v_devlme = p_devlme .

  IF p_devlme NE 0.

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

    IF NOT /pws/zycit321-kurst IS INITIAL.

      v_ctmoeda = /pws/zycit321-kurst.

    ENDIF.

* << Fim da inclusão

    CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'

         EXPORTING

              i_montante                 = v_devlme

              i_demoeda                  = p_deme

              i_paramoeda                = p_parame

              i_ctmoeda                  = v_ctmoeda

              i_dtbase                   = p_data

         IMPORTING

              e_montante                 = v_paravlme

         EXCEPTIONS

...

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

Modificações efetuadas em REPS /PWS/MZYCI020F02

...

FORM converter_moeda USING p_devlme

                           p_deme

                           p_parame

                           p_data

                  CHANGING p_paravlme.

  DATA: v_ctmoeda LIKE tcurr-kurst VALUE 'G',

        v_devlme   LIKE bsak-wrbtr,

        v_paravlme LIKE bsak-wrbtr.

  v_devlme = p_devlme .

  IF p_devlme NE 0.

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

    IF NOT /pws/zycit321-kurst IS INITIAL.

      v_ctmoeda = /pws/zycit321-kurst.

    ENDIF.

* << Fim da inclusão

    CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'

         EXPORTING

              i_montante                 = v_devlme

              i_demoeda                  = p_deme

              i_paramoeda                = p_parame

              i_ctmoeda                  = v_ctmoeda

              i_dtbase                   = p_data

         IMPORTING

              e_montante                 = v_paravlme

         EXCEPTIONS

...

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

Modificações efetuadas em REPS /PWS/MZYCI040F02

...

FORM converter_moeda_exp USING p_devlme

                           p_deme

                           p_parame

                           p_data

                  CHANGING p_paravlme.

  DATA: v_ctmoeda LIKE tcurr-kurst VALUE 'G',

        v_devlme   LIKE bsak-wrbtr,

        v_paravlme LIKE bsak-wrbtr.

  v_devlme = p_devlme .

  IF p_devlme NE 0.

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

    IF NOT /pws/zycit321-kurst IS INITIAL.

      v_ctmoeda = /pws/zycit321-kurst.

    ENDIF.

* << Fim da inclusão

    CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'

         EXPORTING

              i_montante                 = v_devlme

              i_demoeda                  = p_deme

              i_paramoeda                = p_parame

              i_ctmoeda                  = v_ctmoeda

              i_dtbase                   = p_data

         IMPORTING

              e_montante                 = v_paravlme

         EXCEPTIONS

...

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

Modificações efetuadas em REPS /PWS/MZYCI064F02

...

        v_paravlme LIKE bsak-wrbtr.

  DATA: v_txc LIKE  tcurr-ukurs,

        v_defator LIKE  tcurr-ffact,

        v_parafator LIKE  tcurr-tfact,

        v_txc2 LIKE  tcurr-ukurs,

        v_defator2 LIKE  tcurr-ffact,

        v_parafator2 LIKE  tcurr-tfact.

  IF  p_deme EQ p_parame.

    p_paravlme = p_devlme.

  ELSE.

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

    IF NOT /pws/zycit321-kurst IS INITIAL.

      v_ctmoeda = /pws/zycit321-kurst.

    ENDIF.

* << Fim da inclusão

    v_devlme = p_devlme .

    IF p_devlme NE 0.

      IF /pws/zycbt007 IS INITIAL.

        SELECT SINGLE * FROM /pws/zycbt007

          WHERE bukrs EQ /pws/zycie258-bukrs.

      ENDIF.

      CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'

           EXPORTING

                i_montante                 = v_devlme

                i_demoeda                  = p_deme

...

...

                e_defator                  = v_defator

                e_parafator                = v_parafator

           EXCEPTIONS

                i_demoeda_nao_encontrado   = 1

                i_paramoeda_nao_encontrado = 2

                fator_nao_encontrado       = 3

                i_ctmoeda_nao_encontrado   = 4

                i_dtbase_nao_encontrada    = 5

                taxa_nao_encontrada        = 6

                i_montante_nao_encontrado  = 7.

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

      IF sy-subrc NE 0.

        EXIT.

      ENDIF.

* << Fim da inclusão

      CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'

           EXPORTING

                i_montante                 = v_devlme

                i_demoeda                  = p_parame

                i_paramoeda                = /pws/zycbt007-waersb

                i_ctmoeda                  = v_ctmoeda

                i_dtbase                   = p_data

           IMPORTING

                e_montante                 = v_paravlme

                e_txc                      = v_txc2

                e_defator                  = v_defator2

                e_parafator                = v_parafator2

           EXCEPTIONS

                i_demoeda_nao_encontrado   = 1

                i_paramoeda_nao_encontrado = 2

                fator_nao_encontrado       = 3

                i_ctmoeda_nao_encontrado   = 4

                i_dtbase_nao_encontrada    = 5

                taxa_nao_encontrada        = 6

                i_montante_nao_encontrado  = 7.

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

      IF sy-subrc NE 0.

        EXIT.

      ENDIF.

* << Fim da inclusão

      p_paravlme =

                  ( ( ( v_txc * v_defator ) / v_parafator ) *

                   v_devlme ) /  ( ( v_txc2 * v_defator2 ) /

                   v_parafator2 ) .

    ENDIF.

  ENDIF.

ENDFORM.

...

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

Modificações efetuadas em REPS /PWS/MZYCI068F01

...

FORM converter_moeda USING p_devlme

                           p_deme

                           p_parame

                           p_data

                  CHANGING p_paravlme.

  DATA: v_ctmoeda LIKE tcurr-kurst VALUE 'G',

        v_devlme   LIKE bsak-wrbtr,

        v_paravlme LIKE bsak-wrbtr.

  v_devlme = p_devlme .

  IF p_devlme NE 0.

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

    IF NOT /pws/zycit321-kurst IS INITIAL.

      v_ctmoeda = /pws/zycit321-kurst.

    ENDIF.

* << Fim da inclusão

    CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'

         EXPORTING

              i_montante                 = v_devlme

              i_demoeda                  = p_deme

              i_paramoeda                = p_parame

              i_ctmoeda                  = v_ctmoeda

              i_dtbase                   = p_data

         IMPORTING

              e_montante                 = v_paravlme

         EXCEPTIONS

...

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

Modificações efetuadas em REPS /PWS/ZYCRR004

REPORT /pws/zycrr004 MESSAGE-ID /pws/zycrm.

INCLUDE: /pws/zycri004,

         /pws/zycri003,

         /pws/zycri002.

TABLES: tcurx.

* >> Início da inclusão:

TABLES /pws/zycit321.

* << Fim da inclusão

...

...

FORM converter_moeda USING p_devlme

                           p_deme

                           p_parame

                           p_data

                  CHANGING p_paravlme.

  DATA: v_ctmoeda LIKE tcurr-kurst VALUE 'G',

        v_devlme   LIKE bsak-wrbtr,

        v_paravlme LIKE bsak-wrbtr.

  v_devlme = p_devlme .

  IF p_devlme NE 0.

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

    IF /pws/zycit321 IS INITIAL.

      SELECT SINGLE * FROM /pws/zycit321.

    ENDIF.

    IF NOT /pws/zycit321-kurst IS INITIAL.

      v_ctmoeda = /pws/zycit321-kurst.

    ENDIF.

* << Fim da inclusão

    CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'

         EXPORTING

              i_montante                 = v_devlme

              i_demoeda                  = p_deme

              i_paramoeda                = p_parame

              i_ctmoeda                  = v_ctmoeda

              i_dtbase                   = p_data

         IMPORTING

              e_montante                 = v_paravlme

         EXCEPTIONS

...

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

Modificações efetuadas em REPS /PWS/ZYCRR005

REPORT /pws/zycrr005 MESSAGE-ID /pws/zycrm.

INCLUDE: /pws/zycri004,

         /pws/zycri003,

         /pws/zycri002.

TABLES: tcurx.

* >> Início da inclusão:

TABLES /pws/zycit321.

* << Fim da inclusão

...

...

FORM converter_moeda USING p_devlme

                           p_deme

                           p_parame

                           p_data

                  CHANGING p_paravlme.

  DATA: v_ctmoeda LIKE tcurr-kurst VALUE 'G',

        v_devlme   LIKE bsak-wrbtr,

        v_paravlme LIKE bsak-wrbtr.

  v_devlme = p_devlme .

  IF p_devlme NE 0.

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

    IF /pws/zycit321 IS INITIAL.

      SELECT SINGLE * FROM /pws/zycit321.

    ENDIF.

    IF NOT /pws/zycit321-kurst IS INITIAL.

      v_ctmoeda = /pws/zycit321-kurst.

    ENDIF.

* << Fim da inclusão

    CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'

         EXPORTING

              i_montante                 = v_devlme

              i_demoeda                  = p_deme

              i_paramoeda                = p_parame

              i_ctmoeda                  = v_ctmoeda

              i_dtbase                   = p_data

         IMPORTING

              e_montante                 = v_paravlme

         EXCEPTIONS

...

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

Modificações efetuadas em REPS /PWS/ZYCRR007

REPORT /pws/zycrr007 MESSAGE-ID /pws/zycrm.

INCLUDE: /pws/zycri004,

         /pws/zycri003,

         /pws/zycri002.

TABLES: tcurx.

* >> Início da inclusão:

TABLES /pws/zycit321.

* << Fim da inclusão

...

...

FORM converter_moeda USING p_devlme

                           p_deme

                           p_parame

                           p_data

                  CHANGING p_paravlme.

  DATA: v_ctmoeda LIKE tcurr-kurst VALUE 'G',

        v_devlme   LIKE bsak-wrbtr,

        v_paravlme LIKE bsak-wrbtr.

  v_devlme = p_devlme .

  IF p_devlme NE 0.

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

    IF /pws/zycit321 IS INITIAL.

      SELECT SINGLE * FROM /pws/zycit321.

    ENDIF.

    IF NOT /pws/zycit321-kurst IS INITIAL.

      v_ctmoeda = /pws/zycit321-kurst.

    ENDIF.

* << Fim da inclusão

    CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'

         EXPORTING

              i_montante                 = v_devlme

              i_demoeda                  = p_deme

              i_paramoeda                = p_parame

              i_ctmoeda                  = v_ctmoeda

              i_dtbase                   = p_data

         IMPORTING

              e_montante                 = v_paravlme

         EXCEPTIONS

...

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

Modificações efetuadas em REPS /PWS/ZYCRR035

REPORT /pws/zycrr035 MESSAGE-ID /pws/zycrm.

INCLUDE: /pws/zycri004,

         /pws/zycri003,

         /pws/zycri002.

TABLES:

        tcurx.

* >> Início da inclusão:

TABLES /pws/zycit321.

* << Fim da inclusão

...

...

FORM converter_moeda USING p_devlme

                           p_deme

                           p_parame

                           p_data

                  CHANGING p_paravlme.

  DATA: v_ctmoeda LIKE tcurr-kurst VALUE 'G',

        v_devlme   LIKE bsak-wrbtr,

        v_paravlme LIKE bsak-wrbtr.

  v_devlme = p_devlme .

  IF p_devlme NE 0.

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

    IF /pws/zycit321 IS INITIAL.

      SELECT SINGLE * FROM /pws/zycit321.

    ENDIF.

    IF NOT /pws/zycit321-kurst IS INITIAL.

      v_ctmoeda = /pws/zycit321-kurst.

    ENDIF.

* << Fim da inclusão

    CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'

         EXPORTING

              i_montante                 = v_devlme

              i_demoeda                  = p_deme

              i_paramoeda                = p_parame

              i_ctmoeda                  = v_ctmoeda

              i_dtbase                   = p_data

         IMPORTING

              e_montante                 = v_paravlme

         EXCEPTIONS

...

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

Modificações efetuadas em REPS /PWS/ZYCRR036

REPORT /pws/zycrr036 MESSAGE-ID /pws/zycrm.

INCLUDE: /pws/zycri004,

         /pws/zycri003,

         /pws/zycri002.

TABLES: tcurx.

* >> Início da inclusão:

TABLES /pws/zycit321.

* << Fim da inclusão

...

...

FORM converter_moeda USING p_devlme

                           p_deme

                           p_parame

                           p_data

                  CHANGING p_paravlme.

  DATA: v_ctmoeda LIKE tcurr-kurst VALUE 'G',

        v_devlme   LIKE bsak-wrbtr,

        v_paravlme LIKE bsak-wrbtr.

  v_devlme = p_devlme .

  IF p_devlme NE 0.

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

    IF /pws/zycit321 IS INITIAL.

      SELECT SINGLE * FROM /pws/zycit321.

    ENDIF.

    IF NOT /pws/zycit321-kurst IS INITIAL.

      v_ctmoeda = /pws/zycit321-kurst.

    ENDIF.

* << Fim da inclusão

    CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'

         EXPORTING

              i_montante                 = v_devlme

              i_demoeda                  = p_deme

              i_paramoeda                = p_parame

              i_ctmoeda                  = v_ctmoeda

              i_dtbase                   = p_data

         IMPORTING

              e_montante                 = v_paravlme

         EXCEPTIONS

...

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

Modificações efetuadas em REPS /PWS/ZYCRR038

REPORT /pws/zycrr038 MESSAGE-ID /pws/zycrm.

INCLUDE: /pws/zycri004,

         /pws/zycri003,

         /pws/zycri002.

TABLES: tcurx.

* >> Início da inclusão:

TABLES /pws/zycit321.

* << Fim da inclusão

...

...

FORM converter_moeda USING p_devlme

                           p_deme

                           p_parame

                           p_data

                  CHANGING p_paravlme.

  DATA: v_ctmoeda LIKE tcurr-kurst VALUE 'G',

        v_devlme   LIKE bsak-wrbtr,

        v_paravlme LIKE bsak-wrbtr.

  v_devlme = p_devlme .

  IF p_devlme NE 0.

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

    IF /pws/zycit321 IS INITIAL.

      SELECT SINGLE * FROM /pws/zycit321.

    ENDIF.

    IF NOT /pws/zycit321-kurst IS INITIAL.

      v_ctmoeda = /pws/zycit321-kurst.

    ENDIF.

* << Fim da inclusão

    CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'

         EXPORTING

              i_montante                 = v_devlme

              i_demoeda                  = p_deme

              i_paramoeda                = p_parame

              i_ctmoeda                  = v_ctmoeda

              i_dtbase                   = p_data

         IMPORTING

              e_montante                 = v_paravlme

         EXCEPTIONS

...

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

Modificações efetuadas em TABD /PWS/ZYCIT321

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

...

DTCONV          /PWS/ZYCIL856               CHAR     1

APR_MULT        /PWS/ZYCIL870               CHAR     1

APR_PARC        /PWS/ZYCIL871               CHAR     1

* >> Início da inclusão:

KURST           KURST_CURR     TCURV        CHAR     4

* << Fim da inclusão

*Chave externa

Nome de campo:      KURST

Tabela verificação: TCURV

Tabela chave externa Cpo.chave externa Tab.verif. Nome de campo

/PWS/ZYCIT321        MANDT             TCURV      MANDT

/PWS/ZYCIT321        KURST             TCURV      KURST