Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 16/12/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 10:12:37
Descrição da Nota: BLOQUEAR DESVINCULAÇÃO DO ATO CONCESS. QUANDO LI POSSUIR LICENCIAMENTO
Sintoma
O programa está permitindo desvincular o ato concessório mesmo com o numero de licenciamento
preenchido.
Solução
Ajustado programa para não permitir a desvinculação do ato concessório caso um dos seguintes campos
estiverem preenchidos: Licenciamento, Data do Registro e Data Deferimento
8.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09588 Data: 16/12/2009 Hora: 16:42:14
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09588
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
09506 - 00001 - 8.0 - 00002 - AO DESVINCULAR LI NÃO VERIFICA SE O EMBARQUE ESTÁ CORRETO
----------------------------------------------------------------------------------------------------
BLOQUEAR DESVINCULAÇÃO DO ATO CONCESS. QUANDO LI POSSUIR LICENCIAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LI - ATO - CONCESSÓRIO - DESVINCULAR - LICENCIAMENTO
/PWS/SAPMZYCI020
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
FORM desvin_li.
* >> Início da inclusão: FORM DESVIN_LI
CHECK NOT /pws/zycie078-nrseq IS INITIAL.
* << Fim da inclusão
IF NOT /pws/zycie078-nrli IS INITIAL.
IF /pws/zycie078-tpli EQ 'N'.
MESSAGE i015 WITH text-159 text-160.
ELSEIF /pws/zycie078-tpli EQ 'S'.
MESSAGE i015 WITH text-200 text-160.
ENDIF.
EXIT.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
FORM desvincula_ato.
* >> Início da inclusão: FORM DESVINCULA_ATO
IF NOT /pws/zycie078-nrli IS INITIAL OR
NOT /pws/zycie078-dtreg IS INITIAL OR
NOT /pws/zycie078-dtdef IS INITIAL.
MESSAGE i015 WITH text-159 text-160.
EXIT.
ENDIF.
* << Fim da inclusão
IF NOT /pws/zycie078-nrseq IS INITIAL.
SELECT SINGLE * FROM /pws/zycit003
WHERE nrseq EQ /pws/zycie078-nrseq
AND nrseqli EQ /pws/zycie078-nrseqli.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-458 text-459.
EXIT.
ENDIF.
ENDIF.
CLEAR: v_descr11.
...