CE PLUS - Nota 010845
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 17/12/2010 00:00:00
Data/Hora Última Alteração: 22/03/2011 11:13:00
Descrição da Nota: LEGISLAÇÃO - INFORMAR A DA NA DI DE NACIONALIZAÇÃO
Sintoma
Conforme IN RFB 1.090 de 29.11.2010, o número da Declaração de Admissão do entreposto aduaneiro
deverá ser preenchido na Declaração de Importação do embarque de nacionalização.
Solução
Informar o Número da DA na DI de nacionalização entreposto aduaneiro.
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10845 Data: 17/12/2010 Hora: 15:52:32
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10845
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00006
Agrupamento : 00052
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
----------------------------------------------------------------------------------------------------
LEGISLAÇÃO - INFORMAR A DA NA DI DE NACIONALIZAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
INFORMAR DA NA DI DE NACIONALIZAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
FORM comm_adic.
* >> Início da inclusão: FORM COMM_ADIC
IF /pws/zycie085-codreg EQ '14' AND
sy-tcode EQ '/PWS/ZYCI023_C' AND
itab_zycit115[] IS INITIAL.
PERFORM preenche_doc_vinculado.
ENDIF.
* << Fim da inclusão
PERFORM refresh_all.
IF NOT itab_it[] IS INITIAL.
PERFORM adic_list.
DO.
CALL SCREEN '0170' STARTING AT 5 2.
IF sy-ucomm = 'ENTE'.
PERFORM adic_load.
ELSE.
EXIT.
ENDIF.
ENDDO.
ENDIF.
ENDFORM.
FORM comm_deta.
* >> Início da inclusão: FORM COMM_DETA
IF /pws/zycie085-codreg EQ '14' AND
sy-tcode EQ '/PWS/ZYCI023_C' AND
itab_zycit115[] IS INITIAL.
PERFORM preenche_doc_vinculado.
ENDIF.
* << Fim da inclusão
READ TABLE itab_it WITH KEY mark = 'X'.
IF sy-subrc = 0.
t_pisbs = itab_it-basepis.
t_cofinsbs = itab_it-basecofins.
PERFORM call_item.
ELSE.
MESSAGE i015 WITH text-012.
ENDIF.
ENDFORM.
FORM comm_save.
* >> Início da inclusão: FORM COMM_SAVE
IF /pws/zycie085-codreg EQ '14' AND
sy-tcode EQ '/PWS/ZYCI023_C' AND
itab_zycit115[] IS INITIAL.
PERFORM preenche_doc_vinculado.
ENDIF.
* << Fim da inclusão
PERFORM verify_changes.
IF v_changed EQ '1'.
PERFORM save_data.
ELSE.
MESSAGE s015 WITH text-027.
ENDIF.
ENDFORM.
...
...
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DI010' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND.
ENDIF.
ENDIF.
CALL METHOD editor2->set_text_as_r3table EXPORTING table = ittxt1[].
ENDFORM.
* >> Início da inclusão:
FORM preenche_doc_vinculado.
CLEAR: itab_zycit115, itab_zycit115[].
LOOP AT itab_it.
READ TABLE itab_zycit003 WITH KEY nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0 AND NOT itab_zycit003-nrdi IS INITIAL.
itab_zycit115-mandt = sy-mandt.
itab_zycit115-nrseqdi = /pws/zycie085-nrseqdi.
itab_zycit115-nrseq = itab_it-nrseq.
itab_zycit115-ebeln = itab_it-ebeln.
itab_zycit115-ebelp = itab_it-ebelp.
itab_zycit115-tipo = '2'.
itab_zycit115-numero = itab_zycit003-nrdi.
APPEND itab_zycit115.
ENDIF.
ENDLOOP.
ENDFORM.
* << Fim da inclusão