CE PLUS - Nota 013124
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 18/07/2013 00:00:00
Data/Hora Última Alteração: 19/08/2013 16:45:28
Descrição da Nota: NÃO TRATA DESPESAS DE DEDUÇÃO NO VALOR DA MERCADORIA NO INCOTERM DAP/DDU
Sintoma
Não trata despesas de dedução no valor da mercadoria no incoterm DAP/DDU
Solução
Tratar dedução para incoterm DAP/DDU
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13124 Data: 18/07/2013 Hora: 14:39:44
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13124
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 9.0
Pacote : 00005
Agrupamento : 00159
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03830 - 00001 - 7.0 - 00001 - AJUSTES PARA TRANSMISSÃO DE DESPESAS DI
10654 - 00002 - 8.0 - 00005 - VALOR FOB FICA INCORRETO QUANDO POSSUI DESPESA EM JPY
----------------------------------------------------------------------------------------------------
NÃO TRATA DESPESAS DE DEDUÇÃO NO VALOR DA MERCADORIA NO INCOTERM DAP/DDU
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESPESAS - DEDUÇÃO - TRANSMISSÃO SISCOMEX- DI - DAP - DDU
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCI_TRANSFER_DI
REPT /PWS/SAPMZYCI023
REPS /PWS/MZYCI023F04
*Indicada a aplicação da nota 13153
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
FORM soma_despesa_acr.
DATA: v_vldp LIKE itab_zycit049-vldp.
* >> Início da inclusão: FORM SOMA_DESPESA_ACR
DATA: v_tvalbkp TYPE /pws/zycie085-vlfob,
v_fbvrbkp TYPE /pws/zycie085-vlfob .
CLEAR v_msg.
v_tvalbkp = v_tval2.
v_fbvrbkp = s_fbvr .
* >> Fim da inclusão
* >> Início da exclusão: FORM SOMA_DESPESA_ACR
LOOP AT itab_zycit049 WHERE tipo = 'A' AND
vldp > 0.
* >> Fim da exclusão
* >> Início da inclusão: FORM SOMA_DESPESA_ACR
LOOP AT itab_zycit049 WHERE vldp > 0 .
IF itab_zycit049-tipo NA 'DA' .
CONTINUE.
ENDIF.
* >> Fim da inclusão
IF itab_zycit049-tpdesp NE /pws/zycit000-flagfreten.
IF itab_zycit049-waers NE wa_zycbt007-waersb.
PERFORM trata_decimais USING itab_zycit049-waers
CHANGING itab_zycit049-vldp.
ENDIF.
* >> Início da inclusão: FORM SOMA_DESPESA_ACR
IF itab_zycit049-tipo EQ 'D' and s_inco1 eq 'DAP'.
itab_zycit049-vldp = itab_zycit049-vldp * -1.
ENDIF.
* >> Fim da inclusão
IF itab_zycit049-waers NE /pws/zycie085-waersfob.
PERFORM taxa_converte USING /pws/zycie085-waersfob
/pws/zycie085-dttax
CHANGING v_taxa.
IF NOT v_taxa IS INITIAL.
v_tval2 = v_tval2 + ( itab_zycit049-vldp / v_taxa ).
ENDIF.
ELSE.
v_tval2 = v_tval2 + itab_zycit049-vldp.
ENDIF.
* >> Início da inclusão: FORM SOMA_DESPESA_ACR
IF v_tval2 LT 0.
v_msg = 'X' .
ENDIF.
* >> Fim da inclusão
v_desp_acr = v_desp_acr + itab_zycit049-vldp.
"Despesa = BRL > não entra na base do seguro!!!
IF itab_zycit049-waers = wa_zycbt007-waersb.
s_fbvr = s_fbvr + itab_zycit049-vldp.
v_desp_brl = v_desp_brl + itab_zycit049-vldp.
ELSE.
v_vldp = itab_zycit049-vldp.
PERFORM calc_conv_moeda
USING itab_zycit049-waers
wa_zycbt007-waersb
CHANGING v_vldp.
s_fbvr = s_fbvr + v_vldp.
ENDIF.
* >> Início da inclusão: FORM SOMA_DESPESA_ACR
IF s_fbvr LT 0.
v_msg = 'X' .
ENDIF.
* >> Fim da inclusão
IF itab_zycit049-waers EQ 'USD'.
PERFORM load_sevl.
ENDIF.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM SOMA_DESPESA_ACR
IF v_msg EQ 'X'.
MESSAGE i015 WITH text-307 text-295.
v_tval2 = v_tvalbkp .
s_fbvr = v_fbvrbkp .
ENDIF.
* >> Fim da inclusão
ENDFORM. " soma_despesa_acr
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_DI
...
it_049-vlreal_rat = it_039-vlreal.
ELSE.
it_049-divabs = it_039-divabs.
ENDIF.
ENDIF.
ENDIF.
it_049-codigo = it_019-codigo.
it_049-tipo = it_019-tipo.
it_049-tpdesp = it_019-tpdesp.
it_049-coddesp = it_019-coddesp.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
IF it_049-tipo EQ 'A'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
v_valor = it_049-vldp.
IF it_049-tipo EQ 'A' OR it_049-tipo EQ 'D' .
* << Fim da inclusão
IF it_049-tpdesp NE /pws/zycit000-flagfreten.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
IF it_049-tipo EQ 'D' AND s_inco1 EQ 'DAP' .
v_valor = v_valor * -1.
ENDIF.
* << Fim da inclusão
IF it_049-waers NE it_cabecalho_di-waersfob.
IF it_049-waers EQ /pws/zycbt007-waersb.
PERFORM taxa_converte(/pws/sapmzyci023)
USING it_cabecalho_di-waersfob
wa_085-dttax
CHANGING s_tax.
IF NOT s_tax IS INITIAL .
it_cabecalho_di-vlfob = it_cabecalho_di-vlfob +
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
( it_049-vldp / s_tax ) .
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
( v_valor / s_tax ) .
* << Fim da inclusão
ENDIF.
ELSE.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
v_valor = it_049-vldp.
* << Fim da exclusão
PERFORM taxa_converte(/pws/sapmzyci023)
USING it_049-waers
wa_085-dttax
CHANGING s_tax.
v_valor = v_valor * s_tax.
...
...
wa_085-dttax
CHANGING s_tax.
IF NOT s_tax IS INITIAL.
v_valor = v_valor / s_tax.
ENDIF.
it_cabecalho_di-vlfob = it_cabecalho_di-vlfob +
v_valor .
ENDIF.
ELSE.
it_cabecalho_di-vlfob =
* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
it_cabecalho_di-vlfob + it_049-vldp.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI
it_cabecalho_di-vlfob + v_valor.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
IF it_049-waers NE /pws/zycbt007-waersb.
PERFORM taxa_converte(/pws/sapmzyci023)
USING it_049-waers wa_085-dttax
CHANGING s_tax.
it_049-vlreal = it_049-vldp * s_tax.
ELSE.
it_049-vlreal = it_049-vldp.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI023
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 294
Texto: (24 caracteres)
"Negative Aduaneiro Value"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 294
Texto: (25 caracteres)
"Valor Aduaneiro Negativo."
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: EN
Símbolo: 307
Texto: (18 caracteres)
"Negative FOB Value"
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 307
Texto: (19 caracteres)
"Valor FOB negativo."
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: ES
Símbolo: 307
Texto: (19 caracteres)
"Valor FOB negativo."
Comprimento máximo: 19