Cash weekly summary

Question

hi experts
I am working on FI module cash weekly summary, in my output i should get particulars as
1-Apr to 7-Apr          85,610.00          5,38,474.00           1,73,860.00 Dr
8-Apr to 14-Apr             77.00           1,21,100.00            52,837.00 Dr
15-Apr to 21-Apr        45,685.00              52,077.00                46,445.00 Dr
1.here the dates should  be calculated as 1-apr + 6  =  7-apr, etc  according to the date what we enter in the selection screen. what ever date we enter it should be divided by 7 and the balance days should be displayed.
2. amount 85,610.00 is the sum of 1-apr to 7-apr, similarly the other calculations also
3. to find the highest  amount among the selection screen date
iam attaching the specs and codes plz help me
thanks in advance
maaya
specs:-
                                                    Cash
                                          Weekly Summary
                                   1-Apr-2007 to 19-Jul-2007
                                                                                Page 1
P a r t i c u l a r s                     Transactions                          Closing
                                            Debit                 Credit                Balance
Opening Balance                                                     26,724.00 Dr
1-Apr to 7-Apr                    6,85,610.00         5,38,474.00             1,73,860.00 Dr
8-Apr to 14-Apr                           77.00           1,21,100.00            52,837.00 Dr
15-Apr to 21-Apr                       45,685.00                52,077.00              46,445.00 Dr
22-Apr to 28-Apr                    1,04,382.00             1,02,619.00                 48,208.00 Dr
29-Apr to 5-May                    3,01,532.00              2,78,110.00                71,630.00 Dr
6-May to 12-May                      46,607.00                73,202.00                45,035.00 Dr
13-May to 19-May                     91,607.00             1,01,719.00                34,923.00 Dr
20-May to 26-May                     77,485.00                62,889.00               49,519.00 Dr
27-May to 2-Jun                        62 ,411.00               69,738.00              42,192.00 Dr
3-Jun to 9-Jun                          2,79,008.00            2,83,598.00              37,602.00 Dr
10-Jun to 16-Jun                       1,02,153.00              93,729.00              46,026.00 Dr
17-Jun to 23-Jun                      5,28,608.00             5,32,870.00             41,764.00 Dr
24-Jun to 30-Jun                       43,333.00                 46,299.00             38,798.00 Dr
1-Jul to 7-Jul                         2,49,350.00                2,18,776.00            69,372.00 Dr
8-Jul to 14-Jul                          27,095.00                   58,599.00           37,868.00 Dr
15-Jul to 19-Jul                        15,000.00                     7,233.00          45,635.00 Dr
G r a n d T o t a l                   26,59,943.00               26,41,032.00        45,635.00 Dr
A v e r a g e                           1,66,246.44                 1,65,064.50            55,107.13 Dr
Highest                                (dt. 19-Jun-2007)       (dt. 19-Jun-2007)     (dt.4-May-2007)
Balance                                 4,83,238.00                   4,95,563.00        2,88,728.00 Dr
Lowest                       (dt. 14-Apr-2007)           (dt. 14-Jul-2007)                (dt. 2-Apr-2007)
Balance                                        77.00                   533.00                 23,724.00 Dr
my codings are as follows
*& Report  ZCASH_WEEK
REPORT  ZCASH_WEEK no standard page heading line-size 200.
tables: bkpf,
       bseg,
       skb1.
data: begin of it_skb1 occurs 0,
      saknr like skb1-saknr,
      end of it_skb1.
data: begin of it_bkpf occurs 0,
      belnr like bkpf-belnr,
      gjahr like bkpf-gjahr,
      blart like bkpf-blart,
      budat like bkpf-budat,
      monat like bkpf-monat,
      end of it_bkpf.
data: begin of it_bseg occurs 0,
      budat like bseg-augdt,
      date(60),
      belnr like bseg-belnr,
      koart like bseg-koart,
      shkzg like bseg-shkzg,
      dmbtr like bseg-dmbtr,
      hkont like bseg-hkont,
      end of it_bseg.
data : it_closedbal like it_bseg occurs 0 with header line.
data : Begin of it_data occurs 0,
        budat like bkpf-budat,
        debit like bseg-dmbtr,
        credit like bseg-dmbtr,
         clbal like bseg-dmbtr,
        end of it_data.
data : Begin of it_clbal occurs 0,
        budat like bkpf-budat,
        debit like bseg-dmbtr,
        credit like bseg-dmbtr,
         end of it_clbal.
   data : v_closedate like bkpf-budat,
          v_closebal like bseg-dmbtr,
          v_cldeb like bseg-dmbtr,
          v_clcre like bseg-dmbtr,
          v_days(3) , v_week(4),
          v_budat like bkpf-budat,
          v_date(60), v_date1(11), v_dat(7),
          v_max_credit like bseg-dmbtr,
          v_min_credit like bseg-dmbtr,
          v_max_debit like bseg-dmbtr,
          v_min_debit like bseg-dmbtr,
          v_max_closebal like bseg-dmbtr,
          v_min_closebal like bseg-dmbtr,
          v_avg_credit like bseg-dmbtr,
          v_avg_debit like bseg-dmbtr,
          v_avg_closebal like bseg-dmbtr,
          v_grd_credit like bseg-dmbtr,
          v_grd_debit like bseg-dmbtr,
          v_grd_closebal like bseg-dmbtr.
Selection-screen :begin of block b1.
    Parameter: p_bukrs like  bkpf-bukrs obligatory,
              p_saknr like ska1-saknr.
                p_hkont like bseg-hkont.
    select-options: s_budat for bkpf-budat.
  selection-screen end of block b1.
start-of-selection.
to fetch data.
perform get_data.
to calculate the days.
perform get_days.
to fetch the closing balance
perform get_CLOSEDBAL.
to display the output
perform get_output.
to get the grand total.
perform get_grandtot.
to get the average balance
Perform get_average.
to get the max & min balances
perform get_high_low_bal.
end-of-selection.
*&      Form  get_data
      text
-->  p1        text
<--  p2        text
FORM get_data .
select saknr from skb1 into table it_skb1 where bukrs = p_bukrs
                                       and saknr = p_hkont.
select * from bkpf into corresponding fields of table it_bkpf
                   where bukrs  = p_bukrs
                   and budat in s_budat.
select * from bseg into corresponding fields of table it_bseg
                    for all entries in it_bkpf
                    where  belnr = it_bkpf-belnr and
                    hkont = p_hkont.
select * from bseg into corresponding fields of table it_bseg
                     for all entries in it_skb1
                     where  hkont = it_skb1-saknr.
loop at it_bseg.
select single budat from bkpf into it_bseg-budat where belnr = it_bseg-belnr.
modify it_bseg.
endloop.
break-point.
***select max( dmbtr ) from it_bseg  into v_max_credit where budat between s_budat-low and s_budat-high
                                                shkzg = 'H'.
perform get_day.
**move the documents into itab where date lies between input dates low & high
loop at it_bseg.             "where budat between s_budat-low and s_budat-high.
if it_bseg-budat >= s_budat-low or it_bseg-budat <= s_budat-high.
  it_data-budat = it_bseg-budat.
   if it_bseg-shkzg = 'H'.
      move it_bseg-dmbtr to it_data-credit.
    else.
       move it_bseg-dmbtr to it_data-debit.
    endif.
    endif.
append it_data.
endloop.
**move the documents into itab_close  one day less than low range ( s_budat-low - 1 )
v_closedate = s_budat-low - 7.
loop at it_bseg.
where budat between v_closedate and s_budat-low .
if it_bseg-budat >= v_closedate or it_bseg-budat <= s_budat-low.
   move it_bseg-budat to it_clbal-budat.
   if it_bseg-shkzg = 'H'.
      move it_bseg-dmbtr to it_clbal-credit.
    else.
       move it_bseg-dmbtr to it_clbal-debit.
    endif.
endif.
append it_clbal.
endloop.
ENDFORM.                    " get_data
*&      Form  get_days
      text
-->  p1        text
<--  p2        text
FORM get_days .
v_days = s_budat-high - s_budat-low.
v_week = v_days / 7.
*write:10 'days',  v_days,
      50  'week', v_week.
ENDFORM.                    " get_days
*&      Form  get_closedbal
      text
-->  p1        text
<--  p2        text
FORM get_closedbal .
*break-point.
loop at it_clbal.
*sum.
  v_cldeb = v_cldeb + it_clbal-debit.
  v_clcre  = v_clcre + it_clbal-credit.
v_closebal =  v_cldeb -  v_clcre .
  v_closebal =   v_clcre - v_cldeb .
endloop.
skip 2.
*write: 'Opening Balance' , v_closebal.
ENDFORM.                    " get_closedbal
*&      Form  get_day
      text
-->  p1        text
<--  p2        text
FORM get_day .
*break-point.
loop at it_bseg.
v_budat = it_bseg-budat.
CALL FUNCTION 'CONVERSION_EXIT_SDATE_OUTPUT'
  EXPORTING
    INPUT         = v_budat
IMPORTING
   OUTPUT        = v_date.
   v_dat = v_date+0(6).
move v_dat to it_bseg-date.
write:/10 v_date , v_dat.
modify it_bseg.
endloop.
ENDFORM.                    " get_day
*&      Form  get_output
      text
-->  p1        text
<--  p2        text
FORM get_output.
      WRITE : /60 'Cash'.
      WRITE : /55 'Weekly Summary'.
     WRITE : /30 v_budat-low, 50 v_budat-high.
      write :/125 'Page 1'.
   skip 1.
   uline (135).
   write  : /5 'Particulars',  45 '|', 60 'Transactions', 120 'Closing'.
   write : /45 sy-uline(71), 120'Balance'.
   write : /45 '|', 55 'Debit', 90 'Credit', 115 '|'.
write  : / sy-uline(135).
write : / 'Opening Balance' , 120 v_closebal.
write : / v_dat1.
*loop at it_data.
WRITE :  /1 sy-vline, IT_DATA-
ENDFORM.                    " get_output
*&      Form  get_grandtot
      text
-->  p1        text
<--  p2        text
FORM get_grandtot .
break-point.
loop at it_data.
sum.
endloop.
move it_data-credit to v_grd_credit.
move it_data-debit to v_grd_debit.
v_grd_closebal = v_closebal + v_grd_debit - v_grd_credit.
uline.
write: 'Grand Total', 55 v_grd_credit, 90 v_grd_debit, 120 v_grd_closebal.
uline.
ENDFORM.                    " get_grandtot
*&      Form  get_average
      text
-->  p1        text
<--  p2        text
FORM get_average .
write:/ 'Average' ,55 v_avg_credit, 90  v_avg_debit, 120 v_avg_closebal.
skip 1.
ENDFORM.                    " get_average
*&      Form  get_high_low_bal
      text
-->  p1        text
<--  p2        text
FORM get_high_low_bal .
write:/ 'Highest',55 '(dt.           )' , 90'(dt.           )', 120 '(dt.           )'.
write:/ 'balance',55 v_max_credit,90 v_max_debit, 120 v_max_closebal.
skip 1.
write:/ 'Lowest' , 55 '(dt.           )' , 90'(dt.           )', 120 '(dt.           )'.
write:/ 'balance',55 v_min_credit,90 v_min_debit ,120 v_min_closebal.
uline.
ENDFORM.                    " get_high_low_bal

Answer 1

If you have any suggestions that you think might enhance the Apple Watch you can send Apple your feedback here.