Sintoma

O programa não leva o valor de II para as mensagens da nota fiscal.

Solução

Atualização do programa de nota fiscal para levar corretamente todos os valores das despesas

incuíndo o II no campo Mensagem da Nota Fiscal.

Informações Complementares

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

Nota Número 02295 Data: 23/10/2006 Hora: 11:15:35

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

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

Nota Número              : 02295

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00136

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AJUSTE PARA LEVAR O VALOR DE II NAS MENSAGENS DA NOTA FISCAL

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

Palavras Chave:

NOTA - FISCAL - MENSAGEM - II

/PWS/SAPMZYCI016

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

Objetos da nota:

REPS /PWS/MZYCI016F01

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

Modificações efetuadas em REPS /PWS/MZYCI016F01

...

        v_landx        LIKE t005t-landx     ,

        v_impim(15)    TYPE c VALUE space   ,

        v_despace(15) TYPE c VALUE space   ,

        v_nrseqm       LIKE /pws/zycit085-nrseqdi  ,

        v_tamanho(45)  TYPE c,

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

        v_valor_r(15)  TYPE c,

* << Fim da exclusão

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

        v_valor_r      TYPE /pws/zycit100-vlii,

* << Fim da inclusão

        v_ind          TYPE i,

        v_descr        LIKE /pws/zycit027-descr,

        v_vldp_x(15)   TYPE c,

        v_cont         TYPE i,

        v_vlpis       LIKE /pws/zycit100-vlpis   ,

...

...

      ENDIF.

    ENDIF.

  ENDIF.

  v_tamanho = '.............................................'.

  v_ind = v_cont + 1.

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

  CLEAR:v_valor_r.

  LOOP AT itab_zycit042_mark.

    READ TABLE itab_zycit100 WITH KEY

                                   nrseq = itab_zycit042_mark-nrseq

                                   ebeln = itab_zycit042_mark-ebeln

                                   ebelp = itab_zycit042_mark-ebelp  .

    IF sy-subrc EQ 0.

      v_valor_r = v_valor_r + itab_zycit100-vlii.

* << Fim da inclusão

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

  LOOP AT itab_zycit042_mark.

* << Fim da exclusão

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

    ENDIF.

* << Fim da inclusão

    READ TABLE itab_zycit003 WITH KEY nrseq = itab_zycit042_mark-nrseq

                                   ebeln = itab_zycit042_mark-ebeln

                                   ebelp = itab_zycit042_mark-ebelp.

    MOVE itab_zycit003 TO itab_zycit003_mark.

    APPEND itab_zycit003_mark.

  ENDLOOP.

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

  v_tamanho = '................'.

  CLEAR v_vldp_x.

  IF NOT v_valor_r IS INITIAL.

    MOVE : v_valor_r TO itab_zycit049_aux_r-vldp,

           itab_zycit049_aux_r-vldp TO v_vldp_x.

    CONCATENATE text-057 v_tamanho v_vldp_x

    INTO it_zycee006-msg SEPARATED BY space.

    APPEND it_zycee006.

  ENDIF.

  v_tamanho = '.............................................'.

* << Fim da inclusão

  CLEAR:   itab_zycit019, itab_zycit020, itab_zycit039.

  REFRESH: itab_zycit019, itab_zycit020, itab_zycit039.

  SELECT SINGLE land1 FROM t001 INTO t001-land1

            WHERE bukrs EQ /pws/zycie041-bukrs.

  SELECT * FROM /pws/zycit020 INTO TABLE itab_zycit020

...