SET TEXTMERGE TO test.txt noshow
SET TEXTMERGE on
select test
locate
lnGroup1ID = IDField
lnGroupSum = 0 && Sample group sum
scan
if IDField # lnGroupID && New group encountered
\Group info here - Group Sum : <
>
*Group operations - reset etc
lnGroupSum = 0
lnGroupID = IDField
endif
\<>
\
\
\<>
\
\<>
lnGroupSum = lnGroupSum + FieldToSum
endscan
SET TEXTMERGE to
SET TEXTMERGE off
MODIFY COMMAND test.txt
Cetin
>I have free data groups in report in which results are summed.
>How to emulate data grouping ?
>
>>>>I see now. Sorry have no idea. I never trust report when it's ASCII and roll my own text merging.
>>>
>>>Do you have some templates which drive text merging routines ?
>>
>>Nothing special. For your report it might look like :
>>
>>>>select test
>>SET TEXTMERGE TO test.txt noshow
>>SET TEXTMERGE on
>>scan
>> \<<f1>>
>> \
>> \
>> \<<f2>>
>> \
>> \<<f3>>
>>endscan
>>SET TEXTMERGE to
>>SET TEXTMERGE off
>>MODIFY COMMAND test.txt
>>
Cetin