CE PLUS - Nota 006685
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 04/06/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:25:36
Descrição da Nota: INTERMEDIARIO IMPORTAÇÃO POR AGRUPAMENTO
Sintoma
O programa não está preenchendo os dados das exportações realizadas no cabeçãlho do Ato concessório
e a pasta resumo, nos casos de drawback intermediario importação por agrupamento.
Solução
Atualização do Ato Concessório para tratativa de processos intermediário importação por agrupamento.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06685 Data: 04/06/2008 Hora: 14:11:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06685
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00052
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02575 - 00001 - 6.0 - 00025 - CONTROLE DE ATO INTERMEDIARIO-IMPORTADOR POR NCM E MULTIPLAS AREA
06320 - 00002 - 7.0 - 00005 - ATO CONCESSÓRIO INTERMEDIARIO-IMPORTAÇÃO POR AGRUPAMENTO
----------------------------------------------------------------------------------------------------
INTERMEDIARIO IMPORTAÇÃO POR AGRUPAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ATO CONCESSÓRIO INTERMEDIARIO IMPORTAÇÃO AGUPAMENTO RESUMO
TOTAL FOB REALIZADO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
itab_zycit246_final-vlfrete.
/pws/zycie246-vlseg = /pws/zycie246-vlseg +
itab_zycit246_final-vlseg.
ENDLOOP.
LOOP AT itab_zycit248_final.
/pws/zycie248-vlfob = /pws/zycie248-vlfob +
itab_zycit248_final-vlfob.
/pws/zycie248-vlcomis = /pws/zycie248-vlcomis +
itab_zycit248_final-vlcomis.
ENDLOOP.
* >> Início da inclusão: FORM APURA_TOTAIS_0201
LOOP AT itab_zycit371.
/pws/zycie248-vlfob = /pws/zycie248-vlfob + itab_zycit371-vlfob.
/pws/zycie248-vlcomis = /pws/zycie248-vlcomis +
itab_zycit371-vlcomiss.
ENDLOOP.
* << Fim da inclusão
CLEAR: v_variacao_plan.
IF /pws/zycie244-importacao EQ 'X'.
CLEAR: v_variacao_plan.
IF NOT /pws/zycie248-vlfob IS INITIAL
OR NOT /pws/zycie248-vlcomis IS INITIAL.
v_variacao_plan = ( /pws/zycie246-vltot +
/pws/zycie246-vlseg +
/pws/zycie246-vlfrete ) /
( /pws/zycie248-vlfob -
/pws/zycie248-vlcomis ) * 100 .
...
...
LOOP AT itab_zycit248_res.
READ TABLE itab_zycit248 WITH KEY matnr = itab_zycit248_res-matnr.
IF sy-subrc EQ 0.
MOVE: itab_zycit248-waersfob TO itab_zycit248_res-waersfob,
itab_zycit248-meins TO itab_zycit248_res-meins .
MODIFY itab_zycit248_res.
ENDIF.
ENDLOOP.
IF /pws/zycit321-c_comum EQ 'X'.
LOOP AT itab_zycit371 WHERE ncm EQ /pws/zycie247c-j_1bnbm.
* >> Início da inclusão: FORM TRATA_TAB_RESMAT2
MOVE: itab_zycit371-codigo TO itab_zycit248_res-matnr ,
itab_zycit371-qtd_iten TO itab_zycit248_res-qtd_iten,
itab_zycit371-vlfob TO itab_zycit248_res-vlfob .
COLLECT itab_zycit248_res.
ENDLOOP.
LOOP AT itab_zycit248_res.
READ TABLE itab_zycit371 WITH KEY codigo = itab_zycit248_res-matnr.
IF sy-subrc EQ 0.
MOVE itab_zycit371-um_qtd TO itab_zycit248_res-meins .
MODIFY itab_zycit248_res.
ENDIF.
ENDLOOP.
ELSE.
LOOP AT itab_zycit371 WHERE codigo EQ itab_zycit247-mat_int.
* << Fim da inclusão
MOVE: itab_zycit371-codigo TO itab_zycit248_res-matnr ,
itab_zycit371-qtd_iten TO itab_zycit248_res-qtd_iten,
itab_zycit371-vlfob TO itab_zycit248_res-vlfob .
COLLECT itab_zycit248_res.
ENDLOOP.
LOOP AT itab_zycit248_res.
READ TABLE itab_zycit371 WITH KEY codigo = itab_zycit248_res-matnr.
IF sy-subrc EQ 0.
MOVE itab_zycit371-um_qtd TO itab_zycit248_res-meins .
MODIFY itab_zycit248_res.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040O01
...
IF NOT /pws/zycie247c-j_1bnbm IS INITIAL.
SELECT text1 UP TO 1 ROWS FROM t604n INTO v_descr2_mt3
WHERE spras = sy-langu
AND land1 = 'BR'
AND steuc = /pws/zycie247c-j_1bnbm. "#EC CI_SGLSELECT
ENDSELECT.
ENDIF.
ENDMODULE.
MODULE trata_screen_0223 OUTPUT.
CLEAR v_descr_0223.
* >> Início da exclusão: MODULE TRATA_SCREEN_0223
SELECT maktx UP TO 1 ROWS FROM makt INTO v_descr_0223
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_SCREEN_0223
IF /pws/zycie244-tipo NE 'N'.
SELECT SINGLE maktx FROM makt INTO v_descr_0223
* << Fim da inclusão
WHERE matnr = /pws/zycie248c-matnr
AND spras = sy-langu.
* >> Início da exclusão: MODULE TRATA_SCREEN_0223
ENDSELECT.
IF /pws/zycit321-c_comum EQ 'X' AND
/pws/zycie244-tipo EQ 'N' AND /pws/zycie244-modalidade EQ 'S'.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_SCREEN_0223
ELSE.
* << Fim da inclusão
SELECT SINGLE descr FROM /pws/zycit368 INTO v_descr_0223
WHERE nrseq = /pws/zycie248c-matnr.
ENDIF.
ENDMODULE.
MODULE preenche_screen_0223 OUTPUT.
/pws/zycie248c-matnr = itab_zycit248_res-matnr .
/pws/zycie248c-meins = itab_zycit248_res-meins .
/pws/zycie248c-qtd_iten = itab_zycit248_res-qtd_iten.
/pws/zycie248c-waersfob = itab_zycit248_res-waersfob.
/pws/zycie248c-vlfob = itab_zycit248_res-vlfob .
...