CE PLUS - Nota 013665
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 28/07/2014 09:42:24
Data/Hora Última Alteração: 28/07/2014 09:42:24
Descrição da Nota: CAMPO VOLUME DI NACIONALIZAÇÃO ADM. TEMPORARIA, REGIME 13
Sintoma
Em embarque de Nacionalização de Adm. Temporaria, o campo volume na declaração de importação fica
fechado
Solução
Alterado para abrir o campo para estes cenarios
Versões Tratadas
9.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 13665 Data: 04/02/2014 Hora: 13:10:41
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 13665
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 9.0
Pacote : 00007
Agrupamento : 00170
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01761 - 00001 - 6.0 - 00024 - NOTA DE TRADUCAO
03373 - 00002 - 7.0 - 00001 - TRADUÇÃO DE OBJETOS DO DICIONÁRIO DE DADOS IMPORTAÇÃO
03763 - 00003 - 7.0 - 00001 - EMBARQUE - DRILLDOWN PEDIDO
04175 - 00004 - 7.0 - 00002 - ALTERAÇÃO DO NOME DO CAMPO FUNDAPIANA NA DI
04180 - 00005 - 7.0 - 00002 - REVISÃO DE TRADUÇÕES DO SISTEMA PARA O IDIOMA ESPANHOL.
05500 - 00006 - 7.0 - 00004 - FLAG DO ICMS DIFERIDO E O IPI ESTIVER FLEGADO COMO NÃO TRIBUTÁVEL
07254 - 00007 - 7.0 - 00006 - TRADUÇÃO DOS ELEMENTOS DO SISTEMA PARA ESPANHOL
07854 - 00008 - 7.0 - 00006 - DUMP DE DIVISÃO POR ZERO QUANDO O PESO NÃO ESTÁ PREENCHIDO.
07938 - 00009 - 7.0 - 00008 - A DI CALCULA ERRADO AO RATEAR ENTRE AS ADIÇÕES
08919 - 00010 - 7.0 - 00010 - TRADUÇÃO CLASSE /PWS/ZYCI (EN)
09332 - 00011 - 8.0 - 00001 - ABRIR CAMPO PAÍS DE PROCEDÊNCIA NA DI.
10126 - 00012 - 8.0 - 00003 - IMPLEMENTADO PARÂMETRO PARA VISUALIZAR O RATEIO NA DI E NA NF
10905 - 00013 - 8.0 - 00006 - DI ESTÁ EXIBINDO UNIDADE DE MEDIDA EM UNIDADE INTERNA DA SAP
11087 - 00014 - 8.0 - 00007 - A DI CALCULA ERRADO AO RATEAR DESPESA DE DEDUÇÃO ENTRE AS ADIÇÕES
11171 - 00015 - 8.0 - 00007 - NOVA FÓRMULA VALOR ICMS ST.
11327 - 00016 - 8.0 - 00008 - AO EXIBIR DI, É POSSÍVEL ESTORNAR E TRANSMITIR.
11651 - 00017 - 8.0 - 00009 - QUANDO NÃO POSSUI SERVIÇO DE ICMS ST AINDA APARECE TEXTO EM TELA
11779 - 00018 - 8.0 - 00010 - TRATAMENTO DE CAMPOS EM EXIBIÇÃO
11992 - 00019 - 8.0 - 00010 - ALTERAÇÕES EM CÁLCULOS DE ADMISSÃO TEMPORÁRIA
12123 - 00020 - 8.0 - 00011 - CORREÇÃO E ABERTURA DE EXIT PARA TRATAMENTO DE FUNDAP.
12326 - 00021 - 9.0 - 00001 - DAI - NOVA PASTA NA DI PARA INFORMAÇÕES SOBRE LACRE
12342 - 00022 - 9.0 - 00001 - DAI - INSERIR NOVOS CAMPOS NA PASTA DAI DAS ADIÇÕES
12398 - 00023 - 9.0 - 00001 - ACRESCENTADO BOTÃO DE LOG DE MODIFICAÇÕES NOS PROGRAMAS
12468 - 00024 - 9.0 - 00001 - ACRESCENTAR CAMPO DE ALÍQUOTA REDUZIDA DE ICMS PARA REPLICAR
12592 - 00025 - 9.0 - 00002 - A ADIÇÃO DA DI NÃO QUEBRA COM A MUDANÇA DA PERIODICIDADE DA FATUR
12799 - 00026 - 9.0 - 00003 - VERIFICAÇÃO CODE INSPECTOR
12844 - 00027 - 9.0 - 00003 - NA DI, PASTA 2, NÃO DEIXA % DO SEGURO SER IGUAL A ZERO.
13027 - 00028 - 9.0 - 00004 - O SISTEMA ESTÁ PERMITINDO CRIAR DI POR FORA COM O EMBARQUE SENDO
13070 - 00029 - 9.0 - 00005 - QUANDO INFORMA FABRICANTE NA FATURA, NÃO LEVA DESCRIÇÃO DE PAIS N
13076 - 00030 - 9.0 - 00005 - ATUALIZAR ALÍQUOTAS NA DI - DESENVOLVIMENTO ADICIONAL
13114 - 00031 - 9.0 - 00005 - ERRO AO SALVAR NVE DA ADIÇÃO - TABELA /PWS/ZYCIT118
13162 - 00032 - 9.0 - 00005 - DESENVOLVIMENTO PARA TRATAMENTO DE PROCESSO INTERCOMPANY.
13220 - 00033 - 9.0 - 00005 - ERRO QUANDO NÃO ENCONTRA DESPESA DE DEDUÇÃO NO PARÂMETRO /PWS/ZYC
13226 - 00034 - 9.0 - 00006 - TABELAS DE ALIQUOTA DE PIS E COFINS NÃO VERIFICA VIGENCIA NA DI
13285 - 00035 - 9.0 - 00006 - VALOR TOTAL NA ADIÇÃO DA DI DE ACORDO COM O GRUPO DE CAMBIO DA FA
13315 - 00036 - 9.0 - 00006 - NOVA LEGISLAÇÃO PARA ALTERAR BASE DE CÁLCULO DO PIS E COFINS
13322 - 00037 - 9.0 - 00006 - NECESSÁRIO DESENVOLVIMENTO ESPECÍFICO
13336 - 00038 - 9.0 - 00006 - AO TRANSMITIR TEXTO PARA O ORIENTADOR, FICA FORA DE FORMATAÇÃO
13399 - 00039 - 9.0 - 00006 - PREENCHIMENTO DOS VALORES PASTA CÂMBIO ADIÇÃO DA DI
13401 - 00040 - 9.0 - 00006 - LOG DE MODIFICAÇÕES - TRILHA AUDITORIA - INCLUSÃO TRANSAÇÃO
13402 - 00041 - 9.0 - 00006 - ERROS EM CÁLCULOS COM VALORES ANTIDUMPING.
13421 - 00042 - 9.0 - 00006 - CRIAR NRSEQ EM TABELAS DE RETIFICAÇÃO PARA IDENTIFICAR EMBARQUE
13422 - 00043 - 9.0 - 00006 - AO COLOCAR COM REGIME TRIBUTÁRIO NÃO INCIDÊNCIA,ZERAR E FECHAR AD
13435 - 00044 - 9.0 - 00006 - NA CRIAÇÃO, NÃO GRAVA ALIQUOTA DE PIS E COFINS ALTERADA
13452 - 00045 - 9.0 - 00006 - SISTEMA ESTÁ ALTERANDO MOEDA DA DESPESA FRETE EM TERRITÓRIO NACIO
13630 - 00046 - 9.0 - 00007 - ACRESCENTAR ALÍQUOTAS DE PIS E COFINS NO EMBARQUE
13633 - 00047 - 9.0 - 00007 - TRATAMENTO PARA TRANSMISSÃO EM CASO DE ADMISSÃO TEMPORÁRIA
13639 - 00048 - 9.0 - 00007 - NÃO CRIA DI SE ALGUM ITEM NÃO TIVER NCM
13658 - 00049 - 9.0 - 00007 - AO FAZER TRANSMISSÃO, NÃO LEVA O CAMPO MOTIVO DA ADMISSÃO TEMPORÁ
----------------------------------------------------------------------------------------------------
CAMPO VOLUME DI NACIONALIZAÇÃO ADM. TEMPORARIA, REGIME 13
----------------------------------------------------------------------------------------------------
Palavras Chave:
VOLUME - DI - NACIONALIZAÇÃO - ADM. TEMPORARIA, REGIME 13
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI023 0131
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023O01
REPS /PWS/MZYCI023TOP
REPS /PWS/MZYCI023X01
REPS /PWS/MZYCI023F05
REPS /PWS/MZYCI023I02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0131
No layout da Tela, aba "Programa" desmarcar o checkbox "Só campo de Saida" dos campos abaixos:
/PWS/ZYCIE014-TPEMBAL
/PWS/ZYCIE014-QUANT
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0131
process before output.
module: set_screen,
screen_lines.
loop at itab_zycit014 with control tc_vol.
* >> Início da exclusão:
module: fill_struct88.
* << Fim da exclusão
* >> Início da inclusão:
module: fill_struct88,
set_screen_lines.
* << Fim da inclusão
endloop.
loop at itab_zycit096 with control tc_arm.
module: fill_struct96,
set_screen_lines.
endloop.
module exit_tela.
process after input.
loop at itab_zycit014.
* >> Início da inclusão:
module modi_data88.
* << Fim da inclusão
endloop.
loop at itab_zycit096.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
DELETE itab_zycit085 WHERE nrseqdi = /pws/zycie085-nrseqdi.
APPEND /pws/zycie085 TO itab_zycit085.
SORT itab_zycit085 BY nrseqdi.
* >> Início da inclusão: FORM SAVE_DATA
IF /pws/zycit085-codreg EQ '13' AND
NOT itab_zycit014[] IS INITIAL.
READ TABLE itab_zycit014 INDEX 1.
IF itab_zycit014-nrseq IS INITIAL.
PERFORM gera_nrseq_bl USING itab_zycit014-nrseq.
MODIFY itab_zycit014 TRANSPORTING nrseq
WHERE nrseq IS initial.
ENDIF.
MODIFY /pws/zycit014 FROM TABLE itab_zycit014.
IF sy-subrc EQ 0.
LOOP AT itab_zycit014.
MOVE-CORRESPONDING itab_zycit014 TO /pws/zycit014.
PERFORM carrega_log USING '/PWS/ZYCIT014' 'U'
sy-tcode '/PWS/SAPMZYCI023' /pws/zycit014-nrseq.
ENDLOOP.
ENDIF.
ENDIF.
* << Fim da inclusão
COMMIT WORK.
IF v_dit = 'N'.
MESSAGE i017 WITH text-060.
ELSE.
MESSAGE i017 WITH text-061.
ENDIF.
...
...
itab_zycit116[] TO itab_zycit116a[],
itab_zycit118[] TO itab_zycit118a[],
itab_zycit121[] TO itab_zycit121a[],
itab_zycit124[] TO itab_zycit124a[],
itab_zycit200[] TO itab_zycit200a[],
itab_zycit049di2[] TO itab_zycit049di[],
itab_it[] TO itab_ita[],
/pws/zycie085 TO wa_zycit085,
itab_zycit485[] TO itab_zycit485a[],
itab_zycit486[] TO itab_zycit486a[].
* >> Início da inclusão: FORM SAVE_DATA
MOVE itab_zycit014[] TO itab_zycit014a[].
* << Fim da inclusão
PERFORM save_especificacao.
READ TABLE itab_zycit001 INDEX 1.
IF itab_zycit001-modalidade EQ '07'.
PERFORM reclass_interc.
ENDIF.
READ TABLE itab_zycit003 INDEX 1.
IF itab_zycit003-qtd_itend IS INITIAL.
PERFORM reclassificacao_ia_funcao.
ENDIF.
PERFORM verifica_exit USING 'D'
...
...
v_changed = '1'.
ENDIF.
IF itab_zycit485[] NE itab_zycit485a[].
v_changed = '1'.
ENDIF.
IF itab_zycit486[] NE itab_zycit486a[].
v_changed = '1'.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM VERIFY_CHANGES
IF itab_zycit014[] NE itab_zycit014a[].
v_changed = '1'.
ENDIF.
* << Fim da inclusão
ENDFORM.
...
...
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DI001' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa)
CHANGING
/pws/zycie093.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM LOADING_ALL
IF /pws/zycie085-codreg EQ '13'.
SELECT * FROM /pws/zycit014 INTO TABLE itab_zycit014
WHERE embarque = /pws/zycie085-nrseqdi.
ELSE.
* << Fim da inclusão
SELECT * FROM /pws/zycit014 INTO TABLE itab_zycit014
WHERE nrseq = /pws/zycie085-nrbl.
* >> Início da inclusão: FORM LOADING_ALL
ENDIF.
itab_zycit014a[] = itab_zycit014[].
* << Fim da inclusão
SELECT * FROM /pws/zycit100 INTO TABLE itab_zycit100
WHERE nrseqdi = /pws/zycie085-nrseqdi.
MOVE: itab_zycit100[] TO itab_zycit100a[].
IF sy-subrc EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
screen-input = '0'.
IF v_acto EQ 'A'.
screen-input = '1'.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF v_nf041 EQ 'S'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN_LINES
IF /pws/zycie085-codreg EQ '13' AND
v_acto NE 'E'.
screen-input = '1'.
MODIFY SCREEN.
ENDIF.
* << Fim da inclusão
ENDLOOP.
ENDIF.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023TOP
...
/pws/zycie126,
/pws/zycie001,
/pws/zycit041, "#EC NEEDED
/pws/zycit042,
/pws/zycie049,
/pws/zycie080,
/pws/zycie080a,
/pws/zycie013,
/pws/zycie014,
/pws/zycie006,
* >> Início da inclusão:
/pws/zycit093,
/pws/zycit014,
* << Fim da inclusão
t005t,
t001,
lfa1, lfbk,
dd07t,
t615,
/pws/zycit031,
/pws/zycbt007,
ekko,
tcurx,
t615t,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023X01
...
msgv3 LIKE balm-msgv3,
msgv4 LIKE balm-msgv4,
env LIKE bdcmsgcoll-env,
fldname LIKE bdcmsgcoll-fldname,
END OF msg_struc.
DATA: itab_zycit001 LIKE /pws/zycit001 OCCURS 0 WITH HEADER LINE,
itab_zycit006 LIKE /pws/zycit006 OCCURS 0 WITH HEADER LINE,
itab_zycit006a LIKE /pws/zycit006 OCCURS 0 WITH HEADER LINE,
itab_zycit013 LIKE /pws/zycie013 OCCURS 0 WITH HEADER LINE,
itab_zycit014 LIKE /pws/zycie014 OCCURS 0 WITH HEADER LINE,
* >> Início da inclusão:
itab_zycit014a LIKE /pws/zycie014 OCCURS 0 WITH HEADER LINE,
* << Fim da inclusão
itab_zycit019 LIKE /pws/zycit019 OCCURS 0 WITH HEADER LINE,
itab_zycit020 LIKE /pws/zycit020 OCCURS 0 WITH HEADER LINE,
itab_zycit031 LIKE /pws/zycit031 OCCURS 0 WITH HEADER LINE,
itab_zycit036 LIKE /pws/zycit036 OCCURS 0 WITH HEADER LINE,
itab_zycit039 LIKE /pws/zycit039 OCCURS 0 WITH HEADER LINE,
itab_zycit041 LIKE /pws/zycit041 OCCURS 0 WITH HEADER LINE,
itab_zycit049di LIKE /pws/zycit049 OCCURS 0 WITH HEADER LINE,
itab_zycit049di2 LIKE /pws/zycit049 OCCURS 0 WITH HEADER LINE,
itab_zycit055 LIKE /pws/zycit055 OCCURS 0 WITH HEADER LINE,
itab_zycit078 LIKE /pws/zycie078 OCCURS 0 WITH HEADER LINE,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
...
itab_zycit121-praca IS INITIAL.
v_msg = 'X'.
EXIT.
ENDIF.
ENDLOOP.
ENDIF.
IF NOT v_msg IS INITIAL.
MESSAGE e159.
ENDIF.
ENDFORM.
* >> Início da inclusão:
FORM gera_nrseq_bl USING p_nrseq.
DATA: v_nrseqc LIKE /pws/zycit001-nrseq,
v_count(7) TYPE n ,
v_ano(4).
CONCATENATE '%' 'I' sy-datlo+2(2) INTO v_ano.
SELECT MAX( nrseqce ) INTO (v_nrseqc) FROM /pws/zycit093
WHERE nrseqce LIKE v_ano.
v_count = v_nrseqc+0(7) + 1.
CONCATENATE v_count+0(7) 'I' sy-datlo+2(2) INTO p_nrseq.
/pws/zycit093-nrseqce = p_nrseq.
INSERT /pws/zycit093.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I02
...
MODULE load_motivo INPUT.
PERFORM load_motivo USING wa_it-motivo.
ENDMODULE.
* >> Início da inclusão:
MODULE modi_data88 INPUT.
IF /pws/zycie014-tpembal IS INITIAL.
MOVE space TO /pws/zycie014-descr.
MOVE space TO /pws/zycie014-quant.
ELSE.
SELECT descr UP TO 1 ROWS FROM /pws/zycit015
INTO /pws/zycie014-descr
WHERE tpembal EQ /pws/zycie014-tpembal.
ENDSELECT.
ENDIF.
READ TABLE itab_zycit014 INDEX tc_vol-current_line.
IF sy-subrc EQ 0.
itab_zycit014-embarque = /pws/zycie085-nrseqdi.
itab_zycit014-tpembal = /pws/zycie014-tpembal .
itab_zycit014-descr = /pws/zycie014-descr .
itab_zycit014-quant = /pws/zycie014-quant .
MODIFY itab_zycit014 INDEX tc_vol-current_line.
ELSE.
itab_zycit014-embarque = /pws/zycie085-nrseqdi.
itab_zycit014-tpembal = /pws/zycie014-tpembal .
itab_zycit014-descr = /pws/zycie014-descr .
itab_zycit014-quant = /pws/zycie014-quant .
APPEND itab_zycit014.
ENDIF.
ENDMODULE.
* << Fim da inclusão