Sintoma

Os dados de transporte em um embarque com nomeação vinculada só são atualizados depois de gravar na

pasta dados adicionais.

Solução

implementação de atualização dos dados intercompany.

Informações Complementares

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

Nota Número 04872 Data: 01/10/2007 Hora: 17:01:39

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

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

Nota Número              : 04872

Categoria                : Erro de Programa

Prioridade               : Baixa

Versão PW.CE             : 7.0

Pacote                   : 00003

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

Texto Rápido:

ATUALIZAÇÃO DOS DADOS ADICIONAIS DO EMBARQUE

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

Palavras Chave:

ATUALIZAÇÃO DADOS ADICIONAIS EMBARQUE

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

Objetos da nota:

REPS /PWS/MZYCE003F01

REPS /PWS/MZYCE003TIA

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

Modificações efetuadas em REPS /PWS/MZYCE003F01

...

             FROM /pws/zycet108

             INTO TABLE itab_zycet108

             FOR ALL ENTRIES IN itab_zycet002

             WHERE vbeln_va = itab_zycet002-vbeln_va AND

                   posnr    = itab_zycet002-aupos.

      IF sy-subrc = 0.

        itab_nrseqno[] = itab_zycet108[].

      ENDIF.

    ELSE.

      SELECT nrseqno

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

             nrseqtr

             ebeln

             ebelp

* << Fim da inclusão

             FROM /pws/zycet135

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

             INTO TABLE itab_nrseqno

* << Fim da exclusão

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

             INTO TABLE itab_pedidos_intercompany

* << Fim da inclusão

             FOR ALL ENTRIES IN itab_zycet002

             WHERE ebeln = itab_zycet002-ebeln

               AND ebelp = itab_zycet002-ebelp.

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

      IF sy-subrc = 0.

        itab_nrseqno[] = itab_pedidos_intercompany[].

      ENDIF.

* << Fim da inclusão

    ENDIF.

    IF NOT itab_nrseqno[] IS INITIAL.

      SORT itab_nrseqno.

      DELETE ADJACENT DUPLICATES FROM itab_nrseqno.

      SELECT nrseqno

             nrseqtr

             nrrota_tr

             nome_tr

             FROM /pws/zycet106

             INTO TABLE itab_zycet106

...

...

  ELSE.

    IF NOT /pws/zycee001-fldde IS INITIAL.

      CLEAR: /pws/zycee001-nrsd,

             /pws/zycee001-fldde.

    ENDIF.

  ENDIF.

  READ TABLE itab_zycet002 INDEX 1.

  IF sy-subrc EQ 0.

    IF itab_zycet312-transporte EQ 'N'.

      IF /pws/zycee046-nrseqno IS INITIAL.

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

        IF /pws/zycee001-tipo_emb NE 'D'.

* << Fim da inclusão

        READ TABLE itab_zycet108

                   WITH KEY vbeln_va = itab_zycet002-vbeln_va

                            posnr    = itab_zycet002-aupos.

        IF sy-subrc EQ 0.

          /pws/zycee046-nrseqno = itab_zycet108-nrseqno.

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

          ENDIF.

        ELSE.

          READ TABLE itab_pedidos_intercompany WITH KEY

            ebeln = itab_zycet002-ebeln

            ebelp = itab_zycet002-ebelp.

          IF sy-subrc EQ 0.

            /pws/zycee046-nrseqno = itab_pedidos_intercompany-nrseqno.

          ENDIF.

* << Fim da inclusão

        ENDIF.

      ENDIF.

      IF NOT /pws/zycee046-nrseqno IS INITIAL.

        CLEAR itab_zycet106.

        READ TABLE itab_zycet106

                   WITH KEY nrseqno = /pws/zycee046-nrseqno.

        IF     sy-subrc              EQ 0 AND

           NOT itab_zycet106-nrseqtr IS INITIAL.

          READ TABLE itab_zycet101

                     WITH KEY nrseqtr = itab_zycet106-nrseqtr.

...

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

Modificações efetuadas em REPS /PWS/MZYCE003TIA

...

          posnl    TYPE /pws/zycet002-posnl,

          vbeln_vf TYPE /pws/zycet002-vbeln_vf,

          posnr    TYPE /pws/zycet002-posnr,

        END OF itab_excluir.

  DATA: BEGIN OF itab_display OCCURS 0,

          vbeln    TYPE vbap-vbeln,

          posnr    TYPE vbap-posnr,

          vbeln_vl TYPE likp-vbeln,

          atufl    TYPE c,

        END OF itab_display.

* >> Início da inclusão:

  DATA: BEGIN OF itab_pedidos_intercompany OCCURS 0,

          nrseqno TYPE /pws/zycet135-nrseqno,

          nrseqtr TYPE /pws/zycet135-nrseqtr,

          ebeln   TYPE /pws/zycet135-ebeln,

          ebelp   TYPE /pws/zycet135-ebelp,

        END OF itab_pedidos_intercompany.

* << Fim da inclusão

DATA: wa_thead  TYPE thead,

      wa_thead2 TYPE thead.

TYPES: BEGIN OF ty_tline.

        INCLUDE STRUCTURE tline.

TYPES: END OF ty_tline.

TYPES: tf_tline TYPE TABLE OF ty_tline.

DATA: itab_tline  TYPE STANDARD TABLE OF ty_tline,

      itab_tline2 TYPE STANDARD TABLE OF ty_tline.

TYPES r_kschl TYPE RANGE OF kschl.