Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 3019

Inserting the data in custom tables after number generation

$
0
0

Hi Everyone i have requirement in my project that i need to pass the series number generator in a custom ztable and when i give the series number the information needs to be pulled for all the delivery reports.However the series number is generated but i could not save it ztable. Please find the code which i have written..

 

 

 

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.


Thank You in advancce


Viewing all articles
Browse latest Browse all 3019

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>