CE PLUS - Nota 007704
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 04/12/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 10:04:24
Descrição da Nota: TRATA EXCLUSÃO DO NUMERO DA LI E DATA DE REGISTRO
Sintoma
Ao alterar o numero da LI ou a data da DI após salvar o registro as informações retornam a ficar
como estavam salvas na tabela anteriormente.
Solução
Ajustado programa para não devolver o numero da LI e o registro quando estes forem excluidos.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07704 Data: 04/12/2008 Hora: 08:26:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07704
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03556 - 00002 - 7.0 - 00001 - ERRO NOS TEXTOS DA LI E AO VERIFICAR SISCOMEX DA LI NÃO ATUALIZA
06014 - 00001 - 7.0 - 00004 - NA LI NÃO DEIXA CRIAR UMA LI SUBSTITUTIVA
07603 - 00003 - 7.0 - 00007 - BLOQUEIO DO ITEM DO PEDIDO NA SELEÇÃO DO PROGRAMA DE LI/PLI/LSI
----------------------------------------------------------------------------------------------------
TRATA EXCLUSÃO DO NUMERO DA LI E DATA DE REGISTRO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CABEÇALHO - ALTERAÇÃO - LI - NUMERO - LICENCIAMENTO - DATA - REGISTRO
/PWS/SAPMZYCI020
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
IF NOT v_flag IS INITIAL.
wa_zycit078_aux2-nrlisub = /pws/zycie078-nrli.
wa_zycit078_aux2-nrseqlisub = /pws/zycie078-nrseqli.
MODIFY /pws/zycit078 FROM wa_zycit078_aux2.
ENDIF.
CONCATENATE /pws/zycie078-steuc1(4) /pws/zycie078-steuc1+5(2)
/pws/zycie078-steuc1+8(2) INTO v_steuc1.
/pws/zycie078-steuc2 = v_steuc1.
MODIFY /pws/zycit078 FROM /pws/zycie078.
MOVE-CORRESPONDING /pws/zycie078 TO wa_zycit078.
* >> Início da inclusão: FORM SAVE
MOVE-CORRESPONDING /pws/zycie078 TO /pws/zycit078.
* << Fim da inclusão
LOOP AT it_vincula_aux.
IF /pws/zycie078-tpli EQ 'N'.
PERFORM vincula_li.
ELSEIF /pws/zycie078-tpli EQ 'S'.
PERFORM vincula_lsi.
ENDIF.
ENDLOOP.
CLEAR it_vincula.
REFRESH it_vincula.
PERFORM: salva_forn ,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
FORM carrega_saldo.
* >> Início da inclusão: FORM CARREGA_SALDO
data: wa_zycie078 type /pws/zycit078.
* << Fim da inclusão
...
...
ENDIF.
LOOP AT it_zycit092.
CLEAR: itab_ekpo, itab_zycit079_util.
READ TABLE itab_ekpo WITH KEY ebeln = it_zycit092-ebeln
ebelp = it_zycit092-ebelp.
IF sy-subrc EQ 0.
CLEAR v_qtdemb.
LOOP AT itab_zycit079_util WHERE ebeln EQ it_zycit092-ebeln
AND ebelp EQ it_zycit092-ebelp.
SELECT SINGLE * FROM /pws/zycit078
* >> Início da inclusão: FORM CARREGA_SALDO
into wa_zycie078
* << Fim da inclusão
WHERE nrseqli EQ itab_zycit079_util-nrseqli.
* >> Início da exclusão: FORM CARREGA_SALDO
IF /pws/zycit078-nrseqlisub IS INITIAL AND
/pws/zycit078-flagpli EQ /pws/zycie078-flagpli
AND /pws/zycit078-status NE 'CAN'
AND /pws/zycit078-status NE 'INA' .
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_SALDO
IF wa_zycit078-nrseqlisub IS INITIAL AND
wa_zycit078-flagpli EQ /pws/zycie078-flagpli
AND wa_zycit078-status NE 'CAN'
AND wa_zycit078-status NE 'INA' .
* << Fim da inclusão
v_qtdemb = v_qtdemb + itab_zycit079_util-qtd_iten.
ENDIF.
ENDLOOP.
ENDIF.
v_slqtde = itab_ekpo-menge - v_qtdemb.
it_zycit092-slqtde = v_slqtde.
it_zycit092-menge = itab_ekpo-menge.
UPDATE /pws/zycit092 SET slqtde = it_zycit092-slqtde
menge = itab_ekpo-menge
WHERE ebeln = it_zycit092-ebeln
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
MODULE verify_transm OUTPUT.
IF /pws/zycie078-nrli IS INITIAL AND NOT
/pws/zycit078-nrli IS INITIAL AND
v_flagsub IS INITIAL.
/pws/zycie078-nrli = /pws/zycit078-nrli.
/pws/zycie078-dtreg = /pws/zycit078-dtreg.
ENDIF.
* >> Início da inclusão: MODULE VERIFY_TRANSM
CLEAR: /pws/zycit078.
* << Fim da inclusão
ENDMODULE.
...