SELECT VOUCHERS
*** NEVER use a functions as ALLTRIM, LTRIM or RTRIM in INDEX expresion
*** or If you have to, make sure that after their use you make the expresion with constant lenght
INDEX ON DTOS(DATE) + STR(VOU_NO, 5) + PADR(ALLTRIM(VOU_TYPE), 20) TO VOUCHERS1 

SELECT vou_sum
INDEX ON DTOS(DATE) + STR(VOU_NO, 5) + VOU_TYPE TO VOU_SUM1

SELECT VOUCHERS
REPLACE all d1 with ""

SELECT vou_sum
SCAN
   cc = PADR(ALLTRIM(Vou_Sum.Vou_Type),20) && character type
   SELECT VOUCHERS
   SEEK DTOS(Vou_Sum.Date)+STR(Vou_Sum.Vou_No,5)+ cc
   IF Found()
      REPLACE D1 WITH Vou_Sum.D1 WHILE;
                                 DTOS(DATE) + STR(VOU_NO, 5) + PADR(ALLTRIM(VOU_TYPE), 20) == DTOS(Vou_Sum.Date)+STR(Vou_Sum.Vou_No,5)+ cc
   ENDIF
   SELECT Vou_Sum
ENDSCAN