Sintoma

Não sai o número do Ato vinculado a LI nas mgs da NF Remessa.

Solução

Novo tratamento para inserir ato concessório nas mensagens da NF Remessa.

Informações Complementares

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

Nota Número 11351 Data: 25/07/2011 Hora: 14:36:32

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

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

Nota Número              : 11351

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 8.0

Pacote                   : 00008

Agrupamento              : 00079

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

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

NÃO SAI O NÚMERO DO ATO VINCULADO A LI NAS MGS DA NF REMESSA.

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

Palavras Chave:

NF REMESSA - ATO CONCESSÓRIO - LI - VINCULAÇÃO

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

Objetos da nota:

REPS /PWS/MZYCI016F01

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

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

  SELECT * FROM /pws/zycit078

  INTO TABLE itab_zycit078

  FOR ALL ENTRIES IN itab_zycit003

   WHERE nrseqli = itab_zycit003-nrseqli.

  LOOP AT itab_zycit003.

    READ TABLE itab_zycit078

    WITH KEY nrseqli =  itab_zycit003-nrseqli.

    IF sy-subrc EQ 0.

      it_zycee006-msg = 'Pedido'.                           "#EC NOTEXT

      CONCATENATE it_zycee006-msg itab_zycit003-ebeln

      INTO it_zycee006-msg

      SEPARATED BY '-' .

      CONCATENATE it_zycee006-msg 'Item'                    "#EC NOTEXT

       INTO it_zycee006-msg

       SEPARATED BY space .

      CONCATENATE it_zycee006-msg itab_zycit003-ebelp

      INTO it_zycee006-msg

      SEPARATED BY '-'.

      CONCATENATE it_zycee006-msg 'Nº Ato Concessório'      "#EC NOTEXT

       INTO it_zycee006-msg

       SEPARATED BY ' /  ' .

      CONCATENATE it_zycee006-msg itab_zycit078-reg_drawback

      INTO it_zycee006-msg

      SEPARATED BY '-' .

      v_cont = v_cont + 1.

      it_zycee006-indice = v_cont.

      APPEND it_zycee006.

    ENDIF.

  ENDLOOP.

* << Fim da inclusão

  SELECT SINGLE *

    FROM /pws/zyglt369

    INTO wa_zyglt369

    WHERE bukrs  EQ /pws/zycit085-bukrs

     AND  branch EQ /pws/zycit085-j_1bbranch

     AND urfdesp EQ /pws/zycit085-urfdesp.

  IF sy-subrc EQ 0.

...