hello experts,
i have made a smartform im calling that through this(below) report ( by using structure in smartform zmaster.) , but its not displaying data by excuting this report. can any one pls tell me wt should i do to populate the data.
thanks ,
priyanshu
REPORT ZCHALLANPRINT.
*table declaration.
TABLES : MSEG ,J_1IEXCHDR, J_1IEXCDTL, T001W, ZMASTER.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME .
PARAMETERS : S_EBELN LIKE MSEG-EBELN.
SELECTION-SCREEN END OF BLOCK B1 .
*data declaration.
DATA: T_MSEG LIKE ZMASTER OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF T_J_1IEXCHDR OCCURS 0,
RDOC LIKE J_1IEXCHDR-RDOC,
DOCNO LIKE J_1IEXCHDR-DOCNO,
LIFNR LIKE J_1IEXCHDR-LIFNR,
EXDAT LIKE J_1IEXCHDR-EXDAT,
REMTIME LIKE J_1IEXCHDR-REMTIME,
END OF T_J_1IEXCHDR.
DATA: BEGIN OF T_J_1IEXCDTL OCCURS 0,
DOCNO LIKE J_1IEXCDTL-DOCNO,
MATNR LIKE J_1IEXCDTL-MATNR,
MAKTX LIKE J_1IEXCDTL-MAKTX,
MENGE LIKE J_1IEXCDTL-MENGE,
MEINS LIKE J_1IEXCDTL-MEINS,
CHAPID LIKE J_1IEXCDTL-CHAPID,
EXBAS LIKE J_1IEXCDTL-EXBAS,
EXNUM LIKE J_1IEXCDTL-EXNUM,
TQTY TYPE J_1IEXCDTL-MENGE,
TOTAL TYPE J_1IEXCDTL-EXBAS,
END OF T_J_1IEXCDTL.
DATA: BEGIN OF T_T001W OCCURS 0,
NAME1 LIKE T001W-NAME1,
STRAS LIKE T001W-STRAS,
ORT01 LIKE T001W-ORT01,
PSTLZ LIKE T001W-PSTLZ,
WERKS LIKE T001W-WERKS,
END OF T_T001W.
DATA : FNAME TYPE RS38L_FNAM,
COUNT TYPE I,
QTY, TOT.
START-OF-SELECTION.
SELECT EBELN MBLNR BWART MJAHR WERKS SHKZG
FROM MSEG
INTO TABLE T_MSEG
WHERE EBELN EQ S_EBELN AND
BWART EQ '541' AND
SHKZG EQ 'H'.
IF T_MSEG[] IS NOT INITIAL.
SELECT RDOC DOCNO LIFNR EXDAT REMTIME
FROM J_1IEXCHDR
INTO TABLE T_J_1IEXCHDR
FOR ALL ENTRIES IN T_MSEG
WHERE RDOC EQ T_MSEG-MBLNR.
ENDIF.
IF T_J_1IEXCHDR[] IS NOT INITIAL.
SELECT DOCNO MATNR MAKTX MENGE MEINS CHAPID EXBAS EXNUM
FROM J_1IEXCDTL
INTO TABLE T_J_1IEXCDTL
FOR ALL ENTRIES IN T_J_1IEXCHDR
WHERE DOCNO EQ T_J_1IEXCHDR-DOCNO.
ENDIF.
IF T_MSEG[] IS NOT INITIAL.
SELECT NAME1 STRAS ORT01 PSTLZ WERKS
FROM T001W
INTO TABLE T_T001W
FOR ALL ENTRIES IN T_MSEG
WHERE WERKS EQ T_MSEG-WERKS.
ENDIF.
LOOP AT T_MSEG .
READ TABLE T_J_1IEXCHDR WITH KEY RDOC = T_MSEG-MBLNR.
MOVE T_J_1IEXCHDR-RDOC TO T_MSEG-RDOC.
MOVE T_J_1IEXCHDR-DOCNO TO T_MSEG-DOCNO.
MOVE T_J_1IEXCHDR-LIFNR TO T_MSEG-LIFNR.
MOVE T_J_1IEXCHDR-EXDAT TO T_MSEG-EXDAT .
MOVE T_J_1IEXCHDR-REMTIME TO T_MSEG-REMTIME.
MODIFY T_MSEG.
CLEAR T_MSEG.
ENDLOOP .
LOOP AT T_MSEG .
READ TABLE T_J_1IEXCDTL WITH KEY DOCNO = T_J_1IEXCHDR-DOCNO.
MOVE T_J_1IEXCDTL-MATNR TO T_MSEG-MATNR.
MOVE T_J_1IEXCDTL-MAKTX TO T_MSEG-MAKTX .
MOVE T_J_1IEXCDTL-MENGE TO T_MSEG-MENGE.
MOVE T_J_1IEXCDTL-MEINS TO T_MSEG-MEINS .
MOVE T_J_1IEXCDTL-CHAPID TO T_MSEG-CHAPID.
MOVE T_J_1IEXCDTL-EXBAS TO T_MSEG-EXBAS.
MOVE T_J_1IEXCDTL-EXNUM TO T_MSEG-EXNUM.
QTY = QTY + T_MSEG-MENGE.
T_MSEG-TQTY = QTY .
TOT = TOT + T_MSEG-EXBAS.
T_MSEG-TOTAL = TOT.
MODIFY T_MSEG.
CLEAR T_MSEG.
ENDLOOP .
COUNT = 1.
LOOP AT T_MSEG .
READ TABLE T_T001W WITH KEY WERKS = T_MSEG-WERKS.
MOVE T_T001W-NAME1 TO T_MSEG-NAME1.
MOVE T_T001W-STRAS TO T_MSEG-STRAS.
MOVE T_T001W-ORT01 TO T_MSEG-ORT01.
MOVE T_T001W-PSTLZ TO T_MSEG-PSTLZ .
COUNT = COUNT + 1.
T_MSEG-SNO = COUNT.
MODIFY T_MSEG.
CLEAR T_MSEG.
ENDLOOP.
END-OF-SELECTION .
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = 'ZMIL_CHALLAN'
VARIANT = ' '
DIRECT_CALL = ' '
IMPORTING
FM_NAME = FNAME
EXCEPTIONS
NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3
.
IF sy-subrc <> 0.
ENDIF.
CALL FUNCTION FNAME
EXPORTING
S_EBELN = S_EBELN
TABLES
T_MSEG = T_MSEG
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5.
IF SY-SUBRC <> 0.
ENDIF.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.