|
SELECTION-SCREEN BEGIN OF BLOCK sc_params.
SELECT-OPTIONS s_matnr FOR ekpo-matnr.
PARAMETERS p_werks LIKE marc-werks OBLIGATORY.
SELECT-OPTIONS p_bstyp FOR ekpo-bstyp OBLIGATORY DEFAULT 'L'.
SELECT-OPTIONS p_lgort FOR ekpo-lgort NO-EXTENSION NO INTERVALS.
SELECT-OPTIONS p_dispo FOR marc-dispo NO-EXTENSION NO INTERVALS.
SELECTION-SCREEN END OF BLOCK sc_params.
************************
* Main Code Area
************************
START-OF-SELECTION.
PERFORM get_data.
PERFORM field_catalog.
PERFORM alv_display.
*&---------------------------------------------------------------------*
*& Form get_data
*&---------------------------------------------------------------------*
FORM get_data.
SELECT e~matnr e~txz01 m~lbkum e~effwr e~matkl m~stprs m~salk3 k~lifnr
e~aedat e~menge e~ktmng k~ebeln k~bstyp m~verpr e~meins k~waers m~peinh e~peinh e~netpr e~pstyp e~infnr e~werks
INTO (gt_outtab-matnr, gt_outtab-txz01, gt_outtab-lbkum,
gt_outtab-effwr, gt_outtab-matkl, gt_outtab-stprs, gt_outtab-salk3,
gt_outtab-lifnr, gt_outtab-aedat, gt_outtab-menge, gt_outtab-ktmng,
gt_outtab-ebeln, gt_outtab-bstyp, gt_outtab-verpr, gt_outtab-meins,
gt_outtab-waers, gt_outtab-peinh2, gt_outtab-peinh, gt_outtab-netpr,
gt_outtab-pstyp, gt_outtab-infnr, gt_outtab-werks)
FROM marc AS a INNER JOIN mbew AS m ON a~matnr EQ m~matnr
INNER JOIN ekpo AS e ON a~matnr EQ e~matnr
INNER JOIN ekko AS k ON k~ebeln EQ e~ebeln
WHERE a~beskz EQ 'F'
and a~werks EQ p_werks
AND a~matnr IN s_matnr
AND m~bwkey EQ p_werks
AND m~lbkum NE ''
AND e~werks EQ p_werks
AND e~bstyp IN p_bstyp
AND e~loekz EQ ''
AND e~lgort IN p_lgort
AND a~dispo IN p_dispo.
APPEND gt_outtab.
ENDSELECT.
***********aqui es donde tendria que sacar el mensaje y luego volver a la pantalla de seleccion***********
IF sy-subrc <> 0.
MESSAGE e398(00) WITH text-001.
ENDIF.
|