Hi Gaurav,
I haven't i am fresher, started working on ABAP from 15 days, so I had written the code fto generate the serial number. The serial number is itself the gate pass. Here is the code. Please let me know what exactly i need to do.
IF IT_GATEEXIT[] IS INITIAL.
CALL FUNCTION 'NUMBER_GET_NEXT'
EXPORTING
NR_RANGE_NR = '01'
OBJECT = 'ZEGP_TRANS'
QUANTITY = '1'
* SUBOBJECT = ' '
* TOYEAR = '0000'
* IGNORE_BUFFER = ' '
IMPORTING
NUMBER = GATEEXITNO
* QUANTITY =
* RETURNCODE =
EXCEPTIONS
INTERVAL_NOT_FOUND = 1
NUMBER_RANGE_NOT_INTERN = 2
OBJECT_NOT_FOUND = 3
QUANTITY_IS_0 = 4
QUANTITY_IS_NOT_1 = 5
INTERVAL_OVERFLOW = 6
BUFFER_OVERFLOW = 7
OTHERS = 8.
IF SY-SUBRC EQ 0.
IT_ZGPE-GATEEXITNO = ZGATE_EXIT_HDR-GATEEXITNO.
IT_ZGPE-gedate = sy-datum.
IT_ZGPE-INVOICENO = ZGATE_EXIT_HDR-INVOICENO.
IT_ZGPE-VEHICLENO = ZGATE_EXIT_HDR-VEHICLENO.
IT_ZGPE-LANDX = ZGATE_EXIT_HDR-LANDX.
IT_ZGPE-CONTAINER_NO = ZGATE_EXIT_HDR-CONTAINER_NO.
IT_ZGPE-TRANSNAME = ZGATE_EXIT_HDR-TRANSNAME.
IT_ZGPE-DRIVERNAME = ZGATE_EXIT_HDR-DRIVERNAME.
IT_ZGPE-VEHICLEIN = ZGATE_EXIT_HDR-VEHICLEIN.
IT_ZGPE-VEHICLEOUT = ZGATE_EXIT_HDR-VEHICLEOUT.
MODIFY ZGATE_EXIT_HDR FROM IT_ZGPE .
IF SY-SUBRC EQ 0.
MESSAGE i001(zgate_msgcls) WITH 'Gate Entry Nunmber' ZGATE_EXIT_HDR-GATEEXITNO 'Generated'.
ENDIF.
ENDIF.
ENDIF.