Want A query (Its Urgent)
Hi,I have a table as below..
AFPFTRAN
code date type amt
12 10-04-05 T 1
13 11-05-05 F 2
12 10-05-05 T 3
13 05-04-05 F 4
12 12-04-05 T 5
13 15-05-05 F 7
I want details as below:
date
Apr May ---
code T F T F ---
12 6 0 3 0
13 0 4 0 9
I want to get sum(amt) of T,F in particular month for particular emp.
Hope...I'm clear now...
Pls Its urgent
use something like following
select code, sum(decode(to_char(date, 'MM'), '01', decode(type, 'T', AMT, 0), 0)) Mon01_Type_T, sum(decode(to_char(date, 'MM', '02', decode(type, 'F', AMT, 0), 0)) Mon01_Type_F, .......(for all months and type)
from Your_table_name
group by code
I hope it will work the way you want,
Regards
Similar Messages
-
Error when executing query its urgent
hi,
when iam executing my query in query designer through web morning i got the result in web.
but when iam executing the same query in wad it is throughing an error like (System error in program SAPLRRK0 and form GET_FIELD_POSITION-01-))
now again i check that one in querydesigner again it is showing the same error in querydesigner also
vijayHi,
Refer Note 931975 - Problems when you execute a query
Symptom
At runtime, a query contains a generated ABAP program and a data structure, which is stored in the shared buffer. Due to the gap described here, the version of the ABAP program may not correspond to the version of the data structure.
This causes several terminations when you execute this query:
X299 Brain SAPLRRK0; Form GET_FIELD_POSITION-01-,
X299 Brain SAPLRRK0; Form APPEND_KHANDLE_1-02-,
ASSIGN COMPONENT L_FIELDNAME OF STRUCTURE C_SX_GVAR, and others.
Other terms
RSIX, SX_REPORT,
Reason and Prerequisites
The error can occur if one person changes a query and another person simultaneously executes the query. A query may also be changed implicitly if one of the objects used in the query is changed in another query.
Solution
The attached corrections apply only to Releases 3.X. An advance correction cannot be provided for NetWeaver 2004s.
Before you implement the attached correction (in 3.X), you must change the two following method interfaces. Otherwise syntax errors occur in the CL_RSR_REPORT_RSIX class and the RRI0 function group when you implement the corrections.
1. In Transaction SE24: Change the MODIFY method of the CL_RSR_REPORT_RSIX class as follows:
Insert the I_S_RKB1D import parameter with the type RSR_S_RKB1D.
2. In Transaction SE24: Change the READ_SX_REPORT method of the CL_RSR_REPORT_RSIX class.
Delete all existing import parameters (that is, I_GENUNIID, I_DVERS, I_IDVERS and I_GENTIME) and insert the I_S_RKB1D import parameter with the type RSR_S_RKB1D.
After you implement the corrections, you must delete the incorrect information in the shared buffer. To do this, enter '/$SYNC' in the command field in every application server. Alternatively, you can also call RSRT -> Environment -> Generate Queries. As a result, all queries are regenerated but all OLAP caches are rejected.
BW 3.0B
Import Support Package 31 for 3.0B (BW 3. 0B Patch 31 or SAPKW30B31) into your BW system. The Support Package is available when Note 0872272 "SAPBWNews BW 3.0B Support Package 31", which describes this Support Package in more detail, is released for customers.
BW 3.10 Content
Import Support Package 25 for 3.10 (BW 3. 10 Patch 25 or SAPKW31025) into your BW system. The Support Package is available when Note 0872274 "SAPBWNews BW 3.1 Content Support Package 25", which describes this Support Package in more detail, is released for customers.
BW 3.50
Import Support Package 17 for 3.5 (BW 3. 50 Patch 17 or SAPKW35017) into your BW system. The Support Package is available when Note 0872277 "SAPBWNews BW Support Package 17 NetWeaver'04 Stack 17", which describes this Support Package in more detail, is released for customers.
SAP NetWeaver 2004s BI
Import Support Package 08 for SAP NetWeaver 2004s BI (BI Patch 08 or SAPKW70008) into your BI system. The Support Package is available when Note 0872280 "SAPBINews BI 7.0 Support Package 08", which describes this Support Package in more detail, has been released for customers.
In urgent cases, you can use the correction instructions.
To provide information in advance, the notes mentioned above may be released before the Support Package is available. In this case, however, the short text of the notes still contains the words "preliminary version".
Thanks -
Hi Experts,
In this scenario we have one Material Mat1 and 2 plants namely, P1 and P2. At time of execution, in the selection screen, if we give for example: Mat1 and P1, data is displayed for that particular material and plant. Where as if we give MAT1 for P1 and P2 , the material again displayed for P1 which is in first row and it is not displaying the material for P2 which is in 2nd row.
If we interchange P2 is in first row, the material is displayed and it is not displaying for P1 which is in 2nd row.
In general Any material for any plant which is in 2nd row is not displayed only zeros are visible.
Kindly locate the solution for the above query in the below program.
Specification Name : Production Tracker
REPORT zpp_ptk .
TYPE-POOLS : slis.
TABLES : pbed,
mara,
mast,
marc,
makt,
pbid,
pbim,
stpo,
t001w,
scal,
kna1,
knmt,
equi,
a304,
konp,
zcalendar,
am60x.
DATA : gt_sort TYPE slis_t_sortinfo_alv,
gt_fieldcat TYPE slis_t_fieldcat_alv,
gt_fieldcat1 TYPE slis_fieldcat_alv,
gt_events TYPE slis_t_event ,
gv_pc_start(2) TYPE n,
gv_pcno(6),
BEGIN OF gt_pbed OCCURS 0,
matnr TYPE matnr,
p_matnr TYPE matnr,
plnmg TYPE plnmg,
entmg TYPE entmg,
perxx TYPE perxx,
ojtxb TYPE ojtxb,
ojtxp TYPE ojtxp,
backlog TYPE plnmg,
future TYPE plnmg,
END OF gt_pbed,
l_knumh LIKE a304-knumh, " added by ****** 08.06.2005
l_datab LIKE a304-datab, " added by ****** 08.06.2005
BEGIN OF it_date1 OCCURS 0,
it_date1 TYPE zstartdt,
enddt TYPE zenddt,
sapweekno TYPE zsapweekno,
END OF it_date1,
BEGIN OF gt_matnr OCCURS 0,
matnr TYPE matnr,
plnmg TYPE plnmg,
entmg TYPE entmg,
END OF gt_matnr,
BEGIN OF gt_stock OCCURS 0,
matnr TYPE matnr,
stock TYPE entmg,
END OF gt_stock,
gt_fpbed LIKE gt_pbed OCCURS 0 WITH HEADER LINE,
it_zcalendar LIKE zcalendar OCCURS 0 WITH HEADER LINE,
l_counter TYPE i,
l_plus15 LIKE scal-week,
l_wfpweekno LIKE scal-week,
l_selectedweekno LIKE scal-week,
BEGIN OF gt_backlog OCCURS 0,
matnr TYPE matnr,
backlog TYPE entmg,
END OF gt_backlog,
gt_future LIKE gt_backlog OCCURS 0 WITH HEADER LINE,
gt_output TYPE zpp_rollplan OCCURS 0 WITH HEADER LINE,
BEGIN OF gt_out OCCURS 0,
head(15) TYPE c,
matnr TYPE matnr,
stock TYPE labst,
backlog TYPE plnmg,
week1 TYPE wmeng,
week2 TYPE wmeng,
week3 TYPE wmeng,
week4 TYPE wmeng,
week5 TYPE wmeng,
week6 TYPE wmeng,
week7 TYPE wmeng,
week8 TYPE wmeng,
week9 TYPE wmeng,
week10 TYPE wmeng,
week11 TYPE wmeng,
week12 TYPE wmeng,
week13 TYPE wmeng,
END OF gt_out,
BEGIN OF gt_out26 OCCURS 0,
head(15) TYPE c,
matnr TYPE matnr,
stock TYPE labst,
backlog TYPE plnmg,
week1 TYPE wmeng,
week2 TYPE wmeng,
week3 TYPE wmeng,
week4 TYPE wmeng,
week5 TYPE wmeng,
week6 TYPE wmeng,
week7 TYPE wmeng,
week8 TYPE wmeng,
week9 TYPE wmeng,
week10 TYPE wmeng,
week11 TYPE wmeng,
week12 TYPE wmeng,
week13 TYPE wmeng,
week14 TYPE wmeng,
week15 TYPE wmeng,
week16 TYPE wmeng,
week17 TYPE wmeng,
week18 TYPE wmeng,
week19 TYPE wmeng,
week20 TYPE wmeng,
week21 TYPE wmeng,
week22 TYPE wmeng,
week23 TYPE wmeng,
week24 TYPE wmeng,
week25 TYPE wmeng,
week26 TYPE wmeng,
END OF gt_out26,
BEGIN OF it_week OCCURS 0,
it_week TYPE zsapweekno,
END OF it_week,
dd(4) TYPE c,
cc(2) TYPE c,
dd1(6) TYPE c,
l_val1(7) TYPE c,
l_val2(7) TYPE c,
l_val3(7) TYPE c,
l_val4(7) TYPE c,
l_val5(7) TYPE c,
l_val6(7) TYPE c,
l_val7(7) TYPE c,
l_val8(7) TYPE c,
l_val9(7) TYPE c,
l_val10(7) TYPE c,
l_val11(7) TYPE c,
l_val12(7) TYPE c,
l_val13(7) TYPE c,
l_val14(7) TYPE c,
l_val15(7) TYPE c,
l_val16(7) TYPE c,
l_val17(7) TYPE c,
l_val18(7) TYPE c,
l_val19(7) TYPE c,
l_val20(7) TYPE c,
l_val21(7) TYPE c,
l_val22(7) TYPE c,
l_val23(7) TYPE c,
l_val24(7) TYPE c,
l_val25(7) TYPE c,
l_val26(7) TYPE c,
it_ph TYPE plnmg,
it_dm TYPE dbmng,
it_mard LIKE mard OCCURS 0 WITH HEADER LINE,
it_tot1 TYPE p DECIMALS 3,
it_tot1_2 TYPE p DECIMALS 3,
it_tot2 TYPE p DECIMALS 3,
it_tot2_2 TYPE p DECIMALS 3,
it_tot3 TYPE p DECIMALS 3,
it_tot3_2 TYPE p DECIMALS 3,
it_tot4 TYPE p DECIMALS 3,
it_tot4_2 TYPE p DECIMALS 3,
it_tot5 TYPE p DECIMALS 3,
it_tot5_2 TYPE p DECIMALS 3,
it_tot6 TYPE p DECIMALS 3,
it_tot6_2 TYPE p DECIMALS 3,
it_tot7 TYPE p DECIMALS 3,
it_tot7_2 TYPE p DECIMALS 3,
it_tot8 TYPE p DECIMALS 3,
it_tot8_2 TYPE p DECIMALS 3,
it_tot9 TYPE p DECIMALS 3,
it_tot9_2 TYPE p DECIMALS 3,
it_tot10 TYPE p DECIMALS 3,
it_tot10_2 TYPE p DECIMALS 3,
it_tot11 TYPE p DECIMALS 3,
it_tot11_2 TYPE p DECIMALS 3,
it_tot12 TYPE p DECIMALS 3,
it_tot12_2 TYPE p DECIMALS 3,
it_tot13 TYPE p DECIMALS 3,
it_tot13_2 TYPE p DECIMALS 3,
it_tot14 TYPE p DECIMALS 3,
it_tot14_2 TYPE p DECIMALS 3,
it_tot15 TYPE p DECIMALS 3,
it_tot15_2 TYPE p DECIMALS 3,
it_tot16 TYPE p DECIMALS 3,
it_tot16_2 TYPE p DECIMALS 3,
it_tot17 TYPE p DECIMALS 3,
it_tot17_2 TYPE p DECIMALS 3,
it_tot18 TYPE p DECIMALS 3,
it_tot18_2 TYPE p DECIMALS 3,
it_tot19 TYPE p DECIMALS 3,
it_tot19_2 TYPE p DECIMALS 3,
it_tot20 TYPE p DECIMALS 3,
it_tot20_2 TYPE p DECIMALS 3,
it_tot21 TYPE p DECIMALS 3,
it_tot21_2 TYPE p DECIMALS 3,
it_tot22 TYPE p DECIMALS 3,
it_tot22_2 TYPE p DECIMALS 3,
it_tot23 TYPE p DECIMALS 3,
it_tot23_2 TYPE p DECIMALS 3,
it_tot24 TYPE p DECIMALS 3,
it_tot24_2 TYPE p DECIMALS 3,
it_tot25 TYPE p DECIMALS 3,
it_tot25_2 TYPE p DECIMALS 3,
it_tot26 TYPE p DECIMALS 3,
it_tot26_2 TYPE p DECIMALS 3,
it_back1 TYPE p DECIMALS 3,
it_back2 TYPE p DECIMALS 3,
it_back3 TYPE p DECIMALS 3,
it_back4 TYPE p DECIMALS 3,
it_back5 TYPE p DECIMALS 3,
it_back6 TYPE p DECIMALS 3,
it_back7 TYPE p DECIMALS 3,
it_back8 TYPE p DECIMALS 3,
it_back9 TYPE p DECIMALS 3,
it_back10 TYPE p DECIMALS 3,
it_back11 TYPE p DECIMALS 3,
it_back12 TYPE p DECIMALS 3,
it_back13 TYPE p DECIMALS 3,
it_back14 TYPE p DECIMALS 3,
it_back15 TYPE p DECIMALS 3,
it_back16 TYPE p DECIMALS 3,
it_back17 TYPE p DECIMALS 3,
it_back18 TYPE p DECIMALS 3,
it_back19 TYPE p DECIMALS 3,
it_back20 TYPE p DECIMALS 3,
it_back21 TYPE p DECIMALS 3,
it_back22 TYPE p DECIMALS 3,
it_back23 TYPE p DECIMALS 3,
it_back24 TYPE p DECIMALS 3,
it_back25 TYPE p DECIMALS 3,
it_back26 TYPE p DECIMALS 3,
it_pbhi LIKE pbhi OCCURS 0 WITH HEADER LINE,
int1 TYPE i,
int2 TYPE i,
int3 TYPE i,
int4 TYPE i,
int5 TYPE i,
int6 TYPE i,
int7 TYPE i,
int8 TYPE i,
int9 TYPE i,
int10 TYPE i,
int11 TYPE i,
int12 TYPE i,
int13 TYPE i,
int14 TYPE i,
int15 TYPE i,
int16 TYPE i,
int17 TYPE i,
int18 TYPE i,
int19 TYPE i,
int20 TYPE i,
int21 TYPE i,
int22 TYPE i,
int23 TYPE i,
int24 TYPE i,
int25 TYPE i,
int26 TYPE i,
*forecast purpose
p_fnavl TYPE c VALUE 'X',
it_zcal LIKE zcalendar OCCURS 0 WITH HEADER LINE,
BEGIN OF it_mkpf OCCURS 0,
mblnr TYPE mblnr,
budat TYPE budat,
END OF it_mkpf,
it_mseg LIKE mseg OCCURS 0 WITH HEADER LINE,
st_date TYPE zstartdt,
en_date TYPE zenddt.
*BUDAT
SELECTION-SCREEN : BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001..
SELECT-OPTIONS : s_matnr FOR pbim-matnr OBLIGATORY.
PARAMETERS : p_werks TYPE werks_d OBLIGATORY,
p_dispo TYPE dispo,
p_mov TYPE bwart OBLIGATORY DEFAULT '321',
p_date1 TYPE pbed-wdatu DEFAULT '20070401'. " MODIF ID ABC..
*SELECT-OPTIONS : p_date2 FOR pbed-wdatu.
PARAMETERS : p_date2 TYPE wdatu.
SELECTION-SCREEN : END OF BLOCK blk1.
SELECTION-SCREEN : BEGIN OF BLOCK bb1 WITH FRAME TITLE text-002 .
PARAMETERS : p_13week RADIOBUTTON GROUP grp1,
p_26week RADIOBUTTON GROUP grp1.
SELECTION-SCREEN : END OF BLOCK bb1.
SELECT-OPTIONS : s_week FOR zcalendar-sapweekno NO-DISPLAY.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-name = 'P_DATE1'.
screen-input = '0'.
screen-active = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
INITIALIZATION.
START-OF-SELECTION.
IF '20070401' > p_date2.
MESSAGE 'Please Give Greater that 01.04.2007 ' TYPE 'I'.
LEAVE LIST-PROCESSING.
ENDIF.
SELECT SINGLE sapweekno INTO s_week-low
FROM zcalendar
WHERE startdt >= p_date2. "-high AND enddt >= p_date2-low.
s_week-option = 'EQ'.
s_week-sign = 'I'.
APPEND s_week.
SELECT * FROM zcalendar INTO TABLE it_zcalendar.
SELECT * FROM mard INTO TABLE it_mard WHERE matnr IN s_matnr.
*********************FOR 13 WEEK*********************************************************************
IF p_13week EQ 'X'.
LOOP AT s_week.
s_week-high = s_week-low + 12.
MODIFY s_week TRANSPORTING high.
SELECT SINGLE startdt FROM zcalendar INTO st_date WHERE sapweekno = s_week-low.
SELECT SINGLE enddt FROM zcalendar INTO en_date WHERE sapweekno = s_week-high.
SELECT mblnr budat FROM mkpf INTO TABLE it_mkpf WHERE budat GE st_date AND budat LE en_date.
SELECT * FROM mseg INTO TABLE it_mseg FOR ALL ENTRIES IN it_mkpf WHERE mblnr = it_mkpf-mblnr
AND matnr IN s_matnr
AND werks = p_werks
and shkzg = 'S'
AND bwart IN ('321','322','101','102','131','132') .
LOOP AT it_mkpf.
SELECT * FROM mseg INTO it_mseg WHERE mblnr = it_mkpf-mblnr
AND matnr IN s_matnr
AND werks = p_werks
AND shkzg = 'S'
AND bwart IN ('321','322','101','102','131','132') .
APPEND it_mseg.
CLEAR it_mseg.
ENDSELECT.
ENDLOOP.
ENDLOOP.
PERFORM get_pbid.
BREAK-POINT.
PERFORM s_week_days.
PERFORM get_backlog.
PERFORM gt_out.
PERFORM build_fieldccatlog1.
PERFORM 13alv.
ENDIF.
******************END OF 13 WEEK*************************************************************************
*****************For 26 th Week*************************************************************************
IF p_26week EQ 'X'.
LOOP AT s_week.
s_week-high = s_week-low + 25.
MODIFY s_week TRANSPORTING high.
SELECT SINGLE startdt FROM zcalendar INTO st_date WHERE sapweekno = s_week-low.
SELECT SINGLE enddt FROM zcalendar INTO en_date WHERE sapweekno = s_week-high.
SELECT mblnr budat FROM mkpf INTO TABLE it_mkpf WHERE budat GE st_date AND budat LE en_date.
SELECT * FROM mseg INTO TABLE it_mseg FOR ALL ENTRIES IN it_mkpf WHERE mblnr = it_mkpf-mblnr
AND matnr IN s_matnr
AND werks = p_werks
AND shkzg = 'S'
AND bwart IN ('321','322','101','102') .
ENDLOOP.
PERFORM get_pbid.
PERFORM s_26week_days.
PERFORM gt_out26.
PERFORM build_fieldccatlog1.
PERFORM 26alv.
ENDIF.
**************END OF 26 TH WEEK **********************************************************************
*& Form get_pbid
text
FORM get_pbid .
DATA : lv_line TYPE i,
lv_perxx LIKE scal-week.
DATA it_dispo(1) TYPE c. " ashish
LOOP AT s_matnr. " TODAY
BREAK-POINT.
SELECT SINGLE diber INTO it_dispo FROM marc WHERE matnr = s_matnr-low
AND werks = p_werks.
IF it_dispo NE 'X'.
SELECT * FROM pbim WHERE matnr = s_matnr-low
AND werks EQ p_werks
AND loevr = space.
SELECT startdt enddt sapweekno INTO TABLE it_date1 FROM zcalendar WHERE sapweekno GE s_week-low AND sapweekno LE s_week-high.
SORT by s_matnr p_werks.
LOOP AT it_date1.
SELECT * FROM pbhi INTO TABLE it_pbhi WHERE bdzei = pbim-bdzei AND ( pdatu GE it_date1-it_date1 AND pdatu LE it_date1-enddt ).
IF sy-subrc EQ 0.
DELETE it_pbhi WHERE aenam = 'ABBAU'.
LOOP AT it_pbhi.
it_ph = it_ph + it_pbhi-plnmg.
it_dm = it_dm + it_pbhi-dbmng.
ENDLOOP.
it_ph = it_ph - it_dm.
gt_pbed-matnr = s_matnr-low.
gt_pbed-plnmg = it_ph.
gt_pbed-perxx = it_date1-sapweekno.
APPEND gt_pbed.
CLEAR it_pbhi.
CLEAR it_ph.
CLEAR it_dm.
REFRESH it_pbhi.
CLEAR gt_pbed.
ELSE.
ENDIF.
ENDLOOP.
ENDSELECT.
ELSE.
SORT BY s_matnr p_werks.
LOOP AT s_matnr.
SELECT * FROM pbid WHERE matnr = s_matnr-low
AND werks = p_werks
AND loevr EQ space.
****PHANI
SELECT * FROM pbed WHERE bdzei = pbid-bdzei.
MOVE-CORRESPONDING pbed TO gt_pbed.
PERFORM convert_to_week USING pbed-pdatu
CHANGING gt_pbed-perxx.
check gt_pbed-perxx in r_week.
gt_pbed-matnr = pbid-matnr.
PERFORM GET_PARENT USING gt_bom-MATNR
CHANGING gt_pbed-p_matnr
GT_pbed-OJTXB.
COLLECT gt_pbed.
CLEAR gt_pbed.
*PHANI
data it_date1 type ZSTARTDT.
SELECT startdt enddt sapweekno INTO TABLE it_date1 FROM zcalendar WHERE sapweekno GE s_week-low AND sapweekno LE s_week-high.
LOOP AT it_date1.
SELECT * FROM pbhi INTO TABLE it_pbhi WHERE bdzei = pbid-bdzei AND ( pdatu GE it_date1-it_date1 AND pdatu LE it_date1-enddt ).
IF sy-subrc EQ 0.
DELETE it_pbhi WHERE aenam = 'ABBAU'.
LOOP AT it_pbhi.
it_ph = it_ph + it_pbhi-plnmg.
it_dm = it_dm + it_pbhi-dbmng.
ENDLOOP.
it_ph = it_ph - it_dm.
gt_pbed-matnr = s_matnr-low.
gt_pbed-plnmg = it_ph.
gt_pbed-perxx = it_date1-sapweekno.
APPEND gt_pbed.
CLEAR it_pbhi.
CLEAR it_ph.
CLEAR it_dm.
REFRESH it_pbhi.
CLEAR gt_pbed.
ELSE.
ENDIF.
ENDLOOP.
ENDSELECT.
ENDLOOP.
ENDIF.
ENDFORM. " get_pbid
*& Form convert_to_week
text
-->IV_DATE text
-->XV_WEEK text
FORM convert_to_week USING iv_date
CHANGING xv_week.
DATA : lv_week LIKE scal-week.
CALL FUNCTION 'DATE_GET_WEEK'
EXPORTING
date = iv_date
IMPORTING
week = lv_week.
xv_week = lv_week.
ENDFORM. "CONVERT_TO_WEEK
*& Form get_stock
text
FORM get_stock .
DATA : lv_stock LIKE mard-insme.
LOOP AT gt_pbed.
READ TABLE gt_stock WITH KEY matnr = gt_pbed-matnr.
CHECK sy-subrc NE 0.
SELECT SUM( labst ) INTO lv_stock FROM mard
WHERE matnr = gt_pbed-matnr AND werks = p_werks.
SELECT SUM( insme ) INTO gt_stock-stock FROM mard
WHERE matnr = gt_pbed-matnr AND werks = p_werks.
gt_stock-stock = gt_stock-stock + lv_stock.
gt_stock-matnr = gt_pbed-matnr.
APPEND gt_stock.
ENDLOOP.
ENDFORM. " get_stock
FORM s_week_days .
DELETE gt_pbed WHERE perxx < s_week-low. " and perxx > s_week-high.
CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val1.
s_week-low4(2) = s_week-low4(2) + 1.
CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val2.
s_week-low4(2) = s_week-low4(2) + 1.
CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val3.
s_week-low4(2) = s_week-low4(2) + 1.
CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val4.
s_week-low4(2) = s_week-low4(2) + 1.
CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val5.
s_week-low4(2) = s_week-low4(2) + 1.
CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val6.
s_week-low4(2) = s_week-low4(2) + 1.
CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val7.
s_week-low4(2) = s_week-low4(2) + 1.
CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val8.
s_week-low4(2) = s_week-low4(2) + 1.
CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val9.
s_week-low4(2) = s_week-low4(2) + 1.
CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val10.
s_week-low4(2) = s_week-low4(2) + 1.
CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val11.
s_week-low4(2) = s_week-low4(2) + 1.
CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val12.
s_week-low4(2) = s_week-low4(2) + 1.
CONCATENATE 'WEEK' '-' s_week-low+4(2) INTO l_val13.
ENDFORM. " s_week_days
*& Form build_fieldccatlog
text
FORM build_fieldcatlog .
CLEAR gt_fieldcat1.
gt_fieldcat1-fieldname = 'MATNR'.
gt_fieldcat1-tabname = 'GT_OUT'.
gt_fieldcat1-seltext_l = 'MATERIAL'.
APPEND gt_fieldcat1 TO gt_fieldcat.
CLEAR gt_fieldcat1.
gt_fieldcat1-fieldname = 'WERKS'.
gt_fieldcat1-tabname = 'GT_OUT'.
gt_fieldcat1-seltext_m = 'WERKS'.
APPEND gt_fieldcat1 TO gt_fieldcat.
CLEAR gt_fieldcat1.
gt_fieldcat1-fieldname = 'HEAD'.
gt_fieldcat1-tabname = 'GT_OUT'.
gt_fieldcat1-seltext_l = 'REF'.
APPEND gt_fieldcat1 TO gt_fieldcat.
CLEAR gt_fieldcat1.
gt_fieldcat1-fieldname = 'STOCK'.
gt_fieldcat1-tabname = 'GT_OUT'.
gt_fieldcat1-seltext_l = 'FG-STOCK'.
APPEND gt_fieldcat1 TO gt_fieldcat.
CLEAR gt_fieldcat1.
gt_fieldcat1-fieldname = 'BACKLOG'.
gt_fieldcat1-tabname = 'GT_OUT'.
gt_fieldcat1-seltext_l = 'BACKLOG'.
APPEND gt_fieldcat1 TO gt_fieldcat.
dd = sy-datum+0(4).
cc = l_val1+5(2).
CONCATENATE dd cc INTO dd1.
LOOP AT it_zcalendar WHERE sapweekno = dd1.
CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val1.
CLEAR gt_fieldcat1.
gt_fieldcat1-fieldname = 'WEEK1'.
gt_fieldcat1-tabname = 'GT_OUT'.
gt_fieldcat1-seltext_l = l_val1.
APPEND gt_fieldcat1 TO gt_fieldcat.
ENDLOOP.
CLEAR : cc,dd1.
cc = l_val2+5(2).
CONCATENATE dd cc INTO dd1.
LOOP AT it_zcalendar WHERE sapweekno = dd1.
CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val2.
CLEAR gt_fieldcat1.
gt_fieldcat1-fieldname = 'WEEK2'.
gt_fieldcat1-tabname = 'GT_OUT'.
gt_fieldcat1-seltext_l = l_val2.
APPEND gt_fieldcat1 TO gt_fieldcat.
ENDLOOP.
CLEAR : cc,dd1.
cc = l_val3+5(2).
CONCATENATE dd cc INTO dd1.
LOOP AT it_zcalendar WHERE sapweekno = dd1.
CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val3.
CLEAR gt_fieldcat1.
gt_fieldcat1-fieldname = 'WEEK3'.
gt_fieldcat1-tabname = 'GT_OUT'.
gt_fieldcat1-seltext_l = l_val3.
APPEND gt_fieldcat1 TO gt_fieldcat.
ENDLOOP.
CLEAR : cc,dd1.
cc = l_val4+5(2).
CONCATENATE dd cc INTO dd1.
LOOP AT it_zcalendar WHERE sapweekno = dd1.
CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val4.
CLEAR gt_fieldcat1.
gt_fieldcat1-fieldname = 'WEEK4'.
gt_fieldcat1-tabname = 'GT_OUT'.
gt_fieldcat1-seltext_l = l_val4.
APPEND gt_fieldcat1 TO gt_fieldcat.
ENDLOOP.
CLEAR : cc,dd1.
cc = l_val5+5(2).
CONCATENATE dd cc INTO dd1.
LOOP AT it_zcalendar WHERE sapweekno = dd1.
CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val5.
CLEAR gt_fieldcat1.
gt_fieldcat1-fieldname = 'WEEK5'.
gt_fieldcat1-tabname = 'GT_OUT'.
gt_fieldcat1-seltext_l = l_val5.
APPEND gt_fieldcat1 TO gt_fieldcat.
ENDLOOP.
CLEAR : cc,dd1.
cc = l_val6+5(2).
CONCATENATE dd cc INTO dd1.
LOOP AT it_zcalendar WHERE sapweekno = dd1.
CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val6.
CLEAR gt_fieldcat1.
gt_fieldcat1-fieldname = 'WEEK6'.
gt_fieldcat1-tabname = 'GT_OUT'.
gt_fieldcat1-seltext_l = l_val6.
APPEND gt_fieldcat1 TO gt_fieldcat.
ENDLOOP.
CLEAR : cc,dd1.
cc = l_val7+5(2).
CONCATENATE dd cc INTO dd1.
LOOP AT it_zcalendar WHERE sapweekno = dd1.
CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val7.
CLEAR gt_fieldcat1.
gt_fieldcat1-fieldname = 'WEEK7'.
gt_fieldcat1-tabname = 'GT_OUT'.
gt_fieldcat1-seltext_l = l_val7.
APPEND gt_fieldcat1 TO gt_fieldcat.
ENDLOOP.
CLEAR : cc,dd1.
cc = l_val8+5(2).
CONCATENATE dd cc INTO dd1.
LOOP AT it_zcalendar WHERE sapweekno = dd1.
CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val8.
CLEAR gt_fieldcat1.
gt_fieldcat1-fieldname = 'WEEK8'.
gt_fieldcat1-tabname = 'GT_OUT'.
gt_fieldcat1-seltext_l = l_val8.
APPEND gt_fieldcat1 TO gt_fieldcat.
ENDLOOP.
CLEAR : cc,dd1.
cc = l_val9+5(2).
CONCATENATE dd cc INTO dd1.
LOOP AT it_zcalendar WHERE sapweekno = dd1.
CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val9.
CLEAR gt_fieldcat1.
gt_fieldcat1-fieldname = 'WEEK9'.
gt_fieldcat1-tabname = 'GT_OUT'.
gt_fieldcat1-seltext_l = l_val9.
APPEND gt_fieldcat1 TO gt_fieldcat.
ENDLOOP.
CLEAR : cc,dd1.
cc = l_val10+5(2).
CONCATENATE dd cc INTO dd1.
LOOP AT it_zcalendar WHERE sapweekno = dd1.
CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val10.
CLEAR gt_fieldcat1.
gt_fieldcat1-fieldname = 'WEEK10'.
gt_fieldcat1-tabname = 'GT_OUT'.
gt_fieldcat1-seltext_l = l_val10.
APPEND gt_fieldcat1 TO gt_fieldcat.
ENDLOOP.
CLEAR : cc,dd1.
cc = l_val11+5(2).
CONCATENATE dd cc INTO dd1.
LOOP AT it_zcalendar WHERE sapweekno = dd1.
CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val11.
CLEAR gt_fieldcat1.
gt_fieldcat1-fieldname = 'WEEK11'.
gt_fieldcat1-tabname = 'GT_OUT'.
gt_fieldcat1-seltext_l = l_val11.
APPEND gt_fieldcat1 TO gt_fieldcat.
ENDLOOP.
CLEAR : cc,dd1.
cc = l_val12+5(2).
CONCATENATE dd cc INTO dd1.
LOOP AT it_zcalendar WHERE sapweekno = dd1.
CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val12.
CLEAR gt_fieldcat1.
gt_fieldcat1-fieldname = 'WEEK12'.
gt_fieldcat1-tabname = 'GT_OUT'.
gt_fieldcat1-seltext_l = l_val12.
APPEND gt_fieldcat1 TO gt_fieldcat.
ENDLOOP.
CLEAR : cc,dd1.
cc = l_val13+5(2).
CONCATENATE dd cc INTO dd1.
LOOP AT it_zcalendar WHERE sapweekno = dd1.
CONCATENATE 'WEEK-' it_zcalendar-wfpweekno+4(2) INTO l_val13.
CLEAR gt_fieldcat1.
gt_fieldcat1-fieldname = 'WEEK13'.
gt_fieldcat1-tabname = 'GT_OUT'.
gt_fieldcat1-seltext_l = l_val13.
APPEND gt_fieldcat1 TO gt_fieldcat.
ENDLOOP.
ENDFORM. " build_fieldccatlog
*& Form 13alv
text
FORM 13alv .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = ' '
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME =
IS_LAYOUT =
it_fieldcat = gt_fieldcat
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
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 = gt_out
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
ENDFORM. " 13alv
*& Form gt_out
text
FORM gt_out .
LOOP AT s_matnr.
AT NEW low.
gt_out-matnr = s_matnr-low.
************BEGIN OF FIRST WEEK******************************
LOOP AT gt_pbed WHERE matnr = s_matnr-low AND perxx4(2) = l_val15(2).
gt_out-week1 = gt_pbed-plnmg.
LOOP AT it_zcalendar WHERE sapweekno = gt_pbed-perxx.
IF p_mov = '321'.
LOOP AT it_mkpf WHERE budat GE it_zcalendar-startdt AND budat LE it_zcalendar-enddt.
LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '321'.
it_tot1 = it_tot1 + it_mseg-erfmg.
CLEAR it_mseg.
ENDLOOP.
LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '322'.
it_tot1_2 = it_tot1_2 + it_mseg-erfmg.
CLEAR it_mseg.
ENDLOOP.
ENDLOOP.
ENDIF.
IF p_mov = '101'.
LOOP AT it_mkpf WHERE budat GE it_zcalendar-startdt AND budat LE it_zcalendar-enddt.
LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '101'.
it_tot1 = it_tot1 + it_mseg-erfmg.
CLEAR it_mseg.
ENDLOOP.
LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '102'.
it_tot1_2 = it_tot1_2 + it_mseg-erfmg.
CLEAR it_mseg.
ENDLOOP.
ENDLOOP.
ENDIF.
IF p_mov = '131'.
LOOP AT it_mkpf WHERE budat GE it_zcalendar-startdt AND budat LE it_zcalendar-enddt.
LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '131'.
it_tot1 = it_tot1 + it_mseg-erfmg.
CLEAR it_mseg.
ENDLOOP.
LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '132'.
it_tot1_2 = it_tot1_2 + it_mseg-erfmg.
CLEAR it_mseg.
ENDLOOP.
ENDLOOP.
ENDIF.
CLEAR gt_pbed.
ENDLOOP.
ENDLOOP.
it_tot1 = it_tot1 - it_tot1_2.
it_back1 = gt_out-week1 - it_tot1.
CLEAR it_zcalendar.
END OF FIRST WEEK ************************
**********************SECOND WEEK***************************************
LOOP AT gt_pbed WHERE matnr = s_matnr-low AND perxx4(2) = l_val25(2).
int2 = int2 + 1.
CHECK int2 = 1.
gt_out-week2 = gt_pbed-plnmg.
LOOP AT it_zcalendar WHERE sapweekno = gt_pbed-perxx.
IF p_mov = '321'.
LOOP AT it_mkpf WHERE budat GE it_zcalendar-startdt AND budat LE it_zcalendar-enddt.
LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '321'.
it_tot2 = it_tot2 + it_mseg-erfmg.
CLEAR it_mseg.
ENDLOOP.
LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '322'.
it_tot2_2 = it_tot2_2 + it_mseg-erfmg.
CLEAR it_mseg.
ENDLOOP.
ENDLOOP.
ENDIF.
IF p_mov = '101'.
LOOP AT it_mkpf WHERE budat GE it_zcalendar-startdt AND budat LE it_zcalendar-enddt.
LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '101'.
it_tot2 = it_tot2 + it_mseg-erfmg.
CLEAR it_mseg.
ENDLOOP.
LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '102'.
it_tot2_2 = it_tot2_2 + it_mseg-erfmg.
CLEAR it_mseg.
ENDLOOP.
ENDLOOP.
ENDIF.
IF p_mov = '131'.
LOOP AT it_mkpf WHERE budat GE it_zcalendar-startdt AND budat LE it_zcalendar-enddt.
LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '131'.
it_tot1 = it_tot1 + it_mseg-erfmg.
CLEAR it_mseg.
ENDLOOP.
LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '132'.
it_tot1_2 = it_tot1_2 + it_mseg-erfmg.
CLEAR it_mseg.
ENDLOOP.
ENDLOOP.
ENDIF.
CLEAR gt_pbed.
ENDLOOP.
ENDLOOP.
it_tot2 = it_tot2 - it_tot2_2.
it_back2 = gt_out-week2 - it_tot2.
it_back2 = it_back2 + it_back1.
CLEAR it_zcalendar.
********************************End of The Second week***********************************************
*********************Third week*************************************************************************
LOOP AT gt_pbed WHERE matnr = s_matnr-low AND perxx4(2) = l_val35(2).
int1 = int1 + 1.
CHECK int1 = 1.
gt_out-week3 = gt_pbed-plnmg.
LOOP AT it_zcalendar WHERE sapweekno = gt_pbed-perxx.
IF p_mov = '321'.
LOOP AT it_mkpf WHERE budat GE it_zcalendar-startdt AND budat LE it_zcalendar-enddt.
LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '321'.
it_tot3 = it_tot3 + it_mseg-erfmg.
CLEAR it_mseg.
ENDLOOP.
LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '322'.
it_tot3_2 = it_tot3_2 + it_mseg-erfmg.
CLEAR it_mseg.
ENDLOOP.
ENDLOOP.
ENDIF.
IF p_mov = '101'.
LOOP AT it_mkpf WHERE budat GE it_zcalendar-startdt AND budat LE it_zcalendar-enddt.
LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '101'.
it_tot3 = it_tot3 + it_mseg-erfmg.
CLEAR it_mseg.
ENDLOOP.
LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '102'.
it_tot3_2 = it_tot3_2 + it_mseg-erfmg.
CLEAR it_mseg.
ENDLOOP.
ENDLOOP.
ENDIF.
IF p_mov = '131'.
LOOP AT it_mkpf WHERE budat GE it_zcalendar-startdt AND budat LE it_zcalendar-enddt.
LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '131'.
it_tot3 = it_tot3 + it_mseg-erfmg.
CLEAR it_mseg.
ENDLOOP.
LOOP AT it_mseg WHERE mblnr = it_mkpf-mblnr AND matnr = s_matnr-low AND bwart = '132'.
it_tot3_2 = it_tot3_2 + it_mseg-erfmg.
My first question to you would be ...you have defined the plant code as parameters so you can enter multiple plants...change that to a select-option and you would be able to display all the results.
Regards
Anurag -
hi,
my problem is that i want to get data from the oracle database(SQL) and then put it into a JTABLE.
The data seems to come correctly into the ResultSet rs Object, but i dont know how to put the data from the rs Object into the JTable.
Please reply,Hi,
If this is really important, I suggest that you post your question in the Swing Forums. As it is more appropriate for that forum, and you will get a quicker response.
Damian Sutton. -
Org Hierarchy Query(its urgent)
Hii Gurus,
Our client have the follwing requirement.
They need to see the parent node of the 0ORGUNIT in a separate column.
We do not know what it will take to accomplish this (enhancing 0ORGUNIT doesn't seem to be an option at this point),
Can u give me other options so that we can get.
As is:
Table
ClaenderYear/Month Organizational unit
JAN2008 60006395
JAN2008 20000000
JAN2008 20000026
JAN2008 20000040
To be:
Table
ClaenderYear/Month Organizational unit Parent Node
JAN2008 60006395
JAN2008 20000000 60006395
JAN2008 20000026 20000000
JAN2008 20000040 20000026
Thanks,
BabuYep that;s always the issue yeah when hierachy is activated in the report, all becomes messy.
0ORGunit is master data. Add another info object "ZPORGUNIT", then reference this to 0ORGUNIT.
Hope this helps. -
i want to delete my data from iphone while i doesnot have the access but i know my apple id so plz help me its urgent, i want to delete my data from iphone while i doesnot have the access but i know my apple id so plz help me its urgent
Welcome to the Apple Community.
You can only wipe your device when it is logged into iCloud and 'Find My Phone' is enabled, additionally the device will need to be switched on and connected to a wifi or cellular network.
Unfortunately, you cannot activate iCloud or 'Find My Phone' remotely. -
Plz help me its urgent i have iphone i dnt want my deleted texts my phone was jailbroken if i do restore widout backup should i jailbreak again ,should i unlock again,will the data of texts premantly erased plz answr me
Jailbroken phones cannot be discussed in an Apple forum. If you synced your phone with your computer the texts will be in the backup, so if you restore the backup you may get them back, but with a jailbroken phone it's anybody's guess what will happen.
-
Need a SQL query(Pls Its urgent)
Hi,
I want a SQL query for the foll..
Details r below..
Table AFPFTRAN
BU TRansactiondate Amt
13202 10-04-05 10,000
13203 11-05-05 20,000
13202 20-04-05 5,000
Table AFGENCOD
BU Clerk Name Clerk Code
13202 Amit TFBG
13203 Anand TFMG
I want a query to get data as below..
Tr Date TFBG TFMG
Apr 15,000 0
May 0 20,000
JUn 0 0
Jul 0 0
Aug
Sep
Aug
Nov
DEc
Jan
Feb
Mar
I want this to achieve using a single query...?How can I achive this?
Pls give the sol...
Adios...
Prashanth DeshmukhDoes it look like you need ?
SQL> select * from t;
BU TDATE AMT
13202 10.04.05 10000
13203 11.05.05 20000
13202 20.04.05 5000
SQL> select * from t1;
BU NAME CODE
13202 Amit TFBG
13203 Anand TFMG
SQL> SELECT pivot_month.mname, tops.TFBG, tops.TFMG
2 from
3 (
4 select to_char(t.tdate,'MM') month_no,
5 sum(decode(t1.code,'TFBG',t.amt,0)) TFBG,
6 sum(decode(t1.code,'TFMG',t.amt,0)) TFMG
7 from t1, t
8 where t.bu=t1.bu
9 and to_char(t.tdate,'yyyy') = 2005
10 GROUP BY t1.code, to_char(t.tdate,'MM')
11 ) tops,
12 (select rownum mn, to_char(to_date(rownum,'MM'),'MON') mname,
13 case when rownum between 1 and 3 then rownum + 9
14 else rownum - 3 end rn
15 from dict where rownum < 13) pivot_month
16 where pivot_month.mn = tops.month_no (+)
17 order by pivot_month.rn
18 /
MNA TFBG TFMG
APR 15000 0
MAY 0 20000
JUN
JUL
AUG
SEP
OCT
NOV
DEC
JAN
FEB
MAR
12 rows selected.Rgds. -
Plz some body answer for this..its urgent
Hai can anyone help me?
I have lengthy report containing 1000s of Records in it..
When i disply this report in viewer,i have to use horizontal scroll bar of IE to view the lengthy report,which will in turn display long page ofit.
But,My requirement is,i want to display the length report in singe screenshot itself..it means i should not use IE Horizontal scroll bar to view the next set of records in report..
does discoverer supports providing any scroll bar to view horizontal shots like what we do in Excel.
Hope u understand what i am coming to say..if not understandable plz query me i will tell in details..
But plz somebody reply me for this query..its urgent.
regards
ckBrother this is not the correct way to ask.
In your words you are commanding...
But we have to request the EXPERTS.
WE are in learning stage dont order or command.
Just request them in another way...... then only u get the required reply....
With regards,
Prasad. -
Plz!!!! Its urgent regarding Form personalization
Hi all ....
How to modify the query in existing Lov using Form Personalization in Oracle R12.
Plz Provide the steps to accomplish this task.
Actually i want to add more column value in lov window. PlzDuplicate thread (please post only once).
Help me Form Personalization in Oracle apps R12 - its urgent!!!!!!!
Help me Form Personalization in Oracle apps R12 - its urgent!!!!!!!
Please update your other thread instead of creating duplicate threads across the forums.
Thanks! -
Delete duplicate entriess from the internal table its urgent pls help.
Hi friends,
Hope everybody is doing good,Here is m query on delete duplicate data from the intenal table.
I have an internal table which contain data in the following format.
Doc No Comp Cod Vendor Assignment
1500000009 JM11 00000000
1500000008 JM11 20070212(Repeating)
1500000007 JM11 20070212
1500000006 JM11 00000000
1500000005 JM11 00000000
1500000004 JM11 00000000(Repeating)
1500000003 JM11 00000000 (Repeating)
1500000002 JM11 00000000
1500000001 JM11 20050302
1500000000 JM11 00000000
1500000003 JM11 10000088
1500000001 JM11 10000088
1500000030 JM11 10006260
1500000010 JM11 10006269
1500000008 JM11 10006269
1500000006 JM11 10006269
1500000004 JM11 10006269
if you see the document numbers,there are some document number which are repeating here,there are some document numer which contain vendor number but not the assignments,some of the document numbers contain the assignments but not the vendors.
If my internal table contain this kind of data with repeted document numbers than i want the document number which contains only the vendor number.
Pls help me with the appropriate logic,its urgent.
Thanks a lot
mrutyun^Hi,
<u><b>Deleting Adjacent Duplicate Entries</b></u>
To delete adjacent duplicate entries use the following statement:
DELETE ADJACENT DUPLICATE ENTRIES FROM <itab>
[COMPARING <f1> <f2> ...
|ALL FIELDS].
The system deletes all adjacent duplicate entries from the internal table <itab>. Entries are
duplicate if they fulfill one of the following compare criteria:
Without the COMPARING addition, the contents of the key fields of the table must be
identical in both lines.
If you use the addition COMPARING <f1> <f2> ... the contents of the specified fields <f1>
<f2> ... must be identical in both lines. You can also specify a field <fi> dynamically as
the contents of a field <ni> in the form (<ni>). If <ni> is empty when the statement is
executed, it is ignored. You can restrict the search to partial fields by
specifying offset and length.
If you use the addition COMPARING ALL FIELDS the contents of all fields of both lines
must be identical.
You can use this statement to delete all duplicate entries from an internal table if the table is
sorted by the specified compare criterion.
If at least one line is deleted, the system sets SY-SUBRC to 0, otherwise to 4.
Examples
DATA: BEGIN OF LINE,
COL1 TYPE I,
COL2 TYPE I,
END OF LINE.
DATA ITAB LIKE HASHED TABLE OF LINE WITH UNIQUE KEY COL1.
DO 4 TIMES.
LINE-COL1 = SY-INDEX.
LINE-COL2 = SY-INDEX ** 2.
INSERT LINE INTO TABLE ITAB.
ENDDO.
LINE-COL1 = 1.
DELETE TABLE ITAB: FROM LINE,
WITH TABLE KEY COL1 = 3.
LOOP AT ITAB INTO LINE.
WRITE: / LINE-COL1, LINE-COL2.
ENDLOOP.
The output is:
2 4
4 16
The program fills a hashed table with a list of square numbers. The DELETE
statement delete the lines from the table where the key field COL1 has the contents 1 or 3.
Regards,
Bhaskar -
Hi All how to add new payscale for an employee in sap hr-abap,its urgent
Hi All ,
how to add new payscale for an employee in sap hr-abap,its urgent.
Message was edited by:
bharat kumar
Message was edited by:
bharat kumarHi
If that field which you wants to add is available in one of the structures like EKKO,EKPO then you can add that field just beside the other fields
If that field is not there in the any of the structures then you can define a variable using define command
/: DEFINE &VAR&
/ &VAR& = <some value>
or you can write subroutines to fetch the data from outside tables and can use those fields data in the script
<b>Reward points for useful Answers</b>
Regards
Anji -
Step by step bapi to convert SAP to XML please its urgent
step by step bapi to convert SAP to XML please its urgent
full points if with full example and coding in ABAP,
Thank you,
Regards,
Jagrut Shuklayes i want to convert Catsdb table into xml format and safely in server, i.e secured place
-
Error while Fetching data from BUT0ID data its urgent
hi all,
SElECT SINGLE partner FROM but0id INTO l_bp
WHERE type EQ 'BUP008' AND
idnumber EQ edid4-sdata+45(10).
this is my select statement its not working i have to fetch partner number with the help of sdata.
when i give 69093 instead of edid4-sdata+45(10) then i am getting the output
when i specify edid4-sdata+45(10) then it is not working
please tell me any one its urgent
Thanks & regards
VardhanHi,
Try doing this.Take the offset of sdata and move it into a varaiable and then check the condition in the query.
Regards,
Sharath -
Hi All, How we can handle a table control in bdc - in detail its urgent pls
Hi All, How we can handle a table control in bdc - in detail its urgent. Please send me the explanation in detail.
Thanks®ards.
Bharathi,
Create Table Control
Step 1 (Create new structure for table control)
Type is name of structure (ZTC_EKKO) and press create
Step 2 (Create Program)
Goto transaction SE80(Object Navigator) -> Repository Browser -> Program.
Enter your program name, please ensure that is begins with SAPMZ as this is a module pool (dialog program).
Press enter to create, and press yes!
Ensure that you create a top include, and press Enter.
Accept the name created for the top include.
Press Enter.
Press Save
Step 3 (Create TOP include)
Double click on the top include and enter following ABAP code:
Tables: ZTC_EKKO.
controls: tc100 type tableview using screen 100.
data: ok_code type sy-ucomm.
data: it_ekko type standard
table of ZTC_EKKO initial size 0,
wa_ekko type ZTC_EKKO.
data: ok_code type sy-ucomm.
Press Save and Activate
Step 4 (Create screen)
Right click the program to create a screen 100 for the dialog. Enter Short description, set screen type to Normal and enter 0 or blank into Next screen. Then move to Element List tab and enter the OK code as OK_CODE (i.e. the same as what you declared in the top include with data: ok_code type sy-ucomm).
Step 5 (Create table control)
Press the Layout button to bring up the screen painter editor.
Press table control button and drag it on to the screen, enter the name of table control created in TOP include (TC100). Now press the yellow button for attributes and set the table control as below options
Step 6 (Populate table control )
Press the orange button (Fields). On the next screen enter ZTC_EKKO and press the Get from Dict button. Select the fields you want (all) and press enter. Now drag them onto your Table Control.
Below is the result, there will been syntax errors if we check now! So Save and go back into the flow logic tab.
Step 7 (Create flow control )
Within the flow logic of screen 100 and create two modules, one to select the data from the database and the other to move the selected fields into the table control. Also insert the two loop statements to populate and retrieve the lines of the table control.
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
module data_retrieval.
loop at it_ekko into wa_ekko with control TC100.
module populate_screen.
endloop.
PROCESS AFTER INPUT.
loop at it_ekko.
endloop.
MODULE USER_COMMAND_0100.
Double click the module data_retrieval to create and click yes to get past the popup. Ensure that a new include is created to hold all the PBO modules (default). Press enter.
Select 10 rows of data from the EKKO table and load into the internal table it_ekko. Go back to the flow logic to load this data into the Table Control.
check this one
REPORT ZCALL_TRANS_TAB1 .
TABLES: LFA1,LFBK,lfb1.
data: BEGIN OF it_vendor occurs 0,
LIFNR LIKE LFA1-LIFNR,
bukrs like lfb1-bukrs,
END OF it_vendor.
DATA: BEGIN OF IT_BANK occurs 0,
LIFNR LIKE LFA1-LIFNR,
BANKS LIKE LFBK-BANKS,
BANKL LIKE LFBK-BANKL,
BANKN LIKE LFBK-BANKN,
koinh like lfbk-koinh,
END OF IT_BANK.
data: it_bdcdata like bdcdata occurs 0 with header line.
data: it_messages like bdcmsgcoll occurs 0 with header line.
*selection screen.
selection-screen: begin of block b1 with frame.
parameters: p_file like rlgrap-filename default 'c:/vendor.txt'
obligatory.
parameters: p_file1 like rlgrap-filename default 'c:/xyz.txt'
obligatory.
selection-screen: end of block b1.
*at selection screen.
at selection-screen on value-request for p_file.
perform f4_help using p_file.
at selection-screen on value-request for p_file1.
perform f4_help1 using p_file1.
*start of selection
start-of-selection.
*******uploading file
perform upload_file using p_file P_FILE1.
******open session.
perform populate_data.
*& Form f4_help
form f4_help using p_p_file.
data: l_file type ibipparms-path.
call function 'F4_FILENAME'
importing
file_name = l_file.
p_file = l_file.
endform. " f4_help
*& Form POPULATE_DATA
form populate_data .
DATA: L_STRING TYPE STRing.
DATA: L_COUNTER(2) TYPE n.
loop at it_vendor.
perform bdc_dynpro using 'SAPMF02K' '0106'.
perform bdc_field using 'BDC_CURSOR'
'RF02K-D0130'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'RF02K-LIFNR'
it_vendor-lifnr.
perform bdc_field using 'RF02K-BUKRS'
it_vendor-bukrs.
perform bdc_field using 'RF02K-D0130'
'X'.
perform bdc_dynpro using 'SAPMF02K' '0130'.
perform bdc_field using 'BDC_CURSOR'
'LFBK-bankn(03)'.
perform bdc_field using 'BDC_OKCODE'
'=UPDA'.
*********bank details
CLEAR l_COUNTER.
LOOP AT IT_BANK WHERE LIFNR = IT_VENDOR-LIFNR.
l_COUNTER = l_COUNTER + 1.
clear l_string.
CONCATENATE 'lfbk-banks(' l_counter ')' into l_string.
perform bdc_field using l_string
it_bank-banks.
clear l_string.
CONCATENATE 'lfbk-bankl(' l_counter ')' into l_string.
perform bdc_field using l_string
it_bank-bankl.
clear l_string.
CONCATENATE 'lfbk-bankn(' l_counter ')' into l_string.
perform bdc_field using l_string
it_bank-bankn.
endloop.
******CALL TRANSACTION.
call transaction 'FK02' using it_bdcdata mode 'A'
messages into it_messages.
write:/ sy-subrc.
perform format_messages.
clear it_bdcdata.
refresh it_bdcdata.
endloop.
endform. " POPULATE_DATA
*& Form FORMAT_MESSAGES
form format_messages .
data: l_msg(100).
loop at it_messages.
call function 'FORMAT_MESSAGE'
exporting
id = it_messages-msgid
lang = sy-langu
no = it_messages-msgnr
v1 = it_messages-msgv1
v2 = it_messages-msgv2
v3 = it_messages-msgv3
v4 = it_messages-msgv4
importing
msg = l_msg
exceptions
not_found = 1
others = 2
write:/ l_msg.
endloop.
endform. " FORMAT_MESSAGES
*& Form bdc_dynpro
form bdc_dynpro using value(p_program)
value(p_screen).
it_bdcdata-program = p_program.
it_bdcdata-dynpro = p_screen.
it_bdcdata-dynbegin = 'X'.
append it_bdcdata.
clear it_bdcdata.
endform. " bdc_dynpro
*& Form bdc_field
form bdc_field using value(p_fnam)
value(p_fval).
it_bdcdata-fnam = p_fnam.
it_bdcdata-fval = p_fval.
append it_bdcdata.
clear it_bdcdata.
endform. " bdc_field
*& Form upload_file
form upload_file using p_p_file
p_p_file1.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
CODEPAGE = ' '
FILENAME = P_P_FILE
FILETYPE = 'DAT'
HEADLEN = ' '
LINE_EXIT = ' '
TRUNCLEN = ' '
USER_FORM = ' '
USER_PROG = ' '
DAT_D_FORMAT = ' '
IMPORTING
FILELENGTH =
TABLES
data_tab = IT_VENDOR
EXCEPTIONS
CONVERSION_ERROR = 1
FILE_OPEN_ERROR = 2
FILE_READ_ERROR = 3
INVALID_TYPE = 4
NO_BATCH = 5
UNKNOWN_ERROR = 6
INVALID_TABLE_WIDTH = 7
GUI_REFUSE_FILETRANSFER = 8
CUSTOMER_ERROR = 9
NO_AUTHORITY = 10
OTHERS = 11
IF sy-subrc <> 0.
MESSAGE I000(ZZ) WITH 'UNABLE TO UPLOAD'.
STOP.
ENDIF.
*******UPLOADING BANK DETAILS
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
CODEPAGE = ' '
FILENAME = P_P_FILE1
FILETYPE = 'DAT'
HEADLEN = ' '
LINE_EXIT = ' '
TRUNCLEN = ' '
USER_FORM = ' '
USER_PROG = ' '
DAT_D_FORMAT = ' '
IMPORTING
FILELENGTH =
TABLES
data_tab = IT_BANK
EXCEPTIONS
CONVERSION_ERROR = 1
FILE_OPEN_ERROR = 2
FILE_READ_ERROR = 3
INVALID_TYPE = 4
NO_BATCH = 5
UNKNOWN_ERROR = 6
INVALID_TABLE_WIDTH = 7
GUI_REFUSE_FILETRANSFER = 8
CUSTOMER_ERROR = 9
NO_AUTHORITY = 10
OTHERS = 11
IF sy-subrc <> 0.
MESSAGE I000(ZZ) WITH 'UNABLE TO UPLOAD'.
STOP.
ENDIF.
endform. " upload_file
*& Form f4_help1
-->P_P_FILE1 text
form f4_help1 using p_p_file1.
data:l_file1 type ibipparms-path.
CALL FUNCTION 'F4_FILENAME'
IMPORTING
FILE_NAME = l_file1.
p_file1 = l_file1.
endform. " f4_help1
http://sap-img.com/abap/bdc-example-using-table-control-in-bdc.htm
Regards,
Sankar
Maybe you are looking for
-
Where is the documentation for Jabber for iPhone and iPad 9.6.1 ???
Jabber for iPhone and iPad 9.6.1 was released on Tuesday Jan 14th 2014. I see the 4 .cop files on cisco.com in a zip file copfiles_iOS96.zip. What is the difference between the 4 files? Application in the AppStore on my iPad, but there are no relea
-
See title Issues with device iPad apparently being registered to us store (now living in Belgium) when trying to upgrade apps which have fixes pending. How do I get these fixes Some apps I have bought while living in us and some while living in eu
-
How do I select a field and between selected rows insert auto-incremented numbers?
I have a spreadsheet in Numbers '09 and I want to number the rows so that I can sort by the original order after I've already sorted by different items. In Excel this is fairly easy, but how do you do this in Numbers? How do I select a series of rows
-
What are the real data files of an Oracle installation?
When I install an Oracle (XE) database then a lot of stuff is copied/setup: *.exe, jdbc driver, service tools, scripts, config files,.... But which are the real data files (under WinXP)? I mean the files where all the individual, personal table defin
-
CS6 photoshop constantly crashing with OpenGL. Need help
OpenGL seems to crash randomly, but constantly. Previously running CS3, with few issues. I recently upgrade the graphics card after OpenGL testing failed, and it seem to be the most likely solution based on the old card. Working file is located on C