Módulo: DOC. EXPORTAÇÃO
Funcionalidade: Embarque
Data/Hora da Publicação: 04/09/2007 00:00:00
Data/Hora Última Alteração: 04/03/2010 11:04:45
Descrição da Nota: ALTERAÇÃO DA DESCRIÇÃO DA ABA DE ITENS NO EMBARQUE
Sintoma
Após modificar/exibir um embarque do tipo "D" (Embarque de Pedido de Compra) e sair utilizando o
botão "Voltar" e retornando para a tela de seleção de alteração/exibição de embarque, se informarmos
um outro sequencial de Embarque criado a partir de uma Ordem de Venda, o programa exibe a pasta de
itens com o nome de "Pedidos de Compra".
Solução
Ajustes para determinação correta da descrição a ser exibida na pasta de itens.
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04621 Data: 04/09/2007 Hora: 17:12:38
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04621
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
ALTERAÇÃO DA DESCRIÇÃO DA ABA DE ITENS NO EMBARQUE
----------------------------------------------------------------------------------------------------
Palavras Chave:
EMBARQUE, ABA, ITENS, DESCRIÇÃO, PEDIDO, ORDEM, PASTA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCE003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCE003F02
...
CHECK itab_zyglt100-zexit_ativa EQ 'X'.
CHECK NOT itab_zyglt100-formulario IS INITIAL.
CHECK NOT itab_zyglt100-programa IS INITIAL.
CLEAR sy-subrc.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
IF FOUND.
ENDFORM.
FORM muda_descricao_aba.
DATA: v_index TYPE sy-tabix.
* >> Início da exclusão: FORM MUDA_DESCRICAO_ABA
CHECK /pws/zycee001-tipo_emb CA 'DV'.
* << Fim da exclusão
READ TABLE itab_tabstrip WITH KEY level = 'HDR'
tabname = 'T/02'.
CHECK sy-subrc EQ 0.
v_index = sy-tabix.
* >> Início da inclusão: FORM MUDA_DESCRICAO_ABA
CASE /pws/zycee001-tipo_emb.
* << Fim da inclusão
* >> Início da exclusão: FORM MUDA_DESCRICAO_ABA
IF /pws/zycee001-tipo_emb CA 'V'.
* << Fim da exclusão
* >> Início da inclusão: FORM MUDA_DESCRICAO_ABA
WHEN 'V'.
* << Fim da inclusão
itab_tabstrip-descr = 'Pedidos de Compras/Ordens de Vendas'(c23).
* >> Início da exclusão: FORM MUDA_DESCRICAO_ABA
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FORM MUDA_DESCRICAO_ABA
WHEN 'D'.
* << Fim da inclusão
itab_tabstrip-descr = 'Pedidos de Compras'(c22).
* >> Início da exclusão: FORM MUDA_DESCRICAO_ABA
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM MUDA_DESCRICAO_ABA
WHEN OTHERS.
itab_tabstrip-descr = 'Ordens de Vendas'(c02).
ENDCASE.
* << Fim da inclusão
MODIFY itab_tabstrip INDEX v_index TRANSPORTING descr.
ENDFORM.
FORM on_ctmenu_emb_it USING pif_menu TYPE REF TO cl_ctmenu.
DATA: itab_fcode TYPE ui_functions,
v_itens TYPE i.
CALL METHOD pif_menu->load_gui_status
EXPORTING program = c_nome_prog
status = 'EMB_IT'
menu = pif_menu.
DESCRIBE TABLE itab_zycet002_tc LINES v_itens.
...