CE PLUS - Nota 007750
Módulo: DRAWBACK
Funcionalidade: Forecast
Data/Hora da Publicação: 11/12/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:32:53
Descrição da Nota: EXPLOSÃO DA LISTA TÉCNICA POR AGRUPAMENTO
Sintoma
Nos processos com mais de um item o programa esta explodindo apenas a lista técnica do primeiro
material.
Solução
Atualização da explosão da lista tecnica por agrupamento no forecast.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07750 Data: 11/12/2008 Hora: 08:24:37
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07750
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04486 - 00001 - 7.0 - 00002 - AJUSTE PARA TRATAR A QUANTIDADE BASE DA LISTA TÉCNICA POR AGRUPAM
----------------------------------------------------------------------------------------------------
EXPLOSÃO DA LISTA TÉCNICA POR AGRUPAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
FORECAST EXPLOSÃO LISTA TECNICA AGRUPAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI063 0001
REPS /PWS/MZYCI063F01
REPS /PWS/MZYCI063F03
REPS /PWS/MZYCI063I01
REPS /PWS/MZYCI063X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI063 0001
*Retirada a verificação de chave externa do campo /PWS/ZYCIE238-NRSEQD.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI063F01
...
ELSE.
v_verificp_merc = 'S'.
ENDIF.
SELECT * FROM /pws/zycit405 INTO TABLE itab_zycit405. "#EC CI_NOWHERE
SELECT * FROM /pws/zycit406 INTO TABLE itab_zycit406. "#EC CI_NOWHERE
SELECT * FROM /pws/zycit407 INTO TABLE itab_zycit407. "#EC CI_NOWHERE
v_verifvb = 'S'.
LOOP AT itab_exp.
CLEAR: it_stpox, it_stpox2, it_matcat.
REFRESH: it_stpox, it_stpox2, it_matcat.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES
IF NOT /pws/zycit321-ltopc IS INITIAL.
READ TABLE itab_compn_final WITH KEY agrup = itab_exp-agrup
werks = itab_exp-werks.
IF sy-subrc EQ 0.
CONTINUE.
ENDIF.
READ TABLE itab_compi_final WITH KEY agrup = itab_exp-agrup
werks = itab_exp-werks.
IF sy-subrc EQ 0.
CONTINUE.
ENDIF.
ELSE.
* << Fim da inclusão
READ TABLE itab_compn_final WITH KEY codmat = itab_exp-codmat
werks = itab_exp-werks.
IF sy-subrc EQ 0.
CONTINUE.
ENDIF.
READ TABLE itab_compi_final WITH KEY codmat = itab_exp-codmat
werks = itab_exp-werks.
IF sy-subrc EQ 0.
CONTINUE.
* >> Início da inclusão: FORM VERIFICA_COMPONENTES
ENDIF.
* << Fim da inclusão
ENDIF.
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
EXPORTING
capid = 'PP01'
datuv = sy-datum
mktls = 'X'
mehrs = 'X'
mtnrv = itab_exp-codmat
stlal = itab_exp-stlal
stlan = itab_exp-stlan
...
...
i_func = p_func
i_zexit = p_exit
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
ENDFORM.
* >> Início da inclusão:
FORM trata_sequencial.
WRITE /pws/zycie238-nrseqd TO /pws/zycie238-nrseqd RIGHT-JUSTIFIED.
OVERLAY /pws/zycie238-NRSEQD WITH '0000000000'.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI063F03
...
APPEND it_zycit285.
INSERT INTO /pws/zycit285 VALUES it_zycit285.
MOVE text-194 TO v_mensagem.
ENDIF.
IF sy-subrc EQ 0.
MESSAGE i015 WITH v_mensagem(42) v_mensagem+42(50).
ELSE.
MESSAGE e015 WITH text-196.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM TRATA_SEQUENCIAL
FORM trata_sequencial.
WRITE /pws/zycie244-nrseqd TO /pws/zycie244-nrseqd RIGHT-JUSTIFIED.
OVERLAY /pws/zycie244-nrseqd WITH '0000000000'.
ENDFORM.
* << Fim da exclusão
FORM trata_button_doc.
CONSTANTS: c_docimp LIKE /pws/zycet067-codmod VALUE 'D',
c_drw_is LIKE /pws/zycet067-progreq VALUE 'DRW'.
REFRESH: itab_forms.
SELECT *
FROM /pws/zycet067
INTO TABLE itab_forms
WHERE codmod EQ c_docimp AND
progreq EQ c_drw_is.
IF sy-subrc EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI063I01
...
USING tc_viab-current_line 4 v_ilinhas ok_code
CHANGING nextline.
tc_viab-top_line = nextline.
ENDCASE.
ENDMODULE.
MODULE user_command_0001 INPUT.
CASE ok_code.
WHEN 'BACK'.
LEAVE PROGRAM.
WHEN 'ENTE'.
* >> Início da inclusão: MODULE USER_COMMAND_0001
PERFORM trata_sequencial.
* << Fim da inclusão
PERFORM trata_button_ente.
ENDCASE.
ENDMODULE.
MODULE check_qtde_aditiv INPUT.
IF v_tcode EQ '/PWS/ZYCI040_N'.
IF /pws/zycie239-qtd_aditiv > /pws/zycie239-qtd_insumo.
MESSAGE e015 WITH text-044 text-045.
ENDIF.
ENDIF.
ENDMODULE.
...