CE PLUS - Nota 004037

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Embarque

Data/Hora da Publicação: 26/06/2007 00:00:00

Data/Hora Última Alteração: 03/02/2010 18:03:05

Descrição da Nota: EMBARQUE - DRILL DOWN PEDIDO

Sintoma

 

Não está exibindo Pedido pela transação ME23N, quando clica duas vezes sobre o número do Pedido na

Pasta de Itens do Embarque não abre o pedido.

 

Solução

 

Preencher com zeros à esquerda no campo Pedido (EBELN) para selecionar da Tabela EKKO.

Versões Tratadas

7.0

Informações Complementares

 

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

Nota Número 04037 Data: 26/06/2007 Hora: 09:17:44

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

 

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

Nota Número              : 04037

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00001

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

 

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

EMBARQUE - DRILL DOWN PEDIDO

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

Palavras Chave:

PEDIDO; DRILL DOWN

 

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

Objetos da nota:

REPS /PWS/MZYCI001I01

 

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

Modificações efetuadas em REPS /PWS/MZYCI001I01

 

...

ENDMODULE.

MODULE altera_itab_zycit003 INPUT.

  IF NOT /pws/zycie003-ebeln IS INITIAL.

    PERFORM altera_itab_zycit003.

  ENDIF.

ENDMODULE.

MODULE user_command_0100 INPUT.

ENDMODULE.

MODULE user_command_0102 INPUT.

  DATA v_ebeln1 LIKE rm06e-evrtn.

* >> Início da inclusão: MODULE USER_COMMAND_0102

  DATA: v_zeros(10) VALUE '0000000000'.

* << Fim da inclusão

  CASE okcode.

    WHEN 'P-'.

      IF ts_embar-activetab = 'FC_PED'.

        tc_ped-top_line = tc_ped-top_line - 10.

      ELSEIF ts_embar-activetab = 'FC_DA'.

        tc_da-top_line = tc_da-top_line - 10.

      ENDIF.

    WHEN 'P--'.

      IF ts_embar-activetab = 'FC_PED'.

        tc_ped-top_line = tc_ped-top_line - tc_ped-lines.

...

 

...

        tc_ped-top_line = tc_ped-top_line + tc_ped-lines.

      ELSEIF ts_embar-activetab = 'FC_DA'.

        tc_da-top_line = tc_da-top_line + tc_da-lines.

      ENDIF.

    WHEN 'POSI'.

      CALL SCREEN 0002 STARTING AT 3 3.

    WHEN 'SELE'.

      GET CURSOR FIELD v_campo VALUE v_valor.

      IF v_campo EQ '/PWS/ZYCIE003-EBELN'.

        i_ebeln = v_valor.

* >> Início da inclusão: MODULE USER_COMMAND_0102

        SHIFT i_ebeln RIGHT DELETING TRAILING space.

        OVERLAY i_ebeln WITH v_zeros.

* << Fim da inclusão

        SELECT SINGLE * FROM ekko

          INTO ekko

          WHERE ebeln = i_ebeln.

        IF sy-subrc EQ 0.

          i_ebeln = v_valor.

          IF ekko-bstyp = 'L'.

            v_ebeln1 = i_ebeln.

            SET PARAMETER ID 'VRT' FIELD v_ebeln1.

            PERFORM valida_trans USING 'ME33' 'skip'.

          ELSE.

...