CE PLUS - Nota 010535
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 26/08/2010 00:00:00
Data/Hora Última Alteração: 03/11/2011 09:14:32
Descrição da Nota: TRATAMENTO DE ADMISSÃO TEMPORÁRIA E CONSUMO NO EMBARQUE
Sintoma
Tratamento de admissão temporária e consumo no embarque
Solução
Criar tratamento de admissão temporária e consumo no embarque
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10535 Data: 26/08/2010 Hora: 14:48:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10535
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00036
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00731 - 00001 - 6.0 - 00022 - PREENCHER O FABRICANTE DE ACORDO COM O INFORMADO NO PEDIDO DE COM
00965 - 00002 - 6.0 - 00022 - FABRICANTE NO PEDIDO DE COMPRAS (EKPO-MFRNR)
01268 - 00003 - 6.0 - 00023 - DESENVOLVIMENTO ENTREPOSTO ADUANEIRO
01282 - 00004 - 6.0 - 00023 - DESEMVOLVIMENTO DA DECLARAÇÃO DE ADMISSÃO (DA)
01761 - 00005 - 6.0 - 00024 - NOTA DE TRADUCAO
03698 - 00006 - 7.0 - 00001 - CAMPO ITEM DO PEDIDO NA LI E EMBARQUE ABERTO, O QUE OCASIONA ERRO
05046 - 00007 - 7.0 - 00003 - NO REGIME 05 ADMISSÃO TEMPORÁRIA O REGIME TRIBUTÁRIO NA DI SERA S
05121 - 00008 - 7.0 - 00003 - CHAMADA DE EXIT NA TELA 0102 - PEDIDO DO EMBARQUE
06796 - 00009 - 7.0 - 00006 - REGIME 12 NO EMBARQUE NÃO APARECE A ABA ADIMISSÃO TEMPORÁRIA
07254 - 00010 - 7.0 - 00006 - TRADUÇÃO DOS ELEMENTOS DO SISTEMA PARA ESPANHOL
07544 - 00011 - 7.0 - 00007 - MELHORIAS DE NAVEGABILIDADE NO EMBARQUE
08057 - 00012 - 7.0 - 00008 - PARAMETRO DE CASAS DECIMAIS PARA RATEIO DO PESO LIQUIDO
08569 - 00013 - 7.0 - 00010 - AO CRIAR DI REGIME 12, NÃO DEVERÁ FECHAR CAMPOS COM SUSPENSÃO.
08624 - 00014 - 7.0 - 00010 - ERRO EM CALCULO DE ADMISSÃO TEMPORÁRIO REGIME 12.
08717 - 00015 - 7.0 - 00010 - TRATAMENTO PARA QUEBRAR ADIÇÃO DA DI POR INCOTERMS DIFERENTE.
08764 - 00016 - 7.0 - 00010 - DESENVOLVIMENTO DO ADITIVO AO ATO CONCESSÓRIO (EXCEL).
08902 - 00017 - 7.0 - 00010 - IMPLEMENTAÇÃO PARA FECHAR CAMPOS APÓS VINCULAR LI NO EMBARQUE
08919 - 00018 - 7.0 - 00010 - TRADUÇÃO CLASSE /PWS/ZYCI (EN)
09937 - 00019 - 8.0 - 00002 - ALTERAR NO EMBARQUE TÍTULO DA COLUNA FORNECEDOR PARA EMISSOR DA F
10064 - 00020 - 8.0 - 00003 - REVISÃO DA TRADUÇÃO IDIOMA INGLES
----------------------------------------------------------------------------------------------------
TRATAMENTO DE ADMISSÃO TEMPORÁRIA E CONSUMO NO EMBARQUE
----------------------------------------------------------------------------------------------------
Palavras Chave:
ADMISSÃO TEMPORÁRIA - CONSUMO - REGIME - EMBARQUE
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI001 0102
REPS /PWS/MZYCI001F01
REPS /PWS/MZYCI001O01
REPS /PWS/MZYCI023X01
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F04
REPS /PWS/MZYCI023O01
TABD /PWS/ZYCIT003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI001 0102
*Ao final da table control criar um checkbox.
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
- /PWS/ZYCIE003-ADM_TEMP
Check 1 37 1 1 1 CHAR X Ent Off
ADM
Botão EntrsPoss.stand., Elem.TC
MODIFICAR CPO. SELEÇÃO(CHECKBOX): /PWS/ZYCIE003-ADM_TEMP
TEXTO: ___________________________
LINHA: 1 COLUNA: 37
COMPR.VIS.: DE: 1 ALTURA: 1
CÓD. FUNÇÃO: ADM
DICIONÁRIO:
FORMATO: CHAR
(X) - DO DICT.
PROGRAMA:
(X) - CAMPO DE ENTRADA
(X) - CAMPO DE SAÍDA
(X) - ENTRS. POSSÍVEIS
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
/pws/zycie001-nrseq TO itab_zycit003-nrseq ,
/pws/zycie013-slqtde TO itab_zycit003-slqtde ,
/pws/zycie003-qtd_itend TO itab_zycit003-qtd_itend ,
/pws/zycie003-dtremessa TO itab_zycit003-dtremessa ,
/pws/zycie003-dtalocprod TO itab_zycit003-dtalocprod ,
/pws/zycie003-dtprovent TO itab_zycit003-dtprovent ,
/pws/zycie003-ntgewd TO itab_zycit003-ntgewd .
MOVE ekpo-idnlf TO itab_zycit003-idnlf.
* >> Início da inclusão: FORM ALTERA_ITAB_ZYCIT003
MOVE /pws/zycie003-adm_temp TO itab_zycit003-adm_temp .
* << Fim da inclusão
"Atualizando itab conforme table-control
MODIFY itab_zycit003 INDEX tc_ped-current_line.
...
...
FORM grava_tabelas.
* >> Início da inclusão: FORM GRAVA_TABELAS
DATA: v_adm_temp.
* << Fim da inclusão
...
IF NOT itab_zycit003-nrseqli IS INITIAL.
SELECT SINGLE * FROM /pws/zycit079
WHERE nrseqli EQ itab_zycit003-nrseqli
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
IF /pws/zycit079-qtd_iten < itab_zycit003-qtd_iten.
v_sair = 'X'.
MESSAGE i015 WITH text-496 text-497.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM GRAVA_TABELAS
IF /pws/zycie001-regime EQ '12'.
IF itab_zycit003-adm_temp EQ 'X' .
v_adm_temp = 'X'.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDLOOP.
* >> Início da inclusão: FORM GRAVA_TABELAS
IF /pws/zycie001-regime EQ '12'
AND v_adm_temp NE 'X'.
MESSAGE i015 WITH text-514 text-515.
EXIT .
ENDIF.
* << Fim da inclusão
IF v_sair = 'X'.
EXIT.
ENDIF.
v_nrseqerro = space.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001O01
...
IF NOT itab_zycit003[] IS INITIAL.
IF itab_zycit374[] IS INITIAL.
SELECT * FROM /pws/zycit374
INTO CORRESPONDING FIELDS OF TABLE itab_zycit374
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq = itab_zycit003-nrseq
AND ebeln = itab_zycit003-ebeln
AND ebelp = itab_zycit003-ebelp.
MOVE itab_zycit003[] TO itab_zycit003_aux1[].
LOOP AT itab_zycit374.
DELETE itab_zycit374 WHERE qtd_iten = space.
DELETE itab_zycit003_aux1 WHERE nrseq = itab_zycit374-nrseq
AND ebeln = itab_zycit374-ebeln
AND ebelp = itab_zycit374-ebelp
AND qtd_iten NE space.
* >> Início da inclusão: MODULE LOAD_ZYCIT374
IF /pws/zycie001-regime EQ '12'.
READ TABLE itab_zycit003_aux1 WITH KEY
nrseq = itab_zycit374-nrseq
ebeln = itab_zycit374-ebeln
ebelp = itab_zycit374-ebelp.
IF sy-subrc EQ 0 AND itab_zycit003_aux1-adm_temp NE 'X'.
DELETE itab_zycit374.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDLOOP.
LOOP AT itab_zycit003_aux1 WHERE nrseq EQ /pws/zycie001-nrseq.
* >> Início da inclusão: MODULE LOAD_ZYCIT374
IF /pws/zycie001-regime EQ '12'.
IF itab_zycit003_aux1-adm_temp EQ 'X'.
MOVE: itab_zycit003_aux1-nrseq TO itab_zycit374-nrseq ,
itab_zycit003_aux1-ebeln TO itab_zycit374-ebeln ,
itab_zycit003_aux1-ebelp TO itab_zycit374-ebelp ,
itab_zycit003_aux1-matnr TO itab_zycit374-matnr ,
itab_zycit003_aux1-descr TO itab_zycit374-descr ,
itab_zycit003_aux1-meins TO itab_zycit374-meins ,
itab_zycit003_aux1-qtd_iten TO itab_zycit374-qtd_iten ,
space TO itab_zycit374-qtd_baixa.
APPEND itab_zycit374.
ELSE.
DELETE itab_zycit374 WHERE nrseq = itab_zycit003_aux1-nrseq
AND ebeln = itab_zycit003_aux1-ebeln
AND ebelp = itab_zycit003_aux1-ebelp.
ENDIF.
ELSE.
* << Fim da inclusão
MOVE: itab_zycit003_aux1-nrseq TO itab_zycit374-nrseq ,
itab_zycit003_aux1-ebeln TO itab_zycit374-ebeln ,
itab_zycit003_aux1-ebelp TO itab_zycit374-ebelp ,
itab_zycit003_aux1-matnr TO itab_zycit374-matnr ,
itab_zycit003_aux1-descr TO itab_zycit374-descr ,
itab_zycit003_aux1-meins TO itab_zycit374-meins ,
itab_zycit003_aux1-qtd_iten TO itab_zycit374-qtd_iten ,
space TO itab_zycit374-qtd_baixa.
APPEND itab_zycit374.
* >> Início da inclusão: MODULE LOAD_ZYCIT374
ENDIF.
* << Fim da inclusão
ENDLOOP.
ELSE.
LOOP AT itab_zycit003.
READ TABLE itab_zycit374 WITH KEY nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc NE 0.
* >> Início da inclusão: MODULE LOAD_ZYCIT374
IF /pws/zycie001-regime EQ '12'.
IF itab_zycit003-adm_temp NE 'X'.
CONTINUE.
ENDIF.
ENDIF.
* << Fim da inclusão
MOVE: itab_zycit003-nrseq TO itab_zycit374-nrseq,
itab_zycit003-ebeln TO itab_zycit374-ebeln,
itab_zycit003-ebelp TO itab_zycit374-ebelp,
itab_zycit003-matnr TO itab_zycit374-matnr,
itab_zycit003-descr TO itab_zycit374-descr,
itab_zycit003-meins TO itab_zycit374-meins,
itab_zycit003-qtd_iten TO itab_zycit374-qtd_iten.
APPEND itab_zycit374.
ELSE.
* >> Início da inclusão: MODULE LOAD_ZYCIT374
IF /pws/zycie001-regime EQ '12'.
IF itab_zycit003-adm_temp EQ 'X'.
MOVE itab_zycit003-qtd_iten TO
itab_zycit374-qtd_iten.
MODIFY itab_zycit374 INDEX sy-tabix.
ELSE.
DELETE itab_zycit374 WHERE nrseq = itab_zycit003-nrseq
AND ebeln = itab_zycit003-ebeln
AND ebelp = itab_zycit003-ebelp.
ENDIF.
ELSE.
* << Fim da inclusão
MOVE itab_zycit003-qtd_iten TO itab_zycit374-qtd_iten.
MODIFY itab_zycit374 INDEX sy-tabix.
* >> Início da inclusão: MODULE LOAD_ZYCIT374
ENDIF.
* << Fim da inclusão
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
CLEAR: v_qtditen.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI001
*Criar os seguintes elementos de texto
514 Para regime de Adm.Temporária e consumo
515 é necessário marcar item como admissão temporária.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023X01
...
DATA: BEGIN OF itab_it OCCURS 0.
INCLUDE STRUCTURE /pws/zycie100a.
DATA: descr LIKE /pws/zycie003-descr,
j_1bnbm LIKE /pws/zycie003-j_1bnbm,
...
....
* >> Início da inclusão
adm_temp like /pws/zycie003-adm_temp,
* << Fim da inclusão
end of itab_it.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
screen-input = '0'.
CLEAR: /pws/zycie100a-codfunleg, t_fundes.
ENDIF.
IF v_existe_li EQ 'X'.
screen-input = '0'.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-CODREGTRI'.
IF v_existe_li EQ 'X'.
screen-input = '0'.
ENDIF.
* >> Início da inclusão: FORM SET_SCREEN_0431
IF itab_zycit001-regime EQ '12' AND
/pws/zycie003-adm_temp EQ 'X'.
screen-input = '0'.
ENDIF.
* << Fim da inclusão
ELSEIF screen-name EQ '/PWS/ZYCIE003-ADVALII'.
IF ' 269' CA /pws/zycie100a-codregtri.
screen-input = '0'.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-CODREGTRI' AND
/pws/zycie100a-codregtri IS INITIAL.
CLEAR: /pws/zycie100a-aladi, a_aladi,
/pws/zycie100a-codfunleg, t_fundes,
/pws/zycie100a-acordo.
ELSEIF screen-name EQ '/PWS/ZYCIE003-II_EXTARIF' OR
...
...
screen-input = '0'.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE003-ADVALIPI' OR
screen-name EQ '/PWS/ZYCIE100A-NOTATIPI'.
IF NOT /pws/zycie100a-unit_valor IS INITIAL OR
NOT /pws/zycie100a-unit_meins IS INITIAL OR
NOT /pws/zycie100a-unit_qtde IS INITIAL OR
NOT /pws/zycie100a-unit_reccapac IS INITIAL OR
NOT /pws/zycie100a-unit_rectipo IS INITIAL.
screen-input = '0'.
* >> Início da inclusão: FORM SET_SCREEN_0432
ENDIF.
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM SET_SCREEN_0432
IF screen-name EQ '/PWS/ZYCIE100A-CODREGTRIIPI' .
IF itab_zycit001-regime EQ '12' AND
/pws/zycie003-adm_temp EQ 'X'.
screen-input = '0'.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
...
...
IF screen-name EQ '/PWS/ZYCIE003-ADVALIPI'.
screen-input = 0.
ENDIF.
ELSEIF '56' CA /pws/zycie100a-codregtri .
CLEAR: t_iirec ,
t_ipirec.
ENDIF.
IF screen-name = '/PWS/ZYCIE003-ADVALICMS' AND
/pws/zycie093-meiotransp = 'PS'.
screen-input = 1.
* >> Início da inclusão: FORM SET_SCREEN_0232
IF itab_zycit001-regime EQ '12' AND
/pws/zycie003-adm_temp EQ 'X'.
screen-input = '0'.
ENDIF.
* << Fim da inclusão
ENDIF.
IF screen-name = '/PWS/ZYCIE003-ADVALIPI' AND
/pws/zycie093-meiotransp = 'PS'.
screen-input = 1.
ENDIF.
IF screen-name = '/PWS/ZYCIE003-VALII' AND
/pws/zycie093-meiotransp = 'PS'.
screen-input = 1.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
WHEN '0240'.
IF itab_zycit001-meioemba EQ 'PS'.
IF screen-name EQ '/PWS/ZYCIE095A-LIFNR' OR
screen-name EQ 'T_VLICMS'.
screen-input = 0.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN_PADRAO
WHEN '0433'.
IF screen-name EQ '/PWS/ZYCIE100A-CODREGTRIICMS'.
IF itab_zycit001-regime EQ '12' AND
/pws/zycie003-adm_temp EQ 'X'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
* << Fim da inclusão
WHEN '0435'.
* >> Início da inclusão: MODULE SET_SCREEN_PADRAO
IF screen-name EQ '/PWS/ZYCIE100A-CODREGTRIPISCOFI'.
IF itab_zycit001-regime EQ '12' AND
/pws/zycie003-adm_temp EQ 'X'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDIF.
* << Fim da inclusão
IF screen-name EQ '/PWS/ZYCIE100A-PERCREDUZPC' OR
screen-name EQ '/PWS/ZYCIE100A-CODREDPISCOFI'.
IF /pws/zycie100a-redpiscofi EQ 'X'.
screen-input = 1.
ELSE.
screen-input = 0.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
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 inclusão: FORM load_data_blitem.
IF itab_zycit001-regime = '05' OR
( itab_zycit001-regime = '12'
AND itab_it-adm_temp = 'X' ) OR
itab_zycit001-modalidade = '06' .
* << Fim da inclusão
itab_it-codregtri = '5'.
itab_it-codregtripiscofi = '5'.
itab_it-codregtriipi = '5'.
itab_it-codregtriicms = '5'.
ENDIF.
MOVE itab_it TO wa_it.
MOVE-CORRESPONDING: itab_it TO /pws/zycie100a,
itab_it TO /pws/zycie003.
v_idx = v_ip.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIT003
Nome de campo Chv Elem.dados Tab.verif. N CtDt Comp.
...
* >> Início da inclusão:
ADM_TEMP XFELD CHAR 1
* << Fim da inclusão