Determine previous date from the selection date

Hi Guys,
I need to get a previous date from the selection date mm/dd/yyyy
Eg:
Selection date is 02/28/2008
Sol- -02/27/2008
Selection date - 03/01/2008
Sol- 02/29/2008
Selection date - 04/02/2008
Sol-04/01/2008
If i do ofset -1 in query ....it goes -1 month. In Exit if i do Sys-datnum -1. It works but not in case for Feburary month. Since 2008 year has Feb (29 days) but for 2007 (28 days)
Regards

Hi,
Problem is i have a 0Date restricted to a variable and if i do offset-1 to that variable it goes previous month not the date.
I dont have 0CALDAY in my cube. Can i do in the UserExit.
If i do sy-datum-1. Will it work?
Because the FEb one is the main problem
Regards

Similar Messages

Updating a table with the data from the select list

I have 2 select lists on a page...first select list displays vendor no and vendor name from the table vendor (vendor_no, vendor_name, address, city, state, zip, ph no)
second list displays contact no and contact name from the table contact (contact_no, contact_name, email_addrs)
i have a submit button...once it is clicked the vendor_no from the first list and the contact_no from the second list must be inserted into the third table vendor_contact (vendor_contact_no, contact_no, vendor_no) and also there must be a condition to check if the entry already exists or not...can any one tell me how this can be done...

Why not design your page just on your third table (vendor_contact), and those fields (which will already be defined as part of that table) can be defined there as your select lists. Then make sure you have a Primary Key (or Unique Key) defined on the table to prevent duplicates.
It makes for a much cleaner looking page, and far easier to implement as well.
Hope this made sense and helps.
Bill Ferguson

How to get the date starting from 1 to the current date from the system dat

Dear all,
Please tell me how to get the date starting from 1 based on the system date
and it should come with respect of time also.
example.
suppose today is 6 Dec, 2006
so ABAP report should find the 1 dec. 2006.
Please help me as soon as possible.
Regards,

concatenate sy-datum0(2) '01' sy-datum4(4) into v_firstdate.
or yo ucan use the fm:
HR_JP_MONTH_BEGIN_END_DATE
usage:
    call function 'HR_JP_MONTH_BEGIN_END_DATE'
         exporting
              iv_date             = sy-datum
         importing
              ev_month_begin_date = gv_begda
              ev_month_end_date   = gv_endda.
Regards,
Ravi
Message was edited by:
        Ravi Kanth Talagana

Previous quarter from the current date using Date functions

hi all,
how can i get the value of the previous quarter and previous month using using NOW() function in the formula.
regards,
Rk
Edited by: Rk on Feb 13, 2009 9:28 AM

Hi Pk,
This "DSTR(DADD(NOW(),-1,'Q'),'YYYYQ')" will give you just an year 2008 (if you run this today).
But this "DSTR(DADD(NOW(),-1,'Q'),'YYYYMM)" will give you an year and month of prev quarter
200811(if you run this today)
Ola

Is it possible to recover limited data from the Calendar/Date Book?

During a recent sync, my Blackberry 8330 deleted certain old calendar data (everything that wasn't a repeating event). Is there a way I can recover these old calendar entries without restoring a complete backup that would erase more recent entries? [I have reset the synchronization and configured it correctly going forward, but I really need some of the old calendar data]

hmmm... if you must, AND if you have a recent backup of the BB, you can use ABC Amber Converter to MERGE two IPD backup files from your PC.
http://www.processtext.com/abcblackberry.html
1. If any post helps you please click the below the post(s) that helped you.
2. Please resolve your thread by marking the post "Solution?" which solved it for you!
3. Install free BlackBerry Protect today for backups of contacts and data.
4. Guide to Unlocking your BlackBerry & Unlock Codes
Join our BBM Channels (Beta)
BlackBerry Support Forums Channel
PIN: C0001B7B4 Display/Scan Bar Code
Knowledge Base Updates
PIN: C0005A9AA Display/Scan Bar Code

Displaying the Selected Data in the Next Page Upon Selection????

Hi,
In my first page i have a list of data set in a displayTag with a
radio button as a decorator. When the user clicks the a particular
radiobutton the whole data (record) related to that radiobutton be selected and when the user clicks a button at the bottom the whole(selected data) should be transferred to the next page(jsp page). How
to do this??? The displayTag is using a formbean . How to get the data
from the selected record and populate it in the next page ???
Please do provide an answer for this Since it is quite urgent...
Thanks,
--JavaCrazyLOVER

It all depends on how you have the data displayed in the table?
If u have that information in Session (some kind of array), all you need to do is loop and then find the particular record and display it.

Issue In Providing 255 Charcters From The Selection Screen Select-Option

Dear Guru,
I am searching for table field with having length = 255 character.
which i want to use in select-option for proving data from the selection screen.
I have found the table myhlp and it associated field allvals which is having length = 255.
I am using it as below in my selection screen for the value to be provided 255 character long.
SELECTION-SCREEN : BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
SELECT-OPTIONS   : s_mlbody FOR myhlp-allvals NO INTERVALS.
SELECTION-SCREEN : END OF BLOCK b3.
Now when i am going for the multiple selection option --> It is providing me the Multiple selection popup and giving me the provision of provide multiple line .
But the issue is that --> For a particular single value line in the popup i am able to enter only 45 charcters not 255 character.
But i need to put 255 charcter for particular line in a single value..
Please give me some guideline how resolve this or any other alternative way of reading the 255 charcter from the selection screen
Thanks & regards
Saifur Rahaman

Hi,
     As said by A@s selction screen with table control will be a good option.
design a custom screen with SUBSCREEN as screeen attribute using tcode se51.
For table control sample - go through Tcode ABAPDOCU - abap user dialogs-screens-complex screen- table control
Try Following,
REPORT Zsample .
controls: tc type tableview using screen 200.
parameters: p_user type myhlp-username.
data: begin of itab occurs 50,
      field1(255) type c,
      end of itab.
data: i_out type standard table of myhlp.
SELECTION-SCREEN BEGIN OF TABBED BLOCK MAX FOR 22 LINES.
SELECTION-SCREEN TAB (25) TABS1 USER-COMMAND UCOMM1
         DEFAULT SCREEN 200.
SELECTION-SCREEN END OF BLOCK MAX.
start-of-selection.
select * from myhlp into table i_out for all entries in itab
          where username eq p_user
                and allvals = itab-field1.
MODULE READ_ITAB INPUT.
insert itab index tc-current_line.
ENDMODULE.                 " READ_ITAB INPUT

I am attempting to have cells use data from a selective month from the year before so that I can show actual from the prio. years each month.

I am attempting to have cells use data from a selective month from the year before so that I can show actual from the prio. year each month. I need to create a spreedsheet using the the Acutlas from the year-to-date and from last year-to-date, but need to report each month.

Hi Tony,
Answering your question would be easier given a screen shot of the source table and one of what you want the summary table to look like.
Is the data you want for each month in a single cell o the source table, or does the summary table need to collect February's data (for example) from several cells and do some math with those numbers before presenting them on the summary table?
Regards,
Barry

To pass the selected data to a variable from the drop down list in abap wd

Hi,
I have already created a drop down list and populated it with data from table by using the node and linking it with the internal table. Now I need to know which element is selected so based on that I need to perform some function. eg. based on the selected data , i need to populate the next drop down list.
A demo code will be really helpful.
Thanks and Regards
Tenzin

Hi,
On selcting the value from the drop down, we have one event ONSELECT.
Write the code in this event.
Get the attribute value to lV_xxxxxx using get attribute.
then using that you can fill the next DDBK attribute.
method wddoinit .
data:
        lo_nd_spfli type ref to if_wd_context_node,
        lo_el_spfli type ref to if_wd_context_element,
        ls_spfli type wd_this->element_spfli.
data:
      lv_carrid LIKE ls_sflight-carrid,
         itab_carrid type wd_this->elements_spfli,
         wa_carrid type wd_this->element_spfli,
         lo_nodeinfo_spfli type ref to if_wd_context_node_info,
         lt_value_set type wdy_key_value_table,
         ls_value_set type wdy_key_value.
lo_nd_spfli = wd_context->get_child_node( name = wd_this->wdctx_spfli ).
lo_nodeinfo_spfli = lo_nd_spfli->get_node_info( ).
select carrid
    from spfli
    into corresponding fields of table itab_carrid.
if sy-subrc = 0.
    sort itab_carrid by carrid.
    delete adjacent duplicates from itab_carrid comparing carrid.
endif.
loop at itab_carrid into wa_carrid.
    ls_value_set-key = wa_carrid-carrid.
    ls_value_set-value = wa_carrid-carrid.
    append ls_value_set to lt_value_set.
endloop.
lo_nodeinfo_spfli->set_attribute_value_set( name = 'CARRID'
value_set = lt_value_set ).
endmethod.
in the event of first DDBK, write the select statement wsing where condition of lv_XXX.
and append the record as above.
Regards,
sarath

FISCAL year from Date in the Selection Screen.

Hi Folks,
Is there any function module which returns the Fiscal year if we provide the date in ranges.
I mean, I have a select option for date in the selection screen.So,if a user enters the date say 01042007 01042007 it should return the corresponding fiscal year.
Kindly let me know if anyone here has any idea regarding this.
Thanks,
K.Kiran.

Hello,
Check these FM's
FTIS
FTI_FISCAL_YEAR_MONTH_GET
KBPA Budget/Plan - application-specific
KBPA_GET_START_FISCAL_YEAR Determine Start Year for Funds Management
KBPA_GET_START_FISCAL_YEAR_OPT
Vasanth

ORA-13773: insufficient privileges to select data from the cursor cache

We are trying to create STS using the below query:
exec sys.dbms_sqltune.create_sqlset(sqlset_name => 'TEST_STS', -
sqlset_owner => 'SCOTT');
The below procedure will load sql starting with 'select /*MY_CRITICAL_SQL*/%' from cursor cache into STS TEST_STS.
DECLARE
stscur dbms_sqltune.sqlset_cursor;
BEGIN
OPEN stscur FOR
SELECT VALUE(P)
FROM TABLE(dbms_sqltune.select_cursor_cache(
'sql_text like ''select /*MY_CRITICAL_SQL*/%''',
null, null, null, null, null, null, 'ALL')) P;
dbms_sqltune.load_sqlset(sqlset_name => 'TEST_STS',
populate_cursor => stscur,
sqlset_owner => 'SCOTT');
END;
We were getting the following error: ORA-13761: invalid filter
After granting the below privileges to the user we are getting the below error:
Err msg:
ERROR at line 1:
ORA-13773: insufficient privileges to select data from the cursor cache
ORA-06512: at "SYS.DBMS_SQLTUNE", line 2957
ORA-06512: at line 10
For SQL Tuning Sets:
GRANT ADMINISTER ANY SQL TUNING SET TO scott;
For Managing SQL Profiles:
GRANT CREATE ANY SQL PROFILE TO scott;
GRANT ALTER ANY SQL PROFILE TO scott;
GRANT DROP ANY SQL PROFILE TO scott;
For SQL Tuning Advisor:
GRANT ADVISOR TO scott;
Others:
GRANT SELECT ON V_$SQL TO SCOTT;
GRANT SELECT ON V_$SQLAREA TO SCOTT;
GRANT SELECT ON V$SQLAREA_PLAN_HASH TO SCOTT;
GRANT SELECT ON V_$SQLSTATS TO SCOTT;
grant select on sys.DBA_HIST_BASELINE to SCOTT;
grant select on sys.DBA_HIST_SQLTEXT to SCOTT;
grant select on sys.DBA_HIST_SQLSTAT to SCOTT;
grant select on sys.DBA_HIST_SQLBIND to SCOTT;
grant select on sys.DBA_HIST_OPTIMIZER_ENV to SCOTT;
grant select on sys.DBA_HIST_SNAPSHOT to SCOTT;
Any info from your end to resolve the issue will be of great help.
Thanks

What is the alert log reporting. Are you seeing any other errors than these in the alert log too?

How to dispaly datas from the table, base on the selection screen

hi there gurus,
im currently developing a stock aging report,
i have completed one program but it do not allow me to excutes the program althought the syntax is correct.
i would to get some ideas from you, regarding how to extract the datas from the tables?
my selction screen will be, mat number, date, and gl account.
and the out put datas are, mbew-matnr, makt-maktx, mbew-lbkum, mara_meins, mbew-salk3,and the consumptions for the past 12months and the values for it.
can u plz guide me with this,
thank you,.
this is kind of very urgent program that i need to finish , plz help me.

here is the total code the i do
REPORT ZSTK_AGING_REP2.
*TABLES
TABLES: mseg,
        mara,
        makt,
        SKAT,
        SKA1,
        MARV,
        T001,
        T030,
        T149D,
        AM07M,
        MCMSEG,
        T001K,
        T001W,
        T134M,
        vbak,
        mbew,
mcon, rmcb0, marc, t024w, mvke, v134w, t438a, propf, maprf, t000, t024e
, tvko.
DATA: BEGIN OF ta_material OCCURS 2,
       werks LIKE mard-werks,
       lgort LIKE mard-lgort,
       matnr LIKE mard-matnr,
       labst LIKE mard-labst,
       umlme LIKE mard-umlme,
       insme LIKE mard-insme,
       einme LIKE mard-einme,
       speme LIKE mard-speme,
       retme LIKE mard-retme,
       verpr LIKE mbew-verpr,
       maktx LIKE makt-maktx,
       meins LIKE mara-meins,
      bukrs LIKE t001-bukrs,
      konto LIKE t030-konts,
      butxt LIKE t001-butxt,
      txt50 LIKE skat-txt50,
      MABTR LIKE MCMSEG-DMBTR,
      SKBTR LIKE MCMSEG-DMBTR,
      WAERS LIKE T001-WAERS,
      WAER2 LIKE T001-WAERS,
      BWKEY LIKE MBEW-BWKEY,
      LBKUM LIKE MBEW-LBKUM,
     MEINS LIKE MARA-MEINS,
         SALK3 LIKE MBEW-SALK3,
         WAERS1 LIKE T001-WAERS,
         BUKRS1 LIKE T001-BUKRS,
         KONTO1 LIKE T030-KONTS,
        lbkum LIKE mbew-lbkum,
          erdat LIKE vbak-erdat,
      END OF ta_material.
DATA: BEGIN OF ta_mseg OCCURS 2,
        mblnr LIKE mseg-mblnr,
*->Begin of KL02+ -
        mjahr like mseg-mjahr,
        zeile like mseg-zeile,
*->End of KL02+ -
        meins LIKE mseg-meins,
        menge LIKE mseg-menge,
        werks LIKE mseg-werks,
        lgort LIKE mseg-lgort,
        matnr LIKE mseg-matnr,
        budat LIKE mkpf-budat,
        saknr LIKE SKA1-SAKNR,
      END OF ta_mseg.
single recs based on MATNR
DATA: BEGIN OF i_matnr OCCURS 0,
        werks LIKE mard-werks,
        lgort LIKE mard-lgort,
        matnr LIKE mard-matnr,
        maktx LIKE makt-maktx,
        mblnr LIKE mseg-mblnr,
        verpr LIKE mbew-verpr,
        labst LIKE mard-labst,                    "Valuated stock with
*unrestricted use
        umlme LIKE mard-umlme,                    "Stock in transfer
*(from one storage location to another)
        insme LIKE mard-insme,                    "Stock in quality
*inspection
        einme LIKE mard-einme,                    "Total Stock of All
*Restricted Batches
        speme LIKE mard-speme,                    "Blocked stock
        retme LIKE mard-retme,                    "Blocked Stock Returns
        meins LIKE mara-meins,                    "base unit
      bukrs LIKE t001-bukrs,
      konto LIKE t030-konts,
      butxt LIKE t001-butxt,
      txt50 LIKE skat-txt50,
      MABTR LIKE MCMSEG-DMBTR,
      SKBTR LIKE MCMSEG-DMBTR,
      WAERS LIKE T001-WAERS,
      WAER2 LIKE T001-WAERS,
      BWKEY LIKE MBEW-BWKEY,
      LBKUM LIKE MBEW-LBKUM,
     MEINS LIKE MARA-MEINS,
         SALK3 LIKE MBEW-SALK3,
         WAERS1 LIKE T001-WAERS,
         BUKRS1 LIKE T001-BUKRS,
         KONTO1 LIKE T030-KONTS,
        lbkum LIKE mbew-lbkum,
       END OF i_matnr.
recs based on MBLNR
DATA: BEGIN OF i_mblnr OCCURS 0,
        mblnr LIKE mseg-mblnr,
        werks LIKE mseg-werks,
        lgort LIKE mseg-lgort,
        matnr LIKE mseg-matnr,
        menge LIKE mseg-menge,
        meint LIKE mseg-meins,
        budat LIKE mkpf-budat,
     bukrs LIKE t001-bukrs,
     konts LIKE t030-konts,
     butxt LIKE t001-butxt,
     txt50 LIKE skat-txt50,
     MABTR LIKE MCMSEG-DMBTR,
     SKBTR LIKE MCMSEG-DMBTR,
     WAERS LIKE T001-WAERS,
     WAER2 LIKE T001-WAERS,
     BWKEY LIKE MBEW-BWKEY,
      LBKUM LIKE MBEW-LBKUM,
     MEINS LIKE MARA-MEINS,
         SALK3 LIKE MBEW-SALK3,
         WAERS1 LIKE T001-WAERS,
         BUKRS1 LIKE T001-BUKRS,
         KONTO1 LIKE T030-KONTS,
       END OF i_mblnr.
TYPES: BEGIN OF t_mat,
        lgort LIKE mseg-lgort,
        werks LIKE mseg-werks,
        matnr LIKE mseg-matnr,
        mblnr LIKE mseg-mblnr,
        maktx LIKE makt-maktx,
        meins LIKE mara-meins,
meng0 LIKE mbew-lbkum,
value0 LIKE mbew-salk3,
       meng0 LIKE mard-labst,                   "0 to 10 days
       value0 LIKE mseg-dmbtr,
       meng1 LIKE mard-labst,                   "11 to 30 days
       value1 LIKE mseg-dmbtr,
       meng2 LIKE mard-labst,                   "31 to 60 days
       value2 LIKE mseg-dmbtr,
       meng3 LIKE mard-labst,                   "61-90
       value3 LIKE mseg-dmbtr,
       meng4 LIKE mard-labst,                   "90 days onwards
       value4 LIKE mseg-dmbtr,
       END OF t_mat.
DATA: i_mat2 TYPE t_mat OCCURS 0 WITH HEADER LINE.
TYPES: BEGIN OF t_mat2,
        lgort LIKE mard-lgort,                    " storage location
        cnt0(5),
        cnt1(5),
        cnt2(5),
        cnt3(5),
        cnt4(5),
   meng0 LIKE mbew-lbkum,
value0 LIKE mbew-salk3,
       meng0 LIKE mard-labst,                   "0 to 10 days
       value0 LIKE mseg-dmbtr,
       meng1 LIKE mard-labst,                   "11 to 30 days
       value1 LIKE mseg-dmbtr,
       meng2 LIKE mard-labst,                   "31 to 60 days
       value2 LIKE mseg-dmbtr,
       meng3 LIKE mard-labst,                   "61-90
       value3 LIKE mseg-dmbtr,
       meng4 LIKE mard-labst,                   "90 days onwards
       value4 LIKE mseg-dmbtr,
       END OF t_mat2.
DATA: i_matsum TYPE t_mat2 OCCURS 0 WITH HEADER LINE.
DATA: w_mengb TYPE mbew-lbkum,
       w_workqyt TYPE mbew-lbkum,
       w_index TYPE sy-tabix,
*DATA: w_mengb TYPE mard-labst,     "tmp Balance qty
     w_workqty TYPE mard-labst,   "Work qty
     w_index TYPE sy-tabix,
      w_days(5) TYPE n,           "duration difference (days)
      w_mths(5) TYPE n,           "duration difference (mths)
      w_dat1 TYPE sy-datum,        "date
      w_dat2 TYPE sy-datum,        "today's date
      w_detl(1) TYPE c,
      w_summ(1) TYPE c,
      w_denom TYPE i,
      w_numer TYPE i,
      w_conv TYPE i,
      w_ttlcnt TYPE i,
      w_cnt TYPE i,
      v_topofpage(1),
     w_meng LIKE mard-labst,
       w_meng LIKE mbew-lbkum,
*sapscript values
      w_title(20) TYPE c.              "Summary / Detail Report
DATA: lv_peinh LIKE mbew-peinh, "Price Unit
      lv_verpr LIKE mbew-verpr. "Moving Price
proram comes here
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_werks FOR mseg-werks,
                s_lgort FOR mseg-lgort,
                s_matnr FOR mara-matnr,
                s_saknr FOR ska1-saknr,
                S_ERDAT FOR VBAK-ERDAT.
PARAMETERS: pck_detl RADIOBUTTON GROUP rep1,
            pck_summ RADIOBUTTON GROUP rep1,
            pck_dtsm RADIOBUTTON GROUP rep1 DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK blk1.
top of the page
TOP-OF-PAGE.
PERFORM f_top_of_page.
FORM f_top_of_page .
IF v_topofpage = 'D'.
*-->Report header for detail report
    WRITE:/2 'Printed By :', sy-uname,
           80 'Stock Aging Report - Detail',
           180 'Printed on:', sy-datum, sy-timlo,
           220 'Page:', sy-pagno.
    WRITE:/,/,/.
    WRITE:/2 'Storage',
           10 'Matl ID',
           22 'Matl Description',
           61 'UOM',
           78 '<--=<QTY ON THIS DATE -->',
          78 '<-- =< 10 days -->',
          112 '<--11 to 30 days -->',
          148 '<--31 to 60 days -->',
          181 '<--61 to 90 days -->',
          216 '<-- > 90 days -->',
           /2 'Location',
           76 'Qty',
           92 'Value'.
          112 'Qty',
          128 'Value',
          148 'Qty',
          164 'Value',
          181 'Qty',
          195 'Value',
          216 'Qty',
          231 'Value'.
    WRITE:/2 sy-uline(235).
ELSE.
*-->Report header for Summary report
    WRITE:/2 'Printed By :', sy-uname,
           80 'Stock Aging Report - Summary',
           180 'Printed on:', sy-datum, sy-timlo,
           220 'Page:', sy-pagno.
    WRITE:/,/,/.
    WRITE:/2 'Storage',
           10 'Matl ID',
           22 'Matl Description',
           61 'UOM',
           78 '<--< QTY ON THIS DATE -->',
          78 '<-- < 10 days -->',
          112 '<--11 to 30 days -->',
          148 '<--31 to 60 days -->',
          181 '<--61 to 90 days -->',
          216 '<-- > 90 days -->',
           /2 'Location',
           76 'Qty',
           92 'Value'.
          112 'Qty',
          128 'Value',
          148 'Qty',
          164 'Value',
          181 'Qty',
          195 'Value',
          216 'Qty',
          231 'Value'.
    WRITE:/2 sy-uline(235).
ENDIF.
ENDFORM.                    " f_top_of_page
*start-of-selection
*PERFOM f_data_selection.
FORM f_data_selection.
SELECT a~werks
         a~lgort
         a~matnr
        a~saknr
        a~lbkum
        a~erdat
        a~labst
         a~umlme
         a~insme
         a~einme
         a~speme
         a~retme
       b~verpr    "this field no long been used
         c~maktx
         d~meins
         INTO CORRESPONDING FIELDS OF TABLE ta_material
         FROM mard AS a
         INNER JOIN makt AS c ON amatnr = cmatnr
         INNER JOIN mara AS d ON amatnr = dmatnr
         WHERE a~matnr IN s_matnr
           AND a~werks IN s_werks
           AND a~lgort IN s_lgort
          AND a~saknr IN s_saknr
          AND a~erdat IN s_erdat
           AND c~spras = 'EN'.
*--> SC01 - End of Insertion **
*-->Select material documents
SELECT a~mblnr
        a~mjahr
        a~zeile
        a~meins
        a~menge
        a~werks
        a~lgort
        a~matnr
        b~budat
        INTO CORRESPONDING FIELDS OF TABLE ta_mseg
FROM mseg AS a INNER JOIN mkpf AS b
ON amblnr = bmblnr
AND amjahr = bmjahr
FOR ALL ENTRIES IN ta_material
WHERE matnr = ta_material-matnr
AND a~werks = ta_material-werks
AND a~lgort = ta_material-lgort
AND algort NE aumlgo
AND a~shkzg = 'S'
AND a~smbln EQ space
AND a~smblp EQ space.
*--> SC03 - Start of Insertion **
If MBLNR exist in MSEG-SMBLN and this
record's SHKZG = 'H'. Remove it from the table.
This is becuase this particular record has already been reverse.
LOOP AT ta_mseg.
    SELECT SINGLE *
             FROM mseg
            WHERE smbln = ta_mseg-mblnr
*->Begin of KL02+ -
              and SMBLP = ta_mseg-zeile.
             AND shkzg = 'H'. "return.           " KL02-
*->End of KL02+ -
    IF sy-subrc = 0.
      DELETE ta_mseg.
    ENDIF.
ENDLOOP.
*--> SC03 - Enf   of Insertion **
ENDFORM.                    " f_data_selection
*IMPORTANT , NEED TO CHECK LATER
FORM f_data_preparation.
*-->Append data for report details
LOOP AT ta_material.
    DATA: ta_msegtemp LIKE ta_mseg OCCURS 2 WITH HEADER LINE.
*-->Loop at all material documents into a temp table
    REFRESH ta_msegtemp. CLEAR ta_msegtemp.
    LOOP AT ta_mseg WHERE matnr = ta_material-matnr AND
                          werks = ta_material-werks AND
                          lgort = ta_material-lgort.
      ta_msegtemp = ta_mseg. APPEND ta_msegtemp.
    ENDLOOP.
*-->Add up all the stock for the material
    CLEAR w_mengb.
    w_mengb = ta_material-labst +
                    ta_material-umlme +
                    ta_material-insme +
                    ta_material-einme +
                    ta_material-speme +
                    ta_material-retme.
    IF w_mengb IS INITIAL.
      CONTINUE.
    ENDIF.
*-->sort msegtemp by posting date
    SORT ta_msegtemp BY budat DESCENDING.
*-->get the values from the material documents into the report output
    LOOP AT ta_msegtemp.
*->Begin of KL02- -
     CALL FUNCTION 'HRCM_TIME_PERIOD_CALCULATE'
       EXPORTING
         begda               = ta_msegtemp-budat
         endda               = sy-datum
       IMPORTING
        NOYRS               =
         nomns               = w_mths
         nodys               = w_days
      EXCEPTIONS
        invalid_dates       = 1
        overflow            = 2
        OTHERS              = 3
*->End of KL02- -
*->Begin of KL02+ -
*-->Get the days difference btw two dates
      clear w_days.
      w_days = sy-datum - ta_msegtemp-budat.
*--> Include today's date into calculation
      w_days = w_days + 1.
*->End of KL02+ -
check base unit, do conversion
      IF ta_material-meins <> ta_msegtemp-meins.
        CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT'
          EXPORTING
            i_matnr              = ta_material-matnr
            i_in_me              = ta_msegtemp-meins
            i_out_me             = ta_material-meins
            i_menge              = ta_msegtemp-menge
          IMPORTING
            e_menge              = ta_msegtemp-menge
          EXCEPTIONS
            error_in_application = 1
            error                = 2
            OTHERS               = 3.
      ENDIF.
*--> SC01 - Start of Insertion **
      SELECT SINGLE peinh
                    verpr
               INTO (lv_peinh,
                     lv_verpr)
               FROM mbew
              WHERE matnr = ta_material-matnr
                AND bwkey = ta_material-werks.
      IF sy-subrc = 0.
        ta_material-verpr = lv_verpr.
      ENDIF.
*--> SC01 - End   of Insertion **
*-->check whether the mseg value is LE than the stock value
      IF ta_msegtemp-menge LE w_mengb.
*-->Days < 10 days
        IF w_days LE 1 AND w_days EQ 366.
          i_mat2-meng0 = i_mat2-meng0 + ta_msegtemp-menge.
          IF NOT lv_peinh EQ 0.
            i_mat2-value0 = ( i_mat2-meng0 / lv_peinh ) *
ta_material-verpr."+SC01
          ENDIF.
**-->Days 11 - 30 days
       ELSEIF w_days >= 11 AND w_days =< 30.
         i_mat2-meng1 = i_mat2-meng1 + ta_msegtemp-menge.
         IF NOT lv_peinh EQ 0.
           i_mat2-value1 = ( i_mat2-meng1 / lv_peinh ) *
*ta_material-verpr."+SC01
         ENDIF.
**-->Days 31-60 days
       ELSEIF w_days >= 31 AND w_days =< 60.
         i_mat2-meng2 = i_mat2-meng2 + ta_msegtemp-menge.
         IF NOT lv_peinh EQ 0.
           i_mat2-value2 = ( i_mat2-meng2 / lv_peinh ) *
*ta_material-verpr."+SC01
         ENDIF.
**-->Days 61-90 days
       ELSEIF w_days >= 61 AND w_days =< 90.
         i_mat2-meng3 = i_mat2-meng3 + ta_msegtemp-menge.
         IF NOT lv_peinh EQ 0.
           i_mat2-value3 = ( i_mat2-meng3 / lv_peinh ) *
*ta_material-verpr.
         ENDIF.
**-->Days > 90 days
       ELSEIF w_days > 90.
         i_mat2-meng4 = i_mat2-meng4 + ta_msegtemp-menge.
         IF NOT lv_peinh EQ 0.
           i_mat2-value4 = ( i_mat2-meng4 / lv_peinh ) *
*ta_material-verpr.
         ENDIF.
       ENDIF.
*->End of KL002+
        w_mengb = w_mengb - ta_msegtemp-menge.
      ELSE.
        IF NOT w_mengb LE 0 .
             IF NOT lv_peinh EQ 0.
**->End of KL001+
               i_mat2-value0 = ( i_mat2-meng0 / lv_peinh )
*ta_material-verpr."+SC01
**->Begin of KL001+
             ENDIF.
           ELSEIF w_days GE 22.
             i_mat2-meng3 = i_mat2-meng3 + w_mengb.
             IF NOT lv_peinh EQ 0.
               i_mat2-value3 = ( i_mat2-meng3 / lv_peinh )
*ta_material-verpr.
             ENDIF.
**->End of KL001+
           ENDIF.
**--> SC02 - End of Insertioin **
       ENDIF.
*->End of KL002-
*->Begin of KL002+
*--> < 10 days
                 IF w_days EQ 1 AND w_days LE 366.
          i_mat2-meng0 = i_mat2-meng0 + ta_msegtemp-menge.
          IF NOT lv_peinh EQ 0.
            i_mat2-value0 = ( i_mat2-meng0 / lv_peinh ) *
ta_material-verpr."+SC01
          ENDIF.
         ELSEIF w_days >= 11 AND w_days =< 30.
           i_mat2-meng1 = i_mat2-meng1 + w_mengb.
           IF NOT lv_peinh EQ 0.
             i_mat2-value1 = ( i_mat2-meng1 / lv_peinh ) *
*ta_material-verpr.
           ENDIF.
**--> 31 - 60 days
         ELSEIF w_days >= 31 AND w_days =< 60.
           i_mat2-meng2 = i_mat2-meng2 + w_mengb.
           IF NOT lv_peinh EQ 0.
             i_mat2-value2 = ( i_mat2-meng2 / lv_peinh ) *
*ta_material-verpr.
           ENDIF.
**--> 61 - 90 days
         ELSEIF w_days >= 61 AND w_days =< 90.
           i_mat2-meng3 = i_mat2-meng3 + w_mengb.
           IF NOT lv_peinh EQ 0.
             i_mat2-value3 = ( i_mat2-meng3 / lv_peinh ) *
*ta_material-verpr.
           ENDIF.
**--> > 90 days
         ELSEIF w_days > 90.
           i_mat2-meng4 = i_mat2-meng4 + w_mengb.
           IF NOT lv_peinh EQ 0.
             i_mat2-value4 = ( i_mat2-meng4 / lv_peinh ) *
*ta_material-verpr.
           ENDIF.
          ENDIF.
*->End of KL002+
          w_mengb = 0.
        ENDIF. " check stock value NE zero
      ENDIF.   "check Mat doc amount is LE than the stock value
ENDIF.
    ENDLOOP. " msegtemp
*-->append i_mat2 values
    i_mat2-werks = ta_material-werks.
    i_mat2-lgort = ta_material-lgort.
    i_mat2-matnr = ta_material-matnr.
    i_mat2-maktx = ta_material-maktx.
    i_mat2-meins = ta_material-meins.
    APPEND i_mat2. CLEAR i_mat2.
ENDLOOP. " ta_material
*-->Append data for summary data
DATA: i_lgort LIKE i_mat2 OCCURS 2 WITH HEADER LINE.
i_lgort[] = i_mat2[].
SORT i_lgort BY werks lgort.
DELETE ADJACENT DUPLICATES FROM i_lgort COMPARING werks lgort.
DATA: v_cnt0(5), v_cnt1(5), v_cnt2(5), v_cnt3(5), v_cnt4(5),
        v_value0 LIKE i_matsum-value0.
       v_value1 LIKE i_matsum-value1,
       v_value2 LIKE i_matsum-value2,
       v_value3 LIKE i_matsum-value3,
       v_value4 LIKE i_matsum-value4.
LOOP AT i_lgort.
    CLEAR v_cnt0. CLEAR v_value0.
CLEAR v_cnt1. CLEAR v_value1.
   CLEAR v_cnt2. CLEAR v_value2.
   CLEAR v_cnt3. CLEAR v_value3.
   CLEAR v_cnt4. CLEAR v_value4.
    LOOP AT i_mat2 WHERE lgort = i_lgort-lgort AND
                         werks = i_lgort-werks.
      IF NOT i_mat2-meng0 IS INITIAL.
        v_cnt0 = v_cnt0 + 1.
        v_value0 = v_value0 + i_mat2-value0.
      ENDIF.
     IF NOT i_mat2-meng1 IS INITIAL.
       v_cnt1 = v_cnt1 + 1.
       v_value1 = v_value1 + i_mat2-value1.
     ENDIF.
     IF NOT i_mat2-meng2 IS INITIAL.
       v_cnt2 = v_cnt2 + 1.
       v_value2 = v_value2 + i_mat2-value2.
     ENDIF.
     IF NOT i_mat2-meng3 IS INITIAL.
       v_cnt3 = v_cnt3 + 1.
       v_value3 = v_value3 + i_mat2-value3.
     ENDIF.
     IF NOT i_mat2-meng4 IS INITIAL.
       v_cnt4 = v_cnt4 + 1.
       v_value4 = v_value4 + i_mat2-value4.
     ENDIF.
    ENDLOOP.
    CLEAR i_matsum.
    i_matsum-lgort = i_mat2-lgort.
    IF v_cnt0 NE space.
      i_matsum-cnt0 = v_cnt0.
      i_matsum-value0 = v_value0.
      APPEND i_matsum.
    ENDIF.
   CLEAR i_matsum.
   i_matsum-lgort = i_mat2-lgort.
   IF v_cnt1 NE space.
     i_matsum-cnt1 = v_cnt1.
     i_matsum-value1 = v_value1.
     APPEND i_matsum.
   ENDIF.
   CLEAR i_matsum.
   i_matsum-lgort = i_mat2-lgort.
   IF v_cnt2 NE space.
     i_matsum-cnt2 = v_cnt2.
     i_matsum-value2 = v_value2.
     APPEND i_matsum.
   ENDIF.
   CLEAR i_matsum.
   i_matsum-lgort = i_mat2-lgort.
   IF v_cnt3 NE space.
     i_matsum-cnt3 = v_cnt3.
     i_matsum-value3 = v_value3.
     APPEND i_matsum.
   ENDIF.
   CLEAR i_matsum.
   i_matsum-lgort = i_mat2-lgort.
   IF v_cnt4 NE space.
     i_matsum-cnt4 = v_cnt4.
     i_matsum-value4 = v_value4.
     APPEND i_matsum.
   ENDIF.
ENDLOOP.
ENDFORM.                    "f_data_preparation
*IMPORTANT , NEED TO CHECK LATER
FORM f_display_data .
IF pck_dtsm = 'X'.
*-->Display detail
    v_topofpage = 'D'.
    PERFORM f_display_detail.
*-->display summary
    v_topofpage = 'S'.
    NEW-PAGE.
    PERFORM f_display_summary.
ELSEIF pck_detl = 'X'.
*-->Display detail
    v_topofpage = 'D'.
    PERFORM f_display_detail.
ELSEIF pck_summ = 'X'.
*-->display summary
    v_topofpage = 'S'.
    PERFORM f_display_summary.
ENDIF.
ENDFORM.                    " f_display_data
FORM f_display_detail .
v_topofpage = 'D'.
SORT i_mat2 BY werks lgort.
*DATA: v_count(5),
DATA: v_count,
        v_va1 LIKE i_mat2-value0.
       v_va2 LIKE i_mat2-value0,
       v_va3 LIKE i_mat2-value0,
       v_va4 LIKE i_mat2-value0,
       v_va5 LIKE i_mat2-value0.
LOOP AT i_mat2.
    WRITE:/2 i_mat2-lgort,
          10 i_mat2-matnr,
          22 i_mat2-maktx(38),
          61 i_mat2-meins,
          64 i_mat2-meng0,
          82 i_mat2-value0.
         100 i_mat2-meng1,
         118 i_mat2-value1,
         136 i_mat2-meng2,
         154 i_mat2-value2,
         169 i_mat2-meng3,
         186 i_mat2-value3,
         204 i_mat2-meng4,
         222 i_mat2-value4.
*-->Set counter and add up all values by lgort
    v_count = v_count + 1.
     v_va1 = v_va1 + i_mat2-value0.
   v_va2 = v_va2 + i_mat2-value1.
   v_va3 = v_va3 + i_mat2-value2.
   v_va4 = v_va4 + i_mat2-value3.
   v_va5 = v_va5 + i_mat2-value4.
    AT END OF lgort.
      WRITE:/10 'Cnt:',
             15 v_count,
             55 'Subtotal',
             82 v_va1.
            118 v_va2,
            154 v_va3,
            186 v_va4,
            222 v_va5.
      CLEAR v_count. CLEAR v_va1.
     CLEAR v_va2. CLEAR v_va3. CLEAR v_va4. clear v_va5.
    ENDAT.
ENDLOOP.
ENDFORM.                    " f_display_detail
FORM f_display_summary .
v_topofpage = 'S'.
LOOP AT i_matsum.
    IF NOT i_matsum-cnt0 IS INITIAL.
      WRITE:/2 i_matsum-lgort,
             10 'Cnt:',15 i_matsum-cnt0,
             82 i_matsum-value0.
    ENDIF.
   IF NOT i_matsum-cnt1 IS INITIAL.
     WRITE:/2 i_matsum-lgort,
            10 'Cnt:',15 i_matsum-cnt1,
            118 i_matsum-value1.
   ENDIF.
   IF NOT i_matsum-cnt2 IS INITIAL.
     WRITE:/2 i_matsum-lgort,
            10 'Cnt:',15 i_matsum-cnt2,
            154 i_matsum-value2.
   ENDIF.
   IF NOT i_matsum-cnt3 IS INITIAL.
     WRITE:/2 i_matsum-lgort,
            10 'Cnt:', 15 i_matsum-cnt3,
            186 i_matsum-value3.
   ENDIF.
   IF NOT i_matsum-cnt4 IS INITIAL.
     WRITE:/2 i_matsum-lgort,
            10 'Cnt:', 15 i_matsum-cnt4,
            222 i_matsum-value4.
   ENDIF.
ENDLOOP.
ENDFORM.                    " f_display_summary

Fetch the data from the Data base based on selection criteria in ABAP

Hi
I am new to ABAP and working on the Screen where User Enters Company code from and to , Document no and to, I have defined as specified below
SELECT-OPTIONS Company     FOR p_ccode.
SELECT-OPTIONS Document    FOR p_fdocnr.
SELECT-OPTIONS Year           FOR p_fyear.
When I debug in the pgm I get the values as
IBT11001100 (From and To Company Code)
IBT23234241002323424246 (From and To doc no)
IBT20092009 (From and To Year)
How can write a SQL select statement to fetch the data from the Database based on the above inputs
Thanks
PR

Moderator message:
Sorry - this isn't an ABAP training forum. Please press F1 on SELECT-OPTIONS and/or SELECT.
Thread locked.
Rob

I did this -- Windows 7 and Vista 1. Select the Start Menu in the Windows Taskbar. 2. In the Search box, enter the following: %APPDATA% 3. Press Enter. 4. From the Application Data folder, navigate to Local\VirtualStore\Program Files\Mozilla Firefox. 5. D

When I sign out of FF and want to go back in, I have to go through Task Mgr each time by deleting FF and then signing back in. I followed these directions -- Select the Start Menu in the Windows Taskbar. 2. In the Search box, enter the following: %APPDATA% 3. Press Enter. 4. From the Application Data folder, navigate to Local\VirtualStore\Program Files\Mozilla Firefox. 5. Delete the file xpicleanup.dat. 6. Restart Firefox. --- but I could not find Mozilla Firefox under 'Program Files'.
== This happened ==
Every time Firefox opened
== about a week ago

Where did you find those instructions to delete the '''xpicleanup.dat''' file?

Filter a List for data from the Previous Month

Hello,
I have audit data for each month of the year. At the beginning of one month I pull a report from the previous month. I would like to have a view in my SharePoint list that shows only the data from the previous month.
I am not a programmer or developer, so I was wondering if this is possible without out of the box tools.
Here is what I have done so far:
Created two calculated columns to find the start and end date of the previous month
Previous Month Start =DATE(YEAR([Date of Review]),MONTH([Date of Review])-1,1)
Previous Month End =DATE(YEAR([Date of Review]),MONTH([Date of Review]),0)
I have verified these two calculations do show the correct dates.
So I can generate the dates, but I don't know how to set up a view filter that will show only data from the previous month.
Please help.

What you need is the calculated column to display the start and the end of the next month, not the previous month. Then you can do a view filter where Start<Today & End>Today.
EX: If you have a document with date 15-03-2014, you need to save the dates 01-04-2014(start) and 30-04-2014(End).
Then If Start < [Today] and End > [Today], you can show the document

Determine previous date from the selection date

Similar Messages

Maybe you are looking for