CE PLUS - Nota 004914
Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Registro de Exportação (RE)
Data/Hora da Publicação: 05/10/2007 00:00:00
Data/Hora Última Alteração: 04/03/2010 11:15:08
Descrição da Nota: ALTERAÇÃO NA FUNÇÃO AGRUPA ORDENS EM RE
Sintoma
DUMP momento da criação do RE.
Solução
Alteração na função Agrupa Ordens em RE (/PWS/ZYCE_AGRUPA_OV_RE) e no grupo de funções
(/PWS/ZYCEGF6), remapeamento de onde a função busca a moeda americana, a categoria taxa câmbio para
valor limite e da Data da conversão conforme especificação.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04914 Data: 05/10/2007 Hora: 10:15:52
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04914
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00003
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
ALTERAÇÃO NA FUNÇÃO AGRUPA ORDENS EM RE
----------------------------------------------------------------------------------------------------
Palavras Chave:
REMAPEAMENTO DE ONDE A FUNÇÃO BUSCA A MOEDA AMERICANA, A CATEGORIA
TAXA CÂMBIO PARA VALOR LIMITE E DA DATA DA CONVERSÃO.
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCE_AGRUPA_OV_RE
REPS /PWS/LZYCEGF6F01
REPS /PWS/LZYCEGF6TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_AGRUPA_OV_RE
...
itab_docfat-vbeln_vf.
APPEND itab_docfat.
ENDIF.
ENDLOOP.
DELETE ADJACENT DUPLICATES FROM itab_docfat COMPARING vbeln_vf.
IF NOT itab_docfat[] IS INITIAL.
SELECT vbeln fkdat FROM vbrk INTO TABLE itab_vbrk
FOR ALL ENTRIES IN itab_docfat
WHERE vbeln = itab_docfat-vbeln_vf.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCE_AGRUPA_OV_RE
PERFORM busca_moeda_americana
USING
/pws/zycee001-bukrs
CHANGING
v_waersa.
PERFORM busca_taxa_cambio_valor_dse
USING
/pws/zycee001-bukrs
CHANGING
v_kurst_dse.
PERFORM busca_data_conversao
USING
/pws/zycee001-bukrs
CHANGING
v_vbrk-fkdat.
* << Fim da inclusão
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.
IF sy-subrc = 0.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_AGRUPA_OV_RE
IF itab_zycet118_aux1-waers NE 'USD'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCE_AGRUPA_OV_RE
IF itab_zycet118_aux1-waers NE v_waersa.
* << Fim da inclusão
PERFORM busca_taxa USING '1'
itab_zycet118_aux1-waers
* >> Início da exclusão: FUNCTION /PWS/ZYCE_AGRUPA_OV_RE
'USD'
'G'
itab_vbrk-fkdat
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCE_AGRUPA_OV_RE
v_waersa
v_kurst_dse
v_vbrk-fkdat
* << Fim da inclusão
CHANGING v_montante
v_taxa.
IF sy-subrc = 0.
itab_zycet118_aux1-preuni = itab_zycet118_aux1-preuni *
v_taxa.
ENDIF.
ENDIF.
ENDIF.
MODIFY itab_zycet118_aux1 INDEX v_index.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCEGF6F01
...
ENDFORM.
FORM preenche_cnpj_nao_formatado
USING
cnpj_formatado TYPE c
CHANGING
cnpj_nao_formatado TYPE c.
cnpj_nao_formatado = cnpj_formatado.
TRANSLATE cnpj_nao_formatado USING '/ - . '.
CONDENSE cnpj_nao_formatado NO-GAPS.
ENDFORM.
* >> Início da inclusão:
FORM busca_moeda_americana
USING
p_bukrs TYPE /pws/zycee001-bukrs
CHANGING
p_waersa TYPE /pws/zycbt007-waersa.
SELECT SINGLE waersa
FROM /pws/zycbt007
INTO p_waersa
WHERE bukrs = p_bukrs.
IF sy-subrc <> 0.
CLEAR p_waersa.
ENDIF.
ENDFORM.
FORM busca_taxa_cambio_valor_dse
USING
p_bukrs TYPE /pws/zycee001-bukrs
CHANGING
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
p_bukrs TYPE /pws/zycee001-bukrs
CHANGING
p_vbrk-fkdat TYPE vbrk-fkdat.
SELECT SINGLE fkdat
FROM vbrk
INTO p_vbrk-fkdat
WHERE bukrs = p_bukrs.
IF p_vbrk-fkdat IS INITIAL.
MOVE: p_likp-wadat TO p_vbrk-fkdat.
ENDIF.
IF p_likp-wadat IS INITIAL.
MOVE: p_vbkd-prsdt TO p_vbrk-fkdat.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCEGF6TOP
...
v_brgewtot LIKE /pws/zycet002-brgew,
v_fob LIKE /pws/zycet008-vlme,
v_fob2 LIKE /pws/zycet008-vlme,
v_comissao LIKE /pws/zycet008-vlme,
v_nrseq LIKE /pws/zycet001-nrseq,
v_index1 LIKE sy-tabix,
v_qtd(18) TYPE c,
v_qtfki(17) TYPE c,
v_volum(15) TYPE c,
v_taxa LIKE tcurr-ukurs,
* >> Início da inclusão:
v_waersa TYPE /pws/zycbt007-waersa,
v_kurst_dse TYPE /pws/zycet312-kurst_dse,
v_vbrk-fkdat TYPE vbrk-fkdat,
p_likp-wadat TYPE likp-wadat,
p_vbkd-prsdt TYPE vbkd-prsdt,
* << Fim da inclusão
itemdesc TYPE p DECIMALS 4,
itemdesp TYPE p DECIMALS 4,
itemfre TYPE p DECIMALS 4,
itemseg TYPE p DECIMALS 4,
itemacre TYPE p DECIMALS 4,
itemcomi TYPE p DECIMALS 4,
itemdesc_t TYPE p DECIMALS 4,
itemdesp_t TYPE p DECIMALS 4,
itemfre_t TYPE p DECIMALS 4,
itemseg_t TYPE p DECIMALS 4,
...