|
FORMUALARIOOOOOOOoooo... ACABADO!!
(CUanto más manejo SapScript, más pienso que hace lo que
le da la gana)
Gracias, mystic soul, no usé tu función porque no estaba seguro
de los parametros a pasarle y si se podía usar idioma.
Ibecerra, es todo un honor para mi que genio como tú me haya contestado,
funcionó perfectamente, solo que el idioma se lo puse de forma muy
cutre con un litera 'I' porque el 'IT' que suelen llevar las tablas de
r/3 no está en la t247.
Bueno, era para un formulario, así que tuve que hacer el perform...
... no sé como se podría hacer sin llamar a un programa externo.
Por si a alguien le sirve... pego el código,
EN ELFORMULARIO
/: SET DAT MASK = 'DD.MM.YYYY'
/: DEFINE &FECHA(25)& TYPE C
/: PERFORM FECHA_ALFABETICA IN PROGRAM ZF110
/: USING &SYST-DATUM&
/: CHANGING &FECHA&
/: ENDPERFORM
/* SET DATE MASK = 'DD di MM del YYYY' , Caspe,
AS &T001-ORT01&, &FECHA&
EN EL PROGRAMA EXTERNO "ZF110"
FORM fecha_alfabetica TABLES in_tab STRUCTURE itcsy out_tab STRUCTURE itcsy.
DATA: zt247 LIKE TABLE OF t247 WITH HEADER LINE,
fecha(25) TYPE c.
CALL FUNCTION 'MONTH_NAMES_GET'
EXPORTING
language = 'I'
TABLES
month_names = zt247.
*__________________
READ TABLE in_tab WITH KEY name = 'SYST-DATUM'.
IF sy-subrc = 0.
READ TABLE zt247 WITH KEY mnr = in_tab-value+3(2).
IF sy-subrc = 0.
CONCATENATE in_tab-value(2) 'di' zt247-ltx 'dil' in_tab-value+6(4) INTO fecha
SEPARATED BY space.
ELSE.
fecha = sy-datum.
ENDIF.
ELSE.
fecha = sy-datum.
ENDIF.
READ TABLE out_tab WITH KEY name = 'FECHA'.
out_tab-value = fecha.
MODIFY out_tab INDEX sy-tabix.
ENDFORM. "fecha_alfabetica
|