Perguntas Totalizador no TReport

Amigo Kanaãm,

consegui fazer funcionar...

Segue o código:

Desta forma o totalizador passa a respeitar minha nova formula, realizando as sub-totalizações e a totalização.

Obs: o tipo da totalização precisa ser ONPRINT (Valor atual).

Diorgenes,
Por favor me dê um help aqui com um totalizador...

Eu tenho a seguinte situação:

//SECAO 1
OSECTION1 := TRSECTION():NEW(OREPORT,"FILIAL",{"QRYSD1"})
OSECTION1:SETTOTALINLINE(.F.)

TRCELL():NEW(OSECTION1, "D1_COD" ,"QRYSD1", 'CODIGO' ,PESQPICT('SD1',"D1_COD") ,TAMSX3("D1_COD")[1]+1,/*LPIXEL*/,/*{|| CODE-BLOCK DE IMPRESSAO }*/)
TRCELL():NEW(OSECTION1, "D1_QUANT" ,"QRYSD1", 'QUANTIDADE' ,PESQPICT('SD1',"D1_QUANT") ,TAMSX3("D1_QUANT")[1]+1,/*LPIXEL*/,/*{|| CODE-BLOCK DE IMPRESSAO }*/)
TRCELL():NEW(OSECTION1, "D1_TES" ,"QRYSD1", 'TES' ,PESQPICT('SD1',"D1_TES") ,TAMSX3("D1_TES")[1]+1,/*LPIXEL*/,/*{|| CODE-BLOCK DE IMPRESSAO }*/)
TRCELL():NEW(OSECTION1, "D1_FORNECE" ,"QRYSD1", 'FORNECEDOR' ,PESQPICT('SD1',"D1_FORNECE") ,TAMSX3("D1_FORNECE")[1]+1,/*LPIXEL*/,/*{|| CODE-BLOCK DE IMPRESSAO }*/)
TRCELL():NEW(OSECTION1, "D1_LOJA" ,"QRYSD1", 'LOJA' ,PESQPICT('SD1',"D1_LOJA") ,TAMSX3("D1_LOJA")[1]+1,/*LPIXEL*/,/*{|| CODE-BLOCK DE IMPRESSAO }*/)
TRCELL():NEW(OSECTION1, "D1_DOC" ,"QRYSD1", 'NF' ,PESQPICT('SD1',"D1_DOC") ,TAMSX3("D1_DOC")[1]+1,/*LPIXEL*/,/*{|| CODE-BLOCK DE IMPRESSAO }*/)
TRCELL():NEW(OSECTION1, "D1_EMISSAO" ,"QRYSD1", 'EMISSAO' ,PESQPICT('SD1',"D1_EMISSAO") ,TAMSX3("D1_EMISSAO")[1]+1,/*LPIXEL*/,/*{|| CODE-BLOCK DE IMPRESSAO }*/)

OBREAK := TRBREAK():NEW(OSECTION1,{||OSECTION1:CELL("D1_FILIAL"):UPRINT},'SUB-TOTAL',.F.)

TRFUNCTION():NEW(OSECTION1:CELL("D1_QUANT"),,"SUM",,,"@E 999999",,.F.,.T.)

//SECAO 2
OSECTION2 := TRSECTION():NEW(OREPORT,"FILIAL",{"QRYSD2"})
OSECTION2:SETTOTALINLINE(.F.)

TRCELL():NEW(OSECTION2, "D2_COD" ,"QRYSD2", 'CODIGO' ,PESQPICT('SD2',"D2_COD") ,TAMSX3("D2_COD")[1]+1,/*LPIXEL*/,/*{|| CODE-BLOCK DE IMPRESSAO }*/)
TRCELL():NEW(OSECTION2, "D2_QUANT" ,"QRYSD2", 'QUANTIDADE' ,PESQPICT('SD2',"D2_QUANT") ,TAMSX3("D2_QUANT")[1]+1,/*LPIXEL*/,/*{|| CODE-BLOCK DE IMPRESSAO }*/)
TRCELL():NEW(OSECTION2, "D2_TES" ,"QRYSD2", 'TES' ,PESQPICT('SD2',"D2_TES") ,TAMSX3("D2_TES")[1]+1,/*LPIXEL*/,/*{|| CODE-BLOCK DE IMPRESSAO }*/)
TRCELL():NEW(OSECTION2, "D2_FORNECE" ,"QRYSD2", 'CLIENTE' ,PESQPICT('SD2',"D2_CLIENTE") ,TAMSX3("D2_CLIENTE")[1]+1,/*LPIXEL*/,/*{|| CODE-BLOCK DE IMPRESSAO }*/)
TRCELL():NEW(OSECTION2, "D2_LOJA" ,"QRYSD2", 'LOJA' ,PESQPICT('SD2',"D2_LOJA") ,TAMSX3("D2_LOJA")[1]+1,/*LPIXEL*/,/*{|| CODE-BLOCK DE IMPRESSAO }*/)
TRCELL():NEW(OSECTION2, "D2_DOC" ,"QRYSD2", 'NF' ,PESQPICT('SD2',"D2_DOC") ,TAMSX3("D2_DOC")[1]+1,/*LPIXEL*/,/*{|| CODE-BLOCK DE IMPRESSAO }*/)
TRCELL():NEW(OSECTION2, "D2_EMISSAO" ,"QRYSD2", 'EMISSAO' ,PESQPICT('SD2',"D2_EMISSAO") ,TAMSX3("D2_EMISSAO")[1]+1,/*LPIXEL*/,/*{|| CODE-BLOCK DE IMPRESSAO }*/)

OBREAK := TRBREAK():NEW(OSECTION2,{||OSECTION2:CELL("D2_FILIAL"):UPRINT},'SUB-TOTAL',.F.)

TRFUNCTION():NEW(OSECTION2:CELL("D2_QUANT"),,"SUM",,,"@E 999999",,.F.,.T.)

Agora eu preciso de uma função que diminua a primeira TRFUNCTION da segunda.
Como eu faço isso?