CE PLUS - Nota 004597
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 03/09/2007 00:00:00
Data/Hora Última Alteração: 01/03/2010 17:44:33
Descrição da Nota: AJUSTE NA SELEÇÃO DO CODIGO NCM DOS INSUMOS DA LISTA POR AGRUPAMENTO
Sintoma
No momento da explosão da lista técnica por agrupamento na pasta 'Importações', 'Componentes', o
sistema não está buscando os códigos NCM de acordo com o código do componente.
Solução
Utilizar todos os centros informados no ato concessório para buscar o ncm dos insumos.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04597 Data: 03/09/2007 Hora: 08:28:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04597
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00010
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AJUSTE NA SELEÇÃO DO CODIGO NCM DOS INSUMOS DA LISTA POR AGRUPAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ATO - CONCESSÓRIO - NCM - INSUMO - LISTA - AGRUPAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI040F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
ENDIF.
REFRESH itab_zycit245.
LOOP AT itab_zycit245_collect.
CLEAR itab_zycit245.
MOVE-CORRESPONDING itab_zycit245_collect TO itab_zycit245.
APPEND itab_zycit245.
ENDLOOP.
IF NOT itab_zycit245[] IS INITIAL.
SELECT * FROM marc INTO TABLE itab_marc
FOR ALL ENTRIES IN itab_zycit245
* >> Início da exclusão: FORM VERIFICA_COMPONENTES_AGRUP
WHERE matnr EQ itab_zycit245-codcomp
AND werks EQ itab_zycit245-werks.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_COMPONENTES_AGRUP
WHERE matnr EQ itab_zycit245-codcomp.
* << Fim da inclusão
CLEAR itab_mbew. REFRESH itab_mbew.
SELECT * FROM mbew INTO TABLE itab_mbew
FOR ALL ENTRIES IN itab_zycit245
WHERE matnr EQ itab_zycit245-codcomp
AND bwkey EQ itab_zycit245-werks.
ENDIF.
CLEAR itab_zycit245_aux. REFRESH itab_zycit245_aux.
LOOP AT itab_zycit245.
itab_zycit245_aux[] = itab_zycit245[].
IF NOT itab_zycit245-nritem IS INITIAL.
...
...
SORT it_ckmlcr BY bdatj poper ASCENDING.
DESCRIBE TABLE it_ckmlcr LINES v_ilinhas.
READ TABLE it_ckmlcr INDEX v_ilinhas.
IF sy-subrc EQ 0.
itab_zycit245-netpr = it_ckmlcr-stprs / it_ckmlcr-peinh.
itab_zycit245-waers = wa_zycbt007-waersa.
ENDIF.
ENDIF.
READ TABLE itab_marc WITH KEY matnr = itab_zycit245-codcomp
werks = itab_zycit245-werks.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES_AGRUP
IF sy-subrc EQ 0.
MOVE itab_marc-steuc TO itab_zycit245-j_1bnbm.
ELSE.
LOOP AT itab_centros2.
READ TABLE itab_marc WITH KEY matnr = itab_zycit245-codcomp
werks = itab_centros2-werks.
* << Fim da inclusão
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES_AGRUP
MOVE itab_marc-steuc TO itab_zycit245-j_1bnbm.
EXIT.
ENDIF.
ENDLOOP.
IF itab_zycit245-j_1bnbm IS INITIAL.
LOOP AT itab_marc WHERE steuc NE space.
* << Fim da inclusão
MOVE itab_marc-steuc TO itab_zycit245-j_1bnbm.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES_AGRUP
EXIT.
ENDLOOP.
ENDIF.
* << Fim da inclusão
ENDIF.
itab_zycit245-netpr_t =
( itab_zycit245-netpr * itab_zycit245-qtd_tot ).
itab_zycit245-pctseg = v_segpct.
itab_zycit245-vl_seg_t =
( ( ( itab_zycit245-netpr + itab_zycit245-vl_frete )
* itab_zycit245-pctseg ) / 100 ) * itab_zycit245-qtd_tot.
IF itab_zycit245-nritem IS INITIAL.
PERFORM select_max_item_number2 CHANGING v_nritem.
itab_zycit245-nritem = v_nritem.
...