Reg: How to create Variants for program SAPF120

Hi SAP gurus,
How to create variants for programm SAPF 120.
with regards
JK rao

Hi,
I suppose you intend to include 22 more Recurring Documents in the F.14 screen in an existing variant. Please check if these 22 are Recurring Docs in FBD3. And make sure that all 48 are appearing in the Document Number (Multiple Selection) tab of F.14. You can test (in a test system) by executing after inclusion and not necessarily saving as variant to make sure that BI session includes all 48 docs.
Rgds.

Similar Messages

How to create variant for table/view ?

Hi,
When I go through SM30, I find a radio button called variant. I don't know the effect.
Can anyone tell me how to create variant for table / view ?
I want to know when we need to create variant for table/view.
Best regards,
Chris Gu

hi ,
Whenever you start a program in which selection screens are defined, the system displays a set of input fields for database-specific and program-specific selections. To select a certain set of data, you enter an appropriate range of values.
For further information about selection screens, refer to Selection Screens in the ABAP User's Guide.
If you often run the same program with the same set of selections (for example, to create a monthly statistical report), you can save the values in a selection set called a variant
Procedure
To create a new variant:
       1.      On the ABAP Editor initial screen, enter the name of the program for which you want to create a variant, select Variants, and choose Change.
       2.      On the variant maintenance initial screen, enter the name of the variant to be created.
Note the naming convention for variants (see below).
       3.      Choose Create.
If the program has more than one selection screen, a dialog box for screen assignment appears. The dialog box does not appear if the program only has one selection screen. The selection screen appears in this case.
       4.      If there is more than one selection screen, select the screens for which you want to create the variant
5.      Choose Continue.
The (first) selection screen for the report appears.
If your program has more than one selection screen, use the scroll buttons in the left-hand corner of the application toolbar to navigate between them and to fill the fields with values. If you keep scrolling forwards, the Continue button appears on the last selection screen.
       6.      Enter the desired selection values, including multiple selection and dynamic selection.
       7.      Choose Continue.

How to create variant for selection screen which is in subscreen

Hi,
How to create variant for selection screen which is in subscreen in a module pool program?
it is very urgent.
Thanks in advance.

Hi,
You can create the 'Parameter Transaction' so that whenever you run the particular transaction it will run with the initial value given when the Tcode was created and hence you can skip the initial screen of the module pool program.
To create Parameter transaction from SE93 you have to choose the last option i.e Parameter Transaction.
Regards
Sudheer

HOW TO Create variants for transaction MASS on LFA1 object?

hOW TO Create variants for transaction MASS on LFA1 object?
Edited by: cheppalliakr on Nov 10, 2011 1:09 PM
Moderator message: please do more research before asking, show what you have done yourself and provide more information when asking.
Edited by: Thomas Zloch on Nov 10, 2011 3:10 PM

Hi Oscar ,
You need to create optional date prompt variable in BW which fills your requirement .
Ex : If you require report should always run for 1st of the month to last of month .Then create Optional date variable in BW with interval .write customer exit ,
if from date is left blank it should take 1st of the month and if todate is left blank it should take last of the month .
when creating webi schedules , leave prompts as blank.

How to create Variant for braodcasting in BI 7.0

Hi,
As we create variants in BW 3.x using table TVARVC and
t-code STVARV to enter variable to be updated as per requirement and a code for the same.
And we will get variant in selection screen of report with updated values.
Can some one tell me how can we do the same in BI 7.0?
Please reply soon.
Thanks.
Santosh

In the old SAP BW 3.5 version, we used a program that runs everyday after midnite that sets date variables in TVARVC. The end user could specify which variable from TVARVC to fill the data field in the variant. We have the user save the workbook and then distribute it via the Web Broadcaster.
The workbooks are sent via email if things work OK.
Are you saying we can do something similar using RSRVARIANT? If we insert a row into RSRVARIANT, will the user be able to replace a field in their variant with the value?
Here are some of our variables in TVARVC:
Table:          TVARVC
Displayed Fields:   9 of   9 Fixed Columns:                 4 List Width
                                                                                MANDT NAME                           TYPE NUMB SIGN OPTI LOW
010   Z_PRIOR_FISCAL_PERIOD          P    0000           10/2005
   010   Z_PRIOR_FISCAL_PERIOD          S    0000 I    EQ   10/2005
   010   Z_PRIOR_WEEKLY_PERIOD          P    0000           43/2005
   010   Z_PRIOR_WEEKLY_PERIOD          S    0000 I    EQ   43/2005
This would be for the October 2005 time frame. In November the Z_PRIOR_FISCAL_PERIOD
would get bumped up to 11/2005 which would have been November 2005.
We have a batch procedure that updates the values in TVARVC table. The user
can choose with date value to run with. In the old version everytime the variant
is accessed, the current value of the variable Z_PRIOR_FISCAL_PERIOD would be fetched,
so this is the way we could have monthly and weekly batch jobs run for precalculation
and not get the same date range over and over again.
How can be give the user an option to choose a variable like the above?
Do we need to use Microsoft Excel VBA to call SAP BW to call custom code?
Yes, we can update rsvariant table contents with a program. But how will we "know"
which date range the user wants unless they can choose which variable they want to use?
Has anyone been able to do this?
Thanks,
Chris

How to create variants for a sequence-file?

Hello,
i have a testplan with custom teststeps. Each step has a new field with type "container" and name "myData",
Inside of this container are numeric, string and bool parameter. The parameter inside this container are used to execute
the teststep.
I attached an example of this, if you open the right side of the sequence then the container "myData" can be seen.
No i want to use the testplan for two different products, that means different parameters.
Is the only thing that is included in teststand, the property-loader? If yes, can someone give me an example of how to
use to property loader with my attached sequence?
As far as i understand it, i have to create to different text files where i specify for each step-name the parameters.
Does that mean when my testplan contains >1000 teststaps, that i have to create that manually by hand, or is there a function
to export everything into a file (all parameters, skips, loop, ...)?
I´m using TS 3.5 with LV 8.2
Thanks for your help
Message Edited by OnlyOne on 11-05-2007 07:29 AM
Attachments:
seq1.seq ‏21 KB

Hey OnlyOne,
Sounds like the perfect opportunity to tell you about this cool new feature in TS 4.0. You can select multiple steps and change the same property for all selected steps in one swoop. Finally!!! I added five of your custom steps and tested it just to make sure. And it works.
However, if you can't afford to upgrade or you like 3.5 better then the best way is to use the Import/Export Properties Tool. Look in the Tools menu and you'll see it there. Tools>>Import/Export Properties. It's basically the same thing as the Property Loader step except you can go both directions instead of only being able to read values from a file. You can write the file with it!! In fact what most developers do is use the tool to create the file. Copy the file multiple times and change the values in each file. Then use the Property Loader step to dynamically read the different files for their tests.
The Property Loader step is dynamic as the Import/Export Properties tool is only during development.
As for an example for the Property Loader: C:\Program Files\National Instruments\TestStand 3.5\Examples\LoadingLimits That contains a couple examples from Excel, Txt and other file formats.
Hope that helps some,
jigg
CTA, CLA
teststandhelp.com
~Will work for kudos and/or BBQ~

How to create variant for HIER reports

Hello,
I have to run program RKDBAT02(Background Processing for Drilldown Reports) from a FM that i created.
i have to run this program with a variant that i need to update with the values from my FM.
My problem is tha I am trying to use the regular variants FM as RS_VARIANT_VALUES_TECH_DATA to get the variants
fields that i have to load or fm RS_CREATE_VARIANT and in the parameter report name i put the HIER report name.
I keep getting an error that this is not a report. I can put the program hier report name which is a long string,
but the string name change dynamically between clients.
I need a way to load the variant of the hier report .
TNX
Yifat

fill in the values in the selection screen and then hit the save as button.
give it a name, enter. the variant is now save.
M.

Creating Variant for VA05???

Hi SAPians,
Could you please give me the step by step process on how to create variant for VA05 for column layout.
Thanks in advance
MM.

hello, friend.
first, execute VA05. customize your layout by clicking on the "current" icon.
next, save your layout by going SETTINGS > DISPLAY VARIANTS > SAVE. please note that unless your user parameters include the appropriate profile, the "save" option remains greyed out and unavailable. ask your BASIS consultant to assign you parameter = SD_VARIANT_MAINTAIN with value "A". then you can save your own variant.
regards.
p.s.
i got this idea from someone else. i think it was lakshmipathi. whoever it was, thanks.

How to create documentation for report programs and how to use it

how to create documentation for report programs and how to use it in the selection screen by placing an icon in the Applicatin Tool bar. If i click this icon the help documentation has to display.
Note: Exaple RSTXSCRP programs selection screen

Hi
1 goto SE38 transaction, give the program name
2 Click on documentation radiobutton & then press change
3 Write your PURPOSE, PREREQUISITES etc details
4 Save the same & Activae it.
The icon will come automatically on selection screen
Thanks
Sandeep
Reward if useful

How to create enhancement for VF04 for program SDBILLDL

Hi,
How to create enhancement for VF04 for program SDBILLDL
I need to create custom enhancement for the Tcode VF04.
Requirement:
The output displayed is to be filtered based on the input given in the selection screen filed - Sort Criterion in the transaction VF04. The filter is for displaying Sales orders if contract number is given as input and Deliveries if shipment number is given as input.
Regards,
Kishore.

Hi Kishore,
Check this User exit EXIT_SAPLV60A_002.
Reward Points if this helps,
Satish

How to create tcode for modulepool program with selection screen?

hi,
How to create tcode for modulepool program with selection screen?
thanks,
sagar

Hi,
We need to goto SE80.
In our program we right click on object name and goto create
-> transaction. Enter the module pool program and screen number and save and activate.
Or by SE93 also we can create a transaction code for our program.
Hope ths helps.
plz reward if useful.
thanks,
dhanashri..
Edited by: Dhanashri Pawar on Jul 22, 2008 8:29 AM

How to create Variant file for ECATT(MM01)?

Any one know how to create variant file for ECATT (MM01)

Hello TJK,
What do you mean by variant file? Please give some more details.
Meanwhile here is the link on how to use eCATT,
New to Materials Management / Warehouse Management?
Hope this helps.
Regards
Arif Mansuri

How to setup variants for webdynpro report in ABAP? Help!

Hi Experts,
I have a webdynpro for ABAP report with selection screen.
How to setup variants for webdynpro report in ABAP?
Thanks
Gopal

Hi Gopal,
There is no concept of Variant in Webdynpro ABAP. But in our project we have some tool to do that. Its not release to the client I think. In my scenarieo, We create the Screen variant and program name will be supplied to the tool that will generate the ouput in PDF and Selection screen in One view. But the same is not avilable .
If you want the same concept in Webdynpro ABAP, you need to go for Dynamic programming only. This is the only option is avilable.
Warm Regards,
Vijay

How to use variant for diffrent output?

Hi,
I have created one report with ALV_grid_display.
when i execute this report it would show output with less detail.
I have a one checkbox at selection-screen also. My requirement is when i select this checkbox then report should show output with more detail i.e different output.
I have heared we can create variant for this.
Pls tell me how can i do this.
Correct answear will be rewarded by maximum points.
Thanks & Regards,
Gaurav.

Hi Gaurav,
leave ur id i will send u the screen shot how to create the variant after getting the output list.
This is the sample programe
just go through the bold one in the coding and do modifications in ur programe,
REPORT ZVRI4E04 LINE-SIZE 250 NO STANDARD PAGE HEADING
 MESSAGE-ID MSG.
TYPE-POOLS : SLIS.
 TABLES DECLARATION *
TABLES: VBRK, VBRP, VBKD, KONV, KNA1.
 V A R I A B L E S *
DATA : W_FIELD TYPE SLIS_FIELDCAT_ALV.
DATA : F_FIELD TYPE SLIS_T_FIELDCAT_ALV.
DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA : V_POS TYPE I,
 LS_SORT TYPE SLIS_T_SORTINFO_ALV,
 W_SORT TYPE SLIS_SORTINFO_ALV.
DATA : IS_VARIANT LIKE DISVARIANT.
IS_VARIANT-REPORT = SY-CPROG.
DATA : BEGIN OF T_VBRK OCCURS 0,
 VBELN LIKE VBRK-VBELN,
 FKDAT LIKE VBRK-FKDAT,
 KNUMV LIKE VBRK-KNUMV,
 KUNAG LIKE VBRK-KUNAG,
 VKORG LIKE VBRK-VKORG,
 VTWEG LIKE VBRK-VTWEG,
 SPART LIKE VBRK-SPART,
 END OF T_VBRK.
DATA : BEGIN OF T_VBRP OCCURS 0,
 VBELN LIKE VBRP-VBELN,
 POSNR LIKE VBRP-POSNR,
 FKIMG LIKE VBRP-FKIMG,
 NTGEW LIKE VBRP-NTGEW,
 BRGEW LIKE VBRP-BRGEW,
 VOLUM LIKE VBRP-VOLUM,
 AUBEL LIKE VBRP-AUBEL,
 END OF T_VBRP.
DATA : BEGIN OF T_VBKD OCCURS 0,
 VBELN LIKE VBKD-VBELN,
 BSTKD LIKE VBKD-BSTKD,
 END OF T_VBKD.
DATA : BEGIN OF T_KONV OCCURS 0,
 KNUMV LIKE KONV-KNUMV,
 KPOSN LIKE KONV-KPOSN,
 STUNR LIKE KONV-STUNR,
 KSCHL LIKE KONV-KSCHL,
 KBETR LIKE KONV-KBETR,
 KWERT LIKE KONV-KWERT,
 END OF T_KONV.
DATA : BEGIN OF T_KNA1 OCCURS 0,
 KUNNR LIKE KNA1-KUNNR,
 NAME1 LIKE KNA1-NAME1,
 END OF T_KNA1.
DATA : BEGIN OF T_FINAL OCCURS 0,
 VKORG LIKE VBRK-VKORG,
 VTWEG LIKE VBRK-VTWEG,
 SPART LIKE VBRK-SPART,
 FKDAT LIKE VBRK-FKDAT,
 VBELN LIKE VBRK-VBELN,
 POSNR LIKE VBRP-POSNR,
 NAME1 LIKE KNA1-NAME1,
 BSTKD LIKE VBKD-BSTKD,
 FKIMG LIKE VBRP-FKIMG,
 NTGEW LIKE VBRP-NTGEW,
 BRGEW LIKE VBRP-BRGEW,
 VOLUM LIKE VBRP-VOLUM,
 BASIC LIKE KONV-KWERT,
 EXDUTY LIKE KONV-KWERT,
 ED LIKE KONV-KWERT,
 CST LIKE KONV-KWERT,
 VAT LIKE KONV-KWERT,
 SALTAX LIKE KONV-KWERT,
 FREIGHT LIKE KONV-KWERT,
 TCS LIKE KONV-KWERT,
 SRG LIKE KONV-KWERT,
 RATE LIKE KONV-KBETR,
 END OF T_FINAL.
 S E L E C T I O N - S C R E E N *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.
SELECT-OPTIONS: S_KUNAG FOR T_VBRK-KUNAG,
 S_FKDAT FOR T_VBRK-FKDAT,
 S_VKORG FOR T_VBRK-VKORG,
 S_VTWEG FOR T_VBRK-VTWEG,
 S_SPART FOR T_VBRK-SPART.
SELECTION-SCREEN END OF BLOCK B1.
AT SELECTION-SCREEN .
SELECT SINGLE KUNAG FKDAT VKORG VTWEG SPART FROM VBRK INTO T_VBRK
 WHERE KUNAG IN S_KUNAG
 AND FKDAT IN S_FKDAT
 AND VKORG IN S_VKORG
 AND VTWEG IN S_VTWEG
 AND SPART IN S_SPART.
IF SY-SUBRC <> 0.
 MESSAGE E000 WITH 'THERE IS NO RECORDS FOR THIS SELECTION CRITERIA'.
ENDIF.
START-OF-SELECTION.
SELECT VBELN FKDAT KNUMV KUNAG VKORG VTWEG SPART
 FROM VBRK INTO TABLE T_VBRK
 WHERE KUNAG IN S_KUNAG
 AND FKDAT IN S_FKDAT
 AND VKORG IN S_VKORG
 AND VTWEG IN S_VTWEG
 AND SPART IN S_SPART.
IF NOT T_VBRK[] IS INITIAL.
 SELECT VBELN POSNR FKIMG NTGEW BRGEW VOLUM AUBEL
 FROM VBRP INTO TABLE T_VBRP
 FOR ALL ENTRIES IN T_VBRK
 WHERE VBELN = T_VBRK-VBELN.
ENDIF.
IF NOT T_VBRP[] IS INITIAL .
 SELECT VBELN BSTKD FROM VBKD
 INTO TABLE T_VBKD
 FOR ALL ENTRIES IN T_VBRP
 WHERE VBELN = T_VBRP-AUBEL.
ENDIF.
IF NOT T_VBRK[] IS INITIAL.
 SELECT KNUMV KPOSN STUNR KSCHL KBETR KWERT
 FROM KONV
 INTO TABLE T_KONV
 FOR ALL ENTRIES IN T_VBRK
 WHERE KNUMV = T_VBRK-KNUMV.
ENDIF.
IF NOT T_VBRK[] IS INITIAL.
 SELECT KUNNR NAME1 FROM KNA1 INTO TABLE T_KNA1
 FOR ALL ENTRIES IN T_VBRK
 WHERE KUNNR = T_VBRK-KUNAG.
ENDIF.
 Populating the final data *
LOOP AT T_VBRP.
 READ TABLE T_VBRK WITH KEY VBELN = T_VBRP-VBELN.
 READ TABLE T_VBKD WITH KEY VBELN = T_VBRP-AUBEL.
 READ TABLE T_KNA1 WITH KEY KUNNR = T_VBRK-KUNAG.
 T_FINAL-VKORG = T_VBRK-VKORG.
 T_FINAL-VTWEG = T_VBRK-VTWEG.
 T_FINAL-SPART = T_VBRK-SPART.
 T_FINAL-FKDAT = T_VBRK-FKDAT.
 T_FINAL-VBELN = T_VBRK-VBELN.
 T_FINAL-POSNR = T_VBRP-POSNR.
 T_FINAL-NAME1 = T_KNA1-NAME1.
 T_FINAL-BSTKD = T_VBKD-BSTKD.
 T_FINAL-FKIMG = T_VBRP-FKIMG.
 T_FINAL-NTGEW = T_VBRP-NTGEW.
 T_FINAL-BRGEW = T_VBRP-BRGEW.
 T_FINAL-VOLUM = T_VBRP-VOLUM.
 LOOP AT T_KONV WHERE KNUMV = T_VBRK-KNUMV AND
 KPOSN = T_VBRP-POSNR.
 IF T_KONV-KSCHL = 'ZIBP' OR T_KONV-KSCHL = 'ZIPR'.
 T_FINAL-BASIC = T_FINAL-BASIC + T_KONV-KWERT.
 IF NOT T_KONV-KBETR IS INITIAL.
 T_FINAL-RATE = T_KONV-KBETR.
 ENDIF.
 ENDIF.
 IF T_KONV-KSCHL = 'ZIED'.
 T_FINAL-EXDUTY = T_FINAL-EXDUTY + T_KONV-KWERT.
 ENDIF.
 IF T_KONV-KSCHL = 'ZIEC'.
 T_FINAL-ED = T_FINAL-ED + T_KONV-KWERT.
 ENDIF.
 IF T_KONV-KSCHL = 'ZIVA'.
 T_FINAL-SALTAX = T_FINAL-SALTAX + T_KONV-KWERT.
 ENDIF.
 IF T_KONV-KSCHL = 'ZIFD' OR T_KONV-KSCHL = 'ZID0'.
 T_FINAL-FREIGHT = T_FINAL-FREIGHT + T_KONV-KWERT.
 ENDIF.
 IF T_KONV-KSCHL = 'ZITC'.
 T_FINAL-TCS = T_FINAL-TCS + T_KONV-KWERT.
 ENDIF.
 IF T_KONV-KSCHL = 'ZITS'.
 T_FINAL-SRG = T_FINAL-SRG + T_KONV-KWERT.
 ENDIF.
 IF T_KONV-KSCHL = 'ZICS'.
 T_FINAL-CST = T_FINAL-CST + T_KONV-KWERT.
 ENDIF.
 IF T_KONV-KSCHL = 'ZIVA'.
 T_FINAL-VAT = T_FINAL-VAT + T_KONV-KWERT.
 ENDIF.
 ENDLOOP.
 APPEND T_FINAL.
 CLEAR T_FINAL.
 CLEAR T_KONV.
 CLEAR : T_VBRK, T_VBRP, T_VBKD, T_KNA1.
ENDLOOP.
 POSITION DECLARATION FOR ALV OUTPUT *
V_POS = 0.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'VKORG' .
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-SELTEXT_M = 'SORG'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'VTWEG' .
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-SELTEXT_M = 'DCHL'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'SPART' .
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-SELTEXT_M = 'DVS'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'FKDAT' .
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-SELTEXT_M = 'Date'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'VBELN' .
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-SELTEXT_M = 'Inv No'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'POSNR' .
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-SELTEXT_M = 'Item No'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'NAME1' .
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-SELTEXT_M = 'Name'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'BSTKD' .
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-SELTEXT_M = 'PO No'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'FKIMG' .
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-DO_SUM = 'X'.
W_FIELD-SELTEXT_M = 'Quantity'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'NTGEW' .
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-DO_SUM = 'X'.
W_FIELD-SELTEXT_M = 'NT WG'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'BRGEW' .
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-DO_SUM = 'X'.
W_FIELD-SELTEXT_M = 'GR WG'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'VOLUM' .
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-DO_SUM = 'X'.
W_FIELD-SELTEXT_M = 'Volume'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'RATE'.
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-DO_SUM = 'X'.
W_FIELD-SELTEXT_M = 'Rate'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'BASIC'.
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-DO_SUM = 'X'.
W_FIELD-SELTEXT_M = 'BASIC'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'EXDUTY'.
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-DO_SUM = 'X'.
W_FIELD-SELTEXT_M = 'EX Duty'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'ED' .
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-DO_SUM = 'X'.
W_FIELD-SELTEXT_M = 'EDUCATION'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'SALTAX'.
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-DO_SUM = 'X'.
W_FIELD-SELTEXT_M = 'SALTAX'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'CST'.
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-DO_SUM = 'X'.
W_FIELD-SELTEXT_M = 'CST'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'VAT'.
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-DO_SUM = 'X'.
W_FIELD-SELTEXT_M = 'VAT'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'FREIGHT' .
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-DO_SUM = 'X'.
W_FIELD-SELTEXT_M = 'FREIGHT'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'TCS' .
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-DO_SUM = 'X'.
W_FIELD-SELTEXT_M = 'TCS'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
V_POS = V_POS + 1.
W_FIELD-COL_POS = V_POS.
W_FIELD-FIELDNAME = 'SRG' .
W_FIELD-TABNAME = 'T_FINAL'.
W_FIELD-DO_SUM = 'X'.
W_FIELD-SELTEXT_M = 'SRG'.
APPEND W_FIELD TO F_FIELD.
CLEAR W_FIELD.
WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = SY-CPROG
 I_STRUCTURE_NAME
 IS_LAYOUT = WA_LAYOUT
 IT_FIELDCAT = F_FIELD
 IS_VARIANT = IS_VARIANT
 I_SAVE = 'X'
 IT_SORT = LS_SORT
 TABLES
 T_OUTTAB = T_FINAL
 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.
Reward points if helpful
Thanks
Message was edited by:
 Pattan Naveen

How 2 creat report for displaying the details of a Delivery Document using

how to create report for displaying the details of a Delivery Document using the tables LIKP, LIPS
thank you
regards,
jagrut bharatkumar shukla
points will be rewarded

HI
I AM GIVING YOU MY DELIVERY DOCUMENT CODE...MODIFY IT ACCORDING TO YOUR REQUIREMENT
*& Report ZDELIVERY *
report zdelivery message-id z9bhu .
types: begin of t_likp,
 vbeln type likp-vbeln, "Delivery
 erdat type likp-erdat, "Date for rec creation
* LFDAT TYPE LIKP-LFDAT, "Delevery Date
* WAERK TYPE LIKP-WAERK, "Currency
 kunnr type likp-kunnr, "Ship-To Party
 kunag type likp-kunag, "Sold-to party
 traty type likp-traty, "Means-of-Transport
 end of t_likp.
types: begin of t_lips,
 vbeln type lips-vbeln, "Delivery
 posnr type lips-posnr, "Delivery item
 matnr type lips-matnr, "Material Number
 arktx type lips-arktx, "Short Text for Sales Order Item
 lfimg type lips-lfimg, "Actual quantity delivered
 netpr type lips-netpr,
* MEINS TYPE LIPS-MEINS, "Base Unit of Measure
 vgbel type lips-vgbel, "Doc no of the reference document
 end of t_lips.
types: begin of t_vbpa,
 vbeln type vbpa-vbeln, "SD DocumenT Number
 posnr type vbpa-posnr, "Item number
 parvw type vbpa-parvw, "Partner function
 kunnrb type vbpa-kunnr, "Customer Number 1
 end of t_vbpa.
types: begin of t_kna1,
 kunnr type kna1-kunnr, "Customer Number 1
 name1 type kna1-name1, "Name 1
 ort01 type kna1-ort01, "City
 adrnr type kna1-adrnr, "Address
 end of t_kna1.
types: begin of t_li_vbpa,
 vbeln type likp-vbeln, "Delivery
 erdat type likp-erdat, "Date for rec creation
* LFDAT TYPE LIKP-LFDAT, "Delevery Date
* WAERK TYPE LIKP-WAERK, "Currency
 kunnr type likp-kunnr, "Ship-To Party
 kunag type likp-kunag, "Sold-to party
 traty type likp-traty, "Means-of-Transport
 vbeln1 type lips-vbeln, "Delivery
 posnr type lips-posnr, "Delivery item
 matnr type lips-matnr, "Material Number
 arktx type lips-arktx, "Short Text for Sales Order Item
 lfimg type lips-lfimg, "Actual quantity delivered
 netpr type lips-netpr, "Net Price
* MEINS TYPE LIPS-MEINS, "Base Unit of Measure
 vgbel type lips-vgbel, "Doc no of the reference document
 vbeln3 type vbpa-vbeln, "SD DocumenT Number
 parvw type vbpa-parvw, "Partner function
 kunnrb type vbpa-kunnr, "Customer Number 1
 end of t_li_vbpa.
types: begin of t_final,
 vbeln type likp-vbeln, "Delivery
 erdat type likp-erdat, "Date for rec creation
 kunnr type likp-kunnr, "Ship-To Party
 kunag type likp-kunag, "Sold-to party
 traty type likp-traty, "Means-of-Transport
 vbeln1 type lips-vbeln, "Delivery
 posnr type lips-posnr, "Delivery item
 matnr type lips-matnr, "Material Number
 arktx type lips-arktx, "Short Text for Sales Order Item
 lfimg type lips-lfimg, "Actual quantity delivered
 netpr type lips-netpr, "Net Price
 vgbel type lips-vgbel, "Doc no of the reference document
 vbeln3 type vbpa-vbeln, "SD DocumenT Number
 parvw type vbpa-parvw, "Partner function
 kunnrb type vbpa-kunnr, "Customer Number 1
 name1 type kna1-name1, "Name 1
 ort01 type kna1-ort01, "City
 adrnr1 type kna1-adrnr, "Address
 name2 type kna1-name1, "Name 1
 ort02 type kna1-ort01, "City
 adrnr2 type kna1-adrnr, "Address
 name3 type kna1-name1, "Name 1
 ort03 type kna1-ort01, "City
 adrnr3 type kna1-adrnr, "Address
 end of t_final.
* D A T A D E C L A R A T I O N
*&*********Internal Table Declaration****************&*
data: it_likp type standard table of t_likp.
data: it_lips type standard table of t_lips.
data: it_vbpa type standard table of t_vbpa.
data: it_kna1 type standard table of t_kna1.
data: it_li_vbpa type standard table of t_li_vbpa.
data: it_li_vbpa_temp type standard table of t_li_vbpa.
data: it_final type standard table of t_final.
*&*********Work Area Declaration********************&*
data: wa_likp type t_likp.
data: wa_lips type t_lips.
data: wa_vbpa type t_vbpa.
data: wa_kna1 type t_kna1.
data: wa_li_vbpa type t_li_vbpa.
data: wa_li_vbpa_temp type t_li_vbpa.
data: wa_final type t_final.
*&*********Data Declaration************************&*
data: d_vbeln type likp-vbeln.
data: flag type i value 0.
* S E L E C T I O N S C R E E N D E C L A R A T I O N
selection-screen begin of block block2 with frame title text-001.
select-options: s_vbeln for d_vbeln obligatory. "Delivery no
selection-screen end of block block2.
* A T S E L E C T I O N - S C R E E N E V E N T S
*AT SELECTION-SCREEN.
*PERFORM VALIDATE_DATA.
* S T A R T O F S E L E C T I O N E V E N T S
start-of-selection.
perform fetch_data.
perform merge_data_kna1.
*INCLUDE Z9BT_SH_***4_FORMS.
call function 'OPEN_FORM'
exporting
* APPLICATION = 'TX'
* ARCHIVE_INDEX =
* ARCHIVE_PARAMS =
 device = 'PRINTER'
* DIALOG = 'X'
* FORM = ' '
 language = sy-langu
* OPTIONS =
* MAIL_SENDER =
* MAIL_RECIPIENT =
* MAIL_APPL_OBJECT =
* RAW_DATA_INTERFACE = '*'
* SPONUMIV =
* IMPORTING
* LANGUAGE =
* NEW_ARCHIVE_PARAMS =
* RESULT =
exceptions
 canceled = 1
 device = 2
 form = 3
 options = 4
 unclosed = 5
 mail_options = 6
 archive_error = 7
 invalid_fax_number = 8
 more_params_needed_in_batch = 9
 spool_error = 10
 codepage = 11
 others = 12
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
sort it_final by vbeln.
loop at it_final into wa_final.
call function 'START_FORM'
exporting
* ARCHIVE_INDEX =
 form = 'Z9BT_DELIVERY'
 language = sy-langu
* STARTPAGE = ' '
* PROGRAM = ' '
* MAIL_APPL_OBJECT =
* IMPORTING
* LANGUAGE =
exceptions
 form = 1
 format = 2
 unended = 3
 unopened = 4
 unused = 5
 spool_error = 6
 codepage = 7
 others = 8
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
call function 'WRITE_FORM'
exporting
 element = 'ITEM_LIST'
 function = 'SET'
 type = 'BODY'
 window = 'MAIN'
* IMPORTING
* PENDING_LINES =
* EXCEPTIONS
* ELEMENT = 1
* FUNCTION = 2
* TYPE = 3
* UNOPENED = 4
* UNSTARTED = 5
* WINDOW = 6
* BAD_PAGEFORMAT_FOR_PRINT = 7
* SPOOL_ERROR = 8
* CODEPAGE = 9
* OTHERS = 10
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
call function 'END_FORM'
* IMPORTING
* RESULT =
exceptions
 unopened = 1
 bad_pageformat_for_print = 2
 spool_error = 3
 codepage = 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.
endloop.
call function 'CLOSE_FORM'
* IMPORTING
* RESULT =
* RDI_RESULT =
* TABLES
* OTFDATA =
exceptions
 unopened = 1
 bad_pageformat_for_print = 2
 send_error = 3
 spool_error = 4
 codepage = 5
 others = 6
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
*& Form VALIDATE_DATA
* text
* --> p1 text
* <-- p2 text
form validate_data .
select single vbeln into wa_likp-vbeln
 from likp where vbeln in s_vbeln.
append wa_likp to it_likp.
if sy-subrc <> 0.
flag = 1.
endif.
endform. " VALIDATE_DATA
*& Form FETCH_DATA
* text
* --> p1 text
* <-- p2 text
form fetch_data .
select a~vbeln
 a~erdat
 a~kunnr
 a~kunag
 a~traty
 b~vbeln
 b~posnr
 b~matnr
 b~arktx
 b~lfimg
 b~netpr
 b~vgbel
 c~vbeln
 c~parvw
 c~kunnr
 into table it_li_vbpa
 from likp as a
 left outer join lips as b on a~vbeln = b~vbeln
 inner join vbpa as c on b~vgbel = c~vbeln
 where a~vbeln in s_vbeln and
 c~parvw = 'RE'.
endform. " FETCH_DATA
*& Form MERGE_DATA_KNA1
* text
* --> p1 text
* <-- p2 text
form merge_data_kna1 .
if it_li_vbpa[] is not initial.
it_li_vbpa_temp[] = it_li_vbpa[].
sort it_li_vbpa_temp by kunnr.
delete adjacent duplicates from it_li_vbpa_temp comparing kunnr.
loop at it_li_vbpa into wa_li_vbpa.
read table it_li_vbpa_temp into wa_li_vbpa_temp with key kunnr =
wa_li_vbpa-kunag.
if sy-subrc <> 0.
wa_li_vbpa_temp = wa_li_vbpa.
append wa_li_vbpa_temp to it_li_vbpa_temp.
endif.
read table it_li_vbpa_temp into wa_li_vbpa_temp with key kunnr =
wa_li_vbpa-kunnrb.
if sy-subrc <> 0.
wa_li_vbpa_temp = wa_li_vbpa.
append wa_li_vbpa_temp to it_li_vbpa_temp.
endif.
endloop.
endif.
if it_li_vbpa_temp[] is not initial.
select kunnr
 name1
 ort01
 adrnr into table it_kna1 from kna1
 for all entries in it_li_vbpa_temp
 where kunnr = it_li_vbpa_temp-kunnr.
endif.
loop at it_li_vbpa into wa_li_vbpa .
wa_final-vbeln = wa_li_vbpa-vbeln.
wa_final-erdat = wa_li_vbpa-erdat.
*it_final-LFART = it_li_vbpa-LFART.
wa_final-kunnr = wa_li_vbpa-kunnr.
wa_final-kunag = wa_li_vbpa-kunag.
*it_final-VSTEL = it_li_vbpa-VSTEL.
wa_final-traty = wa_li_vbpa-traty.
wa_final-vbeln1 = wa_li_vbpa-vbeln.
wa_final-posnr = wa_li_vbpa-posnr.
wa_final-matnr = wa_li_vbpa-matnr.
wa_final-arktx = wa_li_vbpa-arktx.
wa_final-lfimg = wa_li_vbpa-lfimg.
wa_final-netpr = wa_li_vbpa-netpr.
*wa_final-GEWEI = it_li_vbpa-GEWEI.
*it_final-VOLUM = it_li_vbpa-VOLUM.
*it_final-VOLEH = it_li_vbpa-VOLEH.
wa_final-vgbel = wa_li_vbpa-vgbel.
wa_final-vbeln3 = wa_li_vbpa-vbeln.
*wa_final-PARVW = wa_li_vbpa-PARVW.
wa_final-kunnrb = wa_li_vbpa-kunnrb.
read table it_kna1 into wa_kna1 with key kunnr = wa_li_vbpa-kunnr.
if sy-subrc = 0.
wa_final-name1 = wa_kna1-name1.
wa_final-ort01 = wa_kna1-ort01.
wa_final-adrnr1 = wa_kna1-adrnr.
endif.
read table it_kna1 into wa_kna1 with key kunnr = wa_li_vbpa-kunag.
if sy-subrc = 0.
wa_final-name2 = wa_kna1-name1.
wa_final-ort02 = wa_kna1-ort01.
wa_final-adrnr2 = wa_kna1-adrnr.
endif.
read table it_kna1 into wa_kna1 with key kunnr = wa_li_vbpa-kunnrb.
if sy-subrc = 0.
wa_final-name3 = wa_kna1-name1.
wa_final-ort03 = wa_kna1-ort01.
wa_final-adrnr3 = wa_kna1-adrnr.
endif.
append wa_final to it_final.
clear wa_final.
endloop.
endform.

Reg: How to create Variants for program SAPF120

Similar Messages

Maybe you are looking for