CE PLUS - Nota 007700
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 03/12/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:58:57
Descrição da Nota: SEGURO EMBARQUE NACIONALIZAÇÃO PROPORCIONAL A QUANTIDADE NACIONALIZADA
Sintoma
Realizado ajuste no programa de DI para quando o embarque for de nacionalização e não houver
percentual de seguro preenchido na tabela /pws/zycit000 o programa DI busque o valor de seguro da DA
proporcional a quantidade que está sendo nacionalizada pelo embarque.
Solução
Realizado ajuste no programa de DI para quando o embarque for de nacionalizão e não houver
percentual de seguro preenchido na tabela /pws/zycit000 o programa DI busque o valor de seguro da DA
proporcional a quantidade que está sendo nacionalizada pelo embarque.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07700 Data: 03/12/2008 Hora: 11:22:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07700
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06440 - 00001 - 7.0 - 00005 - DESENVOLVIMENTO DE FUNCIONALIDADE DE RETIFICAÇÃO DA DI
----------------------------------------------------------------------------------------------------
SEGURO EMBARQUE NACIONALIZAÇÃO PROPORCIONAL A QUANTIDADE NACIONALIZADA
----------------------------------------------------------------------------------------------------
Palavras Chave:
SEGURO - PROPORCIONAL - QUANTIDADE - NACIONALIZAÇÃO - EMBARQUE - DI
/PWS/SAPMZYCI023
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
FORM load_init.
DATA v_retif TYPE /pws/zycit487-retif.
* >> Início da inclusão: FORM LOAD_INIT
DATA: itab_zycit443 TYPE /pws/zycit443 OCCURS 0 WITH HEADER LINE,
wa_zycit442 TYPE /pws/zycit442.
IF sy-tcode EQ '/PWS/ZYCI023_C' AND
/pws/zycit001-modalidade EQ '01' AND
/pws/zycit001-regime EQ '14' AND
NOT itab_zycit003[] IS INITIAL AND
/pws/zycit000-per_seg IS INITIAL.
SELECT * FROM /pws/zycit443 INTO TABLE itab_zycit443
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseqda EQ itab_zycit003-nrseqda
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
READ TABLE itab_zycit443 INDEX 1.
SELECT SINGLE * FROM /pws/zycit442 INTO wa_zycit442
WHERE nrseqda EQ itab_zycit443-nrseqda.
IF sy-subrc EQ 0.
/pws/zycie085-waersseg = wa_zycit442-waersseg.
/pws/zycie085-per_seg = wa_zycit442-per_seg.
ENDIF.
LOOP AT itab_zycit443.
READ TABLE itab_zycit003
WITH KEY ebeln = itab_zycit443-ebeln
ebelp = itab_zycit443-ebelp.
itab_zycit443-vlseg =
( itab_zycit443-vlseg / wa_zycit442-ukursseg ) *
( itab_zycit003-qtd_iten / itab_zycit443-qtd_iten ).
ADD itab_zycit443-vlseg TO /pws/zycie085-vlseg.
ENDLOOP.
ENDIF.
* << Fim da inclusão
PERFORM: load_cnpj USING /pws/zycie085-j_1bbranch
/pws/zycie085-bukrs
CHANGING s_cnpj,
load_frwa,
load_sewa,
load_pais USING /pws/zycie085-land CHANGING s_ppais s_pdesc,
load_urf,
load_tra,
load_reca,
load_seto,
...