CE PLUS - Nota 010071
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 16/04/2010 00:00:00
Data/Hora Última Alteração: 23/02/2011 10:09:27
Descrição da Nota: DESVINCULAR EMBARQUE
Sintoma
Ao tentar desvincular o embarque da LI o programa exibe a mensagem "LI não está vinculada." apesar
da LI ainda estar vinculada a um embarque.
Solução
Ajustado preenchimento do campo status na verificação da vinculação da LI, corrigida verificação de
existencia de DI para o processo na desvinculação do embarque e ajustado programa para atualizar a
tabela /pws/zycit078 ao realizar a desvinculação do embarque.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10071 Data: 16/04/2010 Hora: 09:08:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10071
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00017
----------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------
DESVINCULAR EMBARQUE
----------------------------------------------------------------------------------------------------
Palavras Chave:
DESVINCULAR - EMBARQUE - LI - VERIFICAÇÃO - ITENS - GRAVAR
/PWS/SAPMZYCI020
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
EXIT.
ENDIF.
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.
* >> Início da inclusão: FORM DESVIN_LI
ELSE.
/pws/zycie078-status = 'VIN'.
* << Fim da inclusão
ENDIF.
ENDIF.
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.
SELECT SINGLE * FROM /pws/zycit100
INTO /pws/zycit100
* >> Início da exclusão: FORM DESVIN_LI
WHERE nrseq = /pws/zycit001-nrseq. "#EC CI_NOFIRST
* << Fim da exclusão
* >> Início da inclusão: FORM DESVIN_LI
WHERE nrseq = /pws/zycie078-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc = 0.
SELECT SINGLE * FROM /pws/zycit085
INTO /pws/zycit085
WHERE nrseqdi = /pws/zycit100-nrseqdi.
ENDIF.
IF sy-subrc NE 0.
LOOP AT it_zycit079.
IF /pws/zycie078-tpli EQ 'N'.
UPDATE /pws/zycit003 SET nrseqli = space
nrli = space
...
...
IF /pws/zycie078-nrli IS INITIAL.
MOVE 'COM' TO /pws/zycie078-status .
ELSE.
MOVE 'VAL' TO /pws/zycie078-status.
ENDIF.
MOVE: space TO /pws/zycie078-nrseqdi,
space TO /pws/zycie078-nrdi ,
space TO /pws/zycie078-adicao ,
space TO /pws/zycie078-dtregdi,
space TO /pws/zycie078-nrseq .
* >> Início da inclusão: FORM DESVIN_LI
UPDATE /pws/zycit078
SET nrseqdi = /pws/zycie078-nrseqdi
nrdi = /pws/zycie078-nrdi
adicao = /pws/zycie078-adicao
dtregdi = /pws/zycie078-dtregdi
nrseq = /pws/zycie078-nrseq
status = /pws/zycie078-status
WHERE nrseqli EQ /pws/zycie078-nrseqli.
* << Fim da inclusão
PERFORM deleta_itens.
IF /pws/zycie078-tpli EQ 'N'.
MESSAGE s015 WITH text-162.
ELSEIF /pws/zycie078-tpli EQ 'S'.
MESSAGE s015 WITH text-202.
ENDIF.
ELSE.
MESSAGE i015 WITH text-384.
ENDIF.
ENDFORM.
...