Column selected at run time in ALV!!

Hi,
IS ther any way to know how many fields have been hidden on the output list of ALV...
any indicator that gets set once we hide some field....
as i need to send only those columns which are selected as layout from the output list...
Regards
Gunjan

hi,
yes we can the know .
after building field catalog
call this FM
PERFORM reuse_alv_grid_layout_info_get USING g_fcat
g_layout
g_variant.
loop at fieldcatalog and check the no_out field(of fieldcatalog).
if it is 'X' then it is in hidden or if it is space then it is in display .
Reward if helpful.

Similar Messages

How to pass column name at run time in function.

how to pass column name at run time in function as parameter.
thank in advance
pramod patel

Hello,
Using dynamic sql you can pass column name to function. well I am not getting what you really want to do ? Please write in more detail. By the way I am providing one example here. see it uses dynamic sql.
Create or replace function fun_updtest (p_columnname_varchar2 in varchar2,
p_value_number in number)
return number is
v_stmt varchar2(500);
begin
v_stmt := 'update emp
set '||p_columnname_varchar2||' = '||to_char(p_value_number)||'
where empno = 7369';
execute immediate v_stmt;
return 0;
commit;
end;
call to this function can be like this..
declare
v_number number;
begin
v_number := fun_updtest('SAL',5000);
end;
Adinath Kamode

Adding new rows at run time in alv oops

HI ALL,
I have a created an editable alv report in oops. Now i have to add a new row having similar values as the previous row at run time when a custom button is clicked in the output and after entering some values in the new row and pressing the database must be updated and also the internal table at run time itself.
for example let us suppose i have the following row in the alv output.
MATNR                          DESCRIPTION                             NAME                             DATE
001                                 TEST                                        MATRIKS                      10092001
NOW if we click the custom button added on the alv toolbar, it should a new row at the run time similar to previous row as shown below
MATNR                          DESCRIPTION                             NAME                             DATE
001                                 TEST                                        MATRIKS                      10092001
001                                 TEST                                        MATRIKS                      10092001 -> NEW ROW.
can we do it in alv oops? pls let me know the soln or any helpful links
thanks
john

Hi John,
   I dont think, you can find any method for that,
one way what I can suggest is
Get the selected row index.
Insert the blank row in your internal table at this index
Refresh the container.
Hope this will help.
Thanks,
Anmol.

How to change field text at run time in alv

Hi all,
Following are the columns need to displayed in an alv. year shd be the year which was entered in the selection screen.
if the year entered was between 2001 and 2003 then the o/p(for year) shd be as follows
Division/Name     Position     Management Level     year 2001     Year 2002      Year 2003
How can i achieve this. i have tried as follows:
data : lv_yr1(4),
       lv_yr2(4),
       lv_yr3(4).
clear: lv_yr1,
         lv_yr2,
         lv_yr3.
lv_yr1 = s_date-low(4).
lv_yr2 = s_date-high(4) - 1.
lv_yr3 = s_date-high(4).
perform fill_fieldcats using:
'PERNR'         'GT_FINAL' '1' 'Employee No.'            ' '       ' ',
'RTEXT1'        'GT_FINAL' '5' 'Year' lv_yr1                ' ',
form fill_fieldcats using %fname
                          %tabname
                          %col_pos
                          %text_l
                          %text_m
                          %emphasize.
gs_fieldcat-fieldname = %fname.
gs_fieldcat-tabname    = %tabname.
gs_fieldcat-col_pos    = %col_pos.
gs_fieldcat-seltext_l = %text_l.
gs_fieldcat-seltext_s = %text_m.
gs_fieldcat-emphasize = %emphasize.
append gs_fieldcat to gt_fieldcat.
clear gs_fieldcat.
but the o/p i'm getting is only year. where shd i pass the value of year in the fieldcatalog?

Hi all,
My self resolved the issue.

Dynamic column selection while running report

Can any one explain how to get the following functionality in report:
I have a cube with following fields:(with depriciaated amounts)
Plant Mat# Fiscper       Jan   Feb March April May   June   July   Aug   Sep   Oct   Nov   Dec
==== ====    =====      ==== ==== ===== ==== ==== ===== ==== ==== ===== ==== ==== ====
P1      M1     03/2009    $100    $90   $80
P1      M1     04/2009    $100    $90   $80     $70
P2      M2     04/2009     $10     $9      $8
P2      M2     04/2009     $10     $9      $8      $7
When I run the report with Fiscper as selection, ie 04/2009, I shoud get the report displayed only April column
Report out put: (Only April column should be displayed)
Plant Mat# Fiscper       April
==== ====    =====       ====
P1      M1     04/2009    $70
P2      M2     04/2009     $7
When I run the report with Fiscper as selection, ie 03/2009, I shoud get the report displayed only March column
Report out put: (Only March column should be displayed)
Plant Mat# Fiscper       March
==== ====    =====       ====
P1      M1     04/2009    $80
P2      M2     04/2009     $8
Can any explain how to desing this in query designer?
Thanks,
PV

create new selection
drag and drop the kf
drag and drop calmonth
create formula variable for calmonth using type as "customer exit"
now based on the fiscperiod you can fill calmonth in customer exit which will give you desired output
you can use text variable if you want the heading for the KF to be dynamic.

Changing a cloumn value in run time in ALV

Hi All,
i have a requirement to change a value of a cloumn inside an ALV in runtime. is this possible,. if so how. thanks for help to be done.
Thanks,
selvakumar M.

>
selvakumar mohan wrote:
> Hi,
> My requirement is not to change the entire node. i need to change only one field in the particular node. Thank for the help done.
>
> Thanks,
> selvakumar M.
Change at runtime, means you want one cell to be opened in edit mode or change the value of a particular element's attribute through coding?
Abhi

Run time column attach to apex report

Hello everyone,
can it be possible to make a function in a apex which will return a column value in report, like wise we use in report builder. I know we can do this directly in report query... however i want to make a some process may be, through which i can get a column value.
My requirement is.... i am having a PO report where columns are Header_id, Segment1, Vendor_id, Vendor_site n Amount.
I can have every column data from PO_header_all except amount for which i need to use.. PO_lines_all whose would be depend on header_id.
Now.. i can do this directly in query.. but here i don't want to.. use a po_lines_all in report query. I want to call the Amount column attach at run time to report.
Pls tell me how can i do this??
I don't know whether it is possible or not... if it is then how can i do this.
Regards,
UKJ

Hi,
Do you mean something like:
SELECT H.HEADER_ID, H.SEGMENT1, H.VENDOR_ID, H.VENDOR_SITE, SUM(A.AMOUNT) TOTAL_AMOUNT
FROM PO_HEADER_ALL H
LEFT OUTER JOIN PO_LINES_ALL A ON H.HEADER_ID = A.HEADER_ID
GROUP BY H.HEADER_ID, H.SEGMENT1, H.VENDOR_ID, H.VENDOR_SITEThis will return the header_id, segment1, vendor_id and vendor_site values from po_header_all and a total of amount from po_lines_all
Andy

Add Jcombo in Jtable at run time

hello,
i want to add jcombo box in jtable every cell & i also add column in run time.proble is when i add new column that time last column combo is add but prievious column its remove automatic.
so give me some code & where i can get see good example for add combo in jtable.
thanks

hi j-rg,
It was really appreaciating to c ur reply, regarding the specific problem.Actually wht i was facing the peoblem, Am adding a colomn in the run time and in that column am adding a combo in each cells of that column.AS i was expecting am able to add a new colum in th erum time with the combo in each cells of that column,now when am adding another column in the run time am getting all the required things,but the problem is " in the previous cloumn am not getting that combo"(only the combo is been added in the last column).
What am expecting is the combo should be there in each cell of the column(all columns)
Am also sending the code wht am using, plz have a look below,
df1.addColumn(result);
TableColumn aa= tb1.getColumnModel().getColumn(tb1.getColumnCount()-1);
aa.setCellEditor(new DefaultCellEditor(comboBox));
wating for ur reply
thanks and regards
sandeep

Change inputs from single ended to differential at run time

I have a software package written that reads in analog values using a 6014 DAQ board. I want to allow it so that the user can select (at run time) whether the inputs are single ended or differential. This would be stored in a database and saved.
I am reading in the analog values using a CWAIPoint. I don't see anywhere where you can specify the Input Mode for a CWAIPoint at run time?!
Am I missing something?
Any help would be appreciated!
Thanks
CM

Sorry, just found the answer. First time I've answered my own question.
CWAIPoint1.Channels(X).InputMode =
Where X is the channel string. Intellisense will give you a list of input modes if this is typed in.

I can't view the run time browser in LR11.5

I'm using LR11.5 and I found there is no "During Replay" section in Tools, I wanna see the broswer during replay, but I can't found the configuration. but in LR11.52 and the previous version of LR, I can found this setting. could you help?
In LR11.52, the location is:
Tools > Options > Scripting > Replay > During Replay -> Select Show Run Time Viewer during Replay Check box, select Auto Arrange window check box
Thanks in advance.

Welcome to the HP Support Community!
TiffanyLiu wrote:
I'm using LR11.5 and I found there is no "During Replay" section in Tools, I wanna see the broswer during replay, but I can't found the configuration. but in LR11.52 and the previous version of LR, I can found this setting. could you help?
In LR11.52, the location is:
Tools > Options > Scripting > Replay > During Replay -> Select Show Run Time Viewer during Replay Check box, select Auto Arrange window check box
Thanks in advance.
Could you please explain what "LR" is?
WyreNut
I am a Volunteer here, not employed by HP.
You too can become an HP Expert! Details HERE!
If my post has helped you, click the Kudos Thumbs up!
If it solved your issue, Click the "Accept as Solution" button so others can benefit from the question you asked!

Adding complex computed column at run-time fails in PB 12.6

I support a large 'vintage' application that was originally written in the late 90's, and has been migrated from version to version over the years. Currently I'm working to get it working in PB 12.6 Classic, build 3506, migrating it from PB 11.5
The first issue I've come across is that PFC treeviews are not working properly. After some debugging, I determined that the cause of the failure is the PFC code's creation of 'key' column in the datawindows being used to populate each level.
In the pfc_u_tv.of_createkey function, it looks at the linkages between the levels of a treeviews data, and then crafts an expression, and then uses that to create a computed column, which is subsequently used to uniquely identify the data.
The expression is a series of string concatenations, such as this:
expression='String(ctg_cd) + "#$%" + String(app_cd) + "#$%" + String(app_cd) + "#$%" + String(win_id) + "#$%" + String(ctg_cd) + "#$%"'
This expression is then used in a modify statement to create the new compute key column:
ls_rc = ads_obj.Modify("create compute(band=detail x='0' y='0' " + &
"height='0' width='0' name=pfc_tvi_key " + ls_Exp + ")")
In earlier versions, this works, and when you do a getitemstring afterward you get a long concatenated value that PFC uses to uniquely identify treeview items.
Such as 'a/r#$%plcy#$%plcy#$%w_m_plcy_fncl_tran#$%a/r#$%'
However, in PB 12.6, only the first portion of the expression is processed. There is no error returned from the Modify function, and the column is created, but the expression is only evaluating one part of the expression. In this partiular case, it results in
'plcy'
I just noticed that this isn't the *first* item in the set of concatenated columns and string literals, which is interesting. In any case, when the computed key values are not correct, the whole method PFC is using to populate and run the treeview falls apart, and you get all children under each parent, and selections on the treeview object do not work properly because the key column values are not unique.
I can copy the expression value from a debugging session, and use that to create a computed column at design time, pasting the expression in, and naming it the same as the created column (pfv_tvi_key), and this then allows the treeview to work properly. However, this is a very cumbersome and problematic workaround. The application has a lot of treeviews, with a very large number of datawindows operating as all the different types of items on different levels of different trees. I don't think it's a practical workaround, and future maintenance would be very difficult.
bu the workaround still demonstrates it is not an issue with the syntax of the compute expression, just an issue with the way it is handled by PowerBuilder when a column is created at run time,vs. at design time.
Has anyone else encountered this issue? I would think there are a fair number of older apps still around that are using PFC treeviews.
My next step will be to install PB 12.6 build 4011 and cross my fingers. Other than that, perhaps try 12.5?

Updating the PFC layers has started to lead down a rabbit hole of hundreds and hundreds of errors.
Granted, many of these are probably rooted in a few ancestor issues.
But I'm not sure this will lead to a solution.
The problem lies in using a modify statement to create a computed column at run time containing an expression with multiple concatenated values.
If I look at the pfc_u_tv.of_createkey function from the newer PFC version, I see the same code there:
ls_rc = ads_obj.Modify("create compute(band=detail x='0' y='0' " + &
"height='0' width='0' name=pfc_tvi_key " + ls_Exp + ")")
And the same code above it which creates the expression used in the modify.
So after doing all the patching for the new PFC version, I somehow suspect I'll still be facing the same datastore.modify problem.
Not to say that isn't a good thing to do, just not sure it addresses the root of the problem.

Run-time error in alv

Hi guys,
I am executing an alv grid report.i m getting a run time error and i m gettig a dump.In the below i pasted the error.any suggestions where i m going wrong in the code.
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).
Information on where terminated?
Termination occurred in the ABAP program "SAPLSLVC" - in "FILL_DATA_TABLE"
    The main program was "ZRPP1353 ".
In the source code you have the termination point in line 2735
    of the (Include) program "LSLVCF36".
Source code where the error occured?
Column per Fieldcat Entry
        ls_lvc_data-value = space.
        clear ls_lvc_data-style.
        loop at it_fcat_local assigning <ls_fcat>
                where tech ne 'X' and no_out ne 'X'.
          if l_invisible eq 'X'.
            clear l_invisible.
            if <ls_fcat>-do_sum is initial.
              continue.
            else.
              clear ls_lvc_data-col_pos.
            endif.
          endif.
add 1 to ls_lvc_data-col_pos.
assign component <ls_fcat>-fieldname
                           of structure <ls_data> to <l_field_value>.
          if sy-subrc ne 0.
            message x000(0k).
          endif.

Hi Dinesh,
This is because of some problem with the field catalog you have defined. Please give the field catalog so that we can identify the problem easily.

ALV issue: when save list using Local File command will get run time error!

help!!!!
report list using ALV method when to save this list using Local File.
i will get GETWA_NOT_ASSIGNED run time error information.
how resolve it?
source code :
REPORT   ZIFT0103.
TABLES : MARA,MARC,CDHDR,CDPOS,MAKT.
******DEVK909212****************
****利用工厂来区分不同的SERVER的FTP ADDRESS ,user ,PASSWORD
DATA: FTP_WERKS LIKE MARC-WERKS.
********定义一个RANGE用来抓取MARC的信息
RANGES:R_MATNR FOR MARA-MATNR OCCURS 0.
********定义一个INTERNAL TABLE 来抓取MARC 的信息
DATA:BEGIN OF IT_MARC OCCURS 0,
      MATNR LIKE MARC-MATNR,
      WERKS LIKE MARC-WERKS,
      USERNAME TYPE CDHDR-USERNAME,
     UDATE    TYPE CDHDR-UDATE,
     FLAG_UI TYPE C,
     END OF IT_MARC.
*******定义存放北京的数据的变量
DATA : BEGIN OF FTP_BEIJING OCCURS 0 ,
              MATNR(25) ,
              MATNR1(25) ,
              MAKTX(30) ,
       END OF FTP_BEIJING .
******定义福清的数据变量
DATA : BEGIN OF FTP_FUQING OCCURS 0 ,
              MATNR(25) ,
              MATNR1(25) ,
              MAKTX(30) ,
       END OF FTP_FUQING .
*******DEVK909212*****************
DATA : BEGIN OF FTP_ITEMDOC1 OCCURS 0 ,
              MATNR(25) ,
              MAKTX(30) ,
       END OF FTP_ITEMDOC1 .
DATA : BEGIN OF FTP_ITEMDOC OCCURS 0 ,
              MATNR(25) ,
              MATNR1(25) ,
              MAKTX(30) ,
       END OF FTP_ITEMDOC .
DATA: WA_ZMSGTA TYPE ZMSGTA ,
      l_ersda like MARA-ERSDA .
***********DEVK909553********************
****用来决定执行FTP还是显示LIST**********
DATA:g_tcode_flag.
***********DEVK909553********************
Error message process ******************************
DEFINE EXPLAIN_MSG.
   break soe_richard.
CALL FUNCTION 'BAPI_MESSAGE_GETDETAIL'
    EXPORTING
      ID                = &1   "SY-MSGID
      NUMBER            = &2   "SY-MSGNO
      LANGUAGE          = SY-LANGU
      TEXTFORMAT        = &3
      LINKPATTERN       =
      MESSAGE_V1        = &4                                "SY-MSGV1
      MESSAGE_V2        = &5                                "SY-MSGV2
      MESSAGE_V3        = &6                                "SY-MSGV3
      MESSAGE_V4        = &7                                "SY-MSGV4
    IMPORTING
      MESSAGE           = &8   "WA_ZMSGTA-MSE1
      RETURN            =
    TABLES
      TEXT              =
END-OF-DEFINITION.
DEFINE ERROR_MSG_UPDATA.
CALL FUNCTION 'ZINSERT_MSG' "IN UPDATE TASK
    EXPORTING
      XZMSGTA      = &1    "WA_ZMSGTA
    EXCEPTIONS
      UPDATE_ERROR = 1
      OTHERS       = 2.
END-OF-DEFINITION.
IF SY-TCODE = 'ZIFT103' .
g_tcode_flag = 'L'.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      PERCENTAGE = 0
      TEXT       = '请耐心等候,系统正在抓数据'.
ENDIF.
l_ersda = sy-datum - 1 . "取前一天产生的物料号码。
DATA:BEGIN OF it_change OCCURS 0,
     OBJECTID TYPE CDHDR-OBJECTID,
     USERNAME TYPE CDHDR-USERNAME,
     UDATE    TYPE CDHDR-UDATE,
     TABKEY   TYPE CDPOS-TABKEY,
     END OF it_change.
DATA:BEGIN OF it_cDhdr OCCURS 0,
     OBJECTID type CDHDR-OBJECTID,
     CHANGENR TYPE CDHDR-CHANGENR,
     USERNAME TYPE CDHDR-USERNAME,
     UDATE    TYPE CDHDR-UDATE,
     END OF it_cdhdr.
DATA:search_len TYPE I.
DATA:BEGIN of it_insert OCCURS 0,
     MATNR TYPE MARA-MATNR,
     WERKS TYPE MARC-WERKS,
     END OF it_insert.
DATA:BEGIN OF it_MAKT OCCURS 0,
     MATNR TYPE MAKT-MATNR,
     MAKTX TYPE MAKT-MAKTX,
     END OF it_makt.
DATA IT_MARA TYPE TABLE OF MARA WITH HEADER LINE.
DATA:BEGIN OF IT_OUT OCCURS 0,
     MATNR TYPE MARA-MATNR,
     WERKS TYPE MARC-WERKS,
     MTART TYPE MARA-MTART,
     MEINS TYPE MARA-MEINS,
     MATKL TYPE MARA-MATKL,
     MAKTX TYPE MAKT-MAKTX,
     PSTAT TYPE MARA-PSTAT,
     BRGEW TYPE MARA-BRGEW,
     NTGEW TYPE MARA-NTGEW,
     GEWEI TYPE MARA-GEWEI,
     FERTH TYPE MARA-FERTH,
     KZUMW TYPE MARA-KZUMW,
     ERNAM TYPE MARA-ERNAM,
     ERSDA TYPE MARA-ERSDA,
     END OF IT_OUT.
*-- DECLARE DATA FOR ALV
TYPE-POOLS: slis.
DATA : g_variant LIKE disvariant,
        g_save(1) TYPE c,
        g_exit(1) TYPE c,
        gx_variant LIKE disvariant.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE, "
      gt_events   TYPE slis_t_event,
      gt_list_top_of_page TYPE slis_t_listheader,
      gs_print TYPE slis_print_alv,
      gs_layout         TYPE slis_layout_alv .
******只能抓出系统有做更改的数据***************
******而第一次INSERT MARA的数据抓不出来********
START-OF-SELECTION.
SELECT AOBJECTID AUSERNAME AUDATE BTABKEY
INTO TABLE it_change
FROM ( CDPOS AS B INNER JOIN CDHDR AS A ON
     AOBJECTCLAS = BOBJECTCLAS AND
     AOBJECTID   = BOBJECTID   AND
     ACHANGENR   = BCHANGENR )
WHERE A~OBJECTCLAS = 'MATERIAL'
AND   A~UDATE = l_ersda
AND   B~TABNAME = 'MARC'
AND   B~CHNGIND = 'I'.
LOOP AT it_change.
   search_len = STRLEN( it_change-TABKEY ).
   search_len = search_len - 4.
   IF search_len > 0.
     IT_MARC-WERKS = it_change-TABKEY+search_len(4).
   ENDIF.
   IT_MARC-MATNR = it_change-objectid+0(18).
   IT_MARC-USERNAME = it_change-username.
   IT_MARC-UDATE    = It_change-udate.
   IT_MARC-FLAG_UI = 'U'.
   APPEND IT_MARC.
   CLEAR IT_MARC.
   CLEAR R_MATNR.
   R_MATNR-SIGN = 'I'.
   R_MATNR-OPTION = 'EQ'.
   R_MATNR-LOW = IT_MARC-MATNR.
   APPEND R_MATNR.
ENDLOOP.
****CDPOS is Cluster TABLE 所以没有办法用INNER JOIN******
SELECT OBJECTID CHANGENR USERNAME UDATE
INTO TABLE it_cdhdr
FROM CDHDR
WHERE OBJECTCLAS = 'MATERIAL'
AND   UDATE = l_ersda.
AND   TCODE = 'MM02'.
LOOP AT IT_cdhdr.
    SELECT * FROM CDPOS
    WHERE OBJECTCLAS = 'MATERIAL'
    AND   OBJECTID = IT_CDHDR-OBJECTID
    AND   CHANGENR = IT_CDHDR-CHANGENR
    AND   TABNAME   = 'MARC'
    AND   CHNGIND = 'I'.
      search_len = STRLEN( CDPOS-TABKEY ).
      search_len = search_len - 4.
      IF search_len > 0.
        IT_MARC-WERKS = CDPOS-TABKEY+search_len(4).
      ENDIF.
      IT_MARC-MATNR = IT_cdhdr-objectid+0(18).
      IT_MARC-USERNAME = IT_cdhdr-username.
      IT_MARC-UDATE    = IT_cdhdr-udate.
      IT_MARC-FLAG_UI = 'U'.
      APPEND IT_MARC.
     CLEAR IT_MARC.
      CLEAR R_MATNR.
      R_MATNR-SIGN = 'I'.
      R_MATNR-OPTION = 'EQ'.
      R_MATNR-LOW = IT_MARC-MATNR.
      APPEND R_MATNR.
      CLEAR IT_MARC.
    ENDSELECT.
ENDLOOP.
IF g_tcode_flag = 'L'.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        PERCENTAGE = 20
        TEXT       = '处理好当天CHANGE的数据'.
ENDIF.
*******抓当天做了INSERT的数据*************
*******不需要***********************
SELECT BMATNR BWERKS INTO TABLE IT_INSERT
FROM MARC AS B JOIN MARA AS A
ON   AMATNR = BMATNR
WHERE A~ERSDA = l_ersda.
LOOP AT IT_INSERT.
   IT_MARC-MATNR = IT_INSERT-MATNR.
   IT_MARC-WERKS = IT_INSERT-WERKS.
   IT_MARC-FLAG_UI = 'I'.
   APPEND IT_MARC.
   CLEAR IT_MARC.
   CLEAR R_MATNR.
   R_MATNR-SIGN = 'I'.
   R_MATNR-OPTION = 'EQ'.
   R_MATNR-LOW = IT_MARC-MATNR.
   APPEND R_MATNR.
ENDLOOP.
IF g_tcode_flag = 'L'.
   CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
     EXPORTING
       PERCENTAGE = 40
       TEXT       = '处理好当天INSERT的数据'.
ENDIF.
IF g_tcode_flag = 'L'.
    PERFORM get_MAKTX.
    PERFORM get_mara.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        PERCENTAGE = 100
        TEXT       = '处理好数据,并开始显示数据'.
    PERFORM do_data.
    PERFORM display_alv.
ELSE.
    PERFORM get_MAKTX.
    PERFORM do_ftp.
ENDIF.
*&      Form get_marktx
      text
FORM get_maktx.
SELECT MATNR MAKTX INTO TABLE IT_MAKT FROM MAKT
WHERE MATNR IN R_MATNR AND SPRAS = '1'.
ENDFORM.                    "get_marktx
*&      Form get_mara
      text
FORM get_mara.
SELECT * INTO TABLE it_mara FROM MARA
WHERE MATNR IN R_MATNR.
ENDFORM.                    "get_mara
*&      Form do_data
      text
FORM do_data.
SORT IT_MARC BY MATNR WERKS.
DELETE ADJACENT DUPLICATES FROM IT_MARC COMPARING MATNR WERKS.
LOOP AT IT_MARC.
    CLEAR IT_MAKT.
    CLEAR IT_MARA.
    READ TABLE IT_MAKT WITH KEY MATNR = IT_MARC-MATNR.
    READ TABLE IT_MARA WITH KEY MATNR = IT_MARC-MATNR.
    MOVE-CORRESPONDING IT_MARA TO IT_OUT.
    IT_OUT-MAKTX = IT_MAKT-MAKTX.
    IT_OUT-WERKS = IT_MARC-WERKS.
    IF IT_MARC-FLAG_UI = 'U'.
      IT_OUT-ERNAM = IT_MARC-USERNAME.
    ENDIF.
    APPEND IT_OUT.
    CLEAR IT_OUT.
ENDLOOP.
ENDFORM.                    "do_data
*SELECT AMATNR BMAKTX INTO CORRESPONDING
*FIELDS OF FTP_ITEMDOC1 FROM MARA AS A JOIN MAKT AS B
*ON AMATNR = BMATNR WHERE A~ERSDA = l_ersda
*AND B~SPRAS = '1' . "代表为中文说明。
APPEND FTP_ITEMDOC1.
*******DEVK909212****************
*******添加RANGE*****************
CLEAR R_MATNR.
R_MATNR-SIGN = 'I'.
R_MATNR-OPTION = 'EQ'.
R_MATNR-LOW = FTP_ITEMDOC1-MATNR.
APPEND R_MATNR.
CLEAR FTP_ITEMDOC1.
*******DEVK909212****************
*ENDSELECT.
*******DEVK909212****************
****get WERKS information from MARC*******
*SELECT MATNR WERKS INTO TABLE IT_MARC
*FROM MARC
*WHERE MATNR IN R_MATNR.
*******DEVK909212****************
******DEVK909212****************
**MARK**************************
*LOOP AT FTP_ITEMDOC1 .
MOVE : FTP_ITEMDOC1-MATNR TO FTP_ITEMDOC-MATNR,
        FTP_ITEMDOC1-MATNR TO FTP_ITEMDOC-MATNR1,
        FTP_ITEMDOC1-MAKTX TO FTP_ITEMDOC-MAKTX.
APPEND FTP_ITEMDOC.
CLEAR FTP_ITEMDOC.
*ENDLOOP.
******DEVK909212****************
******DEVK909212***********************************
**根据IT_MARC中信息，往北京和福清的TABLE写数据*****
FORM do_ftp.
LOOP AT IT_MARC.
***福清的
    IF IT_MARC-WERKS = '1010' OR IT_MARC-WERKS = '1020'
       OR IT_MARC-WERKS = '1023' .
     READ TABLE FTP_ITEMDOC1 WITH KEY MATNR = IT_MARC-MATNR.
     MOVE : FTP_ITEMDOC1-MATNR TO FTP_FUQING-MATNR,
        FTP_ITEMDOC1-MATNR TO FTP_FUQING-MATNR1,
        FTP_ITEMDOC1-MAKTX TO FTP_FUQING-MAKTX.
      CLEAR IT_MAKT.
      READ TABLE IT_MAKT WITH KEY = IT_MARC-MATNR.
      MOVE : IT_MARC-MATNR TO FTP_FUQING-MATNR,
         IT_MARC-MATNR TO FTP_FUQING-MATNR1,
         IT_MAKT-MAKTX TO FTP_FUQING-MAKTX.
      APPEND FTP_FUQING.
      CLEAR FTP_FUQING.
    ENDIF.
***北京的
    IF IT_MARC-WERKS = '1041' OR IT_MARC-WERKS = '1042'.
     READ TABLE FTP_ITEMDOC1 WITH KEY MATNR = IT_MARC-MATNR.
     MOVE : FTP_ITEMDOC1-MATNR TO FTP_BEIJING-MATNR,
        FTP_ITEMDOC1-MATNR TO FTP_BEIJING-MATNR1,
        FTP_ITEMDOC1-MAKTX TO FTP_BEIJING-MAKTX.
      CLEAR IT_MAKT.
      READ TABLE IT_MAKT WITH KEY = IT_MARC-MATNR.
      MOVE : IT_MARC-MATNR TO FTP_BEIJING-MATNR,
             IT_MARC-MATNR TO FTP_BEIJING-MATNR1,
             IT_MAKT-MAKTX TO FTP_BEIJING-MAKTX.
      APPEND FTP_BEIJING.
      CLEAR FTP_BEIJING.
    ENDIF.
ENDLOOP.
****清楚重复的数据**********
SORT FTP_FUQING.
DELETE ADJACENT DUPLICATES FROM FTP_FUQING.
SORT FTP_BEIJING.
DELETE ADJACENT DUPLICATES FROM FTP_BEIJING.
***传送数据********
REFRESH FTP_ITEMDOC.
FTP_ITEMDOC[] = FTP_FUQING[].
FTP_WERKS = '1010'.
PERFORM ftp_work.
REFRESH FTP_ITEMDOC.
FTP_ITEMDOC[] = FTP_BEIJING[].
FTP_WERKS = '1041'.
PERFORM ftp_work.
******DEVK909212***********************************
ENDFORM.                    "do_ftp
*&      Form ftp_work
     把以前FTP的工作做一个FORM
*******DEVK909212**************************
FORM ftp_work.
*******DEVK909212**************************
CHECK FTP_ITEMDOC[] IS NOT INITIAL.
FTP function *****************************************************
DATA : HDL TYPE I,
         L_SLEN TYPE I ,
         ERROR,
         KEY TYPE I VALUE 26101957,
         DEST TYPE RFCDES-RFCDEST VALUE 'SAPFTPA'.
DATA: FTP_RESULT TYPE TABLE OF TEXT.
DATA: P_FILE TYPE RLGRAP-FILENAME.
DATA: L_USER(16) TYPE C VALUE 'SFIS',
        L_PWD(16) TYPE C VALUE 'SFIS',
        L_HOST(16) TYPE C VALUE '172.16.31.17'.
*******DEVK909212**************************
*****根据不同的工厂来抓FTP的信息
CALL FUNCTION 'Z_FTP_SFIS'
    EXPORTING
      BLART = 'S'
      WERKS = FTP_WERKS
    IMPORTING
      HOST = L_HOST
      USER1 = L_USER
      PASS1 = L_PWD.
*******DEVK909212**************************
CONCATENATE l_ersda '.KP' INTO P_FILE.
SET EXTENDED CHECK OFF.
ERROR = 0.
CHECK HDL IS INITIAL.
Connect to server
L_SLEN = STRLEN( L_PWD ).
CALL FUNCTION 'HTTP_SCRAMBLE'
    EXPORTING
      SOURCE      = L_PWD
      SOURCELEN   = L_SLEN
      KEY         = KEY
    IMPORTING
      DESTINATION = L_PWD.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
   EXPORTING
     TEXT = 'Connect to FTP Server'.
CALL FUNCTION 'FTP_CONNECT'
    EXPORTING
      USER            = L_USER
      PASSWORD        = L_PWD
      HOST            = L_HOST
      RFC_DESTINATION = DEST
    IMPORTING
      HANDLE          = HDL
    EXCEPTIONS
      NOT_CONNECTED   = 1
      OTHERS          = 2.
IF SY-SUBRC <> 0.
    MOVE: 'B' TO WA_ZMSGTA-BLART,
          l_ersda TO WA_ZMSGTA-REFNUMBER,
          SY-MSGTY TO WA_ZMSGTA-MSGTY,
          'MARA' TO WA_ZMSGTA-TBMA_VAL.
    EXPLAIN_MSG SY-MSGID SY-MSGNO ' ' SY-MSGV1 SY-MSGV2 SY-MSGV3
                SY-MSGV4 WA_ZMSGTA-MSE1.
    ERROR_MSG_UPDATA WA_ZMSGTA.
    EXIT.
ENDIF.
CALL FUNCTION 'FTP_COMMAND'
    EXPORTING
      HANDLE        = HDL
      COMMAND       = 'ascii'
    TABLES
      DATA          = FTP_RESULT
    EXCEPTIONS
      TCPIP_ERROR   = 1
      COMMAND_ERROR = 2
      DATA_ERROR    = 3.
IF SY-SUBRC <> 0.
    EXPLAIN_MSG SY-MSGID SY-MSGNO ' ' SY-MSGV1 SY-MSGV2 SY-MSGV3
                SY-MSGV4 WA_ZMSGTA-MSE1.
    MOVE: 'B' TO WA_ZMSGTA-BLART,
          l_ersda TO WA_ZMSGTA-REFNUMBER,
          SY-MSGTY TO WA_ZMSGTA-MSGTY,
          'MARA' TO WA_ZMSGTA-TBMA_VAL.
    ERROR_MSG_UPDATA WA_ZMSGTA.
    EXIT.
ENDIF.
CALL FUNCTION 'FTP_R3_TO_SERVER'
    EXPORTING
      HANDLE         = HDL
      FNAME          = P_FILE
      CHARACTER_MODE = 'X'
    TABLES
      TEXT           = FTP_ITEMDOC
    EXCEPTIONS
      TCPIP_ERROR    = 1
      COMMAND_ERROR = 2
      DATA_ERROR     = 3
      OTHERS         = 4.
IF SY-SUBRC <> 0.
    EXPLAIN_MSG SY-MSGID SY-MSGNO ' ' SY-MSGV1 SY-MSGV2 SY-MSGV3
                SY-MSGV4 WA_ZMSGTA-MSE1.
    MOVE: 'B' TO WA_ZMSGTA-BLART,
          l_ersda TO WA_ZMSGTA-REFNUMBER,
          SY-MSGTY TO WA_ZMSGTA-MSGTY,
          'MARA' TO WA_ZMSGTA-TBMA_VAL.
    ERROR_MSG_UPDATA WA_ZMSGTA.
    EXIT.
ENDIF.
*******DEVK909212**************************
*******CLOSE FTP******************
CHECK NOT HDL IS INITIAL.
CALL FUNCTION 'FTP_DISCONNECT'
    EXPORTING
      HANDLE = HDL.
CALL FUNCTION 'RFC_CONNECTION_CLOSE'
    EXPORTING
      DESTINATION = DEST
    EXCEPTIONS
      OTHERS      = 1.
CLEAR HDL.
ENDFORM.                    "ftp_work
*******DEVK909212**************************
FORM DISPLAY_ALV .
*-- PREPARE ALV DATA
PERFORM EVENTTAB_BUILD USING GT_EVENTS[].
PERFORM COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE[].
*-- LAYOUT SETTING
PERFORM PREPARE_ALV_FIELD USING GT_FIELDCAT[].
*-- ALV DISPLAY
PERFORM CALL_REUSE_ALV_GRID_DISPLAY.
ENDFORM.                    " display_alv
*&      Form eventtab_build
      text
     -->P_GT_EVENTS[] text
FORM EVENTTAB_BUILD USING PT_EVENTS TYPE SLIS_T_EVENT.
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE = 0
    IMPORTING
      ET_EVENTS   = PT_EVENTS.
READ TABLE PT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                           INTO LS_EVENT.
IF SY-SUBRC = 0.
    LS_EVENT-FORM = 'TOP_OF_PAGE'.
    MODIFY PT_EVENTS FROM LS_EVENT INDEX SY-TABIX.
ENDIF.
ENDFORM.                    " eventtab_build
*&      Form comment_build
      text
     -->P_GT_LIST_TOP_OF_PAGE[] text
FORM COMMENT_BUILD USING PT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
DATA: LS_LINE TYPE SLIS_LISTHEADER,
        L_DATE(30),
        l_v_BWKEY like T001W-BWKEY, "Valuation area
        l_v_BUKRS like T001K-BUKRS. "Firm/Company
Listenerschrift: Typ H
CLEAR LS_LINE.
LS_LINE-TYP = 'H'.
LS_LINE-KEY: not used for this type
select single BWKEY
   into l_v_BWKEY
   from t001w
   where WERKS IN s_WERKS.
select single BUKRS
   into l_v_BUKRS
   from t001k
   where BWKEY = l_v_BWKEY.
SELECT SINGLE butxt INTO LS_LINE-INFO
    FROM t001
   WHERE bukrs = l_v_BUKRS.
APPEND LS_LINE TO PT_TOP_OF_PAGE.
Kopfinfo: Typ S
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = '报表名称：'.
LS_LINE-INFO = SY-TITLE.
APPEND LS_LINE TO PT_TOP_OF_PAGE.
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = '打印日期：'.
WRITE SY-DATUM TO LS_LINE-INFO.
ls_line-info = sy-datum.
APPEND LS_LINE TO PT_TOP_OF_PAGE.
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = '打印時間：'.
WRITE SY-UZEIT TO LS_LINE-INFO.
ls_line-info = sy-uzeit.
APPEND LS_LINE TO PT_TOP_OF_PAGE.
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = '使用者：'.
LS_LINE-INFO = SY-UNAME.
APPEND LS_LINE TO PT_TOP_OF_PAGE.
ENDFORM.                    " comment_build
*&      Form prepare_alv_field
      text
     -->P_GT_FIELDCAT[] text
FORM PREPARE_ALV_FIELD USING P_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: LS_LINE TYPE SLIS_FIELDCAT_ALV.
*-- DEFINE MARCO
DEFINE APPEND_ALV_FIELD.
    CLEAR LS_LINE.
    LS_LINE-FIELDNAME = &1.
    LS_LINE-TABNAME = &2.
    LS_LINE-REPTEXT_DDIC = &3.
    LS_LINE-SELTEXT_L = &3.
    LS_LINE-SELTEXT_M = &3.
    LS_LINE-SELTEXT_S = &3.
    LS_LINE-QFIELDNAME = &4.
    LS_LINE-QTABNAME = &5.
    LS_LINE-NO_OUT    = &6.
    LS_LINE-NO_ZERO   = &7.
    LS_LINE-OUTPUTLEN = &8.
    APPEND LS_LINE TO P_FIELDCAT.
END-OF-DEFINITION.
APPEND_ALV_FIELD: 'MATNR' 'IT_OUT' '料号'
                  'O' 'X' ''.
APPEND_ALV_FIELD: 'WERKS' 'IT_OUT' '工厂'
                   'O' 'X' ''.
APPEND_ALV_FIELD: 'MTART' 'IT_OUT' 'MTyp'
                   'O' 'X' ''.
APPEND_ALV_FIELD: 'MEINS' 'IT_OUT' 'BUn'
                   'O' 'X' ''.
APPEND_ALV_FIELD: 'MATKL' 'IT_OUT' '物料组\分群码'
                   'O' 'X' ''.
APPEND_ALV_FIELD: 'MATKX' 'IT_OUT' '物料描述'
                    'O' 'X' ''.
APPEND_ALV_FIELD: 'PSTAT' 'IT_OUT' '维护状态'
                    'O' 'X' ''.
APPEND_ALV_FIELD: 'BRGEW' 'IT_OUT' '毛重'
                   'O' 'X' ''.
APPEND_ALV_FIELD: 'NTGEW' 'IT_OUT' '净重'
                   'O' 'X' ''.
APPEND_ALV_FIELD: 'GEWEI' 'IT_OUT' 'WUn'
                  'O' 'X' ''.
APPEND_ALV_FIELD: 'FERTH' 'IT_OUT' '对外机种名'
                 'O' 'X' ''.
APPEND_ALV_FIELD: 'KZUMW' 'IT_OUT' '高关税标识'
               'O' 'X' ''.
APPEND_ALV_FIELD: 'ERNAM' 'IT_OUT' '创建者'
             'O' 'X' ''.
APPEND_ALV_FIELD: 'ERSDA' 'IT_OUT' '创建日期'
          'O' 'X' ''.
ENDFORM.                    " prepare_alv_field
*&      Form call_reuse_alv_grid_display
      text
--> p1        text
<-- p2        text
FORM CALL_REUSE_ALV_GRID_DISPLAY .
gs_layout-f2code              = 'DISPLAY'.
gs_print-no_print_listinfos   = 'X'.
gs_layout-colwidth_optimize   = 'X'.       "列宽度自动根据内容优化
gs_layout-f2code              = '&ETA'.    "double check弹出详细信息
gs_layout-zebra               = 'X'.       "清单条纹显示
gs_layout-no_vline            = ''.        "是否显示列间隔线
gs_layout-box_fieldname       = ''.        "是否显示checkbox
gs_layout-confirmation_prompt = ''.        "推出清单是否提示
gs_layout-detail_titlebar     = '详细信息'."详细清单的标题
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM                = SY-CPROG
      I_BACKGROUND_ID                   = 'ALV_BACKGROUND'
     I_CALLBACK_PF_STATUS_SET          = 'ALV_PF_STATUS'
     I_CALLBACK_USER_COMMAND           = 'ALV_USER_COMMAND'
     I_CALLBACK_TOP_OF_PAGE            = GT_LIST_TOP_OF_PAGE[]
      IT_FIELDCAT                       = GT_FIELDCAT[]
      IT_EVENTS                         = GT_EVENTS[]
      I_STRUCTURE_NAME                  = 'IT_OUT'
      I_SAVE                            = 'A'
      IS_LAYOUT                         = GS_LAYOUT
      IS_PRINT                          = GS_PRINT
    TABLES
      T_OUTTAB                          = IT_OUT
    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.                    " call_reuse_alv_grid_display
*&      Form PREPARE_ALV_FIELD
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.
ENDFORM.                    "TOP_OF_PAGE

Hi,
Please check your field catalog and refer field names once again.
Check spelling, or Check strucutre properly.
There are something wrong in your catalog definition
aRs.

How to focus a specified column in ADF Table at run time?

I drag and drop an ADF table.It contains *10 column*..I bind the column using ArrayList..First 3 column is set frozen =True..At the time of runtime,a Horizontal scroll is appeared..*May be for certain conditions , only 8th column contains values at run time.So i want to focus that column Only*.Because it is very easy for an user to see the value..If not,user has to scroll the bar to check. How can i focus a specified column?

Hi Briston,
You can make the column selected by setting "selected" property of column to true
Sireesha

Select sql running very long when made to select many columns from a table

Hi,
I am using an Oracle DB 10g. I have a table with 250 columns and I need to select 200 columns out of them. The table holds around 0.1 million rows. But when I run the select sql it takes 15 mins to return .1 million rows. Where as if I select only 10 or 15 columns the sql runs in less than a minute returning same number of rows. My sql looks like below:
select p.col1,p.col2,.......,p.col200
from table Parent p;
The table also has a Primary key Index but it does not seem to be using it even when I forced an Index hint. Could you pls help?

961796 wrote:
I am using an Oracle DB 10g. I have a table with 250 columns and I need to select 200 columns out of them. The table holds around 0.1 million rows. But when I run the select sql it takes 15 mins to return .1 million rows. Where as if I select only 10 or 15 columns the sql runs in less than a minute returning same number of rows. My sql looks like below:
As Sven points out, it is likely that most of your time is network (and client) time. You are sending 20 times as much data (based on column counts, at any rate) across the network, and concerned that it's taking 15 times as long.
If you're testing from SQL*Plus then setting the arraysize to a value larger than the default might help.
If you have control over the SQL*Net settings then you may get some benefit by adjusting the SDU sizes at both ends of the link.
If you have control over the tcp configuration (transmit and receive buffer sizes) then you may get some benefit by adjusting these.
Simple test, by the way, if you're on SQL*Plus
set autotrace traceonly statistics
select ...This will dump your data in the bit bucket as it arrives giving you
a) the database time plus network time
b) some statistics including the volume of data down the network and the number of network round-trips that Oracle saw.
Regards
Jonathan Lewis
http://jonathanlewis.wordpress.com
Author: <b><em>Oracle Core</em></b>

Column selected at run time in ALV!!

Similar Messages

Maybe you are looking for