CE PLUS - Nota 005379

Módulo: DOC. EXPORTAÇÃO

Funcionalidade: Registro de Exportação (RE)

Data/Hora da Publicação: 04/12/2007 00:00:00

Data/Hora Última Alteração: 22/02/2011 10:05:11

Descrição da Nota: CORREÇÃO NA RECUPERAÇÃO DE DATA NO AGRUPAMENTO DE OV DO RE

Sintoma

Geração de exceção por "time out" após diálogo de fator do RE à termo.

 

 

Solução

Correção da chave e implementação de opções caso a busca pelo faturamento falhe.

 

Versões Tratadas

7.0


Pré-Requisitos

Produto:

Nota

Descrição

CORREÇÃO CONVERSÃO DE MONTANTE NO AGRUPAMENTO DE OV

ALTERAÇÃO NA FUNÇÃO AGRUPA ORDENS EM RE

Informações Complementares

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

Nota Número 05379 Data: 04/12/2007 Hora: 15:02:48

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

 

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

Nota Número              : 05379

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00003

Agrupamento              : 00024

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

Referência às notas relacionadas:

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

 

04914  - 00001 - 7.0    - 00003  - ALTERAÇÃO NA FUNÇÃO AGRUPA ORDENS EM RE

05105  - 00002 - 7.0    - 00003  - CORREÇÃO CONVERSÃO DE MONTANTE NO AGRUPAMENTO DE OV

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

CORREÇÃO NA RECUPERAÇÃO DE DATA NO AGRUPAMENTO DE OV DO RE

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

Palavras Chave:

RECUPERAÇÃO DATA CONVERSÃO AGRUPAMENTO OV RE

 

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

Objetos da nota:

FUNC /PWS/ZYCE_AGRUPA_OV_RE

REPS /PWS/LZYCEGF6F01

 

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

Modificações efetuadas em FUNC /PWS/ZYCE_AGRUPA_OV_RE

 

...

                  itab_zycet002-bukrs

             CHANGING

                  v_waersa.

      PERFORM busca_taxa_cambio_valor_dse

            USING

                  itab_zycet002-bukrs

            CHANGING

                 v_kurst_dse.

      PERFORM busca_data_conversao

            USING

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

                  itab_zycet002-bukrs

* << Fim da exclusão

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

                 itab_zycet002

* << Fim da inclusão

            CHANGING

                 v_vbrk-fkdat.

    LOOP AT itab_zycet118_aux1.

      v_index = sy-tabix.

      itab_zycet118_aux1-preuni = itab_zycet118_aux1-netpr /

                                  itab_zycet118_aux1-fkimg.

      itab_zycet118_aux1-preunifob = itab_zycet118_aux1-vfob /

                                     itab_zycet118_aux1-fkimg.

      READ TABLE itab_vbrk WITH KEY vbeln_vf =

                                     itab_zycet118_aux1-vbeln_vf.

...

 

 

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

Modificações efetuadas em REPS /PWS/LZYCEGF6F01

 

...

    p_kurst_dse TYPE  /pws/zycet312-kurst_dse.

  SELECT SINGLE kurst_dse

      FROM /pws/zycet312

      INTO p_kurst_dse.

  IF sy-subrc <> 0.

    CLEAR p_kurst_dse.

  ENDIF.

ENDFORM.

FORM busca_data_conversao

     USING

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

       p_bukrs       TYPE /pws/zycee001-bukrs

* << Fim da exclusão

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

       item_embarque TYPE /pws/zycet002

* << Fim da inclusão

     CHANGING

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

       p_vbrk-fkdat  TYPE vbrk-fkdat.

* << Fim da exclusão

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

       p_data        TYPE datum.

  IF NOT item_embarque-vbeln_vf IS INITIAL.

* << Fim da inclusão

  SELECT SINGLE fkdat

      FROM vbrk

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

      INTO p_vbrk-fkdat

      WHERE bukrs = p_bukrs.

* << Fim da exclusão

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

        INTO p_data

        WHERE vbeln = item_embarque-vbeln_vf.

    EXIT.

  ENDIF.

  IF NOT item_embarque-vbeln_vl IS INITIAL.

    SELECT SINGLE bldat

      FROM likp

      INTO p_data

      WHERE vbeln = item_embarque-vbeln_vl.

    EXIT.

  ENDIF.

  IF NOT item_embarque-vbeln_va IS INITIAL.

    SELECT SINGLE prsdt

      FROM vbkd

      INTO p_data

      WHERE vbeln = item_embarque-vbeln_va.

  ENDIF.

* << Fim da inclusão

ENDFORM.

FORM seleciona_dados_nvre USING tipo.

  READ TABLE itab_zycet002a INDEX 1.

  SELECT * FROM /pws/zycit282 INTO TABLE itab_zycit282a

    FOR ALL ENTRIES IN itab_zycet118a

    WHERE   vbeln_va EQ itab_zycet118a-vbeln_va AND

            aupos    EQ itab_zycet118a-aupos    AND

            vbeln_vl EQ itab_zycet118a-vbeln_vl AND

            posnl    EQ itab_zycet118a-posnl    AND

            nrseqexp EQ itab_zycet002a-nrseq.

...