CE PLUS - Nota 008855
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 19/08/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:20:33
Descrição da Nota: APÓS ALTERAÇÃO, NÃO LEVA REGISTRO DA DI NAS MENSAGENS DA NF.
Sintoma
Após alteração, não leva registro da DI nas mensagens da NF.
Solução
Acrescentar registro da DI nas mensagens da NF.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08855 Data: 19/08/2009 Hora: 16:19:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08855
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00110
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08817 - 00001 - 7.0 - 00010 - AO CRIAR NF, NA MENSAGEM APARECE NÚMERO DO BL E NÃO MENCIONA DI/D
----------------------------------------------------------------------------------------------------
APÓS ALTERAÇÃO, NÃO LEVA REGISTRO DA DI NAS MENSAGENS DA NF.
----------------------------------------------------------------------------------------------------
Palavras Chave:
MENSAGENS - MENSAGEM NF - REGISTRO - DI
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
READ TABLE itab_zycit085 WITH KEY nrseqdi = v_nrseq.
IF sy-subrc NE 0.
CLEAR itab_zycit085.
ENDIF.
WRITE itab_zycit085-dtreg TO v_dtreg.
IF itab_zycit085-tpdi EQ 'S'.
CONCATENATE 'Nr.Seq.DSI: ' '/'
itab_zycit085-nrseqdi ' Data:' v_dtreg
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
ELSE.
* >> Início da exclusão: FORM MENSAGENS_NF
CONCATENATE 'Nr.Seq. DI:'
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
CONCATENATE 'Nr.Seq. DI:' itab_zycit085-nrdi '/'
* << Fim da inclusão
itab_zycit085-nrseqdi ' Data:' v_dtreg
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
ENDIF.
APPEND it_zycee006.
IF NOT itab_zycit003[] IS INITIAL.
SELECT nrseq embarca FROM /pws/zycit001 INTO TABLE itab_zycit001_msg
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq = itab_zycit003-nrseq.
ENDIF.
v_cont = 1.
...
...
READ TABLE itab_zycit085 WITH KEY nrseqdi = v_nrseq.
IF sy-subrc NE 0.
CLEAR itab_zycit085.
ENDIF.
WRITE itab_zycit085-dtreg TO v_dtreg.
IF itab_zycit085-tpdi EQ 'S'.
CONCATENATE 'Nr.Seq.DSI:'
itab_zycit085-nrseqdi ' Data:' v_dtreg
INTO it_zycee006-msg SEPARATED BY space.
ELSE.
* >> Início da exclusão: FORM MENSAGENS_NF_R
CONCATENATE 'Nr.Seq. DI:'
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
CONCATENATE 'Nr.Seq. DI:' itab_zycit085-nrdi '/'
* << Fim da inclusão
itab_zycit085-nrseqdi ' Data:' v_dtreg
INTO it_zycee006-msg SEPARATED BY space. "#EC NOTEXT
ENDIF.
APPEND it_zycee006.
IF NOT itab_zycit044[] IS INITIAL.
SELECT nrseq embarca FROM /pws/zycit001 INTO TABLE itab_zycit001_msg
FOR ALL ENTRIES IN itab_zycit044
WHERE nrseq = itab_zycit044-nrseq.
ENDIF.
...