CE PLUS - Nota 004900
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 03/10/2007 00:00:00
Data/Hora Última Alteração: 01/03/2010 17:47:36
Descrição da Nota: PREENCHIMENTO DO VALOR DO SEGURO DE IMPORTAÇÃO NO ATO CONCESSÓRIO
Sintoma
O programa não está permitindo o preenchimento do valor do seguro total de importação.
Solução
O programa foi atualizado para receber tanto valores totais quanto percentuais.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04900 Data: 03/10/2007 Hora: 16:49:11
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04900
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
PREENCHIMENTO DO VALOR DO SEGURO DE IMPORTAÇÃO NO ATO CONCESSÓRIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ATO CONCESSÓRIO SEGURO IMPORTAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
( /pws/zycie245-netpr_t / itab_zycit245-qtd_tot ).
itab_zycit245-netpr_t = /pws/zycie245-netpr_t.
ELSE.
itab_zycit245-netpr_t =
( itab_zycit245-netpr * itab_zycit245-qtd_tot ).
ENDIF.
IF NOT itab_zycit245-pctseg IS INITIAL.
itab_zycit245-vl_seg_t =
( ( ( itab_zycit245-netpr + itab_zycit245-vl_frete )
* itab_zycit245-pctseg ) / 100 ) * itab_zycit245-qtd_tot.
* >> Início da exclusão: FORM FILL_ITAB_ZYCIT245_NG2
ELSE.
CLEAR itab_zycit245-vl_seg_t.
* << Fim da exclusão
ENDIF.
MODIFY itab_zycit245 INDEX tc_cimp2-current_line.
ENDIF.
PERFORM carrega_umncm_imp USING itab_zycit245-j_1bnbm
itab_zycit245-codcomp
CHANGING v_um_basica
v_um_rez
v_um_ren
v_umncm.
IF /pws/zycie247-um_ncm IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040O01
...
READ TABLE itab_zycit245 INDEX tc_cimp2-current_line.
screen-input = 1.
MODIFY SCREEN.
ELSEIF /pws/zycit321-c_comum EQ 'X'.
screen-input = 1.
ELSE.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE TRATA_SCREEN_0203
IF screen-name EQ '/PWS/ZYCIE245-VL_SEG_T'.
IF NOT /PWS/ZYCIE245-PCTSEG IS INITIAL.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
ENDLOOP.
IF /pws/zycie244-tipo NE 'G' AND /pws/zycie244-tipo NE 'F'.
SELECT maktx UP TO 1 ROWS FROM makt INTO v_descrit_0203
WHERE matnr = /pws/zycie245-codcomp
AND spras = sy-langu.
ENDSELECT.
IF /pws/zycie245-maktx IS INITIAL AND
NOT v_descrit_0203 IS INITIAL.
READ TABLE itab_zycit245 INDEX tc_cimp2-current_line.
IF sy-subrc EQ 0.
...