Sintoma

Quando o Embarque é do tipo "D" (Embarque por Pedido de Compra) o "Status dos Itens do Embarque" na

pasta "Síntese de Status" não é atualizado.

Solução

Ajuste no programa para que o status dos itens seja preenchido quando Embarque por Pedido de Compra.

Informações Complementares

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

Nota Número 04387 Data: 09/08/2007 Hora: 18:30:24

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

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

Nota Número              : 04387

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00007

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ATUALIZAÇÃO DE STATUS DOS ITENS PARA EMBARQUE COM PEDIDO DE COMPRA

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

Palavras Chave:

STATUS, ITEM, EMBARQUE, DOCUMENTO, COMPRA, PEDIDO

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

Objetos da nota:

REPS /PWS/MZYCE003F01

REPS /PWS/MZYCE003F02

REPT /PWS/SAPMZYCE003

TABD /PWS/ZYCEE315

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

Modificações efetuadas em REPS /PWS/MZYCE003F01

...

  ENDIF.

  APPEND wa_status_cab TO itab_status_cab.

ENDFORM.

FORM monta_tabela_status_ite.

  CLEAR wa_status_ite.

  REFRESH itab_status_ite.

  LOOP AT itab_zycet002 WHERE saida   = 'X' OR

                              servico = 'X'.

    CLEAR: wa_status_ite.

    MOVE: itab_zycet002-vbeln_va TO wa_status_ite-vbeln_va,

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

          itab_zycet002-aupos    TO wa_status_ite-aupos.

* << Fim da exclusão

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

          itab_zycet002-aupos    TO wa_status_ite-aupos,

          itab_zycet002-ebeln    TO wa_status_ite-ebeln,

          itab_zycet002-ebelp    TO wa_status_ite-ebelp.

* << Fim da inclusão

    CLEAR: itab_vbuk,

           itab_vbup.

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

    IF NOT itab_zycet002-vbeln_va IS INITIAL.

* << Fim da inclusão

    READ TABLE itab_vbuk WITH KEY vbeln = itab_zycet002-vbeln_va

                         BINARY SEARCH.

    READ TABLE itab_vbup WITH KEY vbeln = itab_zycet002-vbeln_va

                                  posnr = itab_zycet002-aupos

                         BINARY SEARCH.

    MOVE-CORRESPONDING: itab_vbup TO wa_status_ite,

                        itab_vbuk TO wa_status_ite.

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

    ELSEIF NOT itab_zycet002-ebeln    IS INITIAL AND

               itab_zycet002-vbeln_vl IS INITIAL.

      MOVE: 'A' TO wa_status_ite-lfstk,

            'A' TO wa_status_ite-lfsta.

      IF itab_zycet002-vbeln_vf IS INITIAL.

        MOVE: 'A' TO wa_status_ite-fkstk,

              'A' TO wa_status_ite-fksta.

      ENDIF.

    ELSEIF NOT itab_zycet002-ebeln    IS INITIAL AND

           NOT itab_zycet002-vbeln_vl IS INITIAL.

      READ TABLE itab_vbuk WITH KEY vbeln = itab_zycet002-vbeln_vl

                           BINARY SEARCH.

      IF itab_vbuk-lfstk IS INITIAL.

        MOVE: 'A' TO wa_status_ite-lfstk.

      ELSE.

        MOVE: itab_vbuk-lfstk TO wa_status_ite-lfstk.

      ENDIF.

      READ TABLE itab_vbup WITH KEY vbeln = itab_zycet002-vbeln_vl

                                    posnr = itab_zycet002-posnl

                           BINARY SEARCH.

      IF itab_vbup-lfsta IS INITIAL.

        MOVE: 'A' TO wa_status_ite-lfsta.

      ELSE.

        MOVE: itab_vbup-lfsta TO wa_status_ite-lfsta.

      ENDIF.

    ENDIF.

* << Fim da inclusão

    IF     itab_zycet002-vbeln_vl IS INITIAL AND

       NOT itab_zycet002-vbeln_vf IS INITIAL.

      CLEAR: wa_status_ite-lfstk,

             wa_status_ite-lfsta.

      MOVE: itab_vbuk-fksak TO wa_status_ite-fkstk,

            itab_vbup-fksaa TO wa_status_ite-fksta.

    ELSE.

      CLEAR: itab_vbuk,

             itab_vbup.

      READ TABLE itab_vbuk WITH KEY vbeln = itab_zycet002-vbeln_vl

...

...

    IF itab_zycet002-status EQ 'C'.

      wa_status_ite-rvend = 'C'.

    ELSE.

      wa_status_ite-rvend = ' '.

    ENDIF.

    APPEND wa_status_ite TO itab_status_ite.

  ENDLOOP.

  SORT itab_status_ite.

  DELETE ADJACENT DUPLICATES

         FROM itab_status_ite

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

         COMPARING vbeln_va aupos.

* << Fim da exclusão

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

         COMPARING vbeln_va aupos

                   ebeln    ebelp.

* << Fim da inclusão

ENDFORM.

FORM atualiza_ordens_e_remessas.

  DATA: wa_zycet002  LIKE itab_zycet002,

        v_vbeln_va   TYPE /pws/zycet002-vbeln_va,

        v_vbeln_vl   TYPE /pws/zycet002-vbeln_vl,

        v_posnr_va   TYPE /pws/zycet002-aupos,

        v_posnr_vl   TYPE /pws/zycet002-posnl,

        v_ebelp      TYPE ekpo-ebelp,

        v_kwmeng     TYPE ekpo-menge,

        v_lfimg      TYPE ekpo-menge,

...

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

Modificações efetuadas em REPS /PWS/MZYCE003F02

...

  itab_fieldcat_cab-scrtext_m = itab_fieldcat_cab-reptext.

  itab_fieldcat_cab-scrtext_s = itab_fieldcat_cab-reptext.

  itab_fieldcat_cab-no_out    = 'X'.

  itab_fieldcat_cab-tech      = 'X'.

  itab_fieldcat_cab-outputlen = 1.

  itab_fieldcat_cab-just      = 'C'.

  APPEND itab_fieldcat_cab.

ENDFORM.

FORM preenche_fieldcat_ite.

  REFRESH itab_fieldcat_ite.

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

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

* << Fim da inclusão

  CLEAR itab_fieldcat_ite.

  itab_fieldcat_ite-col_pos   = 1.

  itab_fieldcat_ite-fieldname = 'VBELN_VA'.

  itab_fieldcat_ite-tabname   = '/PWS/ZYCET002'.

  itab_fieldcat_ite-datatype  = 'CHAR'.

  itab_fieldcat_ite-inttype   = 'C'.

  itab_fieldcat_ite-intlen    = 10.

  itab_fieldcat_ite-reptext   = 'Ordem Venda'(s12).

  itab_fieldcat_ite-ref_table = '/PWS/ZYCEE315'.

  itab_fieldcat_ite-dd_outlen = 10.

...

...

  itab_fieldcat_ite-intlen    = 6.

  itab_fieldcat_ite-reptext   = 'Item OV'(s13).

  itab_fieldcat_ite-ref_table = '/PWS/ZYCEE315'.

  itab_fieldcat_ite-dd_outlen = 10.

  itab_fieldcat_ite-scrtext_l = itab_fieldcat_ite-reptext.

  itab_fieldcat_ite-scrtext_m = itab_fieldcat_ite-reptext.

  itab_fieldcat_ite-scrtext_s = itab_fieldcat_ite-reptext.

  itab_fieldcat_ite-no_out    = ' '.

  itab_fieldcat_ite-key       = 'X'.

  itab_fieldcat_ite-outputlen = 6.

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

  itab_fieldcat_ite-lzero     = 'X'.

  itab_fieldcat_ite-just      = 'R'.

  APPEND itab_fieldcat_ite.

ELSE.

  CLEAR itab_fieldcat_ite.

  itab_fieldcat_ite-col_pos   = 1.

  itab_fieldcat_ite-fieldname = 'EBELN'.

  itab_fieldcat_ite-tabname   = '/PWS/ZYCET002'.

  itab_fieldcat_ite-datatype  = 'CHAR'.

  itab_fieldcat_ite-inttype   = 'C'.

  itab_fieldcat_ite-intlen    = 10.

  itab_fieldcat_ite-reptext   = 'Pedido de Compra'(514).

  itab_fieldcat_ite-ref_table = '/PWS/ZYCEE315'.

  itab_fieldcat_ite-dd_outlen = 10.

  itab_fieldcat_ite-scrtext_l = itab_fieldcat_ite-reptext.

  itab_fieldcat_ite-scrtext_m = itab_fieldcat_ite-reptext.

  itab_fieldcat_ite-scrtext_s = itab_fieldcat_ite-reptext.

  itab_fieldcat_ite-no_out    = ' '.

  itab_fieldcat_ite-key       = 'X'.

  itab_fieldcat_ite-outputlen = 16.

  itab_fieldcat_ite-lzero     = 'X'.

  itab_fieldcat_ite-just      = 'L'.

  APPEND itab_fieldcat_ite.

  CLEAR itab_fieldcat_ite.

  itab_fieldcat_ite-col_pos   = 2.

  itab_fieldcat_ite-fieldname = 'EBELP'.

  itab_fieldcat_ite-tabname   = '/PWS/ZYCET002'.

  itab_fieldcat_ite-datatype  = 'NUMC'.

  itab_fieldcat_ite-inttype   = 'N'.

  itab_fieldcat_ite-intlen    = 5.

  itab_fieldcat_ite-reptext   = 'Item Pedido'(s23).

  itab_fieldcat_ite-ref_table = '/PWS/ZYCEE315'.

  itab_fieldcat_ite-dd_outlen = 10.

  itab_fieldcat_ite-scrtext_l = itab_fieldcat_ite-reptext.

  itab_fieldcat_ite-scrtext_m = itab_fieldcat_ite-reptext.

  itab_fieldcat_ite-scrtext_s = itab_fieldcat_ite-reptext.

  itab_fieldcat_ite-no_out    = ' '.

  itab_fieldcat_ite-key       = 'X'.

  itab_fieldcat_ite-outputlen = 12.

* << Fim da inclusão

  itab_fieldcat_ite-lzero     = 'X'.

  itab_fieldcat_ite-just      = 'R'.

  APPEND itab_fieldcat_ite.

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

ENDIF.

* << Fim da inclusão

  CLEAR itab_fieldcat_ite.

  itab_fieldcat_ite-col_pos   = 3.

  itab_fieldcat_ite-fieldname = 'LFSTK'.

  itab_fieldcat_ite-tabname   = '1'.

  itab_fieldcat_ite-datatype  = 'CHAR'.

  itab_fieldcat_ite-inttype   = 'C'.

  itab_fieldcat_ite-intlen    = 1.

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

  itab_fieldcat_ite-reptext   = 'Rem. OV'(s14).

* << Fim da exclusão

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

  itab_fieldcat_ite-reptext   = 'Remessa'(s14).

* << Fim da inclusão

  itab_fieldcat_ite-ref_table = '/PWS/ZYCEE315'.

  itab_fieldcat_ite-ref_field = itab_fieldcat_ite-fieldname.

  itab_fieldcat_ite-dd_outlen = 1.

  itab_fieldcat_ite-domname   = 'STATV'.

  itab_fieldcat_ite-scrtext_l = itab_fieldcat_ite-reptext.

  itab_fieldcat_ite-scrtext_m = itab_fieldcat_ite-reptext.

  itab_fieldcat_ite-scrtext_s = itab_fieldcat_ite-reptext.

  itab_fieldcat_ite-no_out    = ' '.

  itab_fieldcat_ite-key       = ' '.

  itab_fieldcat_ite-outputlen = 11.

...

...

  itab_fieldcat_ite-outputlen = 11.

  itab_fieldcat_ite-just      = 'C'.

  APPEND itab_fieldcat_ite.

  CLEAR itab_fieldcat_ite.

  itab_fieldcat_ite-col_pos   = 5.

  itab_fieldcat_ite-fieldname = 'FKSTK'.

  itab_fieldcat_ite-tabname   = '1'.

  itab_fieldcat_ite-datatype  = 'CHAR'.

  itab_fieldcat_ite-inttype   = 'C'.

  itab_fieldcat_ite-intlen    = 1.

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

  itab_fieldcat_ite-reptext   = 'Fatur. OV'(s17).

* << Fim da exclusão

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

  itab_fieldcat_ite-reptext   = 'Faturamento'(s17).

* << Fim da inclusão

  itab_fieldcat_ite-ref_table = '/PWS/ZYCEE315'.

  itab_fieldcat_ite-ref_field = itab_fieldcat_ite-fieldname.

  itab_fieldcat_ite-dd_outlen = 1.

  itab_fieldcat_ite-domname   = 'STATV'.

  itab_fieldcat_ite-scrtext_l = itab_fieldcat_ite-reptext.

  itab_fieldcat_ite-scrtext_m = itab_fieldcat_ite-reptext.

  itab_fieldcat_ite-scrtext_s = itab_fieldcat_ite-reptext.

  itab_fieldcat_ite-no_out    = ' '.

  itab_fieldcat_ite-key       = ' '.

  itab_fieldcat_ite-outputlen = 11.

...

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

Modificações efetuadas em REPT /PWS/SAPMZYCE003

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: S14

Texto: (7 caracteres)

"Remessa"

Comprimento máximo: 7

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

Modificado símbolo de texto:

Idioma: PT

Símbolo: S17

Texto: (11 caracteres)

"Faturamento"

Comprimento máximo: 11

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

Incluído símbolo de texto:

Idioma: PT

Símbolo: S23

Texto: (11 caracteres)

"Item Pedido"

Comprimento máximo: 11

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

Modificações efetuadas em TABD /PWS/ZYCEE315

MODIFICAR ESTRUTURA: /PWS/ZYCEE315

DESCRIÇÃO BREVE: CE - Status do Embarque - Item

COMPONENTES NOVOS (INCLUIR APÓS O COMPONENTE AUPOS):

COMPONENTE:     TP. COMP:  CT.DD. COMP. CASAS DEC. DESCR.BREVE

EBELN           EBELN      CHAR   10    0          Nº documento de compra

EBELP           EBELP      NUMC   5     0          Nº item do documento de compra