Smartforms output in list display

hi,
Table borders are not displayed in list display of the spool request.how to resolve this?

try this ........
in the window level ... in output option tab ... check the box "Lines With"...

Similar Messages

Problem in displaying data in the smartform output.

Dear Freinds,
I have a requirement as per my requirement i have to display the employee dependents details in the smartform output.
I have taken a table in smartform and collected all teh employee dependents details . Each dependents his own details around 8 fields. so iam displaying in the smartform it is working till now no problem ........iam getting data as below
Dependentrelation | dependentname|passportno|expirydate|visano|visadate|visa expire date| ResidenceNo|Residence issuedate|
spouse | Raja |123456 |10/09/2009|122233|10/01/2009|10/01/2010 | 1001 |10/01/2009
These are the one of the dependentds details iam having till now , like this i have another dependts details. Now the problem i have
to add some fields to this list ( to this internal table) ...........if iam adding one more feild data is getting truncated as i dont have any more fields to add to right in the horizontal line........how can i solve this issue and how can i add further fields to this list
like date of birth of the dependents and gender
please could any one tell how i can solve this issue.
regards
divya.

If this is a Tablethen only thing you can do is re-size the grid and font size to adjust your data. Like, displaying HEADINGS & DATAs in 2 rows instead of 1, etc.
Nothing else can be done. Otherwise you have to trim down the data to adjust in one page.

Smartforms: Blank line is displaying in item list from page2 onwords

Hi Guys,
In Output messages(ME9K), using smartform to display list. First page layout and 2nd, 3rd .......pages layout is different.
so i defind two pages. output list displaying is correct which is more then 2 pages, but from 2nd page onwords one blank line is coming in mainwindow at items list.
2nd page i selected is mode:Page and overall page unchanged.
can you suggest me please.
Srinu.

Mike,
I'd guess that you're getting an "extra value". The tenth parameter to select_list_from_lov can be set to 'NO' to suppress this but you'll want to determine why there is an extra value if you aren't expecting one.
Scott

How to display smartform output?

Hi,
Can anybody give me some hint on how to display a smartform output containing tables and texts in a bsp?? I have searched the forum but since I am new to bsp,I am not finding a caompact solution by following which I can get the idea. Please help..

Hi,
Check this link [Smartform PDF output in BSP|Smartform PDF output in BSP;
Hope this helps you.
Regards,
Rajani

Displaying amount field in smartform output

hi experts,
i am printing amount field in smartform output. like this 11,200.
but i need to display like this $11,200.
i need to print $ with amount field .
can u give me some idea?
Thanks

Hi,
Try like this.
Data : v_amount type i value 11200,
v_final type string
If u r getting currency, then check the currency.
If Curr eq 'USD'
concatenate '$' v_amount into v_final separated by space.
endif.
Print V_FINAL where do u want.

CRM Service Quotation-display the configured smartform output-in SAP GUI ;

Hi All,
I have displayed the SAP CRM Service Quotation using SAP Transaction crmd_order (in SAP GUI not from web UI);
Appreciate if you let me know how I can display the configured smartform output - in SAP GUI ;
I am about to do some changes to the smartform but I dont know how to test;
Thank you very much
Iver - Sorry I am new to SAP CRM

Hi Iver
I think following should work
Go to transaction Data->Actions tab in CRMD_ORDER transaction.
If action is already defined then you can select the action adn see the preview
Regards
Naresh

Smartform Output Amount display in Parenthesis

Hi,
In a Smartform Output my varaible (X_VAR type p decimals 2) is printing out as 434543.65-.
I want my output to be in this format (434543.65) rather than with negative Sign.
Due to my requirement I can't change the type of variables.
Any idea how to Show it on Smartform .Unfortunately Concatenation doesn't work with Variables of Type p.
Any ideas?
Regards
Vara

Omitting the Leading Sign:
The ITCDP-TDULPOS field contains the value -100.00. The ABAP Dictionary definition for this field includes a leading sign.
&ITCDP-TDULPOS& -> 100.00-
&ITCDP-TDULPOS(S)& -> 100.00
You might be getting syntax error since smart form editor
is case sensitive. Try with all capital.
Hope this helps..
Thanks,
vamshi

SMARTFORMS: 'OUTPUT CANNOT BE ISSUED error

Hi,
I have designed a smartform for Delivery document. One of the delivery has 700 lines of Packing for 1 single line item. When I execute this delivery, the output is not displayed The error message is "the output could not be issued".
In debug mode I find that it is giving error in function module SSFCOMP_WRITE_TEXT for the 518th line of the packing list. The data in this line is similar to previous lines and there does not seem to be anything different in this line. The function module is returning sy-subrc = 2.
if i reduce the packings to 517lines, then the document gets printed correctly. Otherwise it gives an error.
I need to display the line item alongwith the entire packing lines.
Please help.
Thanks and Regards,
shilpa

Hi Shilpa,
First don't run thro the program.
u just activate the smartform and then execute the Smartform. then u see the exception. the error belongs to window size is not enough space to write the text. Maybe it is overlapping the other windows.
So correct the window size then u run thro the program.
Otherwise it is related to Alignment problem. That means check margins and positions.
- Selvapandian Arunachalam

Produce smartform output in word doc

I want to get my smartform output in a word doc instead of PDF. I've gone thorough the previous threads for the same thing but couldn't find any exact solution. can anyone tell me how this is to be done?
<promise removed by moderator>
Moderator message: please do more research before asking.
Edited by: Thomas Zloch on Apr 13, 2011 3:26 PM

Hi yogesh.,
There is no standard possibility to do Word outputs in SAP.
you can do manually..
After the print preview, Select the menu Goto->List Display.
Now select the menu System->List->Save->Local File.
Now you can select the radio buttion Rich Text Format.
Now you save the document as a .doc file (say test.doc)
That is it!!!!!
Anyway you can develop connection of Mail-merge technology of Microsoft and SAP ABAP class i_oi_document_proxy.
http://help.sap.com/saphelp_sm32/helpdata/EN/e9/0be980408e11d1893b0000e8323c4f/content.htm
with interface get_mail_merge_interface:
http://help.sap.com/saphelp_sm32/helpdata/en/6e/8fc2e3dd0d11d2bdba080009b4534c/content.htm
Refer this use ful link for word output
http://www.sap2word.de/abap.html
hope this helps.,
Thanks & Regards
Kiran
Moderator message: copy/pasted from several sources, please do not repeat if you want to keep your user ID!
http://www.google.com/search?q=%22Aftertheprintpreview%2CSelectthemenu+Goto%22&hl=en&source=hp&lr=&aq=f&aqi=&aql=&oq=
http://www.google.com/search?hl=en&source=hp&q=%22AnywayyoucandevelopconnectionofMail-merge%22&meta=lr%3D&aq=f&aqi=&aql=&oq=
Edited by: Thomas Zloch on Apr 13, 2011 3:35 PM

How can we save smartform output as word document

Hi Friends,
Can anybody help me, how to save Smartform output as Word document instead of PDF file.
Thanks,
Ramana.

Hi Venkat,
I think you can do it manually.
After the print preview, Select the menu Goto->List Display.
Now select the menu System->List->Save->Local File.
Now you can select the radio buttion Rich Text Format.
Now you save the document as a .doc file (say test.doc)
That is it!!!!!
Award points if found useful.
Regards,
SP.

Smartform output as .rtf file

Does anyone of you know if it is posible to sent out a Smartform/Sapscript generated from a transaction document (e.g. PO, Sales order) by email in the .rtf (Rich Text Format) format?
Regards
Gaurav

Hi Gaurav,
To get the output of your samrtform in .rtf format.First execute your smartform now go to GOTO->List Display after this your layout is displayed in list format .Now again go to System>List>save>Local file-->now select rich text format option and say ok.Now it will ask you for the path where to save give the path and you will get your samrt form displayed in rtf format.But you cannot display LOGO here in rtf.
Reward Points if helpful.
Regards,
Harini

Smartforms output as HTML in email

Hi,
I want to send the output of a smartform as html in email body.
I found and used this bolg: :<a href="/people/pavan.bayyapu/blog/2005/08/30/sending-html-email-from-sap-crmerp HTML Email from SAP CRM/ERP</a>
I did everything as per the blog.
However I am getting the email as:
sf @media print {.xsfnoprint{ display : none ;}}/* Default css layout information for SAP Smart Forms (XSF Output) Last modified: 12.05.2003 /@media screen { body { background-color : #EFEFEF ; }}@media screen { .page { border-style : outset ; border-width : 2pt ; background-color : white ; }}/@media print { .page { overflow: hidden; }}// unification browser-dependent settings /table { border-spacing: 0pt; empty-cells: show;}tr { vertical-align: top; }td input img img.icon / End of default.css */.SYSTEM div#B.par{ font-family : "Courier New" ; font-size : 12pt ; font-weight : normal ; line-height : 4.23mm ; text-decoration : none ; text-align : justify ; clear : both ;}.SYSTEM div#L.par{ font-family : "Courier New" ; font-size : 12pt ; font-weight : normal ; line-height : 4.23mm ; text-decoration : none ; text-align : left ; clear : both ;}.SYSTEM a.SYSTEM span#H.char{ font-weight : bold ;}.SYSTEM span#I.char{ font-style : italic ;}.SYSTEM span#U.char{ text-decoration : underline ;}#sfPAGE1-001.page@media screen {#MAIN.win{ overflow : auto ;}}@media print {#MAIN.win{ overflow : hidden ;}}#sfPAGE1-001.page #MAIN.win
Welcome
<IMG src="https://www.sdn.sap.com/sd/img/logo_header.gif" border="0" aligh="left" width="559" height="48">
I am using: Lotus notes client for email and my smartform contains only two text elements: one containing text Welcome and other containing text
<IMG src="https://www.sdn.sap.com/sd/img/logo_header.gif" border="0" aligh="left" width="559" height="48">
When I display the document using SOST, I get the output as
Address bar has this: C:\Documents and Settings\EDC LTIL02\SapWorkDir\TESTHTMLEMAILFROMSMARTFORMOUTPUT_20070928154506.046_X.MHT
and window contains:
Welcome
<IMG src="https://www.sdn.sap.com/sd/img/logo_header.gif" border="0" aligh="left" width="559" height="48"> "
Regards,
Reema
Message was edited by:
 Reema Shahbazkar
In case anyone needs to have a look at my code:
REPORT ZSMARTFORM_2_HTML_EMAIL.
get generated function module for the smartform
DATA: FM_NAME TYPE RS38L_FNAM.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
 FORMNAME = 'ZSF_SAMPLE_HTML'
VARIANT = ' '
DIRECT_CALL = ' '
IMPORTING
 FM_NAME = FM_NAME
EXCEPTIONS
 NO_FORM = 1
 NO_FUNCTION_MODULE = 2
 OTHERS = 3
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
get smartform contetnt
set smartform output options
data:
control_parameters type SSFCTRLOP,
OUTPUT_OPTIONS TYPE SSFCOMPOP,
DOCUMENT_OUTPUT_INFO TYPE SSFCRESPD,
JOB_OUTPUT_INFO TYPE SSFCRESCL,
JOB_OUTPUT_OPTIONS TYPE SSFCRESOP,
XSFPARAM_LINE TYPE SSFXSFP,
P_HTML TYPE TRFRESULT,
P_GRAPHICS TYPE TSF_XSF_GR,
WA_RETURN TYPE BAPIRET2.
CONSTANTS: C_GR_DIR TYPE TDTEXT VALUE '/MYGRAPHICS'.
control_parameters-NO_DIALOG = 'X'.
*control_parameters-GETOTF = 'X'.
OUTPUT_OPTIONS-TDNEWID = SPACE.
OUTPUT_OPTIONS-TDIMMED = SPACE.
OUTPUT_OPTIONS-XSFCMODE = 'X'. "RUNTIME SETTINGS FROM SMARTFORM HEADER TO BE USED
OUTPUT_OPTIONS-XSF = 'X'. "XSF OUTPUT ACTIVATED
OUTPUT_OPTIONS-XSFOUTMODE = 'A'. "XSF OUTPUT STREAM PASSED DIRECTLY TO CALLING PROGRAM AS AN INTERNAL TABLE.
CLEAR: OUTPUT_OPTIONS-XSFOUTDEV. "OUTPUT SPOOL DEVICE
OUTPUT_OPTIONS-XSFFORMAT = 'X'. "ADDITIONALLLY TO XSF, HTML AND CSS LAYOUT INFORMATION IS ALSO PASSED TO CALLING PROGRAM
XSFPARAM_LINE-NAME = 'GRAPHICS'.
XSFPARAM_LINE-VALUE = 'EXTRACT'.
APPEND XSFPARAM_LINE TO OUTPUT_OPTIONS-XSFPARS.
XSFPARAM_LINE-NAME = 'GRAPHICS-DIRECTORY'.
XSFPARAM_LINE-VALUE = C_GR_DIR.
APPEND XSFPARAM_LINE TO OUTPUT_OPTIONS-XSFPARS.
XSFPARAM_LINE-NAME = 'CONTENT-ID'.
XSFPARAM_LINE-VALUE = 'ENABLE'.
APPEND XSFPARAM_LINE TO OUTPUT_OPTIONS-XSFPARS.
CALL GENERATED FUNCTION MODULE TO GET FORM CONTENTS
CALL FUNCTION FM_NAME
EXPORTING
ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =
 CONTROL_PARAMETERS = CONTROL_PARAMETERS
MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
 OUTPUT_OPTIONS = OUTPUT_OPTIONS
USER_SETTINGS = 'X'
IMPORTING
 DOCUMENT_OUTPUT_INFO = DOCUMENT_OUTPUT_INFO
 JOB_OUTPUT_INFO = JOB_OUTPUT_INFO
 JOB_OUTPUT_OPTIONS = 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.
SEPARATE HTML GRAPHICAL N CSS LAYOUT CONTENT
P_HTML = JOB_OUTPUT_INFO-XMLOUTPUT-TRFRESULT.
P_GRAPHICS[] = JOB_OUTPUT_INFO-XMLOUTPUT-XSFGR[].
PROCEED TO SEND EMAIL
DATA: HTML_DATA TYPE TRFRESULT,
 L_HTML_RAW LIKE LINE OF HTML_DATA-CONTENT,
 HTML_XSTR TYPE XSTRING.
CLEAR: HTML_XSTR.
LOOP AT P_HTML-CONTENT INTO L_HTML_RAW.
CONCATENATE HTML_XSTR L_HTML_RAW INTO HTML_XSTR IN BYTE MODE.
ENDLOOP.
HTML_XSTR = HTML_XSTR(P_HTML-LENGTH).
SPECIAL CHARACTER CONVERSION
DATA: HTML_STR TYPE STRING,
 HTML_LEN TYPE I.
CALL FUNCTION 'SCP_TRANSLATE_CHARS'
EXPORTING
 INBUFF = HTML_XSTR
INBUFFLG = 0
 INCODE = '4110' "utf-8
OUTBUFFLG = 0
OUTCODE = '0000'
 CSUBST = 'X'
SUBSTC_HASH = ' '
SUBSTC_DOT = ' '
 SUBSTC_SPACE = 'x'
SUBSTC = '00035'
IMPORTING
INUSED =
 OUTBUFF = HTML_STR
OUTOVERFLOW =
 OUTUSED = HTML_LEN
SUBSTED =
INPUT_ENDS_IN_CHAR =
ERRMSG =
EXCEPTIONS
INVALID_CODEPAGE = 1
INTERNAL_ERROR = 2
CANNOT_CONVERT = 3
FIELDS_BAD_TYPE = 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.
CHANGE ENCODING UTF-8 TO LATIN1
REPLACE ALL OCCURRENCES OF 'UTF-8' IN HTML_STR WITH 'iso-8859-1' IGNORING CASE.
REPLACE ALL OCCURRENCES OF '<IMG' IN HTML_STR WITH '<IMG' IGNORING CASE.
REPLACE ALL OCCURRENCES OF '/>' IN HTML_STR WITH '/>' IGNORING CASE.
REPLACE ALL OCCURRENCES OF '<A>' IN HTML_STR WITH '' IGNORING CASE.
REPLACE ALL OCCURRENCES OF '<' IN HTML_STR WITH '<' IGNORING CASE.
REPLACE ALL OCCURRENCES OF '>' IN HTML_STR WITH '>' IGNORING CASE.
HTML_LEN = STRLEN( HTML_STR ).
DATA: L_OFFSET TYPE I,
 L_LENGTH TYPE I,
 L_DIFF TYPE I,
 LT_SOLI TYPE SOLI_TAB,
 LS_SOLI TYPE SOLI.
L_OFFSET = 0.
L_LENGTH = 255.
WHILE L_OFFSET < HTML_LEN.
L_DIFF = HTML_LEN - L_OFFSET.
IF L_DIFF > L_LENGTH.
 LS_SOLI-LINE = HTML_STR+L_OFFSET(L_LENGTH).
ELSE.
 LS_SOLI-LINE = HTML_STR+L_OFFSET(L_DIFF).
ENDIF.
APPEND LS_SOLI TO LT_SOLI.
ADD L_LENGTH TO L_OFFSET.
ENDWHILE.
DATA: LO_MIME_HELPER TYPE REF TO CL_GBT_MULTIRELATED_SERVICE.
CREATE OBJECT LO_MIME_HELPER
EXPORTING
 CODEPAGE = '1133'.
CALL METHOD LO_MIME_HELPER->SET_MAIN_HTML
EXPORTING
 CONTENT = LT_SOLI
 FILENAME =
 DESCRIPTION =
HANDLE GRAPHICS
DATA: L_GRAPHIC TYPE SSF_XSF_GR,
 GR_XSTR TYPE XSTRING,
 L_GR_RAW TYPE BAPICONTEN,
 L_CONTENT_ID TYPE STRING,
 L_CONTENT_TYPE TYPE W3CONTTYPE,
 L_OBJ_LEN TYPE SO_OBJ_LEN,
 L_FILENAME TYPE STRING,
 LT_SOLIX TYPE SOLIX_TAB,
 LS_SOLIX TYPE SOLIX.
LOOP AT P_GRAPHICS INTO L_GRAPHIC.
CLEAR: GR_XSTR.
LOOP AT L_GRAPHIC-CONTENT INTO L_GR_RAW.
 CONCATENATE GR_XSTR L_GR_RAW-LINE INTO GR_XSTR IN BYTE MODE.
ENDLOOP.
GR_XSTR = GR_XSTR(L_GRAPHIC-LENGTH).
L_OFFSET = 0.
L_LENGTH = 255.
CLEAR LT_SOLIX[].
WHILE L_OFFSET < L_GRAPHIC-LENGTH.
 L_DIFF = L_GRAPHIC-LENGTH - L_OFFSET.
 IF L_DIFF > L_LENGTH.
 LS_SOLIX-LINE = GR_XSTR+L_OFFSET(L_LENGTH).
 ELSE.
 LS_SOLIX-LINE = GR_XSTR+L_OFFSET(L_DIFF).
 ENDIF.
 APPEND LS_SOLIX TO LT_SOLIX.
 ADD L_LENGTH TO L_OFFSET.
ENDWHILE.
CONCATENATE C_GR_DIR L_GRAPHIC-GRAPHICS '.BMP' INTO L_FILENAME.
CONCATENATE C_GR_DIR L_GRAPHIC-GRAPHICS '.BMP' INTO L_CONTENT_ID.
L_CONTENT_TYPE = L_GRAPHIC-HTTPTYPE.
L_OBJ_LEN = L_GRAPHIC-LENGTH.
ADD IMAGES TO EMAIL
CALL METHOD LO_MIME_HELPER->ADD_BINARY_PART
 EXPORTING
 CONTENT = LT_SOLIX
 FILENAME =
 EXTENSION =
 DESCRIPTION =
 CONTENT_TYPE = L_CONTENT_TYPE
 LENGTH = L_OBJ_LEN
 CONTENT_ID = L_CONTENT_ID
ENDLOOP.
DATA: LO_DOC_BCS TYPE REF TO CL_DOCUMENT_BCS,
 P_SUBJECT TYPE SO_OBJ_DES,
 LV_GBT_MIME TYPE REF TO CX_GBT_MIME,
 LV_BCOM_MIME TYPE REF TO CX_BCOM_MIME,
 LV_DOCUMENT_BCS TYPE REF TO CX_DOCUMENT_BCS.
P_SUBJECT = 'TEST HTML EMAIL FROM SMARTFORM OUTPUT'.
TRY.
CALL METHOD CL_DOCUMENT_BCS=>CREATE_FROM_MULTIRELATED
 EXPORTING
 I_SUBJECT = P_SUBJECT
 I_LANGUAGE = SY-LANGU
 I_IMPORTANCE = '5'
 I_SENSITIVITY = 'F'
 I_MULTIREL_SERVICE = LO_MIME_HELPER
 RECEIVING
 RESULT = LO_DOC_BCS
 CATCH CX_DOCUMENT_BCS INTO LV_DOCUMENT_BCS.
 CATCH CX_BCOM_MIME INTO LV_BCOM_MIME.
 CATCH CX_GBT_MIME INTO LV_GBT_MIME.
ENDTRY.
RECEIVERS
DATA: P_RECEIVERS TYPE TABLE OF SOMLRECI1,
 RECEIVER TYPE SOMLRECI1,
 L_MAIL_ADDRESS TYPE AD_SMTPADR,
 LO_BCS TYPE REF TO CL_BCS,
 LV_SEND_REQ_BCS TYPE REF TO CX_SEND_REQ_BCS,
 L_USERNAME TYPE UNAME,
 SEND_PARTNER TYPE BU_PARTNER,
 LI_SENDER TYPE REF TO IF_SENDER_BCS,
 LV_ADDRESS_BCS TYPE REF TO CX_ADDRESS_BCS,
 LV_SENT_TO_ALL TYPE BOOLEAN.
CLEAR RECEIVER.
RECEIVER-RECEIVER = '[email protected]'.
RECEIVER-REC_TYPE = 'U'.
RECEIVER-COM_TYPE = 'INT'.
APPEND RECEIVER TO P_RECEIVERS.
L_USERNAME = SY-UNAME.
CLEAR RECEIVER.
LOOP AT P_RECEIVERS INTO RECEIVER.
L_MAIL_ADDRESS = RECEIVER-RECEIVER.
TRY.
CALL METHOD CL_BCS=>CREATE_PERSISTENT
 RECEIVING
 RESULT = LO_BCS
 CALL METHOD LO_BCS->SET_DOCUMENT
 EXPORTING
 I_DOCUMENT = LO_DOC_BCS
 CATCH CX_SEND_REQ_BCS INTO LV_SEND_REQ_BCS.
ENDTRY.
CREATE SENDER
CLASS CL_CAM_ADDRESS_BCS DEFINITION LOAD.
TRY.
IF L_USERNAME NS '@'.
 L_USERNAME = SEND_PARTNER.
 TRANSLATE L_USERNAME TO UPPER CASE.
 LI_SENDER ?= CL_SAPUSER_BCS=>CREATE( L_USERNAME ).
ELSE.
 DATA: L_FROM_MAIL_ADDRESS TYPE AD_SMTPADR.
 L_FROM_MAIL_ADDRESS = L_USERNAME.
 LI_SENDER ?= CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS( I_ADDRESS_STRING = L_FROM_MAIL_ADDRESS ).
ENDIF.
CALL METHOD LO_BCS->SET_SENDER
 EXPORTING
 I_SENDER = LI_SENDER
CATCH CX_ADDRESS_BCS INTO LV_ADDRESS_BCS.
CATCH CX_SEND_REQ_BCS INTO LV_SEND_REQ_BCS.
ENDTRY.
create recepient
data: LO_RECEPIENT TYPE REF TO IF_RECIPIENT_BCS.
TRY.
CALL METHOD CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS
 EXPORTING
 I_ADDRESS_STRING = L_MAIL_ADDRESS
 I_ADDRESS_NAME =
 I_INCL_SAPUSER =
 RECEIVING
 RESULT = LO_RECEPIENT
CATCH CX_ADDRESS_BCS INTO LV_ADDRESS_BCS.
ENDTRY.
TRY.
CALL METHOD LO_BCS->ADD_RECIPIENT
 EXPORTING
 I_RECIPIENT = LO_RECEPIENT
 I_EXPRESS =
 I_COPY =
 I_BLIND_COPY =
 I_NO_FORWARD =
CATCH CX_SEND_REQ_BCS INTO LV_SEND_REQ_BCS.
ENDTRY.
SEND EMAIL DOCUMENT
TRY.
CALL METHOD LO_BCS->SEND_REQUEST->SET_REQUESTED_STATUS
EXPORTING
 I_REQUESTED_STATUS = 'N'
TRY.
CALL METHOD LO_BCS->SEND
EXPORTING
 I_WITH_ERROR_SCREEN = SPACE
RECEIVING
 RESULT = LV_SENT_TO_ALL
CATCH CX_SEND_REQ_BCS INTO LV_SEND_REQ_BCS.
ENDTRY.
ENDTRY.
ENDLOOP.
COMMIT WORK.

Hi,
I want to send the output of a smartform as html in email body.
I found and used this bolg: :<a href="/people/pavan.bayyapu/blog/2005/08/30/sending-html-email-from-sap-crmerp HTML Email from SAP CRM/ERP</a>
I did everything as per the blog.
However I am getting the email as:
sf @media print {.xsfnoprint{ display : none ;}}/* Default css layout information for SAP Smart Forms (XSF Output) Last modified: 12.05.2003 /@media screen { body { background-color : #EFEFEF ; }}@media screen { .page { border-style : outset ; border-width : 2pt ; background-color : white ; }}/@media print { .page { overflow: hidden; }}// unification browser-dependent settings /table { border-spacing: 0pt; empty-cells: show;}tr { vertical-align: top; }td input img img.icon / End of default.css */.SYSTEM div#B.par{ font-family : "Courier New" ; font-size : 12pt ; font-weight : normal ; line-height : 4.23mm ; text-decoration : none ; text-align : justify ; clear : both ;}.SYSTEM div#L.par{ font-family : "Courier New" ; font-size : 12pt ; font-weight : normal ; line-height : 4.23mm ; text-decoration : none ; text-align : left ; clear : both ;}.SYSTEM a.SYSTEM span#H.char{ font-weight : bold ;}.SYSTEM span#I.char{ font-style : italic ;}.SYSTEM span#U.char{ text-decoration : underline ;}#sfPAGE1-001.page@media screen {#MAIN.win{ overflow : auto ;}}@media print {#MAIN.win{ overflow : hidden ;}}#sfPAGE1-001.page #MAIN.win
Welcome
<IMG src="https://www.sdn.sap.com/sd/img/logo_header.gif" border="0" aligh="left" width="559" height="48">
I am using: Lotus notes client for email and my smartform contains only two text elements: one containing text Welcome and other containing text
<IMG src="https://www.sdn.sap.com/sd/img/logo_header.gif" border="0" aligh="left" width="559" height="48">
When I display the document using SOST, I get the output as
Address bar has this: C:\Documents and Settings\EDC LTIL02\SapWorkDir\TESTHTMLEMAILFROMSMARTFORMOUTPUT_20070928154506.046_X.MHT
and window contains:
Welcome
<IMG src="https://www.sdn.sap.com/sd/img/logo_header.gif" border="0" aligh="left" width="559" height="48"> "
Regards,
Reema
Message was edited by:
 Reema Shahbazkar
In case anyone needs to have a look at my code:
REPORT ZSMARTFORM_2_HTML_EMAIL.
get generated function module for the smartform
DATA: FM_NAME TYPE RS38L_FNAM.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
 FORMNAME = 'ZSF_SAMPLE_HTML'
VARIANT = ' '
DIRECT_CALL = ' '
IMPORTING
 FM_NAME = FM_NAME
EXCEPTIONS
 NO_FORM = 1
 NO_FUNCTION_MODULE = 2
 OTHERS = 3
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
get smartform contetnt
set smartform output options
data:
control_parameters type SSFCTRLOP,
OUTPUT_OPTIONS TYPE SSFCOMPOP,
DOCUMENT_OUTPUT_INFO TYPE SSFCRESPD,
JOB_OUTPUT_INFO TYPE SSFCRESCL,
JOB_OUTPUT_OPTIONS TYPE SSFCRESOP,
XSFPARAM_LINE TYPE SSFXSFP,
P_HTML TYPE TRFRESULT,
P_GRAPHICS TYPE TSF_XSF_GR,
WA_RETURN TYPE BAPIRET2.
CONSTANTS: C_GR_DIR TYPE TDTEXT VALUE '/MYGRAPHICS'.
control_parameters-NO_DIALOG = 'X'.
*control_parameters-GETOTF = 'X'.
OUTPUT_OPTIONS-TDNEWID = SPACE.
OUTPUT_OPTIONS-TDIMMED = SPACE.
OUTPUT_OPTIONS-XSFCMODE = 'X'. "RUNTIME SETTINGS FROM SMARTFORM HEADER TO BE USED
OUTPUT_OPTIONS-XSF = 'X'. "XSF OUTPUT ACTIVATED
OUTPUT_OPTIONS-XSFOUTMODE = 'A'. "XSF OUTPUT STREAM PASSED DIRECTLY TO CALLING PROGRAM AS AN INTERNAL TABLE.
CLEAR: OUTPUT_OPTIONS-XSFOUTDEV. "OUTPUT SPOOL DEVICE
OUTPUT_OPTIONS-XSFFORMAT = 'X'. "ADDITIONALLLY TO XSF, HTML AND CSS LAYOUT INFORMATION IS ALSO PASSED TO CALLING PROGRAM
XSFPARAM_LINE-NAME = 'GRAPHICS'.
XSFPARAM_LINE-VALUE = 'EXTRACT'.
APPEND XSFPARAM_LINE TO OUTPUT_OPTIONS-XSFPARS.
XSFPARAM_LINE-NAME = 'GRAPHICS-DIRECTORY'.
XSFPARAM_LINE-VALUE = C_GR_DIR.
APPEND XSFPARAM_LINE TO OUTPUT_OPTIONS-XSFPARS.
XSFPARAM_LINE-NAME = 'CONTENT-ID'.
XSFPARAM_LINE-VALUE = 'ENABLE'.
APPEND XSFPARAM_LINE TO OUTPUT_OPTIONS-XSFPARS.
CALL GENERATED FUNCTION MODULE TO GET FORM CONTENTS
CALL FUNCTION FM_NAME
EXPORTING
ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =
 CONTROL_PARAMETERS = CONTROL_PARAMETERS
MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
 OUTPUT_OPTIONS = OUTPUT_OPTIONS
USER_SETTINGS = 'X'
IMPORTING
 DOCUMENT_OUTPUT_INFO = DOCUMENT_OUTPUT_INFO
 JOB_OUTPUT_INFO = JOB_OUTPUT_INFO
 JOB_OUTPUT_OPTIONS = 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.
SEPARATE HTML GRAPHICAL N CSS LAYOUT CONTENT
P_HTML = JOB_OUTPUT_INFO-XMLOUTPUT-TRFRESULT.
P_GRAPHICS[] = JOB_OUTPUT_INFO-XMLOUTPUT-XSFGR[].
PROCEED TO SEND EMAIL
DATA: HTML_DATA TYPE TRFRESULT,
 L_HTML_RAW LIKE LINE OF HTML_DATA-CONTENT,
 HTML_XSTR TYPE XSTRING.
CLEAR: HTML_XSTR.
LOOP AT P_HTML-CONTENT INTO L_HTML_RAW.
CONCATENATE HTML_XSTR L_HTML_RAW INTO HTML_XSTR IN BYTE MODE.
ENDLOOP.
HTML_XSTR = HTML_XSTR(P_HTML-LENGTH).
SPECIAL CHARACTER CONVERSION
DATA: HTML_STR TYPE STRING,
 HTML_LEN TYPE I.
CALL FUNCTION 'SCP_TRANSLATE_CHARS'
EXPORTING
 INBUFF = HTML_XSTR
INBUFFLG = 0
 INCODE = '4110' "utf-8
OUTBUFFLG = 0
OUTCODE = '0000'
 CSUBST = 'X'
SUBSTC_HASH = ' '
SUBSTC_DOT = ' '
 SUBSTC_SPACE = 'x'
SUBSTC = '00035'
IMPORTING
INUSED =
 OUTBUFF = HTML_STR
OUTOVERFLOW =
 OUTUSED = HTML_LEN
SUBSTED =
INPUT_ENDS_IN_CHAR =
ERRMSG =
EXCEPTIONS
INVALID_CODEPAGE = 1
INTERNAL_ERROR = 2
CANNOT_CONVERT = 3
FIELDS_BAD_TYPE = 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.
CHANGE ENCODING UTF-8 TO LATIN1
REPLACE ALL OCCURRENCES OF 'UTF-8' IN HTML_STR WITH 'iso-8859-1' IGNORING CASE.
REPLACE ALL OCCURRENCES OF '<IMG' IN HTML_STR WITH '<IMG' IGNORING CASE.
REPLACE ALL OCCURRENCES OF '/>' IN HTML_STR WITH '/>' IGNORING CASE.
REPLACE ALL OCCURRENCES OF '<A>' IN HTML_STR WITH '' IGNORING CASE.
REPLACE ALL OCCURRENCES OF '<' IN HTML_STR WITH '<' IGNORING CASE.
REPLACE ALL OCCURRENCES OF '>' IN HTML_STR WITH '>' IGNORING CASE.
HTML_LEN = STRLEN( HTML_STR ).
DATA: L_OFFSET TYPE I,
 L_LENGTH TYPE I,
 L_DIFF TYPE I,
 LT_SOLI TYPE SOLI_TAB,
 LS_SOLI TYPE SOLI.
L_OFFSET = 0.
L_LENGTH = 255.
WHILE L_OFFSET < HTML_LEN.
L_DIFF = HTML_LEN - L_OFFSET.
IF L_DIFF > L_LENGTH.
 LS_SOLI-LINE = HTML_STR+L_OFFSET(L_LENGTH).
ELSE.
 LS_SOLI-LINE = HTML_STR+L_OFFSET(L_DIFF).
ENDIF.
APPEND LS_SOLI TO LT_SOLI.
ADD L_LENGTH TO L_OFFSET.
ENDWHILE.
DATA: LO_MIME_HELPER TYPE REF TO CL_GBT_MULTIRELATED_SERVICE.
CREATE OBJECT LO_MIME_HELPER
EXPORTING
 CODEPAGE = '1133'.
CALL METHOD LO_MIME_HELPER->SET_MAIN_HTML
EXPORTING
 CONTENT = LT_SOLI
 FILENAME =
 DESCRIPTION =
HANDLE GRAPHICS
DATA: L_GRAPHIC TYPE SSF_XSF_GR,
 GR_XSTR TYPE XSTRING,
 L_GR_RAW TYPE BAPICONTEN,
 L_CONTENT_ID TYPE STRING,
 L_CONTENT_TYPE TYPE W3CONTTYPE,
 L_OBJ_LEN TYPE SO_OBJ_LEN,
 L_FILENAME TYPE STRING,
 LT_SOLIX TYPE SOLIX_TAB,
 LS_SOLIX TYPE SOLIX.
LOOP AT P_GRAPHICS INTO L_GRAPHIC.
CLEAR: GR_XSTR.
LOOP AT L_GRAPHIC-CONTENT INTO L_GR_RAW.
 CONCATENATE GR_XSTR L_GR_RAW-LINE INTO GR_XSTR IN BYTE MODE.
ENDLOOP.
GR_XSTR = GR_XSTR(L_GRAPHIC-LENGTH).
L_OFFSET = 0.
L_LENGTH = 255.
CLEAR LT_SOLIX[].
WHILE L_OFFSET < L_GRAPHIC-LENGTH.
 L_DIFF = L_GRAPHIC-LENGTH - L_OFFSET.
 IF L_DIFF > L_LENGTH.
 LS_SOLIX-LINE = GR_XSTR+L_OFFSET(L_LENGTH).
 ELSE.
 LS_SOLIX-LINE = GR_XSTR+L_OFFSET(L_DIFF).
 ENDIF.
 APPEND LS_SOLIX TO LT_SOLIX.
 ADD L_LENGTH TO L_OFFSET.
ENDWHILE.
CONCATENATE C_GR_DIR L_GRAPHIC-GRAPHICS '.BMP' INTO L_FILENAME.
CONCATENATE C_GR_DIR L_GRAPHIC-GRAPHICS '.BMP' INTO L_CONTENT_ID.
L_CONTENT_TYPE = L_GRAPHIC-HTTPTYPE.
L_OBJ_LEN = L_GRAPHIC-LENGTH.
ADD IMAGES TO EMAIL
CALL METHOD LO_MIME_HELPER->ADD_BINARY_PART
 EXPORTING
 CONTENT = LT_SOLIX
 FILENAME =
 EXTENSION =
 DESCRIPTION =
 CONTENT_TYPE = L_CONTENT_TYPE
 LENGTH = L_OBJ_LEN
 CONTENT_ID = L_CONTENT_ID
ENDLOOP.
DATA: LO_DOC_BCS TYPE REF TO CL_DOCUMENT_BCS,
 P_SUBJECT TYPE SO_OBJ_DES,
 LV_GBT_MIME TYPE REF TO CX_GBT_MIME,
 LV_BCOM_MIME TYPE REF TO CX_BCOM_MIME,
 LV_DOCUMENT_BCS TYPE REF TO CX_DOCUMENT_BCS.
P_SUBJECT = 'TEST HTML EMAIL FROM SMARTFORM OUTPUT'.
TRY.
CALL METHOD CL_DOCUMENT_BCS=>CREATE_FROM_MULTIRELATED
 EXPORTING
 I_SUBJECT = P_SUBJECT
 I_LANGUAGE = SY-LANGU
 I_IMPORTANCE = '5'
 I_SENSITIVITY = 'F'
 I_MULTIREL_SERVICE = LO_MIME_HELPER
 RECEIVING
 RESULT = LO_DOC_BCS
 CATCH CX_DOCUMENT_BCS INTO LV_DOCUMENT_BCS.
 CATCH CX_BCOM_MIME INTO LV_BCOM_MIME.
 CATCH CX_GBT_MIME INTO LV_GBT_MIME.
ENDTRY.
RECEIVERS
DATA: P_RECEIVERS TYPE TABLE OF SOMLRECI1,
 RECEIVER TYPE SOMLRECI1,
 L_MAIL_ADDRESS TYPE AD_SMTPADR,
 LO_BCS TYPE REF TO CL_BCS,
 LV_SEND_REQ_BCS TYPE REF TO CX_SEND_REQ_BCS,
 L_USERNAME TYPE UNAME,
 SEND_PARTNER TYPE BU_PARTNER,
 LI_SENDER TYPE REF TO IF_SENDER_BCS,
 LV_ADDRESS_BCS TYPE REF TO CX_ADDRESS_BCS,
 LV_SENT_TO_ALL TYPE BOOLEAN.
CLEAR RECEIVER.
RECEIVER-RECEIVER = '[email protected]'.
RECEIVER-REC_TYPE = 'U'.
RECEIVER-COM_TYPE = 'INT'.
APPEND RECEIVER TO P_RECEIVERS.
L_USERNAME = SY-UNAME.
CLEAR RECEIVER.
LOOP AT P_RECEIVERS INTO RECEIVER.
L_MAIL_ADDRESS = RECEIVER-RECEIVER.
TRY.
CALL METHOD CL_BCS=>CREATE_PERSISTENT
 RECEIVING
 RESULT = LO_BCS
 CALL METHOD LO_BCS->SET_DOCUMENT
 EXPORTING
 I_DOCUMENT = LO_DOC_BCS
 CATCH CX_SEND_REQ_BCS INTO LV_SEND_REQ_BCS.
ENDTRY.
CREATE SENDER
CLASS CL_CAM_ADDRESS_BCS DEFINITION LOAD.
TRY.
IF L_USERNAME NS '@'.
 L_USERNAME = SEND_PARTNER.
 TRANSLATE L_USERNAME TO UPPER CASE.
 LI_SENDER ?= CL_SAPUSER_BCS=>CREATE( L_USERNAME ).
ELSE.
 DATA: L_FROM_MAIL_ADDRESS TYPE AD_SMTPADR.
 L_FROM_MAIL_ADDRESS = L_USERNAME.
 LI_SENDER ?= CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS( I_ADDRESS_STRING = L_FROM_MAIL_ADDRESS ).
ENDIF.
CALL METHOD LO_BCS->SET_SENDER
 EXPORTING
 I_SENDER = LI_SENDER
CATCH CX_ADDRESS_BCS INTO LV_ADDRESS_BCS.
CATCH CX_SEND_REQ_BCS INTO LV_SEND_REQ_BCS.
ENDTRY.
create recepient
data: LO_RECEPIENT TYPE REF TO IF_RECIPIENT_BCS.
TRY.
CALL METHOD CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS
 EXPORTING
 I_ADDRESS_STRING = L_MAIL_ADDRESS
 I_ADDRESS_NAME =
 I_INCL_SAPUSER =
 RECEIVING
 RESULT = LO_RECEPIENT
CATCH CX_ADDRESS_BCS INTO LV_ADDRESS_BCS.
ENDTRY.
TRY.
CALL METHOD LO_BCS->ADD_RECIPIENT
 EXPORTING
 I_RECIPIENT = LO_RECEPIENT
 I_EXPRESS =
 I_COPY =
 I_BLIND_COPY =
 I_NO_FORWARD =
CATCH CX_SEND_REQ_BCS INTO LV_SEND_REQ_BCS.
ENDTRY.
SEND EMAIL DOCUMENT
TRY.
CALL METHOD LO_BCS->SEND_REQUEST->SET_REQUESTED_STATUS
EXPORTING
 I_REQUESTED_STATUS = 'N'
TRY.
CALL METHOD LO_BCS->SEND
EXPORTING
 I_WITH_ERROR_SCREEN = SPACE
RECEIVING
 RESULT = LV_SENT_TO_ALL
CATCH CX_SEND_REQ_BCS INTO LV_SEND_REQ_BCS.
ENDTRY.
ENDTRY.
ENDLOOP.
COMMIT WORK.

Convert smartform output in to PDF using CONVERT_OTF function how to do it

Hi Anil , and Hi All
         I am trying to display smartforms output in java webdynpro
         for that i have got the following code in sdn.
           can anybody please clarify these doubts in the below code
           1) What are the mandatory input and output parameters
               I have to pass here in this code to my application
           2) please check my previous post also in this regards please
   . Please reply at the very earliest. Check the below code
Convert smartform output in to PDF using CONVERT_OTF function module and you can write pdf using parameter 'binfile' of this function in WebDynpro using the following code:
It is copied from my prg. I hope you understand it.
public void onActionGetQuote(com.sap.tc.webdynpro.progmodel.api.IWDCustomEvent wdEvent )
//@@begin onActionGetQuote(ServerEvent)
wdThis.wdGetOppt_QwriterCustController().executeZquote_Writer_Input();
String fileName = wdContext.currentZquote_Writer_InputElement().getOrder().toString().trim() + System.currentTimeMillis() + ".pdf";
String pdfOutput = new String(wdContext.currentOutputElement().getBinfile());
if (pdfOutput != null)
try
String pdfResoucePath = WDURLGenerator.getResourcePath(wdComponentAPI.getDeployableObjectPart(), fileName);
FileOutputStream fileOutputStream = new FileOutputStream(new File(pdfResoucePath));
PrintStream ps = new PrintStream(fileOutputStream);
ps.print(pdfOutput);
ps.close();
//Display the PDF to the browser
String fileURL = WDURLGenerator.getAbsoluteWebResourceURL(wdComponentAPI.getDeployableObjectPart(), fileName);
IWDWindow window = wdComponentAPI.getWindowManager().createExternalWindow(fileURL, "Pdf Browser", false);
window.removeWindowFeature(WDWindowFeature.ADDRESS_BAR);
window.removeWindowFeature(WDWindowFeature.MENU_BAR);
window.removeWindowFeature(WDWindowFeature.STATUS_BAR);
window.removeWindowFeature(WDWindowFeature.TOOL_BAR);
window.open();
// To collect all the file created in the server by user
quoteFiles.add(quoteFiles.size(), pdfResoucePath);
} catch (Exception e)
throw new WDRuntimeException(e);
//@@end

Hi
    ABAPers prepared a BAPI function module which calls Smart form , how can i execute it from java Webdynpro, so that I can display the smart form in Webdynpro. Pleas reply at the very earliest. Every answer will be rewarded.
regards
jalandhar

Header is not coming in alv list display- urgent

hi all,
i am sending my code below....
my requirement is in selection screen i have 4 radio buttons . if i click 1 radio button it will duiisplay data and and its header. report is working fine. my requirement id when i click r_mssng radio button(missing radio button) it is showing data correctsly. here i want to show header as 'Missing details report'.
this is not coming in my report. anybody can suggest me.
i am sending my code below....
report zvra0001ftb13 message-id zv.
 Confidential and Proprietary
* Celestica Corporation
* All Rights Reserved
*ABAP Name: ZVRA0001FTB13
*Created by: Srinivasa Chakravarthi
*Created on: 26/03/2003
*SAP Version: 4.6 C
*Description: This report displays details of foreign trades
 and EHS based on the deliveries made to the outside
 countries.
*Input: Selection Screen Criteria includes country of
 origin,Company code, Sales Organisation,
 Ship-to-party, Sold-to-paarty, Goods movement date,
 Invoice number, Invoice type, Material , Material
 Type, Exporter ID, Province of origin.
*Output: ALV output that contains Mode of Transport, Export
 HS number, Commodity Description, Quantity, UOM,
 Value, Country of Destination, Goods Origin
*Dependency: Nil
*Modification Log:
*CR# Date Coded Transport Description
*====== ======== ========= ============= ===============================
*5147 26/03/2003 Srinivas ED1K922286 New Development
*8700 02/11/2004 H.Arular ED1K938380 To check if entries of Comm
 Code(HS code)is less than 8
 digits and give a warning
 message.
*18684 25/07/2007 MAHEEDHAR Merge the logic from report
 ZVRA0001FTB13_ERROR into
 report ZVRA0001FTB13 and
 added two radio buttons
 called missing data and non
 missing data, addedc logic
 accoriding to the radio
 buttons.
*Declaring Tables.
tables: likp, "Delivery document Header
 lips, "Delivery Document Item
 vbfa, "Sales document Flow
 bkpf, "Accounting Document Header
 eikp, "Foreign Trade:Export/Import Data
 eipo, "Foreign Trade:Export/ Import
 "Header data
 t618t, "Forein Trade:Mode of Transport
 "Description
 t604t, "Foreign Trade: Commodity Code/
 "Import Code number Description.
 mara, "Material master data.
 t005, "Countries
 t001, "Company Codes
 tvko, "Sales Organisations
 kna1, "Customer Master
 t003, "Document types
 t134, "Material types
 tvfk,
 konv,
 vbrk.
constants : c_rep like vbrk-fkart value 'YGFB',
 c_for(10) value 'Foreign'.
*Decalre Type pool for ALV
type-pools: slis.
*Type declaration for LIKP.
types: begin of t_data1,
 vbeln like likp-vbeln, "Delivery
 kunnr like likp-kunnr,
 end of t_data1.
*Type declaration for LIPS,VBFA.
types: begin of t_data2,
 vbeln like lips-vbeln, "Delivery
 posnr like lips-posnr, "Delivery Item
 vbelv like vbfa-vbelv, "Preceding SD document
 posnv like vbfa-posnv, "Preceding item of SD document
 matnr like lips-matnr, "Material Number
 meins like lips-meins, "Base unit of measure
 lfimg like lips-lfimg, "Actual Quantity Delivered
 mtart like mara-mtart,
 end of t_data2.
**Type declaration for BKPF.
*types: begin of t_data3,
 belnr like bkpf-belnr, "Accounting Documnet number
 bukrs like bkpf-bukrs, "Company Code
 end of t_data3.
*Type declaration for BKPF.
types: begin of t_data3,
 vbeln like vbrk-belnr, " Billing Doc
 fkart like vbrk-fkart,
 land1 like vbrk-land1,
 end of t_data3.
*Type declaration for EIPO.
types: begin of t_data4,
 vbeln like lips-vbeln, "Delivery
 posnr like lips-posnr, "Delivery Item
 matnr like vbrp-matnr,
 fkimg like vbrp-fkimg,
 meins like vbrp-meins,
 verld like eipo-verld, "Country of dispatch for Foreign
 "trade
 herkl like eipo-herkl, "Country of origin of material
 grwrt like eipo-grwrt, "Statistical value for Foreign
 " trade
 stawn like eipo-stawn, "Commodity code for foreign trade
 expvz like eikp-expvz, "Mode of transport for foreign
 "trade
 end of t_data4.
*Type declaration for T618T.
types: begin of t_data5,
 land1 like t618t-land1, "Country key
 expvz like t618t-expvz, "Mode of Transport
 bezei like t618t-bezei, "Description
 end of t_data5.
*Type declaration for T604T.
types: begin of t_data6,
 land1 like t604t-land1, "Country key
 stawn like t604t-stawn, "Commodity Code
 text1 like t604t-text1, "Description
 end of t_data6.
*Type declaration for T604T.
types: begin of t_mara,
 matnr like mara-matnr,
 end of t_mara.
types : begin of rep_val,
 vbelv like vbfa-vbelv,
 posnv like vbfa-posnv,
 vbeln like vbfa-vbeln,
 posnn like vbfa-posnn,
 uepos like vbap-uepos,
 posnr like vbap-posnr,
 netwr like vbap-netwr,
 end of rep_val.
types : begin of t_price,
 vbeln like vbak-vbeln,
 posnr like vbap-posnr,
 knumv like konv-knumv,
 kposn like konv-kposn,
 kbetr like konv-kbetr,
 kpein like konv-kpein,
 end of t_price.
data : t_sord type rep_val occurs 0 with header line.
data : t_dord type rep_val occurs 0 with header line.
data : t_rord type rep_val occurs 0 with header line.
data : t_hord type rep_val occurs 0 with header line.
data : t_ford type rep_val occurs 0 with header line.
data : i_price type t_price occurs 0 with header line.
data : i_price1 type t_price occurs 0 with header line.
data : i_mara type t_mara occurs 0 with header line.
data : i_sort type slis_t_sortinfo_alv.
DATA: t_layout TYPE slis_layout_alv.
*Declaring Selection screen.
selection-screen begin of block b1 with frame title text-101.
select-options:
 s_verld for eipo-verld, "Country of Dest.
 s_bukrs for bkpf-bukrs, "Company code
 s_vkorg for likp-vkorg, "Sales Organisation
 s_kunnr for likp-kunnr, "Ship-to-Party
 s_kunag for likp-kunag, "Sold-to-party
 s_wadat for likp-wadat_ist, "Goods Movement date
 s_belnr for vbrk-vbeln, "Invoice number
 s_blart for vbrk-fkart. "Invoice type.
selection-screen end of block b1.
selection-screen begin of block b2 with frame title text-101.
select-options:
 s_matnr for mara-matnr, "Material
 s_mtart for mara-mtart. "Material Type
selection-screen end of block b2.
selection-screen begin of block b3 with frame title text-101.
parameters:
p_export(30) type c default '1366770724RM' obligatory , "Exporter ID
p_provi(30) type c default 'ONTARIO' obligatory ,
p_sumid(30) type c default 'SUM0704'.
"Province of Origin
selection-screen end of block b3.
selection-screen begin of block b4 with frame title text-104.
parameters:
r_summ radiobutton group zsum,
r_dets radiobutton group zsum,
r_mssng radiobutton group zsum, " maheedhar
R_NMSNG RADIOBUTTON GROUP ZSUM. " MAHEEDHAR
selection-screen skip.
parameter : p_sum as checkbox .
selection-screen end of block b4.
selection-screen begin of block b5 with frame title text-105.
select-options : s_i_kun for likp-kunnr.
selection-screen end of block b5.
*Data Declaration
data: i_fieldcat type slis_t_fieldcat_alv.
data: l_fieldcat type slis_fieldcat_alv .
data: v_lin type i.
data: v_lfstk type c value 'C'.
data: v_vbtyp type c value 'U'.
data: i_data1 type t_data1 occurs 0 with header line.
data : begin of t_T005t occurs 0.
 include structure t005t.
data : end of t_t005t.
data: i_data2 type t_data2 occurs 0 with header line.
data: t_delv type t_data2 occurs 0 with header line.
data: t_bild type t_data2 occurs 0 with header line.
data: i_data3 type t_data3 occurs 0 with header line.
data: i_data4 type t_data4 occurs 0 with header line.
data: i_data5 type t_data5 occurs 0 with header line.
data: i_data6 type t_data6 occurs 0 with header line.
*Declare Internal table for ALV output.
data: begin of i_output occurs 0,
 belnr like vbrk-vbeln,
 posnr like vbrp-posnr,
 bezei like t618t-bezei,
 stawn like eipo-stawn,
 text1 like t604t-text1,
 quantity type p decimals 2,
 meins like lips-meins,
 value type p decimals 2,
 verld like t_t005t-landx,
 herkl like t_t005t-landx,
 strlen, "ED1K938380
 end of i_output.
maheedhar-start.
data : i_output1 like i_output occurs 0 with header line,
 i_output2 like i_output occurs 0 with header line.
maheedhar-end
data : buff_out like i_output occurs 0 with header line.
data: begin of t_outsum occurs 0,
 bezei like t618t-bezei,
 stawn like eipo-stawn,
 text1 like t604t-text1,
 quantity type p decimals 2,
 meins like lips-meins,
 value type p decimals 2,
 verld like t_t005t-landx,
 herkl like t_t005t-landx,
 end of t_outsum.
data : v_ans.
data : variante LIKE disvariant.
data : v_repid LIKE sy-repid.
data : wa_listheader TYPE slis_listheader.
data : t_listheader TYPE slis_t_listheader.
data : b_text(250).
data: evntS type slis_t_event with header line. " MAHEEDHAR
 EVENT AT SELECTION-SCREEN
at selection-screen.
*For Autorisation check
perform authorisation_check.
Validation of Selection screen
perform check_entry.
 EVENT START-OF-SELECTION
start-of-selection.
*Get data
perform select_data.
**For calling ALV function modules
MAHEEDHAR - START
if r_mssng eq 'X'.
 DELETE I_OUTPUT WHERE BEZEI NE SPACE AND
 STAWN NE SPACE AND
 HERKL NE SPACE AND
 VERLD NE SPACE.
 DESCRIBE TABLE I_OUTPUT LINES V_LIN.
 IF V_LIN > 0.
 PERFORM DISPLAY_OUTPUT.
 ELSE.
 MESSAGE E000 WITH TEXT-130.
 ENDIF.
elseif R_SUMM eq 'X' OR R_DETS EQ 'X'. "ENDIF. " MAHEEDHAR
MAHEEDHAR-END
 describe table i_output lines v_lin.
 if v_lin > 0.
 buff_out[] = i_output[].
 Begin of ED1K938380
 delete buff_out where stawn ne space or "ED1K938380
 verld eq space or
 herkl eq space.
 delete buff_out where strlen ne 'X' or
 verld eq space or
 herkl eq space.
 End of ED1K938380
 describe table buff_out lines v_lin.
Lines with no commodity code exists.
 if v_lin gt 0.
 concatenate text-902 text-903 into b_text.
 concatenate text-906 text-907 into b_text. "ED1K938380
 CALL FUNCTION 'POPUP_TO_CONFIRM'
 EXPORTING
 TITLEBAR = Text-901
 TEXT_QUESTION = b_text
 TEXT_BUTTON_1 = 'Yes'
 TEXT_BUTTON_2 = 'No'
 DEFAULT_BUTTON = '2'
 IMPORTING
 ANSWER = v_ans.
 if v_ans eq '1'.
 perform display_output.
 endif.
 else.
 perform display_output.
 endif.
 else. " MAHEEDHAR
 message e000 with text-130.
 endif.
MAHEEDHAR-START
*"-- If non missing details radiobutton is selected
elseif r_nmsng = 'X'.
*"-- move data from i_output to i_output1.
 i_output1[] = i_output[].
 sort i_output by belnr.
 sort i_output1 by belnr.
*"-- to get missing data
 delete i_output1 where bezei ne space and
 stawn ne space and
 herkl ne space and
 verld ne space.
 loop at i_output.
*"-- compare two int tables with respective document number
 read table i_output1 with key belnr = i_output-belnr.
 if sy-subrc ne 0.
 move-corresponding i_output to i_output2.
 append i_output2.
 clear i_output2.
 endif.
 endloop.
 describe table i_output2 lines v_lin.
 if v_lin gt 0.
 perform display_output.
 else.
 message e000 with text-130.
 endif.
MAHEEDHAR-END.
ENDIF. " MAHEEDHAR
 FORM SELECT_DATA *
form select_data.
Data:l_strlen type i. "ED1K938380
*Get details from LIKP.
if s_i_kun[] is initial.
 select likpvbeln likpkunnr
 into corresponding fields of table i_data1
 from likp
 inner join vbuk on likpvbeln = vbukvbeln
 where
 likp~vkorg in s_vkorg and
 likp~kunnr in s_kunnr and
 likp~kunag in s_kunag and
 likp~wadat_ist in s_wadat and
 vbuk~wbstk = 'C' .
else.
 select likpvbeln likpkunnr
 into corresponding fields of table i_data1
 from likp
 inner join vbuk on likpvbeln = vbukvbeln
 where
 ( ( likp~vkorg in s_vkorg and
 likp~kunnr in s_kunnr and
 likp~kunag in s_kunag and
 likp~wadat_ist in s_wadat and
 vbuk~wbstk = 'C' )
 or
 likp~kunnr in s_i_kun and
 likp~wadat_ist in s_wadat and
 vbuk~wbstk = 'C' ) .
endif.
if sy-subrc ne 0.
 message e000 with text-200.
endif.
*Get details from table LIPS
select lips~vbeln
 lips~posnr
 vbfa~vbeln
 vbfa~posnn
 lips~matnr
 lips~meins
 lips~lfimg
 mara~mtart
 from lips
 inner join vbfa on vbfavbelv = lipsvbeln
 and vbfaposnv = lipsposnr
 inner join mara on maramatnr = lipsmatnr
 into table i_data2
 for all entries in i_data1
 where
 lips~vbeln = i_data1-vbeln and
 lips~matnr in s_matnr and
 vbfa~vbeln in s_belnr and
 mara~mtart in s_mtart and
 vbfa~vbtyp_n = 'U'.
if sy-subrc ne 0.
 message e000 with text-201.
endif.
t_delv[] = i_data2[].
t_bild[] = i_data2[].
sort t_delv by vbeln.
delete adjacent duplicates from t_delv comparing vbeln.
sort t_bild by vbeln ascending vbelv descending.
delete adjacent duplicates from t_bild comparing vbeln.
*Get details of Accounting document number
select vbeln fkart land1 from vbrk
 into table i_data3
 for all entries in t_bild
 where vbeln = t_bild-vbelv and
 bukrs in s_bukrs and
 fkart in s_blart and
 vkorg in s_vkorg and " MAHEEDHAR
 land1 in s_verld. " MAHEEDHAR
sort i_data3.
*Get details from EIPO.
select vbrp~vbeln
 vbrp~posnr
 vbrp~matnr
 vbrp~fkimg
 vbrp~meins
 eipo~verld
 eipo~herkl
 eipo~grwrt
 eipo~stawn
 eikp~expvz
 from eikp
 inner join vbrp on vbrp~vbeln = eikp~refnr
 inner join eipo on eikp~exnum = eipo~exnum
 and eipo~expos = vbrp~posnr
 into table i_data4 for all entries in i_data3
 where vbrp~vbeln = i_data3-vbeln.
 eipo~verld in s_verld.
if sy-subrc ne 0.
 message e000 with text-201.
endif.
IF R_MSSNG NE 'X' or r_nmsng = 'X'. " MAHEEDHAR
 perform get_price.
ENDIF. " MAHEEDHAR
Get details from T618T.
select land1
 expvz
 bezei
 from t618t
 into table i_data5
 for all entries in i_data4
 where
 land1 = 'CA' and " Getting for Canada only
 expvz = i_data4-expvz and
 spras = sy-langu.
select matnr from mara into table i_mara where matnr in s_matnr
 and mtart in s_mtart.
Get details from T604T.
select land1
 stawn
 text1
 from t604t
 into table i_data6
 for all entries in i_data4
 where
 land1 = i_data4-VERLD and
 stawn = i_data4-stawn and
 spras = sy-langu.
select * from T005t into table t_T005t where spras = sy-langu.
loop at i_data3.
 loop at i_data4 where vbeln eq i_data3-vbeln.
 clear : i_data1, i_data2.
 read table i_data2 with key vbelv = i_data4-vbeln
 posnv = i_data4-posnr.
 read table i_data1 with key vbeln = i_data2-vbeln.
 if not s_i_kun[] is initial.
 check ( ( i_data1-kunnr in s_i_kun ) or
 ( i_data3-land1 in s_verld ) ).
 else.
 check i_data3-land1 in s_verld .
 endif.
 read table i_mara with key matnr = i_data4-matnr.
 if sy-subrc eq 0.
 read table i_data5 with key expvz = i_data4-expvz .
 land1 = i_data3-land1.
 read table i_data6 with key stawn = i_data4-stawn
 land1 = i_data4-VERLD.
 move i_data4-vbeln to i_output-belnr.
 move i_data4-posnr to i_output-posnr.
 move i_data5-bezei to i_output-bezei.
 move i_data6-text1 to i_output-text1.
 Begin of ED1K938380.
 l_strlen = strlen( i_data4-stawn ).
 if l_strlen < 8.
 move 'X' to i_output-strlen.
 endif.
 End of ED1K938380.
 move i_data4-stawn to i_output-stawn.
 move i_data4-meins to i_output-meins.
 read table t_T005t with key land1 = i_data3-land1.
 move t_t005t-landx to i_output-verld.
 if p_sum eq space.
 if i_data4-herkl ne 'CA'.
 i_output-herkl = c_for.
 else.
 read table t_T005t with key land1 = i_data4-herkl.
 move t_t005t-landx to i_output-herkl.
 endif.
 else.
 read table t_T005t with key land1 = i_data4-herkl.
 move t_t005t-landx to i_output-herkl.
 endif.
 move i_data4-fkimg to i_output-quantity.
 if i_data3-fkart eq c_rep.
 read table t_dord with key vbeln = i_data4-vbeln
 posnn = i_data4-posnr.
 if sy-subrc eq 0.
 read table t_sord with key vbeln = t_dord-vbelv
 posnn = t_dord-posnv.
 if sy-subrc eq 0.
 read table t_hord with key vbeln = t_sord-vbelv
 posnr = t_sord-posnv.
 if sy-subrc eq 0.
 read table t_ford with key vbeln = t_hord-vbeln
 posnr = t_hord-uepos.
 if sy-subrc eq 0.
 read table i_price with key vbeln = t_ford-vbeln
 posnr = t_ford-posnr.
 if sy-subrc eq 0.
 read table i_price1 with key knumv = i_price-knumv
 kposn = t_ford-posnr.
 if sy-subrc eq 0.
 if i_price1-kpein ne 0.
 i_output-value =
 ( i_price1-kbetr / i_price1-kpein ) *
 i_data4-fkimg.
 endif.
 endif.
 endif.
 endif.
 endif.
 endif.
 endif.
 else.
 move i_data4-grwrt to i_output-value.
 endif.
 append i_output.
 clear i_output.
 clear : i_data5, i_data6.
 endif.
 endloop.
endloop.
sort i_output by verld herkl bezei stawn.
endform.
 FORM DISPLAY_OUTPUT *
 This form is to create the ALV output
form display_output.
data: xevents type slis_t_event,
 ls_event type slis_alv_event,
 slis_ev_top_of_page type slis_formname value 'TOP_OF_PAGE',
 slis_ev_end_of_list type slis_formname value 'END_OF_LIST'.
*Call Function 'REUSE_ALV_EVENTS' for top of page
call function 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = xevents
 EXCEPTIONS
 list_type_wrong = 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.
read table xevents with key name = slis_ev_top_of_page
 into ls_event.
if sy-subrc = 0.
 move slis_ev_top_of_page to ls_event-form.
 append ls_event to xevents.
endif.
read table xevents with key name = slis_ev_end_of_list
 into ls_event.
if sy-subrc = 0.
 move slis_ev_end_of_list to ls_event-form.
 append ls_event to xevents.
endif.
if r_dets ne space.
*Call Function 'REUSE_ALV_FIELD_CATALOG_MERGE' for position fixing in
*the output.
 call function 'REUSE_ALV_FIELDCATALOG_MERGE'
 exporting
 i_program_name = 'ZVRA0001FTB13'
 i_internal_tabname = 'I_OUTPUT'
 i_inclname = 'ZVRA0001FTB13'
 I_STRUCTURE_NAME =
 I_CLIENT_NEVER_DISPLAY = 'X'
 I_INCLNAME =
 i_bypassing_buffer = 'X'
 i_buffer_active = ' '
 changing
 ct_fieldcat = i_fieldcat
 exceptions
 inconsistent_interface = 1
 program_error = 2
 others = 3.
 if sy-subrc <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 endif.
 loop at i_fieldcat into l_fieldcat.
 l_fieldcat-key = ' '.
 case l_fieldcat-fieldname.
 when 'BELNR'.
 l_fieldcat-seltext_m = text-912.
 l_fieldcat-seltext_l = text-912.
 l_fieldcat-reptext_ddic = text-912.
 l_fieldcat-col_pos = '1'.
 l_fieldcat-just = 'C'.
 l_fieldcat-outputlen = '12'..
 when 'POSNR'.
 l_fieldcat-seltext_m = text-913.
 l_fieldcat-seltext_l = text-913.
 l_fieldcat-reptext_ddic = text-913.
 l_fieldcat-col_pos = '2'.
 l_fieldcat-just = 'C'.
 l_fieldcat-outputlen = '6'.
 when 'BEZEI'.
 l_fieldcat-seltext_m = text-911.
 l_fieldcat-seltext_l = text-911.
 l_fieldcat-reptext_ddic = text-911.
 l_fieldcat-col_pos = '3'.
 l_fieldcat-just = 'C'.
 l_fieldcat-outputlen = '15'..
 when 'STAWN'.
 l_fieldcat-seltext_m = text-111.
 l_fieldcat-seltext_l = text-111.
 l_fieldcat-reptext_ddic = text-111.
 l_fieldcat-col_pos = '4'.
 l_fieldcat-just = 'C'.
 l_fieldcat-outputlen = '30'.
 when 'TEXT1'.
 l_fieldcat-seltext_m = text-112.
 l_fieldcat-seltext_l = text-112.
 l_fieldcat-outputlen = '40'.
 l_fieldcat-col_pos = '5'.
 l_fieldcat-just = 'C'.
 l_fieldcat-reptext_ddic = text-112.
 when 'QUANTITY'.
 l_fieldcat-outputlen = '18'.
 l_fieldcat-reptext_ddic = text-113.
 l_fieldcat-seltext_m = text-113.
 l_fieldcat-col_pos = '6'.
 l_fieldcat-just = 'C'.
 l_fieldcat-seltext_l = text-113.
 when 'MEINS'.
 l_fieldcat-outputlen = '8'.
 l_fieldcat-reptext_ddic = text-114.
 l_fieldcat-seltext_m = text-114.
 l_fieldcat-col_pos = '7'.
 l_fieldcat-just = 'C'.
 l_fieldcat-seltext_l = text-114.
 when 'VALUE'.
 l_fieldcat-outputlen = '20'.
 l_fieldcat-seltext_m = text-115.
 l_fieldcat-seltext_l = text-115.
 l_fieldcat-just = 'C'.
 l_fieldcat-reptext_ddic = text-115.
 when 'VERLD'.
 l_fieldcat-outputlen = '20'.
 l_fieldcat-seltext_m = text-116.
 l_fieldcat-seltext_l = text-116.
 l_fieldcat-just = 'C'.
 l_fieldcat-reptext_ddic = text-116.
 when 'HERKL'.
 l_fieldcat-seltext_m = text-117.
 l_fieldcat-seltext_l = text-117.
 l_fieldcat-outputlen = '30'.
 l_fieldcat-just = 'C'.
 l_fieldcat-reptext_ddic = text-117.
 when others.
 l_fieldcat-no_out = 'X'.
 endcase.
 modify i_fieldcat from l_fieldcat.
 endloop.
Call Function 'REUSE_ALV_LIST_DISPLAY' for dispaly of data in ALV.
 call function 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 i_callback_program = 'ZVRA0001FTB13'
 it_fieldcat = i_fieldcat
 it_events = xevents
 is_layout = t_layout
 i_save = 'A'
 i_bypassing_buffer = 'X'
 i_buffer_active = ' '
 TABLES
 t_outtab = i_output
 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.
else. " MAHEEDHAR
ELSEIF R_SUMM EQ 'X'. " MAHEEDHAR
 sort i_output by verld herkl stawn bezei.
 loop at i_output.
 move-corresponding i_output to t_outsum.
 collect t_outsum.
 endloop.
*Call Function 'REUSE_ALV_FIELD_CATALOG_MERGE' for position fixing in
*the output.
 call function 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 i_program_name = 'ZVRA0001FTB13'
 i_internal_tabname = 'T_OUTSUM'
 i_inclname = 'ZVRA0001FTB13'
 i_bypassing_buffer = 'X'
 i_buffer_active = ' '
 CHANGING
 ct_fieldcat = i_fieldcat
 EXCEPTIONS
 inconsistent_interface = 1
 program_error = 2
 others = 3.
 if sy-subrc <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 endif.
 loop at i_fieldcat into l_fieldcat.
 l_fieldcat-key = ' '.
 case l_fieldcat-fieldname.
 when 'BEZEI'.
 l_fieldcat-seltext_m = text-911.
 l_fieldcat-seltext_l = text-911.
 l_fieldcat-reptext_ddic = text-911.
 l_fieldcat-col_pos = '1'.
 l_fieldcat-just = 'C'.
 l_fieldcat-outputlen = '15'..
 when 'STAWN'.
 l_fieldcat-seltext_m = text-111.
 l_fieldcat-seltext_l = text-111.
 l_fieldcat-reptext_ddic = text-111.
 l_fieldcat-col_pos = '2'.
 l_fieldcat-just = 'C'.
 l_fieldcat-outputlen = '30'.
 when 'TEXT1'.
 l_fieldcat-seltext_m = text-112.
 l_fieldcat-seltext_l = text-112.
 l_fieldcat-outputlen = '40'.
 l_fieldcat-col_pos = '3'.
 l_fieldcat-just = 'C'.
 l_fieldcat-reptext_ddic = text-112.
 when 'QUANTITY'.
 l_fieldcat-outputlen = '18'.
 l_fieldcat-reptext_ddic = text-113.
 l_fieldcat-seltext_m = text-113.
 l_fieldcat-col_pos = '4'.
 l_fieldcat-just = 'C'.
 l_fieldcat-seltext_l = text-113.
 when 'MEINS'.
 l_fieldcat-outputlen = '8'.
 l_fieldcat-reptext_ddic = text-114.
 l_fieldcat-seltext_m = text-114.
 l_fieldcat-col_pos = '5'.
 l_fieldcat-just = 'C'.
 l_fieldcat-seltext_l = text-114.
 when 'VALUE'.
 l_fieldcat-outputlen = '20'.
 l_fieldcat-seltext_m = text-115.
 l_fieldcat-seltext_l = text-115.
 l_fieldcat-col_pos = '6'.
 l_fieldcat-just = 'C'.
 l_fieldcat-reptext_ddic = text-115.
 when 'VERLD'.
 l_fieldcat-outputlen = '20'.
 l_fieldcat-seltext_m = text-116.
 l_fieldcat-seltext_l = text-116.
 l_fieldcat-col_pos = '7'.
 l_fieldcat-just = 'C'.
 l_fieldcat-reptext_ddic = text-116.
 when 'HERKL'.
 l_fieldcat-seltext_m = text-117.
 l_fieldcat-seltext_l = text-117.
 l_fieldcat-outputlen = '30'.
 l_fieldcat-col_pos = '8'.
 l_fieldcat-just = 'C'.
 l_fieldcat-reptext_ddic = text-117.
 when others.
 l_fieldcat-no_out = 'X'.
 endcase.
 modify i_fieldcat from l_fieldcat.
 endloop.
Call Function 'REUSE_ALV_LIST_DISPLAY' for dispaly of data in ALV.
 call function 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 i_callback_program = 'ZVRA0001FTB13'
 it_fieldcat = i_fieldcat
 it_events = xevents
 i_save = 'A'
 is_layout = t_layout
 i_default = 'X'
 is_variant = variante
 i_bypassing_buffer = 'X'
 i_buffer_active = ' '
 TABLES
 t_outtab = t_outsum
 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.
MAHEEDHAR-START.
*"-- if detail summary checkbox is selected
elseIF R_MSSNG = 'X'.
 PERFORM PREPARE_HEADER.
 call function 'REUSE_ALV_FIELDCATALOG_MERGE'
 exporting
 i_program_name = 'ZVRA0001FTB13'
 i_internal_tabname = 'I_OUTPUT'
 i_inclname = 'ZVRA0001FTB13'
 I_STRUCTURE_NAME =
 I_CLIENT_NEVER_DISPLAY = 'X'
 I_INCLNAME =
 i_bypassing_buffer = 'X'
 i_buffer_active = ' '
 changing
 ct_fieldcat = i_fieldcat
 exceptions
 inconsistent_interface = 1
 program_error = 2


hi,
*& Report ZALV_FIELD_GRID1
REPORT ZALV_FIELD_GRID1
 NO STANDARD PAGE HEADING.
TABLES MARA.
type-pools :slis.
TYPES : BEGIN OF TMARA ,
 MATNR LIKE MARA-MATNR,
 MEINS LIKE MARA-MEINS,
 ERSDA LIKE MARA-ERSDA,
 color(4) type c,
 SEL type c,
 LIGHT TYPE C,
 END OF TMARA.
TYPES: BEGIN OF TMAKT,
 MATNR LIKE MAKT-MATNR,
 MAKTX LIKE MAKT-MAKTX,
 MAKTG LIKE MAKT-MAKTG,
 SEL TYPE C,
 COLOR(4),
 END OF TMAKT.
DATA: ITAB TYPE TMARA OCCURS 0 WITH HEADER LINE,
 ITAB1 TYPE TMAKT OCCURS 0 WITH HEADER LINE,
 wa_fieldcat type slis_fieldcat_alv,
 fieldcat type slis_fieldcat_alv occurs 0,
 i_layout type slis_layout_alv,
 WA_LISTHEADER TYPE SLIS_LISTHEADER ,
 i_LISTHEADER TYPE SLIS_LISTHEADER OCCURS 0,
 V_EVENTS TYPE SLIS_T_EVENT ,
 WA_EVENT TYPE SLIS_ALV_EVENT,
 I_TITLE_MARA TYPE LVC_TITLE VALUE 'FIRST LIST DISPLAYED',
 I_TITLE_MAKT TYPE LVC_TITLE VALUE 'SECONDRY LIST DISPLAYED',
 SORT TYPE slis_t_sortinfo_alv WITH HEADER LINE,
 PRINT_CONT type slis_print_alv.
SELECTION SCREE
selection-screen begin of block screen1 with frame title TEXT-001.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN COMMENT /32(35) COMM1.
SELECTION-SCREEN ULINE /27(35).
SELECTION-SCREEN SKIP.
SELECT-OPTIONS MATNR FOR MARA-MATNR.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN ULINE.
SELECTION-SCREEN COMMENT /30(50) COMM2.
SELECTION-SCREEN ULINE /27(40).
SELECTION-SCREEN SKIP.
SELECT-OPTIONS ERSDA FOR MARA-ERSDA.
SELECTION-SCREEN SKIP.
selection-screen end of block screen1.
 INITIALIZATION
INITIALIZATION.
MATNR-low = '23'.
MATNR-high = '1000'.
MATNR-option = 'BT'.
MATNR-sign = 'I'.
APPEND MATNR.
ERSDA-low = '20030124'.
ERSDA-high = '20050302' .
APPEND ERSDA.
PERFORM FILLFIELD.
PERFORM FILLLAYOUT.
PERFORM build_print_params.
PERFORM FILL_SORT.
PERFORM EVENT_CALL.
PERFORM POPULATE_EVENT.
 SELECTION-SCREEN OUTPUT
AT SELECTION-SCREEN OUTPUT.
comm1 ='SELECT MATERIAL NUMBER RANGE'.
comm2 ='SELECT MATERIAL CREATION DATE'.
 START-OF-SELECTION
START-OF-SELECTION.
PERFORM READDATA.
PERFORM POPDATA.
*& Form READDATA
 text
FORM READDATA .
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 INPUT = MATNR-LOW
 IMPORTING
 OUTPUT = MATNR-LOW.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
 EXPORTING
 INPUT = MATNR-HIGH
 IMPORTING
 OUTPUT = MATNR-HIGH.
SELECT MATNR
 ERSDA
 MEINS
 FROM MARA
 INTO CORRESPONDING FIELDS OF
 TABLE ITAB
 WHERE MATNR IN MATNR AND ERSDA IN ERSDA.
LOOP AT ITAB.
 data id_color type i VALUE 1.
 data id_colors(2) type c.
 IF ITAB-MATNR < '000000000000000100'.
 ITAB-LIGHT = '1'.
 ELSEIF ITAB-MATNR < '000000000000000150' AND ITAB-MATNR >
 '000000000000000100' .
 ITAB-LIGHT = '2'.
 ELSE.
 ITAB-LIGHT = '3'.
 ENDIF.
 id_color = id_color + 1.
 if id_color > 7.
 id_color = 1.
 endif.
 id_colors = id_color.
 concatenate 'C' id_colors '10' into itab-color.
 modify itab.
 CLEAR ITAB.
endloop.
ENDFORM. " READDATA
 Form FILLFIELD
FORM FILLFIELD .
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-COL_POS = '1'.
WA_FIELDCAT-outputlen = 20.
WA_FIELDCAT-HOTSPOT = 'X'.
wa_fieldcat-seltext_m = 'MATERIAL NUMBER'.
*WA_FIELDCAT-EMPHASIZE = 'C210'.
APPEND WA_FIELDCAT TO FIELDCAT.
clear wa_fieldcat.
WA_FIELDCAT-FIELDNAME = 'MEINS'.
WA_FIELDCAT-COL_POS = '2'.
*WA_FIELDCAT-EMPHASIZE = 'C510'.
WA_FIELDCAT-outputlen = 10.
wa_fieldcat-seltext_m = 'UNIT'.
APPEND WA_FIELDCAT TO FIELDCAT.
clear wa_fieldcat.
WA_FIELDCAT-FIELDNAME = 'ERSDA'.
WA_FIELDCAT-COL_POS = '3'.
WA_FIELDCAT-outputlen = 15.
*WA_FIELDCAT-EDIT_MASK = 'DD.MM.YYYY'.
*WA_FIELDCAT-EMPHASIZE = 'C710'.
wa_fieldcat-seltext_m = 'CREAT DATE'.
APPEND WA_FIELDCAT TO FIELDCAT.
clear wa_fieldcat.
ENDFORM. "FILLFIELD
 Setup print parameters
form build_print_params.
PRINT_CONT-reserve_lines = '3'. "Lines reserved for footer
PRINT_CONT-no_coverpage = 'X'.
endform. " BUILD_PRINT_PARAMS
 Form POPDATA
FORM POPDATA .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = sy-repid
I_CALLBACK_PF_STATUS_SET = ' '
 I_CALLBACK_USER_COMMAND = 'USER-COMMAND'
 I_CALLBACK_TOP_OF_PAGE = 'TOPPAGE'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
 I_GRID_TITLE = I_TITLE_MARA
I_GRID_SETTINGS =
 IS_LAYOUT = I_LAYOUT
 IT_FIELDCAT = fieldcat
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
 IT_SORT = SORT[]
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
 IT_EVENTS = V_EVENTS
IT_EVENT_EXIT =
 IS_PRINT = PRINT_CONT
 TABLES
 T_OUTTAB = ITAB
EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2
ENDFORM. " POPDATA
 Form TOPPAGE
FORM TOPPAGE.
REFRESH I_LISTHEADER.
DATA: ld_lines type i,
 ld_linesc(10) type c,
 I_DATE(10) TYPE C,
 I_INFO LIKE WA_LISTHEADER-INFO.
WA_LISTHEADER-TYP = 'H'.
WA_LISTHEADER-INFO = 'MATERIAL DETAIL'.
APPEND WA_LISTHEADER TO I_LISTHEADER.
CLEAR WA_LISTHEADER.
WA_LISTHEADER-TYP = 'S'.
WA_LISTHEADER-KEY = 'DATE :'.
CONCATENATE SY-DATUM+6(2) '.'
 SY-DATUM+4(2) '.'
 SY-DATUM(4) INTO I_DATE.
WA_LISTHEADER-INFO = I_datE.
APPEND WA_LISTHEADER TO I_LISTHEADER.
CLEAR WA_LISTHEADER.
describe table ITAB lines ld_lines.
ld_linesc = ld_lines.
concatenate 'TOTAL NUMBER OF RECORD SELECTED: ' ld_linesc
 into I_INFO separated by space.
WA_LISTHEADER-TYP = 'A'.
WA_LISTHEADER-INFO = I_INFO.
append WA_LISTHEADER to I_LISTHEADER.
clear: WA_LISTHEADER , I_INFO.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = I_LISTHEADER
 I_LOGO = 'ENJOYSAP_LOGO'.
ENDFORM. "TOPPAGE
 Form FILLLAYOUT
FORM FILLLAYOUT .
i_layout-zebra = 'X'.
i_layout-info_fieldname = 'COLOR'.
i_layout-box_fieldname = 'SEL'.
I_LAYOUT-lights_fieldname = 'LIGHT'.
I_LAYOUT-EDIT ='X'.
I_LAYOUT-colwidth_optimize = 'X'.
I_LAYOUT-window_titlebar = 'EXAMPLE FOR ALV GRID'.
I_LAYOUT-no_totalline = 'X'.
ENDFORM. "FILLLAYOUT
 Form FILL_SORT
FORM FILL_SORT .
SORT-DOWN = 'X'.
SORT-SPOS = 1.
SORT-FIELDNAME = 'MATNR'.
SORT-tabname = 'MARA'.
APPEND SORT.
ENDFORM. " FILL_SORT
 Form EVENT_CALL
FORM EVENT_CALL .
DATA: I_EVENT LIKE V_EVENTS.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = V_EVENTS.
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " EVENT_CALL
 Form POPULATE_EVENT
FORM POPULATE_EVENT .
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'USER_COMMAND'.
IF SY-SUBRC EQ 0.
 WA_EVENT-FORM = 'USER_COMMAND'.
 MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
 WA_EVENT-NAME.
READ TABLE V_EVENTS WITH KEY NAME = SLIS_EV_END_OF_PAGE
 INTO WA_EVENT.
IF SY-SUBRC = 0.
 move 'END_OF_PAGE' to WA_EVENT-FORM.
 MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
 WA_EVENT-NAME.
endif.
ENDIF.
ENDFORM. "POPULATE_EVENT
FORM END_OF_PAGE.
write: sy-uline(50).
skip.
write:/40 'Page:', sy-pagno .
ENDFORM.
*& Form USER_COMMAND
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
 WHEN '&IC1'.
 CASE RS_SELFIELD-FIELDNAME.
 when 'MATNR'.
 read table itab with key matnr = RS_SELFIELD-VALUE.
 if sy-subrc = 0.
 PERFORM DATA_RETRIEVAL_MAKT USING RS_SELFIELD-VALUE.
 PERFORM BUILD_FIELDCATLOG_MAKT.
 PERFORM FILLLAYOUT_MAKT.
 PERFORM DISPLAY_ALV_MAKT.
 CLEAR RS_SELFIELD.
 ENDIF.
 ENDCASE.
ENDCASE.
ENDFORM. "user_command
 Form DATA_RETRIEVAL_MAKT
FORM DATA_RETRIEVAL_MAKT USING TMATNR .
SELECT MATNR
 MAKTX
 MAKTG
 UP TO 100 ROWS
 FROM MAKT
 INTO TABLE ITAB1
 WHERE SPRAS = 'EN' AND MATNR = TMATNR.
LOOP AT ITAB1.
 data id_color type i VALUE 1.
 data id_colors(2) type c.
 id_color = id_color + 1.
 if id_color > 7.
 id_color = 1.
 endif.
 id_colors = id_color.
 concatenate 'C' id_colors '10' into itab1-color.
 modify itab1.
 CLEAR ITAB1.
ENDLOOP.
ENDFORM. "DATA_RETRIEVAL_MAKT
 Form FILLLAYOUT_MAKT
FORM FILLLAYOUT_MAKT .
CLEAR I_LAYOUT.
i_layout-zebra = 'X'.
i_layout-info_fieldname = 'COLOR'.
i_layout-box_fieldname = 'SEL'.
I_LAYOUT-EDIT ='X'.
I_LAYOUT-colwidth_optimize = 'X'.
I_LAYOUT-window_titlebar = 'EXAMPLE FOR ALV GRID'.
ENDFORM. " LAYOUT_MAKT
 Form BUILD_FIELDCATLOG_MAKT
FORM BUILD_FIELDCATLOG_MAKT .
REFRESH FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-KEY = 'X'.
WA_FIELDCAT-COL_POS = '1'.
*WA_FIELDCAT-EDIT_MASK = 'DD.MM.YYYY'.
WA_FIELDCAT-EMPHASIZE = 'C510'.
wa_fieldcat-seltext_m = 'MATERIAL NUMBER'.
APPEND WA_FIELDCAT TO FIELDCAT.
clear wa_fieldcat.
WA_FIELDCAT-FIELDNAME = 'MAKTX'.
WA_FIELDCAT-COL_POS = '2'.
WA_FIELDCAT-EMPHASIZE = 'C710'.
wa_fieldcat-seltext_m = 'MATERIAL DESCRIPTION'.
APPEND WA_FIELDCAT TO FIELDCAT.
clear wa_fieldcat.
WA_FIELDCAT-FIELDNAME = 'MAKTG'.
WA_FIELDCAT-COL_POS = '3'.
WA_FIELDCAT-EMPHASIZE = 'C210'.
wa_fieldcat-seltext_m = 'MATERIAL DESCRIPTION'.
APPEND WA_FIELDCAT TO FIELDCAT.
clear wa_fieldcat.
ENDFORM. " BUILD_FIELDCATLOG_MAKT
 Form DISPLAY_ALV_MAKT
FORM TOP-OF-PAGE.
REFRESH I_LISTHEADER.
DATA: ld_lines type i,
 ld_linesc(10) type c,
 I_DATE(10) TYPE C,
 I_INFO LIKE WA_LISTHEADER-INFO.
WA_LISTHEADER-TYP = 'H'.
WA_LISTHEADER-INFO = 'MATERIAL DESCRIPTION FOR SELECTED NUMBER'.
APPEND WA_LISTHEADER TO I_LISTHEADER.
CLEAR WA_LISTHEADER.
WA_LISTHEADER-TYP = 'S'.
WA_LISTHEADER-KEY = 'DATE :'.
CONCATENATE SY-DATUM+6(2) '.'
 SY-DATUM+4(2) '.'
 SY-DATUM(4) INTO I_DATE.
WA_LISTHEADER-INFO = I_datE.
APPEND WA_LISTHEADER TO I_LISTHEADER.
CLEAR WA_LISTHEADER.
describe table ITAB1 lines ld_lines.
ld_linesc = ld_lines.
concatenate 'TOTAL NUMBER OF RECORD SELECTED: ' ld_linesc
 into I_INFO separated by space.
WA_LISTHEADER-TYP = 'A'.
WA_LISTHEADER-INFO = I_INFO.
append WA_LISTHEADER to I_LISTHEADER.
clear: WA_LISTHEADER , I_INFO.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = I_LISTHEADER
 I_LOGO = 'ENJOYSAP_LOGO'.
I_END_OF_LIST_GRID =
I_ALV_FORM =
ENDFORM. "TOP-OF-PAGE
*& Form DISPLAY_ALV_MAKT
 text
FORM DISPLAY_ALV_MAKT .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = SY-REPID
 I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE'
 I_GRID_TITLE = I_TITLE_MAKT
 IS_LAYOUT = I_LAYOUT
 IT_FIELDCAT = fieldcat
 TABLES
 T_OUTTAB = ITAB1
 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.
ENDFORM. " DISPLAY_ALV_MAKT
Regards
Ashok kumar

Hide delete option is not working in ALV List Display- urgent

Hi All,
In my program i am displaying the output by using alv list display. after displaying the data i am displaying my own pf status here. in this i have few pushbuttons like
selest all, deselect all, hide . first two options are working fine. when i click hide button selected records are going to be hide.but this is not happening in my program. any body cam send me the code plz.
i am sending my code below. if possible please modify and resend the code asap.
my code:
type-pools : slis.
tables : zuser_secobjects.
data : t_header1 like zuser_secobjects.
data : begin of it_secobjects occurs 0.
 include structure t_header1.
*data : box,
 input(1) type c,
data : checkbox type c,
 flag type c,
 end of it_secobjects.
data : wa_ita like line of it_secobjects.
*data : it_secobjects like zuser_secobjects occurs 0 with header line.
data : i_field type slis_t_fieldcat_alv with header line.
data : w_field like line of i_field.
data : i_sort type slis_t_sortinfo_alv.
data : w_sort like line of i_sort.
data : it_filt1 type slis_t_filter_alv with header line.
data:
i_tabname type tabname,
i_repid like sy-repid,
is_lout type slis_layout_alv.
data : it_filt type slis_t_filter_alv with header line,
 it_evts type slis_t_event with header line.
DATA : is_vari type disvariant.
constants : c_default_vari value 'X',
 c_save_vari value 'U',
 c_checkfield type slis_fieldname value 'ACTION',
 c_f2code type sy-ucomm value '&ETA'.
data : chk_box type slis_fieldname.
selection-screen: begin of block b1 with frame title text-t01.
parameters : p_appln type zuser_secobjects-appln.
parameters : p_user type usr02-bname, "zuser_secobjects-appln_user,
p_partnr type zuser_secobjects-appln_partner,
p_ptype type zuser_secobjects-partner_type default '02',
p_upostn type zuser_secobjects-user_position,
p_sdate like likp-erdat default sy-datum,
p_edate(10) default '12/31/9999',
p_revnum type zuser_secobjects-revnum,
p_cted type zuser_secobjects-created_by,
p_cdate type zuser_secobjects-creation_date,
p_ctime type zuser_secobjects-creation_time,
p_chnby type zuser_secobjects-changed_by,
p_cdate1 type zuser_secobjects-changed_date,
p_ctime1 type zuser_secobjects-changed_time.
selection-screen: end of block b1.
form user_command using p_ucomm like sy-ucomm
rs_selfield type slis_selfield.
*DATA : it_filt type slis_t_filter_alv with header line.
case p_ucomm.
 when 'SELECT_ALL'. " SELALL is the FCODE of ur push button
 loop at it_secobjects into wa_ita.
 wa_ita-checkbox = 'X'.
 modify it_secobjects from wa_ita.
 endloop.
rs_selfield-refresh = 'X'. "<- ADD THIS
when 'DESLCT_ALL'.
 loop at it_secobjects into wa_ita.
 wa_ita-checkbox = ' '.
 modify it_secobjects from wa_ita.
 endloop.
rs_selfield-refresh = 'X'. "<- ADD THIS
 is_lout-f2code = c_f2code.
 is_lout-box_fieldname = c_checkfield.
 is_lout-get_selinfos = 'X'.
 is_lout-detail_popup = 'X'.
 is_lout-detail_initial_lines = 'X'.
when 'HIDE_DEL'.
 rs_selfield-exit = 'X'.
 it_filt-fieldname = 'CHECKBOX'.
 it_filt-tabname = '1'.
 it_filt-valuf = 'X'.
 it_filt-intlen = '1'.
 it_filt-inttype = 'C'.
 it_filt-datatype = 'CHAR'.
 it_filt-valuf_int = 'X'.
 it_filt-sign0 = 'E'.
 it_filt-optio = 'EQ'.
 if it_filt[] is initial.
 append it_filt.
 else.
 modify it_filt index 1.
 endif.
 perform display using i_object.
PERForm ALV_LIST_DISPLAY.
WHEN 'SHOW_DEL'.
 rs_selfield-exit = 'X'.
 free it_filt.
PERForm ALV_LIST_DISPLAY.
when 'SAVE1'.
 select * from zuser_secobjects where
 appln = zuser_secobjects-appln
 and appln_partner = zuser_secobjects-appln_partner
 and partner_type = zuser_secobjects-partner_type
 and start_date = zuser_secobjects-start_date
 and end_date = zuser_secobjects-end_date.
 endselect.
 if sy-subrc eq 0.
 message e000(ZV) with 'Duplicate Entry'.
 endif.
endcase.
endform.
*& Form delete
form delete.
data : begin of is_secobjects occurs 0.
 include structure zuser_secobjects.
data : checkbox type c.
data : end of is_secobjects.
is_secobjects-checkbox = 'X'.
modify is_secobjects
 from it_secobjects
 transporting checkbox
where checkbox = 'X'.
endform.
*& Form get_data
form get_data.
select * from zuser_secobjects
into table it_secobjects.
endform. " get_data
*& Form prepare_fieldcatalog
 text
--> p1 text
<-- p2 text
form prepare_fieldcatalog.
clear: w_field,i_field.
refresh:i_field.
i_field-key = 'X'.
i_field-col_pos = 1.
i_field-ddictxt = 'S'.
i_field-seltext_s = '@11@'.
i_field-checkbox = 'X'.
i_field-input = 'X'.
i_field-fieldname = 'HEADER'.
i_field-outputlen = 0.
append i_field.
clear i_field.
w_field-fieldname = 'APPLN'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-seltext_l = text-m01.
w_field-outputlen = '10'.
w_field-col_pos = 1.
append w_field to i_field.
clear w_field.
w_field-fieldname = 'APPLN_USER'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-just = 'C'.
w_field-seltext_l = text-m02.
w_field-outputlen = '7'.
w_field-col_pos = 2.
append w_field to i_field.
clear w_field.
endform. " prepare_fieldcatalog
*& Form ALV_LIST_DISPLAY
 text
--> p1 text
<-- p2 text
form alv_list_display.
i_repid = sy-repid.
is_lout-box_fieldname = 'CHECKBOX'.
it_filt-fieldname = 'CHECKBOX'.
call function 'REUSE_ALV_LIST_DISPLAY'
 exporting
 i_callback_program = i_repid
 i_callback_pf_status_set = 'PF_STATUS_SET'
 i_callback_user_command = 'USER_COMMAND'
 is_layout = is_lout
 it_fieldcat = i_field[]
 it_filter = it_filt[]
 it_events = it_evts[]
 i_default = c_default_vari
 i_save = c_save_vari
 is_variant = is_vari
 tables
 t_outtab = it_secobjects.
endform. " ALV_LIST_DISPLAY
*& Form display
 text
 -->P_I_OBJECT text
form display using object.
case object.
ENDCASE.
endform. " display
thanks,
maheedhar.t

Hi,
What do you mean by Hiding the records.
Deleting completely from the screen.
You can just delete the records from the internal table and pass to field catalog before displaying again.
or serach in the slis structrue for hiding the contents of the output.
reward if useful
regards,
Anji

Smartforms output in list display

Similar Messages

Maybe you are looking for