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