CE PLUS - Nota 004707
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 13/09/2007 00:00:00
Data/Hora Última Alteração: 09/03/2010 10:40:02
Descrição da Nota: NF COM MAIS DE UM ITEM, GERA NOTA SOMENTE PARA O PRIMEIRO ITEM
Sintoma
Na criação da nota fiscal global, mesmo marcando todos os itens, o sistema não está criando
automático as NFs. O sistema cria apenas uma nota e volta para a tela inicial.
Todos os itens tem o mesmo tipo de nota.
Solução
limpar variáveis a cada novo item.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04707 Data: 13/09/2007 Hora: 14:07:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04707
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00012
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
NF COM MAIS DE UM ITEM, GERA NOTA SOMENTE PARA O PRIMEIRO ITEM
----------------------------------------------------------------------------------------------------
Palavras Chave:
NF - MAIS DE UM ITEM - CRIAÇÃO DE NOTA - PRIMEIRO ITEM
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
READ TABLE itab_zycit033 WITH KEY tpnf = itab_zycit042-tpnf
regio = space.
PERFORM itens_nf.
ENDIF.
ENDIF.
PERFORM peso_global_sep.
CLEAR itab_zycit033.
v_counter = v_counter + 1.
v_qtditem = wa_zycit048-qtd_item.
IF v_counter >= v_qtditem.
* >> Início da inclusão: FORM FILL_DATA_J1B1
clear: v_counter, v_tpnf, v_j_1bbranch, v_lifnr .
* << Fim da inclusão
EXIT.
ENDIF.
ENDLOOP.
IF sy-subrc NE 0.
EXIT.
ENDIF.
it_zycee005-transpnac = /pws/zycie041-transpnac.
APPEND it_zycee005.
PERFORM mensagens_nf.
LOOP AT it_zycet004.
...
...
READ TABLE itab_zycit033 WITH KEY tpnf = itab_zycit042-tpnf
regio = space.
PERFORM itens_nf.
ENDIF.
ENDIF.
CLEAR itab_zycit033.
PERFORM peso_global_sep.
v_counter = v_counter + 1.
v_qtditem = wa_zycit048-qtd_item.
IF v_counter >= v_qtditem.
* >> Início da inclusão: FORM FILL_DATA_J1B1
clear: v_counter, v_j_1bbranch, v_lifnr .
* << Fim da inclusão
EXIT.
ENDIF.
ENDLOOP.
it_zycee005-transpnac = /pws/zycie041-transpnac.
APPEND it_zycee005.
PERFORM mensagens_nf.
LOOP AT it_zycet004.
MESSAGE i019 WITH it_zycet004-descricao.
ENDLOOP.
IF it_zycet004 IS INITIAL.
...
...
docnum = '8888888888' )
AND mark = 'X'
AND processado = 'X'.
ADD 1 TO v_contitm.
itab_zycit042-itmnum = v_contitm * 10.
MODIFY itab_zycit042 INDEX sy-tabix.
PERFORM atualiza_dados_nota.
ENDLOOP.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM FILL_DATA_J1B1
IF sy-subrc = 0 OR v_modalidade = '99' OR
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATA_J1B1
IF v_modalidade = '99' OR
* << Fim da inclusão
( t001-land1 EQ 'AR' OR t001-land1 EQ 'CL' ).
IF v_modalidade = '99' AND
v_libera IS INITIAL.
it_zycet005-tcode = text-065.
it_zycet005-tabela = text-014.
it_zycet005-cpochv = /pws/zycie041-nfglobal.
it_zycet005-tpmsg = 'S'.
it_zycet005-belnr = '9999999999'.
APPEND it_zycet005.
ELSEIF t001-land1 EQ 'AR' OR t001-land1 EQ 'CL'.
...