CE PLUS - Nota 006796
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 18/06/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 13:53:02
Descrição da Nota: REGIME 12 NO EMBARQUE NÃO APARECE A ABA ADIMISSÃO TEMPORÁRIA
Sintoma
Ao escolher Regime aduaneiro Consumo e Admissão Temporária 12, não aparece a aba Admissão Temporária
no Embarque
Solução
Checar para Regime 05 e 12
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06796 Data: 18/06/2008 Hora: 11:45:06
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06796
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00053
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
REGIME 12 NO EMBARQUE NÃO APARECE A ABA ADIMISSÃO TEMPORÁRIA
----------------------------------------------------------------------------------------------------
Palavras Chave:
REGIME - 12 - ADMISSÃO - TEMPORÁRIA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI001F03
REPS /PWS/MZYCI001I01
REPS /PWS/MZYCI023F01
REPS /PWS/ZYCIR337
REPS /PWS/ZYCIR340
REPS /PWS/ZYCIR341
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
IF v_lino EQ 0.
DELETE FROM /pws/zycit036
WHERE nrseq = /pws/zycie001-nrseq.
CLEAR: /pws/zycie001-waers , /pws/zycie000-waers ,
/pws/zycie001-lifnr , /pws/zycie000-lifnr ,
/pws/zycie001-inco1 , wa_zycit001-waers,
wa_zycit001-lifnr, wa_zycit001-inco1.
MODIFY /pws/zycit001 FROM /pws/zycie001.
ENDIF.
IF ( /pws/zycie001-tpdecl EQ 'DI' AND
* >> Início da exclusão: FORM GRAVA_TABELAS
/pws/zycie001-regime EQ '05' ) OR
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
/pws/zycie001-regime EQ '05' OR
/pws/zycie001-regime EQ '12' ) OR
* << Fim da inclusão
( /pws/zycie001-tpdecl EQ 'DSI' AND
/pws/zycie001-regime EQ '09' ).
MOVE: /pws/zycie001-nrseq TO /pws/zycie134-nrseq,
/pws/zycie133-cpf TO /pws/zycie134-cpfproc,
/pws/zycie133a-cpf TO /pws/zycie134-cpfproc2.
MODIFY /pws/zycit134 FROM /pws/zycie134.
IF ts_adm-activetab = 'FC_SD_TR'
OR ts_adm-activetab = 'FC_BX_TR'.
v_qtd_baixa = itab_zycit374-qtd_baixa.
IF ts_adm-activetab = 'FC_SD_TR'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
MODIFY SCREEN.
ENDIF.
IF screen-group2 EQ 'ADM'.
IF /pws/zycie001-tpdecl EQ 'DSI'.
IF /pws/zycie001-regime EQ '09'.
screen-invisible = '0'.
ELSE.
screen-invisible = '1'.
ENDIF.
ELSEIF /pws/zycie001-tpdecl EQ 'DI'.
* >> Início da exclusão: FORM TRATA_SCREEN_0101
IF /pws/zycie001-regime EQ '05'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_SCREEN_0101
IF /pws/zycie001-regime EQ '05' or
/pws/zycie001-regime EQ '12'.
* << Fim da inclusão
screen-invisible = '0'.
ELSE.
screen-invisible = '1'.
ENDIF.
ELSE.
screen-invisible = '1'.
ENDIF.
ENDIF.
IF /pws/zycie001-regime EQ '14' OR /pws/zycie001-regime EQ '16'.
IF screen-group2 EQ 'DA'.
...
...
IF screen-group2 EQ 'ADM'.
IF /pws/zycie001-tpdecl EQ 'DSI'.
IF /pws/zycie001-regime EQ '09'.
screen-invisible = '0'.
MOVE 'X' TO v_flagadm.
ELSE.
screen-invisible = '1'.
MOVE space TO v_flagadm.
ENDIF.
ELSEIF /pws/zycie001-tpdecl EQ 'DI'.
* >> Início da exclusão: FORM TRATA_SCREEN_0101
IF /pws/zycie001-regime EQ '05'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_SCREEN_0101
IF /pws/zycie001-regime EQ '05' OR
/pws/zycie001-regime EQ '12'.
* << Fim da inclusão
screen-invisible = '0'.
MOVE 'X' TO v_flagadm.
ELSE.
screen-invisible = '1'.
MOVE space TO v_flagadm.
ENDIF.
ELSE.
screen-invisible = '1'.
MOVE space TO v_flagadm.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001I01
...
IF sy-subrc NE 0.
MESSAGE w015 WITH text-031.
ELSE.
MOVE /pws/zycie001 TO wa_zycit001.
PERFORM lock_record.
PERFORM recuperando_itens.
PERFORM busca_fornecedores.
IF ( /pws/zycie001-tpdecl EQ 'DSI' AND
/pws/zycie001-regime EQ '09' ) OR
( /pws/zycie001-tpdecl EQ 'DI' AND
* >> Início da exclusão: MODULE USER_COMMAND_0001
/pws/zycie001-regime EQ '05' ).
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0001
/pws/zycie001-regime EQ '05' OR
/pws/zycie001-regime EQ '12' ).
* << Fim da inclusão
SELECT SINGLE *
FROM /pws/zycit134
INTO /pws/zycie134
WHERE nrseq EQ /pws/zycie001-nrseq.
MOVE /pws/zycie134 TO wa_zycit134.
SELECT SINGLE *
FROM /pws/zycit133
INTO /pws/zycie133
WHERE cpf EQ /pws/zycie134-cpfproc.
MOVE /pws/zycie133 TO wa_zycit133.
...
...
MODULE campo_obrigatorio INPUT.
* >> Início da exclusão: MODULE CAMPO_OBRIGATORIO
IF ( /pws/zycie001-tpdecl EQ 'DI' AND /pws/zycie001-regime EQ '05' )
* << Fim da exclusão
* >> Início da inclusão: MODULE CAMPO_OBRIGATORIO
IF ( /pws/zycie001-tpdecl EQ 'DI' AND
( /pws/zycie001-regime EQ '05' OR /pws/zycie001-regime EQ '12' ) )
* << Fim da inclusão
OR
( /pws/zycie001-tpdecl EQ 'DSI' AND /pws/zycie001-regime EQ '09' ).
IF NOT v_flagadm IS INITIAL.
ENDIF.
ENDIF.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
itab_it-basredpis = wa_zycit407-basred .
itab_it-advalpis = wa_zycit407-aliquotas.
ELSE.
itab_it-basredpis = itab_it-advalpis.
CLEAR : itab_it-advalpis,
itab_it-vlpis .
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM FILL_ITABIT
IF itab_zycit001-regime EQ '05' .
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITABIT
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
* << Fim da inclusão
READ TABLE itab_zycit374 WITH KEY
nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0
AND NOT itab_zycit374-tp_vida_util IS INITIAL.
itab_it-advalpis = itab_it-advalpis *
( 1 - ( ( 12 * itab_zycit374-tp_vida_util -
itab_zycit374-tp_perman )
/ ( 12 * itab_zycit374-tp_vida_util ) ) ).
...
...
itab_it-basredcof = wa_zycit407-basred .
itab_it-advalcofins = wa_zycit407-aliquotas.
ELSE.
itab_it-basredcof = itab_it-advalcofins.
CLEAR : itab_it-advalcofins,
itab_it-vlcofins .
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM FILL_ITABIT
IF itab_zycit001-regime EQ '05' .
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITABIT
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
* << Fim da inclusão
READ TABLE itab_zycit374 WITH KEY
nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0
AND NOT itab_zycit374-tp_vida_util IS INITIAL.
itab_it-advalcofins = itab_it-advalcofins *
( 1 - ( ( 12 * itab_zycit374-tp_vida_util -
itab_zycit374-tp_perman )
/ ( 12 * itab_zycit374-tp_vida_util ) ) ).
...
...
IF sy-tcode = '/PWS/ZYCI023_C'.
IF itab_it-codregtriicms IS INITIAL.
IF itab_it-modalidade NE 'I'.
itab_it-codregtriicms = itab_it-codregtri.
ELSE.
itab_it-codregtriicms = '1'.
ENDIF.
ENDIF.
ENDIF .
PERFORM text_item_fill.
* >> Início da exclusão: FORM FILL_ITABIT
IF itab_zycit001-regime EQ '05' .
IF itab_zycit001-regime = '05' AND
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_ITABIT
IF ( itab_zycit001-regime = '05' OR
itab_zycit001-regime = '12' ) AND
* << Fim da inclusão
itab_zycit001-tpdecl = 'DI'.
itab_it-codregtri = '5'.
itab_it-codregtripiscofi = '5'.
itab_it-codregtriipi = '5'.
itab_it-codregtriicms = '5'.
ENDIF.
* >> Início da exclusão: FORM FILL_ITABIT
ENDIF.
* << Fim da exclusão
IF v_sub EQ 0.
...
...
ebelp = itab_it-ebelp.
itab_it-pproc = /pws/zycie100a-pproc = itab_zycit003-paisfab.
ENDIF.
IF itab_it-codregtri IS INITIAL.
itab_it-codregtri = /pws/zycie100a-codregtri = '1'.
ENDIF.
IF /pws/zycie100a-codregtriipi IS INITIAL.
/pws/zycie100a-codregtriipi = '3'.
ENDIF.
IF sy-tcode = '/PWS/ZYCI023_C'.
* >> Início da exclusão: FORM LOAD_DATA_BLITEM
IF itab_zycit001-regime = '05' AND
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_DATA_BLITEM
IF ( itab_zycit001-regime = '05' OR
itab_zycit001-regime = '12' ) AND
* << Fim da inclusão
itab_zycit001-tpdecl = 'DI'.
itab_it-codregtri = '5'.
itab_it-codregtripiscofi = '5'.
itab_it-codregtriipi = '5'.
itab_it-codregtriicms = '5'.
ENDIF.
ENDIF.
MOVE itab_it TO wa_it.
MOVE-CORRESPONDING: itab_it TO /pws/zycie100a,
itab_it TO /pws/zycie003.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR337
...
IF v_cgc_emp = 'X'.
MESSAGE i015 WITH text-035.
EXIT.
ENDIF.
ENDIF.
IF NOT itab_j1bt001wv[] IS INITIAL.
SELECT * FROM /pws/zycit001 INTO TABLE itab_zycit001
FOR ALL ENTRIES IN itab_j1bt001wv
WHERE bukrs = itab_j1bt001wv-bukrs
AND j_1bbranch = itab_j1bt001wv-branch
* >> Início da exclusão: FORM SELECIONA_DADOS
AND regime = '05'. "#EC CI_NOFIELD
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
AND ( regime = '05' OR regime = '12' ). "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
IF NOT itab_zycit001[] IS INITIAL.
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
FOR ALL ENTRIES IN itab_zycit001
WHERE nrseq = itab_zycit001-nrseq."#EC CI_NOFIRST
ENDIF.
IF NOT itab_zycit100[] IS INITIAL.
IF NOT p_des IS INITIAL.
SELECT *
FROM /pws/zycit085
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR340
...
itab_zycit396.
REFRESH: itab_zycit001,itab_zycit085, itab_zycit100, itab_zycit134,
itab_zycit396.
IF NOT itab_j1bt001wv[] IS INITIAL.
SELECT *
FROM /pws/zycit001
INTO TABLE itab_zycit001
FOR ALL ENTRIES IN itab_j1bt001wv
WHERE bukrs = itab_j1bt001wv-bukrs
AND j_1bbranch = itab_j1bt001wv-branch
* >> Início da exclusão: FORM SELECIONA_DADOS
AND regime = '05'. "#EC CI_NOFIELD
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
AND ( regime = '05' OR regime = '12' ) . "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
IF NOT itab_zycit001[] IS INITIAL.
SELECT *
FROM /pws/zycit100
INTO TABLE itab_zycit100
FOR ALL ENTRIES IN itab_zycit001
WHERE nrseq = itab_zycit001-nrseq. "#EC CI_NOFIRST
ENDIF.
IF NOT itab_zycit100[] IS INITIAL.
IF NOT p_des IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR341
...
IF v_cgc_emp = 'X'.
MESSAGE i015 WITH text-007.
EXIT.
ENDIF.
ENDIF.
IF NOT itab_j1bt001wv[] IS INITIAL.
SELECT * FROM /pws/zycit001 INTO TABLE itab_zycit001
FOR ALL ENTRIES IN itab_j1bt001wv
WHERE bukrs = itab_j1bt001wv-bukrs
AND j_1bbranch = itab_j1bt001wv-branch
* >> Início da exclusão: FORM SELECIONA_DADOS
AND regime = '05'. "#EC CI_NOFIELD
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
AND ( regime = '05' OR regime = '12' ) . "#EC CI_NOFIELD
* << Fim da inclusão
ENDIF.
IF NOT itab_zycit001[] IS INITIAL.
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
FOR ALL ENTRIES IN itab_zycit001
WHERE nrseq = itab_zycit001-nrseq."#EC CI_NOFIRST
ENDIF.
IF NOT itab_zycit100[] IS INITIAL.
IF NOT p_des IS INITIAL.
SELECT *
FROM /pws/zycit085
...