CE PLUS - Nota 005068
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 24/10/2007 00:00:00
Data/Hora Última Alteração: 23/11/2010 16:05:52
Descrição da Nota: AJUSTADO O ENVIO DA TAXA DE CONVERSÃO DE MOEDA PARA FATURA CONT. PÓS DI
Sintoma
O programa está lançando a taxa incorreta na fatura de mercadoria quando a contabilização é pós DI
Solução
Atualização do programa de fatura de mercadoria para que o sistema leve corretamente a taxa da moeda
no momento de contabilizar a fatura tipo P.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05068 Data: 24/10/2007 Hora: 13:36:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05068
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00018
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUSTADO O ENVIO DA TAXA DE CONVERSÃO DE MOEDA PARA FATURA CONT. PÓS DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - TAXA - CONVERSÃO - MOEDA - PÓS - DI
/PWS/SAPMZYCI003
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
LOOP AT itab_zycit132 WHERE belnr_p NE space.
v_contabilizou = 'X'.
ENDLOOP.
ENDIF.
ENDFORM.
FORM fill_date_f-43_f-02.
DATA:
v_embarca LIKE /pws/zycit001-embarca,
v_ukurs LIKE /pws/zycit085-ukursfob,
v_fator LIKE tcurr-ffact.
* >> Início da inclusão: FORM FILL_DATE_F-43_F-02
DATA: v_de LIKE tcurf-ffact,
v_para LIKE tcurf-tfact.
* << Fim da inclusão
CALL CUSTOMER-FUNCTION '001'
EXPORTING
/pws/zycie006 = /pws/zycie006
/pws/zycit031 = /pws/zycit031
v_parcela = v_parcela
IMPORTING
v_subrc = v_subrc
TABLES
itab_zycit130 = itab_zycit130
itab_zycit003_aux = itab_zycit003
...
...
IF t001-land1 EQ 'CL' AND /pws/zycie006-tpfatura EQ '02'.
CLEAR itab_zycbe033-kursf.
itab_zycbe033-dmbtr = /pws/zycie006-vlfre_clp .
ELSE.
IF /pws/zycie006-frpagto = 'P'.
IF /pws/zycie006-tpfatura = '01'.
READ TABLE itab_zycit003 INDEX 1.
READ TABLE itab_zycit100 WITH KEY ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
v_ukurs = itab_zycit100-dttaxbem.
* >> Início da inclusão: FORM FILL_DATE_F-43_F-02
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_ukurs = ( v_ukurs * v_de ) / v_para.
* << Fim da inclusão
ELSEIF /pws/zycie006-tpfatura = '02'.
v_ukurs = /pws/zycit085-ukursfre.
ELSEIF /pws/zycie006-tpfatura = '03'.
v_ukurs = /pws/zycit085-ukursseg.
ENDIF.
ELSE.
IF /pws/zycit000-flagtax = 'X'.
CLEAR v_ukurs.
ELSEIF /pws/zycie006-tpfatura = '02' AND
NOT /pws/zycit085-ukursfre IS INITIAL AND
/pws/zycie006-waers = /pws/zycit085-waersfre.
v_ukurs = /pws/zycit085-ukursfre.
ELSEIF /pws/zycie006-tpfatura = '03' AND
NOT /pws/zycit085-ukursseg IS INITIAL AND
/pws/zycie006-waers = /pws/zycit085-waersseg.
v_ukurs = /pws/zycit085-ukursseg.
ELSE.
v_ukurs = v_kursf.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM FILL_DATE_F-43_F-02
DATA: v_de LIKE tcurf-ffact,
v_para LIKE tcurf-tfact.
* << Fim da exclusão
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 = itab_zycbe033-waers AND
tcurr = /pws/zycbt007-waersb AND
...