CE PLUS - Nota 009158
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 07/10/2009 00:00:00
Data/Hora Última Alteração: 09/03/2010 17:40:49
Descrição da Nota: AO CRIAR NOTA FISCAL E ABORTAR O PROCESSO ESTA GRAVANDO DOCNUM
Sintoma
Ao selecionar 15 itens para criar duas notas uma com 10 e a outra com os outros 5 e abortar a
criação da primeira nota esta gravando o /pws/zycit042-docnum para todos os itens
Solução
Verificar se o belnr esta preenchido com o número da nova nota para gravar no Pw.CE a tabela
/pws/zycit042-docnum
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09158 Data: 07/10/2009 Hora: 15:27:29
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09158
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00118
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
AO CRIAR NOTA FISCAL E ABORTAR O PROCESSO ESTA GRAVANDO DOCNUM
----------------------------------------------------------------------------------------------------
Palavras Chave:
NOTA - FISCAL - GLOBAL - /PWS/ZYCIT042 - DOCNUM
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
CALL FUNCTION '/PWS/ZYCI_TRANSACAO_J1B1N'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = it_zycee005
t_itens = it_zycee007
t_campos = it_zycet004
t_zycet005 = it_zycet005
t_message = it_zycee006
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
CLEAR v_contitm.
LOOP AT itab_zycit042
WHERE nrseq EQ itab_zycit042_aux-nrseq
AND nfglobal EQ itab_zycit042_aux-nfglobal
AND tpnf EQ itab_zycit042_aux-tpnf
AND lifnr EQ itab_zycit042_aux-lifnr
AND j_1bbranch EQ itab_zycit042_aux-j_1bbranch
AND ( docnum IS initial OR
docnum = '9999999999' OR
docnum = '8888888888' )
AND mark = 'X'
AND processado = 'X'.
* >> Início da inclusão: FORM FILL_DATA_J1B1
IF it_zycee005-belnr IS INITIAL OR
it_zycee005-belnr = '0000000000'.
itab_zycit042-processado = ''.
itab_zycit042-mark = ''.
ENDIF.
* << Fim da inclusão
ADD 1 TO v_contitm.
itab_zycit042-itmnum = v_contitm * 10.
MODIFY itab_zycit042 INDEX sy-tabix.
PERFORM atualiza_dados_nota.
ENDLOOP.
ELSE.
CLEAR v_contitm.
LOOP AT itab_zycit042
WHERE nrseq EQ itab_zycit042_aux-nrseq
AND nfglobal EQ itab_zycit042_aux-nfglobal
AND tpnf EQ itab_zycit042_aux-tpnf
AND lifnr EQ itab_zycit042_aux-lifnr
AND j_1bbranch EQ itab_zycit042_aux-j_1bbranch
AND ( docnum IS initial OR
docnum = '9999999999' OR
docnum = '8888888888' )
AND mark = 'X'
AND processado = 'X'.
* >> Início da inclusão: FORM FILL_DATA_J1B1
IF it_zycee005-belnr IS INITIAL OR
it_zycee005-belnr = '0000000000'.
itab_zycit042-processado = ''.
itab_zycit042-mark = ''.
ENDIF.
* << Fim da inclusão
ADD 1 TO v_contitm.
itab_zycit042-itmnum = v_contitm * 10.
MODIFY itab_zycit042 INDEX sy-tabix.
PERFORM atualiza_dados_nota.
ENDLOOP.
ENDIF.
ENDIF.
IF v_modalidade = '99'
OR ( t001-land1 EQ 'AR' OR t001-land1 EQ 'CL' ).
IF v_modalidade = '99' AND
...