Sintoma

O programa não exibe a moeda e o valor no local de embarque nos processos de isenção.

O programa converte os valores para USD considerando apenas a data de embarque.

Solução

Adicionadas as colunas moeda e valor no local de embarque na pasta exportações.

Adicionado um parametro na tabela de parametros gerais para a data de conversão para USD.

Informações Complementares

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

Nota Número 05140 Data: 05/11/2007 Hora: 11:05:35

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

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

Nota Número              : 05140

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00019

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

Referência às notas relacionadas:

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

05130  - 00001 - 7.0    - 00003  - SELEÇÃO DAS COMERCIAIS EXPORTADORAS NA COMPOSIÇÃO DE ISENÇÃO

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

ADICIONADOS OS CAMPOS MOEDA E VALOR NO LOCAL DE EMBARQUE

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

Palavras Chave:

MOEDA VALOR NO LOCAL DE EMBARQUE EXPORTAÇÕES COMPOSIÇÃO ISENÇÃO

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

Objetos da nota:

DOMA /PWS/ZYCID180

DTEL /PWS/ZYCIL856

DYNP /PWS/SAPMZYCI064                        0304

FUGR /PWS/ZYCIGF1

RELE F6DK954112 20071101 171013 PWSCI

RELE F6DK954115 20071101 171027 PWSCI

REPS /PWS/MZYCI064F03

REPS /PWS/MZYCI064O01

TABD /PWS/ZYCIT321

TABU TDDAT

TABU TVDIR

TOBJ /PWS/ZYCIT321S

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

Modificações efetuadas em DOMA /PWS/ZYCID180

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

Domínio incluído: /PWS/ZYCID180

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

"GL - Origem data de Conversão"

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

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

"Data de Embarque"

Incluído valor fixo "1"

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

"Data de Averbação"

Incluído valor fixo "2"

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

"Data de Inclusão"

Incluída tabela de valores:

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

Elemento de dados incluído: /PWS/ZYCIL856

Classe de desenvolvimento: /PWS/ZYCI

Idioma original: PT

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

"GL - Data Conversão"

Categoria de dados: Domínio

Domínio: /PWS/ZYCID180

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

"Dt.Conv."

Comprimento máximo do denominador médio: 15

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

"Data conversão"

Comprimento máximo do denominador longo: 20

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

"Data de conversão"

Comprimento máximo do título: 17

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

"Data de conversão"

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI064                        0304

* Incluidas as colunas:

Moeda Local de Embarque

Valor no Local de Embarque

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

Modificações efetuadas em FUGR /PWS/ZYCIGF1

*Geração da visualização da tabela /PWS/ZYCIT321

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

Modificações efetuadas em REPS /PWS/MZYCI064F03

...

               PERFORM converte_um_base USING itab_det_exp_final-codmat

                                      CHANGING itab_det_exp_final-meins

                                            itab_det_exp_final-qtd_iten.

                IF itab_det_exp_final-qtd_iten IS INITIAL.

                  itab_mess_un-meins = itab_det_exp_final-meins.

                  itab_mess_un-matnr = itab_det_exp_final-codmat.

                  APPEND itab_mess_un.

                  CONTINUE.

                ENDIF.

              ENDIF.

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

              CASE /pws/zycit321-dtconv.

                WHEN 1.

                  itab_det_exp_final-dtemb = itab_det_exp_final-dtaverb.

                WHEN 2.

                  itab_det_exp_final-dtemb = itab_det_exp_final-dtre .

              ENDCASE.

* << Fim da inclusão

              PERFORM converter_moeda_exp USING

                                           itab_det_exp_final-vlfre

                                           itab_det_exp_final-waersfob

                                           'USD'

                                           itab_det_exp_final-dtemb

                                       CHANGING

                                           itab_det_exp_final-vlfre.

              PERFORM converter_moeda_exp USING

                                           itab_det_exp_final-vlfob

                                           itab_det_exp_final-waersfob

...

...

                                       CHANGING

                                           itab_det_exp_final-vlfob.

              PERFORM converter_moeda_exp USING

                                           itab_re_final-vlagente

                                           itab_det_exp_final-waersfob

                                           'USD'

                                           itab_det_exp_final-dtemb

                                       CHANGING

                                           itab_det_exp_final-vlcomis.

              itab_det_exp_final-waersfob = 'USD'.

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

              MOVE itab_zycet001-dtemb TO itab_det_exp_final-dtemb.

* << Fim da inclusão

              SELECT SINGLE steuc

                  FROM marc INTO itab_det_exp_final-j_1bnbm

                  WHERE matnr EQ itab_det_exp_final-codmat.

              itab_det_exp_final-qtd_ncm = itab_det_exp_final-qtd_iten.

              itab_det_exp_final-meins_ncm = itab_det_exp_final-meins.

              PERFORM converte_um_ncm USING itab_det_exp_final-codmat

                    CHANGING itab_det_exp_final-meins_ncm

                             itab_det_exp_final-werks

                             itab_det_exp_final-qtd_ncm.

              IF itab_det_exp_final-qtd_ncm IS INITIAL.

...

...

      CLEAR itab_zycit433.

      READ TABLE itab_zycit433 WITH KEY matnr = itab_ekpo-matnr.

      itab_zycit100_sort-grupo = itab_zycit433-grupo.

      APPEND itab_zycit100_sort.

    ENDLOOP.

  ENDLOOP.

  REFRESH: itab_ekpo.

  itab_ekpo[] = itab_ekpo_sort[] .

  REFRESH itab_mess_un.

  SORT itab_det_exp BY dtre nrseqre.

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

  REFRESH itab_comp_sort3.

  LOOP AT itab_det_exp.

    LOOP AT itab_comp_vinc_final WHERE codmat   = itab_det_exp-codmat

                                  AND nrseqre  = itab_det_exp-nrseqre

                                   AND nrseq    = itab_det_exp-nrseq

                                   AND nrseqc   = itab_det_exp-nrseqc

                                 AND vbeln_va = itab_det_exp-vbeln_va

                                 AND vbeln_vf = itab_det_exp-vbeln_vf

                                   AND posnr    = itab_det_exp-posnr.

      itab_comp_sort3 = itab_comp_vinc_final.

      APPEND itab_comp_sort3.

    ENDLOOP.

  ENDLOOP.

  REFRESH itab_comp_vinc_final.

  itab_comp_vinc_final[] = itab_comp_sort3[].

* << Fim da exclusão

  IF /pws/zycit321-it_ge EQ 'X'.

  ELSE.

  ENDIF.

  CLEAR: v_count .

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

  LOOP AT itab_comp_vinc_final.

* << Fim da exclusão

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

  LOOP AT itab_det_exp.

    LOOP AT itab_comp_vinc_final WHERE

                                codmat   = itab_comp_vinc_final-codmat

                            AND nrseqre  = itab_comp_vinc_final-nrseqre

                            AND nrseq    = itab_comp_vinc_final-nrseq

                            AND nrseqc   = itab_comp_vinc_final-nrseqc

                           AND vbeln_va = itab_comp_vinc_final-vbeln_va

                           AND vbeln_vf = itab_comp_vinc_final-vbeln_vf

                            AND posnr    = itab_comp_vinc_final-posnr.

* << Fim da inclusão

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

    READ TABLE itab_det_exp WITH KEY

                         codmat   = itab_comp_vinc_final-codmat

                         nrseqre  = itab_comp_vinc_final-nrseqre

                         nrseq    = itab_comp_vinc_final-nrseq

                         nrseqc   = itab_comp_vinc_final-nrseqc

                         vbeln_va = itab_comp_vinc_final-vbeln_va

                         vbeln_vf = itab_comp_vinc_final-vbeln_vf

                         posnr    = itab_comp_vinc_final-posnr.

* << Fim da exclusão

    IF NOT itab_det_exp-dtre IS INITIAL.

      v_dtini = /pws/zycie258-dtpr.

      v_dtini(4) = v_dtini(4) - 2.

      v_dtfim = itab_det_exp-dtre.

    ELSE.

      v_dtini = /pws/zycie258-dtpr.

      v_dtini(4) = v_dtini(4) - 2.

      v_dtfim = itab_det_exp-dtnf.

    ENDIF.

    IF /pws/zycit321-it_ge EQ 'X'.

...

...

     FROM mara INTO (mara-ntgew,mara-brgew)

      WHERE matnr = itab_di_final-codmat.

    READ TABLE itab_zycit085 WITH KEY nrseqdi = itab_di_final-nrdi.

    IF sy-subrc = 0.

      PERFORM valor_converte_imp USING itab_zycit085-waersfob

                                         'USD'

                                         itab_zycit085-dttax

                                CHANGING itab_di_final-vlfob.

    ENDIF.

    MODIFY itab_di_final INDEX v_tabix.

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

    ENDLOOP.

* << Fim da inclusão

  ENDLOOP.

  FREE: itab_zycit085,

        itab_zycit100,

        itab_zycit260,

        itab_zycit003,

        itab_ekpo    ,

        itab_zycit003_t2,

        itab_zycit244,

        itab_ekpo_sort,

        itab_zycit100_sort,

...

...

      ENDIF.

    ENDLOOP.

  ENDIF.

  v_pct = 0.

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

       EXPORTING

            percentage = v_pct

            text       = text-297.

  SORT itab_zycit279 BY dtdi.

  CLEAR: v_count .

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

  LOOP AT itab_det_exp.

* << Fim da inclusão

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

  LOOP AT itab_comp_vinc_final.

* << Fim da exclusão

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

    LOOP AT itab_comp_vinc_final WHERE

                                codmat   = itab_comp_vinc_final-codmat

                            AND nrseqre  = itab_comp_vinc_final-nrseqre

                            AND nrseq    = itab_comp_vinc_final-nrseq

                            AND nrseqc   = itab_comp_vinc_final-nrseqc

                           AND vbeln_va = itab_comp_vinc_final-vbeln_va

                           AND vbeln_vf = itab_comp_vinc_final-vbeln_vf

                            AND posnr    = itab_comp_vinc_final-posnr.

* << Fim da inclusão

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

    READ TABLE itab_det_exp WITH KEY

                         codmat   = itab_comp_vinc_final-codmat

                         nrseqre  = itab_comp_vinc_final-nrseqre

                         nrseq    = itab_comp_vinc_final-nrseq

                         nrseqc   = itab_comp_vinc_final-nrseqc

                         vbeln_va = itab_comp_vinc_final-vbeln_va

                         vbeln_vf = itab_comp_vinc_final-vbeln_vf

                         posnr    = itab_comp_vinc_final-posnr.

* << Fim da exclusão

    IF NOT itab_det_exp-dtre IS INITIAL.

      v_dtini = /pws/zycie258-dtpr.

      v_dtini(4) = v_dtini(4) - 2.

      v_dtfim = itab_det_exp-dtre.

    ELSE.

      v_dtini = /pws/zycie258-dtpr.

      v_dtini(4) = v_dtini(4) - 2.

      v_dtfim = itab_det_exp-dtnf.

    ENDIF.

    IF /pws/zycit321-it_ge EQ 'X'.

...

...

               EXPORTING

                    percentage = v_pct

                    text       = text-297.

          CLEAR: v_count .

        ENDIF.

        ADD 1 TO v_count.

        PERFORM monta_di.

      ENDLOOP.

    ENDIF.

  ENDLOOP.

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

  ENDLOOP.

* << Fim da inclusão

  FREE: itab_zycit279,

        itab_zycit244,

        itab_comp_sort3.

ENDFORM.

FORM verifica_exit USING    p_modulo

                            p_func

                            p_exit.

  CLEAR itab_zyglt100.

  REFRESH itab_zyglt100.

  CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

...

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

Modificações efetuadas em REPS /PWS/MZYCI064O01

...

  /pws/zycie259c-lote     = itab_det_exp-lote    .

  /pws/zycie259c-brgew    = itab_det_exp-brgew   .

  /pws/zycie259c-ntgew    = itab_det_exp-ntgew   .

  /pws/zycie259c-meins    = itab_det_exp-meins   .

  /pws/zycie259c-qtd_iten = itab_det_exp-qtd_iten.

  /pws/zycie259c-waersfob = itab_det_exp-waersfob.

  /pws/zycie259c-meins_ncm = itab_det_exp-meins_ncm   .

  /pws/zycie259c-qtd_ncm   = itab_det_exp-qtd_ncm.

  /pws/zycie259c-vlfre     = itab_det_exp-vlfre.

  /pws/zycie259c-waersfre = itab_det_exp-waersfre.

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

  /pws/zycie259c-vlfobemb    = itab_det_exp-vlfobemb   .

  /pws/zycie259c-waersemb = itab_det_exp-waersemb.

* << Fim da inclusão

  /pws/zycie259c-vlfob    = itab_det_exp-vlfob   .

  /pws/zycie259c-waerscom = itab_det_exp-waerscom.

  /pws/zycie259c-vlcomis  = itab_det_exp-vlcomis .

  /pws/zycie259c-waerscif = itab_det_exp-waerscif.

  /pws/zycie259c-vlcif    = itab_det_exp-vlcif   .

  /pws/zycie259c-nrre     = itab_det_exp-nrre    .

  /pws/zycie373-it_docfat = itab_det_exp-it_docfat.

  /pws/zycie373-fornec    = itab_det_exp-fornec   .

  /pws/zycie373-it_fornec = itab_det_exp-it_fornec.

  /pws/zycie371-nrre      = itab_det_exp-nrre     .

...

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

Modificações efetuadas em TABD /PWS/ZYCIT321

DIA_ANT /PWS/ZYCIL835 DEC 4 0   GL - n° dias de tolerancia para vencimento

C_COMUM /PWS/ZYCIL839 CHAR 1 0   GL - TIPO DE CONTROLE ATO CONCESSÓRIO COMUM

LOTE       /PWS/ZYCIL840 CHAR 1 0   GL - Controle de Lote

IT_GE       /PWS/ZYCIL843 CHAR 1 0   GL - Utiliza Codigo Genérico para o material

* >> Início da inclusão

DTCONV       /PWS/ZYCIL856 CHAR 1 0   GL - Data Conversão

* << Fim da inclusão