Urgent smartforms!!!!!!

Question

hi,
i hav a table called zborrower which contains 5 fields , one of the field is :"date_of_return" ....i need to display the details of the borrower based on the date range for date_of_return in the smartform using select options.......how could i do this??.......if there is any other method other than the select options do let me knw.......thank you 

Answer 1

*& Report  ZREP
REPORT  zrep NO STANDARD PAGE HEADING LINE-SIZE 200.
TABLES : zbooks,zborrower.
TYPES : BEGIN OF struct,
        bookid TYPE zbooks-bookid,
        bname TYPE zbooks-bname,
        bmodule TYPE zbooks-bmodule,
        copies TYPE zbooks-copies,
        bavailable TYPE zbooks-bavailable,
        borrowername TYPE zborrower-borrowername,
        dateofborrower TYPE zborrower-dateofborrower,
        dateofreturn TYPE zborrower-dateofreturn,
        END OF struct.
DATA : itab TYPE TABLE OF struct.
DATA : wa LIKE LINE OF itab.
SELECT-OPTIONS : s_dob FOR zborrower-dateofborrower.
PARAMETERS : p_bname TYPE zbooks-bname.
START-OF-SELECTION.
  SET PF-STATUS 'SMARTFORMS'.
  SELECT *
  INTO CORRESPONDING FIELDS OF TABLE itab
  FROM zbooks AS a
  INNER JOIN zborrower AS b ON abookid = bbookid
  WHERE b~dateofborrower IN s_dob
  AND a~bname = p_bname.
  LOOP AT itab INTO wa.
    WRITE : /10 sy-vline,
             15 wa-bookid COLOR 1 INTENSIFIED ON,25 sy-vline,
             26 wa-bname COLOR 2 INTENSIFIED OFF,51 sy-vline,
             52 wa-borrowername COLOR 4 INTENSIFIED OFF ,77 sy-vline,
             78 wa-dateofborrower COLOR 7 INTENSIFIED OFF,95 sy-vline,
             96 wa-dateofreturn COLOR 1 INTENSIFIED OFF ,120 sy-vline.
  ENDLOOP.
  WRITE:/10 sy-uline(111).
AT USER-COMMAND.
  CASE sy-ucomm.
    WHEN 'SMARTFORM'.
      CALL FUNCTION '/1BCDWB/SF00000231'
      EXPORTING
        ARCHIVE_INDEX              =
        ARCHIVE_INDEX_TAB          =
        ARCHIVE_PARAMETERS         =
        CONTROL_PARAMETERS         =
        MAIL_APPL_OBJ              =
        MAIL_RECIPIENT             =
        MAIL_SENDER                =
        OUTPUT_OPTIONS             =
        USER_SETTINGS              = 'X'
        IMPORTING
        DOCUMENT_OUTPUT_INFO       =
        JOB_OUTPUT_INFO            =
        JOB_OUTPUT_OPTIONS         =
        EXCEPTIONS
        FORMATTING_ERROR           = 1
        INTERNAL_ERROR             = 2
        SEND_ERROR                 = 3
        USER_CANCELED              = 4
        OTHERS                     = 5
      IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
  ENDCASE.
TOP-OF-PAGE.
  WRITE: /10 sy-uline(111),
         /10 sy-vline ,15 'BOOK ID' COLOR 1 INTENSIFIED OFF,
         25 sy-vline, 26 'BOOK NAME' COLOR 2 INTENSIFIED OFF,
         51 sy-vline, 52 'BORROWER NAME' COLOR 4 INTENSIFIED OFF,
         77 sy-vline, 78 'DATE OF BORROWER' COLOR 7 INTENSIFIED OFF,
        95 sy-vline, 96 'DATE OF RETURN' COLOR 1 INTENSIFIED OFF,
        120 sy-vline.
  WRITE:/10 sy-uline(111).
END-OF-PAGE.
END-OF-SELECTION.
  WRITE:/'Current Date:' COLOR 3 INTENSIFIED OFF,sy-datum.