CE PLUS - Nota 014139
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 14/08/2014 00:00:00
Data/Hora Última Alteração: 25/08/2014 13:47:21
Descrição da Nota: NÃO LEVA VALOR CORRETO NA PASTA CÂMBIO DA DI
Sintoma
Não leva valor correto na Pasta Câmbio da DI
Solução
Corrigir cálculo de valores
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 14139 Data: 14/08/2014 Hora: 17:24:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 14139
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00008
Agrupamento : 00174
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06715 - 00001 - 7.0 - 00005 - VALORES DE ACRÉSCIMO E DEDUÇÃO DE DESPESAS ESTÃO INCORRETOS NA AD
08231 - 00002 - 7.0 - 00009 - AJUSTE NO CALCULO DO VALOR DA MERCADORIA PARA CONFORME FEITO NA F
08788 - 00003 - 7.0 - 00010 - NA DI ESTÁ CONSIDERANDO O VALOR DO SEGURO EM DUPLICIDADE NAS ADIÇ
11471 - 00004 - 8.0 - 00009 - DESENVOLVIMENTO PARA TRATAMENTO NOVO INCOTERM C+I
12153 - 00005 - 8.0 - 00011 - LEVA VALOR DE PARCELA QUANDO O PAGAMENTO É À VISTA
12627 - 00006 - 9.0 - 00002 - ERRO NO VALOR TOTAL DA PASTA CÂMBIO
12636 - 00007 - 9.0 - 00002 - ADIÇÃO/MERCADORIA/2, ERRO NOS CAMPOS: VALOR TOTAL E UNITÁRIO
12657 - 00008 - 9.0 - 00002 - ADIÇÃO/MERCADORIA/2, ERRO NO CAMPO VALOR TOTAL
13844 - 00009 - 9.0 - 00007 - TRAZER O CAMPO BANCO DA FATURA DE CÂMBIO
----------------------------------------------------------------------------------------------------
NÃO LEVA VALOR CORRETO NA PASTA CÂMBIO DA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - PASTA CÂMBIO - VALOR FATURA - VALOR TOTAL
FRETE EM TERRITÓRIO NACIONAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI023 0322
REPS /PWS/MZYCI023X01
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F05
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0322
O Download das telas encontra-se disponível no link abaixo
http://produtos.sondait.com.br/home/PW.CE/Notas/
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023X01
...
* >> Início da inclusão:
DATA: a_vlrtotit LIKE t_icms.
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
FORM adic_load.
* >> Início da inclusão: FORM ADIC_LOAD
CLEAR a_vlrtotit .
* << Fim da inclusão
...
...
IF NOT itab_it-qtd_iten IS INITIAL.
CASE s_inco1_ci.
WHEN 'C&F'.
itab_it-vlreal_aux2 =
( ( ( itab_it-vlreal * itab_it-qtd_itenc3 ) +
itab_it-vldiffob + itab_it-vlfre_me ) / itab_it-qtd_itenc3 ) -
( itab_it-frn / itab_it-qtd_itenc3 ) .
WHEN 'CIF'.
itab_it-vlreal_aux2 =
( ( ( itab_it-vlreal * itab_it-qtd_itenc3 ) +
* >> Início da exclusão: FORM ADIC_LOAD
itab_it-vldiffob + itab_it-vlfre_me )
/ itab_it-qtd_itenc3 ).
* << Fim da exclusão
* >> Início da inclusão: FORM ADIC_LOAD
itab_it-vldiffob + itab_it-vlfre_me ) / itab_it-qtd_itenc3 ) -
( itab_it-frn / itab_it-qtd_itenc3 ) .
* << Fim da inclusão
WHEN 'FOB'.
itab_it-vlreal_aux2 = itab_it-vlreal -
( itab_it-frn / itab_it-qtd_itenc3 ) .
WHEN 'C+I'.
itab_it-vlreal_aux2 = itab_it-vlreal .
ENDCASE.
ENDIF.
APPEND itab_it TO itab_itb.
IF itab_it-qtd_itend IS INITIAL.
v_itad_plan = v_itad_plan + itab_it-netpr * itab_it-qtd_itenc3.
...
...
ENDIF.
IF itab_it-qtd_itend IS INITIAL.
v_ttad_plan = v_ttad_plan + itab_it-netpr * itab_it-qtd_itenc3.
v_ttad_real = v_ttad_real + itab_it-vlreal * itab_it-qtd_itenc3.
ELSE.
v_ttad_plan = v_ttad_plan + itab_it-netpr * itab_it-qtd_itendc3.
v_ttad_real = v_ttad_real + itab_it-vlreal * itab_it-qtd_itendc3.
ENDIF.
ENDLOOP.
LOOP AT itab_itb.
* >> Início da exclusão: FORM ADIC_LOAD
a_vlrtot = a_vlrtot + ( itab_itb-qtd_iten * itab_itb-vlreal_aux2 ).
* << Fim da exclusão
* >> Início da inclusão: FORM ADIC_LOAD
a_vlrtotit = a_vlrtotit +
( itab_itb-qtd_iten * itab_itb-vlreal_aux2 ).
a_vlrtot = a_vlrtot +
( ( itab_itb-qtd_iten * itab_itb-vlreal_aux2 )
+ itab_itb-frn ).
* << Fim da inclusão
a_vladu = a_vladu + itab_itb-vlmerc_ad.
a_vmler = a_vladu * itab_itb-dttaxbem.
a_qtdeest = a_qtdeest + itab_itb-qtdeumest.
a_uqtde = a_uqtde + itab_itb-unit_qtde.
a_adbase = a_adbase + itab_itb-baseantid.
LOOP AT itab_zycit115 WHERE nrseq = itab_itb-nrseq AND
ebeln = itab_itb-ebeln AND
ebelp = itab_itb-ebelp.
APPEND itab_zycit115 TO itab_zycit115b.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
...
FROM /pws/zycbt031
UP TO 1 ROWS
WHERE nrcorresp = /pws/zycbt117-nrseq
AND mdcorresp = 'IA'.
ENDSELECT.
SELECT * FROM /pws/zycbt115
UP TO 1 ROWS
WHERE nrcorrep = /pws/zycbt117-nrfinanc.
ENDSELECT.
ENDIF.
* >> Início da inclusão: FORM SEM_PAG_ANTEC
IF NOT /pws/zycbt048 IS INITIAL .
* << Fim da inclusão
IF /pws/zycbt117-waers NE wa_zycbt007-waersb.
itab_zycit121-moedanac = 'N'.
ELSE.
itab_zycit121-moedanac = 'S'.
ENDIF.
itab_zycit121-mandt = sy-mandt.
itab_zycit121-nrseqdi = /pws/zycie085-nrseqdi.
itab_zycit121-adicao = wa_it-adicao.
itab_zycit121-banco = /pws/zycbt048-instituicao.
itab_zycit121-praca = /pws/zycbt048-praca+1(4).
itab_zycit121-contrato = /pws/zycbt048-nrcontr .
itab_zycit121-valor =
itab_zycit263-qtd_iten * itab_zycit263-vlreal.
itab_zycit121-waers = /pws/zycbt117-waers.
itab_zycit121-tipo = 'V'.
COLLECT itab_zycit121.
* >> Início da inclusão: FORM SEM_PAG_ANTEC
ENDIF.
* << Fim da inclusão
ENDIF.
IF v_tipo = '1'.
SELECT *
FROM /pws/zycbt064
UP TO 1 ROWS
WHERE nrchave = /pws/zycbt117-nrseq
AND mdcorresp = 'IA'.
ENDSELECT.
IF sy-subrc EQ 0.
SELECT *
...