CE PLUS - Nota 007565
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 13/11/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 15:39:29
Descrição da Nota: AO ELIMINAR ITEM DO PEDIDO, NÃO ELIMINA ITEM DE ADMISSÃO TEMPORÁRIA
Sintoma
Ao eliminar item do pedido, não elimina item de admissão temporária
Solução
verificar se há item de admissão temporária antes de eliminar item do pedido e eliminar item da
admissão temporária.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07565 Data: 13/11/2008 Hora: 11:58:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07565
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00007
Agrupamento : 00073
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AO ELIMINAR ITEM DO PEDIDO, NÃO ELIMINA ITEM DE ADMISSÃO TEMPORÁRIA
----------------------------------------------------------------------------------------------------
Palavras Chave:
EMBARQUE - PEDIDO DE COMPRAS - ELIMINAR ITEM - ADMISSÃO TEMPORÁRIA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F03
...
ENDIF.
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.
* >> Início da inclusão: FORM TRATA_DELP
IF ( /pws/zycie001-regime = '05' AND
/pws/zycie001-tpdecl = 'DI' ) .
READ TABLE itab_zycit374 WITH KEY
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc = 0.
DELETE itab_zycit374 WHERE
ebeln = itab_zycit003-ebeln AND
ebelp = itab_zycit003-ebelp.
ENDIF.
READ TABLE itab_zycit396 WITH KEY
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc = 0.
DELETE itab_zycit396 WHERE
ebeln = itab_zycit003-ebeln AND
ebelp = itab_zycit003-ebelp.
ENDIF.
ENDIF.
* << Fim da inclusão
DELETE itab_zycit003 INDEX v_tabix.
IF itab_zycit003[] IS INITIAL.
/pws/zycie001-werks = ''.
ENDIF.
CLEAR itab_zycit003.
ELSE.
READ TABLE itab_zycit006 WITH KEY
nrseq_pgfat = itab_zycit263-nrseq_pgfat
eliminado = space .
IF sy-subrc EQ 0 .
MESSAGE w015 WITH text-043.
EXIT.
ELSE.
CALL FUNCTION '/PWS/ZYCI_DEQUEUE_ZYCIT013'
EXPORTING
* >> Início da inclusão: FORM TRATA_DELP
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF ( /pws/zycie001-regime = '05' AND
/pws/zycie001-tpdecl = 'DI' ) .
READ TABLE itab_zycit374 WITH KEY
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc = 0.
DELETE itab_zycit374 .
ENDIF.
READ TABLE itab_zycit396 WITH KEY
* << Fim da inclusão
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
* >> Início da inclusão: FORM TRATA_DELP
IF sy-subrc = 0.
DELETE itab_zycit396.
ENDIF.
ENDIF.
* << Fim da inclusão
DELETE itab_zycit003 INDEX v_tabix.
CLEAR itab_zycit003.
...