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

code correction for select option .

$
0
0

Its a driver programme for  a smart form . I cant select any any option form the selection box  infact the small square box which generally apear after the selection box dosent appear  in this case .  Any suggestions  ?

 

 

 

REPORT  ZSAT_FORMS1.

TABLES: MKPF.

 

DATA: FM_NAME TYPE RS38L_FNAM.

 

*

*TYPES : BEGIN OF I_tab,

* MBLNR  type  mkpf-MBLNR ,

*  MJAHR type  mkpf-MJAHR ,

*  AEDAT type mkpf-AEDAT ,

*  END OF I_tab .

*

* data : INT_MKPF TYPE TABLE OF I_TAB .

 

 

 

DATA: BEGIN OF INT_MKPF OCCURS 0.

INCLUDE STRUCTURE MKPF.

DATA: END OF INT_MKPF.

 

 

 

SELECT-OPTIONS S_MBLNR FOR MKPF-MBLNR . "MEMORY ID 001.

 

*SELECT * FROM MKPF WHERE MBLNR IN S_MBLNR.

*MOVE-CORRESPONDING MKPF TO INT_MKPF.

*APPEND INT_MKPF.

*

*ENDSELECT.

 

select * from mkpf   into CORRESPONDING FIELDS OF TABLE INT_MKPF UP TO  10 ROWS where mblnr in s_mblnr .

 

*At the end of your program.

*Passing data to SMARTFORMS

 

 

 

 

 

 

 

 

call function 'SSF_FUNCTION_MODULE_NAME'

exporting

formname = 'ZSAT_FORMS1'(001)

VARIANT = ' '

DIRECT_CALL = ' '

IMPORTING

FM_NAME = FM_NAME

EXCEPTIONS

NO_FORM = 1

NO_FUNCTION_MODULE = 2

OTHERS = 3.

 

if sy-subrc <> 0.

WRITE: / 'ERROR 1'.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

 

call function FM_NAME

*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 =

TABLES

INT_MKPF = INT_MKPF

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 .


Viewing all articles
Browse latest Browse all 8620

Latest Images

Trending Articles



Latest Images

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