ODN Number Range Creation at Start of Year

*&---------------------------------------------------------------------*
*& REPORT  ZNUMBER_RANGE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZNUMBER_RANGE.
TABLES: NRIV.

SELECTION-SCREEN:BEGIN OF BLOCK F1 WITH FRAME TITLE TEXT-001.
PARAMETERS: P_OBJECT LIKE NRIV-OBJECT.
SELECTION-SCREEN:END OF BLOCK F1.

SELECTION-SCREEN:BEGIN OF BLOCK F4 WITH FRAME TITLE TEXT-004.
PARAMETERS: P_COCD LIKE NRIV-SUBOBJECT.
SELECTION-SCREEN:END OF BLOCK F4.

SELECTION-SCREEN:BEGIN OF BLOCK F2 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS: S_NRRANG FOR NRIV-NRRANGENR.
SELECTION-SCREEN:END OF BLOCK F2.

SELECTION-SCREEN:BEGIN OF BLOCK F3 WITH FRAME TITLE TEXT-003.
PARAMETERS: P_TOYEAR LIKE NRIV-TOYEAR.
SELECTION-SCREEN:END OF BLOCK F3.

DATA I_NRIV TYPE STANDARD TABLE OF NRIV WITH HEADER LINE.

START-OF-SELECTION.

SELECT * FROM NRIV INTO TABLE I_NRIV WHERE OBJECT = P_OBJECT AND NRRANGENR IN S_NRRANG AND TOYEAR = P_TOYEAR AND SUBOBJECT = P_COCD .
P_TOYEAR = P_TOYEAR + 1 .

LOOP AT I_NRIV.
CALL FUNCTION 'G_CATT_INSERT_NUMBER_RANGE'
EXPORTING
  EXTERNIND = I_NRIV-EXTERNIND
FROMNUMBER = I_NRIV-FROMNUMBER
NNRANGENR = I_NRIV-NRRANGENR
NRLEVEL = '00000000000000000000'
OBJECT = P_OBJECT
PROCIND = 'Y'
SUBOBJECT =  P_COCD
TONUMBER = I_NRIV-TONUMBER
TOYEAR = P_TOYEAR

EXCEPTIONS
  NO_CHANGES_MADE = 1
  OBJECT_NOT_INITIALIZED = 2
  OTHERS.
   WRITE S_NRRANG.
   WRITE 'RECORD ADDED'.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
* WRITE 'ERROR'.
 ENDIF.
  ENDLOOP.

ODN Configuration Creation at Start of Year

*&---------------------------------------------------------------------*
*& Report  ZFI_ODN_CONFIG
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZFI_ODN_CONFIG.
TABLES: J_1IG_OFNUM.

SELECTION-SCREEN:BEGIN OF BLOCK F1 WITH FRAME TITLE TEXT-001.
PARAMETERS: V_BUKRS TYPE BUKRS.
SELECTION-SCREEN:END OF BLOCK F1.


SELECTION-SCREEN:BEGIN OF BLOCK F2 WITH FRAME TITLE TEXT-002.
PARAMETERS: V_DOCCLS TYPE DOCCLS.
SELECTION-SCREEN:END OF BLOCK F2.

SELECTION-SCREEN:BEGIN OF BLOCK F3 WITH FRAME TITLE TEXT-003.
PARAMETERS: V_FDATE TYPE BUDAT.
SELECTION-SCREEN:END OF BLOCK F3.

SELECTION-SCREEN:BEGIN OF BLOCK F4 WITH FRAME TITLE TEXT-004.
PARAMETERS: V_TDATE TYPE BUDAT.
SELECTION-SCREEN:END OF BLOCK F4.

DATA I_NRIV TYPE STANDARD TABLE OF NRIV WITH HEADER LINE.

START-OF-SELECTION.

DATA: ITAB TYPE STANDARD TABLE OF J_1IG_OFNUM.
DATA: WA LIKE LINE OF ITAB.

SELECT * FROM J_1IG_OFNUM INTO CORRESPONDING FIELDS OF TABLE ITAB WHERE BUKRS = V_BUKRS AND DOCCLASS = V_DOCCLS.

LOOP AT ITAB INTO WA.
  "CHANGING THE LAST DATE TO INITIAL"
  WA-VALIDFROM = V_FDATE.
  WA-VALIDTO = V_TDATE.
  WA-LASTDATE = '00000000'.
  "END OF CHANGING THE LAST DATE TO INITIAL"
  MODIFY ITAB FROM WA.
ENDLOOP.

LOOP AT ITAB INTO WA.
  INSERT INTO J_1IG_OFNUM VALUES WA.
  WRITE WA.
  NEW-LINE.
ENDLOOP.

Default Account Assignement

Default Account Assignement
Transaction Code - OKB9

Account Category Reference / Valuation Classes

Account Category Reference / Valuation Classes
Transaction Code - OMSK

Un-Lock Users in Background

*&---------------------------------------------------------------------*
*& REPORT  ZB_LOCK_UNLOCK
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZB_LOCK_UNLOCK_2.


TABLES: USR02.
*DATA:  GROUPS   TYPE STANDARD TABLE OF BAPIGROUPS WITH HEADER LINE.
*DATA: FLAG TYPE I.
"PARAMETERS: USRID TYPE USR02-BNAME.

SELECT-OPTIONS : USRID FOR USR02-BNAME.

DATA RETURN_DUMMY LIKE BAPIRET2 OCCURS 0.
DATA: V_UFLAG TYPE USR02-UFLAG.

LOOP AT USRID.
  SELECT UFLAG INTO V_UFLAG FROM USR02 WHERE
    BNAME EQ USRID-LOW AND
    UFLAG NE '0'.
  ENDSELECT.
  IF V_UFLAG NE '0'.
    CALL FUNCTION 'BAPI_USER_UNLOCK'
    EXPORTING
         USERNAME = USRID-LOW
    TABLES
         RETURN   = RETURN_DUMMY.
    IF RETURN_DUMMY IS NOT INITIAL.
      WRITE: USRID-LOW. WRITE: ' USER IS UNLOCKED.'.
    ENDIF.
  ENDIF.
ENDLOOP.

Enable fields in Subsitution OBBH

Goto Tcode - SE11
Table Name - VWTYGB01

Click on change.
Select the field you want to bring in OBBH.
Un-tick the exclude box.

Maintain Fast Entry

Use Tcode - O7E6
Create new variant.
Enter the field from possible fields and use the fast data entry.