SELECT DISTINCT Date, Vou_No, Vou_Type, D1;
       FROM Vou_Sum;
       GROUP BY Date, Vou_No, Vou_Type, D1;
       INTO CURSOR cVouSum

SELECT cVouSum
INDEX ON Vou_Type+STR(Vou_No)+DTOS(Date) TAG cVouSum

SELECT Vou_Sum
SET RELATION TO Vou_Type+STR(Vou_No)+DTOS(Date) INTO cVouSum

REPLACE ALL D1 WITH  cVouSum.D1

USE IN cVouSum