generate document num.

**2. Get manual serial number if blank CTFA number
SELECT SERIAL FROM YASERIAL INTO CT_SERIAL WHERE STYPE = 'CTFA' .
ENDSELECT.

CT_SERIAL = CT_SERIAL + 1 .
SHIFT CT_SERIAL LEFT DELETING LEADING space.
STR_LEN = STRLEN( CT_SERIAL ) .
STR_LEN = 10 - STR_LEN .

DO STR_LEN TIMES .
  CONCATENATE '0' CT_SERIAL INTO CT_SERIAL .
ENDDO.

CONCATENATE  SY-DATUM+2(2) CT_SERIAL+3(7) INTO CT_SERIAL SEPARATED BY '-'.
TP_ZCTFA = CT_SERIAL .

TP_ZCTDT2 = TP_ZCTDT .

  IF tp_zctst IS INITIAL.
    tp_zctst = 'D'.
  ENDIF.