CE PLUS - Nota 009240
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 21/10/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 10:05:42
Descrição da Nota: NA LI NÃO VINCULA O ITEM CASO DE ALGUM ERRO NA VERIFICAÇÃO
Sintoma
Após tentar vincular o item na li apenas 1 vez e salvar a li, se deu algum erro e não vinculou o
item, não deixa mais. Se eu arrumo a li com dados que faltava e tento vincular de novo o item, o
item não aparece mais.
Solução
Não vincular o item a LI caso ele tenha alguma inconsistência
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09240 Data: 21/10/2009 Hora: 14:48:50
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09240
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
09048 - 00001 - 8.0 - 00001 - NECESSÁRIO EXIT DE LI NO BOTÃO DE VINCULAÇÃO DE ATO CONCESSÓRIO
----------------------------------------------------------------------------------------------------
NA LI NÃO VINCULA O ITEM CASO DE ALGUM ERRO NA VERIFICAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LI - VINCULAR - ITEM - VERIFICAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
WHERE nrseqlsi EQ wa_zycit078_aux2-nrseqli."#EC CI_NOFIELD
ENDIF.
IF sy-subrc NE 0.
EXIT.
ENDIF.
IF NOT it_zycit003_aux[] IS INITIAL.
SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263
FOR ALL ENTRIES IN it_zycit003_aux
WHERE nrseq EQ it_zycit003_aux-nrseq
AND ebeln EQ it_zycit003_aux-ebeln
* >> Início da exclusão: FORM VERIFICACAO_SUB
AND ebelp EQ it_zycit003_aux-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICACAO_SUB
AND ebelp EQ it_zycit003_aux-ebelp
AND eliminado <> 'X'.
* << Fim da inclusão
ENDIF.
READ TABLE it_zycit003_aux INDEX 1.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit001
INTO wa_zycit001
WHERE nrseq EQ it_zycit003_aux-nrseq.
ENDIF.
LOOP AT it_zycit079.
READ TABLE it_zycit003_aux
WITH KEY ebeln = it_zycit079-ebeln
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
REFRESH: it_log ,
it_vincula.
SELECT SINGLE * FROM /pws/zycit001
INTO wa_zycit001
WHERE nrseq EQ /pws/zycie078-nrseq.
IF NOT it_zycit003_aux[] IS INITIAL.
SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263
FOR ALL ENTRIES IN it_zycit003_aux
WHERE nrseq EQ it_zycit003_aux-nrseq
AND ebeln EQ it_zycit003_aux-ebeln
* >> Início da exclusão: FORM VINCULACAO
AND ebelp EQ it_zycit003_aux-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FORM VINCULACAO
AND ebelp EQ it_zycit003_aux-ebelp
AND eliminado <> 'X'.
* << Fim da inclusão
ENDIF.
LOOP AT it_zycit079.
READ TABLE it_zycit003_aux
WITH KEY ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp.
IF sy-subrc EQ 0.
READ TABLE itab_zycit263
WITH KEY nrseq = it_zycit003_aux-nrseq
ebeln = it_zycit003_aux-ebeln
ebelp = it_zycit003_aux-ebelp.
...
...
MESSAGE s015 WITH text-204 text-205.
EXIT.
ENDIF.
ENDLOOP.
IF v_check EQ '1'.
EXIT.
ENDIF.
/pws/zycie078-steuc1 = v_j_1bnbm_vin.
PERFORM load_descncm.
LOOP AT it_vincula WHERE marc EQ 'X'.
* >> Início da inclusão: FORM USER_COMMAND_0800
v_indice = sy-tabix.
* << Fim da inclusão
IF it_vincula-icon NE '@0A\QSTATUS COM ERRO@'.
READ TABLE it_zycit079 WITH KEY ebelp = it_vincula-ebelp
ebeln = it_vincula-ebeln.
MOVE: /pws/zycie078-nrseq TO it_zycit079-nrseq,
text-144 TO /pws/zycie078-status .
MODIFY it_zycit079 TRANSPORTING nrseq
WHERE ebelp = it_vincula-ebelp
AND ebeln = it_vincula-ebeln.
ELSE.
CLEAR it_zycit079.
REFRESH it_zycit079.
IF /pws/zycie078-tpli EQ 'N'.
MESSAGE s015 WITH text-142 text-143.
* >> Início da inclusão: FORM USER_COMMAND_0800
DELETE it_vincula INDEX v_indice.
* << Fim da inclusão
ELSEIF /pws/zycie078-tpli EQ 'S'.
MESSAGE s015 WITH text-142 text-199.
ENDIF.
EXIT.
ENDIF.
ENDLOOP.
LOOP AT it_vincula WHERE marc NE 'X'.
DELETE it_vincula INDEX sy-tabix.
DELETE it_zycit079 WHERE ebeln EQ it_vincula-ebeln
AND ebelp EQ it_vincula-ebelp.
...