I need standard reports on the following
Hi,
I need standard SAP reports (if any) on the following topic
Sales Order On Hand
Display Order On Hand
Incomplete Order for CUSt & Mat
Deliveries To Be Confirm
Standard SAP SD Reports:=
Statistic Group:
Purpose To capture data for Standard Reports, we require to activate Statistic Group as under:
--> Item category (Configuration)
--> Sales document type (Configuration)
--> Customer (Maintain in Master data)
--> Material (Maintain in Master data)
When you generate statistics in the logistics information system, the system uses the combination of specified statistics groups to determine the appropriate update sequence. The update sequence in turn determines for exactly which fields the statistics are generated.
Configuration:
IMG --> Logistics Information System (LIS) --> Logistics Data Warehouse --> Updating --> Updating Control --> Settings: Sales --> Statistics Groups -->
1. Maintain Statistics Groups for Customers
2. Maintain Statistics Groups for Material
3. Maintain Statistics Groups for Sales Documents
4. Assign Statistics Groups for Each Sales Document Type
5. Assign Statistics Groups for each Sales Document Item Type .....
All Standard Reports which are available are as under:
SAP Easy Access: Information Systems -> Logistics -> Sales and distribution ->
1. Customer -> Incoming orders / Returns / Sales / Credit memos / Sales activities / Customer master / Conditions / Credit Master Sheet
2. Material -> Incoming orders / Returns / Sales / Credit memos / Material master / ...
3. Sales organization -> Sales organization / Sales office / Sales employee
4. Shipping point -> Deliveries / Returns
5. SD documents -> Orders / Deliveries / Billing documents ...
& so on.
Some of the Standard reports in SD are:
Sales summary - VC/2
Display Customer Hierarchy - VDH2
Display Condition record report - V/I6
Pricing Report - V/LD
Create Net Price List - V_NL
List customer material info - VD59
List of sales order - VA05
List of Billing documents - VF05
Inquiries list - VA15
Quotation List - VA25
Incomplete Sales orders - V.02
Backorders - V.15
Outbound Delivery Monitor - VL06o
Incomplete delivery - V_UC
Customer Returns-Analysis - MC+A
Customer Analysis- Sales - MC+E
Customer Analysis- Cr. Memo - MC+I
Deliveries-Due list - VL04
Billing due list - VF04
Incomplete Billing documents - MCV9
Customer Analysis-Basic List - MCTA
Material Analysis(SIS) - MCTC
Sales org analysis - MCTE
Sales org analysis-Invoiced sales - MC+2
Material Analysis-Incoming orders - MC(E
General- List of Outbound deliveries - VL06f
Material Returns-Analysis - MC+M
Material Analysis- Invoiced Sales - MC+Q
Variant configuration Analysis - MC(B
Sales org analysis-Incoming orders - MC(I
Sales org analysis-Returns - MC+Y
Sales office Analysis- Invoiced Sales - MC-E
Sales office Analysis- Returns - MC-A
Shipping point Analysis - MC(U
Shipping point Analysis-Returns - MC-O
Blocked orders - V.14
Order Within time period - SD01
Duplicate Sales orders in period - SDD1
Display Delivery Changes - VL22
Regards,
Rajesh Banka
Reward points if helpful.
Similar Messages
-
I need a report with the following fields
Hi All,
I need a report with the following fields & G/L "Expenses" only.
1)G/L Code.
2) G/L Name.
3) G/L Balance
& Selection Criteria From Date, To Date , & Location(for me locations is PROFITCENTRE).
Please some body suggest me an SQL Querry to fetch this result.
Thanks in Advance,
S. MobinHi!
Individual G/L means i didn't understand
check this for only Expence Acc
Declare @FromDate Datetime
Declare @ToDate Datetime
Declare @Location nvarchar(20)
set @FromDate = (Select min(S0.RefDate) from jdt1 s0 where s0.Refdate >='[%0]')
set @ToDate = (Select max(S1.RefDate) from jdt1 s1 where s1.Refdate >='[%1]')
set @Location = (Select max(s2.ProfitCode) from jdt1 s2 where s2.ProfitCode = '[%2]')
select
J1.Account,
max(A0.AcctName) as Name,
j1.ProfitCode as Location,
sum(J1.debit-j1.credit) as Balance
From
JDT1 J1,OACT A0
Where
J1.Account=A0.AcctCode and
J1.RefDate >=@FromDate and
J1.RefDate<= @ToDate and
j1.ProfitCode=@Location and
A0.GroupMask = 5
Group By
J1.Account,j1.ProfitCode -
I need standard programs for the following
hi,
i need standard programs (if any) available for these..
Incomplete Order for CUSt & Mat
Display Order On Hand
Deliveries To Be Confirm
Sales Order On Hand
helpful replies will be rewardedHi Amit,
For deliveries check the followings txn :
VL10A Sales Orders Due for Delivery
VL10B Purchase Orders Due for Delivery
VL10C Order Items Due for Delivery
VL10D Purch. Order Items due for Delivery
VL10E Order Schedule Lines due for Deliv.
VL10F PurchOrd Schedule Lines due for Dlv.
VL10G Documents due for Delivery
VL10H Items Due for Delivery
VL10I Schedule Lines due for Delivery
VL10U Cross-System Deliveries
Check Also :
VA05 List of Sales Orders
VA07 Compare Sales - Purchasing (Order)
VA08 Compare Sales - Purchasing (Org.Dt.) -
I Need a Report For the following Specifications
SALESORDER REPORT
TABLES : VBAK,
VBAP,
KNA1.
INPUT FIELDS : Sales Document (RANGE)----
(vbak-vbeln)
Document Date (Date Received/Sent).(RANGE)----
(vbak-audat)
Sold-to party (PARAMETERS)----
(kna1-kunnr)
O/P FIELDS :
Sales Document----
(vbak-vbeln)
Document Date (Date Received/Sent)----
(vbak-audat)
Sales Document Item----
(vbap-posnr)
Short text for sales order item----
(vbap-arktx)
Material Number----
(vbap-matnr)
Cumulative order quantity in sales units----
(VBAP-KWMENG)
Requested delivery date----
(VBAP-CMKUA)
CUSTMER NUMBER(Sold-to party) -
(kna1-kunnr)
CUSTMER NAME -
(KNA1-NAME1)
CUSTMER CONTRY----
(KNA1-LAND1)
Net Value of the Sales Order in Document Currency----
(VBAK-NETWR)
Sales Organization----
(VBAK-KORG)
Name of Person who Created the Object----
(VBAK-ERNAM)
================================================================================
VBAK :
(KNA1-KUNNR)
Sales Document----
(VBAK-VBELN)
Document Date (Date Received/Sent)----
(VBAK-AUDAT)
Net Value of the Sales Order in Document Currency----
(VBAK-NETWR)
Sales Organization----
(VBAK-KORG)
Name of Person who Created the Object----
(VBAK-ERNAM)
VBAP:
Sales Document Item----
(VBAP-POSNR)
Short text for sales order item----
(VBAP-ARKTX)
Material Number----
(VBAP-MATNR)
Cumulative order quantity in sales units----
(VBAP-KWMENG)
Requested delivery date----
(VBAP-CMKUA)
KNA1:
CUSTMER NUMBER(Sold-to party) -
(KNA1-KUNNR)
CUSTMER NAME -
(KNA1-NAME1)
CUSTMER CONTRY----
(KNA1-LAND1)
====================================================================================================
TABLES : VBAK,
VBAP,
KNA1.
INPUT FIELDS : Sales Document (RANGE)
Document Date (Date Received/Sent).(RANGE)
Sold-to party (PARAMETERS)
O/P FIELDS :
Sales Document ....... VBAK-VBELN
Document Date (Date Received/Sent).....VBAK-AUDAT
CUSTMER NUMBER(Sold-to party)................VBAK-KUNNR
Net Value of the Sales Order in Document Currency.....VBAK-NETWR
Sales Organization......................................................VBAK-KORG
Name of Person who Created the Object..................VBAK-ERNAM
Sales Document Item ...............VBAP-POSNR
Short text for sales order item..........VBAP-ARKTX
Material Number.............................VBAP-MATNR
Cumulative order quantity in sales units............VBAP-KWMENG
Requested delivery date.................VBAP-CMKUA
CUSTMER NAME..................KNA1-NAME1
CUSTMER CONTRY..........................KNA1-LAND1Here is the sample code, please make the necessary modifications...
REPORT ZTEST LINE-SIZE 103 LINE-COUNT 35(5) NO STANDARD PAGE
HEADING.
*TABLES DECLARATION
TABLES : KNA1, VBAK, VBAP.
*SELECT OPTIONS
SELECT-OPTIONS: CUST_NO FOR KNA1-KUNNR.
*INITIALIZATION
INITIALIZATION.
CUST_NO-LOW = '01'.
CUST_NO-HIGH = '5000'.
CUST_NO-SIGN = 'I'.
CUST_NO-OPTION = 'BT'.
APPEND CUST_NO.
*SELECTION SCREEN VALIDATION
AT SELECTION-SCREEN ON CUST_NO.
LOOP AT SCREEN.
IF CUST_NO-LOW < 1 OR CUST_NO-HIGH > 5000.
MESSAGE E001(ZTJ1).
ENDIF.
ENDLOOP.
*BASIC LIST SELECTION
START-OF-SELECTION.
SELECT KUNNR NAME1 ORT01 LAND1 INTO
(KNA1-KUNNR, KNA1-NAME1,KNA1-ORT01,KNA1-LAND1)
FROM KNA1
WHERE KUNNR IN CUST_NO.
WRITE:/1 SY-VLINE,
KNA1-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,
16 SY-VLINE,
KNA1-NAME1 UNDER 'NAME',
61 SY-VLINE,
KNA1-ORT01 UNDER 'CITY',
86 SY-VLINE,
KNA1-LAND1 UNDER 'COUNTRY',
103 SY-VLINE.
HIDE: KNA1-KUNNR.
ENDSELECT.
ULINE.
*SECONDARY LIST ACCESS
AT user-command.
IF SY-UCOMM = 'IONE'.
PERFORM SALES_ORD.
ENDIF.
IF SY-UCOMM = 'ITWO'.
PERFORM ITEM_DET.
ENDIF.
*TOP OF PAGE
TOP-OF-PAGE.
FORMAT COLOR 1.
WRITE : 'CUSTOMER DETAILS'.
FORMAT COLOR 1 OFF.
ULINE.
FORMAT COLOR 3.
WRITE : 1 SY-VLINE,
3 'CUSTOMER NO.',
16 SY-VLINE,
18 'NAME',
61 SY-VLINE,
63 'CITY',
86 SY-VLINE,
88 'COUNTRY',
103 SY-VLINE.
ULINE.
FORMAT COLOR 3 OFF.
*TOP OF PAGE FOR SECONDARY LISTS
TOP-OF-PAGE DURING LINE-SELECTION.
*TOP OF PAGE FOR 1ST SECONDARY LIST
IF SY-UCOMM = 'IONE'.
ULINE.
FORMAT COLOR 1.
WRITE : 'SALES ORDER DETAILS'.
ULINE.
FORMAT COLOR 1 OFF.
FORMAT COLOR 3.
WRITE : 1 SY-VLINE,
3 'CUSTOMER NO.',
16 SY-VLINE,
18 'SALES ORDER NO.',
40 SY-VLINE,
42 'DATE',
60 SY-VLINE,
62 'CREATOR',
85 SY-VLINE,
87 'DOC DATE',
103 SY-VLINE.
ULINE.
ENDIF.
FORMAT COLOR 3 OFF.
*TOP OF PAGE FOR 2ND SECONDARY LIST
IF SY-UCOMM = 'ITWO'.
ULINE.
FORMAT COLOR 1.
WRITE : 'ITEM DETAILS'.
ULINE.
FORMAT COLOR 1 OFF.
FORMAT COLOR 3.
WRITE : 1 SY-VLINE,
3 'SALES ORDER NO.',
40 SY-VLINE,
42 'SALES ITEM NO.',
60 SY-VLINE,
62 'ORDER QUANTITY',
103 SY-VLINE.
ULINE.
ENDIF.
FORMAT COLOR 3 OFF.
*END OF PAGE
END-OF-PAGE.
ULINE.
WRITE :'USER :',SY-UNAME,/,'DATE :', SY-DATUM, 85 'END OF PAGE:',
SY-PAGNO.
SKIP.
*& Form SALES_ORD
*& FIRST SECONDARY LIST FORM
FORM SALES_ORD .
SELECT KUNNR VBELN ERDAT ERNAM AUDAT INTO
(VBAK-KUNNR, VBAK-VBELN, VBAK-ERDAT, VBAK-ERNAM, VBAK-AUDAT)
FROM VBAK
WHERE KUNNR = KNA1-KUNNR.
WRITE:/1 SY-VLINE,
VBAK-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,
16 SY-VLINE,
VBAK-VBELN UNDER 'SALES ORDER NO.' HOTSPOT ON,
40 SY-VLINE,
VBAK-ERDAT UNDER 'DATE',
60 SY-VLINE,
VBAK-ERNAM UNDER 'CREATOR',
85 SY-VLINE,
VBAK-AUDAT UNDER 'DOC DATE',
103 SY-VLINE.
HIDE : VBAK-VBELN.
ENDSELECT.
ULINE.
ENDFORM. " SALES_ORD
*& Form ITEM_DET
*& SECOND SECONDARY LIST FORM
FORM ITEM_DET .
SELECT VBELN POSNR KWMENG INTO
(VBAP-VBELN, VBAP-POSNR, VBAP-KWMENG)
FROM VBAP
WHERE VBELN = VBAK-VBELN.
WRITE : /1 SY-VLINE,
VBAP-VBELN UNDER 'SALES ORDER NO.',
40 SY-VLINE,
VBAP-POSNR UNDER 'SALES ITEM NO.',
60 SY-VLINE,
VBAP-KWMENG UNDER 'ORDER QUANTITY',
103 SY-VLINE.
ENDSELECT.
ULINE.
ENDFORM. " ITEM_DET
Regards,
Pavan. -
Challenge - Where is the best place to host reports given the following limitations?
Hello All,
I am going to box everyone in a little bit here but where is the best place to host reports given the following restrictions:
Cannot be within a BPF
Cannot be accessed from via the EPM folders
The crux of here is that some of our end users only want to go and run reports much like you would in a traditional BI environment. Given that BPC has no concept of a portal page for hosting such reports we need the next best thing. Currently we are posting reports to the documents folder but the downside of this is that we need a distinct copy of a report for each environment (DEV, QA, PROD) which is quite unfortunate. Coming from a traditional the seems ridiculous.
Cheers,We use EPM folders to save the reports.
Perhaps for your requirement, you should look to Web forms and Web reports.. -
i tried to download an app on my ne ios 7 and something popped up that said i needed to accept to the following so i clicked on that and the page popped up and when i tried to click on the button that said send email to accept it wouldnt let me click on the button and now i cant download any apps on my phone
There must be a problem with the app store right now as a number of people seem to be having this problem right now. Try purchasing it using iTunes on your computer, accept the terms and conditions there, then either sync it to your phone or download it on your phone as a past purchase (http://support.apple.com/kb/HT2519).
-
Hello everybody> my itunes has stopped working and the problem report stated the following:
Problem signature:
Problem Event Name: APPCRASH
Application Name: iTunes.exe
Application Version: 10.5.3.3
Application Timestamp: 4f14cc3d
Fault Module Name: KERNELBASE.dll
Fault Module Version: 6.1.7601.17514
Fault Module Timestamp: 4ce7b8f0
Exception Code: 80000003
Exception Offset: 0003381b
OS Version: 6.1.7601.2.1.0.256.1
Locale ID: 1033
Additional Information 1: 0a9e
Additional Information 2: 0a9e372d3b4ad19135b953a78882e789
Additional Information 3: 0a9e
Additional Information 4: 0a9e372d3b4ad19135b953a78882e789
can anybody help me?Are you seeing a similar message when launching QuickTime Player?
What security software is installed on the computer? Have you tried testing in an admin account or after uninstalling tthe security software?
Use one of the following articles to guide you through removing iTunes and the related QuickTime files.
Removing and Reinstalling iTunes, QuickTime, and other software components for Windows XP
Removing and reinstalling iTunes, QuickTime, and other software components for Windows Vista or Windows 7 -
Standard report throws the error - 'LOAD FAILED, INTERNAL ERROR'
Hi there,
When i run lead origin report or any other standard report, the error says 'LOAD FAILED, INTERNAL ERROR' as mentioned in screen shot. The same i checked in QA server too and error analysis says ''define the correct currency default is EURO''
All the standard reports has the same problem.
* these reports are running in UI.Hi Himanshu,
Where is the detailed error screenshot in SAP GUI.
Thanks,
Faisal PC -
Question: Need help with overcoming the following message: "Nothing was imported.
Need help with overcoming the following message: “Nothing was imported. The file(s) or folder(s) selection to import did not contain any supported file types, or the files are already in this catalogue”.
The photos being scanned are old film shots. They have NOT been previously scanned. I am using Photoshop Elements 9 software.
QUESTION: how do I override this STOP and or circumvent the photo comparison option????
Thanks for the help. Bob K --- [email protected]Are you scanning as jpeg, tiff or some other format?
Are you using continuous numbering for files names as by definition scanned files have no exif data.
-
Standart GR/IR report with the following fields?
Hi All,
Transaction FBL3N gives a list of open GR/IR items at a keydate. However, I'm looking for the following fields to appear in the output
Purchasing doc#, line item, Vendor number, vendor name, Material, Quantity, Accounting document no., Document date and Amount.
I've tried adding certain fields using the Layout option but still havent got all these fields together. Is there any standard SAP report which would give me this output or would I need to develop a custom report?
I also tried ABAP query but there;s no link between an accounting document and Purchase order apart from the "Assignment" field in the BSEG table which has purchase orderno. and line item combined into a single text field.
Thanks
TejasHi
There is no specific standard report for getting the details required by you.
In FBL3N you will get only the FI vendor line items but all the details required by you is not possible.
BUT you can go for the ABAP Report.
TABLES: RSEG,EKKO, EKPO, EKBE, BSAK
Use the "Object key" = (MM invoice number along with fiscal year it comes10+4 is length of the field take the invoice number use the same in RSEG and you will get the the PO details and material details)field in the BSAK for linking both the BSAK and RSEG
VVR -
Need help in modifing the following code to display required output
Hi this is the code which i am going to displayoutput here i used FM VRM_SET_VALUES for getting dropdown box when i used it my output race field is not getting any values and blank space is getting displayed
what i want is just i need to display the output according to the selection screen
and the other fields in the selection screen except 'p_gender' are also giving problem when i am keeping where condition to link selection screen
can any one please help me in getting the required output according to selection by modifing the following code
TABLES: pernr,t5u13,cskt , t001p,t500p, t501t,t503t,t513s,t527x,t529t,t530t, t5uaa.
TYPE-POOLS: slis, vrm.
INFOTYPES: 0000, "Actions
0001, "Org Assignment
0002, "Personal Data
0006, "Address
0008, "Basic Pay
0041, "Date Specifications
0077. "Additional Personal Data
CONSTANTS: gc_x TYPE c VALUE 'X',
g_w(1) TYPE c VALUE 'W',
g_h(1) TYPE c VALUE 'H',
g_af(2) TYPE c VALUE 'AF',
g_ai(2) TYPE c VALUE 'AI',
g_01(2) TYPE c VALUE 'R1',
g_02(2) TYPE c VALUE 'R2',
g_03(2) TYPE c VALUE 'R3',
g_05(2) TYPE c VALUE 'R5'.
TYPES : BEGIN OF t_roster,
pernr TYPE p0001-pernr,
ssn TYPE p0002-perid,
first_name TYPE p0002-vorna,
last_name TYPE p0002-nachn,
city TYPE t500p-ort01,
state TYPE t500p-regio,
zipcode TYPE t500p-pstlz,
hire_date(10) TYPE c,
lhire_date(10) TYPE c,
serv_date(10) TYPE c,
eg TYPE p0001-persg,
eg_desc TYPE t501t-ptext,
esg TYPE p0001-persk,
esg_desc TYPE t503t-ptext,
race TYPE p0077-rac01,
*** TYPE p0002-gesch,
job_grade TYPE p0008-trfgr,
job_level TYPE p0008-trfst,
grade_entry_date(10) TYPE c,
job_title TYPE p0001-plans,
title(30) TYPE c,
job_code TYPE p0001-stell,
job_code_desc TYPE t513s-stltx,
job_entry_date(10) TYPE c,
annual_sal TYPE p0008-ansal,
hrly_rate TYPE p0008-bet01,
org_unit TYPE p0001-orgeh,
orgtx(40) TYPE c,
cost_cntr TYPE p0001-kostl,
ltext(40) TYPE c,
personal_area TYPE p0001-werks,
personal_area_desc TYPE t500p-name1,
supervisor(30) TYPE c,
flsa TYPE t5u13-exmpt,
ee01 TYPE t5u13-eeoct,
job_grp TYPE p0001-stell,
aap_code TYPE t5u13-aapct,
aap_code_desc TYPE t5uaa-ltext,
dob TYPE p0002-gbdat,
psa TYPE p0001-btrtl,
psa_desc TYPE t001p-btext,
unionl TYPE p0001-btrtl,
unionc TYPE p0001-btrtl,
END OF t_roster.
DATA : gi_roster TYPE STANDARD TABLE OF t_roster, gi_objec TYPE STANDARD TABLE OF objec,
gi_hrp1000 TYPE STANDARD TABLE OF hrp1000,
gi_cskt TYPE STANDARD TABLE OF cskt,
gi_t001p TYPE STANDARD TABLE OF t001p,
gi_t500p TYPE STANDARD TABLE OF t500p,
gi_t501t TYPE STANDARD TABLE OF t501t,
gi_t503t TYPE STANDARD TABLE OF t503t,
gi_t513s TYPE STANDARD TABLE OF t513s,
gi_t527x TYPE STANDARD TABLE OF t527x,
gi_t529t TYPE STANDARD TABLE OF t529t,
gi_t530t TYPE STANDARD TABLE OF t530t,
gi_t5u13 TYPE STANDARD TABLE OF t5u13,
gi_t5uaa TYPE STANDARD TABLE OF t5uaa.
DATA : gs_roster TYPE t_roster,
gs_objec TYPE objec,
gs_hrp1000 TYPE hrp1000,
gs_cskt TYPE cskt,
gs_t001p TYPE t001p,
gs_t500p TYPE t500p,
gs_t501t TYPE t501t,
gs_t503t TYPE t503t,
gs_t513s TYPE t513s,
gs_t527x TYPE t527x,
gs_t529t TYPE t529t,
gs_t530t TYPE t530t,
gs_t5u13 TYPE t5u13,
gs_t5uaa TYPE t5uaa.
DATA : gv_ltext(40) TYPE c,
gv_ltext1(40) TYPE c,
gv_age(3) TYPE c,
gv_butxt(40) TYPE c,
gv_eeoc(10) TYPE c,
gv_prevdate TYPE datum.
DATA: gi_fieldcat TYPE slis_t_fieldcat_alv,
gs_fieldcat TYPE slis_fieldcat_alv,
i_top_of_page TYPE slis_t_listheader,
g_repid TYPE sy-repid,
g_save,
gs_layout TYPE slis_layout_alv,
gt_events TYPE slis_t_event,
gs_variant LIKE disvariant,
gi_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA: name TYPE vrm_id,
list TYPE vrm_values,
value LIKE LINE OF list.
SELECTION-SCREEN BEGIN OF BLOCK b1
WITH FRAME TITLE text-x02.
PARAMETERS : p_race(10) AS LISTBOX VISIBLE LENGTH 30,
p_gender TYPE p0002-gesch,
p_eeoc TYPE t5u13-eeoct,
p_aap TYPE t5u13-aapct.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN OUTPUT.
REFRESH list.
name = 'P_RACE'.
value-key = 'R1'.
value-text = 'American Indian or Alaskan Native'.
APPEND value TO list.
CLEAR value.
value-key = 'R2'.
value-text = 'Asian'.
APPEND value TO list.
CLEAR value.
value-key = 'R3'.
value-text = 'Black or African American'.
APPEND value TO list.
CLEAR value.
value-key = 'R5'.
value-text = 'White'.
APPEND value TO list.
CLEAR value.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
INITIALIZATION.
g_repid = sy-repid.
PERFORM layout_init USING gs_layout.
PERFORM eventtab_build USING gt_events[].
gs_variant-report = g_repid.
g_save = 'A'.
START-OF-SELECTION.
GET pernr.
PERFORM roster_aap.
END-OF-SELECTION.
PERFORM fetch_roster_text.
PERFORM output_roster_display.
*& Form ROSTER_AAP
text
--> p1 text
<-- p2 text
FORM roster_aap .
PERFORM infty_rost_0001.
PERFORM infty_rost_0002.
PERFORM infty_rost_0008.
PERFORM infty_rost_0041.
PERFORM infty_rost_0077.
PERFORM supervisor_rost.
PERFORM append_rost_recs.
ENDFORM. " ROSTER_AAP
*& Form INFTY_ROST_0001
text
FORM infty_rost_0001 .
rp_provide_from_last p0001 space
pn-begda pn-endda.
IF pnp-sw-found = 1.
gs_roster-pernr = p0001-pernr.
gs_roster-eg = p0001-persg.
READ TABLE gi_t501t INTO gs_t501t WITH KEY persg = p0001-persg.
IF sy-subrc <> 0.
APPEND gs_t501t TO gi_t501t.
CLEAR gs_t501t.
ENDIF.
gs_roster-esg = p0001-persk.
READ TABLE gi_t503t INTO gs_t503t WITH KEY persk = p0001-persk.
IF sy-subrc <> 0.
APPEND gs_t503t TO gi_t503t.
CLEAR gs_t503t.
ENDIF.
gs_roster-job_title = p0001-plans.
READ TABLE gi_hrp1000 INTO gs_hrp1000 WITH KEY objid = p0001-plans.
IF sy-subrc <> 0.
APPEND gs_hrp1000 TO gi_hrp1000.
CLEAR gs_hrp1000.
ENDIF.
gs_roster-job_code = p0001-stell.
READ TABLE gi_t513s INTO gs_t513s WITH KEY stell = p0001-stell.
IF sy-subrc <> 0.
APPEND gs_t513s TO gi_t513s.
CLEAR gs_t513s.
ENDIF.
gs_roster-org_unit = p0001-orgeh.
READ TABLE gi_t527x INTO gs_t527x WITH KEY orgeh = p0001-orgeh.
IF sy-subrc <> 0.
APPEND gs_t527x TO gi_t527x.
CLEAR gs_t527x.
ENDIF.
gs_roster-cost_cntr = p0001-kostl.
READ TABLE gi_cskt INTO gs_cskt WITH KEY kostl = p0001-kostl.
IF sy-subrc <> 0.
APPEND gs_cskt TO gi_cskt.
CLEAR gs_cskt.
ENDIF.
gs_roster-personal_area = p0001-werks.
READ TABLE gi_t500p INTO gs_t500p WITH KEY persa = p0001-werks.
IF sy-subrc <> 0.
APPEND gs_t500p TO gi_t500p.
CLEAR gs_t500p.
ENDIF.
gs_roster-job_grp = p0001-stell.
READ TABLE gi_t5u13 INTO gs_t5u13 WITH KEY stell = p0001-stell.
IF sy-subrc <> 0.
APPEND gs_t5u13 TO gi_t5u13.
CLEAR gs_t5u13.
ENDIF.
READ TABLE gi_t5uaa INTO gs_t5uaa WITH KEY aapct = gs_roster-aap_code.
IF sy-subrc <> 0.
APPEND gs_t5uaa TO gi_t5uaa.
CLEAR gs_t5uaa.
ENDIF.
gs_roster-psa = p0001-btrtl.
READ TABLE gi_t001p INTO gs_t001p WITH KEY btrtl = p0001-btrtl.
IF sy-subrc <> 0.
APPEND gs_t001p TO gi_t001p.
CLEAR gs_t001p.
ENDIF.
gs_roster-unionl = p0001-btrtl.
gs_roster-unionc = p0001-btrtl.
ENDIF.
ENDFORM. " INFTY_ROST_0001
*& Form INFTY_ROST_0002
text
FORM infty_rost_0002 .
rp_provide_from_last p0002 space
pn-begda pn-endda.
IF pnp-sw-found = 1.
IF p_gender IS NOT INITIAL AND p_gender NE p0002-gesch.
REJECT.
ENDIF.
gs_roster-ssn = p0002-perid.
gs_roster-first_name = p0002-vorna.
gs_roster-last_name = p0002-nachn.
gs_roster-*** = p0002-gesch.
gs_roster-dob = p0002-gbdat.
ENDIF.
ENDFORM. " INFTY_ROST_0002
*& Form INFTY_ROST_0008
text
FORM infty_rost_0008 .
DATA: lv_wage TYPE lgart,
lv_amount TYPE pad_amt7s.
rp_provide_from_last p0008 space
pn-begda pn-endda.
IF pnp-sw-found = 1.
gs_roster-annual_sal = p0008-ansal.
DO 40 TIMES VARYING lv_wage FROM p0008-lga01
NEXT p0008-lga02
VARYING lv_amount FROM p0008-bet01
NEXT p0008-bet02.
IF lv_wage = '0101'.
gs_roster-hrly_rate = lv_amount.
EXIT.
ENDIF.
ENDDO.
gs_roster-job_grade = p0008-trfgr.
gs_roster-job_level = p0008-trfst.
ENDIF.
ENDFORM. " INFTY_ROST_0008
*& Form INFTY_ROST_0041
text
FORM infty_rost_0041 .
DATA : l_date TYPE datum,
l_hdate TYPE datum,
l_sdate TYPE datum.
rp_provide_from_last p0041 space
pn-begda pn-endda.
IF pnp-sw-found = 1.
CLEAR : l_date,
l_hdate,
l_sdate.
*--Last Hire Date--
CALL FUNCTION 'HR_DATESPECIFICATION_DATE_GET'
EXPORTING
p0041 = p0041
p_datar = 'U1'
P_DATKN =
IMPORTING
p_date = l_date
EXCEPTIONS
illegal_arguments = 1
more_than_one_date = 2
OTHERS = 3
IF sy-subrc <> 0.
ENDIF.
IF NOT l_date IS INITIAL.
CONCATENATE
l_date4(2) l_date6(2) l_date+0(4)
INTO gs_roster-hire_date
SEPARATED BY '/'.
ENDIF.
ENDIF.
*--Last Hire Date--
CALL FUNCTION 'HR_DATESPECIFICATION_DATE_GET'
EXPORTING
p0041 = p0041
p_datar = 'U2'
P_DATKN =
IMPORTING
p_date = l_hdate
EXCEPTIONS
illegal_arguments = 1
more_than_one_date = 2
OTHERS = 3
IF sy-subrc <> 0.
ENDIF.
IF NOT l_hdate IS INITIAL.
CONCATENATE
l_hdate4(2) l_hdate6(2) l_hdate+0(4)
INTO gs_roster-lhire_date
SEPARATED BY '/'.
ENDIF.
*--Service Date--
CALL FUNCTION 'HR_DATESPECIFICATION_DATE_GET'
EXPORTING
p0041 = p0041
p_datar = 'U4'
P_DATKN =
IMPORTING
p_date = l_sdate
EXCEPTIONS
illegal_arguments = 1
more_than_one_date = 2
OTHERS = 3
IF sy-subrc <> 0.
ENDIF.
IF NOT l_sdate IS INITIAL.
CONCATENATE
l_sdate4(2) l_sdate6(2) l_sdate+0(4)
INTO gs_roster-serv_date
SEPARATED BY '/'.
ENDIF.
ENDFORM. " INFTY_ROST_0041
*& Form INFTY_ROST_0077
text
FORM infty_rost_0077 .
DATA: lv_race TYPE races.
rp_provide_from_last p0077 space
pn-begda pn-endda.
IF pnp-sw-found = 1.
IF NOT p_race IS INITIAL AND p_race NE lv_race.
REJECT.
ENDIF.
DO 10 TIMES VARYING lv_race FROM p0077-rac01
NEXT p0077-rac02.
IF lv_race NE space.
IF lv_race EQ g_01.
gs_roster-race = g_ai.
ELSEIF lv_race EQ g_02.
gs_roster-race = g_h.
ELSEIF lv_race EQ g_03.
gs_roster-race = g_af.
ELSEIF lv_race EQ g_05.
gs_roster-race = g_w.
ENDIF.
ENDIF.
ENDDO.
ENDIF.
ENDFORM. " INFTY_ROST_0077
*& Form SUPERVISOR_ROST
text
FORM supervisor_rost .
REFRESH gi_objec.
IF NOT p0001-orgeh IS INITIAL.
CALL FUNCTION 'HRCM_ORGUNIT_MANAGER_GET'
EXPORTING
plvar = '01'
otype = 'O'
objid = p0001-orgeh
begda = pn-begda
endda = pn-endda
PATH_ID = ' '
TABLES
manager_info_table = gi_objec
EXCEPTIONS
path_error = 1
root_error = 2
nothing_found = 3
OTHERS = 4
IF sy-subrc <> 0.
ENDIF.
SORT gi_objec DESCENDING BY endda.
READ TABLE gi_objec INTO gs_objec INDEX 1.
IF sy-subrc = 0.
gs_roster-supervisor = gs_objec-stext.
CLEAR gs_objec.
ENDIF.
ENDIF.
ENDFORM. " SUPERVISOR_ROST
*& Form APPEND_ROST_RECS
text
FORM append_rost_recs .
IF NOT gs_roster-pernr IS INITIAL.
APPEND gs_roster TO gi_roster.
CLEAR gs_roster.
ENDIF.
ENDFORM. " APPEND_ROST_RECS
*& Form FETCH_ROSTER_TEXT
text
FORM fetch_roster_text .
IF p_eeoc IS NOT INITIAL AND p_eeoc NE t5u13-eeoct.
REJECT.
ENDIF.
IF NOT gi_roster IS INITIAL.
SELECT orgeh orgtx FROM t527x
INTO CORRESPONDING FIELDS OF TABLE gi_t527x
WHERE sprsl = sy-langu AND
endda = '99991231'.
SELECT persa ort01 regio pstlz name1
FROM t500p
INTO CORRESPONDING FIELDS OF TABLE gi_t500p.
SELECT persg ptext
FROM t501t
INTO CORRESPONDING FIELDS OF TABLE gi_t501t
WHERE sprsl = sy-langu.
SELECT persk ptext
FROM t503t
INTO CORRESPONDING FIELDS OF TABLE gi_t503t
WHERE sprsl = sy-langu.
SELECT stell stltx FROM t513s
INTO CORRESPONDING FIELDS OF TABLE gi_t513s
WHERE sprsl = sy-langu AND
endda = '99991231'.
SELECT otype plvar objid stext
FROM hrp1000 INTO
CORRESPONDING FIELDS OF TABLE gi_hrp1000
for all entries in gi_roster
WHERE plvar = '01'
AND otype = 'S'.
and objid = gi_roster-job_title.
SELECT stell eeoct exmpt aapct
FROM t5u13
INTO CORRESPONDING FIELDS OF TABLE gi_t5u13.
for all entries in gi_t5u13
WHERE stell = gi_t5u13-stell
AND eeoct = p_eeoc
AND aapct = p_aap.
SELECT aapct eeoct ltext
FROM t5uaa
INTO CORRESPONDING FIELDS OF TABLE gi_t5uaa.
FOR ALL ENTRIES IN gi_roster
WHERE aapct = gi_roster-aap_code
and eeoct = gi_roster-ee01.
SELECT kostl ltext
FROM cskt
INTO CORRESPONDING FIELDS OF TABLE gi_cskt
FOR ALL ENTRIES IN gi_roster
WHERE kostl = gi_roster-cost_cntr
WHERE spras = sy-langu.
SELECT btrtl btext
FROM t001p
INTO CORRESPONDING FIELDS OF TABLE gi_t001p.
FOR ALL ENTRIES IN gi_roster
WHERE btrtl = gi_roster-psa.
ENDIF.
LOOP AT gi_roster INTO gs_roster.
CLEAR :gs_hrp1000,gs_t5u13,gs_t500p,gs_t501t,gs_t503t,gs_t5uaa,gs_cskt,gs_t001p,gs_t513s, gs_t527x,gs_t529t,gs_t530t.
READ TABLE gi_t501t INTO gs_t501t WITH KEY persg = gs_roster-eg.
IF sy-subrc = 0.
gs_roster-eg_desc = gs_t501t-ptext.
ENDIF.
READ TABLE gi_t503t INTO gs_t503t WITH KEY persk = gs_roster-esg.
IF sy-subrc = 0.
gs_roster-esg_desc = gs_t503t-ptext.
ENDIF.
READ TABLE gi_t513s INTO gs_t513s
WITH KEY stell = gs_roster-job_code.
IF sy-subrc = 0.
gs_roster-job_code_desc = gs_t513s-stltx.
ENDIF.
READ TABLE gi_t527x INTO gs_t527x
WITH KEY orgeh = gs_roster-org_unit.
IF sy-subrc = 0.
gs_roster-orgtx = gs_t527x-orgtx.
ENDIF.
READ TABLE gi_hrp1000 INTO gs_hrp1000 WITH KEY objid = gs_roster-job_title.
IF sy-subrc = 0.
gs_roster-title = gs_hrp1000-stext.
ENDIF.
READ TABLE gi_cskt INTO gs_cskt
WITH KEY kostl = gs_roster-cost_cntr.
IF sy-subrc = 0.
gs_roster-ltext = gs_cskt-ltext.
ENDIF.
READ TABLE gi_t5u13 INTO gs_t5u13 WITH KEY stell = gs_roster-job_code.
IF sy-subrc = 0.
gs_roster-ee01 = gs_t5u13-eeoct.
gs_roster-flsa = gs_t5u13-exmpt.
gs_roster-aap_code = gs_t5u13-aapct.
ENDIF.
READ TABLE gi_t500p INTO gs_t500p WITH KEY persa = gs_roster-personal_area.
IF sy-subrc = 0.
gs_roster-city = gs_t500p-ort01.
gs_roster-state = gs_t500p-regio.
gs_roster-zipcode = gs_t500p-pstlz.
gs_roster-personal_area_desc = gs_t500p-name1.
ENDIF.
READ TABLE gi_t001p INTO gs_t001p WITH KEY btrtl = gs_roster-psa.
IF sy-subrc = 0.
gs_roster-psa_desc = gs_t001p-btext.
ENDIF.
READ TABLE gi_t5uaa INTO gs_t5uaa WITH KEY aapct = gs_roster-aap_code eeoct = gs_roster-ee01.
IF sy-subrc = 0.
gs_roster-aap_code_desc = gs_t5uaa-ltext.
ENDIF.
MODIFY gi_roster FROM gs_roster .
ENDLOOP.
ENDFORM. " FETCH_ROSTER_TEXT
*& Form OUTPUT_ROSTER_DISPLAY
text
FORM output_roster_display .
PERFORM build_roster_fieldcatalog.
PERFORM comment_roster_build CHANGING i_top_of_page[].
PERFORM display_roster_alv_report.
ENDFORM. " OUTPUT_ROSTER_DISPLAY
*& Form LAYOUT_INIT
text
FORM layout_init USING rs_layout TYPE slis_layout_alv.
rs_layout-detail_popup = 'X'.
rs_layout-zebra = 'X'.
rs_layout-colwidth_optimize = 'X'.
ENDFORM. " LAYOUT_INIT
*& Form EVENTTAB_BUILD
text
FORM eventtab_build USING rt_events TYPE slis_t_event.
*"Registration of events to happen during list display
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = rt_events.
READ TABLE rt_events WITH KEY name = slis_ev_top_of_page
INTO ls_event.
IF sy-subrc = 0.
MOVE gi_top_of_page TO ls_event-form.
APPEND ls_event TO rt_events.
ENDIF.
ENDFORM. " EVENTTAB_BUILD
*& Form top_of_page
text
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = i_top_of_page.
ENDFORM. "TOP_OF_PAGE
*& Form BUILD_ROSTER_FIELDCATALOG
text
FORM build_roster_fieldcatalog .
gs_fieldcat-fieldname = 'PERNR'.
gs_fieldcat-seltext_m = 'Employee Number'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'SSN'.
gs_fieldcat-seltext_m = 'SSN Number'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'FIRST_NAME'.
gs_fieldcat-seltext_m = 'First Name'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'LAST_NAME'.
gs_fieldcat-seltext_m = 'Last Name'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'CITY'.
gs_fieldcat-seltext_m = 'City'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'STATE'.
gs_fieldcat-seltext_m = 'State'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ZIPCODE'.
gs_fieldcat-seltext_m = 'Zip Code'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'HIRE_DATE'.
gs_fieldcat-seltext_m = 'Hire Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'LHIRE_DATE'.
gs_fieldcat-seltext_m = 'Last Hire Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'SERV_DATE'.
gs_fieldcat-seltext_m = 'Service Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'EG'.
gs_fieldcat-seltext_m = 'Eg'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'EG_DESC'.
gs_fieldcat-seltext_m = 'Eg Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ESG'.
gs_fieldcat-seltext_m = 'Esg'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ESG_DESC'.
gs_fieldcat-seltext_m = 'Eg Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'RACE'.
gs_fieldcat-seltext_m = 'Race'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = '***'.
gs_fieldcat-seltext_m = '***'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_GRADE'.
gs_fieldcat-seltext_m = 'Job Grade'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_LEVEL'.
gs_fieldcat-seltext_m = 'Job Level'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'GRADE_ENTRY_DATE'.
gs_fieldcat-seltext_l = 'Grade Entry Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_TITLE'.
gs_fieldcat-seltext_l = 'Job Title'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat..
gs_fieldcat-fieldname = 'TITLE'.
gs_fieldcat-seltext_l = 'Job Title Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_CODE'.
gs_fieldcat-seltext_l = 'Job Code'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_CODE_DESC'.
gs_fieldcat-seltext_l = 'Job Code Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_ENTRY_DATE'.
gs_fieldcat-seltext_l = 'Job Entry Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ANNUAL_SAL'.
gs_fieldcat-seltext_l = 'Annual Salary'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'HRLY_RATE'.
gs_fieldcat-seltext_l = 'Hourly Rate'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ORG_UNIT'.
gs_fieldcat-seltext_l = 'Org Unit'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ORGTX'.
gs_fieldcat-seltext_l = 'Org Text'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'COST_CNTR'.
gs_fieldcat-seltext_l = 'Cost Center'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'LTEXT'.
gs_fieldcat-seltext_l = 'Cost Center Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'PERSONAL_AREA'.
gs_fieldcat-seltext_l = 'Personal Area'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'PERSONAL_AREA_DESC'.
gs_fieldcat-seltext_l = 'Personal Area Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'SUPERVISOR'.
gs_fieldcat-seltext_l = 'Supervisor'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'FLSA'.
gs_fieldcat-seltext_l = 'FLSA'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'EE01'.
gs_fieldcat-seltext_l = 'EE01'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_GRP'.
gs_fieldcat-seltext_l = 'Job Group'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'AAP_CODE'.
gs_fieldcat-seltext_l = 'AAP Code'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'AAP_CODE_DESC'.
gs_fieldcat-seltext_l = 'AAP Code Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'DOB'.
gs_fieldcat-seltext_l = 'Date of Birth'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'PSA'.
gs_fieldcat-seltext_l = 'Personal Sub Area'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'PSA_DESC'.
gs_fieldcat-seltext_l = 'Personal Sub Area Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'UNIONL'.
gs_fieldcat-seltext_l = 'Union Local'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'UNIONC'.
gs_fieldcat-seltext_l = 'Union Classfication'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
ENDFORM. " BUILD_ROSTER_FIELDCATALOG
*& Form COMMENT_ROSTER_BUILD
text
FORM comment_roster_build CHANGING top_of_page TYPE
slis_t_listheader.
DATA: ls_line TYPE slis_listheader,
l_startdate(10) TYPE c,
l_enddate(10) TYPE c,
l_final_start(22) TYPE c,
l_final_end(22) TYPE c.
CONCATENATE pn-begda4(2)'/'pn-begda6(2)'/'pn-begda+0(4)
INTO l_startdate.
CONCATENATE pn-endda4(2)'/'pn-endda6(2)'/'pn-endda+0(4)
INTO l_enddate.
CONCATENATE 'Start Date:' l_startdate INTO l_final_start.
CONCATENATE 'End Date :' l_enddate INTO l_final_end.
CLEAR ls_line.
ls_line-typ = 'H'.
ls_line-info = 'AAP-EEOC Roster Report Data '. "Max len = 60
APPEND ls_line TO i_top_of_page.
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-info = l_final_start.
APPEND ls_line TO i_top_of_page.
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-info = l_final_end.
APPEND ls_line TO i_top_of_page.
CLEAR ls_line.
ENDFORM. " COMMENT_ROSTER_BUILD
*& Form DISPLAY_ROSTER_ALV_REPORT
text
FORM display_roster_alv_report .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = g_repid
is_layout = gs_layout
it_fieldcat = gi_fieldcat
i_save = g_save
is_variant = gs_variant
it_events = gt_events[]
TABLES
t_outtab = gi_roster
EXCEPTIONS
program_error = 1
OTHERS = 2
IF sy-subrc <> 0.
ENDIF.
ENDFORM. " DISPLAY_ROSTER_ALV_REPORT
Regards
sachinhi there,
i want to fetch data from all the fields i ahve given here .It will be a join statement.
the important thing is I need all the values of vbeln in leftside
as output. -
Adding extension "line-size 255" to a standard report on the first line
Hi Experts,
i want to modify the statment from Report ztest1 message-id zm to Report ztest1 message-id zm and line-size 255.
I am going to add the extension line-size 255 to the report statement in a standard report. There are no enhancement points near the first line. I have access key available, so i can make the changes to core mod.
The problem is that if i run the report in background, out of the 8 fields, i only see the first 6 columns in the spool. remaining 2 fields are truncated.
The reason for truncation is bcoz the line-size extension is not given to the report. What procedure do i have to follow to add the extension line-size 255?HI,
You do not need any enhancement for it.
If you have the access key then just add the additon line-size 255 to the repport statement.
Regards,
Ankur Parab -
Need some clarification in the following programs
Hi ABAPers
I am learning ABAP programming. I am having some doubts in some programs which are there in the book TEACH YOURSELF ABAP/4 in 21 Days.
I hope you will clear all my doubts
1) when I execute this program it is giving me error message and I am unable to resolve the error in it.
I dont remember the error message but it is something related to data conversion.
Listing 9.5 Variables Filled with Characters Other than Blanks or Zeros Using the WITH Addition of the CLEAR Statement
1 report ztx0905.
2 tables ztxlfa1.
3 data: f1(2) type c value 'AB',
4 f2(2) type c,
5 f3 type i value 12345,
6 begin of s1,
7 f1(3) type c value 'XYZ',
8 f2 type i value 123456,
9 end of s1.
10 write: / 'f1=''' no-gap, f1 no-gap, '''',
11 / 'f2=''' no-gap, f2 no-gap, '''',
12 / 'f3=''' no-gap, f3 no-gap, '''',
13 / 's1-f1=''' no-gap, s1-f1 no-gap, '''',
14 / 's1-f2=''' no-gap, s1-f2 no-gap, '''',
15 / 'ztxlfa1-lifnr=''' no-gap, ztxlfa1-lifnr no-gap, '''',
16 / 'ztxlfa1-land1=''' no-gap, ztxlfa1-land1 no-gap, '''',
17 /.
18 clear: f1 with 'X',
19 f2 with f1,
20 f3 with 3,
21 s1 with 'X',
22 ztxlfa1 with 0.
23 write: / 'f1=''' no-gap, f1 no-gap, '''',
24 / 'f2=''' no-gap, f2 no-gap, '''',
25 / 'f3=''' no-gap, f3 no-gap, '''',
26 / 's1-f1=''' no-gap, s1-f1 no-gap, '''',
27 / 's1-f2=''' no-gap, s1-f2 no-gap, '''',
28 / 'ztxlfa1-lifnr=''' no-gap, ztxlfa1-lifnr no-gap, '''',
29 / 'ztxlfa1-land1=''' no-gap, ztxlfa1-land1 no-gap, ''''.
according the book the output should be
The code in Listing 9.5 produces this output:
f1='AB'
f2=' '
f3=' 12,345 '
s1-f1='XYZ'
s1-f2=' 123,456 '
ztxlfa1-lifnr=' '
ztxlfa1-land1=' '
f1='XX'
f2='XX'
f3='50,529,027 '
s1-f1='XXX'
s1-f2='1482184792 '
ztxlfa1-lifnr='##########'
ztxlfa1-land1='###'
can you please explain me this program.
2) This program is giving me the following error message at line 7.
ALPHA AND IT-F1 ARE TYPE- INCOMPATIBLE.
The program is as follows.
Listing 12.9 Deleting Rows from an Internal Table Can also be Done Using the delete Statement
1 report ztx1209.
2 data: begin of it occurs 12,
3 f1,
4 end of it,
5 alpha(12) value 'ABCDEFGHIJKL'.
6
7 do 12 times varying it-f1 from alpha0 next alpha1.
8 append it.
9 enddo.
10
11 loop at it.
12 write: / sy-tabix, it-f1.
13 endloop.
14
15 delete it index 5.
16 skip.
17 loop at it.
18 write: / sy-tabix, it-f1.
19 endloop.
20
21 delete it from 6 to 8.
22 skip.
23 loop at it.
24 write: / sy-tabix, it-f1.
25 endloop.
26
27 delete it where f1 between 'B' and 'D'.
28 skip.
29 loop at it.
30 write: / sy-tabix, it-f1.
31 endloop.
32
33 loop at it where f1 between 'E' and 'J'.
34 delete it.
35 endloop.
36
37 skip.
38 loop at it.
39 write: / sy-tabix, it-f1.
40 endloop.
41
42 read table it with key f1 = 'K' binary search.
43 write: /, / 'sy-subrc=', sy-subrc, 'sy-tabix=', sy-tabix, / ''.
44 if sy-subrc = 0.
45 delete it index sy-tabix.
46 endif.
47
48 skip.
49 loop at it.
50 write: / sy-tabix, it-f1.
51 endloop.
52
53 free it.
And the out put according to the book is as follows
The code in Listing 12.9 produces this output:
1 A
2 B
3 C
4 D
5 E
6 F
7 G
8 H
9 I
10 J
11 K
12 L
1 A
2 B
3 C
4 D
5 F
6 G
7 H
8 I
9 J
10 K
11 L
1 A
2 B
3 C
4 D
5 F
6 J
7 K
8 L
1 A
2 F
3 J
4 K
5 L
1 A
2 K
3 L
sy-subrc= 0 sy-tabix= 2
1 A
2 L
How to rectify the error in this program.
3) In this program I want to ask is there any way that I can be able to see the write statement output which is there in the initialization event block. If yes then how .
(Note I dont want to remove the paramter (selection screen) statement.)
Listing 18.13 Explain the Sequence of Events That Occurs in this Program
report ztx1813 no standard page heading.
ztx1813 data: flag,
ctr type i.
parameters p1.
initialization.
flag = 'I'.
write: / 'in Initialization'.
start-of-selection.
flag = 'S'.
write: / 'in Start-Of-Selection',
/ 'p1 =', p1.
top-of-page.
add 1 to ctr.
write: / 'Top of page, flag =', flag, 'ctr =', ctr.
uline.
4) can anybody please mail me some exercise program queries ( right from the basic to complex one) on this mail id [email protected] or else u can give me the url of the website which contains such program.
EARGERLY WAITING FOR UR REPLIES
Regards,
maqsoodMaqsood,
I had tested all your programs and I am getting the correct output. I didnt get any error message and I didnt do any changes. I just copied your code and executed it.
To your Q3, I can say...INITIALIZATION is used only to assign values to variables. It is not used for output.
Only the start-of-selection and top-of-page will be printed. -
Genearate a Report for the following data
Hi All
The following is of my requirement
<b>Selection Screen Should be as follows:</b>
Plant (required) <b>QALS-WERK</b>
Storage Location <b>MCHB-LGORT</b>
Material Number <b>QALS-MATNR</b>
Batch Number <b> MCHB-MATNR</b>
MRP Controller <b>MARC-DISPO</b>
Inspection Lot Number <b>QALS-PRUEFLOS</b>
Inspection Lot Creation Date <b>QALS-ENSTEHDAT</b>
Inspection Lot Origin <b>QALS-HERKUNFT</b>
PO Number <b>QALS-EBELN</b>
Vendor # <b>EKKO-LIFNR</b>
Goods Receipt Date <b>MKPR-BUDAT</b>
Delivery Number <b>QALS-KTEXTLOS</b>
Marked in House Date
Sterile Load # <b>ZC012-STBAT</b>
Supplying Plant <b>EKKO-RESWK</b>
Profit Center <b>QALS-PRCTR</b>
<b>Radio Buttons for Selection Screen:</b>
Show all stock (not just Q stock)
Show only past due stock (GR Date + GR processing time > today)
Include Serial Numbers
<b>Fields for report:</b>
Plant <b>QALS-WERK</b>
STO/PO <b>QALS-EBELN</b>
Delivery/Production Order # <b>QALS-KTEXTLOS</b>
Sterile Load # <b>ZC013-STTYP</b>
Inspection Lot Number <b>QALS-PRUEFLOS</b>
Material <b>QALS-MATNR</b>
Old Material <b>MARA-BISMT</b>
Serial #s (all serial #s with material <b>ITOB-SERNR</b>
batch combination)
Batch <b>QALS-CHARG</b>
Sloc (all SLOCs with Q status items) <b>MCHB-LGORT</b>
Batch Exp Date <b>DFBATCH-MHD_IO</b>
Quantity (in each SLOC) <b>MCHB-CINSM</b>
Profit Center <b>QALS-PRCTR</b>
Date Marked In House <b>ZTMODE-TDATE</b>
GR Date <b>QALS-ENSTEHDAT</b>
Expected GR Processing Time <b>MARC-WEBAZ</b>
Date Moved to NCMR <b>MKPF-BLDAT</b>
Days in House System date ZTMODE-TDATE
Days in QI System date - <b>QALS-ENSTEHDAT</b>
Days from QI <b>QALS-ENSTEHDAT - MKPF-BLDAT</b>
Days in NCMR System date - <b>MKPF-BLDAT</b>
MRP Controller <b>MARC-DISPO</b>
MRP Controller Name <b>T024D-DSNAM</b>
Standard Cost <b>MBEW-STPRS</b>
Extended Standard Cost <b>MCHB-CINSM * MBEW-STPRS</b>
How we can develop a report for the above, because they havn't given any conditional checking. Supress if any Ztables used.
i would appreciate if you can send an earliest reply and reward points for the same.
if any queries just reply me i can clarify.
Regards
PrabhuHi Prabhakar,
Well you can opt for ALV display...
You want to generate report based on plant data..
Once the user enters the plant, you can extract the remaining info from table MARA, QALS, EKKO.
The radio buttons will decide your selection critera.
I dont think any functional guy will give you everthing spoon feeded. You will have to explore those tables and the relevant fields.
In case you are finding it to difficult to get the relations between the tables or finding list of tables,
i shall send u docs which will help u solve the problem.
Give me ur email id
Regards,
Tanveer.
Mark helpful answers
Message was edited by: Tanveer Shaikh -
Creating a Report for the following Query u0096 Kindly help
Hi,
Using selection options we have to give the name of
1) Sales Organization -- VBAK -VKORG
2) Distribution Channel -- VBAK - VTWEG
3) Division -- VBAK -- SPART
4) Created Date -- VBAK -- ERDAT.
Once we select this the following list should be displayed.
1) Order no. -- VBAK - VBELN.
2) Created date -- VBAK - ERDAT
3) Sold To Party -- VBAK - KUNNR
4) Shipped to party -- VBPA -- KUNNR.
5) Item no -- VBAP -- POSNR
6) Material no. -- VBAP -- MATNR
7) Material Discription -- VBAP - ARKTX.
The out put should be like this
Sales Org : **********
Dist chan : **************
Division : *********
Created Date : ********
Orderno credate soltopar shiptopar itemno materiano materdes
and so.
Also When we click on the order no we should ge the transaction VA03.
With Select options i was able to get the sales organization distribution channel and division and the when we give the values it is showing Run time errors.
Kindly help me to proceed further.
Even if I am able to generate the order list it will be fine. Going on to VA03 I will manage some how If possible give the syntax for this also).
Regard,
SurjithHi,
Check the below code :
REPORT yvic_test_sales.
TABLES vbak.
TYPES:
BEGIN OF ty_sales_data,
vbeln TYPE vbeln_va,
erdat TYPE erdat,
kunnr TYPE kunag,
oid_ship TYPE kunwe,
posnr TYPE posnr_va,
matnr TYPE matnr,
END OF ty_sales_data.
DATA : gt_data TYPE STANDARD TABLE OF ty_sales_data.
CLASS gcl_handle_events DEFINITION
CLASS gcl_handle_events DEFINITION.
PUBLIC SECTION.
METHODS:
on_link_click FOR EVENT link_click OF cl_salv_events_table
IMPORTING row column.
ENDCLASS. "gcl_handle_events DEFINITION
SELECTION-SCREEN BEGIN OF BLOCK b1.
SELECT-OPTIONS:
s_vkorg FOR vbak-vkorg,
s_vtweg FOR vbak-vtweg,
s_spart FOR vbak-spart,
s_erdat FOR vbak-erdat.
SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION.
SELECT d1~vbeln
d1~erdat
d1~kunnr
d2~oid_ship
d2~posnr
d2~matnr
INTO TABLE gt_data
FROM vbak AS d1
JOIN vbap AS d2
ON d1vbeln = d2vbeln
WHERE d1~vkorg IN s_vkorg[]
AND d1~vtweg IN s_vtweg[]
AND d1~spart IN s_spart[]
AND d1~erdat IN s_erdat[].
CLASS gcl_handle_events IMPLEMENTATION
Subroutine call_transaction will get called
when user clicks on BELNR (Acounting document) or EBELN(PO)
CLASS gcl_handle_events IMPLEMENTATION.
METHOD on_link_click.
PERFORM call_transaction USING row column.
ENDMETHOD. "on_link_click
ENDCLASS. "gcl_handle_events IMPLEMENTATION
END-OF-SELECTION.
PERFORM display_data.
*& Form DISPLAY_DATA
text
--> p1 text
<-- p2 text
FORM display_data .
DATA:
lo_table TYPE REF TO cl_salv_table,"table object
lo_function TYPE REF TO cl_salv_functions,
lo_layout TYPE REF TO cl_salv_layout,
lo_columns TYPE REF TO cl_salv_columns_table,
lo_hotspot TYPE REF TO cl_salv_column_table,
lo_events_name TYPE REF TO cl_salv_events_table,
lo_click TYPE REF TO gcl_handle_events,
ls_key TYPE salv_s_layout_key,
lo_sorts TYPE REF TO cl_salv_sorts,
lo_aggregation TYPE REF TO cl_salv_aggregations,
lo_exception TYPE REF TO cx_root,"exception object
l_text TYPE string." to hold exception message
create a table object to display result table
TRY.
cl_salv_table=>factory( IMPORTING r_salv_table = lo_table
CHANGING t_table = gt_data ).
catch exception
CATCH cx_salv_msg INTO lo_exception.
get exception text and display it in message
l_text = lo_exception->get_text( ).
Message: & & & &
MESSAGE i000(zzz) WITH l_text.
ENDTRY.
get column object of the table created
lo_columns = lo_table->get_columns( ).
FOR HOTSPOT on Doc no
TRY.
lo_hotspot ?= lo_columns->get_column( 'VBELN' ).
lo_hotspot->set_cell_type( if_salv_c_cell_type=>hotspot ).
CATCH cx_salv_not_found INTO lo_exception.
get exception text and display it in message
l_text = lo_exception->get_text( ).
Message: & & & &
MESSAGE i000(zzz) WITH l_text.
ENDTRY.
lo_events_name = lo_table->get_event( ).
CREATE OBJECT lo_click.
SET HANDLER lo_click->on_link_click FOR lo_events_name.
lo_table->display( ).
ENDFORM. " DISPLAY_DATA
*& Form CALL_TRANSACTION
text
-->P_ROW text
-->P_COLUMN text
FORM call_transaction USING pa_row
pa_column.
DATA ls_final_data TYPE ty_sales_data.
IF pa_column = 'VBELN'.
CLEAR ls_final_data.
READ TABLE gt_data INTO ls_final_data INDEX pa_row.
IF NOT ls_final_data-vbeln IS INITIAL.
SET PARAMETER ID 'AUN' FIELD ls_final_data-vbeln.
CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
ENDIF.
ENDIF.
ENDFORM. " CALL_TRANSACTION
Reward if helpful..
Thanks
Maybe you are looking for
-
What bug fixes in update 2006-06-28?
My ipod "5th generation" is working fine so how would I know if I should install the update 2006-06-28? (PS: I will never be a Nike customer so I don't need my iPod to communicate with Nike shoes). thanks.
-
Delivered quantity for each schedule line
Hi, Our scenario is that we have an order for each order's each item we can have multiple schedule lines, when any of the schedule line is delivered the delivered quantity colum is updated, the schedule lines table in VBEP but the thing is it doesnot
-
About Workspace in Oracle Apex 4.0 tool
Hi, I have locked my workspace in Apex 4.0, due to that i cannot able to go inside the workspace. Can you please kindly tell me the steps to follow to release the lock, for accessing the workspace...... Regards, Saravanakumar. C
-
Consume Odata Service in Eclipse HTML5
Hi Experts, I am trying to consume SAP Odata service. But i was stuck in one problem. While creating my model object i got following message. This code i have written in the index.html file. var oModel = new sap.ui.model.odata.ODataModel("https:
-
Trying to see the TR asscociated with the respective smartform...
Hi, I have transported a smartform Z_INVOICE to QA Box. I am trying to see what transport request number does this smart form belongs to. How can I see that from transaction smartform or is there any other way to see its respective Transport request