How to report Employment status?

Hey everyone, Kind of an odd question. I served in the Army for 6 years and was medically retired last year. I receieved a 100% P&T rating from the VA so I get a nice check from them every month. I was employed for a little bit before my wife and I moved to Colorado. I also started graduate school in February and get another stipend (on top of the disability) from the VA for going to school. Anyway what is the best way to report my employment status? I fear if I list student and list the money I receive from the VA every month they might not take the income listed seriously. I suppose I could also list "Retired" since that pension from the VA wont go down or go away... Thoughts anyone?Oz

I feel like you can legitimately select either and still feel like you're being completly honest... since both are truthful. Most folks don't have any difficulty when they select 'student', as the others have stated. However, there have been a couple of cases on here where students were asked for verification of income, specifically with Capital One and American Express. In the Capital One case, the poster had a thin credit file and was asking for a CLI which is what caused his income to be verified. In the Amex case, it was a full financial review, since the poster was running a significant amount through his charge card each month while reporting himself as a student. While these two examples are outliers, the 'common thread' was they both reported being students. It's not as common for a credit card company to ask a retired person for proof of income, since generally retired folks are older and have a sufficiently thick file. Since your income is easily verified, if I were you I would feel comfortable reporting either 'student' or 'retired', since both are true. However with some lenders you might have an occasional extra hurdle when self-reporting as a student. YMMV. Just my 2¢.

Similar Messages

Employment status mismatches in loan report

Hi,
I have just joined in a support project. Need some guidance to solve a issue.
The employee's loan report was taken from a Adhoc Query and it was found that the employment status is "Active" for the left employees. Pls let me know how to rectify this.
Find below the Action Infotype overview for the employee.
Find below the Query report on loan details:
Loan Infotype overview:
I found that when the employees where entered for loan they were given entry date and system generated end date as 31.12.9999. When the same employee left the Company, their action was changed to "Separation" and was given Employment status as"Withdrawn". Simultaneously the pending loans where also delimited with the same end date (date of leaving). Because of this the loan report entries for left employees showing Employment status "Active"
How to rectify the entries of Employment Status to"Withdrawn" in the loan report
Thanks

Hi Savni,
Empolyement status(STAT2) we have
ACTIVE- it means employee withcompany
INACTIVE-it means employee not with the company
as you said your client dose not have plans to implement PT and PY then it is okay you can use it.
it wont impact any thing.
but when you have scope of PT and PY then it impacts the PT and PY directly.
as Remi corretly said even if the employee is on LOA then there would be a record(s) in infotype 2001 for the duration of LOA.
Regards,
mohammed

How to create a new employment status in action info type 0000?

Hi All,
how do we add new employment status in action info type 0000?
As we all know right now we have Active, Inactive, Retire, Withdrawn.....reguirement with my client is to add a new on onleave.
Can you someone please help me on this?
Thanks Much!
Raj

Hi
Create a new action - called "OnLeave (with Pay) " use the status - Active and if required create another action OnLeave (Without pay) with inactive status.
Its not required to create new status.If required you explore the STAT3 or STAT1. Recommended to use the standard employement status - STAT2 or max you can go for STAT3.
As per best practice, I recommend you to create another action called - Reporting back from Leave.
>SAP Customizing Implementation Guide
>>Personnel Management
>>>Personnel Administration
>>>>Customizing Procedures
>>>>>Actions
>>>>>>Define infogroups
>>>>>>Set up personnel actions
>>>>>>Create reasons for personnel actions
>>>>>>Change action menu
Maintain right usergroup/reference.
Thanks,
Amosha
Edited by: Amosha on May 21, 2009 2:17 AM

In Standard Report Of ALV How Can Set PF Status.

In Standard Report Of ALV How Can Set PF Status.
Thanking in anticipation.

in the call function module, you pass the PF status parameter.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 i_callback_program = pgm
 i_callback_pf_status_set = 'SET_PF_STATUS'
 it_fieldcat = fieldcat
 is_variant = disvariant
 is_layout = layout
 is_print = print
 i_save = 'A'
 it_events = eventcat
 it_sort = sortcat
 i_callback_user_command = 'USER_COMMAND'
 TABLES
 t_outtab = a_output
 EXCEPTIONS
 program_error = 1
 OTHERS = 2.
ENDFORM. "LIST_DISPLAY
FORM SET_PF_STATUS *
FORM set_pf_status USING extab TYPE slis_t_extab.
SET PF-STATUS 'ZZSTD'.
ENDFORM. "set_pf_status
Here double Click on ZZSTD. IT will take you to a different screen and you have to set it.
Ster.

How to use pf-status u2018menuu2019 in ALV report ?

Hi Friends,
How to use pf-status u2018menuu2019 in ALV report ?
I want to use back button ( F3). whenever press it should show
another report.
I used subroutine
form SUB_ERROR_OUTPUT USING RT_EXTAB TYPE SLIS_T_EXTAB .
SET PF-STATUS 'ZMENU' EXCLUDING RT_EXTAB. u201C( the button name is u201C back u201C)
CASE SY-UCOMM.
*WHEN '&F03'.
WHEN 'BACK'
( my coding is there ).
endcase.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PF_STATUS_SET = 'SUB_ERROR_OUTPUT'
but it is executing, working the back button but not showing another report .
any other procedure to use back button in alv report ?
plz any idea .
For correct answer reword most.
Thanking you.

Purchase day Book .
Data to be down loaded / printed for EDP dept. CGL.
CGL - Requirement .
WRITTEN BY : ADI.****
*CONSULTANT : SANJAY JAJOO..
AS PER DP REQUIREMENT.
-CHANGED BY : KRISHNA MOHAN (15/01/2002)--
-CHANGE REQ BY : JAJU S--
-DESCRIPTION : SUMMRY BY TAX CODE WISE & GL CODE WISE--
---MODIFIED LINES: -
---CHANGED BY : -
---CHANGE REQ BY : -
---DESCRIPTION : -
---MODIFIED LINES: -
*---changed by : sanjay jajoo on 23/08
*---changed req by: Ranka
*---Description : Inserting Range of period as sel field
changed by : krishna mohan
func. consultant: sanjay jajoo
REPORT ZMMPURDB MESSAGE-ID 00
 LINE-SIZE 255
 LINE-COUNT 60
 NO STANDARD PAGE HEADING .
TABLES : MKPF , MSEG ,SKAT,
 EKKO , EKPO , EKBE ,
 BSEG , BKPF , BSET ,
 T009B , T001 , T007S ,
 T001W , T001K ,LFA1.
******Table deactivated on 30/8/2000------jaju
*tables : zcgltaxatn .
DATA : ZFILE1(65) VALUE '/DOWNLOAD/'.
DATA : ZFILE2(65) .
DATA : ZFILE(30) TYPE C VALUE '/DOWNLOAD/'.
DATA : ZMON(2).
DATA : ZTOTAL(11) TYPE N.
DATA: ZTOT1 TYPE P DECIMALS 2.
DATA: ZTXT LIKE SKAT-TXT50.
TYPES: BEGIN OF COMPANY ,
HKONT LIKE BSEG-HKONT,
TOTAL LIKE BSEG-DMBTR,
END OF COMPANY.
DATA: COMP TYPE COMPANY,
 COMPTAB TYPE HASHED TABLE OF COMPANY WITH UNIQUE KEY HKONT
 WITH HEADER LINE.
DATA : NEXT LIKE BSEG-BUZEI. "A.A. (28/03/2000)
DATA : DOC LIKE BSEG-BELNR. "A.A. (28/03/2000)
DATA S_GSBER.
DATA: CTR TYPE I.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-B01.
PARAMETERS : T_BUKRS LIKE T001-BUKRS OBLIGATORY MEMORY ID BUK .
***********CH--ID- ADI- 29 / 09 / 1999
SELECT-OPTIONS : ZGL FOR BSEG-HKONT OBLIGATORY.
***********CH--ID- ADI- 29 / 09 / 1999
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(9) TEXT-C01 .
PARAMETERS : POPER RADIOBUTTON GROUP RAD1 .
SELECTION-SCREEN COMMENT 13(7) TEXT-C02 .
PARAMETERS : MONTH RADIOBUTTON GROUP RAD1 .
SELECTION-SCREEN COMMENT 23(8) TEXT-C03 .
SELECTION-SCREEN POSITION 33 .
commented on 22/08 sanjay jajoo
*PARAMETERS : T_MONAT LIKE BKPF-MONAT .
SELECTION-SCREEN END OF LINE.
PARAMETERS : T_GJAHR LIKE BKPF-GJAHR OBLIGATORY .
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS : S_DOCTYP FOR BKPF-BLART,
 S_VENDOR FOR LFA1-LIFNR MATCHCODE OBJECT KRED,
 S_MATNR FOR BSEG-MATNR NO-DISPLAY,
 T_BUDAT FOR MKPF-BUDAT NO-EXTENSION MODIF ID DAT,
 p_gsber FOR bseg-gsber OBLIGATORY,
 P_GSBER FOR BSEG-GSBER,
mod starts for inserting range of period - sanjay jajoo
 T_MONAT FOR BKPF-MONAT OBLIGATORY.
mod ends
*SELECT-OPTIONS: br_blart FOR mkpf-blart.
*Select-options: br_blart for bkpf-blart.
SELECTION-SCREEN END OF BLOCK B1 .
Start of Delete by B.Elan on 23/12/2005
*PARAMETERS : errors AS CHECKBOX .
*PARAMETERS : summary AS CHECKBOX .
*PARAMETERS : nodetail AS CHECKBOX .
**selection-screen skip 2.
*SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-b03. "<<<
*Add
*PARAMETER : stax_reg RADIOBUTTON GROUP rad2 . "<<<
*Add
*PARAMETER : pur_db RADIOBUTTON GROUP rad2 . "<<<
*Add
*SELECTION-SCREEN END OF BLOCK b3 . "<<< Add
*SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-b02.
*PARAMETERS : display RADIOBUTTON GROUP grp1 ,
 dload RADIOBUTTON GROUP grp1.
*PARAMETERS : fname1 LIKE rlgrap-filename .
*DATA : zdoc LIKE bseg-belnr.
*DATA : fname LIKE rlgrap-filename.
*SELECTION-SCREEN END OF BLOCK b2 .
End of Delete by B.Elan on 23/12/2005
Start of Insert by B.Elan on 23/12/2005
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(5) TEXT-C01.
PARAMETER : PUR_DB RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN COMMENT 10(25) TEXT-C06.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(5) TEXT-C01.
PARAMETERS : MAT_SM RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN COMMENT 10(25) TEXT-C04.
SELECTION-SCREEN COMMENT 35(5) TEXT-C01.
PARAMETERS : VEN_SM RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN COMMENT 44(20) TEXT-C05.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(5) TEXT-C01.
PARAMETERS : MAT_DT RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN COMMENT 10(25) TEXT-C07.
SELECTION-SCREEN COMMENT 35(5) TEXT-C01.
PARAMETERS : VEN_DT RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN COMMENT 44(20) TEXT-C08.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B2.
End of Insert by B.Elan on 23/12/2005
Hard coded values used in the program
added by krishna mohan on 09/02/02
DATA : BEGIN OF IT_MSEG OCCURS 0,
 BELNR LIKE BSEG-BELNR,
 MBLNR LIKE MSEG-MBLNR,
 EBELN LIKE BSEG-EBELN,
 EBELP LIKE BSEG-EBELP,
 END OF IT_MSEG.
mod ends
Start of Insert by B.Elan on 23/12/2005
*--vikky
DATA : BEGIN OF IT_FINAL OCCURS 0,
 MATNR LIKE MARA-MATNR,
 BLART LIKE BKPF-BLART, " doctype
 BELNR LIKE BSEG-BELNR, "sr - nO 10
 XBLNR LIKE BKPF-XBLNR , " Bill-no 16
 NAME1_VENDOR(25),
 "lfa1-name1, " Vendor Name 35
 HKONT LIKE BSEG-HKONT , " Alloc-cd 10
 MWSKZ LIKE EKPO-MWSKZ , " St-cd 2
 BUDAT LIKE BKPF-BUDAT , " Bill-dt 10
 DUE_DATE LIKE BSEG-ZFBDT , " Due date 10
 PON LIKE EKKO-EBELN , " PON 10
 MAKTX LIKE MAKT-MAKTX, "Material text 40
 MBLNR LIKE MSEG-MBLNR,
 QTY(8) TYPE P DECIMALS 2 , "Qty 11
 RATE(9) TYPE P DECIMALS 2 , "Rate11
 DISCOUNT(7) TYPE P DECIMALS 2, "DISCOUNT 11
 PROD-AMT(9) TYPE P DECIMALS 2,
 "AMOUNT 13
 EXCISE(8) TYPE P DECIMALS 2 , "eXCISE TAX 11
 SALES(5) TYPE P DECIMALS 2 , "SALES TAX 11
 FREIGHT(9) TYPE P DECIMALS 2, "FREIGHT 11
 OTHERS(11) TYPE P DECIMALS 2, " OTHERS 11
 TOTAL(9) TYPE P DECIMALS 2, "TOTAL 17
 END OF IT_FINAL.
*DATA : BEGIN OF IT_FINAL OCCURS 0,
 MATNR LIKE MARA-MATNR,
 BLART LIKE BKPF-BLART, " doctype
 BELNR LIKE BSEG-BELNR, "sr - nO 10
 XBLNR LIKE BKPF-XBLNR , " Bill-no 16
 NAME1_VENDOR(25),
 "lfa1-name1, " Vendor Name 35
 HKONT LIKE BSEG-HKONT , " Alloc-cd 10
 MWSKZ LIKE EKPO-MWSKZ , " St-cd 2
 BUDAT LIKE BKPF-BUDAT , " Bill-dt 10
 DUE_DATE LIKE BSEG-ZFBDT , " Due date 10
 PON LIKE EKKO-EBELN , " PON 10
 MAKTX LIKE MAKT-MAKTX, "Material text 40
 MBLNR LIKE MSEG-MBLNR,
 QTY(13) TYPE P DECIMALS 2 , "Qty 11
 RATE(13) TYPE P DECIMALS 2 , "Rate 11
 DISCOUNT(13) TYPE P DECIMALS 2, "DISCOUNT 11
 PROD-AMT(13) TYPE P DECIMALS 2,
 "AMOUNT 13
 EXCISE(13) TYPE P DECIMALS 2 , "eXCISE TAX 11
 SALES(13) TYPE P DECIMALS 2 , "SALES TAX 11
 FREIGHT(13) TYPE P DECIMALS 2, "FREIGHT 11
 OTHERS(13) TYPE P DECIMALS 2, " OTHERS 11
 TOTAL(13) TYPE P DECIMALS 2, "TOTAL 17
 END OF IT_FINAL.
*--vikky
DATA : BEGIN OF IT_FINAL_VN OCCURS 0,
 NAME1_VENDOR(25),
 "lfa1-name1, " Vendor Name 35
 MATNR LIKE MARA-MATNR,
 BLART LIKE BKPF-BLART, " doctype
 BELNR LIKE BSEG-BELNR, "sr - nO 10
 XBLNR LIKE BKPF-XBLNR , " Bill-no 16
 HKONT LIKE BSEG-HKONT , " Alloc-cd 10
 MWSKZ LIKE EKPO-MWSKZ , " St-cd 2
 BUDAT LIKE BKPF-BUDAT , " Bill-dt 10
 DUE_DATE LIKE BSEG-ZFBDT , " Due date 10
 PON LIKE EKKO-EBELN , " PON 10
 MAKTX LIKE MAKT-MAKTX, "Material text 40
 MBLNR LIKE MSEG-MBLNR,
 QTY(8) TYPE P DECIMALS 2 , "Qty 11
 RATE(9) TYPE P DECIMALS 2 , "Rate 11
 DISCOUNT(7) TYPE P DECIMALS 2, "DISCOUNT 11
 PROD-AMT(9) TYPE P DECIMALS 2,
 "AMOUNT 13
 EXCISE(5) TYPE P DECIMALS 2 , "eXCISE TAX 11
 SALES(5) TYPE P DECIMALS 2 , "SALES TAX 11
 FREIGHT(5) TYPE P DECIMALS 2, "FREIGHT 11
 OTHERS(9) TYPE P DECIMALS 2, " OTHERS 11
 TOTAL(9) TYPE P DECIMALS 2, "TOTAL 17
 END OF IT_FINAL_VN.
End of Insert by B.Elan on 23/12/2005
DATA: BEGIN OF ITAB_DISPLAY OCCURS 0,
 BLART LIKE BKPF-BLART, " doctype
 BELNR LIKE BSEG-BELNR, "sr - nO 10
 XBLNR LIKE BKPF-XBLNR , " Bill-no 16
 NAME1_VENDOR(25), "lfa1-name1, " Vendor Name 35
 HKONT LIKE BSEG-HKONT , " Alloc-cd 10
 MWSKZ LIKE EKPO-MWSKZ , " St-cd 2
 BUDAT LIKE BKPF-BUDAT , " Bill-dt 10
 DUE_DATE LIKE BSEG-ZFBDT , " Due date 10
 PON LIKE EKKO-EBELN , " PON 10
 MAKTX LIKE MAKT-MAKTX, "Material text 40
 QTY(8) TYPE P DECIMALS 2 , "Qty 11
 "qty 5
 RATE(5) TYPE P DECIMALS 2 , "Rate 11
 mod starts on 21/08 for inc size to 7
 RATE(9) TYPE P DECIMALS 2 , "Rate 11
 "Rate 7
 mod ends - sanjay jajoo 21/08
 DISCOUNT(7) TYPE P DECIMALS 2, "DISCOUNT 11
 PROD-AMT(9) TYPE P DECIMALS 2, "AMOUNT 13
 EXCISE(5) TYPE P DECIMALS 2 , "eXCISE TAX 11
 SALES(5) TYPE P DECIMALS 2 , "SALES TAX 11
 FREIGHT(5) TYPE P DECIMALS 2, "FREIGHT 11
 OTHERS(9) TYPE P DECIMALS 2, " OTHERS 11 " added by vik on
*21.08.2008
 TOTAL(9) TYPE P DECIMALS 2, "TOTAL 17
 TOTAL1(9) TYPE P DECIMALS 2,
 MATNR LIKE MARA-MATNR,
 EBELN LIKE EKPO-EBELN,
 EBELP LIKE EKPO-EBELP,
 END OF ITAB_DISPLAY.
DATA: BEGIN OF ITAB_TOTAL1 OCCURS 0,
 HKONT LIKE BSEG-HKONT,
 TOTAL TYPE P DECIMALS 2,
 TXT50 LIKE SKAT-TXT50,
 END OF ITAB_TOTAL1.
DATA: BEGIN OF ITAB_KONV OCCURS 0,
 KNUMV LIKE KONV-KNUMV,
 KPOSN LIKE KONV-KPOSN,
 STUNR LIKE KONV-STUNR,
 ZAEHK LIKE KONV-ZAEHK,
 KSCHL LIKE KONV-KSCHL,
 KWERT LIKE KONV-KWERT,
 END OF ITAB_KONV.
DATA:BEGIN OF ITAB_RATE_MODVAT OCCURS 0,
 EBELN LIKE EKPO-EBELN,
 EBELP LIKE EKPO-EBELP,
 MENGE LIKE EKPO-MENGE,
 BRTWR LIKE EKPO-BRTWR,
 KZWI5 LIKE EKPO-KZWI5,
 KNUMV LIKE EKKO-KNUMV,
 MATNR LIKE EKPO-MATNR,
 TXZ01 LIKE EKPO-TXZ01,
 END OF ITAB_RATE_MODVAT.
DATA: BEGIN OF ITAB_PO OCCURS 0,
 EBELN LIKE EKPO-EBELN,
 EBELP LIKE EKPO-EBELP,
 END OF ITAB_PO.
DATA: BEGIN OF ITAB_PO_ITEM OCCURS 0,
 BELNR LIKE BSEG-BELNR,
 EBELN LIKE BSEG-EBELN,
 BUZID LIKE BSEG-BUZID,
 XBLNR LIKE BKPF-XBLNR,
 MATNR LIKE BSEG-MATNR,
 EBELP LIKE BSEG-EBELP,
 MENGE LIKE BSEG-MENGE,
 WRBTR LIKE BSEG-WRBTR,
 EXCISE LIKE BSEG-DMBTR, " ADDED ON 21/01/02 FOR 27500 EXCISE
 SGTXT LIKE BSEG-SGTXT, " ADDED ON 24/01/02
 FLAG,
 END OF ITAB_PO_ITEM.
DATA:BEGIN OF I_LFA1 OCCURS 0,
 LIFNR LIKE BSEG-LIFNR,
 END OF I_LFA1.
DATA: BEGIN OF I_VENDOR OCCURS 0,
 LIFNR LIKE LFA1-LIFNR,
 NAME1 LIKE LFA1-NAME1,
 END OF I_VENDOR.
DATA: BEGIN OF ITAB_PO_OTHERS OCCURS 0,
 BELNR LIKE BSEG-BELNR,
 MATNR LIKE BSEG-MATNR,
 EBELN LIKE BSEG-EBELN,
 EBELP LIKE BSEG-EBELP,
 MENGE LIKE BSEG-MENGE,
 WRBTR LIKE BSEG-WRBTR,
 END OF ITAB_PO_OTHERS.
DATA: BEGIN OF ITAB_FINAL OCCURS 0,
 BUKRS LIKE BSEG-BUKRS,
 BELNR LIKE BSEG-BELNR,
 GJAHR LIKE BSEG-GJAHR,
 BUZEI LIKE BSEG-BUZEI,
 BUZID LIKE BSEG-BUZID,
 SHKZG LIKE BSEG-SHKZG,
 EBELN LIKE BSEG-EBELN,
 EBELP LIKE BSEG-EBELP,
 MENGE LIKE BSEG-MENGE,
 WRBTR LIKE BSEG-WRBTR,
 MATNR LIKE BSEG-MATNR,
 HKONT LIKE BSEG-HKONT, " ADDED ON 21/01/02 FOR 27500 EXCISE
 SGTXT LIKE BSEG-SGTXT, " ADDED ON 24/01/02 FOR SALES TAX
 END OF ITAB_FINAL.
DATA : BEGIN OF ITAB OCCURS 100 ,
 MWSKZ LIKE EKPO-MWSKZ , " St-cd
 HKONT LIKE BSEG-HKONT , " Alloc-cd
 MBLNR LIKE MKPF-MBLNR , " Sr-No
 LIFNR LIKE LFA1-LIFNR , " Supp-cd
 XBLNR LIKE BKPF-XBLNR , " Bill-no
 BUDAT LIKE BKPF-BUDAT , " Bill-dt
 DUE_DATE LIKE BSEG-ZFBDT , " Due date
 PON LIKE EKKO-EBELN , " PON
 BELNR LIKE BKPF-BELNR , " CCI no
 DMBTR LIKE BSEG-DMBTR , " Prod-amount
 EXCISE LIKE BSEG-DMBTR , " Excise / ModVAT
 ST_INV LIKE BSEG-DMBTR , " Sales Tax Loaded on Inv.
 ST_SET LIKE BSEG-DMBTR , " Sales Tax setoff .
 OCT_TOT LIKE BSEG-DMBTR , " A,A, (29/03/2000) Octroi chargs
 PT_PABLE LIKE BSEG-DMBTR , " Purchase tax payable
 ST_TOT LIKE BSEG-DMBTR , " Sales Tax total
 OTHR_CHRG LIKE BSEG-DMBTR , " Other chagres
 NEBTR LIKE BSEG-NEBTR, " Total-amount
 NAME1_VENDOR LIKE LFA1-NAME1, " Vendor Name
 END OF ITAB.
DATA: BEGIN OF ITAB_DOC OCCURS 0,
 BELNR LIKE BKPF-BELNR,
 BLART LIKE BKPF-BLART,
 END OF ITAB_DOC.
DATA : BEGIN OF DOCTAB OCCURS 100 ,
 MWSKZ LIKE BSEG-MWSKZ ,
 HKONT LIKE BSEG-HKONT ,
 BELNR LIKE BKPF-BELNR ,
Changed By Pankaj 19.03.99
Included field fiscal year
 GJAHR LIKE BKPF-GJAHR ,
 BUDAT LIKE BKPF-BUDAT ,
 XBLNR LIKE BKPF-XBLNR ,
 LIFNR LIKE LFA1-LIFNR ,
 ZTERM LIKE BSEG-ZTERM ,
 AMOUNT LIKE BSEG-DMBTR ,
 DMBTR LIKE BSEG-DMBTR ,
 OTHR_CHRG LIKE BSEG-DMBTR ,
 MBLNR LIKE MKPF-MBLNR ,
 MJAHR LIKE MSEG-MJAHR ,
 DUE_DATE LIKE BSEG-ZFBDT ,
 PON LIKE EKKO-EBELN ,
 JMO1 LIKE BSEG-DMBTR ,
 JMO2 LIKE BSEG-DMBTR ,
 JIP1 LIKE BSEG-DMBTR ,
 JIP2 LIKE BSEG-DMBTR ,
************CH-ID-ADI-START-28 / 09 / 1999
 JIP4 LIKE BSEG-DMBTR ,
 ZTUT LIKE BSEG-DMBTR ,
*****************ABEY
 ZOCT LIKE BSEG-DMBTR ,
*****************END
************CH-ID-ADI-START-28 / 09 / 1999
 ZSET LIKE BSEG-DMBTR ,
 ZPTX LIKE BSEG-DMBTR ,
 BLART LIKE BKPF-BLART ,
 END OF DOCTAB .
Download for EDP "EDP
DATA : BEGIN OF DOWNLOAD OCCURS 100 ,
 SIGN1(1) ,
 TOT_VAL(11) TYPE N,
 SIGN2(1) ,
 TAXABLE(11) TYPE N ,
 SIGN3(1) ,
 TOT_TAX(11) TYPE N ,
 SIGN4(1) ,
 SURCHARG(9) TYPE N ,
 SIGN5(1) ,
 ST_AMT(9) TYPE N ,
 SIGN6(1) ,
 OTH_CHRG(9) TYPE N ,
******************************ch-adi-start-28 / 09 / 1999
 SIGN7(1),
 TOT(9) TYPE N,
******************************ch-adi-end-28 / 09 / 1999
 TYPE(1) TYPE N ,
 STKY1(1) TYPE N ,
 STBR(2) ,
 STDV(2) ,
 STCC(1) ,
 STKY(1) ,
 STDC(2) TYPE N ,
 STTYP(1) ,
 STCODE(2) ,
 STRATE(2) TYPE N ,
 STRTT(2) TYPE N ,
 SERIAL_NO(6) TYPE N ,
 STACP(9) ,
 BLANK1(3) ,
 STYRMN(6) ,
 BLANK2(7) TYPE C .
DATA : END OF DOWNLOAD .
DATA : BEGIN OF GLTAB OCCURS 5 ,
 MWSKZ LIKE BSEG-MWSKZ, " << ADD A.A. (01.02.2000)
 HKONT LIKE BSEG-HKONT ,
 DMBTR LIKE BSEG-DMBTR , " Prod-amount
 EXCISE LIKE BSEG-DMBTR , " Excise / ModVAT
 ST_INV LIKE BSEG-DMBTR , " Sales Tax Loaded on Inv.
 ST_SET LIKE BSEG-DMBTR , " Sales Tax setoff .
 PT_PABLE LIKE BSEG-DMBTR , " Purchase tax payable
 ST_TOT LIKE BSEG-DMBTR , " Sales Tax total
 OTHR_CHRG LIKE BSEG-DMBTR , " Other Charges
 NEBTR LIKE BSEG-NEBTR. " Total-amount
DATA : END OF GLTAB .
DATA : BEGIN OF ERRORTAB OCCURS 5 .
 INCLUDE STRUCTURE ITAB .
DATA : END OF ERRORTAB .
*- Start of change by Raj on 3-Spet-05
DATA : V_TMPVAL TYPE P DECIMALS 2.
*- End of change by Raj on 3-Spet-05
DATA : STRING LIKE BKPF-AWKEY ,
 V_NO TYPE I,
 V_EBELN LIKE BSEG-EBELN,
 V_MATNR LIKE BSEG-MATNR. " ADDED ON 21/01/02 FOR BUZID = 'S'
Start of Insert by B.Elan on 23/12/2005
WORK AREA
DATA : WA_DISPLAY LIKE ITAB_DISPLAY.
DATA : V_UCOMM TYPE SY-UCOMM.
CONSTANTS : C_X TYPE C VALUE 'X'.
End of Insert by B.Elan on 23/12/2005
AT SELECTION-SCREEN ON T_BUKRS.
SELECT SINGLE * FROM T001 WHERE BUKRS = T_BUKRS .
IF SY-SUBRC NE 0 .
 MESSAGE E368 WITH T_BUKRS TEXT-M01 .
ENDIF .
AT SELECTION-SCREEN ON T_MONAT.
PERFORM check_period_year USING 'X'. " COMMENTED
AT SELECTION-SCREEN ON T_GJAHR.
PERFORM check_period_year USING ' '. "COMMENTED
Start of Delete by B.Elan on 23/12/2005
*AT SELECTION-SCREEN ON RADIOBUTTON GROUP grp1 .
CLEAR fname .
DATA : BEGIN OF xt247 OCCURS 12 .
 INCLUDE STRUCTURE t247 .
DATA : END OF xt247 .
CHECK dload EQ 'X' .
REFRESH xt247 .
IF poper EQ 'X' .
 MESSAGE e368 WITH text-m05 .
ENDIF .
CALL FUNCTION 'MONTH_NAMES_GET'
 TABLES
 month_names = xt247
 EXCEPTIONS
 month_names_not_found = 1
 OTHERS = 2.
READ TABLE xt247 WITH KEY mnr = t_monat .
CONCATENATE 'STAXSUMM.' xt247-ktx INTO fname .
CONCATENATE '
DOWNLOAD\' fname INTO fname1.
CONCATENATE zfile1 fname INTO zfile2.
CONDENSE fname1 NO-GAPS.
CONDENSE zfile2 NO-GAPS.
CONCATENATE 'STAXSUMM.' xt247-ktx INTO fname .
End of Delete by B.Elan on 23/12/2005
AT SELECTION-SCREEN OUTPUT .
LOOP AT SCREEN .
 IF SCREEN-NAME EQ 'FNAME' .
 SCREEN-INPUT = 0.
 MODIFY SCREEN .
 ENDIF .
 IF SCREEN-GROUP2 EQ 'DBS' .
 SCREEN-ACTIVE = 0 .
 MODIFY SCREEN .
 IF SCREEN-NAME EQ 'BR_BLART-LOW' .
Form the select option for the LDB .
 CLEAR BR_BLART . REFRESH BR_BLART .
 BR_BLART-SIGN = 'I' .
 BR_BLART-OPTION = 'EQ' .
 BR_BLART-LOW = 'RE' .
 APPEND BR_BLART .
 BR_BLART-SIGN = 'I' .
 BR_BLART-OPTION = 'EQ' .
 BR_BLART-LOW = 'SR' .
 APPEND BR_BLART .
 BR_BLART-SIGN = 'I' .
 BR_BLART-OPTION = 'EQ' .
 BR_BLART-LOW = 'SP' .
 APPEND BR_BLART . " ADD ON 11122003 JAJ
 BR_BLART-SIGN = 'I' .
 BR_BLART-OPTION = 'EQ' .
 br_blart-low = 'VI' .
 BR_BLART-LOW = 'ST'.
 APPEND BR_BLART .
 BR_BLART-LOW = 'S1'.
 APPEND BR_BLART .
 BR_BLART-LOW = 'P1'.
 APPEND BR_BLART .
 BR_BLART-LOW = 'PM'.
 APPEND BR_BLART .
 BR_BLART-LOW = 'R1'.
 APPEND BR_BLART .
 BR_BLART-SIGN = 'I' .
 BR_BLART-OPTION = 'EQ' .
 BR_BLART-LOW = 'KR' .
 APPEND BR_BLART .
 BR_BLART-SIGN = 'I' .
 BR_BLART-OPTION = 'EQ' .
*************CH-ID-ADI---30 / 09 / 1999.
 BR_BLART-LOW = 'RA'.
 APPEND BR_BLART .
 BR_BLART-SIGN = 'I' .
 BR_BLART-OPTION = 'EQ' .
 BR_BLART-LOW = 'EM'.
 APPEND BR_BLART .
 BR_BLART-SIGN = 'I' .
 BR_BLART-OPTION = 'EQ' .
 BR_BLART-LOW = 'EI' .
 APPEND BR_BLART .
 ENDIF .
 ENDIF .
 CHECK SCREEN-GROUP1 EQ 'DAT' .
 SCREEN-INPUT = 0.
 MODIFY SCREEN .
ENDLOOP .
START-OF-SELECTION .
Block 1 - Selection of accounting documents in the posting period
is done through the LDB
GET BKPF .
commented on 22/08
CHECK BKPF-MONAT = T_MONAT.
CHECK BKPF-MONAT IN T_MONAT.
CHECK BKPF-GJAHR = T_GJAHR.
CHECK BKPF-STBLG IS INITIAL . "<<<< Reversed
*CHECK bkpf-budat IN t_budat .
CHECK BKPF-BUKRS EQ T_BUKRS .
CHECK BKPF-BUKRS EQ T_BUKRS .
CHECK BKPF-BSTAT EQ SPACE . "<<< Sample docs
CHECK BKPF-BLART EQ 'RE' "MM-IV
 OR BKPF-BLART EQ 'KR' "FI-IV
OR bkpf-blart EQ 'VI' "FI-IV Direct
*************CH-ID-ADI-30 / 09 / 1999
OR bkpf-blart EQ 'RA' "CASH CCI
OR bkpf-blart EQ 'EM' "MAINTAINANCE
OR bkpf-blart EQ 'EI' . "IDT
 OR BKPF-BLART EQ 'P1'
 OR BKPF-BLART EQ 'PM'
 OR BKPF-BLART EQ 'R1'
 OR BKPF-BLART EQ 'S1'
 OR BKPF-BLART EQ 'ST'
 OR BKPF-BLART EQ 'SR' " ADD ON 101203 JAJ
 OR BKPF-BLART EQ 'SP'.
*************CH-ID-ADI-30 / 09 / 1999
CLEAR DOCTAB .
DOCTAB-BLART = BKPF-BLART .
DOCTAB-BELNR = BKPF-BELNR .
DOCTAB-BUDAT = BKPF-BUDAT .
DOCTAB-XBLNR = BKPF-XBLNR .
Added By Pankaj 19.03.99
Initializing fiscal year for document table
DOCTAB-GJAHR = BKPF-GJAHR .
APPEND DOCTAB.
Tax details
GET BSET . " Commented because LDB gives wrong BSET entries
" for some documents
CASE BSET-KSCHL .
 WHEN 'JMO1' .
 DOCTAB-JMO1 = DOCTAB-JMO1 + BSET-HWSTE .
 WHEN 'JMO2' .
 DOCTAB-JMO2 = DOCTAB-JMO2 + BSET-HWSTE .
 WHEN 'JIP1' .
 DOCTAB-JIP1 = DOCTAB-JIP1 + BSET-HWSTE .
 WHEN 'JIP2' .
 DOCTAB-JIP2 = DOCTAB-JIP2 + BSET-HWSTE .
 WHEN 'ZSET' .
 break deven .
 DOCTAB-ZSET = DOCTAB-ZSET + BSET-HWSTE .
 WHEN 'ZPTX' .
 DOCTAB-ZPTX = DOCTAB-ZPTX + BSET-HWSTE .
ENDCASE .
DOCTAB-MWSKZ = BSET-MWSKZ.
MODIFY DOCTAB INDEX SY-TABIX.
Item details
*changed by srinivas yerra.
GET BSEG .
IF BSEG-KOART = 'K' . "<<< Vendor Line
IF BSEG-KOART = 'K' .
*end of chnages by srinivas yerra.
 DOCTAB-LIFNR = BSEG-LIFNR .
 IF NOT BSEG-ZTERM IS INITIAL .
 DOCTAB-ZTERM = BSEG-ZTERM .
 DOCTAB-DUE_DATE = BSEG-ZFBDT + BSEG-ZBD1T .
 ENDIF .
 IF BSEG-SHKZG EQ 'H' . "<< Add credits
 DOCTAB-AMOUNT = DOCTAB-AMOUNT + BSEG-DMBTR .
 ELSE . "<< Subtr debits
 DOCTAB-AMOUNT = DOCTAB-AMOUNT - BSEG-DMBTR .
 ENDIF .
ENDIF .
CASE BSEG-KTOSL .
 WHEN 'WRX' .
 DOCTAB-PON = BSEG-EBELN .
 IF DOCTAB-MWSKZ IS INITIAL .
 DOCTAB-MWSKZ = BSEG-MWSKZ .
 ENDIF .
 WHEN 'BSX' .
***********ABEY
 IF NEXT = BSEG-BUZEI
 AND
 DOC = BSEG-BELNR
 AND
 ( BSEG-BUZID = 'M'
 OR
 BSEG-HKONT = 50765 ).
 DOCTAB-ZOCT = DOCTAB-ZOCT + BSEG-DMBTR.
 IF BSEG-SHKZG EQ 'H' . "<< Subtr credits
 DOCTAB-OTHR_CHRG = DOCTAB-OTHR_CHRG - BSEG-DMBTR .
 ELSE . "<< Add debits
 DOCTAB-OTHR_CHRG = DOCTAB-OTHR_CHRG + BSEG-DMBTR .
 ENDIF .
 ENDIF .
************END
 IF BSEG-SHKZG EQ 'S' .
 DOCTAB-DMBTR = DOCTAB-DMBTR + BSEG-DMBTR .
 ELSE .
 DOCTAB-DMBTR = DOCTAB-DMBTR - BSEG-DMBTR .
 ENDIF .
 WHEN 'OCT' OR 'FRE' OR 'FR1' OR SPACE .
*****CH-ID-ADI-30 / 09 /1999.
 IF ( ( BKPF-BLART = 'EM' OR BKPF-BLART = 'RA' OR BKPF-BLART =
 'EI')
 AND BSEG-KTOSL = SPACE ) OR BSEG-MWSKZ = '9W' OR BSEG-MWSKZ =
 'K9' OR
 BSEG-MWSKZ =
 'X9'.
 DOCTAB-OTHR_CHRG = 0.
 ELSE.
*********CH-ID-ADI--01 / 10 / 1999
 Other Charges only for accounts other than vendor acc.
 CHECK BSEG-BUZID NE 'T' .
 CHECK BSEG-BUZID NE 'P' .
 IF BSEG-KOART NE 'K' .
*********ABEY (25/02/2000), (21/02/2000)
 IF BSEG-BUZID = 'F'
 OR BSEG-HKONT = 75461.
 NEXT = BSEG-BUZEI + 1.
 DOC = BSEG-BELNR.
 DOCTAB-ZOCT = DOCTAB-ZOCT + BSEG-DMBTR.
 ENDIF.
 IF BSEG-BUZEI = NEXT
 AND
 ( BSEG-BUZID = 'M'
 OR
 BSEG-HKONT = 50765 ).
 DOCTAB-ZOCT = DOCTAB-ZOCT + BSEG-DMBTR.
 ENDIF.
*********END
 IF BSEG-SHKZG EQ 'H' . "<< Subtr credits
 DOCTAB-OTHR_CHRG = DOCTAB-OTHR_CHRG - BSEG-DMBTR .
 ELSE . "<< Add debits
 DOCTAB-OTHR_CHRG = DOCTAB-OTHR_CHRG + BSEG-DMBTR .
 ENDIF .
 ENDIF .
*****NEXT-LINE ADDED BY ADI
 ENDIF .
*************END.
ENDCASE .
*CHANGED BY SRINIVAS YERRA
*MODIFY DOCTAB INDEX SY-TABIX.
APPEND DOCTAB.
*END OF CHANGES.
PO History
GET EKBE .
CHECK DOCTAB-BELNR EQ EKBE-BELNR .
DOCTAB-MBLNR = EKBE-LFBNR .
DOCTAB-MJAHR = EKBE-LFGJA .
MODIFY DOCTAB INDEX SY-TABIX .
PERFORM show_indicator USING text-m02 .
*PERFORM convert_data.
END-OF-SELECTION .
Data read from LDB is converted into printable format.
PERFORM SHOW_INDICATOR USING TEXT-M04 .
PERFORM CONVERT_DATA .
Start of Delete by B.Elan on 23/12/2005
IF stax_reg EQ 'X' . "<<< Add
 SORT itab BY mwskz hkont belnr .
ELSE . "<<< Add
 SORT itab BY belnr . "<<< Add
 SORT itab BY pon.
ENDIF . "<<< Add
Perform further operation based on user input
IF display EQ 'X' .
 PERFORM write_itab.
 PERFORM write_data .
ELSE .
PERFORM download_data .
ENDIF .
End of Delete by B.Elan on 23/12/2005
Start of Insert by B.Elan on 23/12/2005
SORT ITAB BY BELNR.
PERFORM WRITE_DATA.
IF MAT_SM = C_X.
 PERFORM WRITE_MATERIAL_SUMMARY.
ELSEIF MAT_DT = C_X.
 PERFORM WRITE_MATERIAL_DETAILS.
ELSEIF VEN_SM = C_X.
 PERFORM WRITE_VENDOR_SUMMARY.
ELSEIF VEN_DT = C_X.
 PERFORM WRITE_VENDOR_DETAILS.
ENDIF.
End of Insert by B.Elan on 23/12/2005
Start of Insert by B.Elan on 23/12/2005
AT USER-COMMAND.
V_UCOMM = SY-UCOMM.
CASE V_UCOMM.
 WHEN 'DETLS'.
 NEW-PAGE.
 PUR_DB = C_X.
 PERFORM CLEAR_DETAILS.
 PERFORM WRITE_DATA.
 WHEN 'MSUMRY'.
 PERFORM WRITE_MATERIAL_SUMMARY.
 WHEN 'MDETL'.
 PERFORM WRITE_MATERIAL_DETAILS.
 WHEN 'VSUMRY'.
 PERFORM WRITE_VENDOR_SUMMARY.
 WHEN 'VDETL'.
 PERFORM WRITE_VENDOR_DETAILS.
 WHEN 'EXIT'.
 LEAVE PROGRAM.
ENDCASE.
End of Insert by B.Elan on 23/12/2005
*- - - - - - - - - End Of Execution .- - - - - - - - - - - - - - - - - -
TOP-OF-PAGE .
IF PUR_DB = C_X.
 PERFORM TOP_OF_PAGE.
 PERFORM TOP_OF_PAGE_PUR_DB.
ELSEIF MAT_SM = C_X.
 PERFORM TOP_OF_PAGE.
 PERFORM TOP_OF_PAGE_MAT_SM.
ELSEIF MAT_DT = C_X.
 PERFORM TOP_OF_PAGE.
 PERFORM TOP_OF_PAGE_MAT_DT.
ELSEIF VEN_SM = C_X.
 PERFORM TOP_OF_PAGE.
 PERFORM TOP_OF_PAGE_VEN_SM.
ELSEIF VEN_DT = C_X.
 PERFORM TOP_OF_PAGE.
 PERFORM TOP_OF_PAGE_VEN_DT.
ENDIF.
TOP-OF-PAGE DURING LINE-SELECTION.
CASE V_UCOMM.
 WHEN 'DETLS'.
 PERFORM TOP_OF_PAGE.
 PERFORM TOP_OF_PAGE_PUR_DB.
 WHEN 'MSUMRY'.
 PERFORM TOP_OF_PAGE.
 PERFORM TOP_OF_PAGE_MAT_SM.
 WHEN 'MDETL'.
 PERFORM TOP_OF_PAGE.
 PERFORM TOP_OF_PAGE_MAT_DT.
 WHEN 'VSUMRY'.
 PERFORM TOP_OF_PAGE.
 PERFORM TOP_OF_PAGE_VEN_SM.
 WHEN 'VDETL'.
 PERFORM TOP_OF_PAGE.
 PERFORM TOP_OF_PAGE_VEN_DT.
ENDCASE.
*& Form WRITE_DATA
 text *
FORM WRITE_DATA.
DATA: V_SALES LIKE ITAB_DISPLAY-SALES,
 V_RATE LIKE ITAB_DISPLAY-RATE,
 V_DISCOUNT LIKE ITAB_DISPLAY-DISCOUNT,
 V_PROD-AMT LIKE ITAB_DISPLAY-PROD-AMT,
 V_EXCISE1 LIKE ITAB_DISPLAY-EXCISE,
 V_EXCISE LIKE ITAB_DISPLAY-EXCISE,
 V_PON LIKE ITAB_DISPLAY-PON,
 V_OTHERS LIKE ITAB_DISPLAY-OTHERS,
 V_FREIGHT LIKE ITAB_DISPLAY-FREIGHT.
CLEAR ITAB .
Write the correct data i.e. tax code and G/L code both available .
LOOP AT ITAB .
*************CH-ID-ADI-30 / 09 / 1999
 IF ( ITAB-MWSKZ = '9W' OR ITAB-MWSKZ = 'K9' OR ITAB-MWSKZ = 'X9' )
 AND ITAB-OTHR_CHRG NE 0 .
 ITAB-DMBTR = ITAB-OTHR_CHRG.
 ITAB-OTHR_CHRG = 0.
 MODIFY ITAB.
 ENDIF.
ENDLOOP.
LOOP AT ITAB.
 I_LFA1-LIFNR = ITAB-LIFNR.
 APPEND I_LFA1.
 CLEAR I_LFA1.
ENDLOOP.
SORT I_LFA1.
DELETE ADJACENT DUPLICATES FROM I_LFA1 COMPARING ALL FIELDS.
SELECT LIFNR
 NAME1
 FROM LFA1 INTO TABLE I_VENDOR
 FOR ALL ENTRIES IN I_LFA1 WHERE
 LIFNR = I_LFA1-LIFNR.
FREE I_LFA1.
LOOP AT ITAB.
 READ TABLE I_VENDOR WITH KEY LIFNR = ITAB-LIFNR .
 IF SY-SUBRC EQ 0.
 ITAB-NAME1_VENDOR = I_VENDOR-NAME1.
 MODIFY ITAB TRANSPORTING NAME1_VENDOR.
 ENDIF.
ENDLOOP.
LOOP AT ITAB.
 IF NOT ITAB-LIFNR IN S_VENDOR.
 DELETE ITAB.
 ENDIF.
ENDLOOP.
SELECT BUKRS BELNR GJAHR BUZEI BUZID SHKZG EBELN EBELP ERFMG WRBTR
 MATNR HKONT SGTXT " ERFMG for MENGE,HKONT,SGTXT Added by KrishnaMohan
 INTO TABLE ITAB_FINAL
 FROM BSEG FOR ALL ENTRIES IN ITAB
 WHERE BUKRS = T_BUKRS AND "'1000' AND
 BELNR = ITAB-BELNR AND
*added by srinivas
 hkont in zgl and
*end
 GJAHR = T_GJAHR AND
*- Start of change by Raj on 030905
 buzid IN ('W', 'M', 'K', 'S', 'F' , 'P' ) AND
 BUZID IN ('W', 'M', 'K', 'S', 'F' , 'P' , 'T', ' ') AND
 " ADD T 090206 JAJ
 KOART <> 'K' AND " mod by vik on 21.08.2008" sjaj si
*- End of change by Raj on 030905
BUZID = P Added on 21/01/02 by Krishna Mohan
 GSBER IN P_GSBER AND
 gsber IN p_gsber OR gsber = ' ' AND
 MATNR IN S_MATNR.
SELECT BELNR BLART INTO TABLE ITAB_DOC FROM BKPF
 FOR ALL ENTRIES IN ITAB_FINAL WHERE
 BUKRS = T_BUKRS AND "'1000' AND
 BELNR = ITAB_FINAL-BELNR AND
 GJAHR = T_GJAHR AND
 BLART NOT IN ('WA' , 'WE').
SORT ITAB_DOC BY BELNR BLART.
LOOP AT ITAB_DOC.
 IF NOT ITAB_DOC-BLART IN S_DOCTYP .
 DELETE ITAB_DOC.
 ENDIF.
ENDLOOP.
LOOP AT ITAB_FINAL.
 READ TABLE ITAB_DOC WITH KEY BELNR = ITAB_FINAL-BELNR BINARY SEARCH.
 IF SY-SUBRC NE 0.
 DELETE ITAB_FINAL.
 ENDIF.
ENDLOOP.
DELETE ITAB_FINAL WHERE BUZID = 'K' AND BUZEI = '1'.
LOOP AT ITAB_FINAL WHERE SHKZG = 'H'.
 ITAB_FINAL-WRBTR = ITAB_FINAL-WRBTR * ( -1 ).
 MODIFY ITAB_FINAL TRANSPORTING WRBTR.
ENDLOOP.
LOOP AT ITAB_FINAL WHERE BUZID = 'M'.
 IF ITAB_FINAL-SGTXT NE ' '.
 TRANSLATE ITAB_FINAL-SGTXT TO UPPER CASE.
 MODIFY ITAB_FINAL.
 ENDIF.
ENDLOOP.
LOOP AT ITAB_FINAL .
 IF ITAB_FINAL-BUZID = 'W'.
 CLEAR V_MATNR.
 V_EBELN = ITAB_FINAL-EBELN.
 V_MATNR = ITAB_FINAL-MATNR.
 ITAB_PO_ITEM-BELNR = ITAB_FINAL-BELNR.
 ITAB_PO_ITEM-BUZID = ITAB_FINAL-BUZID.
 ITAB_PO_ITEM-MATNR = ITAB_FINAL-MATNR.
 ITAB_PO_ITEM-EBELN = ITAB_FINAL-EBELN.
 ITAB_PO_ITEM-EBELP = ITAB_FINAL-EBELP.
 ITAB_PO_ITEM-MENGE = ITAB_FINAL-MENGE.
 ITAB_PO_ITEM-WRBTR = ITAB_FINAL-WRBTR.
 COLLECT ITAB_PO_ITEM.
 CLEAR ITAB_PO_ITEM.
 ELSEIF ITAB_FINAL-BUZID = 'M' OR ITAB_FINAL-BUZID = 'K' OR
 ITAB_FINAL-BUZID = 'S' OR
 ITAB_FINAL-BUZID = 'P' OR " ADDED ON 21/01/02
*- Start of change by Raj on 030905
 ITAB_FINAL-BUZID = ' ' OR
 ITAB_FINAL-BUZID = 'T' OR " ADD BY JAJ ON 090206
*- End of change by Raj on 030905
 ITAB_FINAL-BUZID = 'F'.
 IF ITAB_FINAL-MATNR IS INITIAL.
 ITAB_FINAL-MATNR = V_MATNR.
 ENDIF.
 CLEAR V_MATNR.
 ITAB_PO_OTHERS-BELNR = ITAB_FINAL-BELNR.
 ITAB_PO_OTHERS-MATNR = ITAB_FINAL-MATNR.
 ITAB_PO_OTHERS-EBELN = ITAB_FINAL-EBELN.
 ITAB_PO_OTHERS-EBELP = ITAB_FINAL-EBELP.
 ITAB_PO_OTHERS-MENGE = ITAB_FINAL-MENGE.
 ITAB_PO_OTHERS-WRBTR = ITAB_FINAL-WRBTR.
IF CONDITION,ADDED ON 21/01/02 FOR GETTING EXCISE WHEN CONDITION MEETS
ie TOTAL AMOUNT = EXCISE WHEN BUZID = S AND HKONT = 27500
*IF itab_final-buzid = 'S' AND ( itab_final-hkont = '0000027500' OR "
*COMM BY JAJ ON 090206
 IF ITAB_FINAL-BUZID = 'S' OR ITAB_FINAL-BUZID = 'T' AND (
 ITAB_FINAL-HKONT = '0000027500' OR
 ITAB_FINAL-HKONT = '0000027515'
 OR ITAB_FINAL-HKONT = '0000027550' " jaj on 090206
 OR ITAB_FINAL-HKONT = '0000027507' OR
 ITAB_FINAL-HKONT = '0000027508'). "Added on 050905 - Raj
 ITAB_FINAL-EBELN = V_EBELN.
to get ebeln value into header so that when there are 2 po's
and 2 W's excise can go into only one po which is v_ebeln
Start of insert by B.Elan on 10/02/2006
 READ TABLE ITAB_PO_ITEM WITH KEY BELNR = ITAB_FINAL-BELNR
 EBELN = ITAB_FINAL-EBELN
 MATNR = ITAB_FINAL-MATNR.
 ITAB_PO_ITEM-EXCISE = ITAB_PO_ITEM-EXCISE + ITAB_FINAL-WRBTR.
End of insert by B.Elan on 10/02/2006
Start of delete by B.Elan on 10/02/2006
 itab_po_item-excise = itab_final-wrbtr.
End of delete by B.Elan on 10/02/2006
 MODIFY ITAB_PO_ITEM TRANSPORTING EXCISE
 WHERE BELNR EQ ITAB_FINAL-BELNR AND
 EBELN EQ ITAB_FINAL-EBELN.
 CLEAR ITAB_PO_ITEM.
 ELSE.
 COLLECT ITAB_PO_OTHERS.
 ENDIF.
 CLEAR ITAB_PO_OTHERS.
 ENDIF.
ENDLOOP.
sateesh
SORT ITAB_PO_ITEM BY BELNR EBELN.
LOOP AT ITAB_PO_ITEM.
 AT NEW BELNR.
 AT NEW EBELN.
 READ TABLE ITAB_PO_ITEM INDEX SY-TABIX.
 ITAB_PO_ITEM-FLAG = 'X'.
 MODIFY ITAB_PO_ITEM INDEX SY-TABIX.
 ENDAT.
 ENDAT.
ENDLOOP.
LOOP AT ITAB_PO_ITEM.
 ITAB_PO_ITEM-EXCISE = 0.
 MODIFY ITAB_PO_ITEM TRANSPORTING EXCISE
 WHERE EXCISE > 0
 AND FLAG = SPACE.
ENDLOOP.
end
LOOP AT ITAB_PO_ITEM.
 ITAB_PO-EBELN = ITAB_PO_ITEM-EBELN.
 ITAB_PO-EBELP = ITAB_PO_ITEM-EBELP.
 APPEND ITAB_PO.
 CLEAR ITAB_PO.
ENDLOOP.
LOOP AT ITAB_PO_OTHERS.
 ITAB_PO-EBELN = ITAB_PO_OTHERS-EBELN.
 ITAB_PO-EBELP = ITAB_PO_OTHERS-EBELP.
 APPEND ITAB_PO.
 CLEAR ITAB_PO.
ENDLOOP.
SORT ITAB_PO.
DELETE ADJACENT DUPLICATES FROM ITAB_PO COMPARING ALL FIELDS.
SELECT EKPO~EBELN
 EBELP
 MENGE
 BRTWR
 KZWI5
 EKKO~KNUMV
 EKPO~MATNR
 EKPO~TXZ01
 INTO TABLE ITAB_RATE_MODVAT
 FROM EKPO INNER JOIN EKKO
 ON EKPO~EBELN = EKKO~EBELN
 FOR ALL ENTRIES IN ITAB_PO WHERE
 EKPO~EBELN = ITAB_PO-EBELN AND
 EBELP = ITAB_PO-EBELP.
SELECT KNUMV KPOSN STUNR ZAEHK KSCHL KWERT
 INTO TABLE ITAB_KONV
 FROM KONV
 FOR ALL ENTRIES IN ITAB_RATE_MODVAT
 WHERE KNUMV = ITAB_RATE_MODVAT-KNUMV AND
KSCHL IN ('YT02', 'YF07', 'YOTH', 'YPF1', 'YD01', 'YD02', 'YD03' ) .
SORT ITAB_KONV BY KNUMV KSCHL.
SORT ITAB BY BELNR.
SORT ITAB_RATE_MODVAT BY EBELN EBELP.
SORT ITAB_PO_OTHERS BY BELNR MATNR.
LOOP AT ITAB_PO_ITEM.
 ITAB_DISPLAY-BELNR = ITAB_PO_ITEM-BELNR.
 READ TABLE ITAB_DOC WITH KEY BELNR = ITAB_PO_ITEM-BELNR BINARY
 SEARCH.
 IF SY-SUBRC EQ 0.
 ITAB_DISPLAY-BLART = ITAB_DOC-BLART.
 ENDIF.
 READ TABLE ITAB WITH KEY BELNR = ITAB_PO_ITEM-BELNR BINARY SEARCH.
 IF SY-SUBRC EQ 0.
 ITAB_DISPLAY-XBLNR = ITAB-XBLNR.
 ITAB_PO_ITEM-XBLNR = ITAB-XBLNR.
 ITAB_DISPLAY-NAME1_VENDOR = ITAB-NAME1_VENDOR.
 ITAB_DISPLAY-HKONT = ITAB-HKONT.
 ITAB_DISPLAY-MWSKZ = ITAB-MWSKZ.
 ITAB_DISPLAY-BUDAT = ITAB-BUDAT.
 ITAB_DISPLAY-DUE_DATE = ITAB-DUE_DATE.
 ITAB_DISPLAY-PON = ITAB_PO_ITEM-EBELN.
 ENDIF.
 ITAB_DISPLAY-QTY = ITAB_PO_ITEM-MENGE.
 READ TABLE ITAB_RATE_MODVAT WITH KEY EBELN = ITAB_PO_ITEM-EBELN
 EBELP = ITAB_PO_ITEM-EBELP
 BINARY SEARCH.
 IF SY-SUBRC EQ 0.
 ITAB_DISPLAY-PON = ITAB_PO_ITEM-EBELN.
 ITAB_DISPLAY-MATNR = ITAB_RATE_MODVAT-MATNR.
 ITAB_DISPLAY-MAKTX = ITAB_RATE_MODVAT-TXZ01.
 ITAB_DISPLAY-RATE = ITAB_RATE_MODVAT-BRTWR /
 ITAB_RATE_MODVAT-MENGE.
 ITAB_DISPLAY-PROD-AMT = ITAB_DISPLAY-RATE * ITAB_PO_ITEM-MENGE.
 IF ITAB_PO_ITEM-EXCISE NE 0.
 ITAB_DISPLAY-EXCISE = ITAB_PO_ITEM-EXCISE.
 ELSE.
*ITAB_DISPLAY-EXCISE = ( ITAB_PO_ITEM-MENGE * ITAB_RATE_MODVAT-KZWI5 ) /
 ITAB_RATE_MODVAT-MENGE.
*commentedon 210102 to get excise directly from BSEG - IV
 ENDIF.
 ENDIF.
 READ TABLE ITAB_KONV WITH KEY KNUMV = ITAB_RATE_MODVAT-KNUMV
 KPOSN = ITAB_RATE_MODVAT-EBELP
 KSCHL = 'YT02' .
 IF SY-SUBRC EQ 0.
 ITAB_DISPLAY-SALES = ( ITAB_PO_ITEM-MENGE * ITAB_KONV-KWERT ) /
 ITAB_RATE_MODVAT-MENGE.
 READ TABLE ITAB_FINAL WITH KEY BELNR = ITAB_PO_ITEM-BELNR
 BUZID = 'M'
 SGTXT(9) = 'SALES TAX'.
 IF SY-SUBRC EQ 0.
 IF ITAB_FINAL-SGTXT(9) EQ 'SALES TAX'
 OR ITAB_FINAL-SGTXT(9) EQ 'sales tax'.
 ITAB_DISPLAY-SALES = ITAB_DISPLAY-SALES + ITAB_FINAL-WRBTR.
 ENDIF.
 ENDIF.
 ENDIF.
 READ TABLE ITAB_KONV WITH KEY KNUMV = ITAB_RATE_MODVAT-KNUMV
 KPOSN = ITAB_RATE_MODVAT-EBELP
 KSCHL = 'YF07'.
 IF SY-SUBRC EQ 0.
 ITAB_DISPLAY-FREIGHT = ( ITAB_PO_ITEM-MENGE * ITAB_KONV-KWERT ) /
 ITAB_RATE_MODVAT-MENGE.
 ENDIF.
 READ TABLE ITAB_KONV WITH KEY KNUMV = ITAB_RATE_MODVAT-KNUMV
 KPOSN = ITAB_RATE_MODVAT-EBELP
 KSCHL = 'YD01' .
 IF SY-SUBRC EQ 0.
 ITAB_DISPLAY-DISCOUNT = ( ITAB_PO_ITEM-MENGE * ITAB_KONV-KWERT ) /
 ITAB_RATE_MODVAT-MENGE.
 ELSE.
 READ TABLE ITAB_KONV WITH KEY KNUMV = ITAB_RATE_MODVAT-KNUMV
 KPOSN = ITAB_RATE_MODVAT-EBELP
 KSCHL = 'YD02' .
 IF SY-SUBRC EQ 0.
 ITAB_DISPLAY-DISCOUNT = ( ITAB_PO_ITEM-MENGE * ITAB_KONV-KWERT )
ITAB_RATE_MODVAT-MENGE.
 ELSE.
 READ TABLE ITAB_KONV WITH KEY KNUMV = ITAB_RATE_MODVAT-KNUMV
 KPOSN = ITAB_RATE_MODVAT-EBELP
 KSCHL = 'YD03' .
 IF SY-SUBRC EQ 0.
 ITAB_DISPLAY-DISCOUNT = ( ITAB_PO_ITEM-MENGE * ITAB_KONV-KWERT
ITAB_RATE_MODVAT-MENGE.
 ENDIF.
 ENDIF.
 ENDIF.
 LOOP AT ITAB_KONV WHERE KNUMV = ITAB_RATE_MODVAT-KNUMV AND KPOSN =
 ITAB_RATE_MODVAT-EBELP AND
 ( KSCHL = 'YPF1' OR KSCHL = 'YOTH' ) .
 ITAB_KONV-KWERT = ( ITAB_PO_ITEM-MENGE * ITAB_KONV-KWERT ) /
 ITAB_RATE_MODVAT-MENGE.
 ITAB_DISPLAY-OTHERS = ITAB_DISPLAY-OTHERS + ITAB_KONV-KWERT.
 ENDLOOP.
 READ TABLE ITAB_PO_OTHERS WITH KEY BELNR = ITAB_PO_ITEM-BELNR.
 EBELN = ITAB_PO_ITEM-EBELN.
 BINARY SEARCH.
sateesh as on 10092003
 IF SY-SUBRC NE 0. CLEAR ITAB_PO_OTHERS. ENDIF.
end
 IF NOT ITAB_PO_OTHERS-EBELN IS INITIAL.
 READ TABLE ITAB_PO_OTHERS WITH KEY EBELN = ITAB_PO_ITEM-EBELN
 EB

Can anyone tell me how to use GUI status in ALV report.

Can anyone tell me how to use GUI status in ALV report. I want to use buttons in ALV report.

Juheb,
see the link
http://help.sap.com/saphelp_nw2004s/helpdata/en/5e/88d440e14f8431e10000000a1550b0/frameset.htm
http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCSRVALV/BCSRVALV.pdf
Adding a button on the ALV grid using OOPs
check these sites.
https://www.sdn.sap.com/irj/sdn/wiki?path=/display/snippets/webDynproABAP-ALVControllingStandard+Buttons&
chk this.
alv-pfstatus:
http://www.sapdevelopment.co.uk/reporting/alv/alvgrid_pfstatus.htm
then how to capture that button click.
http://www.sapdevelopment.co.uk/reporting/alv/alvgrid_ucomm.htm
REPORT ZTESTALV.
TYPE-POOLS: SLIS.
*- Fieldcatalog
DATA: IT_FIELDCAT TYPE LVC_T_FCAT,
 IT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV..
*- For Events
DATA:IT_EVENTS TYPE SLIS_T_EVENT.
DATA: X_FIELDCAT TYPE LVC_S_FCAT,
 X_FIELDCAT1 TYPE SLIS_FIELDCAT_ALV.
DATA:X_LAYOUT TYPE LVC_S_LAYO.
"{ FOR DISABLE
DATA: LS_EDIT TYPE LVC_S_STYL,
 LT_EDIT TYPE LVC_T_STYL.
"} FOR DISABLE
DATA: BEGIN OF IT_VBAP OCCURS 0,
 VBELN LIKE VBAP-VBELN,
 POSNR LIKE VBAP-POSNR,
 HANDLE_STYLE TYPE LVC_T_STYL, "FOR DISABLE
 BUTTON(10),
 END OF IT_VBAP.
DATA: LS_OUTTAB LIKE LINE OF IT_VBAP.
SELECT VBELN
 POSNR
 UP TO 10 ROWS
 INTO CORRESPONDING FIELDS OF TABLE IT_VBAP
 FROM VBAP.
DATA:L_POS TYPE I VALUE 1.
CLEAR: L_POS.
L_POS = L_POS + 1.
X_FIELDCAT-SELTEXT = 'Button'.
x_fieldcat-fieldname = 'BUTTON'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
X_FIELDCAT-style = X_FIELDCAT-style bit-xor
 cl_gui_alv_grid=>MC_STYLE_BUTTON bit-xor
 cl_gui_alv_grid=>MC_STYLE_ENABLEd.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SELTEXT = 'VBELN'.
X_FIELDCAT-FIELDNAME = 'VBELN'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-EDIT = 'X'.
X_FIELDCAT-OUTPUTLEN = '10'.
x_fieldcat-ref_field = 'VBELN'.
x_fieldcat-ref_table = 'VBAK'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SELTEXT = 'POSNR'.
X_FIELDCAT-FIELDNAME = 'POSNR'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-EDIT = 'X'.
X_FIELDCAT-OUTPUTLEN = '5'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
"{FOR DISABLE HERE 6ROW IS DISABLED
SY-TABIX = 6.
LS_EDIT-FIELDNAME = 'VBELN'.
LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
LS_EDIT-STYLE2 = SPACE.
LS_EDIT-STYLE3 = SPACE.
LS_EDIT-STYLE4 = SPACE.
LS_EDIT-MAXLEN = 10.
INSERT LS_EDIT INTO TABLE LT_EDIT.
*LS_EDIT-FIELDNAME = 'POSNR'.
*LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
*LS_EDIT-STYLE2 = SPACE.
*LS_EDIT-STYLE3 = SPACE.
*LS_EDIT-STYLE4 = SPACE.
*LS_EDIT-MAXLEN = 6.
*INSERT LS_EDIT INTO TABLE LT_EDIT.
INSERT LINES OF LT_EDIT INTO TABLE LS_OUTTAB-HANDLE_STYLE.
MODIFY IT_VBAP INDEX SY-TABIX FROM LS_OUTTAB TRANSPORTING
 HANDLE_STYLE .
X_LAYOUT-STYLEFNAME = 'HANDLE_STYLE'.
"} UP TO HERE
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
 I_CALLBACK_PROGRAM = SY-REPID
 IS_LAYOUT_LVC = X_LAYOUT
 IT_FIELDCAT_LVC = IT_FIELDCAT
TABLES
 T_OUTTAB = IT_VBAP[]
EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Don't forget to reward if useful....

How to Query the Employment Status of an Employee in Time Evaluation

Hi SAPGurus,
Does any one have an idea as to how to query an employee's Employment Status in Time Evaluation.
Looking forward to hear from you soon.
Regards,
Aslam

Arun,
Thanks, for your reply. I was looking for a way to query the Field: P0000-STAT2 ie: employment status in Time Evaluation. I am aware of the way I can query an employee's Time management status ie: P0007-ZTERF. Would be great if you know a way to query it in Time Evaluation.
Thanks Again.
Regards,
Aslam

How to generate a MSDS report from status GP (Generation possible) to RE

Hi EHS Goeroes,
I'm struggling with the Generation of the MSDS. I have done the following procedure and settings:
a) Create MSDS report (CG42)
b) Edit Generation Variant (CG2B)
Settings:
(I have assigned my template to the Generation Variant)
Generate manual request automatically: marked
Change Marks: 0
Initial release status: RE (released)
Version requirement: unmarked
Set historical automatically: unmarked
c) EHS > Specification Workbench > Report from Template (to test the design - display is correct and all phrases can be found)
d) EHS > Specification Workbench > Create new report
(report has been created succesfully and appears in Report Management).
e) EHS > Specification Workbench > Report Management:
MSDS_29 Material Safety Data Sheet for China World
Chinese Not Relevant Generation Poss. => generation possible.
Feedback affter clicking on Accept: You tried to carry out action 'Accept' on a report with status GP. However, this action is not allowed for reports with this status.
Feedback after clicking on Generate: You tried to carry out action 'Generate' on a report with status GP. However, this action is not allowed for reports with this status.
d) SE38 I have no jobs scheduled yet, so I run the following two programs to start the worklist manually, RC1AVGE1 and RC1AVGE2.
RC1AVGE1 - gave allot of feedback information regarding to changes and so on (first time I run it).
RC1AVGE2 - feedback: EHS: 'Worklist Generation for Reports - Selection for Check. - 0 reports to be checked were found'
From my understanding program RC1AVGE2 - should generate the MSDS.
e) WWI - monitor display (CG5Z):
100 @03\QNo background processes in client@ 5 SBR WWI-00000000000000000002 FREE RMDERKS
110 @03\QNo background processes in client@ 5 SBR WWI-00000000000000000063 FREE A132645
xxx SV001 @5B\QWWI server is active@ @02\QNo background processes on WWI server@
xxx SV003 @5C\QWWI server is inactive@ @02\QNo background processes on WWI server@
I checked if I had any jobs running in the background or has been finished, but it seems like it goes wrong here, the system does not generate a job for the generation of the MSDS_29. To be able to get the status of MSDS_29 to RE (Released).
Does anybody has an idea what I do wrong, or which settings might be incorrect? Futhermore, what are the further steps to issue the report in the SD module - report shipping?
Help is much appreciated!
Roy Derks

Hi Roy,
Check and activate the QWWI server for the second job wwi - 110. Try once to generate the MSDS.
I will revert back if i get information.
regards,
mahesh.

Layoff Employment Status

Hello All
I'm wondering if anyone can help with creating a new employment status for laid off employees. Instead of terminating an employee we would like to put them on layoff status for up to 6 months before finally terminating them. I see in table V_T529U how to add a new status but I was wondering what else needs to be done. We want them to part of this other status so they won't be counted in our headcount etc report. Inactive and actives are counted so we can't make them inactive. If you make them withdrawn then they have to go through the rehire process. Any help would be apprecaited.
Ken
Edited by: Ken Berman on Sep 23, 2009 8:06 PM

Hi Ken,
SAP does not recommend creating new employment status. It does recommend to use customer specific status. You can consider the following solution.
1. Create a layoff action with employment status "withdrawn" and customer specific status "6 months".
2. Create a new reason "Return from layoff" for rehire action.
3. This makes it easy for reporting/querying too.
Donnie

How can we see status of all Requests at a time using any tables?

How can we see status of all Requests at a time in the Info cube or ODS using any tables? what I am facing was while I run a Process Chain in some data targets red requests remains and due to this all other requests doesnot available for reporting.
Now is there any T-Code or Table to view all requests in a single shot.
Thanks in advance,
Raj

Hi Go for RSMONICDP give timestamp and u'll have it.
Please assign points if useful
Edited by: Aadil on Jan 21, 2008 7:43 AM

How to get system status and user status of service order

Hi,
I want to show user status and system status for service order in my report and i am using CRM_ORDER_READ function module to read the status, but it is returning lot of status records, could anyone please suggest how to get the system status and user status for service order.
I did not find any clue for how to get user status, i can see the user status when i open the transaction using CRMD_ORDER.
Regards,
Kamesh Bathla

Hi,
Go to CRM_JEST table give your service order guid and get the status, pass this status into TJ02. You will get the status of your order.
Regards
Srinu

How to make the status of a sales order complete of which PART DELIVERY

How to make the status of a sales order complete of which PARTIAL DELIVERY has already done. (Assigning rejection status not accepted)

Hi Gyana
There is no document with me. But I can confidently say that because I am using this functionality.
In my case I have created a Order Reason as "Short Closed". once you short close this order only the balance quantity gets rejected (provided you have already made previous delivery and PGI).
Try it in one of your test clients if you have. Once it is short Closed it wont also show in the orders due for processing in Production.
Also you can generate reports based on this if your customer wants to know how many order he has short closed, qty of item short closed etc.
Try it.
Rgds
Sunil

CPH Reports for Status Attribute.

Using Central performance History (RZ23n), is it possible to create reports for Status attributes?
Eg: I want to create for number of abap dumps, dead locks for each day.
As per documentation it says we can create for performance values and we are able to create CPH reports for R3Dialog Response time...
http://help.sap.com/saphelp_nw70/helpdata/en/c2/49773dd1210968e10000000a114084/content.htm
Any help or ideas are appreciated.
Thanks,
Venkat.

Thank you Shyam for so prompt reply,
We are using the same report. But its bit uneasy to go to change document of each and every ticket. Also in this report we could not find how much days the notification lay in New status or in In-process status. We require somewhat in following format.
Ticket number     New           Customer action     In-process
000001          1Day          1.3 Days          1 Day
000002          1.3 Days                           2.3 Days           1 Day
000003          3 Days          3.4 Days          1 Day
We are not bothered about days, week or hours etc. The purpose is to indentify how much time every ticket took stage wise. May be through ABAP this possible but we are looking for standard reports.
Thanks
Anand Rao

How to find system status for production orders?

How to find system status for production orders?
looked into table AUFK, AFKO and AFVC but none of these tables, carry
system status as part of the fields(STTXT)
I tried to filter in COOIS, but not much help
Able to find system status information in COHV,Is there any other way where
I can find system status information for production orders
Kindly guide

Hi,
Look into table, JEST, JSTO, AFPO & AFKO. CAUFV filed OBJNR, TJ02T filed ISTAT.
But, it is very difficult to combine the details like Order and System status.
Take the help of your ABAPer to generate Report for you.
Regards,
Siva

How to update resource status to productive when SFC start

Hello,
When SFC X starts at resource A, how can we make status of A to Productive automatically?
I've heard that the operator starts some work. Then, the resource becomes productive.
But I can't do that. Is there any setting or operation?
Best Regards,
Takahiro Uesugi

Takahiro,
Not sure if I understand your question - so if the info below does not answer it, please specify the request with more details.
Status of Resource is defined in Resource Maintenance, "Status" field. If Stutus = Productive and no SFCs are in work at the Resource, then all time is recorded against Statndby column of Resource Utilization Summary Report. As soon as any SFC is started at the Resource, the time is tracked as Productive. If the status is changed to any other value, then no matter if there is active SFC or not - the time will be tracked against the corresponding column in Resource Utilization Summary Report.
Regards,
Sergiy

How to report Employment status?

Similar Messages

Maybe you are looking for