CE PLUS - Nota 007561
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Complementar
Data/Hora da Publicação: 12/11/2008 00:00:00
Data/Hora Última Alteração: 09/03/2010 15:41:04
Descrição da Nota: GRAVANDO APENAS O PRIMEIRO ITEM NA NOTA FISCAL COMPLEMENTAR
Sintoma
Está gravando apenas o primeiro item na nota fiscal complementar.
Solução
Ajustado programa para atualizar a tabela interna de documento quando ocorrer alteração do
sequencial.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07561 Data: 12/11/2008 Hora: 14:19:36
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07561
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
----------------------------------------------------------------------------------------------------
GRAVANDO APENAS O PRIMEIRO ITEM NA NOTA FISCAL COMPLEMENTAR
----------------------------------------------------------------------------------------------------
Palavras Chave:
ITEM - GRAVANDO - PRIMEIRO - NOTA - FISCAL - COMPLEMENTAR
/PWS/SAPMZYCI029 - SEQUENCIAL - ALTERA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI029F01
REPS /PWS/MZYCI029O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029F01
...
v_flag_nrseq = 'X'.
ENDIF.
ENDIF.
IF v_change_nrseq = 'X'.
itab_resum-nrseqc = /pws/zycie264-nrseqc.
MODIFY itab_resum TRANSPORTING nrseqc
WHERE nrseqnf EQ /pws/zycie264-nrseqnf .
itab_zycit265_c-nrseqc = /pws/zycie264-nrseqc.
MODIFY itab_zycit265_c TRANSPORTING nrseqc
WHERE nrseqnf EQ /pws/zycie264-nrseqnf .
* >> Início da inclusão: FORM SALVAR_DADOS
it_zycet005-cpochv = /pws/zycie264-nrseqc.
MODIFY it_zycet005 TRANSPORTING cpochv
WHERE tcode = text-003
AND tabela = text-004
AND belnr = it_zycee005-belnr
AND tpmsg = 'S'.
* << Fim da inclusão
ENDIF.
IF /pws/zycit048-sepnf = 'X'.
LOOP AT itab_zycit265_c
WHERE tpnf = itab_zycit265_c2-tpnf AND
lifnr = itab_zycit265_c2-lifnr AND
vldp_dif > 0 AND
nrseq = itab_zycit265_c2-nrseq AND
ebelp = itab_zycit265_c2-ebelp AND
ebeln = itab_zycit265_c2-ebeln.
MOVE itab_zycit265_c TO /pws/zycie265.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029O01
...
WHERE nrseq = /pws/zycie041a-nrseq AND
docnum = /pws/zycie041a-docnum AND
cancel NE 'X'.
PERFORM calcula_despesa.
ENDIF.
ENDIF.
LOOP AT itab_zycit265_c WHERE vldp_dif = 0.
itab_zycit265_c-processado = 'X'.
MODIFY itab_zycit265_c.
ENDLOOP.
* >> Início da inclusão: MODULE LOAD_DATA
DESCRIBE TABLE itab_zycit265_c LINES tc_nfc-lines.
* << Fim da inclusão
ENDMODULE.
MODULE atualiza_nfnum OUTPUT.
PERFORM atualiza_nfnum.
ENDMODULE.