CE PLUS - Nota 008957
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 03/09/2009 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:20:36
Descrição da Nota: ALTERAR MENSAGEM EM NF
Sintoma
Solicitado alterar Mensagem em NF
Solução
Alterar descrição da mensagem.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08957 Data: 03/09/2009 Hora: 16:12:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08957
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00112
----------------------------------------------------------------------------------------------------
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
08855 - 00002 - 7.0 - 00010 - APÓS ALTERAÇÃO, NÃO LEVA REGISTRO DA DI NAS MENSAGENS DA NF.
----------------------------------------------------------------------------------------------------
ALTERAR MENSAGEM EM NF
----------------------------------------------------------------------------------------------------
Palavras Chave:
MENSAGEM NF
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
ENDIF.
it_zycee006-nrseq = /pws/zycie041-nfglobal.
it_zycee006-branch = wa_zycit001-j_1bbranch.
it_zycee006-indice = '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'.
* >> Início da exclusão: FORM MENSAGENS_NF
CONCATENATE 'Nr.Seq.DSI: ' '/'
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
CONCATENATE 'DSI/Nº Seq:' '/'
* << Fim da inclusão
itab_zycit085-nrseqdi ' Data:' v_dtreg
INTO it_zycee006-msg SEPARATED BY space.
ELSE.
* >> Início da exclusão: FORM MENSAGENS_NF
CONCATENATE 'Nr.Seq. DI:' itab_zycit085-nrdi '/'
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF
CONCATENATE 'DI/Nº Seq:' '/' itab_zycit085-nrdi '/'
* << Fim da inclusão
itab_zycit085-nrseqdi ' Data:' v_dtreg
...
...
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:' itab_zycit085-nrdi '/'
* << Fim da exclusão
* >> Início da inclusão: FORM MENSAGENS_NF_R
CONCATENATE 'DI/Nº Seq:' itab_zycit085-nrdi '/'
* << Fim da inclusão
itab_zycit085-nrseqdi ' Data:' v_dtreg
INTO it_zycee006-msg SEPARATED BY space.
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.
v_cont = 1.
...