Zero totals in report

Hello ,
I have written some SQL to create a report that will change the colour of the font to Red if the value of another field is "Credit' and Green' for the else.
Even though I select "SUM" in the 'Report Attributes' section I still get a zero total, why is that ?.
I belive it has something to do with my SQL converting a number field to CHAR, but the SQL will not work unless I convert to Char.
How can I successfully have the the values below converted back to a number value ?
If a just tag the TO_NUMBER to the start I get an error
Here is the SQL
select "BILL_DATA"."CREDITDEBIT" as "CREDITDEBIT",
     CASE WHEN (CREDITDEBIT) = 'Credit' then
          '<span style="color:Red;">'
          || TO_CHAR (0 - "ADJUSTMENT_INCL_GST", 'FML999G999G999G999G990D00')|| '</span>'
                         else
          '<span style="color:Green;">'
          || TO_CHAR ( "ADJUSTMENT_INCL_GST", 'FML999G999G999G999G990D00')|| '</span>'
                         end "Adj (incl GST)"
from     "BILL_DATA" "BILL_DATA"
where "BILL_DATA"."CLOSE_DATE" is null
-----------------------------------------------------------------------------------

Try using a report template. That will allow you to keep the column as a number and conditionally display the color you desire.
chet

Similar Messages

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?

Want to make stock ZERO from KE5Z report

Dear Expert,
I have posted this requirement to CO and MM side. Please extend support of expertise and help me on this issue.
Requirement : Client want to make stock zero which is appearing in KE5Z transaction. see below "83" qty
The input data while running the above transaction is :
Controlling Area:
Company Code:
Posting period : 10
Fiscal year : 2009
Profit center : DE14*
Account : S240075000
Plant : DE01
After entering above data I am getting following result , just pasting as it is ;
Profit center     account        Acc text                    Material         period year cumm PCLC curr    qty BUN
DE14010000     S240075000 productive material   D-12578510 10          2009 0.00               EUR   83 EA
     In above , client want to make 83 qty to Zero.
I am not getting how come this posting has been happen.
In a material master the profit center maintained is : DE14010000 , and I check all the inventory posting related to this material in MMBE, but I found that this GL is not being enter in any of the inventory posting , the GL which is getting in inventory posting is : S009430000.
Suppose I will make a stock Zero at inventory level ( MMBE) still it is not making stock zero at KE5Z ( because the GL is different)
Basically I am a MM consultant I need your expertise to solve this issue, how we can make this stock to zero in KE5Z report.
Thanks & Regards
Om

KE5Z is a profit center report. So better check for profit center than for GL accounts.
Your problem usually arises when a profit center in material master gets changed while there is stock.
so you received stock to profit center A, then profit center was changed to B, all goods issues will be done from profit center B. You never issue the stock from profit center A, but as well you have an issue with the value in profit center B, because you never received stock into profit center B, you only issued.
Check your material master change history to find when the profit center got changed. Then you may have to change it back to the old profit center, goods issue your stock, then turn it to the new profit center and cancel your goods issue..

RUNNING TOTAL IN REPORTS

Hi,
Can any one tell me how to create a running total in Oracle reports. I have two fields pulled in the SQL called CR and DR. I want to do the running total at report level. Here what I want
CR------DR-------RTOTAL
20-----10---------10 ( here the RTOTAL Field is (20 - 10) )
30-----15---------25 ( here the RTOTAL Field is (30 - 15) + 10)
50-----25---------50 ( here the RTOTAL Field is (50 - 25) + 25)
75-----35---------90 ( here the RTOTAL Field is (75 - 35) + 50)
Thanks
-Feroz

Hello,
You can use the following SQL query :
select cr,dr,cr-dr cr_minus_dr from <table> ...
and create a Summary Column in the Reports :
Source : the field cr_minus_dr
Function : Sum
Regards

Leading zero issue in Report

Hi Xperts,
i have report which has Plant ,Batch and Material.
Now we found that the Batch that start with "0" no longer has the leading zeros in the report.
For Exp:
Plant-X Material-123 Batch-0012345
But in report it is showing,
Plant-X Material-123 Batch-12345
As i have checked in the respective Table and in Cube the batch Number (0012345) is coming correctly with the leading zero.
but why the leading zero is not showing in my report.
Could any one please help me on this issue?
Regards,
satish
Edited by: SAP534 on Mar 31, 2010 8:35 AM

If your requirement is to show the leading zeros for the Batach, then i will suggest you to redesign the batch infoobject with the compunding objects of material and plant.
You have another option like to display the batch from master data in your report by making it as anavigantional attribute in your cube.
We do have the similar requirement and our business prefered to have Batch compunded with material and plant. Check with your Business and go aheead with the changes.
Hope this helps.
Regards,
Reddy

Total in report

Title says it all. I would like to know how to do total in report.
Thank you.

Welcome to Oracle Forums!
Please acquaint yourself with the FAQ and forum etiquette if you haven't already done so.
Also, get yourself a friendlier handle, 974072 is not friendly
Always state
<ul>
<li>Apex Version</li>
<li>DB Version and edition</li>
<li>Web server used.I.e. EPG, OHS, ApexListner Standalone or with J2EE container</li>
<li>When asking about forms always state tabular form if it is a tabular form</li>
<li>When asking about reports always state Classic / IR</li>
<li>Always post code snippets enclosed in a pair of {code} tags as explained in FAQ</li>
</ul>

URGENT: REGARDING POSTING DATE AND DELETION OF ZEROS IN ALV REPORT

Hi,
I had made a report in which i have to display 'POSTING DATE' (iseg-budat) when we execute the report i.e. it should be displayed as PERIOD :- _______ to _______ .
2nd problem is i had displayed the material no. ,but there are zeros which are displaying in dere ,i want to remove dem ... example, if the mat.no. is 2321 ,it is displaying 000002321. i want to remove these zeros.
Its request to all of u dat plz help me as fast as possible as it is most urgent to me and if any body provide me help he or sh e will be definately rewarded..
Regards,
ric.s

Here i am giving you one of the ALV reports i have generated. Check this program. I hope it will be helpful to you.
REPORT ZFI_ASSIGNED_FUNDS_FINAL.
TABLES: FMIT,FMCIT,FPOS,IFMEISA1,FMFCTRT,BSEG,ZREV_BUDGET.
TYPE-POOLS: SLIS.
*ALV data declarations
DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
      GD_SORT      TYPE SLIS_T_SORTINFO_ALV WITH HEADER LINE,
      GD_TAB_GROUP TYPE SLIS_T_SP_GROUP_ALV,
      GD_LAYOUT    TYPE SLIS_LAYOUT_ALV,
      GD_REPID     LIKE SY-REPID.
*For ALV top of page
DATA : IT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
*For ALV Events
DATA : IT_EVENT1 TYPE SLIS_T_EVENT.
*For ALV Events
DATA : IT_EVENT TYPE SLIS_ALV_EVENT.
*For top of page heading
DATA: IT_LINE TYPE SLIS_LISTHEADER.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETER : RADIO RADIOBUTTON GROUP R1.
IF RADIO EQ 'X'.
SELECT-OPTIONS: FIPEX FOR FPOS-FIPEX,                  " SELECTION FOR FUNDS CENTER & COMMITMENT ITEM
                  RFISTL FOR FMIT-RFISTL.
ENDIF.
PARAMETER: RADIO1 RADIOBUTTON GROUP R1.
IF RADIO1 EQ 'X'.
SELECT-OPTIONS : HKONT FOR BSEG-HKONT,                 " SELECTION FOR COST CENTER & G/L ACCOUNT
                   KOSTL FOR ZREV_BUDGET-KOSTL.
ENDIF.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: PERDE FOR IFMEISA1-PERDE DEFAULT '01' TO '12' OBLIGATORY.
PARAMETER :     RYEAR LIKE FMIT-RYEAR OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B2.
DATA: BEGIN OF IT_TAB OCCURS 0,
         FIKRS LIKE FMFCTR-FIKRS,
         FICTR LIKE CSKS-KOSTL,
         CTR_OBJNR LIKE FMFCTR-CTR_OBJNR,
         RFISTL LIKE FMIT-RFISTL,
         OBJNR LIKE BPPE-OBJNR,
      END OF IT_TAB.
DATA: BEGIN OF IT_TAB1 OCCURS 0,
         CO_OBJNR LIKE BPIJ-CO_OBJNR,
         POSIT LIKE BPPE-POSIT,
         FIPEX LIKE FMPOSIT-FIPEX,
         FICTR LIKE FMFCTR-FICTR,
         KSTAR LIKE COSP-KSTAR,
         RFISTL LIKE FMIT-RFISTL,
         OBJNR1 LIKE BPPE-OBJNR,
      END OF IT_TAB1.
DATA: BEGIN OF IT_FMIT OCCURS 0,
        RYEAR LIKE FMIT-RYEAR,
        FIKRS LIKE FMIT-FIKRS,
        RFISTL LIKE ZREV_BUDGET-KOSTL,
        RFIPEX LIKE ZREV_BUDGET-KSTAR,
        HSL01 LIKE FMIT-HSL01,
        HSL02 LIKE FMIT-HSL02,
        HSL03 LIKE FMIT-HSL03,
        HSL04 LIKE FMIT-HSL04,
        HSL05 LIKE FMIT-HSL05,
        HSL06 LIKE FMIT-HSL06,
        HSL07 LIKE FMIT-HSL07,
        HSL08 LIKE FMIT-HSL08,
        HSL09 LIKE FMIT-HSL09,
        HSL10 LIKE FMIT-HSL10,
        HSL11 LIKE FMIT-HSL11,
        HSL12 LIKE FMIT-HSL12,
        HSL13 LIKE FMIT-HSL13,
        HSL14 LIKE FMIT-HSL14,
        HSL15 LIKE FMIT-HSL15,
        HSL16 LIKE FMIT-HSL16,
     END OF IT_FMIT.
DATA: BEGIN OF IT_FMIT1 OCCURS 0,
        RYEAR LIKE FMIT-RYEAR,
        FIKRS LIKE FMIT-FIKRS,
        RFISTL LIKE ZREV_BUDGET-KOSTL,
        RFIPEX LIKE FMPG-FIPEX,
        TOTAL LIKE FMIT-TSL01,
        TOTAL1 LIKE FMIT-TSL01,
        OBJNR LIKE BPPE-OBJNR,
        POSIT LIKE BPPE-POSIT,
     END OF IT_FMIT1.
DATA: BEGIN OF IT_BPPE OCCURS 0,
        OBJNR LIKE BPPE-OBJNR,
        POSIT LIKE BPPE-POSIT,
        GJAHR LIKE BPPE-GJAHR,
        WLP01 LIKE BPPE-WLP01,
        WLP02 LIKE BPPE-WLP02,
        WLP03 LIKE BPPE-WLP03,
        WLP04 LIKE BPPE-WLP04,
        WLP05 LIKE BPPE-WLP05,
        WLP06 LIKE BPPE-WLP06,
        WLP07 LIKE BPPE-WLP07,
        WLP08 LIKE BPPE-WLP08,
        WLP09 LIKE BPPE-WLP09,
        WLP10 LIKE BPPE-WLP10,
        WLP11 LIKE BPPE-WLP11,
        WLP12 LIKE BPPE-WLP12,
      END OF IT_BPPE.
DATA: BEGIN OF IT_BPPE1 OCCURS 0,
        OBJNR LIKE BPPE-OBJNR,
        POSIT LIKE BPPE-POSIT,
        GJAHR LIKE BPPE-GJAHR,
        RFISTL LIKE FMIT-RFISTL,
        FIPEX LIKE FPOS-FIPEX,
        TOTAL2 LIKE BPPE-WLP01,
      END OF IT_BPPE1.
DATA: BEGIN OF IT_CSKS OCCURS 0,
       KOKRS LIKE CSKS-KOKRS,
       KOSTL LIKE CSKS-KOSTL,
       BUKRS LIKE CSKS-BUKRS,
       OBJNR LIKE CSKS-OBJNR,
     END OF IT_CSKS.
DATA: BEGIN OF IT_COSP OCCURS 0,
       OBJNR LIKE COSP-OBJNR,
       GJAHR LIKE COSP-GJAHR,
       KSTAR LIKE COSP-KSTAR,
       BEKNZ LIKE COSP-BEKNZ,
       WKG001 LIKE COSP-WKG001,
       WKG002 LIKE COSP-WKG002,
       WKG003 LIKE COSP-WKG003,
       WKG004 LIKE COSP-WKG004,
       WKG005 LIKE COSP-WKG005,
       WKG006 LIKE COSP-WKG006,
       WKG007 LIKE COSP-WKG007,
       WKG008 LIKE COSP-WKG008,
       WKG009 LIKE COSP-WKG009,
       WKG010 LIKE COSP-WKG010,
       WKG011 LIKE COSP-WKG011,
       WKG012 LIKE COSP-WKG012,
     END OF IT_COSP.
DATA: BEGIN OF IT_COSP2 OCCURS 0,
       OBJNR LIKE COSP-OBJNR,
       GJAHR LIKE COSP-GJAHR,
       KSTAR LIKE COSP-KSTAR,
       FIPEX LIKE FMPG-FIPEX,
       TOTAL LIKE COSP-WKG001,
       TOTAL1 LIKE COSP-WKG001,
       OBJNR1 LIKE BPPE-OBJNR,
       POSIT LIKE BPPE-POSIT,
     END OF IT_COSP2.
IF RADIO EQ 'X'.
DATA: BEGIN OF IT_FINAL OCCURS 0,
         FIKRS LIKE FMIT-FIKRS,
         RFISTL LIKE FMIT-RFISTL,
         RFIPEX LIKE FMIT-RFIPEX,
         TEXT LIKE FMCIT-TEXT1,
         ALLOC LIKE FMIT-TSL16,
         USED LIKE FMIT-TSL16,
         REMAIN LIKE FMIT-TSL16,
         BEZEICH LIKE FMFCTRT-BEZEICH,
       END OF IT_FINAL.
ENDIF.
IF RADIO1 EQ 'X'.
DATA: BEGIN OF IT_FINAL1 OCCURS 0,
          GJAHR LIKE ZREV_BUDGET-GJAHR,
          KOSTL LIKE ZREV_BUDGET-KOSTL,
          KSTAR LIKE ZREV_BUDGET-KSTAR,
          TOTAL1 LIKE COSP-WKG001,
          TOTAL3 LIKE COSP-WKG001,
          TEXT LIKE CSKU-KTEXT,
          VARIANCE LIKE COSP-WKG001,
          BEZEICH LIKE FMFCTRT-BEZEICH,
        END OF IT_FINAL1.
ENDIF.
DATA: BEGIN OF IT_FISTL OCCURS 0,
       RFISTL LIKE FMIT-RFISTL,
       BEZEICH LIKE FMFCTRT-BEZEICH,
      END OF IT_FISTL.
DATA: BEGIN OF IT_HKONT OCCURS 0,
       KSTAR LIKE CSKU-KSTAR,
       KTEXT LIKE CSKU-KTEXT,
      END OF IT_HKONT.
DATA: PERIOD1 TYPE I,
      PERIOD2 TYPE I,
      PERIOD3 TYPE I,
      PERIO TYPE I.
DATA: BEZEICH LIKE FMFCTRT-BEZEICH.
CONSTANTS: C_00 TYPE MONAT VALUE '00',
           C_13 TYPE MONAT VALUE '13'.
DATA : IT_RETURN LIKE DDSHRETVAL OCCURS 0 WITH HEADER LINE.
DATA: FIPEX1 LIKE COSP-KSTAR.
A T - S E L E C T I O N S C R E E N
AT SELECTION-SCREEN.
LOOP AT PERDE.
    IF PERDE-LOW >= C_13 OR PERDE-HIGH >= C_13 .
      MESSAGE E022(ZA) WITH 'Enter Period values from 1 to 12'.
      EXIT.
    ENDIF.
ENDLOOP.
IF NOT PERDE-LOW IS INITIAL.
    PERIOD1 = PERDE-LOW.
ENDIF.
IF NOT PERDE-HIGH IS INITIAL.
    PERIOD2 = PERDE-HIGH.
    PERIOD3 = PERIOD2 - PERIOD1.
    PERIOD3 = PERIOD3 + 1.
ELSE.
    PERIOD3 = 1.
ENDIF.
PERIO = PERIOD1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR RFISTL-LOW.
SELECT FICTR BEZEICH INTO TABLE IT_FISTL FROM FMFCTRT
                                           WHERE SPRAS EQ 'EN'
                                           AND   FIKRS EQ 'NFFM'.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD   = 'RFISTL'
      VALUE_ORG = 'S'
    TABLES
      VALUE_TAB = IT_FISTL
      RETURN_TAB = IT_RETURN.
IF SY-SUBRC = 0.
    READ TABLE IT_RETURN INDEX 1.
    MOVE IT_RETURN-FIELDVAL TO RFISTL-LOW.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR RFISTL-HIGH.
SELECT FICTR BEZEICH INTO TABLE IT_FISTL FROM FMFCTRT
                                           WHERE SPRAS EQ 'EN'
                                           AND   FIKRS EQ 'NFFM'.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD   = 'RFISTL'
      VALUE_ORG = 'S'
    TABLES
      VALUE_TAB = IT_FISTL
      RETURN_TAB = IT_RETURN.
IF SY-SUBRC = 0.
    READ TABLE IT_RETURN INDEX 1.
    MOVE IT_RETURN-FIELDVAL TO RFISTL-HIGH.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR HKONT-LOW.
SELECT KSTAR KTEXT INTO TABLE IT_HKONT FROM CSKU WHERE SPRAS EQ 'EN'.
SORT IT_HKONT BY KSTAR.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD   = 'HKONT'
      VALUE_ORG = 'S'
    TABLES
      VALUE_TAB = IT_HKONT
      RETURN_TAB = IT_RETURN.
IF SY-SUBRC = 0.
    READ TABLE IT_RETURN INDEX 1.
    MOVE IT_RETURN-FIELDVAL TO HKONT-LOW.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR HKONT-HIGH.
SELECT KSTAR KTEXT INTO TABLE IT_HKONT FROM CSKU WHERE SPRAS EQ 'EN'.
SORT IT_HKONT BY KSTAR.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD   = 'HKONT'
      VALUE_ORG = 'S'
    TABLES
      VALUE_TAB = IT_HKONT
      RETURN_TAB = IT_RETURN.
IF SY-SUBRC = 0.
    READ TABLE IT_RETURN INDEX 1.
    MOVE IT_RETURN-FIELDVAL TO HKONT-HIGH.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR KOSTL-LOW.
SELECT FICTR BEZEICH INTO TABLE IT_FISTL FROM FMFCTRT
                                           WHERE SPRAS EQ 'EN'
                                           AND   FIKRS IN KOSTL.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD   = 'KOSTL'
      VALUE_ORG = 'S'
    TABLES
      VALUE_TAB = IT_FISTL
      RETURN_TAB = IT_RETURN.
IF SY-SUBRC = 0.
    READ TABLE IT_RETURN INDEX 1.
    MOVE IT_RETURN-FIELDVAL TO KOSTL-LOW.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR KOSTL-HIGH.
SELECT FICTR BEZEICH INTO TABLE IT_FISTL FROM FMFCTRT
                                           WHERE SPRAS EQ 'EN'
                                           AND   FIKRS IN KOSTL.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD   = 'KOSTL'
      VALUE_ORG = 'S'
    TABLES
      VALUE_TAB = IT_FISTL
      RETURN_TAB = IT_RETURN.
IF SY-SUBRC = 0.
    READ TABLE IT_RETURN INDEX 1.
    MOVE IT_RETURN-FIELDVAL TO KOSTL-HIGH.
ENDIF.
*START-OF-SELECTION
START-OF-SELECTION.
IF RADIO EQ 'X'.                     " FOR FUNDS CENTER AND COMMITMENT ITEM
    PERFORM GET_DATA.
    PERFORM PROCESS_DATA.
ENDIF.
IF RADIO1 EQ 'X'.                    " FOR COST CENTER AND G/L ACCOUNT
    PERFORM GET_DATA1.
    PERFORM PROCESS_DATA1.
ENDIF.
*END OF SELECTION
PERFORM BUILD_LAYOUT.
PERFORM BUILD_EVENTS.
IF RADIO EQ 'X'.
    PERFORM BUILD_FIELDCATALOG.
    PERFORM BUILD_SORT.
    PERFORM DISPLAY_ALV_REPORT.
ENDIF.
IF RADIO1 EQ 'X'.
    PERFORM BUILD_FIELDCATALOG1.
    PERFORM BUILD_SORT1.
    PERFORM DISPLAY_ALV_REPORT1.
ENDIF.
*&      Form GET_DATA
      text
--> p1        text
<-- p2        text
FORM GET_DATA .
SELECT FIKRS FICTR CTR_OBJNR INTO TABLE IT_TAB FROM FMFCTR
                                                 WHERE FIKRS EQ 'NFFM'
                                                 AND   FICTR IN RFISTL.
SELECT CO_OBJNR POSIT INTO TABLE IT_TAB1 FROM BPIJ
                                           FOR ALL ENTRIES IN IT_TAB
                                           WHERE CO_OBJNR EQ IT_TAB-CTR_OBJNR.
LOOP AT IT_TAB1.
    SELECT SINGLE FIPEX INTO IT_TAB1-FIPEX FROM FMPOSIT WHERE FIKRS EQ 'NFFM'
                                           AND   POSIT EQ IT_TAB1-POSIT
                                           AND   FIPEX IN FIPEX.
    IF SY-SUBRC EQ '0'.
      MODIFY IT_TAB1.
    ELSE.
      DELETE IT_TAB1.
    ENDIF.
ENDLOOP.
SELECT OBJNR
         POSIT
         GJAHR
         WLP01
         WLP02
         WLP03
         WLP04
         WLP05
         WLP06
         WLP07
         WLP08
         WLP09
         WLP10
         WLP11
         WLP12
         INTO TABLE IT_BPPE
         FROM BPPE
         FOR ALL ENTRIES IN IT_TAB1
         WHERE OBJNR EQ IT_TAB1-CO_OBJNR
         AND   POSIT EQ IT_TAB1-POSIT
         AND   GJAHR EQ RYEAR
         AND   VORGA IN ('KBFR','KBUE','KBUS').
LOOP AT IT_BPPE.
    MOVE-CORRESPONDING IT_BPPE TO IT_BPPE1.
    IT_BPPE1-RFISTL = IT_BPPE1-OBJNR+6(4).
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        INPUT = IT_BPPE1-RFISTL
      IMPORTING
        OUTPUT = IT_BPPE1-RFISTL.
    CALL FUNCTION 'FM_FIPEX_GET_FROM_POSIT'
      EXPORTING
        I_FIKRS = 'NFFM'
        I_POSIT = IT_BPPE1-POSIT
      IMPORTING
        E_FIPEX = IT_BPPE1-FIPEX.
    PERIOD1 = PERIO.
    DO PERIOD3 TIMES.
      CASE PERIOD1.
        WHEN 1.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP01.
        WHEN 2.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP02.
        WHEN 3.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP03.
        WHEN 4.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP04.
        WHEN 5.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP05.
        WHEN 6.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP06.
        WHEN 7.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP07.
        WHEN 8.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP08.
        WHEN 9.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP09.
        WHEN 10.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP10.
        WHEN 11.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP11.
        WHEN 12.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP12.
      ENDCASE.
      IF PERIOD2 >= PERIOD1.
        PERIOD1 = PERIOD1 + 1.
      ENDIF.
    ENDDO.
    COLLECT IT_BPPE1.
    CLEAR PERIOD1.
    CLEAR IT_BPPE1.
ENDLOOP.
SELECT RYEAR
         FIKRS
         RFISTL
         RFIPEX
         HSL01
         HSL02
         HSL03
         HSL04
         HSL05
         HSL06
         HSL07
         HSL08
         HSL09
         HSL10
         HSL11
         HSL12
         HSL13
         HSL14
         HSL15
         HSL16
         INTO TABLE IT_FMIT FROM FMIT
         FOR ALL ENTRIES IN IT_BPPE1
         WHERE RYEAR EQ RYEAR
         AND   FIKRS EQ 'NFFM'
        AND   RFIPEX EQ IT_BPPE1-FIPEX
         AND RFIPEX IN FIPEX
         AND   RFISTL EQ IT_BPPE1-RFISTL.
LOOP AT IT_FMIT.
    MOVE-CORRESPONDING IT_FMIT TO IT_FMIT1.
    PERIOD1 = PERIO.
    DO PERIOD3 TIMES.
      CASE PERIOD1.
        WHEN 1.
          IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL01.
        WHEN 2.
          IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL02.
        WHEN 3.
          IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL03.
        WHEN 4.
          IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL04.
        WHEN 5.
          IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL05.
        WHEN 6.
          IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL06.
        WHEN 7.
          IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL07.
        WHEN 8.
          IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL08.
        WHEN 9.
          IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL09.
        WHEN 10.
          IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL10.
        WHEN 11.
          IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL11.
        WHEN 12.
          IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL12.
      ENDCASE.
      IF PERIOD2 >= PERIOD1.
        PERIOD1 = PERIOD1 + 1.
      ENDIF.
    ENDDO.
    IT_FMIT1-TOTAL1 = IT_FMIT1-TOTAL * -1 .
    COLLECT IT_FMIT1.
    CLEAR PERIOD1.
    CLEAR IT_FMIT1.
ENDLOOP.
ENDFORM.                    " GET_DATA
*&      Form PROCESS_DATA
      text
--> p1        text
<-- p2        text
FORM PROCESS_DATA .
SORT IT_FMIT1 BY FIKRS RFISTL RFIPEX.
SORT IT_BPPE1 BY RFISTL FIPEX.
LOOP AT IT_BPPE1.
    IT_FINAL-RFISTL = IT_BPPE1-RFISTL.
    IT_FINAL-RFIPEX = IT_BPPE1-FIPEX.
    IT_FINAL-ALLOC   = IT_BPPE1-TOTAL2.
    READ TABLE IT_FMIT1 WITH KEY RFISTL = IT_BPPE1-RFISTL RFIPEX = IT_BPPE1-FIPEX.
    IF SY-SUBRC EQ 0.
      IT_FINAL-USED   = IT_FMIT1-TOTAL1.
    ENDIF.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        INPUT = IT_FMIT1-RFIPEX
      IMPORTING
        OUTPUT = IT_FMIT1-RFIPEX.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        INPUT = IT_FMIT1-RFISTL
      IMPORTING
        OUTPUT = IT_FMIT1-RFISTL.
Changes made on 13/11/2007 *******************************
   SELECT SINGLE TEXT1 INTO IT_FINAL-TEXT FROM FMCIT WHERE SPRAS EQ 'EN'
                                                     AND   FIPEX EQ IT_FMIT1-RFIPEX.
    SELECT SINGLE TEXT1 INTO IT_FINAL-TEXT FROM FMCIT WHERE SPRAS EQ 'EN'
                                                      AND   FIPEX EQ IT_BPPE1-FIPEX.
Changes made on 13/11/2007 *******************************
    SELECT SINGLE BEZEICH INTO IT_FINAL-BEZEICH FROM FMFCTRT
                                                WHERE SPRAS EQ 'EN'
                                                AND   FICTR EQ IT_FMIT1-RFISTL.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        INPUT = IT_FINAL-RFIPEX
      IMPORTING
        OUTPUT = IT_FINAL-RFIPEX.
    IT_FINAL-REMAIN = IT_FINAL-ALLOC - IT_FINAL-USED.
    APPEND IT_FINAL.
    CLEAR IT_FINAL.
ENDLOOP.
SORT IT_FINAL BY FIKRS RFISTL RFIPEX.
   LOOP AT IT_FMIT1.
    READ TABLE IT_FINAL WITH KEY RFISTL = IT_FMIT1-RFISTL RFIPEX = IT_FMIT1-RFIPEX.
    IF SY-SUBRC NE 0.
      IT_FINAL-RFISTL = IT_FMIT1-RFISTL.
      IT_FINAL-RFIPEX = IT_FMIT1-RFIPEX.
      IT_FINAL-USED   = IT_FMIT1-TOTAL1.
    IT_FINAL-ALLOC   = '0'.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
        EXPORTING
          INPUT = IT_FMIT1-RFIPEX
        IMPORTING
          OUTPUT = IT_FMIT1-RFIPEX.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
        EXPORTING
          INPUT = IT_FMIT1-RFISTL
        IMPORTING
          OUTPUT = IT_FMIT1-RFISTL.
      SELECT SINGLE TEXT1 INTO IT_FINAL-TEXT FROM FMCIT WHERE SPRAS EQ 'EN'
                                                        AND   FIPEX EQ IT_FMIT1-RFIPEX.
      SELECT SINGLE BEZEICH INTO IT_FINAL-BEZEICH FROM FMFCTRT
                                                  WHERE SPRAS EQ 'EN'
                                                  AND   FICTR EQ IT_FMIT1-RFISTL.
      IT_FINAL-REMAIN = IT_FINAL-ALLOC - IT_FINAL-USED.
      APPEND IT_FINAL.
      CLEAR IT_FINAL.
    ELSE.
      DELETE IT_FMIT1.
    ENDIF.
ENDLOOP.
SORT IT_FINAL BY FIKRS RFISTL RFIPEX.
ENDFORM.                    " PROCESS_DATA
*&      Form GET_DATA1
      text
--> p1        text
<-- p2        text
FORM GET_DATA1 .
SELECT KOKRS KOSTL BUKRS OBJNR INTO TABLE IT_CSKS
                                 FROM CSKS
                                 WHERE KOKRS EQ '1000'
                                 AND   KOSTL IN KOSTL
                                 AND   BUKRS EQ 'NFCL'.
SELECT OBJNR
         GJAHR
         KSTAR
         BEKNZ
         WKG001
         WKG002
         WKG003
         WKG004
         WKG005
         WKG006
         WKG007
         WKG008
         WKG009
         WKG010
         WKG011
         WKG012
         FROM COSP
         INTO TABLE IT_COSP
         FOR ALL ENTRIES IN IT_CSKS
         WHERE OBJNR EQ IT_CSKS-OBJNR
         AND   GJAHR EQ RYEAR
         AND   KSTAR IN HKONT.
LOOP AT IT_COSP.
    MOVE-CORRESPONDING IT_COSP TO IT_COSP2.
    PERIOD1 = PERIO.
    DO PERIOD3 TIMES.
      CASE PERIOD1.
        WHEN 1.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG001.
        WHEN 2.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG002.
        WHEN 3.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG003.
        WHEN 4.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG004.
        WHEN 5.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG005.
        WHEN 6.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG006.
        WHEN 7.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG007.
        WHEN 8.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG008.
        WHEN 9.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG009.
        WHEN 10.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG010.
        WHEN 11.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG011.
        WHEN 12.
          IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG012.
      ENDCASE.
      IF PERIOD2 >= PERIOD1.
        PERIOD1 = PERIOD1 + 1.
      ENDIF.
    ENDDO.
    IT_COSP2-OBJNR1 = IT_COSP2-OBJNR+10(6).
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        INPUT = IT_COSP2-OBJNR1
      IMPORTING
        OUTPUT = IT_COSP2-OBJNR1.
    CONCATENATE 'FSNFFM' IT_COSP2-OBJNR1 INTO IT_COSP2-OBJNR1.
    IT_COSP2-FIPEX = IT_COSP2-KSTAR.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        INPUT = IT_COSP2-FIPEX
      IMPORTING
        OUTPUT = IT_COSP2-FIPEX.
    CALL FUNCTION 'FM_POSIT_GET_FROM_FIPEX'
      EXPORTING
      I_FIKRS                = 'NFFM'
      I_FIPEX                = IT_COSP2-FIPEX
I_FLG_BUFFER_ALL       =
   IMPORTING
   E_POSIT                = IT_COSP2-POSIT
TABLES
T_FMPOSIT              =
    EXCEPTIONS
      INPUT_ERROR            = 1
      DATA_NOT_FOUND         = 2
      OTHERS                 = 3
    IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    CONDENSE IT_COSP2-OBJNR1.
    CONDENSE IT_COSP2-POSIT.
    COLLECT IT_COSP2.
    CLEAR PERIOD1.
    CLEAR IT_COSP2.
ENDLOOP.
SORT IT_COSP2 BY OBJNR KSTAR.
SELECT OBJNR
         POSIT
         GJAHR
         WLP01
         WLP02
         WLP03
         WLP04
         WLP05
         WLP06
         WLP07
         WLP08
         WLP09
         WLP10
         WLP11
         WLP12
         INTO TABLE IT_BPPE
         FROM BPPE
         FOR ALL ENTRIES IN IT_COSP2
         WHERE OBJNR EQ IT_COSP2-OBJNR1
         AND   POSIT EQ IT_COSP2-POSIT
         AND   GJAHR EQ RYEAR
         AND   VORGA IN ('KBFR','KBUE','KBUS').
LOOP AT IT_BPPE.
    MOVE-CORRESPONDING IT_BPPE TO IT_BPPE1.
    PERIOD1 = PERIO.
    DO PERIOD3 TIMES.
      CASE PERIOD1.
        WHEN 1.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP01.
        WHEN 2.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP02.
        WHEN 3.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP03.
        WHEN 4.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP04.
        WHEN 5.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP05.
        WHEN 6.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP06.
        WHEN 7.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP07.
        WHEN 8.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP08.
        WHEN 9.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP09.
        WHEN 10.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP10.
        WHEN 11.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP11.
        WHEN 12.
          IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP12.
      ENDCASE.
      IF PERIOD2 >= PERIOD1.
        PERIOD1 = PERIOD1 + 1.
      ENDIF.
    ENDDO.
    COLLECT IT_BPPE1.
    CLEAR PERIOD1.
    CLEAR IT_BPPE1.
ENDLOOP.
ENDFORM.                                                    " GET_DATA1
*&      Form PROCESS_DATA1
      text
--> p1        text
<-- p2        text
FORM PROCESS_DATA1 .
LOOP AT IT_COSP2.
    IT_FINAL1-GJAHR = IT_COSP2-GJAHR.
    IT_FINAL1-KSTAR = IT_COSP2-KSTAR.
    IT_FINAL1-TOTAL1 = IT_COSP2-TOTAL.
    SELECT SINGLE KOSTL FROM CSKS INTO IT_FINAL1-KOSTL WHERE KOKRS = '1000'
                                                        AND BUKRS EQ 'NFCL'
                                                        AND OBJNR = IT_COSP2-OBJNR.
    READ TABLE IT_BPPE1 WITH KEY OBJNR = IT_COSP2-OBJNR1 POSIT = IT_COSP2-POSIT.
    IF SY-SUBRC EQ 0.
      IT_FINAL1-TOTAL3 = IT_BPPE1-TOTAL2.
    ENDIF.
    SELECT SINGLE KTEXT INTO IT_FINAL1-TEXT FROM CSKU WHERE SPRAS EQ 'EN'
                                                      AND KSTAR EQ IT_COSP2-KSTAR.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        INPUT = IT_FINAL1-KOSTL
      IMPORTING
        OUTPUT = IT_FINAL1-KOSTL.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        INPUT = IT_FINAL1-KSTAR
      IMPORTING
        OUTPUT = IT_FINAL1-KSTAR.
    SELECT SINGLE BEZEICH INTO IT_FINAL1-BEZEICH FROM FMFCTRT
                                                WHERE SPRAS EQ 'EN'
                                                AND   FICTR EQ IT_FINAL1-KOSTL.
    IT_FINAL1-VARIANCE = IT_FINAL1-TOTAL3 - IT_FINAL1-TOTAL1.
    APPEND IT_FINAL1.
    CLEAR IT_FINAL1.
ENDLOOP.
SORT IT_FINAL1 BY KOSTL KSTAR.
DELETE IT_FINAL1 WHERE KOSTL IS INITIAL.
ENDFORM.                    " PROCESS_DATA1
*&      Form BUILD_FIELDCATALOG
      text
--> p1        text
<-- p2        text
FORM BUILD_FIELDCATALOG .
FIELDCATALOG-FIELDNAME   = 'RFISTL'.
FIELDCATALOG-SELTEXT_M   = 'Funds Center'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME   = 'BEZEICH'.
FIELDCATALOG-SELTEXT_M   = 'Fund Center Description'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME   = 'RFIPEX'.
FIELDCATALOG-SELTEXT_M   = 'Commitment Item'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME   = 'TEXT'.
FIELDCATALOG-SELTEXT_M   = 'Commitment Item Description'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME   = 'ALLOC'.
FIELDCATALOG-SELTEXT_M   = 'Allocated Budget'.
FIELDCATALOG-DO_SUM      = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME   = 'USED'.
FIELDCATALOG-SELTEXT_M   = 'Used Budget'.
FIELDCATALOG-DO_SUM      = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME   = 'REMAIN'.
FIELDCATALOG-SELTEXT_M   = 'Remaining Budget'.
FIELDCATALOG-DO_SUM      = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
ENDFORM.                    " BUILD_FIELDCATALOG
*&      Form BUILD_FIELDCATALOG1
      text
--> p1        text
<-- p2        text
FORM BUILD_FIELDCATALOG1 .
FIELDCATALOG-FIELDNAME   = 'KOSTL'.
FIELDCATALOG-SELTEXT_M   = 'Cost Center'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME   = 'BEZEICH'.
FIELDCATALOG-SELTEXT_M   = 'Cost Center Description'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME   = 'KSTAR'.
FIELDCATALOG-SELTEXT_M   = 'G/L Account'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME   = 'TEXT'.
FIELDCATALOG-SELTEXT_M   = 'G/L Account Description'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME   = 'TOTAL3'.
FIELDCATALOG-SELTEXT_M   = 'Planned amount'.
FIELDCATALOG-DO_SUM      = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME   = 'TOTAL1'.
FIELDCATALOG-SELTEXT_M   = 'Actuals'.
FIELDCATALOG-DO_SUM      = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME   = 'VARIANCE'.
FIELDCATALOG-SELTEXT_M   = 'Variance'.
FIELDCATALOG-DO_SUM      = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
ENDFORM.                    " BUILD_FIELDCATALOG1
*&      Form BUILD_LAYOUT
      text
--> p1        text
<-- p2        text
FORM BUILD_LAYOUT .
GD_LAYOUT-NO_INPUT          = 'X'.
GD_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
ENDFORM.                    " BUILD_LAYOUT
*&      Form BUILD_SORT
      text
--> p1        text
<-- p2        text
FORM BUILD_SORT .
DATA: GT_SORT TYPE SLIS_SORTINFO_ALV.
GT_SORT-UP = 'X'.
GT_SORT-FIELDNAME = 'RFISTL'.
GT_SORT-TABNAME = 'IT_FINAL'.
GT_SORT-SUBTOT = 'X'.
APPEND GT_SORT TO GD_SORT.
CLEAR GT_SORT.
GT_SORT-UP = 'X'.
GT_SORT-FIELDNAME = 'BEZEICH'.
GT_SORT-TABNAME = 'IT_FINAL'.
APPEND GT_SORT TO GD_SORT.
CLEAR GT_SORT.
ENDFORM.                    " BUILD_SORT
*&      Form BUILD_SORT1
      text
--> p1        text
<-- p2        text
FORM BUILD_SORT1 .
DATA: GT_SORT TYPE SLIS_SORTINFO_ALV.
GT_SORT-UP = 'X'.
GT_SORT-FIELDNAME = 'KOSTL'.
GT_SORT-TABNAME = 'IT_FINAL'.
GT_SORT-SUBTOT = 'X'.
APPEND GT_SORT TO GD_SORT.
CLEAR GT_SORT.
GT_SORT-UP = 'X'.
GT_SORT-FIELDNAME = 'BEZEICH'.
GT_SORT-TABNAME = 'IT_FINAL'.
APPEND GT_SORT TO GD_SORT.
CLEAR GT_SORT.
ENDFORM.                    " BUILD_SORT1
*&      Form BUILD_EVENTS
      text
--> p1        text
<-- p2        text
FORM BUILD_EVENTS .
IT_EVENT-NAME = 'TOP_OF_PAGE'.
IT_EVENT-FORM = 'TOP_OF_PAGE'.
APPEND IT_EVENT TO IT_EVENT1.
CLEAR IT_EVENT.
ENDFORM.                    " BUILD_EVENTS
*&      Form TOP_OF_PAGE
      ALV TOP-OF-PAGE
FORM TOP_OF_PAGE.                                           "#EC CALLED
REFRESH : IT_LIST_TOP_OF_PAGE.
CLEAR : IT_LINE.
IT_LINE-TYP = 'H'.
IT_LINE-INFO = TEXT-001.
APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
CLEAR IT_LINE.
IF RADIO EQ 'X'.
    IT_LINE-TYP = 'S'.
    IT_LINE-INFO = TEXT-101.
    IF NOT FIPEX-LOW IS INITIAL.
      CONCATENATE TEXT-101 '-' FIPEX-LOW INTO IT_LINE-INFO SEPARATED BY SPACE.
      IF NOT FIPEX-HIGH IS INITIAL.
        CONCATENATE TEXT-101 '-' FIPEX-LOW 'to' FIPEX-HIGH INTO IT_LINE-INFO SEPARATED BY SPACE.
      ENDIF.
    ENDIF.
    APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
    CLEAR IT_LINE-INFO.
    IT_LINE-INFO = TEXT-102.
    IF NOT RFISTL-LOW IS INITIAL.
      CONCATENATE TEXT-102 '-' RFISTL-LOW INTO IT_LINE-INFO SEPARATED BY SPACE.
      IF NOT RFISTL-HIGH IS INITIAL.
        CONCATENATE TEXT-102 '-' RFISTL-LOW 'to' RFISTL-HIGH INTO IT_LINE-INFO SEPARATED BY SPACE.
      ENDIF.
    ENDIF.
    APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
ENDIF.
IF RADIO1 EQ 'X'.
    CLEAR IT_LINE-INFO.
    IT_LINE-INFO = TEXT-105.
    IF NOT KOSTL-LOW IS INITIAL.
      CONCATENATE TEXT-105 '-' KOSTL-LOW INTO IT_LINE-INFO SEPARATED BY SPACE.
      IF NOT KOSTL-HIGH IS INITIAL.
        CONCATENATE TEXT-105 '-' KOSTL-LOW 'to' KOSTL-HIGH INTO IT_LINE-INFO SEPARATED BY SPACE.
      ENDIF.
    ENDIF.
    APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
    CLEAR IT_LINE-INFO.
    IT_LINE-INFO = TEXT-106.
    IF NOT HKONT-LOW IS INITIAL.
      CONCATENATE TEXT-106 '-' HKONT-LOW INTO IT_LINE-INFO SEPARATED BY SPACE.
      IF NOT HKONT-HIGH IS INITIAL.
        CONCATENATE TEXT-106 '-' HKONT-LOW 'to' HKONT-HIGH INTO IT_LINE-INFO SEPARATED BY SPACE.
      ENDIF.
    ENDIF.
    APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
ENDIF.
CLEAR IT_LINE-INFO.
IT_LINE-INFO = TEXT-103.
IF NOT PERDE-LOW IS INITIAL.
    CONCATENATE TEXT-103 '-' PERDE-LOW INTO IT_LINE-INFO SEPARATED BY SPACE.
    IF NOT PERDE-HIGH IS INITIAL.
      CONCATENATE TEXT-103 '-' PERDE-LOW 'to' PERDE-HIGH INTO IT_LINE-INFO SEPARATED BY SPACE.
    ENDIF.
ENDIF.
APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
CLEAR IT_LINE-INFO.
IT_LINE-INFO = TEXT-104.
IF NOT RYEAR IS INITIAL.
    CONCATENATE TEXT-104 '-' RYEAR INTO IT_LINE-INFO SEPARATED BY SPACE.
ENDIF.
APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = IT_LIST_TOP_OF_PAGE.
ENDFORM.                               "TOP_OF_PAGE
*&      Form DISPLAY_ALV_REPORT
      text
--> p1        text
<-- p2        text
FORM DISPLAY_ALV_REPORT .
GD_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM     = GD_REPID
      I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
      IS_LAYOUT              = GD_LAYOUT
      IT_EVENTS              = IT_EVENT1[]
      IT_FIELDCAT            = FIELDCATALOG[]
      IT_SORT                = GD_SORT[]
    TABLES
      T_OUTTAB               = IT_FINAL
    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.
ENDFORM.                    "DISPLAY_ALV_REPORT
*&      Form DISPLAY_ALV_REPORT1
      text
--> p1        text
<-- p2        text
FORM DISPLAY_ALV_REPORT1 .
GD_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM     = GD_REPID
      I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
      IS_LAYOUT              = GD_LAYOUT
      IT_EVENTS              = IT_EVENT1[]
      IT_FIELDCAT            = FIELDCATALOG[]
      IT_SORT                = GD_SORT[]
    TABLES
      T_OUTTAB               = IT_FINAL1
    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-MSG

Sum Total in Reports

hi guyz,
i did this before but today i forget it how i did :)
i have master detail report, have the below field
Master
Invoice#
Name
Description
Details
Inv#
Item
QTY
Unit Price
Total
Sum_total
i place a formula on total is
RETURN NVL(:QTY, 0) * NVL(:UNIT_PRICE, 0);it give me the correct total in total field but i didnt get the sum_amount, anyone give tell me how can i get the sum_total from total? any formula or any other thing?
any help appreicate.
im using reports 6i.
Regards
Edited by: Moazam Shareef on Dec 12, 2009 12:42 AM

hi
try something like this.
Example:
PROCEDURE get_gap IS
Cursor C_k1(P_Week pls_integer) is
SELECT sum(reload_amount) theSum,
count(reload_amount) theCount
FROM trap_ra_k2_ain_balance
WHERE week_no = p_week;
R_K1 C_K1%Rowtype;
Cursor C_k2(P_Week pls_integer) is
SELECT sum(reload_amount) theSum,
count(reload_amount) theCount
FROM trap_ra_k1_ppb_balance
WHERE week_no = p_week;
R_K2 C_K2%Rowtype;
v_reload_amount_ain number(12);
v_reload_amount_ppb number(12);
v_number_reload_ain number(12);
v_number_reload_ppb number(12);
BEGIN
----> totally unnecessary: if no value given in declarartion, a number will default to zero
v_reload_amount_ain := 0;
v_reload_amount_ppb := 0;
v_number_reload_ain := 0;
v_number_reload_ppb := 0;
:CP_1 := 0;
:CP_2 := 0;
:CP_3 := 0; -- 'A'
:CP_4 := 0; -- 'B'
open C_k1( :P-Week)
fetch C_k1 into r_k1;
close c_k1;
v_reload_amount_ain := nvl(R_k1.theSum,0);
v_number_reload_ain := nvl(R_k1.theCount,0);
open C_k2( :P-Week)
fetch C_k2 into r_k1;
close c_k2;
v_reload_amount_ppb := nvl( r_k2.theSum);
v_number_reload_ppb := nvl( r_k2.theCount);
:CP_1 := v_reload_amount_ain - v_reload_amount_ppb;
:CP_2 := v_number_reload_ain - v_number_reload_ppb;
-- checking for 0 divisor
if (v_reload_amount_ppb) > 0 then------------------------------------------------> this cannot be <0 ?
:CP_3 := abs(ROUND(:CP_1/(v_reload_amount_ain + v_reload_amount_ppb) *100,2));
----> Not nec: you allready did this in 'A'
else
:CP_3 := 0;
end if;
-- checking for 0 divisor
if (v_number_reload_ppb) > 0 then------------------------------------------------> this cannot be <0 ?
:CP_4 := abs(ROUND(:CP_2/(v_number_reload_ain + v_number_reload_ppb) *100,2));
----> Not nec: you allready did this in 'B'
else
:CP_4 := 0;
end if;
END;sarah

Display zero rows in report writer

Hello,
I've made this reportwriter report in transaction GR55 for internal orders and it shows all the postings that are made on the different costelements.
I 've added a reportlayout to this report in which I defined "Print zero rows".
This works fine.
Now I have made the same report but this time for cost centers. I 've added the same reportlayout to this report but in this case is does not show me the zero rows??!!??
Can somebody explain me why this happens?
gr,
Sahib
<a href="http://sap-certifications.blogspot.com">SAP R/3 Certification Information Site</a>
Message was edited by:
sahib isamal

Hello Harish
The problem is this case is that the system only shows zero values from cost elements if the total amount of these cost elements in the table is also zero.
I thought it would also be possible to show zero values from cost elements even if there were never been posted.
It is logical that this is not possible since if the cost element is not yet posted there is no entry in the table ofcourse!
I have to ABAP this thing but thanks for your reaction anyway
gr,
Sahib
<a href="http://www.ebook-scene.com/it-ebooks/sap-certification-ebooks.html">Download all SAP certification ebooks here</a>

Limit SC showing Zero value in report SC per cost centre in SRM portal

Hi SRM Gurus,
On executing SC per cost centre report avaialble in SRM 5.0 Portal I am getting value of limit SC as zero. while in all other follow on documents i.e. PO and Invoice its displaying the value.
Is it due to the fact the for Limit Items we don't have any GR/confirmation i.e zero quantity? and the value column field has Sigma symbol on it. so maybe it is multiplying quantity with the value here?
Is this SAP SRM standard for limit items to show zero value in this report ?
Please let me know. Thanks for the help.
Regards,
Varun Dhawan.

SRM experts please help in this regard. Any insights on LIMIT Shopping carts??

Totals in report header?

I am using Crystal XI to develop a fairly simple financial report. One of the requirements for the report is to have a copy of the totals located in the Report Header section. It does not seem to be as simple as just putting the running total field in the header. When I do that it does not evaluate properly and the result is incorrect. What can I do to work around the limitation with Crystal? Maybe I need to design a sub report that totals the information and then supress everything but the Report Footer section on the sub-report?

Please try creating a sub report in the report header and assign the values to a shared variable and call the variable in the main report and place it in the below section of the sub report. And also note that you should not suppress the sub report instead suppress the sections inside the sub report and resize the sub report to smaller size.
How do I create a shared variable in the sub-report? Can you give me an example? I'm not sure what you mean by placing the variable "in the main report" ... "below the section of the sub report". Are you suggesting that I place both the sub-report, and the variable in the Report Header of the main report? If so, why? I imagine the variable would serve the same purpose as the sub-report. In the case, I could just use one or the other.

Running total in report footer returning inaccurate result

Post Author: smarkta
CA Forum: Formula
I am writing a report that contains 3 groups. I have created running totals for each group that are accurate by selecting the group to evaluate and reset on. now I need to basically sum the results of the all the group running totals but have had no success. any tips on how to do this would be greatly appreciated.
Thanks

Post Author: Charliy
CA Forum: Formula
Were you doing a Distinct Count? Did you have a formula on the Running Total? What is there about the Group Totals that make them different than the final total.

Ssrs 2008 grand totals of report

In an SSRS 2008 report, I am placing a grand total amount in the report footer since I want the amount at the very end of the report.
The problem is when the report is exported to PDF, the amount is a long ways from where the detail lines are located at.
Thus can you tell me how to make the data in the report footer change to be closer to the detail lines?

In your report design make sure you remove as much white space as possible from the main body of the report

PO total value report

Hi filks!!
I want to have a PO report in which I want to see only the total value of the PO, and no PO line details.
Is there any report..Please help.
Best regards

Hi everyone,
I need the same for scheduling agreements instead of POs. Is this possible as well?
Further I do need the line specific value and not the total one.
I'd be really thankful for help!
BR,
Alex

Show characteristic with zero figures in report

Dear All,
I have report as below:
Material        Qty
A                  0
B                  10
C                  5
D                  0
E                  2
I want to filter Material with zero quantity.
I've already try with condition Qty = 0, but the report will suppress zero value and
return not applicable data found.
How to make this happen?
Appreciate for any kind of help. Thanks.
Regards,
Steph

Yes Alice, I already try, but does not work
By the way, the figure - Qty, already show "0" (not blank, because it's from calculation).
Yesterday, I try to add a new CKF in query, add with "1" if the Qty return zero value.
And then I set the condition to this new CKF to activate, if the result the same as "1".
But it does not work either and return no appliable data found,
because the report automatically suppres the zero when I show Qty to the report,
although there is new CKF that return "1".
Regards,
Steph.
Edited by: Steph on Nov 5, 2009 4:08 PM

Zero totals in report

Similar Messages

Maybe you are looking for