Sintoma

Quando cria uma LI Substitutiva ele não leva os dados do campo especificação para a nova LI

Solução

Verificar se Exites informações no campo Especificação para Leva-las para a LI Substitutiva

Informações Complementares

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

Nota Número 07477 Data: 24/10/2008 Hora: 10:07:44

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

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

Nota Número              : 07477

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00007

Agrupamento              : 00070

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LEVAR OS DADOS DO CAMPO ESPECIFICAÇÃO PARA LI SUBSTITUTIVA

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

Palavras Chave:

DESEMBARAÇO - LI - ESPECIFICAÇÃO - SUBSTITUTIVA

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

Objetos da nota:

REPS /PWS/MZYCI020F01

REPS /PWS/MZYCI020F02

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

Modificações efetuadas em REPS /PWS/MZYCI020F01

...

                             p_tdid.

  p_wa_thead-tdobject   = '/PWS/ITLI'.

  p_wa_thead-tdname     = v_txtki.

  p_wa_thead-tdid       = 'ZTLI'.

  p_wa_thead-tdspras    = sy-langu.

  p_wa_thead-tdlinesize = 132.

ENDFORM.

FORM salva_v_esp.

  PERFORM preenche_thead USING wa_thead 'CE01'.

  IF NOT it_zycit079[] IS INITIAL.

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

    IF NOT rtexti[] IS INITIAL.

* << Fim da exclusão

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

    IF NOT rtexti[] IS INITIAL AND

       v_flagsub IS INITIAL.

* << Fim da inclusão

      CALL FUNCTION 'SAVE_TEXT'

           EXPORTING

                client    = sy-mandt

                header    = wa_thead

           IMPORTING

                newheader = wa_thead

           TABLES

                lines     = rtexti

           EXCEPTIONS

                id        = 1

...

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

Modificações efetuadas em REPS /PWS/MZYCI020F02

...

FORM fill_desc.

  DATA: v_matnr LIKE ekpo-matnr,

        v_mat(18)  TYPE c.

  IF /pws/zycie078-dtuserc IS INITIAL AND

     (  sy-tcode EQ '/PWS/ZYCI020_C'  OR

        sy-tcode EQ '/PWS/ZYCI020_I'  OR

        sy-tcode EQ '/PWS/ZYCI020_P'    ) .

    /pws/zycie078-dtuserc = sy-datum .

  ENDIF.

  CLEAR rtexti.

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

  IF NOT /pws/zycie078-nrseqlisuba IS INITIAL AND

    NOT v_flagsub IS INITIAL.

* << Fim da inclusão

  CONCATENATE it_zycit079-nrseqli it_zycit079-ebeln

 it_zycit079-ebelp INTO v_txtki.

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

      CALL FUNCTION 'READ_TEXT'

           EXPORTING

                client                  = sy-mandt

                id                      = 'ZTLI'

                language                = sy-langu

                name                    = v_txtki

                object                  = '/PWS/ITLI'

           TABLES

                lines                   = rtexti

           EXCEPTIONS

                id                      = 1

                language                = 2

                name                    = 3

                not_found               = 4

                object                  = 5

                reference_check         = 6

                wrong_access_to_archive = 7

                OTHERS                  = 8.

      IF sy-subrc NE 0.

        CONCATENATE /pws/zycie078-nrseqlisuba it_zycit079-ebeln

                    it_zycit079-ebelp INTO v_txtki.

      ENDIF.

  ELSE.

    CONCATENATE it_zycit079-nrseqli it_zycit079-ebeln

                it_zycit079-ebelp INTO v_txtki.

  ENDIF.

* << Fim da inclusão

  PERFORM preenche_thead USING wa_thead 'CE01'.

  CALL FUNCTION 'READ_TEXT'

       EXPORTING

            client                  = sy-mandt

            id                      = 'ZTLI'

            language                = sy-langu

            name                    = v_txtki

            object                  = '/PWS/ITLI'

       TABLES

            lines                   = rtexti

       EXCEPTIONS

            id                      = 1

            language                = 2

            name                    = 3

            not_found               = 4

            object                  = 5

            reference_check         = 6

            wrong_access_to_archive = 7

            OTHERS                  = 8.

  IF sy-subrc = 0.

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

    IF NOT /pws/zycie078-nrseqlisuba IS INITIAL AND

      NOT v_flagsub IS INITIAL.

          CONCATENATE it_zycit079-nrseqli it_zycit079-ebeln

                      it_zycit079-ebelp INTO v_txtki.

    ENDIF.

* << Fim da inclusão

    READ TABLE rtexti INDEX 1.

  ENDIF.

  IF rtexti IS INITIAL.

    CLEAR   rtexti.

    REFRESH rtexti.

    CALL FUNCTION '/PWS/ZYCI_TEXTO_DETALHE_ITEM'

      EXPORTING

        ebeln                = it_zycit079-ebeln

        ebelp                = it_zycit079-ebelp

        codeven              = 'LI'

...