CE PLUS - Nota 008838
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 14/08/2009 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:41:21
Descrição da Nota: ATO CONCESSÓRIO GENÉRICO
Sintoma
Ao criarmos um ato concessório genericos, se salvarmos o AC sem fornecer um valor na pasta
importações e sairmos do ac, ao retornarmos para o ato o programa não trás a ncm genérica na pasta
importações e não permite fornece-la manualmente.
Solução
Preenchimento do campo /PWS/ZYCIT245-PROCED.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08838 Data: 14/08/2009 Hora: 15:26:51
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08838
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00109
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02743 - 00001 - 6.0 - 00026 - CORREÇÃO DA CHAVE DA TABELA /PWS/ZYCIT427 PARA TRATAR CONTROLE PO
07112 - 00002 - 7.0 - 00006 - COMPRAS NO MERCADO INTERNO PARA DRAWBACK SUSPENSÃO
----------------------------------------------------------------------------------------------------
ATO CONCESSÓRIO GENÉRICO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ATO CONCESSÓRIO GENÉRICO PROCEDENCIA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI040F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
REFRESH itab_zycit250. CLEAR itab_zycit250.
SELECT * FROM /pws/zycit250 INTO TABLE itab_zycit250
WHERE nrseqd EQ /pws/zycie244-nrseqd.
SELECT * FROM /pws/zycit470 INTO TABLE itab_zycit470_s
WHERE nrseqd EQ /pws/zycie244-nrseqd. "#EC CI_NOFIRST
SELECT * FROM /pws/zycit427 INTO TABLE itab_zycit427
WHERE nrseqd EQ /pws/zycie244-nrseqd.
SORT itab_zycit427 BY item.
SELECT * FROM /pws/zycit245 INTO TABLE itab_zycit245
WHERE nrseqd EQ /pws/zycie244-nrseqd
* >> Início da exclusão: FORM TRATA_BUTTON_ENTE2
AND proced EQ '1'.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_BUTTON_ENTE2
AND proced NE space.
* << Fim da inclusão
SELECT * FROM /pws/zycit246 INTO TABLE itab_zycit246_final
WHERE nrseqd EQ /pws/zycie244-nrseqd.
SELECT * FROM /pws/zycit247 INTO TABLE itab_zycit247
WHERE nrseqd EQ /pws/zycie244-nrseqd.
IF sy-subrc EQ 0.
v_verificp2 = 'S'.
DESCRIBE TABLE itab_zycit247 LINES v_verifiit2.
ENDIF.
SELECT * FROM /pws/zycit457 INTO TABLE itab_zycit457
WHERE nrseqd EQ /pws/zycie244-nrseqd.
...
...
REFRESH: itab_zycit245, itab_zycit245_aux, itab_zycit247.
v_verificp2 = 'N'.
IF /pws/zycie244-tipo EQ 'G'.
SELECT SINGLE * FROM /pws/zycit321 INTO wa_zycit321.
IF sy-subrc NE 0 OR wa_zycit321-ncm IS INITIAL.
MESSAGE i015 WITH text-170 text-171.
ENDIF.
PERFORM select_max_item_number2 CHANGING v_nritem.
MOVE: /pws/zycie244-nrseqd TO itab_zycit245-nrseqd ,
wa_zycit321-ncm TO itab_zycit245-j_1bnbm,
* >> Início da exclusão: FORM BUTTON_TPDRAW2
v_nritem TO itab_zycit245-nritem .
* << Fim da exclusão
* >> Início da inclusão: FORM BUTTON_TPDRAW2
v_nritem TO itab_zycit245-nritem ,
'1' TO itab_zycit245-proced .
* << Fim da inclusão
SELECT text1 UP TO 1 ROWS FROM t604n INTO itab_zycit245-maktx
WHERE spras = sy-langu
AND land1 = 'BR'
AND steuc = wa_zycit321-ncm. "#EC CI_SGLSELECT
ENDSELECT.
APPEND itab_zycit245.
MOVE: /pws/zycie244-nrseqd TO itab_zycit245-nrseqd ,
wa_zycit321-ncm TO itab_zycit245-j_1bnbm,
* >> Início da exclusão: FORM BUTTON_TPDRAW2
'90001' TO itab_zycit245-nritem .
* << Fim da exclusão
* >> Início da inclusão: FORM BUTTON_TPDRAW2
'90001' TO itab_zycit245-nritem ,
'0' TO itab_zycit245-proced .
* << Fim da inclusão
SELECT text1 UP TO 1 ROWS FROM t604n INTO itab_zycit245-maktx
WHERE spras = sy-langu
AND land1 = 'BR'
AND steuc = wa_zycit321-ncm. "#EC CI_SGLSELECT
ENDSELECT.
APPEND itab_zycit245.
ENDIF.
IF /pws/zycie244-tipo NE 'F'.
CLEAR /pws/zycie244-lifnr.
ENDIF.
...