Posted: Sat Sep 08, 2007 12:36 am Post subject: Display Storage Unit
Author: Aveek Ghose
Storage Unit Display Program
Code:
REPORT ZRGBPTPALLETDISP MESSAGE-ID ZC.
*------------------------------------------------------------------*
* TYPE POOL DECLARATION FOR ALV REPORT ONLY
*------------------------------------------------------------------*
TYPE-POOLS : slis. "Type Pool for ALV
*------------------------------------------------------------------*
* SAP tables
*------------------------------------------------------------------*
TABLES:
mseg, " Document Segment: Material
mkpf, " Header: Material Document
lein, " Storage unit header records
aufk, " Order master data
usr02, " Logon data
lagp, " Storage bins
mara, " Material master
mcha, " Batches
t156, " Movement type
t301. " WM Storage Types
*------------------------------------------------------------------*
* CONSTANTS
*------------------------------------------------------------------*
CONSTANTS: c_a(1) TYPE c VALUE 'A', " value of A
c_x(1) TYPE c VALUE 'X', " value of X
c_l(1) TYPE c VALUE 'L', " value of L
c_r(1) TYPE c VALUE 'R', " value of R
c_h(1) TYPE c VALUE 'H', " value of H
c_s(1) TYPE c VALUE 'S', " value of S
c_01(2) TYPE c VALUE '01', " value of 01
c_02(2) TYPE c VALUE '02', " value of 02
c_03(2) TYPE c VALUE '03', " value of 03
c_04(2) TYPE c VALUE '04', " value of 04
c_05(2) TYPE c VALUE '05', " value of 05
c_06(2) TYPE c VALUE '06', " value of 06
c_07(2) TYPE c VALUE '07', " value of 07
c_08(2) TYPE c VALUE '08', " value of 08
c_09(2) TYPE c VALUE '09', " value of 09
c_10(2) TYPE c VALUE '10', " value of 10
c_11(2) TYPE c VALUE '11', " value of 11
c_12(2) TYPE c VALUE '12', " value of 12
c_13(2) TYPE c VALUE '13', " value of 13
c_14(2) TYPE c VALUE '14', " value of 14
c_15(2) TYPE c VALUE '15', " value of 15
c_16(2) TYPE c VALUE '16', " value of 16
c_17(2) TYPE c VALUE '17', " value of 17
c_18(2) TYPE c VALUE '18', " value of 18
c_19(2) TYPE c VALUE '19', " value of 19
c_20(2) TYPE c VALUE '20', " value of 20
c_21(2) TYPE c VALUE '21', " value of 21
c_22(2) TYPE c VALUE '22', " value of 22
c_23(2) TYPE c VALUE '23', " value of 23
c_24(2) TYPE c VALUE '24', " value of 24
c_25(2) TYPE c VALUE '25', " value of 25
c_26(2) TYPE c VALUE '26', " value of 26
c_27(2) TYPE c VALUE '27', " value of 27
c_28(2) TYPE c VALUE '28', " value of 28
c_29(2) TYPE c VALUE '29', " value of 29
c_30(2) TYPE c VALUE '30', " value of 30
c_31(2) TYPE c VALUE '31', " value of 31
c_32(2) TYPE c VALUE '32', " value of 32
c_33(2) TYPE c VALUE '33', " value of 33
c_34(2) TYPE c VALUE '34', " value of 34
c_35(2) TYPE c VALUE '35', " value of 35
c_36(2) TYPE c VALUE '36', " value of 36
c_37(2) TYPE c VALUE '37', " value of 37
c_38(2) TYPE c VALUE '38', " value of 38
c_39(2) TYPE c VALUE '39', " value of 39
c_40(2) TYPE c VALUE '40', " value of 40
c_41(2) TYPE c VALUE '41', " value of 41
c_42(2) TYPE c VALUE '42', " value of 42
c_43(2) TYPE c VALUE '43', " value of 43
c_44(2) TYPE c VALUE '44', " value of 44
c_45(2) TYPE c VALUE '45', " value of 45
c_46(2) TYPE c VALUE '46', " value of 46
c_mseg TYPE tabname VALUE 'MSEG', " table name MSEG
c_mkpf TYPE tabname VALUE 'MKPF', " table name MKPF
c_ltak TYPE tabname VALUE 'LTAK', " table name LTAK
c_ltap TYPE tabname VALUE 'LTAP', " table name LTAP
c_makt TYPE tabname VALUE 'MAKT', " table name MAKT
c_lein TYPE tabname VALUE 'LEIN', " table name LEIN
c_save_variant(1) TYPE c VALUE 'A'. "Save Variants
* Type for declaring table I_matdoc
TYPES: BEGIN OF ty_matdoc,
matnr TYPE matnr,
charg TYPE charg_d,
werks TYPE werks_d,
lgort TYPE lgort_d,
bwart TYPE bwart,
sobkz TYPE sobkz,
mblnr TYPE mblnr,
zeile TYPE mblpo,
budat TYPE budat,
erfmg TYPE erfmg,
erfme TYPE erfme,
lgnum TYPE lgnum,
lgtyp TYPE lgtyp,
lgpla TYPE lgpla,
* Additional fields
insmk TYPE insmk,
aufpl TYPE co_aufpl,
aufnr TYPE aufnr,
bktxt TYPE bktxt,
bldat TYPE bldat,
cpudt TYPE cpudt,
cputm TYPE cputm,
kzbew TYPE kzbew,
lifnr TYPE lifnr,
meins TYPE meins,
menge TYPE menge_d,
mjahr TYPE mjahr,
rsnum TYPE rsnum,
rspos TYPE rspos,
rsart TYPE rsart,
shkzg TYPE shkzg,
usnam TYPE usnam,
vgart TYPE vgart,
xabln TYPE xabln,
tbnum TYPE tbnum,
maktx TYPE maktx,
END OF ty_matdoc,
* Type for declaring table I_matnr
BEGIN OF ty_matnr,
matnr TYPE matnr,
maktx TYPE maktx,
END OF ty_matnr,
* Type for declaring table I_mh
BEGIN OF ty_mh,
aufnr TYPE aufnr,
werks TYPE werks,
matnr TYPE matnr,
charg TYPE charg_d,
lgnum TYPE lgnum,
lgpla TYPE lgpla,
lgtyp TYPE lgtyp,
bwart TYPE bwart,
rsnum TYPE rsnum,
rspos TYPE rspos,
rsart TYPE rsart,
lenvw TYPE t331_lenvw,
END OF ty_mh,
* Type for declaring table I_t331
BEGIN OF ty_t331,
lgnum TYPE lgnum,
lgtyp TYPE lgtyp,
lenvw TYPE t331_lenvw,
END OF ty_t331,
BEGIN OF TY_DETL,
mblnr type mblnr, " Material document no.
mjahr type mjahr, " Material document year
lgnum type lgnum, " Warehouse no.
tanum type tanum, " Transfer order no.
matnr type matnr, " Material no.
tapos type tapos, " Transfer order item
bwlvs type bwlvs, " Movement type for WM
betyp TYPE lvs_betyp,
benum TYPE lvs_benum,
vltyp TYPE ltap_vltyp,
vlpla TYPE ltap_vlpla,
vlenr TYPE ltap_vlenr,
nltyp TYPE ltap_nltyp,
nlpla TYPE ltap_nlpla,
nlenr TYPE ltap_nlenr,
altme TYPE LRMEI,
vsola TYPE LTAP_vsola,
vsolm TYPE LTAP_vsolm,
nsola TYPE LTAP_nsola,
nsolm TYPE LTAP_nsolm,
END OF TY_DETL,
* Type for declaring table I_meins_ltap
BEGIN OF ty_meins_ltap,
lgnum TYPE lgnum,
tanum TYPE tanum,
tapos TYPE tapos,
matnr TYPE matnr,
meins TYPE meins,
END OF ty_meins_ltap.
*&---------------------------------------------------------------------&
* STRUCTURES *
*&---------------------------------------------------------------------&
*Structure to hold variant information
DATA: struct_variant TYPE disvariant.
* Workarea to hold the header line of i_matdoc
DATA: struct_matdoc TYPE ty_matdoc.
*Internal tables to hold material documenmt information
DATA: i_matdoc TYPE STANDARD TABLE OF ty_matdoc WITH HEADER LINE,
i_matdoc_distinct TYPE STANDARD TABLE OF ty_matdoc WITH HEADER
LINE,
*Internal table to hold material description information
i_matnr TYPE STANDARD TABLE OF ty_matnr WITH HEADER LINE,
*Internal table to hold RESB information
i_mh TYPE STANDARD TABLE OF ty_mh WITH HEADER LINE,
*Internal table to hold T331 information
i_t331 TYPE STANDARD TABLE OF ty_t331 WITH HEADER LINE,
*Internal table to hold detail transfer order information
i_detl TYPE STANDARD TABLE OF ty_detl WITH HEADER LINE,
*Internal table to hold output
i_output TYPE STANDARD TABLE OF ty_detl WITH HEADER LINE,
*Internal table for field catalog
i_fcat TYPE slis_t_fieldcat_alv,
*Internal table for sort table
i_sort TYPE slis_t_sortinfo_alv, "Sort parameters
*Internal table for layout
i_layout TYPE slis_layout_alv,
*Internal table for coloring cells
i_col_layout TYPE slis_t_specialcol_alv,
i_meins_ltap TYPE STANDARD TABLE OF ty_meins_ltap WITH HEADER
LINE.
* Internal Table and Work Areas for ALV
DATA: wa_fcat TYPE slis_fieldcat_alv,
wa_layout TYPE slis_layout_alv.
FIELD-SYMBOLS: <f_outtab> TYPE STANDARD TABLE.
*&---------------------------------------------------------------------&
* VARIABLES *
*&---------------------------------------------------------------------&
DATA: v_repid LIKE sy-repid, " To store program name
v_title type LVC_TITLE.
*&--------------------------------------------------------------------&
* SELECTION SCREEN *
*&--------------------------------------------------------------------&
SELECTION-SCREEN: BEGIN OF BLOCK pallet WITH FRAME TITLE text-001.
PARAMETERS: p_plant LIKE /NESGLB/MCCNN2-WERK_PLANT
MEMORY ID ANR OBLIGATORY .
SELECT-OPTIONS: s_mat for mseg-matnr OBLIGATORY, " Material No.
s_batch for mseg-charg OBLIGATORY, " Batch
S_PRODDT for SY-DATUM,
S_prodTM FOR SY-UZEIT,
* /NESGLB/MCCNN2-QPRODTIME,
s_strunt FOR lein-lenum. " Storage unit
SELECTION-SCREEN: END OF BLOCK pallet.
*&--------------------------------------------------------------------&
* INITIALIZATION *
*&--------------------------------------------------------------------&
CLEAR:
* Internal Tables
i_matdoc,
i_detl,
i_mh,
i_t331,
i_matnr,
i_output,
i_sort,
i_fcat,
*Begin of changes Sutapa - May 26, 2003
i_meins_ltap,
*End of changes Sutapa - May 26, 2003
* Variables
v_repid,
v_title.
* Refresh Internal Tables
REFRESH: i_matdoc,
i_detl,
i_mh,
i_t331,
i_matnr,
i_output,
i_sort,
i_fcat,
*Begin of changes Sutapa - May 26, 2003
i_meins_ltap.
*End of changes Sutapa - May 26, 2003
* Assign value to v_repid
v_repid = sy-repid.
*&--------------------------------------------------------------------&
* AT SELECTION SCREEN *
*&--------------------------------------------------------------------&
*Validation of Process Order
*AT SELECTION-SCREEN ON p_order.
* PERFORM validate_order.
*Validation of Material
AT SELECTION-SCREEN ON s_mat.
PERFORM validate_material.
*Validation of Batch
AT SELECTION-SCREEN ON s_batch.
PERFORM validate_batch.
*Validation of Storage Unit
AT SELECTION-SCREEN ON s_strunt.
PERFORM validate_storageunit.
*&--------------------------------------------------------------------&
* START OF SELECTION *
*&--------------------------------------------------------------------&
START-OF-SELECTION.
*&--------------------------------------------------&
* This subroutine retrieves data from MSEG and MKPF
* tables depending on the selection screen values
* and modifies the table with Material description.
*&--------------------------------------------------&
PERFORM populate_matdoc.
*&--------------------------------------------------&
* This subroutine retrieves data from LTAK and LTAP
* tables dependingon the selection screen values and
* populates the table with Transferorder information.
*&--------------------------------------------------&
PERFORM populate_detl.
*&--------------------------------------------------&
* This subroutine modifies anmd creates the final
* result table.
*&--------------------------------------------------&
PERFORM create_output. " To update I_detl
*&--------------------------------------------------------------------&
* END OF SELECTION *
*&--------------------------------------------------------------------&
END-OF-SELECTION.
* The final output is obtained by transferring the necessary fields
* from table I_DETL to I_OUTPUT.
** Check if the table I_detl is not initial
* IF NOT i_detl[] IS INITIAL.
* i_output[] = i_detl[]. " Get the final output
* ENDIF.
*
** Display the Report Title
* CONCATENATE text-003 p_order INTO v_title SEPARATED BY space.
* sy-title = v_title.
PERFORM prepare_alv_settings.
* Display the Report in ALV
PERFORM prepare_alv_output. " To display result as alv
*&---------------------------------------------------------------------*
*& Form validate_material
*&---------------------------------------------------------------------*
* This subroutine validates the value of material entered
*----------------------------------------------------------------------*
FORM validate_material .
*Check if value is entered for Material.
IF NOT s_mat IS INITIAL.
SELECT matnr " Material
INTO mara-matnr
UP TO 1 ROWS
FROM mara
WHERE matnr IN s_mat.
ENDSELECT.
IF sy-subrc <> 0.
* Issue error message and stop processing
MESSAGE e999 WITH 'Invalid Material.'(097).
ENDIF.
ENDIF.
ENDFORM. " validate_material
*&---------------------------------------------------------------------*
*& Form validate_batch
*&---------------------------------------------------------------------*
* This subroutine validates the value of batch entered
*----------------------------------------------------------------------*
FORM validate_batch .
*Check if value is entered for Batch.
IF NOT s_batch IS INITIAL.
SELECT charg " Batch
INTO mcha-charg
UP TO 1 ROWS
FROM mcha
WHERE charg IN s_batch.
ENDSELECT.
IF sy-subrc <> 0.
* Issue error message and stop processing
MESSAGE e999 WITH 'Invalid Batch.'(098).
ENDIF.
ENDIF.
ENDFORM. " validate_batch
*&---------------------------------------------------------------------*
*& Form validate_storageunit
*&---------------------------------------------------------------------*
* This subroutine validates the value of storage unit entered
*----------------------------------------------------------------------*
FORM validate_storageunit .
*Check if value is entered for storage unit.
IF NOT s_strunt IS INITIAL.
SELECT lenum " storageunit
INTO lein-lenum
UP TO 1 ROWS
FROM lein
WHERE lenum IN s_strunt.
ENDSELECT.
IF sy-subrc <> 0.
* Issue error message and stop processing
MESSAGE e999 WITH 'Invalid storage unit.'(103).
ENDIF.
ENDIF.
ENDFORM. " validate_storageunit
*&---------------------------------------------------------------------*
*& Form populate_matdoc
*&---------------------------------------------------------------------*
* This subroutine retrieves data from MSEG and MKPF tables depending
* on the selection screen values and modifies the table with Material
* description.
*----------------------------------------------------------------------*
FORM populate_matdoc .
*Retreieve Data from MSEG and MKPF
SELECT a~matnr " Material
a~charg " Batch
a~werks " Plant
a~lgort " Storage Location
a~bwart " Movement type
a~sobkz " Special stock indicator
a~mblnr " Material document no.
a~zeile " Item in material document
b~budat " Posting date
a~erfmg " Quantity in entry unit
a~erfme " Entry unit
a~lgnum " Warehouse no.
a~lgtyp " Storage type
a~lgpla " Storage bin
a~insmk " Stock type
a~aufpl " Routing no.
a~aufnr " Process order
b~bktxt " Document header text
b~bldat " Document date
b~cpudt " Entry date
b~cputm " Entry time
a~kzbew " Movement indicator
a~lifnr " Vendor
a~meins " Base unit of measure
a~menge " Base quantity
a~mjahr " Material document year
a~rsnum " Reservation no.
a~rspos " Reservation item
a~rsart " Record type
a~shkzg " Debit / Credit indicator
b~usnam " User Name
b~vgart " Trans. / Event type
b~xabln " Goods Receipt/Issue Slip Number
a~tbnum " Transfer Requirement Number
INTO TABLE i_matdoc
FROM mseg AS a INNER JOIN mkpf AS b
ON a~mblnr = b~mblnr
AND a~mjahr = b~mjahr
WHERE a~matnr IN s_mat
AND a~charg IN s_batch
AND a~bwart IN ('101')
AND b~budat IN s_proddt.
IF sy-subrc <> 0.
* Issue error message and stop processing
MESSAGE i999 WITH 'No data found!'(104).
LEAVE LIST-PROCESSING.
ELSE.
* Sort the table I_MATDOC
SORT i_matdoc BY matnr.
* Create a table i_matdoc_disctinct identical to i_matdoc
i_matdoc_distinct[] = i_matdoc[].
DELETE ADJACENT DUPLICATES FROM i_matdoc_distinct COMPARING matnr.
ENDIF.
* Free the I_matdoc_distinct table.
FREE I_MATDOC_DISTINCT.
ENDFORM. " populate_matdoc
*&---------------------------------------------------------------------*
*& Form populate_detl
*&---------------------------------------------------------------------*
* This subroutine retrieves data from LTAK and LTAP tables depending
* on the selection screen values and populates the table with Transfer
* order information.
*----------------------------------------------------------------------*
FORM populate_detl .
*Check if the table i_matdoc is not initial
IF NOT i_matdoc[] IS INITIAL.
* Retreieve Transfer Order from LTAK and LTAP
SELECT a~mblnr " Material document no.
a~mjahr " Material document year
a~lgnum " Warehouse no.
a~tanum " Transfer order no.
b~matnr " Material no.
b~tapos " Transfer order item
a~bwlvs " Movement type for WM
a~betyp " Requirement type
a~benum " Requirement tracking no.
b~bestq " Stock Category in the WM
b~vltyp " Source storage type
b~vlpla " Source storage bin
b~vlenr " Source storage unit
b~nltyp " Destination storage type
b~nlpla " Destination storage bin
b~nlenr " Destination storage unit
b~altme
" Alternative Unit of Measure for Stockkeeping Unit
b~vsola " Source target quantity in alternate unit
b~vsolm " Source target quantity in stockkeeping unit
b~nsola " Destination target quantity in alternative unit
b~nsolm " Destination target quantity in stockkeeping unit
INTO CORRESPONDING FIELDS OF tABLE i_detl
FROM ltak AS a INNER JOIN ltap AS b
ON a~lgnum = b~lgnum
AND a~tanum = b~tanum
FOR ALL ENTRIES IN i_matdoc
WHERE a~mblnr = i_matdoc-mblnr
AND a~mjahr = i_matdoc-mjahr
AND b~matnr = i_matdoc-matnr.
IF sy-subrc = 0.
* Sort the table I_DETL
SORT i_detl BY mblnr mjahr matnr.
ENDIF.
* Populate the value of MEINS_TO in i_detl.
* Perform Populate_detl_meins.
ENDIF.
ENDFORM. " populate_detl
*&---------------------------------------------------------------------*
*& Form create_output
*&---------------------------------------------------------------------*
* This subroutine modifies anmd creates the final result table.
* Depending on different conditions the i_detl table is modified to hold
* Material Document Information, Transfer Order inmformation along with
* all goods issues, goods receipts, items genearted with reference to a
*reservation and for stocks which is Storage Unit managed and
*non-storage
* unit managed.
*----------------------------------------------------------------------*
FORM create_output .
CLEAR i_matdoc.
*&---------------------------------------------------------------------*
*& Form prepare_alv_output
*&---------------------------------------------------------------------*
* This subroutine preapres the ALV output
*----------------------------------------------------------------------*
FORM prepare_alv_output .
IF NOT i_fcat[] IS INITIAL.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = V_REPID
* i_callback_user_command = 'USER_COMMAND'
* i_callback_top_of_page = 'TOP_OF_PAGE'
i_structure_name = 'I_DETL'
i_grid_title = V_TITLE
is_layout = I_layout
it_fieldcat = i_fcat[]
i_save = c_save_variant
TABLES
t_outtab = I_DETL
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDIF.
ENDFORM. " prepare_alv_output
**&---------------------------------------------------------------------
*
**& Form sortinfo_build
**&---------------------------------------------------------------------
*
** This subroutine builds the sort table passed to the ALV
**----------------------------------------------------------------------
*
FORM sortinfo_build .
DATA: l_sort TYPE slis_sortinfo_alv.
* Sort criteria material number and batch
CLEAR l_sort.
l_sort-spos = c_01.
l_sort-fieldname = text-004. " MATNR
l_sort-tabname = 'I_matdoc'.
l_sort-up = c_x.
l_sort-subtot = c_x.
APPEND l_sort TO i_sort.
*& Form varinfo_build
*&---------------------------------------------------------------------
* This subroutines builds up the variant information
*----------------------------------------------------------------------
FORM varinfo_build .
struct_variant-report = v_repid.
ENDFORM. " varinfo_build
**&---------------------------------------------------------------------
*
**& Form layout_build
**&---------------------------------------------------------------------
*
** This subroutine builds the layout for column optmise and color
** display.
**----------------------------------------------------------------------
*
*
FORM layout_build USING l_layout TYPE slis_layout_alv.
DATA : lv_colno TYPE i.
ENDFORM. " prepare_alv_settings
*&---------------------------------------------------------------------*
*& Form create_catalog
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_4633 text
* -->P_4634 text
*----------------------------------------------------------------------*
FORM create_catalog USING value(p_i_tabfield)
value(p_i_colhead).
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You cannot download files in this forum
All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG. SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG. Every effort is made to ensure content integrity. Use information on this site at your own risk.
