CE PLUS - Nota 000581
Módulo: DRAWBACK
Funcionalidade: Apropriação
Data/Hora da Publicação: 04/01/2006 00:00:00
Data/Hora Última Alteração: 17/02/2011 13:01:21
Descrição da Nota: TRATAMENTO DE INSUMO ALTERNATIVO NA VINCULAÇÃO DO PEDIDO.
Sintoma
O programa de vinculação não concidera os insumos alternativos para
realizar as vinculações.
Solução
Ajustar programa para tratamento dos insumos alternativos.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00581 Data: 04/01/2006 Hora: 08:54:41
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00581
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
TRATAMENTO DE INSUMO ALTERNATIVO NA VINCULAÇÃO DO PEDIDO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO - PEDIDO - INSUMO - ALTERNATIVO
/PWS/SAPMZYCI068
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI068F01
REPS /PWS/MZYCI068TOP
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI068F01
...
ENDIF.
ELSE.
ENDIF.
ENDFORM.
FORM monta_376_apr.
* >> Início da inclusão: FORM MONTA_376_APR
IF NOT itab_ekpo[] IS INITIAL.
CLEAR: itab_zycit433. REFRESH itab_zycit433.
SELECT * FROM /pws/zycit433 INTO TABLE itab_zycit433
FOR ALL ENTRIES IN itab_atos
WHERE matnr EQ itab_atos-matnr.
ENDIF.
* << Fim da inclusão
LOOP AT itab_ekpo.
READ TABLE itab_zycit376 WITH KEY
ebeln = itab_ekpo-ebeln
ebelp = itab_ekpo-ebelp.
IF sy-subrc EQ 0.
...
...
ENDIF.
IF /pws/zycit321-apr_imp NE 'X'.
READ TABLE itab_atos WITH KEY matnr = itab_ekpo-matnr
j_1bnbm = itab_ekpo-j_1bnbm.
IF sy-subrc NE 0.
* >> Início da inclusão: FORM MONTA_376_APR
READ TABLE itab_zycit433 WITH KEY
matnr_alt = itab_ekpo-matnr.
IF sy-subrc NE 0.
* << Fim da inclusão
CONTINUE.
* >> Início da inclusão: FORM MONTA_376_APR
ENDIF.
* << Fim da inclusão
ENDIF.
...
...
ENDIF.
ENDLOOP.
ENDIF.
ENDFORM.
FORM move_atos.
* >> Início da inclusão: FORM MOVE_ATOS
DATA: BEGIN OF itab_mat_t OCCURS 0.
DATA: matnr LIKE mara-matnr.
DATA: END OF itab_mat_t.
* << Fim da inclusão
itab_atos_t[] = itab_atos[].
IF /pws/zycit321-apr_imp IS INITIAL.
* >> Início da exclusão: FORM MOVE_ATOS
DELETE itab_atos_t WHERE matnr NE itab_zycit376_t-matnr.
* << Fim da exclusão
* >> Início da inclusão: FORM MOVE_ATOS
CLEAR: itab_zycit433. REFRESH itab_zycit433.
SELECT * FROM /pws/zycit433 INTO TABLE itab_zycit433
WHERE matnr_alt EQ itab_zycit376_t-matnr.
itab_zycit433-matnr_alt = itab_zycit376_t-matnr.
itab_zycit433-matnr = itab_zycit376_t-matnr.
APPEND itab_zycit433.
LOOP AT itab_atos_t.
READ TABLE itab_zycit433 WITH KEY
matnr = itab_atos_t-matnr.
IF sy-subrc NE 0.
DELETE itab_atos_t WHERE matnr eq itab_atos_t-matnr.
ENDIF.
ENDLOOP.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM vincula_ato.
READ TABLE itab_atos_t WITH KEY marc = 'X'.
IF sy-subrc EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI068TOP
...
itab_lfa1 LIKE lfa1 OCCURS 0 WITH HEADER LINE,
itab_zycit245 LIKE /pws/zycit245 OCCURS 0 WITH HEADER LINE,
itab_zycit100 LIKE /pws/zycit100 OCCURS 0 WITH HEADER LINE,
itab_zycit079 LIKE /pws/zycit079 OCCURS 0 WITH HEADER LINE,
itab_zycit078 LIKE /pws/zycit078 OCCURS 0 WITH HEADER LINE,
* >> Início da inclusão:
itab_zycit433 LIKE /pws/zycit433 OCCURS 0 WITH HEADER LINE,
* << Fim da inclusão
itab_atos_t LIKE itab_atos OCCURS 0 WITH HEADER LINE.
DATA: v_marc ,
ok_code LIKE sy-ucomm ,
v_qtd_tot LIKE /pws/zycit245-qtd_tot ,
v_icon LIKE icon-id ,
...