Payslip - problems in the layout

Hi all,
IN THE standard Indian Payslip layout the DEDUCTIONS amount appears one digit less than it should ...
For eg my deductions in the PAYSLIP is Rs 21,221.00 but it appears as Rs 2,122.10
What changes should I make in the Form editor PE51 to get the correct values??
kindly reply its very urgent
uday

Hi Ram,
In PE51 are u talking about Cumulations ID's ?cos there's no option for C Type as u have said..
There are entries like Symbols,Conversions,Rules,DSplits,Splits and Differences but there's no entry like Ctype ??
kindly help
Edited by: Udaya Kumar on Jan 9, 2008 8:43 AM

Similar Messages

Problems with the Layout Priority in KM

Hello, I have some problems with the Layout Priority in KM..
I'm using a KM Navigation Iview with "Layout Set"=NewsBrowser (this Layout Set uses a Collection renderer that sorts the folder's contents by "last modified") and "Layout Set Mode"=exclusive.
In the KM folder I setted in Details->Settings->Presentation as "rndSortProperty"=name because I need to order my files by FileName property.
Despite that in see that the contents showed in my iview are ordered by Last Modified...
The "Layout Set Mode" exclusive gives the higher priority to the Folder Settings..
I don't understand..
Thank you in advance.

Thank you Shyja,
your post was helpful, but another issue is occurred.
Maybe en example could be useful..
My scenario:
- I need to show a km folder with layout set "ConsumerExplorer" on root folder (no "property of sorting" setted on its collection renderer) and "TabExplorer" (no "property of sorting" setted on its collection renderer).
- I need to sort files and folders by "last modified". By default seems that they are sorted by "name".
- With my administrator user I open my folder details (in Content Admin->KM Content is used the Layout "AdminExplorer"), and in "Settings->Presentation->Additional Parameters" I add two parameters "rndSortOrder=descending" and "rndSortProperty=modified" (the others are parameters of AdminExplorer Layout).
- Then I check "Apply Settings to All Subfolders" and "Use Settings for All iViews (Preferred Presentation)".
result:
I see the "ConsumerExplorer" on root folder, the subfolder are sorted by "last modified" (everything ok).
I click on a subfolder, the "TabExplorer" si showed, the Tabs and the content are sorted by "last modified" BUT..
.. into the tabs are showed nameFolders (in link style), the action command, and the properties of "author" and "last modified" (normally into the tabs are showed just the folderNames in text style)...
Why?? Is possible that the "AdminExplorer" parameters of the km folder affect the Tab component??
Thank you

Help!!! The problem about the layout set

I have created my own layoutset for the navigation and set it.Here is the question, I navigate from the iview for which i have created the layout set to a new page.there is a return link on the new iview,i click the link of return the Browser go back to the frist iview but the layoutset i have set is gone. When return from the iview how can i keep the layoutset .
Any one know the answer please tell me , thx

Hi Mike,
Thank you very much for your help. I think itis better to choose another kind of smart sensor with rs232 I/O port. It is easier to connect the eight sensors to the eight bluetooth servers. The eight sensors are fixed on the different bearing surfaces and rotate with the machine, it's difficult to use one turning adapter to connect them. So I have to use eight bluetooth servers to connect to the eight sensors.
The key problem ishould I use 8 bluetooth servers or 1 bluetooth server or the bluetooth vi of labview to receive the data from the other servers and how can I drive them. Just like question 3 and 4 following:
(3 key question) I skimmed through the forum and noticed labview can support bluetooth. But I want to know that: If the bluetooth function of labview 8 can receive the data from the eight bluetooth servers on the machine in the same time, how could I do? If not,
should I use the same kinds of eight bluetooth servers to receive the realtime data in the same time, which are connected to pc I/O ports(if they are enough), or just use only one server connected to pc to receive the data from the servers in the same time ?
(4 question) I noticed that the bluetooth servers should use drive software or programe. If necessary, how could I do for the eight servers on the machine and on the pc?

Problems with the layout in tablet

After finishing my website I wanted to set up my tablet layout. I copyed the objects from homepage and changed the size so it fits in the tablet size. But now it looks like that
www.probilth.com (on tablet)
It's only on the half of the tablet and only if I scroll to the end, it will fit the whole tablet. What have I done wrong?
Thanks
Heike

Hello Heike,
Please go to the page in design view (where this issue occurs, and if it occurs in many pages with the same master page applied, then go to the master page), and select all to see if there is some component lying in the direction from where the page looks blank or shrinked. It may be some component like an empty text frame, or rectangle or similar.
If you find it, remove it and then re-publish/re-upload the site.
Hope this helps.
Cheers
Parikshit

How to handle the layout of file in OWB?

Hi all,
I am facing one problem..that is
If my file is coming monthly
i need to load into datamart.
But the problem is the layout is not same.
At the end of the file one field may add or one field may delete..
The procedure I am following to load data into datamart is "First I am creating External table and then from Eaternal table to Table."
How can I handle this type of file in OWB
Pls give me some inputs
Thanks in advance
Srinivas

hi,
Define the extenal table in the followin way,
CREATE TABLE sample_extbl
2 ( col1 NUMBER
3 , col2 NUMBER
4 , col3 NUMBER
5 )
6 ORGANIZATION EXTERNAL
7 (
8 TYPE ORACLE_LOADER
9 DEFAULT DIRECTORY LOG_DIR
10 ACCESS PARAMETERS
11 (
12 RECORDS DELIMITED BY NEWLINE
13 nobadfile
14 nologfile
15 FIELDS TERMINATED BY ',' LDRTRIM
16 MISSING FIELD VALUES ARE NULL
17 )
18 LOCATION (LOG_DIR:'a.csv')
19 )
20 REJECT LIMIT UNLIMITED;
case 1:
Now, for example if the file a.csv contains the data as follows.
col1,col2,col3,col4,col5
abc,28,xyz,mno,1000
abc2,38,xyz,mno,2000
abc3,28,xyz,mno,3000
Then, if we query the external table "sample_extbl"
select * from sample_extbl
Then you get the data as follows
col1 col2 col3
abc 28 xyz
abc2 38 xyz
abc3 28 xyz
Case 2:
Now, for example if the file a.csv contains the data as follows.
col1,col2,col3,col4,col5
abc,28,xyz,mno,1000
abc2,38
abc3,28,xyz,mno
Then, if we query the external table "sample_extbl"
select * from sample_extbl
Then you get the data as follows
col1 col2 col3
abc 28 xyz
abc2 38
abc3 28 xyz
Regards,
Gowtham Sen.

Problem with the progress line in MS Project

Hi there,
I have a question about the progress line in MS Project.
My boss asked me to see how far we were with the work, so I inserted the column '% Complete' and then the progress line.
Now my boss has a problem with the layout and I don't know how the fix it. The problem is at line 43 and 44, where the progress line indicates that we are behind on that group of tasks. But is it possible for the progress line to not indicate it on lines
43 and 44 but only on lines 45 to 50? So my question is if it's possible to make the progress line go down (vertically) over line 43 and 44 instead of jumping to the back?
It would be much more simple if I could insert lines 43 ad 44 as text but not as a task, so that it just counts as a title of some tasks but nothing more than that. Is that possible in Project?
(Lines 45 to 50 are subtasks for line 44, and 44 is a subtask for 43. So line 43 is the main task.)
Normally there was a picture here but I couldn't upload it because my account is not yet verified... So hopefully you can understand the problem with the text.
If anyone could give my some advice or the solution, that would be great!
Thanks in advance!

Hi Thunderbal66--
Basically your activity 43 is late because the sub tasks are also late. Thus MS Project shows the situation by moving the progress line backward. The progress line is automatically displayed based on your project progress, there is no way to manually change
it unless you update your project.
I think the question is not there. This is more a matter of project governance and transparency: why not showin that a project is late when it is late and taking the appropriate corrective actions?
Hope this helps,
Guillaume Rouyre, MBA, MVP, P-Seller |

Can't work in the layout view (right part of the screen, 'ontwerpweergave' in Dutch)

I can no longer work in the ´layout view, probably after I stroke some unknown key combination. I can work in the code, but in the layout view I see only some tiny little symbols.
In live view I can see the design, but I can't work in it either.
I've tried all kinds of 'view options', restarted Dreamweaver, restarted my computer, tried a new document, but the problem remains.
Anyone knows how to restore this? Thanks for your help!

Meanwhile I solved the problem myself: the layout screen had sunk to the bottom, just had to pull it up.

Text Problem - 'Editing or Rendering the text layer will cause the layout to change'

Hello all,
The problem I'm having is that when I try to edit a text layer, the layout of the layer changes completely - I have a grey warning triangle in the affected layer thumbnail that states the following message when I hover over it :
'Font is present on system but requires a layout change'
When I double click to edit the text layer, the following warning dialog pops up:
'Editing or Rendering the text layer will cause the layout to change'
I'm forced to click 'okay' to proceed which is when the layout of the text layer changes completely! Obviously this has massive implications for branding and page consitency!!
Now even if I have to do this the long way round, which means rebuilding each individual text layer for every single document, there is another problem, it appears that after I click 'OK' photoshop distorts the text! This means that I can't increase or decrease the font size to match it up! Same font, Same height, same AA, same weight, different circle radius!
Any help is massively appreciated,
I'm using CS5 64bit Cloud edition on Windows 7, I've already tried updating and reinstalling Photoshop but it doesnt remedy the problem, I've reinstalled a sample batch of the fonts affected and deleted any plugins
GULP!

That warning is pretty clear - you don't appear to have the font on your system. Not sure what otehr answer you are looking for. The layout changes beyond that could be indicative of a million things like the original source layers having been heavily customized with manual kerning, used a different version of a seemingly similar font, have been created with glyph substitution on a system with a different language and whatever... Unless you mean you created the files yourself just yesterday and the warning appears despite nothing have changed, everything works as intended. If you think something is up, you need to provide more info.
Mylenium

Keyboard layout problem at the login screen

Hi there!
I'm having a huge problem at the login screen just after installing OS X Lion 10.7. It seems like the keyboard layout has changed, and I need to enter some numbers in my password. I can't find the digit 9, and I really don't know if the other numbers are in the right place either. Maybe it's changed to a us layout.. What to do?

stoneheart,
the numbers are in the same position on a US English keyboard as they are on a Norwegian keyboard.
If you select the Users & Groups pane of System Preferences, and select its Login Options, do you have the “Show Input menu in login window” checkbox checked? (That’s where the checkbox’s location is in Mavericks; I don’t have Lion, so I don’t know if it’s in the same location there.)

Problem with the browse sequence back and browse sequence next widget placed in the screen layout

Hi,
Some basics: We are using Robohelp 10 to generate multiscreen html5 output. We used the pharmaceutical screen layout downloaded from: http://helpx.adobe.com/robohelp/robohelp-screen-profiles-layouts.html but modified it to match our GUI.
We are having a problem with the browse sequence back and browse sequence next buttons placed in the screen layout from the widgets tool bar. We are in no way experts at this part of Robohelp...and the css portion of all this is a bit of mystery but we have managed to get mostly what we need. Now we just need these buttons to work. In the past we used Airhelp and things worked great. Can anyone help us understand why the sequence buttons are not showing up in the output even though it does in the topic preview?
Also
This shows up in the layout.css file:
a.wBSBackButton {
                margin: 0 8pt 0 0;
                padding: 0;
                background-color: transparent;
img.wBSBackButton {
                border: none;
a.wBSNextButton {
                margin: 0 8pt 0 0;
                padding: 0;
                background-color: transparent;
img.wBSNextButton {
                border: none;
Also btw, I forgot to mention that we are linking our FrameMaker files.
Appreciate the help.
Thanks!

hi pradeep
It does not happen but if you Wait for a while that may be solved

Problem in EP while changing the layout of the default portal page

i am working with EP7.in this i encountered a problem when i tried to change the layout of the default framework page.
i created a new layout in NWDS and uploaded it to portal.then i copied the default framework page to separate folder (my personal) and assigned the newly created layout and set that page as my default framework page.
but whenever i log into the portal or refreshes the page the top level navigation iview merges (overlaps) with the masthead iview and comes back to the assigned position after some time.i tried many ways to solve this problem but i couldnt.
if anybody have any idea about it please share.....
regards,
karthick

Hi tamilventhan K
Please have a look at SAP Note No. 687485.
Hopefully this should solve your problem.
Cheers.
Award points for helpful answers:-)

Problem with the paper layout!!!

I have a repeating frame in my report which it brings me back several records order by seven fields. I have a problem in the paper layout. I wondering if it's possible to change the view of my paper layout and if some of the order's by four first field would change then the next records would print in the next physical page.

Hi Toby,
Thank you for your help. Well, at the following you can see the 3rd line of my code and at the last line I
try to specify the charset. I have checked that ISO-8859-7 is ok for greek fonts but unfortunately it still doesn't work...
Maria.
<%@ taglib uri="/WEB-INF/lib/reports_tld.jar" prefix="rw" %>
<%@ page language="java" import="java.io.*" errorPage="/rwerror.jsp" session="false" %>
<%@ page contentType="application/vnd.ms-excel" %>
<rw:report id="report">
<rw:objects id="objects">
</rw:objects>
<html xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-7">
..........

Problem with phone layout when I insert the Accordion widget ( since iOS8 )

Hello,
The problem appears after I insert the Accordion widget. The phone scales down the entire site, and there are no "lost" or hidden objects in the project. ( screenshot attached ) . This layout worked well before the second October Muse update.
I have tried a totally new basic website and had the same problem. The accordion takes the screen width. I have tried to make it smaller then the phone layout, but it remains small.
Website: www.pronovis.ag
I am very happy for any possible response,
Thanks,
Alex

Hi jonunes!
I have an article for you that I believe will help you troubleshoot this issue with your iPhone:
iPhone: No sound or distorted sound from speaker
http://support.apple.com/kb/ts5180
Thanks for coming to the Apple Support Communities!
Regards,
Braden

Many problems with the 'Export to Text' (.txt) in CR Xi

Hi,
I have listed many problems with the 'Export to Text' (.txt) function of CR Xi.
These problems are related to this export format only (meaning everything works fine in the Viewer or in the 'Export to PDF')...
- Multi-columns layout do not export as Multi-column (export only a one column);
- Numeric values with parenthesis for negative values or with a fix currency sign at the leftmost position are not exported correctly;
- Fields having a Suppress formula which is "WhilePrintingRecords" do not appears when exported;
- Fields with 'Suppress double value' checked are not always suppressed when exported to Text.
- 'Keep Group Together' flag is not working.
- 'Reset Page Number After' simply does not works when exported to text;
- 'Keep object together' on TextBox/Section is not working.
- Whenever a group is ending on the last line of a page, the the following page as the same Group header as the previous group with no records until the page is filled, then the PageBreak and PageHeader is missing but the records of the following group appears.
I would like to know what is the status of the 'Export to Text' function (is it a deprecated function not supported anymore???).
If still supported, when will these bugs be fixed???
Thanks

Hi Rene
Export to Text is supported till date. Crystal Reports 2008 also supports this with Keep together working however when I tried with format with multiple columns, it didnot show up in the exported text file.
Regards
Sourashree

ABAP Dump while Changing the Layout fields in Report output - RCOPCA02

Hi,
I Copied the Standard Program RCOPCA02 to ZRCOPCA02. I added two new fields(AUART, AUGRU) in the report output. It is executing correctly with default layout, While Changing the layout for displaying new fields it is dumping.
I am not understanding, What should i do...
Here is the Code.
report ZRCOPCA02 no standard page heading message-id km
 line-count (2) line-size 81.
type-pools: slis, ecarc.
DDIC-Tabellen *******************************************************
tables: glpca, "Einzelposten / Ist
 glu1, "Übergabestruktur FI-SL-Anzeige
 t000,
 tka01,
 sscrfields,
 vbak.
Variablen und int. Tabellen *****************************************
data: l_vbeln like vbak-vbeln,
l_auart like vbak-auart,
l_augru like vbak-augru.
data: afield type slis_fieldcat_alv,
sp_group type slis_sp_group_alv,
t_listheader type slis_t_listheader with header line,
t_layout type slis_layout_alv,
t_fieldcat type slis_t_fieldcat_alv,
t_spec_groups type slis_t_sp_group_alv,
event type slis_alv_event,
t_events type slis_t_event,
g_variant like disvariant,
gx_variant like disvariant,
g_exit(1) type c,
g_save(1) type c,
g_repid like sy-repid,
msgtyp like sy-msgty,
lt_dynpread like dynpread occurs 1 with header line,
ls_rpcak like rpcak, "note 0310592
packsize type i value 1000,
text1(60) type c,
text2(60) type c,
oldkokrs like glpca-kokrs,
oldracct like glpca-racct.
data: whr_size type i value 50,"Maximum of single values per MIC 46a
"charact. in the where-clause of the select-statement
lines type i, "number of lines of range table MIC 46a
cnt_rldnr type i, "Zähler Anzahl selektierter Ledger
cnt_kokrs type i, "Zähler Anzahl selektierter KoReKreise
cnt_poper type i, "Zähler Anzahl selektierter Perioden
cnt_ryear type i, "Zähler Anzahl selektierter GeschJahre
cnt_rvers type i, "Zähler Anzahl selektierter Versionen
cnt_bukrs type i, "Zähler Anzahl selektierter BuKreise
empge like dkobr-empge,
ksl_curr like tka01-pcacur,
hsl_curr like t001-waers,
a_rec like rstirec.
data: begin of dim_data.
include structure rgcdi. "data for dimensions
data: end of dim_data.
data: begin of tab_fields occurs 80,
name like dntab-fieldname, "fields in table i_glpca
end of tab_fields.
data: begin of i_glpca occurs 0.
include structure rpca2.
data: racct_ktext like rpcak-ktext,
psppp like prps-posid,
v_auart like vbak-auart,
v_augru like vbak-augru,
 end of i_glpca.
data: rw_subrc like sy-subrc, "Flag: Report-Writer-Schnittstelle
 re_subrc like sy-subrc, "Flag: Recherche-Schnittstelle
 subrc like sy-subrc.
data: set_id like sethier-setid, "Set-ID "RDI_SETS_4.0
 set_class like sethier-setclass, "Setklasse "RDI_SETS_4.0
 set_sname like sethier-shortname."Setname (24) "RDI_SETS_4.0
data: authorised(1),
 s_message(1),
 auth_dbcount like sy-tabix,
 Hex-Konstanten für Minimum/Maximum-Werte
 begin of hex00,
 x1(12) type c,
 x2(12) type c,
 end of hex00,
 begin of hexff,
 x1(12) type c,
 x2(12) type c,
 end of hexff.
ranges rclnt for glpca-rclnt.
field-symbols: type ecarc_glpca_curr.
Selektionsoptionen *************************************************
select-options:
rldnr for glpca-rldnr default '8A' no-display,
rassc for glpca-rassc no-display,
rrcty for glpca-rrcty default 0,
rrcty for glpca-rrcty,
rvers for glpca-rvers default '000',
kokrs for glpca-kokrs memory id cac,
bukrs for glpca-rbukrs memory id buk,
poper for glpca-poper default sy-datlo+4(2),
ryear for glpca-ryear default sy-datlo,
poper for glpca-poper,
ryear for glpca-ryear,
prctr for glpca-rprctr matchcode object prct,
pprctr for glpca-sprctr matchcode object prct,
RACCT FOR GLPCA-RACCT MATCHCODE OBJECT KART, "RD_P30K128304
racct for glpca-racct, "RD_P30K128304
drcrk for glpca-drcrk,
activ for glpca-activ,
rhoart for glpca-rhoart,
rfarea for glpca-rfarea,
stagr for glpca-stagr,
rtcur for glpca-rtcur,
runit for glpca-runit,
versa for glpca-versa no-display,
eprctr for glpca-eprctr no-display,
afabe for glpca-afabe no-display,
rmvct for glpca-rmvct no-display,
hrkft for glpca-hrkft no-display, "note 550972
sbukrs for glpca-sbukrs no-display, "note 550972
shoart for glpca-shoart no-display, "note 550972
sfarea for glpca-sfarea no-display, "note 550972
docct for glpca-docct,
docnr for glpca-docnr,
refdocct for glpca-refdocct,
refdocnr for glpca-refdocnr,
werks for glpca-werks,
repmatnr for glpca-rep_matnr matchcode object pca_shlp_rep_matnr,
rscope for glpca-rscope.
parameters: no_rrint no-display default ' '." skip "MICP40K066037
" report-report-interface
display variant ">>MICP40K039857
selection-screen begin of block 0 with frame title text-e01.
parameters: p_vari like disvariant-variant.
selection-screen comment 47(40) varname for field p_vari.
selection-screen end of block 0.
parameters log_grp(4) type c no-display default 'KE5Z'.
"<<MICP40K039857
ranges: v_racct for glpca-racct,
 v_prctr for glpca-rprctr,
 v_pprctr for glpca-sprctr.
Tabelle mit Werten aus den Berichts-Set vom Report-Writer *
data begin of val_tab occurs 50.
 include structure rgciv.
data end of val_tab.
 MICP30K166368
feldkatalog und interface für bb-schnittstelle rw MICP30K166368
 MICP30K166368
"MICP30K166368
data begin of bbs_fieldtab occurs 20. "MICP30K166368
 include structure rstifields. "MICP30K166368
data end of bbs_fieldtab. "MICP30K166368
archiv
type-pools: rsds.
types: begin of ty_archive_objects,
 object like arch_obj-object,
 end of ty_archive_objects,
 ty_t_archive_objects type ty_archive_objects occurs 2.
constants: lc_set type c value 'X',
 lc_report type progname value 'KE5Z',
 lc_reporttype type reporttype value 'TR'.
tables: admi_files.
select-options lr_files for admi_files-archiv_key no-display.
parameter: read_db type c default 'X' no-display,
 read_ar type c no-display,
 arc_obj like arch_obj-object no-display,
 read_as type c default 'X' no-display.
data : lt_arch_obj type ty_t_archive_objects with header line,
 ls_selections type rsds_frange,
 lt_selections type rsds_frange_t,
 ls_selopt type rsdsselopt,
 lt_glpca_archiv type ecarc_t_glpca_curr.
*********************************************************>>MICP40K039857
INITIALIZATION
initialization.
Diverse Initialisierungen
perform init_vars.
g_repid = sy-repid.
Set default values for record type
rrcty-sign = 'I'.
rrcty-option = 'EQ'.
rrcty-low = '0'.
append rrcty.
rrcty-low = '2'.
append rrcty.
Set default values for period and year (if kokrs or bukrs is known)
get parameter id 'BUK' field bukrs-low.
get parameter id 'CAC' field kokrs-low.
if kokrs-low is initial "get contr. area from company code
 and not bukrs-low is initial.
 call function 'KOKRS_GET_FROM_BUKRS'
 exporting
 i_bukrs = bukrs-low
 importing
 e_kokrs = kokrs-low
 exceptions
 no_kokrs_found = 1
 others = 2.
 if sy-subrc <> 0.
 clear kokrs-low.
 endif.
endif.
if not kokrs-low is initial.
 call function 'K_KOKRS_READ' "get fiscal year variant
 exporting
 kokrs = kokrs-low
 importing
 e_tka01 = tka01
 exceptions
 not_found = 1
 not_found_gjahr = 2
 others = 3.
 if sy-subrc = 0.
 call function 'G_PERIOD_GET'
 exporting
 date = sy-datlo
 variant = tka01-lmona
 importing
 period = poper-low
 year = ryear-low
 exceptions
 ledger_not_assigned_to_company = 1
 period_not_defined = 2
 variant_not_defined = 3
 others = 4.
 if sy-subrc = 0.
 poper-sign = 'I'.
 poper-option = 'EQ'.
 append poper.
 ryear-sign = 'I'.
 ryear-option = 'EQ'.
 append ryear.
 endif.
 endif.
endif.
Settings for display variants
g_save = 'A'. "Schalter Varianten benutz./allg. speichern
clear g_variant.
g_variant-report = g_repid.
g_variant-log_group = log_grp.
g_variant-username = sy-uname.
Get default variant
gx_variant = g_variant.
call function 'REUSE_ALV_VARIANT_DEFAULT_GET'
 exporting
 i_save = g_save
 changing
 cs_variant = gx_variant
 exceptions
 not_found = 2.
if sy-subrc = 0.
 p_vari = gx_variant-variant.
endif.
Set variant
if p_vari is initial.
 p_vari = '1SAP'.
 move p_vari to gx_variant-variant.
 call function 'REUSE_ALV_VARIANT_EXISTENCE'
 exporting
 i_save = g_save
 changing
 cs_variant = gx_variant
 exceptions
 not_found = 1.
 if sy-subrc ne 0.
 clear p_vari.
 clear gx_variant-variant.
 endif.
endif.
varname = gx_variant-text.
"<<MICP40K039857
archiv
call function 'KARL_DATA_INPUT_INIT'
 exporting
 i_report = lc_report
 i_reporttype = lc_reporttype
 importing
 e_xusedb = read_db
 e_xusear = read_ar
 e_archobj = arc_obj
 e_infosys = read_as
 tables
 t_arch_sel = lr_files.
data: lt_excluding like sy-ucomm occurs 0 with header line.
call function 'RS_SET_SELSCREEN_STATUS'
 exporting
 p_status = 'SELSCREEN'
 p_program = 'RCOPCA02'
 tables
 p_exclude = lt_excluding.
Initialisieren der Bericht/Bericht-Schnittstellen *
data: ld_no_rrint type boole_d. "note 490484 begin
import rri = ld_no_rrint from memory id 'RCOPCA02_NO_RRI'.
if ld_no_rrint = 'X'.
 free memory id 'RCOPCA02_NO_RRI'.
else. "note 490484 end
 call function 'G_REPORT_INTERFACE_INIT' "Report-Writer?
 exporting "MICP30K166368
 table = 'GLPCT' "MICP30K166368
 importing
 subrc = rw_subrc "MICP30K166368
 tables "MICP30K166368
 it_fieldr = bbs_fieldtab. "MICP30K166368
 call function 'RSTI_APPL_STACK_POP'"oder Recherche?
 importing
 i_rec = a_rec
 exceptions
 appl_stack_not_initialized = 1.
 re_subrc = sy-subrc.
 if re_subrc = 0.
 check Receiver is this report
 if not ( ( a_rec-rtool = 'RT' and a_rec-ronam = 'RCOPCA02' )
 or ( a_rec-rtool = 'TR' and a_rec-ronam = 'KE5Z' ) ) .
 re_subrc = 2.
 endif.
 endif.
endif.
AT SELCTION-SCREEN on value request**********************************
*at selection-screen on value-request for racct-low. "RD "4.6a
 "RD "4.6a
call function 'K_RACCT_VALUE_REQUEST' "RD "4.6a
 importing "RD "4.6a
 e_racct = racct-low. "RD "4.6a
 "RD "4.6a
 "RD "4.6a
*at selection-screen on value-request for racct-high. "RD "4.6a
 "RD "4.6a
call function 'K_RACCT_VALUE_REQUEST' "RD "4.6a
 importing "RD "4.6a
 e_racct = racct-high. "RD "4.6a
at selection-screen on value-request for p_vari. "MICP40K039857
perform f4_for_variant. "MICP40K039857
at selection-screen on value-request for poper-low. "RD "4.6a
begin of insertion note 522715
call function 'K_KOKRS_READ'
 exporting
 kokrs = kokrs-low
 exceptions
 not_found = 1
 not_found_gjahr = 2
 others = 3.
if sy-subrc = 0.
end of insertion note 522715
 call function 'ECPCA_RPMAX_VALUE_REQUEST' "RD "4.6a
 exporting "RD "4.6a
 i_kokrs = kokrs-low "RD "4.6a
 i_ryear = ryear-low "RD "4.6a
 importing "RD "4.6a
 e_rpmax = poper-low "RD "4.6a
begin of insertion note 522715
 exceptions
 table_empty = 1.
endif.
end of insertion note 522715
at selection-screen on value-request for poper-high. "RD "4.6a
begin of insertion note 522715
call function 'K_KOKRS_READ'
 exporting
 kokrs = kokrs-low
 exceptions
 not_found = 1
 not_found_gjahr = 2
 others = 3.
if sy-subrc = 0.
end of insertion note 522715
 call function 'ECPCA_RPMAX_VALUE_REQUEST' "RD "4.6a
 exporting "RD "4.6a
 i_kokrs = kokrs-low "RD "4.6a
 i_ryear = ryear-low "RD "4.6a
 importing "RD "4.6a
 e_rpmax = poper-high "RD "4.6a
begin of insertion note 522715
 exceptions
 table_empty = 1.
endif.
end of insertion note 522715
AT SELCTION-SCREEN ***************************************************
at selection-screen.
perform pai_of_selection_screen.
begin of insertion note 522715
if not kokrs-low is initial.
 call function 'K_KOKRS_READ'
 exporting
 kokrs = kokrs-low
 exceptions
 not_found = 1
 not_found_gjahr = 2
 others = 3.
 if sy-subrc <> 0.
 message e101(ki) with kokrs-low.
 endif.
endif.
end of insertion note 522715
archiv
if sy-ucomm = 'FC01' or sy-ucomm = 'UCDS'
 or sy-ucomm = 'ONLI' and read_ar = 'X'
 and read_as is initial and lr_files[] is initial.
 if lt_arch_obj[] is initial.
 lt_arch_obj-object = 'PCA_OBJECT'. append lt_arch_obj.
 lt_arch_obj-object = 'EC_PCA_ITM'. append lt_arch_obj.
 endif.
 call function 'KARL_DATA_INPUT_SELECT'
 exporting
 i_db_and_arc = lc_set
 i_infosys_possible = lc_set
 i_object_fixed = 'V'
 i_documentation = 'KARL_DATA_INPUT_SEL_KE5YZ'
 i_report = lc_report
 i_reporttype = lc_reporttype
 tables
 t_objects = lt_arch_obj
 t_arch_sel = lr_files
 changing
 c_xusedb = read_db
 c_xusear = read_ar
 c_archobj = arc_obj
 c_infosys = read_as.
endif.
START-OF-SELECTION **************************************************
start-of-selection.
Default-Werte löschen, falls Aufruf über Recherche
oder Report-Writer erfolgt ist
if no_rrint is initial and ld_no_rrint is initial. "note 490484
 if rw_subrc eq 0 or re_subrc eq 0.
 refresh: rldnr, rrcty, rvers, kokrs, bukrs, poper, ryear,
 racct, prctr, pprctr, drcrk, activ, rhoart, rfarea,
 versa, afabe, eprctr,
 v_racct, v_prctr, v_pprctr.
 clear: rldnr, rrcty, rvers, kokrs, bukrs, poper, ryear,
 racct, prctr, pprctr, drcrk, activ, rhoart, rfarea,
 versa, afabe, eprctr,
 v_racct, v_prctr, v_pprctr.
 endif.
Parameter einlesen über Report-Writer-Schnittstelle *
 if rw_subrc eq 0.
 perform rw_get_parameters.
oder Parameter einlesen über Recherche-Schnittstelle *
 elseif re_subrc eq 0.
 perform re_get_parameters.
 endif.
endif.
if read_db = 'X'. " read from DB (archiv)
Bewegungsdaten einlesen und puffern...................................
 call function 'SAPGUI_PROGRESS_INDICATOR'
 exporting
 text = 'Einzelposten selektieren'(p10).
Use dirty trick to mislead DB-optimizer
 call function 'DB_DO_NOT_USE_CLIENT_INDEX'
 exporting
 value = sy-mandt
 tables
 mandttab = rclnt.
 select (tab_fields) from glpca
 client specified
 package size packsize
 APPENDING CORRESPONDING FIELDS OF TABLE i_glpcaO
 into corresponding fields of table i_glpca
 where rldnr in rldnr
 and rrcty in rrcty
 and rvers in rvers
 and kokrs in kokrs
 and rbukrs in bukrs
 and ryear in ryear
 and rassc in rassc
 and hrkft in hrkft "note 550972
 and sbukrs in sbukrs "note 550972
 and shoart in shoart "note 550972
 and sfarea in sfarea "note 550972
 and racct in racct
 and rprctr in prctr
 and sprctr in pprctr
 and poper in poper
 and drcrk in drcrk
 and activ in activ
 and rhoart in rhoart
 and rfarea in rfarea
 and versa in versa
 and eprctr in eprctr
 and afabe in afabe
 and rmvct in rmvct
 and docct in docct
 and docnr in docnr
 and stagr in stagr
 and rtcur in rtcur
 and runit in runit
 and refdocct in refdocct
 and refdocnr in refdocnr
 and werks in werks
 and rep_matnr in repmatnr "RDIP40K020663
 and rscope in rscope "RDIP40K020663
 and rclnt in rclnt. "dirty trick to mislead DB-optimizer
 if sy-dbcnt > 1.
 text1 = sy-dbcnt.
 condense text1.
 concatenate text1 text-m01 into text2 separated by space.
 call function 'SAPGUI_PROGRESS_INDICATOR'
 exporting
 text = text2. " ... Datensätze gelesen
 endif.
 endselect.
Entfernt nicht zugehörige Einträge....................................
 loop at i_glpca where ( not rprctr in v_prctr )
 or ( not sprctr in v_pprctr )
 or ( not racct in v_racct ).
 delete i_glpca.
 endloop.
endif.
*archiv
if read_ar = 'X' and not
 ( read_as is initial and lr_files[] is initial ).
 call function 'SAPGUI_PROGRESS_INDICATOR'
 exporting
 text = 'Lesen im Archiv'(p12).
 define fill_lt_selections.
 if not &2[] is initial.
 clear ls_selections.
 move &1 to ls_selections-fieldname.
 loop at &2.
 clear ls_selopt.
 move-corresponding &2 to ls_selopt.
 append ls_selopt to ls_selections-selopt_t.
 endloop.
 append ls_selections to lt_selections.
 endif.
 end-of-definition.
 fill_lt_selections 'RLDNR' rldnr.
 fill_lt_selections 'RRCTY' rrcty.
 fill_lt_selections 'RVERS' rvers.
 fill_lt_selections 'KOKRS' kokrs.
 fill_lt_selections 'RBUKRS' bukrs.
 fill_lt_selections 'POPER' poper.
 fill_lt_selections 'RYEAR' ryear.
 fill_lt_selections 'RPRCTR' prctr.
 fill_lt_selections 'SPRCTR' pprctr.
 fill_lt_selections 'RACCT' racct.
 fill_lt_selections 'DRCRK' drcrk.
 fill_lt_selections 'ACTIV' activ.
 fill_lt_selections 'RHOART' rhoart.
 fill_lt_selections 'RFAREA' rfarea. "note 401961
 fill_lt_selections 'STAGR' stagr.
 fill_lt_selections 'RTCUR' rtcur.
 fill_lt_selections 'RUNIT' runit.
 fill_lt_selections 'VERSA' versa.
 fill_lt_selections 'EPRCTR' eprctr.
 fill_lt_selections 'AFABE' afabe.
 fill_lt_selections 'RMVCT' rmvct.
 fill_lt_selections 'DOCCT' docct.
 fill_lt_selections 'DOCNR' docnr.
 fill_lt_selections 'REFDOCCT' refdocct.
 fill_lt_selections 'REFDOCNR' refdocnr.
 fill_lt_selections 'WERKS' werks.
 fill_lt_selections 'REP_MATNR' repmatnr.
 fill_lt_selections 'RSCOPE' rscope.
 fill_lt_selections 'HRKFT' hrkft. "note 550972
 fill_lt_selections 'SBUKRS' sbukrs. "note 550972
 fill_lt_selections 'SHOART' shoart. "note 550972
 fill_lt_selections 'SFAREA' sfarea. "note 550972
 call function 'EC_PCA_SELECT_FROM_ARCHIVE'
 exporting
 i_selections = lt_selections[]
 i_files_sequential_read = lr_files[]
 importing
 e_glpca = lt_glpca_archiv[]
 exceptions
 no_infostruc_found = 1.
 if sy-subrc = 1.
 message id sy-msgid type 'I' number sy-msgno
 with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 endif.
 clear i_glpca.
 loop at lt_glpca_archiv assigning to i_glpca.
 append i_glpca.
 endloop.
endif.
if i_glpca[] is initial. "Info,nichts gefunden
 message s000.
 exit.
endif.
get texts for accounts ...............................................
sort i_glpca by kokrs racct.
loop at i_glpca assigning -racct_ktext = ls_rpcak-ktext.
endloop.
Liste mit Einzelposten geeignet sortieren.............................
call function 'SAPGUI_PROGRESS_INDICATOR'
 exporting
 text = 'Einzelposten sortieren'(p30).
if show_ref is initial.
 sort i_glpca by rldnr ryear rbukrs rrcty rvers
 docct docnr docln.
else.
sort i_glpca by rldnr kokrs ryear rbukrs rrcty rvers poper
 refdocct refdocnr refdocln.
endif.
Berechtigungsprüfung und gemerkte Belege aufbereiten .................
call function 'SAPGUI_PROGRESS_INDICATOR'
 exporting
 text = 'Berechtigungsprüfungen'(p40).
clear: cnt_rldnr, cnt_kokrs, cnt_ryear, cnt_rvers, cnt_bukrs.
loop at i_glpca assigning .
Berechtigungscheck
 perform check_repo_authority changing authorised.
 if authorised is initial.
 delete i_glpca.
 s_message = 'X'.
 zählen der Sätze ohne Berechtigung
 auth_dbcount = auth_dbcount + 1.
 else. "Weitere Bearbeitung nur für berechtigte Belege...
 Zusätzlich merken der Anzahl der Ausprägungen
 bestimmter Dimensionen
 on change of -rbukrs
 ct = '10'
 importing
 currency = hsl_curr.
 endon.
 externe Immobilienbezeichnung "ww/kb
 on change of i_glpca-imkey.
 if ( not -dabrz
 I_length = 20
 importing
 e_empge = -konty.
 endif.
 CONCATENATE I_GLPCA-KONTY I_GLPCA-EMPGE INTO I_GLPCA-IMBEZ.
 endif.
 endon.
 on change of i_glpca-dabrz.
 call function 'REMD_IMKEY_TO_EMPGE'
 exporting
 i_imkey = i_glpca-imkey
 i_dabrz = i_glpca-dabrz
 i_length = 20
 importing
 e_empge = i_glpca-empge
 e_konty = i_glpca-konty.
 CONCATENATE I_GLPCA-KONTY I_GLPCA-EMPGE INTO I_GLPCA-IMBEZ.
 endon.
 Konvertierungsproblem mit PSP-Nummer bereinigen
 if not -psppp.
 endif.
 endif.
 Währungen in Hilfsfeldern speichern
 if -ksl_curr = ksl_curr.
 endif.
 modify i_glpca.
 endif.
endloop.
Nachricht, wenn nicht alle Einzelposten angezeigt werden.
if not s_message is initial.
 message s407(km) with auth_dbcount.
endif.
EP ausgeben...........................................................
call function 'SAPGUI_PROGRESS_INDICATOR'
 exporting
 text = 'Einzelposten ausgeben'(p50).
t_layout-detail_initial_lines = 'X'.
t_layout-detail_popup = 'X'.
t_layout-f2code = 'PIC1'. "MICP40K039857
t_layout-get_selinfos = 'X'.
t_layout-group_change_edit = 'X'. "note 576149
perform fill_listheader.
perform fieldcat_fill.
perform spec_groups_fill.
perform events_fill. "MICP40K039857
">>MICP40K039857
call function 'K_KKB_LIST_DISPLAY'
 exporting
 i_callback_program = 'RCOPCA02'
 i_callback_user_command = 'USR_CMD'
 i_callback_top_of_page = 'TOP_OF_PAGE'
 I_CALLBACK_END_OF_PAGE =
 I_CALLBACK_END_OF_LIST =
 i_callback_pf_status_set = 'SET_PF_STATUS'
 I_CALLBACK_LAYOUT_SAVE =
 I_CALLBACK_FIELDCAT_SAVE =
 i_tabname = 'I_GLPCA'
 is_layout = t_layout
 it_fieldcat = t_fieldcat
 I_FCTYPE = 'R'
 IT_EXCLUDING =
 it_special_groups = t_spec_groups
 IT_SORT =
 IS_SEL_HIDE =
 I_SCREEN_START_COLUMN = 0
 I_SCREEN_START_LINE = 0
 I_SCREEN_END_COLUMN = 0
 I_SCREEN_END_LINE = 0
 tables
 t_outtab = i_glpca
 exceptions
 others = 1.
loop at i_glpca.
select single vbeln auart augru
into (l_vbeln, l_auart, l_augru)
from vbak where vbeln = i_glpca-aubel.
if sy-subrc = 0.
move l_auart to i_glpca-v_auart.
move l_augru to i_glpca-v_augru.
modify i_glpca.
endif.
endloop.
call function 'REUSE_ALV_GRID_DISPLAY'
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 exporting
 I_INTERFACE_CHECK = ' '
 i_callback_program = 'ZRCOPCA02'
 i_callback_pf_status_set = 'SET_PF_STATUS'
 i_callback_user_command = 'USR_CMD'
 i_structure_name = 'I_GLPCA'
 is_layout = t_layout
 it_fieldcat = t_fieldcat
 IT_EXCLUDING =
 it_special_groups = t_spec_groups
 IT_SORT =
 IT_FILTER =
 IS_SEL_HIDE =
 i_default = 'X'
 i_save = g_save
 is_variant = g_variant
 it_events = t_events
 IT_EVENT_EXIT =
 IS_PRINT =
 I_SCREEN_START_COLUMN = 0
 I_SCREEN_START_LINE = 0
 I_SCREEN_END_COLUMN = 0
 I_SCREEN_END_LINE = 0
 IMPORTING
 E_EXIT_CAUSED_BY_CALLER =
 ES_EXIT_CAUSED_BY_USER =
 tables
 t_outtab = i_glpca
 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.
"<<MICP40K039857
clear i_glpca.
*& Form CHECK_REPO_AUTHORITY
Check only new auth-object K_PCA *
--> p1 text
<-- p2 text
form check_repo_authority changing authorized like authorised.
fill structure for userexit in K_PCA_RESP_AUTHORITY_CHECK
data: auth like pca_i_auth. "46a MIC check K_PCA and G_GLTP
auth-bukrs = -rrcty.
clear authorized.
check PrCtr/account/activity
call function 'K_PCA_RESP_AUTHORITY_CHECK'
 exporting
 i_kokrs = -racct
 i_vorgn = 'REPP'
 i_actvt = '28'
 i_auth = auth
 i_no_dialog_message = 'X'
 exceptions
 no_authority = 1
 data_missing = 2
 others = 3.
if sy-subrc = 0. "ok
check ledger/version/record type
 call function 'PCA_G_GLTP_AUTH_CHECK'
 exporting
 rldnr = -rrcty
 exceptions
 no_authorisation = 1
 others = 2.
 if sy-subrc = 0. "ok, User is authorized
 authorized = 'X'.
 endif.
endif.
endform. " CHECK_REPO_AUTHORITY
*& Form INIT_VARS
 Initialisieren diverser Hilfsvariablen und -tabellen *
form init_vars.
data begin of nametab occurs 80. "Tabelle mit Feldern aus der RPCA2
 include structure dntab.
data end of nametab.
select single * from t000
 client specified
 where mandt = sy-mandt.
refresh nametab.
call function 'NAMETAB_GET'
 exporting
 only = 'T'
 tabname = 'RPCA2'
 tables
 nametab = nametab.
Übernehmen der Feldnamen, die auch in der GLPCA
vorkommen.
loop at nametab where fieldname ne 'KSL_CURR'
 and fieldname ne 'HSL_CURR'
 and fieldname ne 'EMPGE' "ww/kb
 and fieldname ne 'KONTY'. "ww/kb
 move nametab-fieldname to tab_fields-name.
 append tab_fields.
endloop.
fill Fields of receiver for BBS "MIC46C
call function 'RSTI_REPORT_FIELDS_FIND'
 exporting
 e_repid = 'RCOPCA02'
 e_type = 'R'
 tables
 it_fields = bbs_fieldtab.
correct fieldnames
read table bbs_fieldtab with key rfield = 'PRCTR'.
if sy-subrc = 0.
 bbs_fieldtab-rfield = 'RPRCTR'.
 modify bbs_fieldtab index sy-tabix.
endif.
read table bbs_fieldtab with key rfield = 'PPRCTR'.
if sy-subrc = 0.
 bbs_fieldtab-rfield = 'SPRCTR'.
 modify bbs_fieldtab index sy-tabix.
endif.
read table bbs_fieldtab with key rfield = 'BUKRS'.
if sy-subrc = 0.
 bbs_fieldtab-rfield = 'RBUKRS'.
 modify bbs_fieldtab index sy-tabix.
endif.
Unicode
class cl_abap_char_utilities definition load.
clear hex00 with cl_abap_char_utilities=>minchar.
clear hexff with cl_abap_char_utilities=>maxchar.
endform. " INIT_VARS
 FORM FILL_LISTHEADER *
 List-Header in Abhängigkeit der selektierten Daten *
form fill_listheader.
read table i_glpca index 1.
if sy-subrc ne 0.
 exit.
endif.
t_listheader-typ = 'S'.
t_listheader-key = 'Ledger '(h01).
if cnt_rldnr <= 1.
 t_listheader-info = i_glpca-rldnr.
else.
 t_listheader-info = '*'.
endif.
append t_listheader.
t_listheader-typ = 'S'.
t_listheader-key = 'Kostenrechnungskreis'(h02).
if cnt_kokrs <= 1.
 t_listheader-info = i_glpca-kokrs.
else.
 t_listheader-info = '*'.
endif.
append t_listheader.
t_listheader-typ = 'S'.
t_listheader-key = 'Buchungskreis '(h03).
if cnt_bukrs <= 1.
 t_listheader-info = i_glpca-rbukrs.
else.
 t_listheader-info = '*'.
endif.
append t_listheader.
t_listheader-typ = 'S'.
t_listheader-key = 'Buchungsperiode '(h04).
if cnt_poper <= 1.
 t_listheader-info = i_glpca-poper.
else.
 t_listheader-info = '*'.
endif.
append t_listheader.
if cnt_ryear <= 1.
 t_listheader-typ = 'S'.
 t_listheader-key = 'Geschäftsjahr '(h05).
 t_listheader-info = i_glpca-ryear.
 append t_listheader.
endif.
t_listheader-typ = 'S'.
t_listheader-key = 'Version '(h06).
if cnt_rvers <= 1.
 t_listheader-info = i_glpca-rvers.
else.
 t_listheader-info = '*'.
endif.
append t_listheader.
endform. "fill_listheader
*& Form FIELDCAT_FILL
*& Aufbau des Feldkataloges für den K_KKB_LIST_DISPLAY, *
*& bzw REUSE_ALV_LIST_DISPLAY, *
*& weitere Infos enthält die FktBaustein-Doku *
form fieldcat_fill.
data: i type i value 0.
refresh t_fieldcat.
Ledger
if cnt_rldnr > 1.
add 1 to i.
clear afield.
afield-col_pos = i.
afield-fieldname = 'RLDNR'.
afield-no_sum = 'X'.
afield-no_out = 'X'.
afield-key = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-sp_group = '1'.
append afield to t_fieldcat.
endif.
Satzart
add 1 to i.
clear afield.
afield-col_pos = i.
afield-fieldname = 'RRCTY'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '1'.
append afield to t_fieldcat.
Version
if cnt_rvers > 1.
add 1 to i.
clear afield.
afield-col_pos = i.
afield-fieldname = 'RVERS'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '1'.
append afield to t_fieldcat.
endif.
Periode
if cnt_poper > 1.
add 1 to i.
clear afield.
afield-col_pos = i.
afield-fieldname = 'POPER'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '1'.
append afield to t_fieldcat.
endif.
Geschäftsjahr
if cnt_ryear > 1.
add 1 to i.
clear afield.
afield-col_pos = i.
afield-fieldname = 'RYEAR'.
afield-no_sum = 'X'.
afield-ref_tabname = 'GLPCA'.
afield-no_out = 'X'.
afield-sp_group = '1'.
append afield to t_fieldcat.
endif.
Referenzbelegtyp
add 1 to i.
clear afield.
afield-col_pos = i.
afield-fieldname = 'REFDOCCT'.
afield-ref_tabname = 'GLPCA'.
afield-key_sel = 'X'.
afield-no_sum = 'X'.
afield-sp_group = '2'.
afield-seltext_s = 'Typ'(t01).
afield-seltext_m = 'Belegtyp'(t02).
afield-seltext_l = 'Ref.Belegtyp'(t03).
afield-outputlen = 3. "Platz für die Sterne der Zwischensummen
if not show_ref is initial.
afield-key = 'X'.
else.
 afield-no_out = 'X'.
endif.
append afield to t_fieldcat.
Referenzbelegnummer
add 1 to i.
clear afield.
afield-col_pos = i.
afield-fieldname = 'REFDOCNR'.
afield-ref_tabname = 'GLPCA'.
afield-key_sel = 'X'.
afield-no_sum = 'X'.
afield-sp_group = '2'.
afield-seltext_s = 'Refbeleg'(t04).
afield-seltext_m = 'Refbelegnr'(t05).
afield-seltext_l = 'Ref.Belegnummer'(t06).
if not show_ref is initial.
afield-key = 'X'.
else.
 afield-no_out = 'X'.
endif.
append

Hi Prabhu,
You are right, problem is with Field Catalog...
When I use FM 'REUSE_ALV_GRID_DISPLAY' it is dumping...
When i tried with FM 'REUSE_ALV_LIST_DISPLAY' it is working perfectly....
how can i use FM 'REUSE_ALV_GRID_DISPLAY' without dumping????
do i need to pass any thing in FM????
Here is the dump:
Runtime Errors MESSAGE_TYPE_X
 Occurred on 12/21/2006 at 01:03:24
The current application triggered a termination with a short dump.
 What happened?
The current application program detected a situation which really
should not occur. Therefore, a termination with a short dump was
triggered on purpose by the key word MESSAGE (type X).
 Error analysis
Short text of error message:
Technical information about the message:
Message classe...... "0K "
Number.............. 000
User, transaction...
Language key........ "E"
Transaction......... "SE38 "
Program............. "SAPLSLVC "
Screen.............. "SAPLSLVC_FULLSCREEN 0500"
Screen line......... 3
Information on where termination occurred
The termination occurred in the ABAP program "SAPLSLVC " in "LINE_OUT_NEW_2".
The main program was "ZRCOPCA02 ".
The termination occurred in line 918 of the source code of the (Include)
program "LSLVCF01 "
of the source code of program "LSLVCF01 " (when calling the editor 9180).
 Source code extract
008880 gs_roid-row_id = rs_row-index * -1.
008890 endif.
008900 gs_roid-sub_row_id = rs_row-rowtype+7(10).
008910 gs_poid-row_id = gs_roid-row_id.
008920 gs_poid-sub_row_id = gs_roid-sub_row_id.
008930 gs_poid-rowtype = rs_row-rowtype.
008940 gs_poid-index = rs_row-index.
008950 insert gs_poid into table rt_poid.
008960 endif.
008970 append gs_roid to rt_roid.
008980
008990 loop at rt_fieldcat assigning <ls_fieldcat> where tech ne 'X' and
009000 no_out ne 'X'.
009010
009020 if gflg_invisible = 'X'.
009030 if <ls_fieldcat>-do_sum is initial.
009040 clear gflg_invisible.
009050 continue.
009060 else.
009070 clear g_col_counter.
009080 clear gflg_invisible.
009090 endif.
009100 endif.
009110
009120 clear gs_lvc_data.
009130 clear g_style.
009140
009150 assign component
009160 <ls_fieldcat>-fieldname of structure rt_data to <g_field>.
009170 if sy-subrc ne 0.
 > message x000(0k).
009190 endif.
009200
009210 g_col_counter = g_col_counter + 1.
009220
009230 gs_lvc_data-row_pos = r_row_counter.
009240 gs_lvc_data-col_pos = g_col_counter.
009250 gs_lvc_data-row_id = gs_roid-row_id.
009260 gs_lvc_data-sub_row_id = gs_roid-sub_row_id.
009270
009280 * Endtotal and average
009290 if rs_row-rowtype(1) ca 'T' and <ls_fieldcat>-do_sum = 'C'.
009300 * save the actual grouplevel information
009310 gs_grouplevels = rs_grouplevels.
009320 clear g_lines.
009330
009340 * get number of lines of the collect table
009350 describe table rt_data lines g_lines.
009360 * if there is only one line or the field has no references so
009370 * that only the first line has to be considered
Thanks,
fractal
null

Payslip - problems in the layout

Similar Messages

Maybe you are looking for