Sintoma

Alteração mensagens DSI na NF

Solução

Alterar mensagem de NF.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 09093 Data: 25/09/2009 Hora: 14:26:17

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 09093

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00001

Agrupamento              : 00001

----------------------------------------------------------------------------------------------------

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

08963  - 00002 - 8.0    - 00001  - CORREÇÃO DA LINHA DE DESCRIÇÃO DA DI NAS MENSAGENS DA NOTA FISCAL

----------------------------------------------------------------------------------------------------

ALTERAÇÃO MENSAGENS DSI NA NF

----------------------------------------------------------------------------------------------------

Palavras Chave:

DI - DSI - NF - MENSAGEM

----------------------------------------------------------------------------------------------------

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 'DSI/Nº Seq:' '/'

* << Fim da exclusão

* >> Início da inclusão: FORM MENSAGENS_NF

    CONCATENATE 'DSI/Nº Seq:'  itab_zycit085-nrdi '/'

* << Fim da inclusão

                 itab_zycit085-nrseqdi '   Data:' v_dtreg

                 INTO it_zycee006-msg SEPARATED BY space.   "#EC NOTEXT

  ELSE.

    CONCATENATE 'DI/Nº Seq:' itab_zycit085-nrdi '/'

              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

...

...

  v_cont = v_cont + 1.

  it_zycee006-nrseq   = /pws/zycie043-nfremessa.

  it_zycee006-branch  = wa_zycit001-j_1bbranch.

  it_zycee006-indice  = v_cont.

  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_R

    CONCATENATE 'Nr.Seq.DSI:'

* << Fim da exclusão

* >> Início da inclusão: FORM MENSAGENS_NF_R

    CONCATENATE 'DSI/Nº Seq:' itab_zycit085-nrdi '/'

* << Fim da inclusão

                  itab_zycit085-nrseqdi '   Data:' v_dtreg

                  INTO it_zycee006-msg SEPARATED BY space.

  ELSE.

    CONCATENATE 'DI/Nº Seq:'  itab_zycit085-nrdi '/'

              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

...