CE PLUS - Nota 009014
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 16/09/2009 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:40:25
Descrição da Nota: ESTA QUEBRANDO ITEM GENÉRICO NA CRIAÇÃO DO ATO CONCESSÓRIO DE ISENÇÃO
Sintoma
Ao criar o ato concessório de isenção o programa está gerando mais de uma linha para o mesmo item
genérico.
Solução
Ajustado programa para utilizar o NCM cadastrado para o item genérico ao montar os dados da pasta
importação do ato concessório.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09014 Data: 16/09/2009 Hora: 09:57:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09014
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00114
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06470 - 00001 - 7.0 - 00005 - AJUSTES NO CALCULO DO VALOR E PESO LIQUIDO PARA COMPOSIÇÃO ISENÇÃ
07808 - 00002 - 7.0 - 00008 - CONVERSÃO PARA UNIDADE DE MEDIDA NCM
----------------------------------------------------------------------------------------------------
ESTA QUEBRANDO ITEM GENÉRICO NA CRIAÇÃO DO ATO CONCESSÓRIO DE ISENÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ATO - CONCESSÓRIO - ITEM - GENÉRICO - COMPOSIÇÃO - QUEBRA - NCM
/PWS/SAPMZYCI040
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
CHANGING e_subrc
IF FOUND .
IF e_subrc NE '0'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
IF itab_zycit245[] IS INITIAL.
SELECT * FROM /pws/zycit260 INTO TABLE itab_zycit260
WHERE nrseqd EQ /pws/zycie244-nrcompos.
* >> Início da inclusão: FORM BUSCA_DADOS_COMPOSICAO
v_exec = 'X'.
* << Fim da inclusão
REFRESH: itab_zycit260_a.
LOOP AT itab_zycit260 .
MOVE: itab_zycit260-reg_di TO itab_zycit260_a-reg_di,
itab_zycit260-adicao TO itab_zycit260_a-adicao,
itab_zycit260-ebeln TO itab_zycit260_a-ebeln ,
itab_zycit260-ebelp TO itab_zycit260_a-ebelp ,
itab_zycit260-ntgew TO itab_zycit260_a-ntgew,
itab_zycit260-ntgew_di TO itab_zycit260_a-ntgew_di,
itab_zycit260-vl_di TO itab_zycit260_a-vl_di,
itab_zycit260-vl_di_f TO itab_zycit260_a-vl_di_f,
...
...
itab_zycit260_a-vlseg_t TO itab_zycit245-vl_seg_t .
vbrgtmp = vbrgtmp + itab_zycit260-brgew.
vntgtmp = vntgtmp + itab_zycit260-ntgew.
itab_zycit245-qtd_ncm = itab_zycit245-qtd_tot.
itab_zycit245-um_ncm = itab_zycit260_a-meins.
PERFORM converte_um_ncm USING itab_zycit260_a-codcomp
CHANGING itab_zycit245-um_ncm
itab_zycit245-werks
itab_zycit245-qtd_ncm.
IF /pws/zycit321-it_ge EQ 'X'.
* >> Início da inclusão: FORM BUSCA_DADOS_COMPOSICAO
CLEAR itab_zycit433.
READ TABLE itab_zycit433 WITH KEY
grupo = itab_zycit260_a-grupo.
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycit433
INTO itab_zycit433
WHERE grupo EQ itab_zycit260_a-grupo.
APPEND itab_zycit433.
ENDIF.
itab_zycit245-j_1bnbm = itab_zycit433-j_1bnbm.
* << Fim da inclusão
CLEAR: itab_zycit245-codcomp.
ENDIF.
MOVE: itab_zycit245-ntgewt TO v_arred ,
v_arred TO itab_zycit245-ntgewt ,
itab_zycit245-qtd_tot TO v_arred ,
v_arred TO itab_zycit245-qtd_tot,
itab_zycit245-qtd_ncm TO v_arred ,
v_arred TO itab_zycit245-qtd_ncm,
itab_zycit245-netpr_t TO v_arred ,
v_arred TO itab_zycit245-netpr_t.
...
...
INTO itab_zycit247-j_1bnbm
WHERE matnr EQ itab_zycit247-codmat
AND werks EQ itab_zycit247-werks.
ENDSELECT.
MODIFY itab_zycit247.
ENDIF.
ENDLOOP.
PERFORM apura_totais_0206.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM BUSCA_DADOS_COMPOSICAO
CLEAR v_exec.
* << Fim da inclusão
PERFORM sel_iterm_import.
SELECT * FROM /pws/zycit250 APPENDING TABLE itab_zycit250
WHERE nrseqd EQ /pws/zycie244-nrcompos.
itab_zycit250-nrseqd = /pws/zycie244-nrseqd.
MODIFY itab_zycit250 TRANSPORTING nrseqd
WHERE nrseqd NE /pws/zycie244-nrseqd.
SORT itab_zycit250 BY codagrup.
DELETE ADJACENT DUPLICATES FROM itab_zycit250 COMPARING codagrup.
PERFORM carrega_di_composta2.
PERFORM carrega_re_composta2.
...
...
CLEAR: v_um_rez, v_um_ren, v_codpais, v_cod_umncm, v_umncm,
v_um_rez2, v_um_ren2.
* >> Início da exclusão: FORM CONVERTE_UM_NCM
IF /pws/zycit321-it_ge EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTE_UM_NCM
IF /pws/zycit321-it_ge EQ 'X' AND v_exec IS INITIAL.
* << Fim da inclusão
EXIT.
ENDIF.
CLEAR v_cod_umncm.
SELECT SINGLE a~steuc INTO v_j_1bnbm
FROM ( marc AS a INNER JOIN t001w AS b ON
a~werks EQ b~werks )
WHERE a~matnr EQ p_matnr
AND a~steuc NE space
AND b~land1 EQ t001-land1. "#EC CI_BUFFJOIN
IF sy-subrc EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040X01
...
* >> Início da inclusão:
DATA v_exec TYPE c.
* << Fim da inclusão
DATA: END OF COMMON PART.