CE PLUS - Nota 008933
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 01/09/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:20:29
Descrição da Nota: FRETE E SEGURO DE ACORDO COM INCOTERM NA NACION. ADMISS. TEMP.
Sintoma
Ajustado programa de nota para montar os valores de custo de FRETE INTERNACIONAL e SEGURO no
embarque de nacionalização de admissão temporaria de acordo com o Incoterm utilizado.
Solução
Ajustado programa de nota para montar os valores de custo de FRETE INTERNACIONAL e SEGURO no
embarque de nacionalização de admissão temporaria de acordo com o Incoterm utilizado.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08933 Data: 01/09/2009 Hora: 15:18:49
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08933
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06979 - 00001 - 7.0 - 00006 - AJUSTES FRETE INTERNACIONAL E SEGURO PARA EMBARQUES DE REGIME 16
----------------------------------------------------------------------------------------------------
FRETE E SEGURO DE ACORDO COM INCOTERM NA NACION. ADMISS. TEMP.
----------------------------------------------------------------------------------------------------
Palavras Chave:
FRETE - SEGURO - INCOTERM - EMBARQUE - NACIONALIZAÇÃO - ADMISSÃO
TEMPOREARIA - /PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
IF itab_zycit036-codigo = 'SEGURO' OR
itab_zycit036-codigo = 'FRETEI'.
SELECT SINGLE * FROM tcurx WHERE currkey = itab_zycit036-waers_real.
IF sy-subrc <> 0.
tcurx-currdec = 2.
ENDIF.
itab_zycit036-vlreal =
itab_zycit036-vlreal * ( 10 ** ( tcurx-currdec - 2 ) ).
ENDIF.
itab_zycit036-nrseqori = itab_zycit042-docnum.
* >> Início da exclusão: FORM CONGELA_DESPESA
IF /pws/zycit001-regime = '16'.
* << Fim da exclusão
* >> Início da inclusão: FORM CONGELA_DESPESA
IF /pws/zycit001-regime = '16' or /pws/zycit001-regime = '13' .
* << Fim da inclusão
CLEAR itab_zycit036-vlmov.
IF itab_zycit036-codigo = 'SEGURO' OR
itab_zycit036-codigo = 'FRETEI'.
itab_zycit036-vlmov = itab_zycit036-vlreal.
itab_zycit036-waers_mov = /pws/zycbt007-waersb.
IF itab_zycit036-waers_real NE /pws/zycbt007-waersb.
CASE itab_zycit036-codigo.
WHEN 'SEGURO'.
* >> Início da inclusão: FORM CONGELA_DESPESA
IF /pws/zycit031-inco1_ci EQ 'C&F' OR
/pws/zycit031-inco1_ci EQ 'FOB'.
* << Fim da inclusão
itab_zycit036-vlmov = itab_zycit036-vlmov *
/pws/zycit085-ukursseg.
* >> Início da inclusão: FORM CONGELA_DESPESA
ENDIF.
* << Fim da inclusão
WHEN 'FRETEI'.
* >> Início da inclusão: FORM CONGELA_DESPESA
IF /pws/zycit031-inco1_ci EQ 'FOB'.
* << Fim da inclusão
itab_zycit036-vlmov = itab_zycit036-vlmov *
/pws/zycit085-ukursfre.
* >> Início da inclusão: FORM CONGELA_DESPESA
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDIF.
ENDIF.
itab_zycit036-congelamov = 'X'.
ENDIF.
APPEND itab_zycit036 TO itab_zycit036_s.
ENDLOOP.
MODIFY /pws/zycit036 FROM TABLE itab_zycit036_s.
itab_zycit036-nrseqori = itab_zycit042-docnum.
MODIFY /pws/zycit036 FROM TABLE itab_zycit036_plan.
...