Issue in picking data from p2006

Question

I need to display the absence data from QUOTA 's ...
Where code is written as follows:
PROVIDE * FROM P2006 BETWEEN PN-BEGDA AND PN-ENDDA.
    IF P2006-DESTA <= PN-ENDDA. -> This I dont know the use of this if any one having any Idea please share!!
      CASE P2006-KTART.
        WHEN '78'.
          ITAB-CACO_ELIG = P2006-ANZHL.
          ITAB-CACO_START = P2006-DESTA.
          ITAB-CACO_END = P2006-DEEND.
        WHEN '81' OR '82' or '91'.     "Perfect attendance /6 & 12 month
          ITAB-PERF_ATTEND_ELI =  ITAB-PERF_ATTEND_ELI + P2006-ANZHL.
          CLEAR PERF_ATT_TAB.
          PERF_ATT_TAB-PERNR = P2006-PERNR.
          PERF_ATT_TAB-ANZHL = P2006-ANZHL.
          PERF_ATT_TAB-KVERB = P2006-KVERB.
          PERF_ATT_TAB-DESTA = P2006-DESTA.
          PERF_ATT_TAB-DEEND = P2006-DEEND.
          PERFORM GET_PATT_ANT USING
            P2006-KTART PERF_ATT_TAB-DESTA PERF_ATT_TAB-DEEND.
          APPEND PERF_ATT_TAB.
*-------Chinoj 02/06/01 per Neutel
*          ITAB-PERF_ATTEND_TAK  =  ITAB-PERF_ATTEND_TAK + P2006-KVERB.
*            W_CONT = W_CONT + ITAB-PERF_ATTEND_TAK.
      ENDCASE.
code for form GET_PATT_ANT.
* Get taken and ANT days for Perfect Attendance
FORM GET_PATT_ANT USING QTYPE LIKE P2006-KTART
                        STARTDATE LIKE SY-DATUM
                        ENDDATE LIKE SY-DATUM.
  DATA: QTYPE_SEL LIKE BAPIHRSELQTYPE OCCURS 0,
        ABWKONTI LIKE BAPIHRQUOTA OCCURS 0 WITH HEADER LINE,
        RETURN LIKE BAPIRETURN1 OCCURS 0 WITH HEADER LINE,
        W_BEGDATE LIKE SY-DATUM.
  REFRESH: QTYPE_SEL, ABWKONTI, RETURN.
*Approved/Not Taken days
  CALL FUNCTION 'BAPI_TIMEQUOTA_GETDETAILEDLIST'
    EXPORTING
      EMPLOYEENUMBER           = PERNR-PERNR
      WAYOFCALCULATION         = 'D'
      KEYDATEFORENTITLE        = SY-DATUM
      KEYDATEFORDEDUCTION      = SY-DATUM
      DEDUCTBEGIN              = STARTDATE
      DEDUCTEND                = ENDDATE
*   IMPORTING
*     CUMULATEDVALUES          =
    TABLES
      ABSENCEQUOTATYPESELECTION   = QTYPE_SEL
      ABSENCEQUOTARETURNTABLE     = ABWKONTI
      RETURN                      = RETURN.
  LOOP AT ABWKONTI WHERE QUOTATYPE EQ QTYPE.
    PERF_ATT_TAB-ANT = ABWKONTI-ORDERED + ABWKONTI-REDUCED_SINCE.
    PERF_ATT_TAB-TAK = ABWKONTI-DEDUCT + ABWKONTI-REDUCED.
  ENDLOOP.
ENDFORM.                    "GET_PATT_ANT
Edited by: saslove sap on Apr 5, 2010 9:03 AM

Answer 1

My issue is there is one new quota type added '91'  we can see in the code..This is working well and fine when report executed for Current year...This quota type specially is It will exists only one day I.e BEGDA AND ENDDA WILL be same For ex: 01/01/2010 and End = 01/01/2010.
So  Like this is the only one quota type which is having BEGDA ENDDA Valid for same day...So Issue here is when report running for this current year this is picking perfectly fine..But when this is executed for Current day ex: 4/3/2010 report is missing the '91' because when p2006 run on sy-datum...!!So to avoid this what is the best logic i can use here or instead of using Pn-begda pn-endda...Can i use DEduction begin date and deduction end-date only for quota '91'??????
Sas