CE PLUS - Nota 003192
Módulo: DRAWBACK
Funcionalidade: Ato Concessório
Data/Hora da Publicação: 07/03/2007 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:07:02
Descrição da Nota: CRIADA EXIT ATO005, AJUSTADO PROGRAMA PARA NÃO EXPLODIR A LISTA DESNEC.
Sintoma
Criada exit no form lista_tecnica, onde é selecionada a lista técnica para o calculo dos valores de
cobertura cambial. O programa esta realizando a explosão mesmo quando está não é necessaria ou já
foi realizada.
Solução
Criada exit no form lista_tecnica, onde é selecionada a lista técnica para o calculo dos valores de
cobertura cambial. Adicionada verificação para explodir a lista apenas se necessario.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03192 Data: 07/03/2007 Hora: 08:18:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03192
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00156
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03129 - 00001 - 6.0 - 00026 - CRIADA EXIT "ATO003"
----------------------------------------------------------------------------------------------------
CRIADA EXIT ATO005, AJUSTADO PROGRAMA PARA NÃO EXPLODIR A LISTA DESNEC.
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - ATO005 - ATO - CONCESSÓRIO - LISTA - TECNICA - CALCULO
CAMBIAL - COBERTURA - /PWS/SAPMZYCI040
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI040F02
REPS /PWS/MZYCI040TOP2
REPS /PWS/MZYCI040X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040F02
...
CLEAR: itab_zycit427-esgotado.
ENDIF.
MODIFY itab_zycit427.
ENDLOOP.
ENDFORM.
FORM lista_tecnica.
DATA: v_subrc LIKE sy-subrc ,
v_qtdbase LIKE itab_stko-bmeng,
v_flag(1) TYPE c ,
v_verificp2_temp .
* >> Início da inclusão: FORM LISTA_TECNICA
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI040'
'ATO005'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'ATO005' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa)
USING sy-ucomm
CHANGING e_subrc
IF FOUND .
IF e_subrc EQ '8'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
IF /pws/zycie244-importacao EQ 'X'.
EXIT.
ENDIF.
* << Fim da inclusão
REFRESH itab_lista.
CLEAR itab_lista.
CLEAR itab_stko. REFRESH itab_stko.
IF NOT itab_zycit247[] IS INITIAL.
SELECT * FROM stko INTO TABLE itab_stko
FOR ALL ENTRIES IN itab_zycit247
WHERE stlty EQ 'M'
AND stlnr EQ itab_zycit247-stlnr
AND stlal EQ itab_zycit247-stlal.
ENDIF.
LOOP AT itab_zycit247.
* >> Início da inclusão: FORM LISTA_TECNICA
READ TABLE itab_lista WITH KEY matexp = itab_zycit247-codmat.
IF sy-subrc EQ 0 .
CONTINUE.
ENDIF.
* << Fim da inclusão
CLEAR: it_stpox, it_stpox2, it_matcat.
REFRESH: it_stpox, it_stpox2, it_matcat.
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
EXPORTING
capid = 'PP01'
datuv = sy-datum
mktls = 'X'
mehrs = 'X'
mtnrv = itab_zycit247-codmat
stlal = itab_zycit247-stlal
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040TOP2
...
capid LIKE tc04-capid.
DATA: END OF it_materiais.
DATA: BEGIN OF i_final OCCURS 0,
insumo LIKE mara-matnr,
produto LIKE stpox-idnrk,
centro LIKE stpox-werks,
ncm LIKE marc-steuc,
qtunit TYPE /pws/zycit245-qtd_iten,
meins LIKE stpox-meins.
DATA: END OF i_final.
* >> Início da exclusão:
DATA : BEGIN OF itab_lista OCCURS 0 .
DATA : matexp LIKE mara-matnr ,
matimp LIKE mara-matnr ,
usagem LIKE /pws/zycit245-qtd_iten .
DATA : END OF itab_lista .
* << Fim da exclusão
DATA : BEGIN OF itab_vbfa OCCURS 0 .
DATA : vbelv LIKE vbfa-vbelv ,
vbeln LIKE vbfa-vbeln ,
posnn LIKE vbfa-posnn ,
posnv LIKE vbfa-posnv ,
vbtyp_v LIKE vbfa-vbtyp_v,
vbtyp_n LIKE vbfa-vbtyp_n.
DATA : END OF itab_vbfa .
DATA: BEGIN OF itab_resumo_ap OCCURS 0.
DATA: matnr LIKE /pws/zycit245-codcomp,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI040X01
...
DATA: markci(1) TYPE c .
DATA: END OF itab_zycit245_aux .
DATA: BEGIN OF itab_zycit247 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit247 .
DATA: markme(1) TYPE c .
DATA: END OF itab_zycit247 .
DATA: BEGIN OF itab_zycit247_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycit247 .
DATA: markme(1) TYPE c .
DATA: END OF itab_zycit247_aux .
* >> Início da inclusão:
DATA : BEGIN OF itab_lista OCCURS 0 .
DATA : matexp LIKE mara-matnr ,
matimp LIKE mara-matnr ,
usagem LIKE /pws/zycit245-qtd_iten .
DATA : END OF itab_lista .
* << Fim da inclusão
DATA: wa_zycit2382 LIKE /pws/zycie238 ,
wa_zycit2582 LIKE /pws/zycie258 .
DATA: v_nritem(5) TYPE c ,
v_verificp2(1) TYPE c VALUE 'N' ,
v_tcambial(16) TYPE c ,
v_tcode2 LIKE sy-tcode .
DATA: END OF COMMON PART.