CE PLUS - Nota 000697
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 23/01/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:03:56
Descrição da Nota: INSERIR PAGE DOWN E PAGE UP NA TELA DAS DESPESAS DA DI
Sintoma
Inserir PAGE DOWN e PAGE UP na tela das despesas da DI para uso de programas via BATCH INPUT.
Solução
Inserido consistencia para PAGE DOWN e PAGE UP na tela.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00697 Data: 23/01/2006 Hora: 10:51:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00697
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00097
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
INSERIR PAGE DOWN E PAGE UP NA TELA DAS DESPESAS DA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
PAGE DOWN - PAGE UP - BATCH INPUT
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCI023
DYNP /PWS/SAPMZYCI023 0160
REPS /PWS/MZYCI023F04
REPS /PWS/MZYCI023I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI023
Incluido os botoes abaixo no Etatus Gui da Tela 0100:
P
P+
P-
P++
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0160
...
loop at itab_zycit049.
module: modi_data049
endloop.
* >> Início da inclusão:
module user_command.
* >> Fim da inclusão:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
PERFORM mp_nova.
ENDIF.
endif.
ENDIF.
endform.
* >> Início da inclusão:
form trata_lineup.
tc_desp-top_line = tc_desp-top_line - 10.
endform.
form trata_linedown.
tc_desp-top_line = tc_desp-top_line + 10.
endform.
form user_command_0160.
case okcode.
WHEN 'P-'.
PERFORM trata_lineup.
WHEN 'P+'.
PERFORM trata_linedown.
endcase.
endform.
*& *
*& Form trata_lineup
*& *
form trata_lineup.
tc_desp-top_line = tc_desp-top_line - 10.
endform. " trata_lineup
*& *
*& Form trata_linedown
*& *
form trata_linedown.
tc_desp-top_line = tc_desp-top_line + 10.
endform. " trata_linedown
*& *
*& Form user_command_0160
*& *
form user_command_0160.
* Chamado 283822 inicio
case okcode.
WHEN 'P-'.
PERFORM trata_lineup.
WHEN 'P+'.
PERFORM trata_linedown.
endcase.
* Chamado 283822 fim
endform. " user_command_0160
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
ENDIF.
ENDMODULE.
MODULE verifica_nrdi INPUT.
perform verifica_nrdi.
ENDMODULE.
* >> Início da inclusão:
module user_command input.
if sy-dynnr eq '0160'.
perform user_command_0160.
endif.
endmodule.
*& *
*& Module user_command INPUT
*& *
* text
* *
module user_command input.
if sy-dynnr eq '0160'.
perform user_command_0160.
endif.
endmodule. " user_command INPUT
* << Fim da inclusão