Logging table for period open/close

Dear all,
does anybody know if the BCS maintains a logging table (history) or similar for the activity open/close periods within the Consolidation monitor.
Thanks in advance!
Jochen
Edited by: Jochen Röhr on Aug 3, 2011 2:23 PM
No ideas from our BCS-Experts?
Must be a typical question for all BCS application!!!

Look at /1SEM/UCS* and UCL* tables, you might find some information.

Similar Messages

Period Open/Close

Dear Expert,
Last month we have Opend/closed period first time at mid night. here my question regarding period open/close as follows.
1) Is it Compulsory to period close at mid night ...Why not period open and close before mid night it means in office hour because we allow to post previous period. Pl. descibe in details.
2) What steps should be taken care before period close. Pl.guide me in details.
Thanks & Regards
Piyush Dave

Hi
1) Is it Compulsory to period close at mid night ...Why not period open and close before mid night it means in office hour because we allow to post previous period. Pl. descibe in details.
not compulsory .once all activity done for a period we can close period
2) What steps should be taken care before period close. Pl.guide me in details.
check following link
[Year End closing activities - Steps;
[Month End Procedure;
Regards
kailas ugale

Logging table entries - periodic cleanup/archive

Hello All,
Currently we have the parameter rec/client turned on for config client to trace table entries change.
What job need to run/set up for periodically cleaning up logged table change entries in SAP?
If they is any transactions that can be called to run please let me know.
Any help gretaly appreciated with points.

Hi,
I dont remember the note number. but if you go to service.sap.com/notes: search for quaterly jobs or clean log jobs.. etc.. you'll find very good notes. Then apply them. I dont exactly remember the job name either.
Thanks,

Table for vendor open item at key date

Hi
Could you please tell me the table which shows me the vendor open item at the date i want. I know BSIK shows open item at current date, but i need the table which shows open item at date i want.
Thanks
Sweta

Dear Sweta,
I think there is no such a table, as you expect, existing in SAP. As I know here are the
most popular table about Accounting documents.
    Accounting documents
    BKPF                Accounting documents
    BSEG               item level
    BSID                 Accounting: Secondary index for customers
    BSIK                 Accounting: Secondary index for vendors
    BSIM                 Secondary Index, Documents for Material
    BSIP                 Index for vendor validation of double documents
    BSIS                 Accounting: Secondary index for G/L accounts
    BSAD               Accounting: Index for customers (cleared items)
    BSAK                Accounting: Index for vendors (cleared items)
    BSAS                Accounting: Index for G/L accounts (cleared items)
If you need information about open line items of a certain day, you have to use ABAP.
Regards.
Maxielight.

Table for PO open order stock

Dear all
could you please let me know the tables for the below stocks.
UR stock
Stock in transit
QI Stock
Open order or on order stock
Regards
venu gopal

Hi
MARC Plant Data for Material
MARD Storage Location Data for Material
MKOL Special Stocks from Vendor
MSKU Special Stocks with Customer
MSLB Special Stocks with Vendor
MSPR Project Stock
Vivek

Error log table for LSMW-Direct input

Can any one tell me , What is the table for storing the error messages in LSMW-Direct input?
Regards,
Nagesh

for LSMW-Direct input method you can use EXCUTE IN BACK GROUND. the job is running and see the job name in SM37 . after completion of your job , select you job name and press the SPOOL button there you can find the you job error log.

Change log table for Vendor Bidder information?

Hi,
In BBPMAININT transaction we have BIDDER DATA tab.
If we change any Classification data in BIDDER DATA tab for the Vendor in which table it updates the change log information?
I checked in BBP_SUPP_MONI table this table updates only when we change any Company data information for the vendor not Bidder tab.
can any one help me?
Thanks.

Hi
There is no standard report.
But you can check in CDHDR & CDPOS tables for change log.
Object Class= BUPA_BBP0020
Tabname=BBPM_BUT_FRG0021
Best regards
Ramki

GL_DAILY_BALANCES table for daily opening/closing balance

Hi All,
I need to know something about the GL_Daily_Balances table. In eTRM, it says that the table gives the balances for a particular day. My requirement is to show the opening and closing balances on daily basis. But, I found that all the END_OF_DAY columns (END_OF_DAY1...END_OF_DAY35) are NULL.
Can anyone tell me why these columns are NULL ? Under what conditions, they are null ? How can I get the opening /closing balance then?
Thanks!
Yogini

Hi Yogini,
This table is populated when balance processing is enabled in the definition of each set of books, do you have it?
You can read about in the metalink note # 1072012.6
Bye

Table for getting open PR quantity

Hi
I have one requirement........ I have created a PR for 100 nos. Then I created a PO with ref. to this PR for 25 nos. Now i want to capture how much open PR quantity (75 nos) is present in the system. In which table I can get this information?
Rgds
Sarang

Hi,
There is no need of any Table.. Many reports are there please check.
Pls type SAP1 on easy access menu..
MM>PUR>PR
You will many report trxns..
Thx
Raju

Table for customer open items

Hi,what is table name where we can see customer open items
BR.AJ

Hi,.
I am not sure of the table name..
U may use this transaction code to find the open items of a customer... S_ALR_87012173
See if this is of any help to you...
FAGL_S_RFDEPL00_LIST1
POINTS PLZ
Cheers
Raghu

Log table for reservation deletion date and by

Dear ABAP'ers
Can anybody share where to find reservation deletion log include when, and by whom.
I try to search it on CDHDR but it doesn't come up. I try to put reservation number in each "Change Doc Object", "Object Value", "Document Number" field, but it doesn't work.
Any advice?
Thank you
Regards
Hadi

Hi,
have u tries tcode SM12 for log entries, just specify the object name and shall get all the details...
if still the issue is unsolved, pls let me know!!!!
thanks
ravi

ESYU: "Open/Close Periods" 와 "Control Purchasing Periods"의 차이점

Purpose
Oracle Purchasing - Version: 11.5.10
FORM:POXSTCPP.FMB - Control Purchasing Periods GUI
FORM:GLPRDED.FMB - Open/Close Periods
"Open/Close Periods" 와 "Control Purchasing Periods"의 차이점이 무엇인지
알아본다.
Solution
1. Purchasing Periods 관리
(Purchasing-->Setup -->Financials --> Accounting-->Control Purchasing Periods)
Control Purchasing Periods는 Purchasing Period를 관리한다.
Purchasing periods는 Receiving Sub Ledger에 ledger 입력을 관리한다.
Purchase Orders와 Receipts(만일 PO를 Inventory로 넘겨줘야 한다면 transaction date는
Inventory Accounting Period 안에 있어야 한다) process를 위해서는 Purchasing period는
Open 되어져야 한다.
만일 예산 관리/Encumbrance Accounting을 사용한다면, Purchasing은 PO distribution과
Requisition distributions에 입력된 GL date가 open Purchasing period 안에 있는 날짜인지를
검토한다.
만일 집중화된 Procurement를 사용한다면, Purchase Orders와 Receipt process를 원하는
모든 Business units 안의 Purchasing Period는 Open 상태로 남아 있는지 확인해야 한다.
2. Open/Close Period
(Purchasing-->Setup-->Financials --> Accounting-->Open/Close Period).
이 화면은 GL periods를 관리한다.
GL periods는 GL에서 posting과 journal 입력을 관리한다.
Reference
Note 394361.1

Hi Vamsi,
Thanks for your response and our company metalink account has been expired, and Oracle no longer support us.
I want to confirm that, do you mean that I update the adjustment month on gl_period_status, then the system can generate the 'missing' inventory accounting period and purchasing period, and also other periods that should be existed?
Thanks for kindly help!
Joseph

Regarding the inbuilt log and audit tables for APEX 4.1

Hi,
When we acces the Administrator login then we can view various logs like the sql commands that have been recently fired,user list for a workspace,access to each application.Where are these data stored and fetched.Also could we get the inbuilt audit and log table for APEX 4.1 ?
Thanks and Regards

>
Please update your forum profile with a real handle instead of "935203".
When we acces the Administrator login then we can view various logs like the sql commands that have been recently fired,user list for a workspace,access to each application.Where are these data stored and fetched.Also could we get the inbuilt audit and log table for APEX 4.1 ? This information is available through APEX views. See:
<li>APEX views: Home > Application Builder > Application > Utilities > Application Express Views
<li>Monitoring Activity Within a Workspace
<li>Creating Custom Activity Reports Using APEX_ACTIVITY_LOG
Note that the underlying logs are purged on a regular basis, so for the long term you need to copy the data to your own tables, as Martin handily suggests here.

Table for open item

What is the table for customers open item?

Hi Divya,
Table BSID is for Customer Open items
Table BSAD is for Customer Cleared/Closed items
Whilst you can use transaction code FBL5N to display either Open Items, Cleared Items or both.
I hope the above helps.
Do not forget to award the points please.
Regards,
Jacob

Open close PO's

Hi All,
I want help in changing my code for getting open & close POs. I wrote the code in Start-of-Selection. This code is working fine with my POs whether close or open basing on the status of delivery or on the quantity delivered and invoiced. My problem is that when this PO is having line items & if the 1st two or any of the POs closed & last item yet to be delivered it is giving correct result that this POs is still open. If my last item in POs is closed & 1st two or three items are open it is giving closed. Basing on last item my program is working. It is not checking on each line item to decide whether it is closed or open. Kindly help to change the code to check each line item whether closed or open & give the final result. Your help is appreciated.
Regards,
Ram
This is the code I have written.
DATA: SUBTOTAL LIKE EKPO-MENGE.
DATA: STATUS TYPE I VALUE 1.
SELECT EKKO~EBELN
 EKKO~LIFNR
 EKKO~BEDAT
 EKKO~WAERS
 EKKO~EKGRP
INTO CORRESPONDING FIELDS OF TABLE IEKKO
FROM EKKO
WHERE EKKO~EBELN IN S_EBELN
AND LIFNR IN S_LIFNR
AND EKGRP IN S_EKGRP
AND EKKO~BUKRS IN S_BUKRS
AND BEDAT IN S_BEDAT.
SELECT EKPO~EBELN
 EKPO~EBELP
 EKPO~NETWR
 EKPO~ELIKZ
 FROM EKPO
 INTO CORRESPONDING FIELDS OF TABLE IEKPO
 FOR ALL ENTRIES IN IEKKO
 WHERE EKPO~EBELN EQ IEKKO-EBELN
 AND EKPO~LOEKZ <> 'L'.
IEKPO1[] = IEKPO[].
LOOP AT IEKKO.
 LOOP AT IEKPO WHERE EBELN EQ IEKKO-EBELN.
 LOOP AT IEKPO1 WHERE EBELN EQ IEKPO-EBELN AND EBELP EQ IEKPO-EBELP.
 STATUS = 1.
 IF IEKPO-ELIKZ NE 'X'.
 STATUS = '0'.
 ELSE.
 IEKPO1-CK = 'X'.
 MODIFY IEKPO1.
 ENDIF.
 ENDLOOP.
 ENDLOOP.
 IF STATUS EQ '0'.
 IEKKO-POSTA = 'Open'.
 MODIFY IEKKO.
 ELSE.
 IEKKO-POSTA = 'Close'.
 MODIFY IEKKO.
 ENDIF.
ENDLOOP.
Status consideration based on Quantity delivered and invoiced
SELECT EKET~EBELN
 EKET~EBELP
 EKET~ETENR
 EKET~WEMNG
 EKET~MENGE
 FROM EKET
 INTO CORRESPONDING FIELDS OF TABLE IEKET
 FOR ALL ENTRIES IN IEKPO
 WHERE EKET~EBELN EQ IEKPO-EBELN
 AND EKET~EBELP EQ IEKPO-EBELP.
LOOP AT IEKPO.
 LOOP AT IEKET WHERE EBELN EQ IEKPO-EBELN AND EBELP EQ IEKPO-EBELP.
 IEKPO-QTYRC = QTYRC + IEKET-WEMNG.
 IEKPO-QTYOR = QTYOR + IEKET-MENGE.
 ENDLOOP.
 MODIFY IEKPO.
ENDLOOP.
LOOP AT IEKKO.
 LOOP AT IEKPO WHERE EBELN EQ IEKKO-EBELN.
 SUBTOTAL = IEKPO-QTYRC - IEKPO-QTYOR.
 ENDLOOP.
 IF SUBTOTAL <> '0'.
 IEKKO-POSTA = 'Open'.
 MODIFY IEKKO.
 ELSE.
 IEKKO-POSTA = 'Close'.
 MODIFY IEKKO.
 ENDIF.
ENDLOOP.
LOOP AT IEKKO.
 LOOP AT IEKPO WHERE EBELN EQ IEKKO-EBELN.
 IEKKO-TOTAL = IEKKO-TOTAL + IEKPO-NETWR.
 ENDLOOP.
 MODIFY IEKKO.
ENDLOOP.
*Finished Status consideration based on Quantity delivered and invoiced
Fetch Vendor Name
LOOP AT IEKKO.
 SELECT LFA1~NAME1
 INTO IEKKO-NAME1
 FROM LFA1
 WHERE LFA1~LIFNR EQ IEKKO-LIFNR.
 MODIFY IEKKO.
 ENDSELECT.
Fetch
 SELECT T024~EKNAM
 INTO IEKKO-EKNAM
 FROM T024
 WHERE T024~EKGRP EQ IEKKO-EKGRP.
 MODIFY IEKKO.
 ENDSELECT.
ENDLOOP.


Hi
You are using so many nested loops in the code which is not advised
see the sample code for the open PO's based on Vendor
and do accordingly
*& Report ZMM_PO_REPORT
REPORT ZMM_PO_REPORT message-Id yb
 NO STANDARD PAGE HEADING
 LINE-COUNT 60(1)
 LINE-SIZE 230.
 D A T A B A S E T A B L E S D E C L A R A T I O N
TABLES: lfa1, " Vendor Master
 t161, " PO Doc Types
 t024, " Purchase Groups
 ekko. " PO Header
 T Y P E S D E C L A R A T I O N S
Purchase Orders Main Structure
TYPES: BEGIN OF s_po,
 ebeln TYPE ebeln, " PO No.
 ebelp TYPE ebelp, " PO Item
 bstyp TYPE bstyp, " PO Category
 bukrs TYPE bukrs, " Company Code
 bsart TYPE bbsrt, " PO Type
 lifnr TYPE lifnr, " Vendor No
 ekgrp TYPE bkgrp, " Purchase Group
 waers TYPE waers, " Currency
 bedat TYPE etbdt, " PO Date
 txz01 TYPE txz01, " Material Text
 werks TYPE ewerk, " Plant
 lgort TYPE lgort_d, " Storage Location
 matkl TYPE matkl, " Material Group
 menge TYPE bamng, " PR Quantity
 meins TYPE bamei, " UOM
 bprme TYPE bbprm, " Price Unit
 netpr TYPE netpr, " Net price
 peinh TYPE peinh, " Price Unit UOM
 pstyp TYPE pstyp, " Item Category
 knttp TYPE knttp, " Account Assignment Category
 END OF s_po.
Purchase Orders History Structure
TYPES: BEGIN OF s_account,
 ebeln TYPE ebeln, " PO No.
 ebelp TYPE ebelp, " PO Item
 gjahr TYPE mjahr, " Fiscal Year
 belnr TYPE mblnr, " PO Invoice No
 menge TYPE menge_d, " PR Quantity
 wrbtr TYPE wrbtr, " Price in Local Currency
 dmbtr TYPE dmbtr, " Price in Foreign Currency
 waers TYPE waers, " Currency
 shkzg TYPE shkzg, " Dr/Cr Indicator
 END OF s_account.
Purchase Orders History Structure(Item Sum)
TYPES: BEGIN OF s_inv_sum,
 ebeln TYPE ebeln, " PO No.
 ebelp TYPE ebelp, " PO Item
 menge TYPE menge_d, " PR Quantity
 wrbtr TYPE wrbtr, " Price in Foreign Currency
 waers TYPE waers, " Currency
 END OF s_inv_sum.
Purchase Orders Main Structure
TYPES: BEGIN OF s_rep,
 lifnr TYPE lifnr, " Vendor No
 ebeln TYPE ebeln, " PO No.
 ebelp TYPE ebelp, " PO Item
 bstyp TYPE bstyp, " PO Category
 bsart TYPE bbsrt, " PO Type
 ekgrp TYPE bkgrp, " Purchase Group
 waers TYPE waers, " Currency
 bedat TYPE etbdt, " PO Date
 txz01 TYPE txz01, " Material Text
 werks TYPE ewerk, " Plant
 lgort TYPE lgort_d, " Storage Location
 matkl TYPE matkl, " Material Group
 menge TYPE bamng, " PR Quantity
 meins TYPE bamei, " UOM
 bprme TYPE bbprm, " Price Unit
 netpr TYPE netpr, " Net price
 peinh TYPE peinh, " Price Unit UOM
 pstyp TYPE pstyp, " Item Category
 knttp TYPE knttp, " Account Assignment Category
 name1 TYPE name1, " Plant
 orewr TYPE netpr, " To be Invoiced Price
 curr TYPE waers, " Inv Doc Currency
 END OF s_rep.
 D A T A D E C L A R A T I O N S
DATA: gv_title1 TYPE sylisel, " Report title
 gv_dial. " Color flag
 C O N S T A N T S D E C L A R A T I O N S
CONSTANTS: c_x VALUE 'X', " Flag X
 c_h VALUE 'H', " Debit
 c_vgabe TYPE vgabe VALUE '2'. " Transaction Type
 I N T E R N A L T A B L E S D E C L A R A T I O N S
DATA: i_po TYPE STANDARD TABLE OF s_po WITH HEADER LINE,
 " Purchase Order
 i_inv TYPE STANDARD TABLE OF s_inv_sum WITH HEADER LINE,
 " PO Invoice Values
 i_rep TYPE STANDARD TABLE OF s_rep WITH HEADER LINE,
 " PO Invoice Values
 i_ekbe TYPE STANDARD TABLE OF s_account WITH HEADER LINE.
 " PO Invoice Values
 S E L E C T I O N S C R E E N *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_lifnr FOR lfa1-lifnr MATCHCODE OBJECT kred,
 s_ebeln FOR ekko-ebeln MATCHCODE OBJECT mekk,
 s_bsart FOR t161-bsart,
 s_ekgrp FOR t024-ekgrp,
 s_bedat FOR ekko-bedat.
SELECTION-SCREEN END OF BLOCK b1.
 I N I T I A L I Z A T I O N *
INITIALIZATION.
 A T S E L E C T I O N - S C R E E N *
AT SELECTION-SCREEN.
Validate the screen fields
PERFORM validate_screen.
 S T A R T - O F - S E L E C T I O N *
START-OF-SELECTION.
Fetch main data
PERFORM fetch_data.
 T O P - O F - P A G E *
TOP-OF-PAGE.
Header of the List
PERFORM header.
 E N D - O F - P A G E *
Footer
END-OF-PAGE.
ULINE.
 E N D - O F - S E L E C T I O N *
END-OF-SELECTION.
Display the Report Output data
PERFORM display_data.
At Line-Selection
AT LINE-SELECTION.
When double clicked on EBELN display the details of Purchase Doc
PERFORM line_sel.
*& Form validate_screen
Validation of Selection Screen fields
FORM validate_screen .
Validation of Vendor Number
CLEAR lfa1-lifnr.
IF NOT s_lifnr[] IS INITIAL.
 SELECT lifnr UP TO 1 ROWS
 INTO lfa1-lifnr
 FROM lfa1
 WHERE lifnr IN s_lifnr.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e000 WITH 'Invalid Vendor'(002).
 ENDIF.
ENDIF.
Validation of PO Number
CLEAR ekko-ebeln.
IF NOT s_ebeln[] IS INITIAL.
 SELECT ebeln UP TO 1 ROWS
 INTO ekko-ebeln
 FROM ekko
 WHERE ebeln IN s_ebeln.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e000 WITH 'Invalid Document Number'(003).
 ENDIF.
ENDIF.
Validation of PO Document Type
CLEAR t161-bsart.
IF NOT s_bsart[] IS INITIAL.
 SELECT bsart UP TO 1 ROWS
 INTO t161-bsart
 FROM t161
 WHERE bsart IN s_bsart.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e000 WITH 'Invalid Purchase Document Type'(004).
 ENDIF.
ENDIF.
Validation of Purchasing Group
CLEAR t024-ekgrp.
IF NOT s_ekgrp[] IS INITIAL.
 SELECT ekgrp UP TO 1 ROWS
 INTO t024-ekgrp
 FROM t024
 WHERE ekgrp IN s_ekgrp.
 ENDSELECT.
 IF sy-subrc <> 0.
 MESSAGE e000 WITH 'Invalid Purchasing Group'(005).
 ENDIF.
ENDIF.
ENDFORM. " validate_screen
*& Form fetch_data
Fetching the PO related data from Database Tables
FORM fetch_data .
CLEAR i_po.
REFRESH i_po.
SELECT a~ebeln " PO No.
 b~ebelp " PO Item
 a~bstyp " PO Category
 a~bukrs " Company Code
 a~bsart " PO Type
 a~lifnr " Vendor No
 a~ekgrp " Purchase Group
 a~waers " Currency
 a~bedat " PO Date
 b~txz01 " Material Text
 b~werks " Plant
 b~lgort " Storage Location
 b~matkl " Material Group
 b~menge " PR Quantity
 b~meins " UOM
 b~bprme " Price Unit
 b~netpr " Net price
 b~peinh " Price Unit UOM
 b~pstyp " Item Category
 b~knttp " Account Assignment Category
 INTO TABLE i_po
 FROM ekko AS a JOIN ekpo AS b
 ON a~ebeln = b~ebeln
 WHERE a~ebeln IN s_ebeln AND
 a~lifnr IN s_lifnr AND
 a~ekgrp IN s_ekgrp AND
 a~bsart IN s_bsart AND
 a~bedat IN s_bedat.
SORT i_po BY ebeln ebelp.
break-point.
IF NOT i_po[] IS INITIAL.
Fetch the PO History/Invoice Details from EKBE Table
 CLEAR i_ekbe.
 REFRESH i_ekbe.
 SELECT ebeln " PO No.
 ebelp " PO Item
 gjahr " Fiscal Year
 belnr " PO Invoice No
 menge " PR Quantity
 wrbtr " Price in Local Currency
 dmbtr " Price in Foreign Currency
 waers " Currency
 shkzg " Dr/Cr Indicator
 INTO TABLE i_ekbe
 FROM ekbe
 FOR ALL ENTRIES IN i_po
 WHERE ebeln = i_po-ebeln AND
 ebelp = i_po-ebelp AND
 vgabe = c_vgabe.
 IF sy-subrc = 0.
 SORT i_ekbe BY ebeln ebelp.
 LOOP AT i_ekbe.
 IF i_ekbe-shkzg = c_h.
 i_ekbe-wrbtr = i_ekbe-wrbtr * -1.
 ENDIF.
 MODIFY i_ekbe.
 ENDLOOP.
break-point.
Sum up the Item wise Invoice totals
 LOOP AT i_ekbe.
 AT END OF ebelp.
 READ TABLE i_ekbe INDEX sy-tabix.
 SUM.
 MOVE-CORRESPONDING i_ekbe TO i_inv.
 APPEND i_inv.
 ENDAT.
 CLEAR i_inv.
 ENDLOOP.
 SORT i_inv BY ebeln ebelp.
 break-point.
 ENDIF.
ENDIF.
Move the Vendor Name and Invoice Values to I_rep Internal Table
LOOP AT i_po.
 MOVE-CORRESPONDING i_po TO i_rep.
 CLEAR i_inv.
 READ TABLE i_inv WITH KEY ebeln = i_po-ebeln
 ebelp = i_po-ebelp.
 IF sy-subrc = 0.
 i_rep-orewr = ( i_po-menge - i_inv-menge ) * i_po-netpr.
 i_rep-curr = i_inv-waers.
 ELSE.
 i_rep-orewr = i_po-menge * i_po-netpr.
 i_rep-curr = i_po-waers.
 ENDIF.
break-point.
Get the Vendor Name
 CLEAR lfa1-name1.
 SELECT SINGLE name1 FROM lfa1 INTO lfa1-name1
 WHERE lifnr = i_po-lifnr.
 IF sy-subrc = 0.
 i_rep-name1 = lfa1-name1.
 ENDIF.
 APPEND i_rep.
 CLEAR i_rep.
 break-point.
ENDLOOP.
SORT i_rep BY lifnr ebeln ebelp.
DELETE i_rep WHERE orewr LE 0.
break-point.
ENDFORM. " fetch_data
*& Form display_data
Display the Report Output data
FORM display_data .
DATA: lv_flag, " New Flag
 lv_rec TYPE i. " No of Records
CLEAR lv_rec.
IF i_rep[] IS INITIAL.
 MESSAGE e000 WITH 'No Data found'(022).
ELSE.
 LOOP AT i_rep.
Toggle Color
 PERFORM toggle_color.
 IF lv_flag <> space.
 NEW-LINE.
 ENDIF.
At New Purchase Document
 AT NEW ebeln.
 WRITE:/1 sy-vline, 2(10) i_rep-ebeln INTENSIFIED OFF.
 lv_flag = c_x.
 lv_rec = lv_rec + 1.
 ENDAT.
 WRITE: 1 sy-vline,
 12 sy-vline,13(4) i_rep-bsart,
 17 sy-vline,18(10) i_rep-lifnr,
 28 sy-vline,29(35) i_rep-name1,
 64 sy-vline,65(4) i_rep-ekgrp,
 69 sy-vline,70(10) i_rep-bedat,
 80 sy-vline,81(5) i_rep-ebelp,
 86 sy-vline,87(40) i_rep-txz01,
 127 sy-vline,128(9) i_rep-matkl,
 137 sy-vline,138(1) i_rep-pstyp,
 139 sy-vline,140(1) i_rep-knttp,
 141 sy-vline,142(4) i_rep-werks,
 146 sy-vline,147(4) i_rep-lgort,
 151 sy-vline,152(13) i_rep-menge UNIT i_rep-meins,
 165 sy-vline,166(3) i_rep-meins,
 169 sy-vline,170(15) i_rep-netpr CURRENCY i_rep-waers,
 185 sy-vline,186(4) i_rep-waers,
 190 sy-vline,191(5) i_rep-peinh,
 196 sy-vline,197(4) i_rep-bprme,
 201 sy-vline,202(15) i_rep-orewr CURRENCY i_rep-curr,
 217 sy-vline,218(4) i_rep-curr,
 222 sy-vline,223(7) i_rep-bstyp centered,
 230 sy-vline.
 NEW-LINE.
 hide: i_rep-ebeln.
 ENDLOOP.
 ULINE.
 FORMAT COLOR OFF.
 WRITE : /2 'Total Number of Purchasing Documents:'(025) COLOR 3,
 lv_rec COLOR 3.
ENDIF.
ENDFORM. " display_data
*& Form header
Write the Report Header
FORM header .
FORMAT RESET.
header
WRITE:/1(230) 'LIST OF PURCHASE DOCUMENTS PER VENDOR'(006) CENTERED.
SKIP.
FORMAT COLOR COL_HEADING.
ULINE.
WRITE:/1 sy-vline,2(10) 'Pur.Doc.No'(006) CENTERED,
 12 sy-vline,13(4) 'Type'(007),
 17 sy-vline,18(10) 'Vendor'(008) CENTERED,
 28 sy-vline,29(35) 'Name'(009) CENTERED,
 64 sy-vline,65(4) 'PGrp'(010) CENTERED,
 69 sy-vline,70(10) 'Doc.Date'(012) CENTERED,
 80 sy-vline,81(5) 'Item'(011),
 86 sy-vline,87(40) 'Material Short Text'(024) CENTERED,
 127 sy-vline,128(9) 'Mat.Group'(013),
 137 sy-vline,138(1) 'I',
 139 sy-vline,140(1) 'A',
 141 sy-vline,142(4) 'Plnt'(014),
 146 sy-vline,147(4) 'SLoc'(015),
 151 sy-vline,152(13) 'Quantity'(016) CENTERED,
 165 sy-vline,166(3) 'UoM'(017),
 169 sy-vline,170(15) 'Net Value'(018) CENTERED,
 185 sy-vline,186(4) 'Curr'(019),
 190 sy-vline,191(5) 'Per'(020),
 196 sy-vline,197(4) 'Unit'(021),
 201 sy-vline,202(15) 'To be Invoiced'(023) CENTERED,
 217 sy-vline,218(4) 'Curr'(019),
 222 sy-vline,223(7) 'Doc.Cat'(026),
 230 sy-vline.
ULINE.
ENDFORM. " header
*& Form toggle_color
This routine alters the color of the records in the list
FORM toggle_color.
IF gv_dial = space.
 FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
 gv_dial = c_x.
ELSE.
 FORMAT COLOR 1 INTENSIFIED OFF.
 CLEAR gv_dial.
ENDIF.
ENDFORM. " toggle_color
*& Form LINE_SEL
*When double clicked on EBELN field display the details of Purchase Doc
FORM line_sel.
CASE sy-lsind.
 WHEN '1'.
 DATA: lv_field(20),
 lv_value(10),
 lv_bstyp like i_rep-bstyp.
 clear: lv_bstyp,lv_value, lv_field.
 GET CURSOR FIELD lv_field VALUE lv_value.
 IF lv_field = 'I_REP-EBELN'.
 IF NOT lv_value IS INITIAL.
 READ LINE sy-index FIELD VALUE i_rep-bstyp
 INTO lv_bstyp.
 READ CURRENT LINE FIELD VALUE i_rep-bstyp INTO lv_bstyp.
 if lv_bstyp = 'F'.
 SET PARAMETER ID 'BES' FIELD lv_value.
 CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
 elseif ( lv_bstyp = 'K' or lv_bstyp = 'L' ).
 SET PARAMETER ID 'VRT' FIELD lv_value.
 CALL TRANSACTION 'ME33' AND SKIP FIRST SCREEN.
 elseif lv_bstyp = 'A'.
 SET PARAMETER ID 'ANF' FIELD lv_value.
 CALL TRANSACTION 'ME43' AND SKIP FIRST SCREEN.
 endif.
 ENDIF.
 ENDIF.
ENDCASE.
ENDFORM. " line_sel
Regards
Anji

Logging table for period open/close

Similar Messages

Maybe you are looking for