hi all,

i need help to rewrite this code , it works for 1,2,3,15 but i need to repeat for
evrey 3 months as 1,2,3,15 mean (tot1) first 4,5,6,16 (tot2)second 7,8,9,17(tot3) third 10,11,12,18(tot4)
as

USE TAX

LOCATE FOR ID=VAL(THISFORM.TEXT1.VALUE)

REPLACE COLUMN7 WITH M.REP
REPLACE COLUMN5 WITH COLUMN4-COLUMN3
REPLACE COLUMN6 WITH (COLUMN5/COLUMN4)*100
REPLACE COLUMN8 WITH (COLUMN7-COLUMN4)
REPLACE COLUMN9 WITH (COLUMN8/COLUMN4)*100
REPLACE COLUMN11 WITH (COLUMN7-COLUMN10)
REPLACE COLUMN12 WITH (COLUMN11/COLUMN10)*100
REPLACE COLUMN14 WITH (COLUMN7-COLUMN13)
REPLACE COLUMN15 WITH (COLUMN14/COLUMN13)*100




SELECT ID,COLUMN7,COLUMN3,COLUMN4,COLUMN5,COLUMN10,COLUMN13,COLUMN14,COLUMN15,COLUMN6,COLUMN8,COLUMN9,COLUMN11,COLUMN12  FROM TAX WHERE ID in (1,2,3,15) INTO CURSOR FMYCUR READWRITE
    SCAN 
       REPLACE COLUMN3 WITH 0,COLUMN4 WITH 0,COLUMN5 WITH 0,COLUMN6 WITH 0,COLUMN7 WITH 0,COLUMN8 WITH 0,COLUMN9 WITH 0,;
       COLUMN10 WITH 0,COLUMN11 WITH 0,COLUMN12 WITH 0,COLUMN13 WITH 0,COLUMN14 WITH 0,COLUMN15 WITH 0 FOR ID =15
    ENDSCAN
  *BROWSE
  
  

SUM COLUMN7 TO M.A
SUM COLUMN3 TO M.A1
SUM COLUMN4 TO M.A2
SUM COLUMN5 TO M.A3
SUM COLUMN10 TO M.A4
SUM COLUMN13 TO M.A5
If Not Used('TAX')
    USE TAX.dbf Alias TAX Again In 0 Shared
Endif

SELECT TAX
   REPLACE COLUMN7 WITH M.A FOR COLUMN2="TOT1         "
   REPLACE COLUMN3 WITH M.A1 FOR COLUMN2="TOT1         "
   REPLACE COLUMN4 WITH M.A2 FOR COLUMN2="TOT1         "
   REPLACE COLUMN5 WITH M.A3 FOR COLUMN2="TOT1         "
   REPLACE COLUMN10 WITH M.A4 FOR COLUMN2="TOT1         "
   REPLACE COLUMN13 WITH M.A5 FOR COLUMN2="TOT1         "



REPLACE COLUMN6 WITH (COLUMN5/COLUMN4)*100 FOR COLUMN2="TOT1         "
REPLACE COLUMN8 WITH (COLUMN7-COLUMN4) FOR COLUMN2="TOT1         "
REPLACE COLUMN9 WITH (COLUMN8/COLUMN4)*100 FOR COLUMN2="TOT1         "
REPLACE COLUMN11 WITH (COLUMN7-COLUMN10) FOR COLUMN2="TOT1         "
REPLACE COLUMN12 WITH (COLUMN11/COLUMN10)*100 FOR COLUMN2="TOT1         "
REPLACE COLUMN14 WITH (COLUMN7-COLUMN13) FOR COLUMN2="TOT1         "
REPLACE COLUMN15 WITH (COLUMN14/COLUMN13)*100 FOR COLUMN2="TOT1         "

thanks