CE PLUS - Nota 009966
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 17/03/2010 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:32:47
Descrição da Nota: NÃO EXIBE AS FATURAS APÓS A ELIMINAÇÃO DE TODAS AS FAT. DE MERCADORIA
Sintoma
Ao clicar no botão de fatura o programa de embarque informa que não existem faturas para o processo
após excluir todas as faturas de mercadoria e não permite acessar a lista de faturas mesmo existindo
faturas de outro tipo que não foram eliminadas. Ao tentar excluir o BL o programa informa que ainda
exite fatura vinculada ao processo e não permite a exclusão.
Solução
Ajustada chamada do programa de fatura para permitir o acesso enquanto existir fatura que não foi
eliminada
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09966 Data: 17/03/2010 Hora: 09:23:29
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09966
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00012
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08318 - 00001 - 7.0 - 00009 - DESENVOLVIMENTO NACIONALIZAÇÃO DE ADMISSÃO TEMPORÁRIA
----------------------------------------------------------------------------------------------------
NÃO EXIBE AS FATURAS APÓS A ELIMINAÇÃO DE TODAS AS FAT. DE MERCADORIA
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - ELIMINAR - BL - MERCADORIA - EMABRQUE
/PWS/SAPMZYCI001
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001F01
...
FORM call_fatura.
* >> Início da inclusão: FORM CALL_FATURA
DATA: v_exfat TYPE c.
* << Fim da inclusão
...
...
v_tabix = sy-tabix.
READ TABLE itab_zycit006 WITH KEY
nrseq_pgfat = itab_zycit263-nrseq_pgfat
eliminado = space.
IF sy-subrc NE 0.
DELETE itab_zycit263 INDEX v_tabix.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM CALL_FATURA
IF NOT /pws/zycit094-nrseqce IS INITIAL.
SELECT SINGLE * FROM /pws/zycit006 "#EC CI_NOFIELD
INTO itab_zycit006
WHERE nrseqce = /pws/zycit094-nrseqce
AND eliminado EQ space.
IF sy-subrc EQ 0.
v_exfat = 'X'.
ENDIF.
ENDIF.
* << Fim da inclusão
LOOP AT itab_zycit003 WHERE mark EQ 'X'.
IF v_lifnr NE itab_zycit003-lifnr.
MESSAGE i015 WITH text-070.
v_flag_loop = 'X'.
EXIT.
ENDIF.
IF v_moeda NE itab_zycit003-waers.
MESSAGE s015 WITH text-237 text-238.
v_flag_loop = 'X'.
EXIT.
...
...
v_subrc = 'X'.
ELSEIF /pws/zycie001-regime EQ '13'.
PERFORM gera_bl_nac.
v_subrc = 'X'.
ENDIF.
ENDIF.
IF v_subrc EQ 'X'.
LOOP AT itab_zycit263.
v_nrseq_pgfat = itab_zycit263-nrseq_pgfat.
ENDLOOP.
* >> Início da exclusão: FORM CALL_FATURA
IF sy-subrc EQ 0.
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_FATURA
IF sy-subrc EQ 0
OR v_exfat = 'X'.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit006 "#EC CI_NOFIELD
INTO /pws/zycit006
WHERE nrseq_pgfat = v_nrseq_pgfat.
/pws/zycie006-nrseq = /pws/zycit006-nrseq.
EXPORT /pws/zycie001-embarca
/pws/zycie001-nrseq
/pws/zycie001-bukrs
/pws/zycie001-werks
/pws/zycie001-waers
/pws/zycie001-inco1
...