Skip to Content
0
Former Member
Aug 03, 2006 at 12:34 AM

Convert 0CALDAY to 0CALMONTH in a transfer rutine

164 Views

Hi all!!

Im using a transfer rutine that fills the object 0CALMONTH, when this is in blank, so when the field no have data, take the object 0CALDAY and fill 0CALMONTH, Im doing this in a transfer rules, but its dont work.

I hope somebody can help me,

This is my code

TABLES: /BI0/SDATE.

DATA:

VFECHA(6) TYPE C,

VMES(2) TYPE C,

VANIO(4) TYPE C.

$$ end of global - insert your declaration only before this line -

$$ begin of routine - insert your code only below this line -

CLEAR: VMES, VANIO.

IF TRAN_STRUCTURE-PERIODO = ''.

VMES = TRAN_STRUCTURE-FECHA_F+5(2).

VANIO = TRAN_STRUCTURE-FECHA_F+0(4).

CONCATENATE VMES VANIO INTO RESULT.

ELSE.

RESULT = TRAN_STRUCTURE-PERIODO.

ENDIF.

Thanks

Monica