Profit center assistance requested

We originally set up cost center 957 pointed to profit center 956. On May 28, we changed it to point to profit center 957. The problem is that the original costs posted to cost center 957 are updated to profit center 956.
How we can fix the history for this year?
Regards,
Murali

Hi,
The changes to the cost center are prospective in nature and will not affect the document already posted.
For already posted document, you have two options:-
1. to reverse the document and repost again
Or
2. To make manual repost in profit center accounting. (9KE0)
Regards,
SDNer

Similar Messages

How to change Profit Center

Dear PS Gurus,
Kindly help me out on this.
My Query:-
I am trying to create a PO using the T-code ME58. When i am selecting the PR and adopting it i get a message as "Profit Center was set to 9999". However i want to post the data to profit center 1300.To do so the system is asking me to to assign the PSG, cost center or other object to that profit center as well.
Diagnosis by the System
You entered profit center 1300 or transferred it from a previous transaction, such as material receipt from an external order. However, the system derived the profit center 9999 from the account assignments.
Kindluy suggest as to where i should go and change the profit center so that i dont get the error message while creating the PO.
Points will be rewarded.
Regards,
Gokul

Dear NAG,
As suggested i checked the Proift Center in t-code OKB9. I found the details as follows:
CoCd - 1000 (IDES AG)
Profit Center - 9000 (IDES Portugal)
Cost Center - This field is blank
Cost Element - 800000
I checked the profit center in the material master also and found that the profit center 1300 is assigned, which is fine. Also i checked the profit center in my project. There too the same profit center has been assigned.
I changed the profit center from 9000 to 1300 in t-code OKB9, and tried making the PO.But still i am getting the same error.I have checked the entire list of profit centers assigned to CoCd 1000 in t-code OKB9 but nowhere i could find the profit center 9999 assigned. I am confused as to from where the system i picking up this profit center (9999). When i checked the details of the profit center 9999 it was found that it is a Dummy profit center but i dont know where it is assigned and from where the system is picking this Profit center.
Request you/anyone to knidly help me out in solving this issue. For your information i am trying this example in IDES.
Please help me out.
Thanks & BEst Regards,
Gokul

Picking Dummy Profit center in GL simulation

Hi,
We are using ECC 6.0 and New GL is activated.
My user has a problem booking outgoing manual payments to vendor customer accounts when there is no invoice. Profit center is obligatory while booking the payment. But even after selecting the proper profit center and simulating the GL , system shows Dummy profit center.
Requesting to help out.
Regards,
makrand

1st pass
Vendor A/c Dr
to Bank Clearing Cr.
In this bank clearing will inherit profit center from the vendor you are clearing.
Then you pass
Bank Clearing Dr
To Bank Cr. In this bank will inherit profit center from bank clearing account. Hope in second entry you are posting as well as clearing the bank clearing account.
Also check
SPRO > Financial Accounting > General Ledger Accounting > Business Transaction > Document Splitting > Activate Document Splitting
Make sure that "inheritance" is checked.

Transport request activation for Cost Center/profit Center

Warm Greetings
Which fields i need to activate to get transport request for the below question ?
1.Cost center/profit center
2.Cost center group/Profit center group
Your responce/comment will help me to know how to process,
Regards
Shamul heq
Edited by: shamulheq on Feb 14, 2010 12:08 PM

Hi Shamul,
Please try the following transactions;
1. Cost center / Cost center group etc
Transaction: OKE6
IMG menu: Controlling > General Controlling > Production Start-up Preparation > Transport Settings for Master Data
2. Profit center / Profit center group etc
Transaction: 0KEQ
IMG menu: Controlling > Profit Center Accounting > Tools > Transport Customizing Settings > Transport Master Data

Profit Center in Credit memo request of Rebate agreement

Hi all,
i have created a material rebate agreement. then i have created a sales order. at this moment, it is picking up the profit center in the sales order.
now when i execute the material for settlement, a credit memo request is automatically created by the system in which i cld not see any profit center. But when i give the profit center manually, system is accepting it. But i want the profit center to be determined automatically when i release the material for settlement( credit memo request)
in short: from where the system will determine the profit center.and why the systme is picking up the profit center in sales order and why not in credit memo request.
Thanks in advance.
Anil.

Maintain the Profit Center in Material Master in Sales General Palnat Data. From here it will be captured in Credit Memo Request & also be carried further. Incase you are making use of WBS element & profit center is maintained in Project, then the profit center of Project will supersede from the profit center of Material Master.
Rwegards,
Rajesh Banka
Reward points if helpful.

The system is auto population partner profit center even when not provided

Hi experts,
While posting FB01,The system is auto population partner profit center even when not provided in the entry.Requested to you could you please assist us as soon as possbile.
Thanks & Best regards
Sreenivas

Will you please let me know where you get this field partner profit center. In my screen for FB01, I do not see any such field.
Sangram

Error in Creation of Profit Center

Hi Experts,
When I am trying to activate Dummy Profit Center I am getting this error
"A profit center scenario is active in new General Ledger Accounting
Message no. FAGL_LEDGER_CUST155".
anyone pl assist me reg this..
Thanks in advance,
Regards,
Balaji Bhonsle

Please, follow this link:
http://help.sap.com/saphelp_erp60_sp/helpdata/en/47/fc23f9a0af6673e10000000a42189c/frameset.htm

Cost Center assign Profit Center Issues

Hi Controlling Expert,
i have one issues regarding, Cost Center assign to Profit Center
wht happened , we have made MIS Report Thru Report Painter KE80, we have map based on   Primary Cost Element, at the time of Business Transaction, we have capture the Finance Cost center i.e FI000, Marketing Cost center i.e MK000 , HR Cost Center i,e HR000 and assign the same cost center FI000 to Profit Center i.e FI000 also same name, respectively. in MIS report there is two Head i.e Sustaining Cost and Development Cost ,where we have to capture only Cost center for Sustaining Cost related to display i.e FI000, MK000 and HR000. KE80 report belongs to Profit Center wise you can see the Report. But same FI000, MK000 and HR000 also updated related with business transaction and capture above cost center like in depreciation GL Amount 1000 cost center FI000 and sustaining cost also updated the same amount 1000 because we have assign FI000, i.e wrong . last 3 months post the amount now wht should I do for not updated sustaining cost, as I understand , should be delete sustaining Cost as well Development, and later on we can take report from KSB1 for FI000, MK000 and HR000, for management purpose, so if I cannot assign profit center FI000 to Cost Center .kindly correct me whether ryt or wrong. Coz Fianance, HR cost and marketing is only cost center. not suppose to assigh profit center, in this case how Profit Center removed from Cost center. kindly let me knw, or give me other option.
wen we see the report same Profit Center showing two times along with amount i.e wrong coz of Sustaining Cost we have assign Profit Center
in this report particulars are Below
Revenue : Relevant GL ( At time of Business Transaction we have captured the Relevant Profit Center i.e Finished Product i.e R100: RA Tube
and RA Tube R100 assign with same Cost Center R100.
B.Material Cost : Relevant Primary Cost Element
Manpower      : same like Above
2.Energy            : same like Above
3.Consumption   : same Like Above
Conversion Cost (1+2+3)
Sustaining Cost   : Here we have given Profit Center i.e FI000, MK000 and HR000 these profit center assign
Development Cost : Here we have given profit Cente EN000
Profit      (A-B-C-D-E-F)
G.Depreciation : Relevant Primary Primary Cost Element
Financing Cost : Relevant Primary Cost Element
I. Other Income/Loss : Relevant Primary Cost Element
PBT : (F-G-H-I)
Kind regards
Pranav Kr. Gupta
SAP FICO Consultant.

Hi Pranav
You are logging same issue twice. I didnt see any difference in the two threads though.
If its the same issue, request you not to repeat this in future.
KE80 report two times value effected
Regards
Mustafa

Profit center accounting totals records report 2KEE:

Hi,
When I am executing Profit center accounting totals records report 2KEE for a specific selection as below,
Record type: 0
Version: 0
Controlling area:
Company code:
Posting period :1
Fiscal year:2007
Profit center: 1000dummy
Account:
After report is generated and if drill down further, line items total is not matching with the report page, breakup gives different values but not the report value.
I tried report even after implementing OSS 892779 and 952263 but the result is same. I am using 4.7
Request your help in this.
Regards,
Lakshmana Rao

Dear Eugene,
What do you mean? What is the report?

Profit Center wise balance sheet and Profit and Loss account

Hi Experts,
I will explain my scenario
The is cleint having Head Office for handling procurement of goods for all branches(8) and the physical delivery happens for goods at the requested branch and GR and IR also makin at the branch level.
And we are treated each branch as profit center apart from HO(profit center).But the vendor payment should be happen from HO(prfoit center) so and they are not using automatic payment programme.
My question is
1.While doing the vendor (Branch)payment from Cash/Bank GL (HO) how the balances will be tallied ?
2.If I am using the document splitting and zero balance document clearing will it tally at the profit center level ?
3.At the period end if I will do the 1KEK T Code to transfer the payables to the profit center which profit center system will take for posting ?
Please advice me in this and I will give good points with correct answer.

Hi Edukondalu Garu,
Please find answers to your questions below:
1.While doing the vendor (Branch)payment from Cash/Bank GL (HO) how the balances will be tallied ?
Answer: The Profit Center balances will get automatically tallied due to document splitting and Zero balance account being defined properly. The automatically identifies it
2.If I am using the document splitting and zero balance document clearing will it tally at the profit center level ?
Answer: Yes that is the main criteria to get full fledged Balance sheet and P&L account by Profit Center
3.At the period end if I will do the 1KEK T Code to transfer the payables to the profit center which profit center system will take for posting ?
Anwer: With Document Splitting, you don't have to do the period end transaction in PC to transfer the account payables, accouts receivables and fixed assets. The transfer is online and real time basis.
I hope i answered all your questions.
Please feel free to get in touch with me if you need futher clarifications
Best Regards
Surya

Query on GR/IR Clearing - does Not post to Profit Center.

Pl refer the business scenario given below.
Request your help on the following.
Situation: For a given Purchase Order, GR (MIGO) is done. But IR (MIRO) is not yet done.
The FI entries are :
1. Dr. Stock valuation a/c
Cr. Gr/ir clearing a/c
2. At the period end, when we do the GR/IR clearing (F.19) (prog : RFWERE00) for such a PO system will posting the following entry:
Dr. Gr/ir -recd not invoiced
Cr. Delivered but not Invoiced a/c
The second entry is reversed at the beginning of next month.
Issue:
the first entry is posted with a Profit Center.
While the second entry carries the dummy PC (maintained in 3KEH)
requirement:
The second entry should carry the PC of the original entry.
Thanks
Jai

Hi Ramesh.
Thanks for the response
1. Why doesn't this happen automatically? (is it a standard sap behaviour not to post on the Profit Center of the Original entry)
2. I had checked substitutions. But this seems to be for Sales Orders rather than for GR /IR. Moreover we have over 100 Profit centers and Business areas..So this seems impractical at this point in time.
Pl give your comments/inputs.
Regards,
Jai

Profit center at GR IR Clearing Account - MIGO (Account Assignment Q)

Dear all,
We are implementing SAP into a Real estate business client and based on requirements from the Finance we have agreed to have profit centre level balance sheet for each of tower
Hence lets take an example
There is a project with PC1 (Common Costs) and 3 buildings (PC2, PC3 and PC4 for each building). We have one plant for one project and hence in material master plant is given as PC1.
If we procure Raw materials specific to each building (account assignment Q) with WBS element of tower one and PC2 defined in account assignment of WBS master data, below is the mentioned entry which I am getting
Inventory A/c Dr. PC2
Clearing A/c Dr. PC1
To GR IR Clearing PC1
To Clearing A/c PC2
Profit center document splitting and zero balancing is active in my scenario
My issue is that GR IR Clearing should not take profit center from MM master, however it should override profit center of WBS element if procurement is done with account assignment Q
Request you to give your thoughts
Thanks
Nishu

Hi Kavita,
The purpose of creating profit center for each tower was to identify vendors / customers balance from Finance through profit center reporting
As mentioned in above scenario it does not makes sense to have inventory at tower profit center and GR / IR or vendor at HO Profit center
Any method available with which we can bypass material master profit center through document splitting or account assignment setting in material master.
My MM team is also working on it and they are not keen to have one plant for one profit center. Hence we are looking to find a workaround for the above situation
Thanks
Nishu

Calculation of customer payment performance   by profit center

I want to calculate customer payment performance by profit center it is a report.
Caluation clue.
<b>Performance is a measure of when the payment was made versus the due date calculated by the payment terms</b>.
i want the logic to be included in the following code.
REPORT
TABLE DECLARATIONS
TABLES: BFOD_A,         "FI subsequent BA/PC adjustment: Customer items
        BSID,           "Open Items
        BSAD,           "Cleared Items
        BKPF,           "Docuemnt Header
        KNA1,           "Customer Master
        CEPCT,          "Texts for Profit Center Master Data
        CEPC,           "Profit center master data table
        SKB1,           "G/L account master
        VBFA,           "Sales Document Flow
        VBAK.           "Sales Document: Header Data
CONTROLS: TABAGING TYPE TABLEVIEW USING SCREEN 9000.
FIELD-SYMBOLS: <COLUMN>.
Internal tables followed by types
TYPES: BEGIN OF T_TOTAL,
         WAERS LIKE COEP-TWAER,
         DAYS01 LIKE COEP-WTGBTR,
         DAYS02 LIKE COEP-WTGBTR,
         DAYS03 LIKE COEP-WTGBTR,
         DAYS04 LIKE COEP-WTGBTR,
         DAYS05 LIKE COEP-WTGBTR,
         TOTAL LIKE COEP-WTGBTR,
       END OF T_TOTAL.
DATA: V_DISVARIANT       TYPE DISVARIANT,
      REF_CUSTOM         TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      REF_ALV_ZRPT       TYPE REF TO CL_GUI_ALV_GRID.
DATA: V_SAVE(1)    TYPE C,
      V_DEFAULT(1) TYPE C,
      V_VARIANT    TYPE DISVARIANT,
      V_SORT       TYPE LVC_S_SORT,
      V_LAYOUT     TYPE LVC_S_LAYO,
      V_SAVE_TABIX LIKE SY-TABIX,
      V_SAVE_TIME LIKE SY-UZEIT,
      V_ALV_FIELDCAT TYPE LVC_S_FCAT,
      V_SAVE_INDEX LIKE SY-TABIX,
      V_ROW        TYPE LVC_S_ROW,
      V_ROWS       TYPE LINE OF LVC_T_ROW.
DATA: BEGIN OF V_HDR,
        CURKY(9) TYPE C,
        CURR(20) TYPE C,
        COL1(20) TYPE C,
        COL2(20) TYPE C,
        COL3(20) TYPE C,
        COL4(20) TYPE C,
        TOTAL(20) TYPE C,
      END OF V_HDR.
DATA: BEGIN OF V_FIELD,
        NAME(15) TYPE C,
        VALUE(17) TYPE C,
      END OF V_FIELD.
DATA: BEGIN OF I_BFOD_A OCCURS 0,
        PRCTR LIKE BFOD_A-PRCTR,
        KUNNR LIKE BFOD_A-KUNNR,
        BUKRS LIKE BFOD_A-BUKRS,
        GJAHR LIKE BFOD_A-GJAHR,
        BELNR LIKE BFOD_A-BELNR,
        BUZEI LIKE BFOD_A-BUZEI,
        AUGDT LIKE BFOD_A-AUGDT,
        HKONT LIKE BFOD_A-HKONT,
        BUDAT LIKE BFOD_A-BUDAT,
        SHKZG LIKE BFOD_A-SHKZG,
        DMBTR LIKE BFOD_A-DMBTR,
        DMBE2 LIKE BFOD_A-DMBE2,
      END OF I_BFOD_A.
DATA: I_SET_VALUES   LIKE SETVALUES OCCURS 0 WITH HEADER LINE,
      I_SORT         TYPE LVC_T_SORT,
      I_ALV_FIELDCAT TYPE LVC_T_FCAT,
      I_PRCTR_COCD   TYPE FCINPCA001 OCCURS 0 WITH HEADER LINE,
      I_BFODA_KUNNR LIKE I_BFOD_A OCCURS 0 WITH HEADER LINE,
Begin of changes for DEVK909110
     I_REPORT       TYPE ZFR0ARPR_S1 OCCURS 0 WITH HEADER LINE,
      I_REPORT       TYPE ZPSS_ARBYPC OCCURS 0 WITH HEADER LINE,
End of changes for DEVK909110
      I_FAEDE        LIKE FAEDE,
      I_TOTAL        TYPE T_TOTAL OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF I_BKPF OCCURS 0,
        BUKRS LIKE BKPF-BUKRS,
        BELNR LIKE BKPF-BELNR,
        GJAHR LIKE BKPF-GJAHR,
        BKTXT LIKE BKPF-BKTXT,
        XBLNR LIKE BKPF-XBLNR,
        HWAER LIKE BKPF-HWAER,
        HWAE2 LIKE BKPF-HWAE2,
      END OF I_BKPF.
*... combine BSAD and BSID
DATA: BEGIN OF I_BSYD OCCURS 0,
        KUNNR LIKE BSID-KUNNR,
        BUKRS LIKE BSID-BUKRS,
        GJAHR LIKE BSID-GJAHR,
        BELNR LIKE BSID-BELNR,
        BUZEI LIKE BSID-BUZEI,
        AUGDT LIKE BSID-AUGDT,
        BLDAT LIKE BSID-BLDAT,
        BUDAT LIKE BSID-BUDAT,
        HKONT LIKE BSID-HKONT,
        WAERS LIKE BSID-WAERS,
        ZFBDT LIKE BSID-ZFBDT,
        ZBD1T LIKE BSID-ZBD1T,
        ZBD2T LIKE BSID-ZBD2T,
        ZBD3T LIKE BSID-ZBD3T,
        XBLNR LIKE BSID-XBLNR,
        REBZG LIKE BSID-REBZG,
        SHKZG LIKE BSID-SHKZG,
        DMBTR LIKE BSID-DMBTR,
        WRBTR LIKE BSID-WRBTR,
      END OF I_BSYD.
DATA: BEGIN OF I_CEPC OCCURS 0,
         PRCTR LIKE CEPC-PRCTR,
         KHINR LIKE CEPC-KHINR,
      END OF I_CEPC.
DATA: BEGIN OF I_CEPCT OCCURS 0,
         PRCTR LIKE CEPCT-PRCTR,
         MCTXT LIKE CEPCT-MCTXT,
      END OF I_CEPCT.
DATA: BEGIN OF I_PRCTR OCCURS 0,
        PRCTR LIKE BFOD_A-PRCTR,
      END OF I_PRCTR.
DATA: BEGIN OF I_KNA1 OCCURS 0,
         KUNNR LIKE KNA1-KUNNR,
         NAME1 LIKE KNA1-NAME1,
      END OF I_KNA1.
Working Variables Declarations
*... accumulators
DATA: V_BFOD_TXNAMT LIKE BSID-WRBTR,    "transaction currency amt
      V_FRCURR      LIKE TCURR-FCURR,   "local currency
      V_TOCURR      LIKE TCURR-FCURR,   "local currency
      V_LCURR       LIKE T001-WAERS,    "local currency
      V_CUSTTOTUSD LIKE BFOD_A-DMBE2, "customer total grp curr
      V_TOTAL       LIKE BPPE-WTP03,    "days total grp curr
      V_CURRENT     LIKE BPPE-WTP03,    "days current grp curr
      V_TOTAL_USD   LIKE BPPE-WTP03,    "days total grp curr
      V_TOTAL_ROW   LIKE BPPE-WTP03.    "total of local curr/row
DATA: V_PRCTR          LIKE CEPC-PRCTR,   "profit center
      V_SUBRC          LIKE SY-SUBRC,
      V_FLAG           TYPE I,
      V_DPAST          TYPE I,     "past due days working
      V_GRAND          TYPE C,
      V_DIFF_COLOR     TYPE C,
      V_MSG(50)        TYPE C,
      V_SAVE_PCFN(128) TYPE C,
      V_EXTENSION(4)   TYPE C,
      V_PREV_PRCTR     LIKE CEPC-PRCTR,
      V_POS            LIKE SY-FDPOS,
      V_SAVE_BUKRS     LIKE BFOD_A-BUKRS,
      V_SAVE_KHINR     LIKE CEPC-KHINR,
      V_PERC           TYPE P DECIMALS 10,
      V_ZBD1T          LIKE BSID-ZBD1T,
      V_ZFBDT          LIKE BSID-ZFBDT,
      V_GROUP_CLASS    LIKE RGSBS-CLASS,
      V_GROUP_NAME     LIKE RGSBS-SETNR,
      V_GROUP_TITLE    LIKE RGSBS-TITLE,
      V_SETID          LIKE SETHIER-SETID,
      V_FILETYPE       LIKE RLGRAP-FILETYPE VALUE 'DAT',
      V_CNT            LIKE SY-TABIX,
      V_PREV_BELNR     LIKE BSID-BELNR,
      V_REPORT1        LIKE I_REPORT,
      V_REPORT         LIKE I_REPORT,
      V_TABIX          LIKE SY-TABIX.
Constants
CONSTANTS:
      C_0H(2)     TYPE C VALUE '0H',
      C_0106(4)   TYPE C VALUE '0106',
      C_SPACE(11) TYPE C VALUE '          ',
      C_USD(3)    TYPE C VALUE 'USD',
      C_KBRC      LIKE CEPC-KOKRS VALUE 'KBRC',
      C_TXT(4)    TYPE C VALUE '.txt',
      C_XLS(4)    TYPE C VALUE '.xls',
      C_RTF(4)    TYPE C VALUE '.rtf',
      C_PERIOD(1) TYPE C VALUE '.',
      C_TODATE    LIKE CEPC-DATBI VALUE '99991231'.
RANGES: R_KUNNR FOR KNA1-KUNNR.         "Customer
Selection Screen Parameters and Select-options
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS:     P_KHINR LIKE CEPC-KHINR.
SELECT-OPTIONS: S_PRCTR FOR CEPC-PRCTR,
                S_KUNNR FOR KNA1-KUNNR,
                S_BUKRS FOR BKPF-BUKRS,
                S_HKONT FOR SKB1-SAKNR.
PARAMETERS:     P_BUDAT LIKE BFOD_A-BUDAT OBLIGATORY.
SELECTION-SCREEN ULINE.
SELECT-OPTIONS: S_BELNR FOR BFOD_A-BELNR,
                S_AUART FOR VBAK-AUART,
                S_VTWEG FOR VBAK-VTWEG,
                S_VBTYP FOR VBFA-VBTYP_V.
SELECTION-SCREEN ULINE.
PARAMETERS: P_AGEDY TYPE ZZAGEMULT DEFAULT '30' OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME.
PARAMETERS: P_DSVAR LIKE DISVARIANT-VARIANT.
SELECTION-SCREEN END OF BLOCK B2.
class lcl_event_receiver: local class to handle event DOUBLE_CLICK
Definition:
CLASS LCL_EVENT_RECEIVER DEFINITION.
PUBLIC SECTION.
    METHODS:
    MTH_PRINT_TOP_OF_PAGE
        FOR EVENT PRINT_TOP_OF_PAGE OF CL_GUI_ALV_GRID.
    METHODS:
    MTH_PRINT_TOP_OF_LIST
        FOR EVENT PRINT_TOP_OF_LIST OF CL_GUI_ALV_GRID.
PRIVATE SECTION.
ENDCLASS.                    "lcl_event_receiver DEFINITION
class lcl_event_receiver: local class to handle event DOUBLE_CLICK
Implementation:
CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.
METHOD MTH_PRINT_TOP_OF_PAGE.
    CALL FUNCTION 'Z_CA_STD_HEADER'
      EXPORTING
        HEADING    = SY-TITLE
        P_REPID    = SY-CPROG
        LINE_WIDTH = SY-LINSZ.
ENDMETHOD.                    "MTH_PRINT_TOP_OF_PAGE
METHOD MTH_PRINT_TOP_OF_LIST.
    CALL FUNCTION 'Z_CA_STD_HEADER'
      EXPORTING
        HEADING    = SY-TITLE
        P_REPID    = SY-CPROG
        LINE_WIDTH = SY-LINSZ.
    CALL FUNCTION 'Z_CA_PRINT_SELECTION_OPTIONS'
      EXPORTING
        P_PGMN = SY-CPROG
        P_SKIP = 'X'
        P_NOTOP = 'X'.
    NEW-PAGE.
ENDMETHOD.                    "MTH_PRINT_TOP_OF_LIST
ENDCLASS.                    "LCL_EVENT_RECEIVER IMPLEMENTATION
DATA: REF_EVENT_RECEIVER TYPE REF TO LCL_EVENT_RECEIVER.
Selection Screen Prompt values
At Selection Screen
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_DSVAR.
DATA: LS_DISPLAY_VARIANT TYPE DISVARIANT.
Get the display variant
V_DISVARIANT-REPORT = SY-CPROG.
V_DISVARIANT-VARIANT = P_DSVAR.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      IS_VARIANT = V_DISVARIANT
      I_SAVE     = 'A'
    IMPORTING
      ES_VARIANT = LS_DISPLAY_VARIANT
    EXCEPTIONS
      OTHERS     = 3.
Load results to parameter
IF SY-SUBRC = 0 AND NOT LS_DISPLAY_VARIANT IS INITIAL.
    P_DSVAR = LS_DISPLAY_VARIANT-VARIANT.
ENDIF.
*...performed when looking for values in fields
performs the drop down selection list
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_KHINR.     "Profit center grp
PERFORM F_GET_S_KHINR.
Selection Screen validations
AT SELECTION-SCREEN.
IF P_KHINR IS INITIAL.
    IF S_PRCTR[] IS INITIAL.
      IF S_BUKRS[] IS INITIAL.
        MESSAGE E000 WITH TEXT-300 TEXT-302.
      ENDIF.
    ENDIF.
ELSE.
    IF S_PRCTR[] IS INITIAL.
      PERFORM F_VALIDATE_KHINR.
    ELSE.
*.. Error msg: Please enter either a Profit Center Group or a
             profit center, but not both
      MESSAGE E000 WITH TEXT-300 TEXT-301.
      EXIT.
    ENDIF.
ENDIF.
IF NOT S_AUART[] IS INITIAL.
    MESSAGE E000 WITH TEXT-303.
ENDIF.
IF NOT S_VTWEG[] IS INITIAL.
    MESSAGE E000 WITH TEXT-304.
ENDIF.
   Event AT LINE-SELECTION
AT LINE-SELECTION.
CHECK SY-LSIND LE 1.
CHECK NOT I_REPORT-BELNR IS INITIAL.
SET PARAMETER ID 'BLN' FIELD I_REPORT-BELNR.
SET PARAMETER ID 'BUK' FIELD I_REPORT-BUKRS.
SET PARAMETER ID 'GJR' FIELD I_REPORT-GJAHR.
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
CLEAR: I_REPORT-BELNR, I_REPORT-BUKRS, I_REPORT-GJAHR.
INITIALIZATION
INITIALIZATION.
START OF MAIN PROCESSING
START-OF-SELECTION.
Check aging days multiplier
IF P_AGEDY LE 0.
    MESSAGE S000 WITH 'Aging Days Multiplier must be greater than zero'.
    EXIT.
ENDIF.
Populate the s_prctr from a profit center group
IF NOT I_SET_VALUES[] IS INITIAL.
    PERFORM F_POPULATE_PRCTR_FROM_PRCTRGRP.
ENDIF.
Build and validate prctr against cepc table
IF NOT S_PRCTR[] IS INITIAL.
    PERFORM F_BUILD_I_CEPC_TABLE.      "FILLS THE VALID PROFIT CTR TABLE
ENDIF.
Get base selections
PERFORM F_SELECT_DATA.               "BUILD REF INTERNAL TABLES
Get additional fields and build reporting structure
PERFORM F_BUILD_I_REPORT.            "BUILDS INTERNAL REPORTING TABLE
Generate ALV report
PERFORM F_WRITE_REPORT.              "WRITES i_report AND RUNS CALCS
END-OF-SELECTION.
FREE: I_BFOD_A, I_KNA1, I_CEPC, I_CEPCT, I_REPORT.
      Form F_DIS_MSG
FORM F_DIS_MSG USING VALUE(P_PERCENTAGE) VALUE(P_TEXT).
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      PERCENTAGE = P_PERCENTAGE
      TEXT       = P_TEXT
    EXCEPTIONS
      OTHERS     = 1.
ENDFORM.                               " F_DIS_MSG
      Form F_GET_S_KHINR
      Get prompt values for Profit Center Group
FORM F_GET_S_KHINR.
PERFORM F_DIS_MSG USING 100 'Get prompt values for Profit Ctr Group.'.
COMMIT WORK.
CALL FUNCTION 'K_GROUP_SELECT'
    EXPORTING
      BUTTONS            = 'X'
      CLASS              = '0H '
      CRUSER             = '*'
      FIELD_NAME         = 'RPRCTR'
      SEARCHFLD          = 'KBRC'
      SEARCHFLD_INPUT    = ' '
      SEARCHFLD_REQUIRED = 'X'
      SET                = '*'
      START_COLUMN       = 10
      START_ROW          = 5
      TABLE              = 'GLPCT'
      TYPELIST           = 'BS'
      UPDUSER            = '*'
    IMPORTING
      CLASS_NAME         = V_GROUP_CLASS
      SET_NAME           = V_GROUP_NAME
      SET_TITLE          = V_GROUP_TITLE
    EXCEPTIONS
      NO_SET_PICKED      = 1
      OTHERS             = 2.
IF SY-SUBRC = 0.
    P_KHINR = V_GROUP_NAME.
ENDIF.
ENDFORM.                               " F_GET_S_KHINR
      FORM F_VALIDATE_KHINR                                         *
FORM F_VALIDATE_KHINR.
PERFORM F_DIS_MSG USING 100 'Validate Profit Center group.'.
COMMIT WORK.
CLEAR I_SET_VALUES.
REFRESH I_SET_VALUES.
CONCATENATE C_0106 C_KBRC P_KHINR INTO V_SETID.
CONDENSE V_SETID.
CALL FUNCTION 'G_SET_TREE_IMPORT'
    EXPORTING
      CLIENT                    = SY-MANDT
      FIELDNAME                 = 'RPRCTR'
      LANGU                     = SY-LANGU
      SETID                     = V_SETID
      TABNAME                   = 'GLPCT'
      NO_TABLE_BUFFERING        = 'X'
    TABLES
      SET_VALUES                = I_SET_VALUES
    EXCEPTIONS
      SET_NOT_FOUND             = 1
      ILLEGAL_FIELD_REPLACEMENT = 2
      ILLEGAL_TABLE_REPLACEMENT = 3
      OTHERS                    = 4.
IF SY-SUBRC NE 0.
E: Unable to find Profit Center Group & - please modify selection
    MESSAGE E000 WITH TEXT-002 P_KHINR.
ENDIF.
IF I_SET_VALUES[] IS INITIAL.
    MESSAGE E000 WITH P_KHINR TEXT-039.
ENDIF.
ENDFORM.                               " F_VALIDATE_KHINR
      Form F_SELECT_DATA
FORM F_SELECT_DATA.
PERFORM F_DIS_MSG USING 100 'Retrieve info from SAP tables.'.
COMMIT WORK.
Build the BFOD_A internal table based on user selections
f i_cepc table is initial, it means derive all prctr under a co cd
IF S_PRCTR[] IS INITIAL.
    PERFORM F_RETRIEVE_BFODA_BY_COMPANY.
ELSE.
    PERFORM F_RETRIEVE_BFODA_BY_PRCTR.
ENDIF.
IF I_BFOD_A[] IS INITIAL.
*... No records fit selection criteria.
    MESSAGE E000 WITH TEXT-H20.
ENDIF.
Get the text for profit center
SELECT SPRAS PRCTR DATBI KOKRS MCTXT FROM CEPCT
             INTO CORRESPONDING FIELDS OF TABLE I_CEPCT
              FOR ALL ENTRIES IN I_CEPC
            WHERE SPRAS = SY-LANGU
              AND PRCTR = I_CEPC-PRCTR.
Build an internal table of unique bfod keys for bsid and bsad
I_BFODA_KUNNR[] = I_BFOD_A[].
SORT I_BFODA_KUNNR BY KUNNR BUKRS GJAHR BELNR BUZEI.
DELETE ADJACENT DUPLICATES FROM I_BFODA_KUNNR COMPARING
     KUNNR BUKRS GJAHR BELNR BUZEI.
Build BSID Internal table
SELECT MANDT BUKRS KUNNR UMSKS UMSKZ AUGDT AUGBL ZUONR GJAHR BELNR
         BUZEI BUDAT HKONT BLDAT WAERS REBZG XBLNR SHKZG DMBTR
         WRBTR ZFBDT ZBD1T ZBD2T ZBD3T
            FROM BSID INTO CORRESPONDING FIELDS OF TABLE I_BSYD
             FOR ALL ENTRIES IN I_BFODA_KUNNR
           WHERE KUNNR EQ I_BFODA_KUNNR-KUNNR
             AND BUKRS EQ I_BFODA_KUNNR-BUKRS
             AND GJAHR EQ I_BFODA_KUNNR-GJAHR
             AND BELNR EQ I_BFODA_KUNNR-BELNR
             AND BUZEI EQ I_BFODA_KUNNR-BUZEI.
Build BSAD internal table
SELECT MANDT BUKRS KUNNR UMSKS UMSKZ AUGDT AUGBL ZUONR GJAHR BELNR
      BUZEI HKONT BUDAT BLDAT WAERS REBZG XBLNR SHKZG DMBTR WRBTR ZFBDT
      ZBD1T ZBD2T ZBD3T
         FROM BSAD APPENDING CORRESPONDING FIELDS OF TABLE I_BSYD
          FOR ALL ENTRIES IN I_BFODA_KUNNR
        WHERE KUNNR EQ I_BFODA_KUNNR-KUNNR
          AND BUKRS EQ I_BFODA_KUNNR-BUKRS
          AND AUGDT GT P_BUDAT
          AND GJAHR EQ I_BFODA_KUNNR-GJAHR
          AND BELNR EQ I_BFODA_KUNNR-BELNR
          AND BUZEI EQ I_BFODA_KUNNR-BUZEI.
IF NOT I_BSYD[] IS INITIAL.
Remove records based on selection criteria
    DELETE I_BSYD WHERE
       NOT BUDAT LE P_BUDAT OR
       NOT HKONT IN S_HKONT.
ENDIF.
Acquire document headers
SELECT BUKRS BELNR GJAHR BKTXT XBLNR HWAER HWAE2 FROM BKPF
                INTO TABLE I_BKPF
                FOR ALL ENTRIES IN I_BSYD
                WHERE BUKRS EQ I_BSYD-BUKRS
                  AND BELNR EQ I_BSYD-BELNR
                  AND GJAHR EQ I_BSYD-GJAHR.
Sort document lines
SORT I_BSYD BY KUNNR BUKRS GJAHR BELNR BUZEI ASCENDING.
SORT I_BKPF BY BUKRS BELNR GJAHR ASCENDING.
Create table of unique customers
SORT I_BFODA_KUNNR BY KUNNR.
DELETE ADJACENT DUPLICATES FROM I_BFODA_KUNNR COMPARING KUNNR.
Build customer table
SELECT KUNNR NAME1 FROM KNA1
            INTO TABLE I_KNA1
             FOR ALL ENTRIES IN I_BFODA_KUNNR
           WHERE KUNNR EQ I_BFODA_KUNNR-KUNNR.
Free memory space
FREE I_BFODA_KUNNR.
ENDFORM.                               " F_SELECT_DATA
      Form F_BUILD_I_CEPC_TABLE
      build the i_cepc internal table that would populate the
      valid profit centers to processed.
FORM F_BUILD_I_CEPC_TABLE.
PERFORM F_DIS_MSG USING 100 'Build the Profit Center Ref Table.'.
COMMIT WORK.
Acquire CEPC table
IF I_PRCTR[] IS INITIAL.
    SORT S_PRCTR.
    SELECT PRCTR KHINR
      FROM CEPC
      INTO TABLE I_CEPC
      WHERE PRCTR IN S_PRCTR.
Sort table
    SORT I_CEPC BY PRCTR KHINR.
Remove duplicate values
    DELETE ADJACENT DUPLICATES FROM I_CEPC COMPARING PRCTR.
    I_PRCTR[] = I_CEPC[].
Sort table
    SORT I_PRCTR BY PRCTR.
ELSE.
Sort table
    SORT I_PRCTR BY PRCTR.
Acquire CEPC table
    SELECT PRCTR KHINR
      FROM CEPC
      INTO TABLE I_CEPC
      FOR ALL ENTRIES IN I_PRCTR
      WHERE PRCTR = I_PRCTR-PRCTR.
SOrt table
    SORT I_CEPC BY PRCTR KHINR.
ENDIF.
IF I_CEPC[] IS INITIAL.
    MESSAGE E000 WITH TEXT-006.
ENDIF.
ENDFORM.                               " F_BUILD_i_CEPC_TABLE
      Form F_BUILD_I_REPORT
      Build the A/R report internal table from bfod_a, bsid and bsad
      It is necessary to go to BSAD/BSID to get the document currency
      not present in bfod_a.
FORM F_BUILD_I_REPORT.
PERFORM F_DIS_MSG USING 100 'Build the report information.'.
COMMIT WORK.
Sort all internal tables, this is essential for later processing
SORT I_BFOD_A BY KUNNR BUKRS GJAHR BELNR BUZEI .
SORT I_BSYD BY KUNNR BUKRS GJAHR BELNR BUZEI.
SORT I_CEPC BY PRCTR KHINR.
LOOP AT I_BFOD_A.
New customer
    AT NEW KUNNR.
      READ TABLE I_KNA1 WITH KEY KUNNR = I_BFOD_A-KUNNR BINARY SEARCH.
      IF SY-SUBRC EQ 0.
        MOVE I_KNA1-NAME1 TO I_REPORT-NAME1.
      ENDIF.
    ENDAT.
Acquire header fields
    READ TABLE I_BKPF WITH KEY BUKRS = I_BFOD_A-BUKRS
                               BELNR = I_BFOD_A-BELNR
                               GJAHR = I_BFOD_A-GJAHR BINARY SEARCH.
    IF SY-SUBRC NE 0.
      CLEAR I_BKPF.
    ENDIF.
Build base record
    PERFORM F_MOVE_BASE_TO_REPORT.
Load profit center data
    IF P_KHINR IS INITIAL.
      IF V_PREV_PRCTR = I_BFOD_A-PRCTR.
        I_REPORT-KHINR = I_CEPC-KHINR.
      ELSE.
        READ TABLE I_CEPC WITH KEY PRCTR = I_BFOD_A-PRCTR BINARY SEARCH.
        IF SY-SUBRC = 0.
          I_REPORT-KHINR = I_CEPC-KHINR.
        ELSE.
          CLEAR I_REPORT-KHINR.
        ENDIF.
        V_PREV_PRCTR = I_BFOD_A-PRCTR.
      ENDIF.
    ELSE.
      I_REPORT-KHINR = P_KHINR.
    ENDIF.
Reverse signs
    IF I_REPORT-SHKZG = 'H'.
      I_REPORT-DMBTR = I_REPORT-DMBTR * -1.
      I_REPORT-DMBE2 = I_REPORT-DMBE2 * -1.
    ENDIF.
Additional details
    READ TABLE I_BSYD WITH KEY KUNNR = I_BFOD_A-KUNNR
                               BUKRS = I_BFOD_A-BUKRS
                               GJAHR = I_BFOD_A-GJAHR
                               BELNR = I_BFOD_A-BELNR
                               BUZEI = I_BFOD_A-BUZEI BINARY SEARCH.
    IF SY-SUBRC = 0.
      PERFORM F_FORMAT_I_REPORT_FR_BSYD.
      APPEND I_REPORT.
    ENDIF.
ENDLOOP.
ENDFORM.                               " F_BUILD_I_REPORT
      Form F_FORMAT_I_REPORT_FR_BSYD
Retrieve all the information needed for reporting from BSID.
If a document has a referencing invoice (REBZG), the payment terms
   and the baseline date to be used will come from the referencing
   invoice.
FORM F_FORMAT_I_REPORT_FR_BSYD.
*=> get the document currency amount from bsid
I_REPORT-BLDAT = I_BSYD-BLDAT.
I_REPORT-WAERS = I_BSYD-WAERS.
PERFORM F_CONVERT_CURRENCY_FR_2_AMTS USING I_REPORT-HWAER I_BSYD-WAERS
                                            I_BSYD-DMBTR   I_BSYD-WRBTR
                                                         I_BFOD_A-DMBTR
                                                 CHANGING V_BFOD_TXNAMT.
I_REPORT-WRBTR = V_BFOD_TXNAMT.
IF I_BSYD-SHKZG = 'H'.
    I_REPORT-WRBTR = I_REPORT-WRBTR * -1.
ENDIF.
V_ZBD1T = I_BSYD-ZBD1T.
V_ZFBDT = I_BSYD-ZFBDT.
*=> determine reference document (referencing invoice)
CLEAR I_REPORT-SORT.
CASE I_BSYD-REBZG.
    WHEN ' '.
      I_REPORT-SORT = I_BFOD_A-BELNR.
    WHEN 'V'.
      I_REPORT-SORT = I_BSYD-XBLNR.
    WHEN OTHERS.
      I_REPORT-SORT = I_BSYD-REBZG.
      PERFORM F_GET_DATEPAYTERM_FR_ORIGDOC.
ENDCASE.
CLEAR I_FAEDE.
I_FAEDE-SHKZG = I_BSYD-SHKZG.
I_FAEDE-KOART = 'D'.
I_FAEDE-ZFBDT = I_BSYD-ZFBDT.
I_FAEDE-ZBD1T = I_BSYD-ZBD1T.
I_FAEDE-ZBD2T = I_BSYD-ZBD2T.
I_FAEDE-ZBD3T = I_BSYD-ZBD3T.
I_FAEDE-REBZG = I_BSYD-REBZG.
I_FAEDE-BLDAT = I_BSYD-BLDAT.
CALL FUNCTION 'DETERMINE_DUE_DATE'
    EXPORTING
      I_FAEDE                    = I_FAEDE
    IMPORTING
      E_FAEDE                    = I_FAEDE
    EXCEPTIONS
      ACCOUNT_TYPE_NOT_SUPPORTED = 1
      OTHERS                     = 2.
V_DPAST = P_BUDAT - I_FAEDE-NETDT.
IF V_DPAST < 0.
    I_REPORT-DPAST = 0.
ELSE.
    MOVE V_DPAST TO I_REPORT-DPAST.
ENDIF.
I_REPORT-ZBD1T = V_ZBD1T.
I_REPORT-NETDT = I_FAEDE-NETDT.
Update totals
PERFORM F_BUILD_TOTALS.
ENDFORM.                               " F_FORMAT_I_REPORT_FR_BSYD
      Form F_GET_DATEPAYTERM_FR_ORIGDOC
FORM F_GET_DATEPAYTERM_FR_ORIGDOC.
In order to go back to the original document's payment terms and
baseline date, we neeed to resort bsid/bsad to a different sort
order b-coz only these 3 fields logically matched the orig doc
SORT I_BSYD BY KUNNR BUKRS BELNR.
READ TABLE I_BSYD WITH KEY KUNNR = I_BFOD_A-KUNNR
                             BUKRS = I_BFOD_A-BUKRS
                             BELNR = I_REPORT-SORT BINARY SEARCH.
IF SY-SUBRC = 0.
    V_ZBD1T = I_BSYD-ZBD1T.            "payment term
    V_ZFBDT = I_BSYD-ZFBDT.            "baseline due date
ENDIF.
SORT I_BSYD BY KUNNR BUKRS GJAHR BELNR BUZEI.
ENDFORM.                               " F_GET_DATEPAYTERM_FR_ORIGDOC
      Form F_WRITE_REPORT
      Write A/R report summarized by profit center.
      Report will be build by profit center and sum all customers
         then will sum past do for profit center and catagorized
         will also sum by project / wbs element.
FORM F_WRITE_REPORT.
SORT I_REPORT BY PRCTR KUNNR SORT BLDAT BELNR DPAST DESCENDING.
CALL SCREEN 9000.
ENDFORM.                               " F_WRITE_REPORT
      Form F_POPULATE_PRCTR_FROM_PRCTRGRP
FORM F_POPULATE_PRCTR_FROM_PRCTRGRP.
LOOP AT I_SET_VALUES.
    IF I_SET_VALUES-TO = I_SET_VALUES-FROM.
      I_PRCTR-PRCTR = I_SET_VALUES-TO.
      COLLECT I_PRCTR.
      S_PRCTR-SIGN   = 'I'.
      S_PRCTR-OPTION = 'EQ'.
      S_PRCTR-LOW    = I_SET_VALUES-TO.
      COLLECT S_PRCTR.
    ELSE.
      MESSAGE E000 WITH 'System Error, contact programmer'
              I_SET_VALUES-TO I_SET_VALUES-FROM.
    ENDIF.
ENDLOOP.
ENDFORM.                               " F_POPULATE_PRCTR_FROM_PRCTRGRP
      Form F_CONVERT_CURRENCY_FR_2_AMTS
      This function module will ensure proper handling of decimals
      and conversion of currency. This will give you the historical
      exchange rate used.
      BFOD_A does not have the trans curr amt so we will get it
       using: ( bsid trans curr amt / bsid loc curr amt ) *
               bfod_a loc currency amt
FORM F_CONVERT_CURRENCY_FR_2_AMTS USING V_FRCURR V_TOCURR
                                        V_OFRAMT V_OTOAMT V_NFRAMT
                                 CHANGING V_NTOAMT.
CALL FUNCTION 'Z_CONVERT_CURRENCY_FROM_2_AMTS'
    EXPORTING
      FROM_CURRENCY   = V_FRCURR
      TO_CURRENCY     = V_TOCURR
      OLD_FROM_AMOUNT = V_OFRAMT
      OLD_TO_AMOUNT   = V_OTOAMT
      NEW_FROM_AMOUNT = V_NFRAMT
    IMPORTING
      NEW_TO_AMOUNT   = V_NTOAMT
    EXCEPTIONS
      OTHERS          = 1.
IF SY-SUBRC <> 0.
    MESSAGE E000 WITH TEXT-005.
ENDIF.
ENDFORM.                               " F_CONVERT_CURRENCY_FR_2_AMTS
      Form F_RETRIEVE_BFODA_BY_COMPANY
FORM F_RETRIEVE_BFODA_BY_COMPANY.
Acquire BFOD_A table
SELECT PRCTR KUNNR BUKRS GJAHR BELNR BUZEI AUGDT HKONT BUDAT
         SHKZG DMBTR DMBE2 FROM BFOD_A
     INTO TABLE I_BFOD_A
     WHERE BUKRS IN S_BUKRS.
IF I_BFOD_A[] IS INITIAL.
    EXIT.
ELSE.
Remove records based on selection criteria
    DELETE I_BFOD_A WHERE NOT KUNNR IN S_KUNNR OR
                          NOT BUDAT LE P_BUDAT OR
                          NOT HKONT IN S_HKONT OR
                          NOT BELNR IN S_BELNR OR
                        ( NOT AUGDT IS INITIAL AND
                          NOT AUGDT > P_BUDAT ).
ENDIF.
Build selection option
LOOP AT I_BFOD_A.
    I_PRCTR-PRCTR = I_BFOD_A-PRCTR.
    COLLECT I_PRCTR.
    S_PRCTR-SIGN   = 'I'.
    S_PRCTR-OPTION = 'EQ'.
    S_PRCTR-LOW    = I_BFOD_A-PRCTR.
    COLLECT S_PRCTR.
ENDLOOP.
SORT S_PRCTR.
SORT I_PRCTR BY PRCTR.
PERFORM F_BUILD_I_CEPC_TABLE.
ENDFORM.                    " F_RETRIEVE_BFODA_BY_COMPANY
      Form F_RETRIEVE_BFODA_BY_PRCTR
FORM F_RETRIEVE_BFODA_BY_PRCTR.
Acquire BFOD_A table
SELECT PRCTR KUNNR BUKRS GJAHR BELNR BUZEI AUGDT HKONT BUDAT
         SHKZG DMBTR DMBE2 FROM BFOD_A
     INTO TABLE I_BFOD_A
     FOR ALL ENTRIES IN I_PRCTR
     WHERE PRCTR = I_PRCTR-PRCTR AND
           KUNNR IN S_KUNNR AND
           BUKRS IN S_BUKRS.
IF I_BFOD_A[] IS INITIAL.
    EXIT.
ELSE.
Remove records based on selection criteria
    DELETE I_BFOD_A WHERE NOT KUNNR IN S_KUNNR OR
                          NOT BUKRS IN S_BUKRS OR
                          NOT BUDAT LE P_BUDAT OR
                          NOT HKONT IN S_HKONT OR
                          NOT BELNR IN S_BELNR OR
                        ( NOT AUGDT IS INITIAL AND
                          NOT AUGDT > P_BUDAT ).
ENDIF.
ENDFORM.                    " F_RETRIEVE_BFODA_BY_PRCTR
      Form F_MOVE_BASE_TO_REPORT
FORM F_MOVE_BASE_TO_REPORT.
I_REPORT-PRCTR = I_BFOD_A-PRCTR.
I_REPORT-KUNNR = I_BFOD_A-KUNNR.
I_REPORT-BELNR = I_BFOD_A-BELNR.
I_REPORT-BUKRS = I_BFOD_A-BUKRS.
I_REPORT-HKONT = I_BFOD_A-HKONT.
I_REPORT-AUGDT = I_BFOD_A-AUGDT.
I_REPORT-BUDAT = I_BFOD_A-BUDAT.
I_REPORT-GJAHR = I_BFOD_A-GJAHR.
I_REPORT-BUZEI = I_BFOD_A-BUZEI.
I_REPORT-SHKZG = I_BFOD_A-SHKZG.
I_REPORT-DMBTR = I_BFOD_A-DMBTR.
I_REPORT-DMBE2 = I_BFOD_A-DMBE2.
I_REPORT-HWAER = I_BKPF-HWAER.
I_REPORT-HWAE2 = I_BKPF-HWAE2.
I_REPORT-BKTXT = I_BKPF-BKTXT.
I_REPORT-XBLNR = I_BKPF-XBLNR.
ENDFORM.                    " F_MOVE_BASE_TO_REPORT
     Module STATUS_9000 OUTPUT
      text
MODULE STATUS_9000 OUTPUT.
SET PF-STATUS '9000'.
SET TITLEBAR '900'.
Launch standard ALV grid
PERFORM F_CREATE_ALV_GRID_CONTROL.
PERFORM F_LOAD_COLUMN_HEADINGS.
ENDMODULE.                 " STATUS_9000 OUTPUT
      Module USER_COMMAND_9000 INPUT
      text
MODULE USER_COMMAND_9000 INPUT.
CASE SY-UCOMM.
    WHEN 'EXIT' OR 'CANC' OR 'BACK'.
      CALL METHOD REF_CUSTOM->FREE.
      SET SCREEN 0.
      LEAVE SCREEN.
Begin of changes for Release 2 by HBE7890 - DEVK909110
    WHEN 'PRIN'.
      PERFORM PRINT_AGING_TOTALS.
End of changes.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_9000 INPUT
      Form F_CREATE_ALV_GRID_CONTROL
      text
FORM F_CREATE_ALV_GRID_CONTROL.
Set field catalog for ALV
PERFORM F_SET_FIELDCAT.
IF REF_CUSTOM IS INITIAL.
Create ALV container
    CREATE OBJECT REF_CUSTOM
      EXPORTING
        CONTAINER_NAME = 'ZRPT_CONTAINER'.
Create ALV grid control
    CREATE OBJECT REF_ALV_ZRPT
      EXPORTING
        I_PARENT          = REF_CUSTOM.
Adjust look and feel
    PERFORM F_CHANGE_SETTINGS.
Call the ALV Build
    CALL METHOD REF_ALV_ZRPT->SET_TABLE_FOR_FIRST_DISPLAY
      EXPORTING
        IS_LAYOUT       = V_LAYOUT
        IS_VARIANT      = V_VARIANT
        I_SAVE          = V_SAVE
        I_DEFAULT       = V_DEFAULT
      CHANGING
        IT_SORT         = I_SORT
        IT_OUTTAB       = I_REPORT[]
        IT_FIELDCATALOG = I_ALV_FIELDCAT[].
Create print top of page
    CREATE OBJECT REF_EVENT_RECEIVER.
    SET HANDLER REF_EVENT_RECEIVER->MTH_PRINT_TOP_OF_PAGE
        FOR REF_ALV_ZRPT.
Create print top of page
    CREATE OBJECT REF_EVENT_RECEIVER.
    SET HANDLER REF_EVENT_RECEIVER->MTH_PRINT_TOP_OF_LIST
        FOR REF_ALV_ZRPT.
ENDIF.
ENDFORM.                    " F_CREATE_ALV_GRID_CONTROL
     Form F_CHANGE_SETTINGS
      text
FORM F_CHANGE_SETTINGS .
Set layout parameters
V_LAYOUT-GRID_TITLE = 'A/R by Profit Center'.
V_LAYOUT-SEL_MODE   = 'A'.
V_LAYOUT-INFO_FNAME = 'LINECOLOR'.
V_LAYOUT-CWIDTH_OPT = 'X'.
V_LAYOUT-NO_MERGING = 'X'.
V_LAYOUT-NUMC_TOTAL = 'X'.
V_DEFAULT           = 'X'.
V_SAVE              = 'A'.
Set display variant
V_VARIANT-REPORT = SY-REPID.
IF P_DSVAR NE ''.
    V_VARIANT-VARIANT = P_DSVAR.
ENDIF.
ENDFORM.                    " F_CHANGE_SETTINGS
      Form F_SET_FIELDCAT
      text
FORM F_SET_FIELDCAT .
Set field catalog for ALV
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
     I_STRUCTURE_NAME       = 'ZFR0ARPR_S1' "DEVK909110
      I_STRUCTURE_NAME       = 'ZPSS_ARBYPC'                "DEVK909110
    CHANGING
      CT_FIELDCAT            = I_ALV_FIELDCAT
    EXCEPTIONS
      INCONSISTENT_INTERFACE = 1
      PROGRAM_ERROR          = 2
      OTHERS                 = 3.
Override any attributes
LOOP AT I_ALV_FIELDCAT INTO V_ALV_FIELDCAT.
    IF V_ALV_FIELDCAT-FIELDNAME EQ 'NAME1'.
      MOVE 'Customer Name' TO: V_ALV_FIELDCAT-REPTEXT,
                               V_ALV_FIELDCAT-SCRTEXT_L,
                               V_ALV_FIELDCAT-SCRTEXT_M,
                               V_ALV_FIELDCAT-SCRTEXT_S.
    ENDIF.
    IF V_ALV_FIELDCAT-FIELDNAME EQ 'SORT'.
      MOVE 'Documentation' TO: V_ALV_FIELDCAT-REPTEXT,
                               V_ALV_FIELDCAT-SCRTEXT_L,
                               V_ALV_FIELDCAT-SCRTEXT_M.
      MOVE 'DocRef' TO         V_ALV_FIELDCAT-SCRTEXT_S.
    ENDIF.
    MODIFY I_ALV_FIELDCAT FROM V_ALV_FIELDCAT.
ENDLOOP.
ENDFORM.                    " F_SET_FIELDCAT
      Form F_BUILD_TOTALS
      text
FORM F_BUILD_TOTALS .
DATA: V_DAYS TYPE I,
        V_INDEX(2) TYPE N.
CLEAR I_TOTAL.
Build total line
MOVE I_REPORT-HWAER TO I_TOTAL-WAERS.
MOVE I_REPORT-DMBTR TO I_TOTAL-TOTAL.
DO 5 TIMES.
    V_DAYS = ( SY-INDEX - 1 ) * P_AGEDY.
    V_INDEX = SY-INDEX.
    IF I_REPORT-DPAST LE V_DAYS.
      CONCATENATE 'I_TOTAL-DAYS' V_INDEX INTO V_FIELD-NAME.
      ASSIGN (V_FIELD-NAME) TO <COLUMN>.
      <COLUMN> = I_REPORT-DMBTR.
      EXIT.
    ELSEIF SY-INDEX EQ 5.
      CONCATENATE 'I_TOTAL-DAYS' V_INDEX INTO V_FIELD-NAME.
      ASSIGN (V_FIELD-NAME) TO <COLUMN>.
      <COLUMN> = I_REPORT-DMBTR.
      EXIT.
    ENDIF.
ENDDO.
COLLECT I_TOTAL.
ENDFORM.                    " F_BUILD_TOTALS


CO-PA has all the information you need...
Profitability Analysis is that part of CO where operations will access its performance factors and profitability statements contain margins, standard cost variance, sales information, allocations and other related profit or loss data. This module helps analyze profitability of customers, markets and products at various levels of contribution margins. Profitability is measured down to the SD billing document line and is adjusted periodically against standard costs and other costs.
It has 2 methods of approach :
Costing based Profitability Analysis - This is primarily designed to let you analyze profits quickly for the purpose of sales management.
Account based Profitabilty Analysis - This type of Profitability Analysis enables you to reconcile cost and financial accounting at any time using accounts.
Guess, the second approach is what you are looking for...

No Profit center field capture while Capital Down Payment

when we are making a capital asset down payment using a down payment request, system is not able to pick up the Profit center in case profit center of bank is different from Profit center of asset.
what could be the reason for this.
001 50       0024000151 HDFC PP Dev Otgng          50,000.00-
002 29B      0000000007 Petropol India Ltd.        50,000.00
003 70       0025000110 000096000007 0000          50,000.00                no profit center for this line
004 50       0016000110 DP Clearing A/c            50,000.00-
error generated is
Balancing field "Profit Center" in line item 003 not filled
Message no. GLT2201

Problem is not with bank account, problem is with Asset line.
If the Profit center(10002000) of Bank does not matches with Profit center of Asset(10001000) , system does not assigns any profit center to 3rd line item.
000001     50          24000151     HDFC PP Dev Otgng     50,000.00-     INR     10002000     S001
000002     29     B     25000010     Capital Advance             50,000.00     INR     10001000     S000
*000003     70          25000110            Capitalized Advance        50,000.00     INR                    *
000004     50          16000110             DP Clearing A/c     50,000.00-             INR     10001000     S000
000005     50          16000080     Zero Bal Clrg a/c     50,000.00-             INR
000006     40          16000080     Zero Bal Clrg a/c     50,000.00             INR     10002000     S001

Problem while running the Profit center Plan/Actual Report in Background

Hi
While executing the T.Code s_alr_87009722 (Profit Centre plan/Actual Comparision Report) on fourground it is giving all the profit centers/groups in the particular profit center group. But when i run the same report in back ground mode it is picking only the last profit center in that group. Please help me regarding the same.
Regards
Surya

hi prakash ramu,
even it is not working. it is directly talking me to spool request..
i think it is not possible, while ur running the report in background.,
any how if possible could u pls send me the code...
thanks
ramu

Profit center assistance requested

Similar Messages

Maybe you are looking for