CE PLUS - Nota 009506
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 03/12/2009 00:00:00
Data/Hora Última Alteração: 10/03/2010 11:25:33
Descrição da Nota: AO DESVINCULAR LI NÃO VERIFICA SE O EMBARQUE ESTÁ CORRETO
Sintoma
Ao desvincular LI não verifica se o embarque está correto e não abre o campo embarque para trocar
por outro.Não verifica se o embarque que está na li existe. E nem se a li está no embarque. Se a li
está no embarque não pode desvincular o ato.
Solução
Verificar se embarque existe antes de desvincular LI.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09506 Data: 03/12/2009 Hora: 11:43:34
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09506
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00125
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AO DESVINCULAR LI NÃO VERIFICA SE O EMBARQUE ESTÁ CORRETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LI - VINCULAR - EMBARQUE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
FORM desvin_li.
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.
* >> Início da inclusão: FORM DESVIN_LI
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 ne 0.
perform deleta_itens.
clear /pws/zycie078-nrseq .
EXIT.
ENDIF.
ENDIF.
* << Fim da inclusão
IF /pws/zycie078-status NE 'VIN'.
IF /pws/zycie078-tpli EQ 'N'.
MESSAGE i015 WITH text-161.
ELSEIF /pws/zycie078-tpli EQ 'S'.
MESSAGE i015 WITH text-201.
ENDIF.
EXIT.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
FORM desvincula_ato.
IF NOT /pws/zycie078-nrseq IS INITIAL.
* >> Início da inclusão: FORM DESVINCULA_ATO
SELECT SINGLE * FROM /pws/zycit003
WHERE nrseq EQ /pws/zycie078-nrseq
AND nrseqli EQ /pws/zycie078-nrseqli.
IF sy-subrc EQ 0.
* << Fim da inclusão
MESSAGE i015 WITH text-458 text-459.
EXIT.
* >> Início da inclusão: FORM DESVINCULA_ATO
ENDIF.
* << Fim da inclusão
ENDIF.
CLEAR: v_descr11.
MOVE: /pws/zycie078-nrseqd TO v_nrseqd ,
space TO /pws/zycie078-nrseqd ,
space TO /pws/zycie078-reg_drawback,
...