CE PLUS - Nota 002505
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Frete Internacional
Data/Hora da Publicação: 23/11/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:42:37
Descrição da Nota: EM FATURA JPY APÓS A CRIAÇÃO DA DI, OS VALORES ESTÃO DIVIDIDOS POR 100.
Sintoma
Quando eu crio uma fatura de Frete em yen (JPY) após a criação da DI, o sistema divide a taxa de
conversão JPY - BRL por cem, como se estivesse buscando essa taxa da OB08, onde existe o fator de
100 para as conversões nessa moeda, trazendo conseqüentemente todos os valores dependentes dessa
conversão dividos também por 100. As faturas livres de débito estão sumindo.
Solução
Tratar taxa da DI. tratar fatura livre de débito.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02505 Data: 23/11/2006 Hora: 17:14:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02505
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00141
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
EM FATURA JPY APÓS A CRIAÇÃO DA DI, OS VALORES ESTÃO DIVIDIDOS POR 100.
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA DE FRETE - FATURA - JPY - CRIAÇÃO DA DI - LIVRE DE DÉBITO
FATURA TIPO A SOMEM - FATURA LIVRE DE DÉBITO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
REPS /PWS/MZYCI003O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
PERFORM clear_date_batch.
ENDFORM.
FORM get_parameters_f-43_f-02.
DATA: v_index TYPE i,
v_forn(10) TYPE c.
* >> Início da inclusão: FORM GET_PARAMETERS_F-43_F-02
DATA: v_de LIKE tcurf-ffact,
v_para LIKE tcurf-tfact.
* << Fim da inclusão
PERFORM clear_date_batch.
IF /pws/zycie006-frpagto = 'N' AND ( /pws/zycie006-tpfatura = '01'
OR /pws/zycie006-tpfatura = '11' ).
v_codeven = '001N'.
ELSEIF /pws/zycie006-frpagto = 'N' AND /pws/zycie006-tpfatura = '02'.
...
...
WHERE nrseq EQ itab_zycit003-nrseq
AND gsber NE ' '.
ENDSELECT.
IF /pws/zycit085 IS INITIAL .
PERFORM busca_taxa_dia.
* >> Início da inclusão: FORM GET_PARAMETERS_F-43_F-02
ELSE.
IF /pws/zycie006-tpfatura EQ '02' AND
NOT /pws/zycit085-ukursfre IS INITIAL AND
/pws/zycie006-frpagto EQ 'P'.
IF /pws/zycit000-kurst IS INITIAL.
v_kurst = 'M'.
ELSE.
v_kurst = /pws/zycit000-kurst.
ENDIF.
SELECT SINGLE ffact tfact
FROM tcurf
INTO (v_de, v_para)
WHERE fcurr = /pws/zycie006-waers AND
tcurr = /pws/zycbt007-waersb AND
gdatu >= sy-datum AND
kurst = v_kurst.
v_kursf = ( /pws/zycit085-ukursfre * v_de ) / v_para.
ELSEIF /pws/zycie006-tpfatura EQ '02' AND
NOT /pws/zycit085-ukursfob IS INITIAL AND
/pws/zycie006-frpagto EQ 'N'.
IF /pws/zycit000-kurst IS INITIAL.
v_kurst = 'M'.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM GET_PARAMETERS_F-43_F-02
IF /pws/zycie006-tpfatura = '02' AND NOT
/pws/zycit085-ukursfre IS INITIAL.
v_kursf = /pws/zycit085-ukursfre.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F-43_F-02
v_kurst = /pws/zycit000-kurst.
ENDIF.
SELECT SINGLE ffact tfact
FROM tcurf
INTO (v_de, v_para)
WHERE fcurr = /pws/zycie006-waers AND
tcurr = /pws/zycbt007-waersb AND
gdatu >= sy-datum AND
kurst = v_kurst.
v_kursf = ( /pws/zycit085-ukursfob * v_de ) / v_para.
* << Fim da inclusão
ELSEIF /pws/zycie006-tpfatura = '03' AND NOT
/pws/zycit085-ukursseg IS INITIAL .
v_kursf = /pws/zycit085-ukursseg.
ELSEIF /pws/zycie006-tpfatura = '11'.
PERFORM busca_taxa_dia.
...
...
v_idx = sy-tabix.
PERFORM gravar_cambio.
ENDLOOP.
ENDIF.
ELSE.
* >> Início da exclusão: FORM ROTINA_DE_CONTABILIZACAO
IF NOT /pws/zycie006-tpfatura EQ '11'
and not /pws/zycie006-belnr_p is initial.
* << Fim da exclusão
* >> Início da inclusão: FORM ROTINA_DE_CONTABILIZACAO
IF NOT /pws/zycie006-tpfatura EQ '11'.
* << Fim da inclusão
IF /pws/zycie006-fhcambio = ' '.
PERFORM gravar_cambio.
ELSEIF /pws/zycie006-fhcambio = 'X'.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003O01