CE PLUS - Nota 003018
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 01/02/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:09:38
Descrição da Nota: EMBARQUE NÃO TEM FATURA, MAS O SISTEMA INFORMA QUE EXISTE FATURA.
Sintoma
O EMBARQUE QUE ESTA CANCELADO NÃO TEM BL E NÃO TEM FATURA, MAS O SISTEMA INFORMA QUE EXISTE
FATURA.nÃO DEIXA DESVINCULAR O PEDIDO.
Solução
VERIFICAR AS DUAS TABELAS AO ELIMINAR ITENS.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03018 Data: 01/02/2007 Hora: 17:23:25
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03018
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00151
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02802 - 00001 - 6.0 - 00026 - NÃO ELIMINAR ITEN NO EMBARUQE SE EXISTIR PC OU DC
----------------------------------------------------------------------------------------------------
EMBARQUE NÃO TEM FATURA, MAS O SISTEMA INFORMA QUE EXISTE FATURA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
MENSAGEM DE ERRO - EMBARQUE SEM FATURA - ITENS FATURADOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001I01
...
MESSAGE w015 WITH text-344.
EXIT.
ENDIF.
SELECT SINGLE * FROM /pws/zycit026
WHERE nrseq EQ /pws/zycie001-nrseq
AND status EQ 'A'.
IF sy-subrc IS INITIAL.
MESSAGE w015 WITH text-345.
EXIT.
ENDIF.
* >> Início da inclusão: FORM trata_delp
IF NOT itab_zycit263[] IS INITIAL.
SELECT * FROM /pws/zycit006
INTO TABLE itab_zycit006
WHERE nrseq_pgfat EQ itab_zycit263-nrseq_pgfat.
ENDIF.
* << Fim da inclusão
READ TABLE itab_zycit263 WITH KEY
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp
eliminado = space.
IF sy-subrc NE 0.
CALL FUNCTION '/PWS/ZYCI_DEQUEUE_ZYCIT013'
EXPORTING
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
DELETE itab_zycit003 INDEX v_tabix.
CLEAR itab_zycit003.
ELSE.
* >> Início da inclusão: FORM trata_delp
READ TABLE itab_zycit006 WITH KEY
nrseq_pgfat = itab_zycit263-nrseq_pgfat
eliminado = space .
IF sy-subrc EQ 0 .
* << Fim da inclusão
MESSAGE w015 WITH text-043.
EXIT.
* >> Início da inclusão: FORM trata_delp
ELSE.
CALL FUNCTION '/PWS/ZYCI_DEQUEUE_ZYCIT013'
EXPORTING
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
DELETE itab_zycit003 INDEX v_tabix.
CLEAR itab_zycit003.
DELETE FROM /pws/zycit263
WHERE nrseq EQ itab_zycit263-nrseq
AND ebeln EQ itab_zycit263-ebeln
AND ebelp EQ itab_zycit263-ebelp
AND eliminado EQ space.
CLEAR itab_zycit263 . REFRESH itab_zycit263.
ENDIF.
* << Fim da inclusão
ENDIF.
MOVE:itab_zycit003-ebeln TO itab_zycit003_del-ebeln,
itab_zycit003-ebelp TO itab_zycit003_del-ebelp,
itab_zycit003-qtd_iten TO itab_zycit003_del-qtd_iten.
APPEND itab_zycit003_del.
ELSE.
MESSAGE w015 WITH text-190.
EXIT.
ENDIF.
ENDLOOP.
...