CE PLUS - Nota 010676
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 21/10/2010 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:58:05
Descrição da Nota: DI NÃO CALCULA OS VALORES DE ITENS DE PEDIDO NA MOEDA INTERNA
Sintoma
Ao criar a DI de um processo que possua item na moeda interna o programa não preenche os valores no
detalhe do item e não efetua o calculo dos impostos.
Solução
Ajustado programa para preencher o campo de taxa do item com 1 quando a moeda utilizada for a mesma
que a moeda interna.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10676 Data: 21/10/2010 Hora: 10:04:50
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10676
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00005
Agrupamento : 00044
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02971 - 00001 - 6.0 - 00026 - NECESSÁRIO ORDENAR ITENS DA DI DE ACORDO COM NCM X ADIÇÃO.
03477 - 00002 - 7.0 - 00001 - TAXA DE CONVERSÃO PARA MOEDA LOCAL NA DI/DA
10673 - 00003 - 8.0 - 00005 - AO CRIAR AS ADIÇÕES DA DI,NÃO LEVA DADOS DA PASTA CÂMBIO AUTOMATI
----------------------------------------------------------------------------------------------------
DI NÃO CALCULA OS VALORES DE ITENS DE PEDIDO NA MOEDA INTERNA
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - VALORES - MOEDA - INTERNA - CONVERSÃO - IMPOSTOS
/PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
FORM refresh_all.
* >> Início da inclusão: FORM REFRESH_ALL
IF wa_zycbt007-bukrs NE /pws/zycie085-bukrs.
SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007
WHERE bukrs EQ /pws/zycie085-bukrs.
ENDIF.
* << Fim da inclusão
IF v_dit = 'N'.
IF /pws/zycie085-mdadicao EQ 'S'.
PERFORM: taxa_converte USING /pws/zycie085-waersfob
/pws/zycie085-dttax
CHANGING /pws/zycie085-ukursfob,
load_fbvl,
fill_mdadicao.
ELSE.
* >> Início da exclusão: FORM REFRESH_ALL
LOOP AT itab_it WHERE NOT waersbem IS initial AND
waersbem NE wa_zycbt007-waersb.
* << Fim da exclusão
* >> Início da inclusão: FORM REFRESH_ALL
LOOP AT itab_it WHERE NOT waersbem IS initial.
* << Fim da inclusão
v_idx = sy-tabix.
PERFORM: taxa_converte USING itab_it-waersbem
/pws/zycie085-dttax
CHANGING itab_it-dttaxbem.
MODIFY itab_it INDEX v_idx TRANSPORTING dttaxbem.
ENDLOOP.
* >> Início da exclusão: FORM REFRESH_ALL
ENDIF.
IF wa_zycbt007 IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt007 INTO wa_zycbt007
WHERE bukrs EQ /pws/zycie085-bukrs.
* << Fim da exclusão
ENDIF.
IF NOT /pws/zycie093-waersfre IS INITIAL.
PERFORM: taxa_converte USING /pws/zycie093-waersfre
/pws/zycie085-dttax
CHANGING /pws/zycie085-ukursfre,
load_coll.
ENDIF.
IF NOT /pws/zycie085-waersseg IS INITIAL.
PERFORM: taxa_converte USING /pws/zycie085-waersseg
/pws/zycie085-dttax
...
...
DESCRIBE TABLE itab_zycit116 LINES v_ipa.
PERFORM fill_taxasiscomex USING v_ipa.
PERFORM fill_antidumping.
PERFORM calc_itab.
IF NOT itab_it[] IS INITIAL.
PERFORM adic_list.
CLEAR v_pos.
LOOP AT it_alist.
v_pos = v_pos + 1.
PERFORM: adic_change,
* >> Início da inclusão: FORM REFRESH_ALL
load_cambio using it_alist-ebeln it_alist-ebelp,
* << Fim da inclusão
adic_load,
calc_itab_adic,
save_adic.
ENDLOOP.
ENDIF.
ELSE.
IF NOT /pws/zycie093-waersfre IS INITIAL.
PERFORM: taxa_converte USING /pws/zycie093-waersfre
/pws/zycie085-dttax
CHANGING /pws/zycie085-ukursfre,
load_frvl.
ENDIF.
IF NOT /pws/zycie085-waersseg IS INITIAL.
PERFORM: taxa_converte USING /pws/zycie085-waersseg
/pws/zycie085-dttax
CHANGING /pws/zycie085-ukursseg,
load_sgvl.
ENDIF.
* >> Início da exclusão: FORM REFRESH_ALL
LOOP AT itab_it WHERE NOT waersbem IS initial AND
waersbem NE wa_zycbt007-waersb.
* << Fim da exclusão
* >> Início da inclusão: FORM REFRESH_ALL
LOOP AT itab_it WHERE NOT waersbem IS initial.
* << Fim da inclusão
PERFORM: taxa_converte USING itab_it-waersbem /pws/zycie085-dttax
CHANGING itab_it-dttaxbem.
MODIFY itab_it INDEX sy-tabix TRANSPORTING dttaxbem.
ENDLOOP.
PERFORM calc_itab.
ENDIF.
PERFORM propoe_banco.
ENDFORM.
...