" Agora vou passa pra vocês uma função muito facil e simples, ela traz
" os meses conforme a lingua que informar, tive que dar manutenção num
" programa onde eu teria que mostrar um relatorio onde o Titulo 'mês' estava
" em 'hardcode', mas o programa seria usado em varios paises e teria que
" mostrar conforme a lingua do acesso, então alem de criar elementos de
" textos e traduzí-los, preferi usar essa função e dar 'read table' na
" tabela it_mes e trazer os campos 'KTX' e 'LTX'.
REPORT zmj_month_names_get.
* Tipos
TYPES : BEGIN OF ty_mes.
INCLUDE STRUCTURE t247.
TYPES : END OF ty_mes.
* Tabela Internas
DATA : it_mes TYPE TABLE OF ty_mes.
* Estruturas
DATA : st_mes TYPE ty_mes.
START-OF-SELECTION.
PERFORM zf_month_names_get.
*&---------------------------------------------------------------------*
*& Form ZF_MONTH_NAMES_GET
*&---------------------------------------------------------------------*
FORM zf_month_names_get .
" Executem uma vez com sy-langu e depois execute mudando o mesmo pra
" verem como retorna a tabela.
BREAK-POINT.
CALL FUNCTION 'MONTH_NAMES_GET'
EXPORTING
language = sy-langu
TABLES
" Tabela que receberá as informações.
month_names = it_mes
EXCEPTIONS
month_names_not_found = 1
OTHERS = 2.
BREAK-POINT.
" Sussa né?
ENDFORM. " ZF_MONTH_NAMES_GET
muito bom vosso coments. Me foi muito útil, agradecido.
ResponderExcluir