Sintoma

Respeitar a quebra de linha no campo especificacao

Solução

Tratar paraa respeitar a quebra de linha da siscomex.

Informações Complementares

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

Nota Número 12435 Data: 14/08/2012 Hora: 17:01:02

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

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

Nota Número              : 12435

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 9.0

Pacote                   : 00001

Agrupamento              : 00124

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

Referência às notas relacionadas:

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

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

RESPEITAR A QUEBRA DE LINHA NO CAMPO ESPECIFICACAO

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

Palavras Chave:

CAMPO ESPECIFICACAO - SISCOMEX - TRANSMISSÃO

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

Objetos da nota:

FUNC /PWS/ZYCI_TRANSFER_DI

TABD /PWS/ZYCIE100B

O executável do siscomex deve ser atualizado também .

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

Modificações efetuadas em TABD /PWS/ZYCIE100B

Ao final da estrutura, acrescentar os seguintes campos

Nome campo Elem.dados    Tab.verif. N CtDt Comp. Grupo

*<<Inicio Inclusão

EBELN      EBELN                      CHAR    10

EBELP      EBELP                      NUMC     5

ESPECIFIC  TEXT65                     CHAR    65

*<<Fim Inclusão

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

Modificações efetuadas em FUNC /PWS/ZYCI_TRANSFER_DI

*Na aba tabelas, ao final da lista, incluir como abaixo

Nome do parâmetro   Atrib.tipo   Tipo referência  opcional

IT_ESPECIFICACAO    LIKE         /PWS/ZYCIE100B

FUNCTION /pws/zyci_transfer_di .

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI

  CLEAR: it_especificacao.

  REFRESH it_especificacao.

* << Fim da inclusão

...

...

                  language                = 2

                  name                    = 3

                  not_found               = 4

                  object                  = 5

                  reference_check         = 6

                  wrong_access_to_archive = 7

                  OTHERS                  = 8.

        IF sy-subrc EQ 0.

          CLEAR: v_obs, v_i1.

          LOOP AT rtexti.

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI

            CONDENSE rtexti-tdline.

            CONCATENATE v_obs

                        rtexti-tdline

                        INTO v_obs SEPARATED BY space.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI

            LOOP AT rtexti.

              MOVE: i_nrseqdi TO it_especificacao-nrseqdi,

                    it_itens_di-adicao TO it_especificacao-adicao,

                    rtexti-tdline     TO it_especificacao-especific,

                    it_itens_di-ebeln to it_especificacao-ebeln,

                    it_itens_di-ebelp to it_especificacao-ebelp.

              APPEND it_especificacao.

            ENDLOOP.

* << Fim da inclusão

          ENDLOOP.

          it_resumoit_di-txtespec = v_obs(8000).

        ENDIF.

        SELECT SINGLE descr FROM /pws/zyglt204 INTO

  it_resumoit_di-umdesc

               WHERE msehi = it_resumoit_di-meins.

        CASE s_inco1_ci.

          WHEN 'C&F'.

            it_resumoit_di-vlreal =

    ( it_resumoit_di-vlreal + ( it_resumoit_di-vlfre_fat /

...

...

                    language                = 2

                    name                    = 3

                    not_found               = 4

                    object                  = 5

                    reference_check         = 6

                    wrong_access_to_archive = 7

                    OTHERS                  = 8.

          IF sy-subrc EQ 0.

            CLEAR: v_obs, v_i1.

            LOOP AT rtexti.

* >> Início da exclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI

              CONDENSE rtexti-tdline.

              CONCATENATE v_obs

                          rtexti-tdline

                          INTO v_obs SEPARATED BY space.

* << Fim da exclusão

* >> Início da inclusão: FUNCTION /PWS/ZYCI_TRANSFER_DI

              MOVE: i_nrseqdi TO it_especificacao-nrseqdi,

                    it_itens_di-adicao TO it_especificacao-adicao,

                    rtexti-tdline     TO it_especificacao-especific,

                    it_itens_di-ebeln to it_especificacao-ebeln,

                    it_itens_di-ebelp to it_especificacao-ebelp.

              APPEND it_especificacao.

* << Fim da inclusão

            ENDLOOP.

            it_resumoit_di-txtespec = v_obs(8000).

          ENDIF.

          SELECT SINGLE descr FROM /pws/zyglt204 INTO

...