Reg:T-CODE for open and close period for materials(new plant).

hi sap guru's
T-code for following process
can anybody send me , how to create calendar to new plant . and what is the T-code to be use for open and close period of materials for new plant.
thanks
sakthi..

Hi Sakthi,
I am assuming that you are asking about the factory calendars which are assigned while difing the plant.
Factory calendars are created through transaction "SCAL".
Opening and closing of MM periods can be done through transaction MMPV.This is based on the company code.Before using MMPV ,you can look the last opened period in the transaction MMRV.
Reward points if it helps.
Regards
Karan

Similar Messages

Authorization check for Open and Close Periods ( OB52)

Dear Experts,
We have created ZOB52 for Opening and closing periods. This is replica of Tcode: OB52 with some other developments that we required. Here for resticting user I had tried authorization Object: F_BKPF_BUP for particular company code wise posting. This was however not working. Kindly suggest.

Hi,
The last column in OB52 - AuGr (Authorization Group) helps you in restricitng certain users to use a posting period. This field is freely definable.
If only a limited set of users is to be able to post in a particular posting period, proceed as follows:
Add the posting period authorization (authorization object F_BKPF_BUP) to the authorizations of the selected users. Assign an authorization group (e.g. '0001').
In OB52, in the row with the account type '+', enter the period(s) whose use is to be restricted in the first period, those which are available to all users in the second period, and the authorization group (e.g. '0001') in the last column.
For company code wise restrictions, you should have a seperate posting period variant for each company code.
Edited by: Michael Gerard Leo on Jan 12, 2010 2:55 PM
Edited by: Michael Gerard Leo on Jan 12, 2010 3:01 PM

JTree- Seperate ToolTipText for open and close icon

Hi,
I want seperate tooltiptext for open and close icon.
for Open icon, it has to be "click to view subprocesses"
for close icon, it will be " click to vie process"
Thanks in advance
Pankaj

Use a customized TreeCellRenderer:
    class Renderer extends DefaultTreeCellRenderer {
        public Component getTreeCellRendererComponent(JTree tree,
                                                      Object value,
                                                      boolean sel,
                                                      boolean expanded,
                                                      boolean leaf,
                                                      int row,
                                                      boolean hasFocus) {
            super.getTreeCellRendererComponent(
                            tree, value, sel, expanded, leaf, row, hasFocus);
            setToolTipText(expanded ? "Click to view subprocesses" : "Click to view process");
            return this;
    }

How to open and close period?

Hi all,
How can I open and close Period in MM module?
thanks

Hello,
First of all read SAP Note 487381. T-code MMPI. If you don't have a backup or a request saved on development client with the previous period, you may try to modify the record on the table MARV (don't try yourself - discuss with a specialist who know your SAP system). If there isn't any records it won't be a problem!
Good Luck!

Open and Close periods/Fiscal years

Dear All
We are in the process of FM-BCS implementation, we observed thre is transaction code (FMOPER) for open the Budget periods. This is working for Budget workbech (FBMM) only. But at the time of Actual Postings even period is not open in FMOPER system is allowing for actual postings.
Kindly suggest where we can control actual postings through period open/cose option in FM-BCS.
Thanks in advance
Rao

Hi Rao,
You need to be aware of all the impact of the use of PBET (Period-Based Encumbrance Tracking) before activating it in transaction OF39. This is not a simple change, it impacts all your integrated postings that come from all other areas (FI, CO, MM, SD) into FM.
You cannot use any FM update date other than the POSTING date when PBET is active.
One common error when you activate PBET is FI_E050 - Posting date/period 00/00/0000 is earlier than existing
date/period 00/00/0000.
If you want updating to take place on the delivery date, you must return profile to Fiscal Year Based (non-PBET) updating.
This step will also eliminate the error FI_E050.
Part of the basic PBET logic, aims at recording a detailed change history of every single document in FM.
For more details on this, please also refer to the program documentation and chapter Public Sector Management -> Funds Management -> Recording Actual and Commitment Data -> Period-Based Encumbrance Tracking.
The standard functionality when PBET is active is to use the system date as the FM posting date. However, you do have 3 options to overwrite this:
Document Creation:
1.- Version Management (PR/PO)
2.- FM updating date is the document posting date.
Document Change:
1.- System use FM_TRANS_DATE date as FM updatign date, if this date is not filled, system use system date as FM updating date.
If customer want to change this logic, the FM updating date is decided by one of the following three steps, in order shown.
- Version Management (PR/PO): Posting date of version
- Transaction FMOD to override the update date by user
- Activate user exit EXIT_SAPLFMFA_004 so that a popup screen is
displayed that permits entering the FM posting date, you could
manually set the date found in the document header to a later date.
- you could manually set the date found in the document header to a
later date (System date SY_DATUM).
PBET is Periodic-based encumbrance tracking and it is a function that monitors encumbrances per period, with a change record issued for each change made within a period. This function belongs to Funds Management Area (PSM-FM).
If PBET is active, system does not allow posting to a date earlier than the present date, you will receive error FI_E050 in case this is not satisfied. Follow are two comments form the code which indicate same:
"No new dates can be earlier than the original or new account assignment line items".
"Ensure that new fm update dates are not older than original date or if a change, this change must be latest date in document"
To use or not to use PBET is customer decision and this impact that the period is verified more strictly than without PBET. Maybe you should consider with your consultant if using PBET is the best solution for your business processes.
Best Regards,
Vanessa.

I need the code for creating popup windows and code for open and close

I can write the code for creating popup window , i am getting problem while trying to open and closing that popup windows.
Can anybody help me in that pls ?
Regards
Sreeni.

Hi
For pop up window
IWDWindowInfo windowInfo = (IWDWindowInfo)wdComponentAPI.getComponentInfo().findInWindows("PopWin");
IWDWindow window = wdComponentAPI.getWindowManager().createModalWindow(windowInfo);
window.setWindowPosition (300, 150);
window.show();
wdContext.currentYourNodeElement().setPopupAttribute(window);
For closing window code
IWDWindow window = wdContext.currentYourNodeElement().getPopupAttribute();
window.hide();
window.destroyInstance();
For more infornation refer this link
http://www.sdn.sap.com/irj/scn/index?rid=/library/uuid/20d2def3-f0ec-2a10-6b80-877a71eccb68&overridelayout=true
This link is very useful for you.
Regards
Ruturaj
Edited by: Ruturaj Inamdar on Aug 13, 2009 9:10 AM

Regarding open and close period

How to search which period is closed and which period is opened??

Hi Akshata,
Attached is the screenshot of OB52 screen. Here you can refer to From period 1 to To period 2. In this example, period is open for 11th period 2010 to 1st period 2011. If you want to close 11th period of 2010 you can change the field "From period 1" to 12 2010.
http://imageshack.us/photo/my-images/407/ob52.png/
Please check the account type which you want to be open also. If it is only the Gl Account entries keep the account type "S" and "+" open.
Warm regards,
Murukan Arunachalam

FM for Opening And Closing Stock for Material

Dear All,
I need to Calculate the opening and closing stock of the material. If there is any FM for the same just let me know and if not kindly let me know the way out.
Regards
Amit

Hi!
The closing stock can be found in the MARD table.
And the opening stock should be always zero.
I think you wanted to know the yearly/monthly closing/opening stocks, then you have to gather all material documents from MKPF, MSEG tables, and calculate the stock, using the actual stock and subtract/add (depends on the movement type) the material document's quantity, until the given date.
I don't know any FMs for this, maybe someone could tell you one...
Regards
Tamá

Open and close period

hi all,
i want the details about opening a period and closing a period, can we post a document which is in previous in previous period...
cheers
Amith

Hi,
No, You can not post a document which is in previous in previous period.You can post document in MM side in Current period and Curent minus one period, if set back posting allowed in MMRV.
In T.code: MMRV and you can see which period is open for ur Co.Codeand back posting is allowed or not.In MMPV close the period last period and automatically system open the new one, Its only control in MM Side.
In FI side , they use t.code: OB52 and open the period in Account Types A, K, D,M, S and specially Account Type u201C+u201D which stands for valid for all accounts type. In FI side you can open period more then two period in OB52 step.
It is possible to re-open a previously closed period. However, it is NOT advisable to do so because the valuation data of the previous period could be affected.For more read the SAP Note:487381 and 369637.
If ur working in SandBoxx u can follow the these steps but not in Production:
1. use t.code OX18, and delete the plants assigned to your CO.Cd and save.
2. use t.code OMSY and change the posting period to the one u want and save.
3.use t.code OX18 and assign the plants you have deleted in step 1.and save.
But after doing all steps, u can see all G/L assign in OBYC, will be deleted, you have assign again in OBYC.
For More Check the link:
http://e-mory.blogspot.com/2007/12/sap-mmpi-open-previous-period.html
Regards,
Biju K

Visa open and close with "for loops"

Hello everyone
In my program I used two "for loops" which include visa write and read for a RS32 port. it is not possible to close a devise with visa close as the out put is changed to 2D array!!! would you please help me with this error
Attachments:
ACU_232.png ‏108 KB

sam009 wrote:
Thanks for reply,
It works for "for loop" but what about "event structure loop" still is error for that.
Right-click on the output tunnel and uncheck "Use Default if Unwired". You will now be forced to wire the VISA Resource through each case.
There are only two ways to tell somebody thanks: Kudos and Marked Solutions
Unofficial Forum Rules and Guidelines

I made the upgrade for ios 6 and now my ipod 4G touch open and close instantly for one hour still now

Hello
when i made the upgrade for my iPod touch 4g 32 Go
ios 6
now i cannont do anything it is close

Try:
- iOS: Not responding or does not turn on
- Also try DFU mode after try recovery mode
How to put iPod touch / iPhone into DFU mode « Karthik's scribblings
- If not successful and you can't fully turn the iOS device fully off, let the battery fully drain. After charging for an least an hour try the above again.
- If still not successful that usually indicates a hardware problem and an appointment at the Genius Bar of an Apple store is in order.
Apple Retail Store - Genius Bar

Open and close posting period authorization control TCODE: S_ALR_87003642

HI All,
Is there any chance to control the user to open and close another company code posting period variant in TCODE: S_ALR_87003642.
In our system we are using the same client for different countries. So user can able to change the other country company code posting periods.
We would like to control either on the country (or) organizational unit(company code) (or) posting period variant so that user can only open/close their country / company code posting periods.
Our present authorization role for open and close posting period contain the auth.Obj. : S_TABU_DIS.
Please share your knowledge if you come across this problem..
Thanks in advance..

Hey Sandhya,
Congratz, this can be done using linbe item authorization with the object S_TABU_LIN.
Field ORG_CRIT - Value 02
Field ORG_FIeld1 - Value ZT001B
We have successfully done it in our client.
You need to contact your BASIS consultant for this.
Thanks,
Nitish

How to restrict S_ALR_87003642 - Open and Close Posting Periods entry/updat

How to restrict S_ALR_87003642 - Open and Close Posting Periods entry/update for certain group of users
eg. for Subsidiaries to openr/close periods of their own company only.
Refer to my screen, Company 1010 and 1060 is for Head Office while 1210 is for our Malaysia Company. How to restrict my Malaysia Company user to open and close only for 1210 and cannot perform any change to other Company.

Hi,
I guess you can use company code itself. Talk to your basis guy or else if you have some expertise & Authorization try out PFCG.
Regards
Santosh Hegde

Open and Close Posting Periods According to G/L Account Assignment Objects

Hi,
Can anybody please explain me how configurations related to " Open and Close Posting Periods According to G/L Account Assignment Objects " works in SAP FICO? I am confused about this config.
Regards,
Mandeep

Hi Mandeep ,
First i would like to tell about fiscal year
fiscal year is nothing but a financial year of company in sap . it contain 12 normal periods and 4 special periods.In genaral we will call like month but that is sap that is a period. so 12 period for 12 months ok next special period will use in all companies for audit and tax adjustment purpose of previous year.
coming to the open and close periods.in sap for security purpose we have to open one period like this month july so i opened july period only we cant post the pervious month (june)and we cant post future month lik in (Auguest)ok
You can close and open periods by transaction ob52.
In transaction ob52 there are account types
+ Valid for all account types
A Assets
D Customers
K Vendors
M Materials
S G/L accounts
V Contract accounts
+ means all types. if you want to open vendor then enter period from and to according to your fiscal year.
you cant adjust items in closed period. if you want to then you have to open the period
For your information.....
posting periods also open user level tc S_ALR_87003642.
customization levael OB52.
Regards
Kumar

Report to find open items and close items for given vendor

Hi All,
What are the steps needed to write a REPORT to find out
open and close items for a given vendor.
Which are the fields i'll have to take and what are the comparisons i'll have to make.
I know,
BSIK is for open Vendor &
BSAK for closed Vendors..
what are the conditions i'll have to check.
Thanks in Advance..
Pradeep Alex

Hi Pradeep,
This report I developed is definitely useful to you.
*& Report ZFI_PROV_IT_VENDOR
REPORT ZFI_VENDOR.
TYPE-POOLS: slis.
tables: BKPF,
        BSEG,
        bsik,
        bsak,
        bsid,
        bsad,
        lfa1,
        t005u,           "Region Description
        J_1IMOVEND.
TYPES: BEGIN OF ty_bkpf,
        bukrs type bkpf-bukrs,
        belnr TYPE bkpf-belnr,
        gjahr type bkpf-gjahr,
        blart TYPE bkpf-blart,
        budat TYPE bkpf-budat,
       END   OF ty_bkpf.
types: begin of ty_J_1IMOVEND,
         lifnr     type lfa1-lifnr,
         J_1IPANNO type J_1IMOVEND-J_1IPANNO,
         J_1ICSTNO type J_1IMOVEND-J_1ICSTNO,
         J_1ISERN type J_1IMOVEND-J_1ISERN,
       end   of ty_J_1IMOVEND.
TYPES: BEGIN OF ty_bseg,
        belnr TYPE bseg-belnr,
        gjahr type bseg-gjahr,
        bschl TYPE bseg-bschl,
        umskz type bseg-umskz,
        shkzg type bseg-shkzg,
        wrbtr TYPE bseg-wrbtr,
        hkont type bseg-hkont,
        lifnr TYPE bseg-lifnr,
       END   OF ty_bseg.
types: begin of ty_t005u,
        bland type t005u-bland,
        bezei type t005u-bezei,
       end   of ty_t005u.
types: begin of ty_lfa1,
        lifnr type lfa1-lifnr,
        name1 type lfa1-name1,   "35
        ort01 type lfa1-ort01,   "35
        ort02 type lfa1-ort02,   "35
        pfach type lfa1-pfach,   "10
        pstlz type lfa1-pstlz,   "10
        regio type lfa1-regio,   "3
        stras type lfa1-stras,   "35
        ktokk type lfa1-ktokk,
        telf1 type lfa1-telf1,   "16
        telf2 type lfa1-telf2,   "16
       end   of ty_lfa1.
types: begin of ty_bsik,
        bukrs type bsik-bukrs,
        lifnr type bsik-lifnr,
        augdt type bsik-augdt,
        augbl type bsik-augbl,
        belnr type bsik-belnr,
        budat type bsik-budat,
        blart type bsik-blart,
        shkzg type bsik-shkzg,
        wrbtr type bsik-wrbtr,
       end   of ty_bsik.
types: begin of ty_bsid,
        bukrs type bsid-bukrs,
        lifnr type bsid-kunnr,
        augdt type bsid-augdt,
        augbl type bsid-augbl,
        belnr type bsid-belnr,
        budat type bsid-budat,
        blart type bsid-blart,
        shkzg type bsid-shkzg,
        wrbtr type bsid-wrbtr,
       end   of ty_bsid.
types: begin of ty_out2,
        lifnr type bsik-lifnr,
        wrbtr type bsik-wrbtr,
        end of ty_out2.
types: begin of ty_out,
        lifnr type lfa1-lifnr,
        name1 type lfa1-name1,
        addr(162) type c,
        J_1IPANNO type J_1IMOVEND-J_1IPANNO,
        J_1ICSTNO type J_1IMOVEND-J_1ICSTNO,
        J_1ISERN type J_1IMOVEND-J_1ISERN,
        opbal type bseg-wrbtr,
        purch type bseg-wrbtr,
        PAYM type bseg-wrbtr,
        grdeb type bseg-wrbtr,
        othdeb type bseg-wrbtr,
        othcre type bseg-wrbtr,
        tds   type bseg-wrbtr,
        bal   type bseg-wrbtr,
        blart type bkpf-blart,
        bschl type bseg-bschl,
       end of ty_out.
types: begin of ty_bsegtemp,
        lifnr TYPE bseg-lifnr,
       end   of ty_bsegtemp.
types: begin of ty_bsegnew,
        wrbtr TYPE bseg-wrbtr,
        lifnr TYPE bseg-lifnr,
       end   of ty_bsegnew.
data: it_bsik type table of ty_bsik with header line,
      it_bsid type table of ty_bsid with header line,
      it_bsak type table of ty_bsik with header line,
      it_out2 type table of ty_out2 with header line,
      it_out3 type table of ty_out2 with header line.
DATA : it_fieldcat TYPE slis_t_fieldcat_alv,
       it_listheader TYPE slis_t_listheader,
       it_alvevent TYPE slis_t_event,
       gt_events TYPE slis_t_event WITH HEADER LINE.
DATA: I_SORT TYPE SLIS_T_SORTINFO_ALV.
DATA : wa_fieldcat TYPE slis_fieldcat_alv,
       wa_listheader TYPE slis_listheader,
       wa_alvevent TYPE slis_alv_event.
DATA: WA_SORT TYPE SLIS_SORTINFO_ALV.
DATA: ls_line TYPE slis_listheader.
DATA : g_repid LIKE sy-repid,                  " Program ID
       g_layout TYPE slis_layout_alv.           " Layout Workarea
DEFINE m_fieldcat.
wa_fieldcat-col_pos       = &1.               " Fieldcat column postion
wa_fieldcat-fieldname     = &2.               " Field name
wa_fieldcat-DO_SUM        = &3.
wa_fieldcat-seltext_m     = &4.               " Column Text
wa_fieldcat-outputlen    = &5.
append wa_fieldcat to it_fieldcat.
clear wa_fieldcat.
END-OF-DEFINITION.
DATA: wa_lfa1 TYPE ty_lfa1,
      wa_bkpf TYPE ty_bkpf,
      wa_bkpf1 type ty_bkpf,
      wa_bsegtemp type ty_bsegtemp,
      wa_bsegnew type ty_bsegnew,
      wa_bsegnew1 type ty_bsegnew,
      wa_J_1IMOVEND type ty_J_1IMOVEND,
      wa_t005u type ty_t005u,
      wa_bseg TYPE ty_bseg,
      wa_out    TYPE ty_out.
DATA: gt_out TYPE STANDARD TABLE OF ty_out,
      gt_out1 TYPE STANDARD TABLE OF ty_out,
      gt_lfa1 TYPE STANDARD TABLE OF ty_lfa1,
      gt_bsegtemp type standard table of ty_bsegtemp with header line,
      gt_bsegnew type standard table of ty_bsegnew with header line,
      gt_bsegnew1 type standard table of ty_bsegnew with header line,
      gt_J_1IMOVEND type standard table of ty_J_1IMOVEND,
      gt_bkpf1 TYPE STANDARD TABLE OF ty_bkpf WITH HEADER LINE,
      gt_t005u type standard table of ty_t005u,
      gt_bseg TYPE STANDARD TABLE OF ty_bseg WITH HEADER LINE,
      gt_bkpf TYPE STANDARD TABLE OF ty_bkpf WITH HEADER LINE.
selection-screen begin of block b1 with frame title text-001.
select-options: s_budat for bkpf-budat obligatory,
                s_ktokk for lfa1-ktokk obligatory.
               s_wrbtr for bseg-wrbtr.
parameters: p_bukrs type bkpf-bukrs obligatory default '1000'.
           p_gjahr type bkpf-gjahr obligatory.
           p_lifnr type bseg-lifnr obligatory default '300040',
           p_ktokk type lfa1-ktokk obligatory default 'Z200'.
selection-screen end   of block b1.
START-OF-SELECTION.
PERFORM sub_fetch_data.
PERFORM sub_process_data.
END-OF-SELECTION.
PERFORM sub_build_fieldcat.
PERFORM sub_build_layout.
PERFORM eventtab_build USING gt_events[].
PERFORM comment_build USING it_listheader[].
PERFORM sub_disp_data.
*&      Form SUB_BUILD_FIELDCAT
      text
--> p1        text
<-- p2        text
FORM sub_build_fieldcat .
sort gt_out by name1.
*DEFINE M_SORT.
   ADD 1 TO WA_SORT-SPOS.
   WA_SORT-FIELDNAME = &1.
   WA_SORT-UP        = 'X'.
   WA_SORT-SUBTOT    = &2.
   APPEND WA_SORT TO I_SORT.
END-OF-DEFINITION.
*m_sort 'NAME1' 'X'.
*M_SORT 'ADDR' 'X'.
m_fieldcat 1 'LIFNR' ' ' text-026 10.
m_fieldcat 2 'NAME1' ' ' text-006 35.
m_fieldcat 3 'ADDR' ' ' text-007 162.
m_fieldcat 4 'J_1IPANNO' '' text-008 40.
m_fieldcat 5 'J_1ICSTNO' '' text-009 40.
m_fieldcat 6 'J_1ISERN' '' text-010 40.
m_fieldcat 7 'OPBAL' '' text-011 18.
m_fieldcat 8 'PURCH'    '' text-012 18.
m_fieldcat 9 'PAYM' '' text-013 18.
m_fieldcat 10 'GRDEB' '' text-014 18.
m_fieldcat 11 'OTHDEB' '' text-020 18.
m_fieldcat 12 'OTHCRE' '' text-021 18.
m_fieldcat 13 'BAL' '' text-023 18.
m_fieldcat 14 'TDS' '' text-022 18.
ENDFORM.                    " SUB_BUILD_FIELDCAT
*&      Form SUB_BUILD_LAYOUT
      text
--> p1        text
<-- p2        text
FORM sub_build_layout .
g_layout-zebra             = 'X'.
g_layout-colwidth_optimize = 'X'.
ENDFORM.                    " SUB_BUILD_LAYOUT
*&      Form EVENTTAB_BUILD
      text
     -->P_GT_EVENTS[] text
FORM eventtab_build USING    gt_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   = gt_events.
READ TABLE gt_events WITH KEY name = slis_ev_top_of_page
                           INTO ls_event.
IF sy-subrc = 0.
    MOVE 'TOP_OF_PAGE' TO ls_event-form.
    APPEND ls_event TO gt_events.
ENDIF.
ENDFORM.                    " EVENTTAB_BUILD
*&      Form COMMENT_BUILD
      text
     -->P_IT_LISTHEADER[] text
FORM comment_build USING    p_it_listheader TYPE
                                        slis_t_listheader.
data: v_text(30) type c,
      v_datelow(10) type c,
      v_datehigh(10) type c,
      v_month(2) type c,
      v_day(2) type c,
      v_year(4) type c.
v_day = s_budat-low+6(2).
v_month = s_budat-low+4(2).
v_year = s_budat-low+0(4).
concatenate v_day '.' v_month '.' v_year into v_datelow.
clear: v_day,v_month,v_year.
v_day = s_budat-high+6(2).
v_month = s_budat-high+4(2).
v_year = s_budat-high+0(4).
concatenate v_day '.' v_month '.' v_year into v_datehigh.
clear: v_day,v_month,v_year.
concatenate 'From' v_datelow 'To' v_datehigh into v_text
                                    separated by space.
clear: v_datelow, v_datehigh.
ls_line-typ = 'H'.
ls_line-info = text-116.
APPEND ls_line TO p_it_listheader.
ls_line-typ = 'S'.
ls_line-key = text-090.
ls_line-info = v_text.
APPEND ls_line TO p_it_listheader.
ENDFORM.                    " COMMENT_BUILD
*&      Form TOP_OF_PAGE
      text
--> p1        text
<-- p2        text
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = it_listheader.
ENDFORM.                    " TOP_OF_PAGE
*&      Form SUB_DISP_DATA
      text
--> p1        text
<-- p2        text
FORM sub_disp_data .
g_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = g_repid
      it_fieldcat        = it_fieldcat[]
      is_layout          = g_layout
      i_save             = 'U'
      it_events          = gt_events[]
    IT_SORT             = I_SORT[]
    TABLES
      t_outtab           = gt_out1[].
ENDFORM.                    " SUB_DISP_DATA
*&      Form sub_fetch_data
      text
--> p1        text
<-- p2        text
form sub_fetch_data .
select bukrs
       belnr
       gjahr
       blart
       budat
       from bkpf
       into table gt_bkpf
       where budat in s_budat
       and   bukrs = p_bukrs
      and   gjahr = p_gjahr
       and   blart in ('KR','KG','KZ','RE','DK','Z1','AB','SA','KA','DZ').
select belnr
       gjahr
       bschl
       umskz
       shkzg
       wrbtr
       hkont
       lifnr
       from bseg
       into table gt_bseg
       for all entries in gt_bkpf
       where belnr = gt_bkpf-belnr
       and   gjahr = gt_bkpf-gjahr
      and gjahr = p_gjahr
       and   bschl in (21,25,29,31,50,39,38,19,35).
      and kunnr in gt_
      and lifnr = '0000300019'.
select belnr
       gjahr
       bschl
       umskz
       shkzg
       wrbtr
       hkont
       kunnr
       from bseg
       appending table gt_bseg
       for all entries in gt_bkpf
       where belnr = gt_bkpf-belnr
       and   gjahr = gt_bkpf-gjahr
      and gjahr = p_gjahr
       and   bschl in (21,25,29,31,50,39,38,19).
break manukapur.
sort gt_bseg by lifnr bschl.
delete adjacent duplicates from gt_bseg comparing all fields.
loop at gt_bseg into wa_bseg.
if wa_bseg-lifnr is not initial.
move: wa_bseg-lifnr to wa_bsegtemp-lifnr.
      append wa_bsegtemp to gt_bsegtemp.
      endif.
endloop.
delete adjacent duplicates from gt_bsegtemp comparing lifnr.
select lifnr
        name1
        ort01
        ort02
        pfach
        pstlz
        regio
        stras
        ktokk
        telf1
        telf2
        from lfa1
        into table gt_lfa1
        for all entries in gt_bseg
        where lifnr = gt_bseg-lifnr
        and ktokk in s_ktokk.
       and lifnr = '0000300030'.
select bland
        bezei
        from t005u
        into table gt_t005u
        for all entries in gt_lfa1
        where bland = gt_lfa1-regio
        and land1 = 'IN'
        and spras = sy-langu.
select lifnr
       J_1IPANNO
       J_1ICSTNO
       J_1ISERN
       from J_1IMOVEND
       into table gt_J_1IMOVEND
       for all entries in gt_bseg
       where lifnr = gt_bseg-lifnr.
*select bukrs
      belnr
      blart
      budat
      from bkpf
      into table gt_bkpf1
      where budat < s_budat-low.
      and zfdbt < s_budat-low.
select
       wrbtr
       lifnr
       from bseg
       into table gt_bsegnew
       for all entries in gt_bkpf
       where belnr = gt_bkpf-belnr
       and xopvw = 'X' .
      and zfbdt < s_budat-low.
select bukrs
       lifnr
       augdt
       augbl
       belnr
       budat
       blart
       shkzg
       wrbtr
       from bsik
       into table it_bsik
       for all entries in gt_bseg
       where lifnr = gt_bseg-lifnr
      and   lifnr = '0000300000'
       and   bukrs = '1000'
       and   budat <= s_budat-low.
select bukrs
       lifnr
       augdt
       augbl
       belnr
       budat
       blart
       shkzg
       wrbtr
       from bsak
       appending table it_bsik
       for all entries in gt_bseg
       where bukrs = '1000'
       and   lifnr = gt_bseg-lifnr
      and   lifnr = '0000300000'
       and   budat <= s_budat-low
       and   augdt > s_budat-low.
select bukrs
       kunnr
       augdt
       augbl
       belnr
       budat
       blart
       shkzg
       wrbtr
       from bsid
       into table it_bsid
       for all entries in gt_bseg
       where bukrs = '1000'
       and   kunnr = gt_bseg-lifnr
      and   kunnr = '0000300000'
       and   budat <= s_budat-low.
select bukrs
       kunnr
       augdt
       augbl
       belnr
       budat
       blart
       shkzg
       wrbtr
       from bsad
       appending table it_bsid
       for all entries in gt_bseg
       where bukrs = '1000'
       and   kunnr = gt_bseg-lifnr
      and   kunnr = '0000300000'
       and   budat <= s_budat-low
       and   augdt > s_budat-low.
if it_bsid[] is not initial.
append lines of it_bsid to it_bsik.
endif.
*delete gt_bsegnew where lifnr <> '0000300000'.
*break manukapur.
*sort gt_bsegnew by lifnr.
*loop at gt_bsegnew into wa_bsegnew.
*collect wa_bsegnew into gt_bsegnew1.
*endloop.
loop at it_bsik .
it_out2-lifnr = it_bsik-lifnr.
*it_out1-budat = it_bsik-budat.
*it_out1-blart = it_bsik-blart.
if it_bsik-SHKZG = 'H'.
it_out2-wrbtr = it_bsik-wrbtr.
else .
it_out2-wrbtr = it_bsik-wrbtr * -1.
endif.
append it_out2.
clear: it_out2, it_bsik.
*endif.
*clear it1.
endloop.
sort it_out2 by lifnr.
loop at it_out2.
it_out3-lifnr = it_out2-lifnr.
it_out3-wrbtr = it_out2-wrbtr.
collect it_out3.
clear: it_out3, it_out2.
endloop.
endform.
*&      Form sub_process_data
      text
--> p1        text
<-- p2        text
form sub_process_data .
*sort gt_bsegtemp by lifnr .
sort gt_bseg by lifnr bschl.
sort gt_bsegnew by lifnr.
sort it_out3 by lifnr.
*loop at gt_bsegnew into wa_bsegnew.
*at end of lifnr.
*sum.
*endat.
*endloop.
sort gt_bkpf by blart.
loop at gt_bseg into wa_bseg.
if wa_bseg-lifnr is not initial.
read table gt_lfa1 into wa_lfa1 with key lifnr = wa_bseg-lifnr.
move: wa_lfa1-name1 to wa_out-name1,
     wa_lfa1-lifnr to wa_out-lifnr.
read table gt_t005u into wa_t005u with key bland = wa_lfa1-regio.
concatenate wa_lfa1-stras ',' wa_lfa1-ort01 ','
            wa_lfa1-ort02 ',' wa_t005u-bezei ','
            wa_lfa1-pfach ','
            wa_lfa1-pstlz ',' 'Ph:'
            wa_lfa1-telf1 ','
            wa_lfa1-telf2
            into wa_out-addr separated by space.
read table gt_J_1IMOVEND into wa_J_1IMOVEND with key lifnr = wa_bseg-lifnr.
move: wa_J_1IMOVEND-J_1IPANNO to wa_out-J_1IPANNO,
      wa_J_1IMOVEND-J_1ICSTNO to wa_out-J_1ICSTNO,
      wa_J_1IMOVEND-J_1ISERN to wa_out-J_1ISERN.
      read table gt_bkpf into wa_bkpf with key belnr = wa_bseg-belnr.
if wa_bkpf-blart = 'RE' and wa_bseg-bschl = 31 or
wa_bkpf-blart = 'KR' and wa_bseg-bschl = 31.
if wa_bseg-shkzg = 'H'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-purch = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-purch = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'KR' and wa_bseg-bschl = 50.
*wa_out-tds = wa_out-tds + wa_bseg-wrbtr.
if wa_bseg-shkzg = 'H'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-tds = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-tds = wa_bseg-wrbtr * -1.
endif.
endif.
*wa_out-tds = wa_bseg-wrbtr.
endif.
if wa_bkpf-blart = 'KG' and wa_bseg-bschl = 21.
*wa_out-grdeb = wa_out-grdeb + wa_bseg-wrbtr.
if wa_bseg-shkzg = 'H'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-grdeb = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-grdeb = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'RE' and wa_bseg-bschl = 21.
*wa_out-grdeb = wa_out-grdeb + wa_bseg-wrbtr.
if wa_bseg-shkzg = 'H'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-grdeb = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-grdeb = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'KZ' and wa_bseg-bschl = 25
*or wa_bkpf-blart = 'KZ' and wa_bseg-bschl = 29
**and wa_bseg-umskz = 'A'
or wa_bkpf-blart = 'SA' and wa_bseg-bschl = 25.
if wa_bseg-shkzg = 'H'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-paym = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-paym = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'DK' and wa_bseg-bschl = 31.
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'AB' and wa_bseg-bschl = 31.
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'SA' and wa_bseg-bschl = 31.
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'KZ' and wa_bseg-bschl = 38.
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'DZ' and wa_bseg-bschl = 19
and wa_bseg-umskz = 'A'.
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'KA' and wa_bseg-bschl = 39
and wa_bseg-umskz = 'G' or
       wa_bseg-umskz = 'H' or
       wa_bseg-umskz = 'J' or
       wa_bseg-umskz = 'L' OR
       wa_bseg-umskz = 'A'.
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'KA' and wa_bseg-bschl = 35.
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if ( wa_bkpf-blart = 'KZ' and wa_bseg-bschl = 29 )
   and wa_bseg-umskz = 'A' or
       wa_bseg-umskz = 'B' or
       wa_bseg-umskz = 'I' or
       wa_bseg-umskz = 'M' or
       wa_bseg-umskz = 'O' or
       wa_bseg-umskz = 'V'.
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'AB' and wa_bseg-bschl = 27.
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'Z1' and wa_bseg-bschl = 21 .
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
**if wa_bseg-shkzg = 'H'.
***wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
**wa_out-othdeb = wa_bseg-wrbtr.
**else.
**if wa_bseg-shkzg = 'S'.
***wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
**wa_out-othdeb = wa_bseg-wrbtr * -1.
**endif.
**endif.
**endif.
***if wa_bkpf-blart = 'AB' and wa_bseg-bschl = 27.
      wa_out-othdeb = wa_bseg-wrbtr.
***endif.
***if wa_bkpf-blart = 'Z1' and wa_bseg-bschl = 21.
      wa_out-othdeb = wa_bseg-wrbtr.
***endif.
read table it_out3 with key lifnr = wa_bseg-lifnr binary search.
on change of wa_bseg-lifnr.
*move: wa_lfa1-name1 to wa_out-name1,
    wa_lfa1-lifnr to wa_out-lifnr.
wa_out-opbal = it_out3-wrbtr.
endon.
*if wa_out-opbal is not initial.
*wa_out-bal = wa_out-opbal + wa_out-purch - wa_out-grdeb - wa_out-othdeb + wa_out-othcre.
**else.
*wa_out-bal = wa_out-purch - wa_out-grdeb - wa_out-othdeb + wa_out-othcre.
*endif.
wa_out-bal = wa_out-opbal + wa_out-purch + wa_out-paym + wa_out-grdeb + wa_out-othdeb + wa_out-othcre.
at end of lifnr.
*wa_out-bal = wa_out-opbal + wa_out-purch - wa_out-grdeb - wa_out-othdeb + wa_out-othcre.
append wa_out to gt_out.
*collect wa_out into gt_out.
clear wa_out.
clear it_out3.
clear wa_bsegnew1.
endat.
endif.
clear: wa_bseg, wa_bkpf, wa_J_1IMOVEND.
endloop.
loop at gt_out into wa_out.
collect wa_out into gt_out1.
endloop.
endform.                    " sub_process_data
Regards,
Santosh Kumar M.

Reg:T-CODE for open and close period for materials(new plant).

Similar Messages

Maybe you are looking for