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.
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.
...