Módulo: DRAWBACK
Funcionalidade: Composição
Data/Hora da Publicação: 30/06/2008 00:00:00
Data/Hora Última Alteração: 17/02/2011 15:26:27
Descrição da Nota: DESCRIÇÃO DO MATERIAL VENDIDO NO MERCADO INTERNO
Sintoma
O programa não está carregando a descrição do material.
Solução
Atualização da exibição da descrição dos materiais na composição de isenção.
7.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06880 Data: 30/06/2008 Hora: 16:06:09
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06880
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00054
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06855 - 00001 - 7.0 - 00006 - CONTROLE DE CICLO PRODUTIVO (DIAS PARA PRODUÇÃO)
----------------------------------------------------------------------------------------------------
DESCRIÇÃO DO MATERIAL VENDIDO NO MERCADO INTERNO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DRAWBACK COMPOSIÇÃO ISENÇÃO DESCRIÇÃO MATERIAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI064F03
REPS /PWS/MZYCI064I01
REPS /PWS/MZYCI064O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064F03
...
FORM trata_tab_det_int.
READ TABLE itab_resint WITH KEY mark = 'X'.
IF sy-subrc EQ 0.
itab_zycit495t[] = itab_zycit495[].
DELETE itab_zycit495t WHERE codigo NE itab_resint-codigo
OR ncm NE itab_resint-ncm.
pressed_tab_3c_5 = ok_code3.
dynpronr3c_5 = '0325'.
ENDIF.
ENDFORM.
* >> Início da inclusão:
FORM check_fields_screen_0324.
CLEAR v_descr1_0304.
SELECT maktx UP TO 1 ROWS FROM makt INTO v_descr1_0304
WHERE matnr = /pws/zycie259d-codmat
AND spras = sy-langu.
ENDSELECT.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064I01
...
CASE ok_code3.
WHEN 'ABORT'.
PERFORM check_button_abort3.
ENDCASE.
ENDMODULE.
MODULE user_command_0003 INPUT.
CASE ok_code3.
WHEN 'BACK'.
LEAVE PROGRAM.
WHEN 'ENTE'.
* >> Início da inclusão: MODULE USER_COMMAND_0003
PERFORM trata_sequencial.
* << Fim da inclusão
PERFORM trata_button_ente3.
ENDCASE.
ENDMODULE.
MODULE user_command_0003_exit INPUT.
CASE ok_code3.
WHEN 'ABORT'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE.
MODULE user_command_0302 INPUT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI064O01
...
WHEN '0308'.
PERFORM check_fields_screen_0308.
WHEN '0309'.
PERFORM check_fields_screen_0309.
WHEN '0310'.
PERFORM check_fields_screen_0310.
WHEN '0311' OR '0321'.
PERFORM check_fields_screen_0311.
WHEN '0316'.
PERFORM check_fields_screen_0316.
* >> Início da inclusão: MODULE SET_SCREEN3
WHEN '0324'.
PERFORM check_fields_screen_0324.
* << Fim da inclusão
ENDCASE.
ENDMODULE.
MODULE status_0003 OUTPUT.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD sy-tcode.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-290 sy-tcode.
LEAVE PROGRAM.
ENDIF.
PERFORM move_dados_iniciais3.
SET PF-STATUS 'ST0003'.
...