CE PLUS - Nota 006014
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: LI
Data/Hora da Publicação: 25/02/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 11:52:53
Descrição da Nota: NA LI NÃO DEIXA CRIAR UMA LI SUBSTITUTIVA
Sintoma
Não está deixando salvar a li substitutiva.
aparece uma mensagem empresa - importador.
Solução
Não verificar se existe fatura criada
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06014 Data: 25/02/2008 Hora: 11:21:52
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06014
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00035
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NA LI NÃO DEIXA CRIAR UMA LI SUBSTITUTIVA
----------------------------------------------------------------------------------------------------
Palavras Chave:
LI SUBSTITUTIVA - SUBISTITUTIVA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI020F01
REPS /PWS/MZYCI020F02
REPS /PWS/MZYCI020O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F01
...
EXIT.
ENDIF.
IF NOT it_zycit003_aux[] IS INITIAL.
SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263
FOR ALL ENTRIES IN it_zycit003_aux
WHERE nrseq EQ it_zycit003_aux-nrseq
AND ebeln EQ it_zycit003_aux-ebeln
AND ebelp EQ it_zycit003_aux-ebelp.
ENDIF.
READ TABLE it_zycit003_aux INDEX 1.
* >> Início da exclusão: FORM VERIFICACAO_SUB
READ TABLE itab_zycit263 WITH KEY nrseq = it_zycit003_aux-nrseq
ebeln = it_zycit003_aux-ebeln
ebelp = it_zycit003_aux-ebelp.
* << Fim da exclusão
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit001
INTO wa_zycit001
WHERE nrseq EQ it_zycit003_aux-nrseq.
ENDIF.
LOOP AT it_zycit079.
READ TABLE it_zycit003_aux
WITH KEY ebeln = it_zycit079-ebeln
ebelp = it_zycit079-ebelp.
IF sy-subrc NE 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020F02
...
AND ebelp EQ it_zycit092-ebelp. "#EC CI_NOFIRST
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.
* >> Início da inclusão: FORM CARREGA_SALDO
SELECT SINGLE * FROM /pws/zycit078
WHERE nrseqli EQ itab_zycit079_util-NRSEQLI.
IF /pws/zycit078-nrseqlisub IS INITIAL.
* << Fim da inclusão
v_qtdemb = v_qtdemb + itab_zycit079_util-qtd_iten.
* >> Início da inclusão: FORM CARREGA_SALDO
ENDIF.
* << Fim da inclusão
ENDLOOP.
ENDIF.
v_slqtde = itab_ekpo-menge - v_qtdemb.
it_zycit092-slqtde = v_slqtde.
UPDATE /pws/zycit092 SET slqtde = it_zycit092-slqtde
menge = itab_ekpo-menge
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI020O01
...
MODULE verify_transm OUTPUT.
IF /pws/zycie078-nrli IS INITIAL AND NOT
* >> Início da exclusão: MODULE VERIFY_TRANSM
/pws/zycit078-nrli IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: MODULE VERIFY_TRANSM
/pws/zycit078-nrli IS INITIAL AND
v_flagsub IS INITIAL.
* << Fim da inclusão
/pws/zycie078-nrli = /pws/zycit078-nrli.
/pws/zycie078-dtreg = /pws/zycit078-dtreg.
ENDIF.
ENDMODULE.