Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 03/05/2012 14:57:50
Data/Hora Última Alteração: 03/05/2012 14:57:50
Descrição da Nota: LI BLOQUEIO ATO CONCESSÓRIO EXIBIÇÃO
Sintoma
A LI está bloqueando o ato concessório mesmo em modo de exibição
Solução
Verificação da transação da LI antes do bloqueio do ato concessório.
8.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12148 Data: 27/04/2012 Hora: 11:59:26
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12148
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00011
Agrupamento : 00113
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote Descrição Breve
07616 - 00001 - 7.0 - 00007 - VINCULAÇÃO DE ATO CONCESSÓRIO NA LI
----------------------------------------------------------------------------------------------------
Texto Rápido:
LI BLOQUEIO ATO CONCESSÓRIO EXIBIÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
/PWS/SAPMZYCI020
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
AND flagpli NE 'X'.
IF sy-subrc NE 0.
MESSAGE w015 WITH text-001.
EXIT.
ENDIF.
IF NOT /pws/zycie078-nrseqd IS INITIAL.
v_salvo_drawback = 'S'.
IF it_log[] IS INITIAL.
v_verficado = 'S'.
ENDIF.
* >> Início da inclusão: FORM CARREGA_DADOS
IF NOT sy-tcode EQ '/PWS/ZYCI020_E'.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCI_ENQUEUE_ZYCIT244'
EXPORTING
nrseqd = /pws/zycie078-nrseqd
EXCEPTIONS
foreign_lock = 1
system_failure = 2.
CASE sy-subrc.
WHEN 1.
MESSAGE i015 WITH text-455 text-456.
v_tcode = '/PWS/ZYCI020_E'.
WHEN 2.
MESSAGE a015 WITH text-153.
ENDCASE.
* >> Início da inclusão: FORM CARREGA_DADOS
ENDIF.
* << Fim da inclusão
ELSE.
CLEAR v_salvo_drawback.
ENDIF.
IF /pws/zycie078-tpli EQ 'N'.
CLEAR /pws/zycie078-tpni.
ENDIF.
MOVE: /pws/zycie078 TO wa_zycit078.
v_cgc = /pws/zycie078-cnpj.
WRITE: v_cgc TO v_cnpj.
PERFORM: mask,
...