Sintoma

CHAMADO DE REFERÊNCIAL_- 323318 - trazer a manutenção para o ambiente F6Q

No embarque de importação acima a descrição do item referente ao meu pedido e item ficou com a nota

fiscal incorreta. O sistema pegou a descrição do primeiro item do embraque.

Solução

Atualização do programa da DI para correção ao carregar a descrição de materiais.

Informações Complementares

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

Nota Número 02557 Data: 30/11/2006 Hora: 11:34:51

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

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

Nota Número              : 02557

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00142

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ERRO AO CARREGAR DESCRIÇÃO DE MATERIAIS NA NOTA FISCAL

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

Palavras Chave:

DESCRIÇÃO DE MATERIAIS - DI - PEDIDO E ITEM COM DESCRIÇÃO ERRADA

DESCRIÇÃO NA NF

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

Objetos da nota:

REPS /PWS/MZYCI023F03

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

Modificações efetuadas em REPS /PWS/MZYCI023F03

...

        ittxt2-line = it_words_app-word.

        APPEND ittxt2.

      ENDLOOP.

    ENDIF.

  ENDLOOP.

  MOVE: ittxt2[] TO ittxt1[].

  CALL METHOD editor2->set_text_as_r3table EXPORTING table = ittxt1[].

  LEAVE TO SCREEN 0.

ENDFORM.

FORM read_text_especif CHANGING p_text.

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

  CLEAR:   rtextesp.

  REFRESH: rtextesp.

* << Fim da inclusão

  READ TABLE itab_stxl INDEX 1.

  CALL FUNCTION 'READ_TEXT'

    EXPORTING

      client                        = sy-mandt

      id                            = itab_stxl-tdid

      language                      = itab_stxl-tdspras

      name                          = v_name

      object                        = itab_stxl-tdobject

    TABLES

      lines                         = rtextesp

...

...

       id                            = 1

       language                      = 2

       name                          = 3

       not_found                     = 4

       object                        = 5

       reference_check               = 6

       wrong_access_to_archive       = 7

       OTHERS                        = 8.

  ENDIF.

  IF sy-subrc = 0.

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

    REFRESH rtexti.

* << Fim da inclusão

    APPEND rtexti.

    LOOP AT rtextesp.

      rtexti-tdformat = '*'.

      rtexti-tdline = rtextesp-tdline.

      APPEND rtexti.

    ENDLOOP.

  ELSE.

    CALL FUNCTION 'READ_TEXT'

         EXPORTING

              client                  = sy-mandt

...

...

        ENDIF.

        IF /pws/zycie100a-destncm IS INITIAL.

          /pws/zycie100a-destncm = /pws/zycit078-codncm.

        ENDIF.

      ENDIF.

    ENDIF.

  ENDIF.

ENDFORM.

FORM save_especificacao.

  LOOP AT itab_it.

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

    CLEAR rtexti. REFRESH rtexti.

* << Fim da inclusão

    CONCATENATE /pws/zycie085-nrseqdi

                   itab_it-nrseq

                   itab_it-ebeln

                   itab_it-ebelp

                   INTO v_txtki.

    CALL FUNCTION 'READ_TEXT'

         EXPORTING

              client                  = sy-mandt

              id                      = 'ZDSI'

              language                = sy-langu

...

...

  COMMIT WORK.

ENDFORM.

FORM delete_text.

  LOOP AT itab_it.

    CLEAR v_txtki.

    CONCATENATE /pws/zycie085-nrseqdi

                 itab_it-nrseq

                 itab_it-ebeln

                 itab_it-ebelp

                 INTO v_txtki.

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

    CLEAR rtexti. REFRESH rtexti.

* << Fim da inclusão

    CALL FUNCTION 'READ_TEXT'

         EXPORTING

              client                  = sy-mandt

              id                      = 'ZDSI'

              language                = sy-langu

              name                    = v_txtki

              object                  = '/PWS/CIDI'

         TABLES

              lines                   = rtexti

         EXCEPTIONS

...

...

              wrong_access_to_archive = 7

              OTHERS                  = 8.

    IF sy-subrc EQ 0.

      CALL FUNCTION 'DELETE_TEXT'

           EXPORTING

                id       = 'ZDSI'

                language = sy-langu

                name     = v_txtki

                object   = '/PWS/CIDI'.

    ENDIF.

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

    CLEAR rtexti. REFRESH rtexti.

* << Fim da inclusão

    CALL FUNCTION 'READ_TEXT'

         EXPORTING

              client                  = sy-mandt

              id                      = 'ZDSI'

              language                = sy-langu

              name                    = v_txtki

              object                  = '/PWS/CIDDI'

         TABLES

              lines                   = rtexti

         EXCEPTIONS

...