CE PLUS - Nota 011248
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 16/06/2011 00:00:00
Data/Hora Última Alteração: 17/06/2011 14:05:58
Descrição da Nota: NECESSÁRIO EXIT PARA DESENVOLVIMENTO ESPECÍFICO.
Sintoma
Necessário exit para desenvolvimento específico.
Solução
Abertura de exit LI005 no programa /PWS/SAPMZYCI020 para selecionar itens
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11248 Data: 16/06/2011 Hora: 14:00:11
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11248
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00008
Agrupamento : 00074
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
11209 - 00001 - 8.0 - 00007 - A LI DEIXAVA VINCULAR COM NCMS DIFERENTES.
----------------------------------------------------------------------------------------------------
NECESSÁRIO EXIT PARA DESENVOLVIMENTO ESPECÍFICO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT - ESPECÍFICO - ZYGLT100 - LI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
FORM selecionar_itens.
* >> Início da exclusão: FORM SELECIONAR_ITENS
DATA: v_nolin TYPE i VALUE IS INITIAL,
v_lifnr LIKE /pws/zycie001-lifnr,
v_waers LIKE /pws/zycie001-waers,
v_inco1 LIKE /pws/zycie001-inco1,
v_cont TYPE i ,
v_erro_saldo TYPE c .
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_ITENS
CLEAR v_cont.
* << Fim da inclusão
...
...
OTHERS = 3.
IF sy-subrc EQ '1'.
v_mess_ped = 'X'.
DELETE itab_itens.
ENDIF.
ENDLOOP.
IF v_mess_ped EQ 'X'.
MESSAGE i015 WITH text-443.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SELECIONAR_ITENS
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI020'
'LI005'.
e_subrc = 0.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'LI005' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario) IN PROGRAM
(itab_zyglt100-programa) IF FOUND .
IF e_subrc EQ '8'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
IF e_subrc EQ 0.
* << Fim da inclusão
CLEAR itab_itens.
clear v_ncmdf .
READ TABLE itab_itens INDEX 1 .
MOVE: itab_itens-lifnr TO v_lifnr,
itab_itens-waers TO v_waers,
itab_itens-inco1 TO v_inco1,
itab_itens-waers TO /pws/zycie000-waers,
itab_itens-lifnr TO /pws/zycie000-lifnr.
LOOP AT itab_itens WHERE waers NE v_waers.
MESSAGE e015 WITH text-021.
...
...
ENDLOOP.
LOOP AT itab_itens WHERE lifnr NE v_lifnr.
MESSAGE e015 WITH text-023.
ENDLOOP.
MOVE itab_itens-j_1bnbm TO v_j1bnbm .
LOOP AT itab_itens WHERE j_1bnbm NE v_j1bnbm .
v_ncmdf = 'X'.
ENDLOOP.
IF v_ncmdf EQ 'X' .
MESSAGE e015 WITH text-073.
* >> Início da inclusão: FORM SELECIONAR_ITENS
ENDIF.
* << Fim da inclusão
ENDIF.
DESCRIBE TABLE itab_itens LINES v_nolin.
IF v_nolin IS INITIAL.
IF /pws/zycie078-nacion IS INITIAL.
MESSAGE e015 WITH text-033.
ENDIF.
ELSE.
MOVE: v_waers TO /pws/zycie078-waers,
v_lifnr TO /pws/zycie001-lifnr,
v_inco1 TO /pws/zycie078-inco1.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020X01
...
* >> Início da inclusão:
DATA: v_nolin TYPE i VALUE IS INITIAL,
v_lifnr LIKE /pws/zycie001-lifnr,
v_waers LIKE /pws/zycie001-waers,
v_inco1 LIKE /pws/zycie001-inco1,
v_erro_saldo TYPE c .
* << Fim da inclusão
DATA: END OF COMMON PART.