Fórum Onde executar esta rotina..(somar horas) #260451

OLÁ GALERA,
GOSTARIA DE SABER ONDE EXECUTO A ROTINA PRA RESOLVER ISSO:

TENHO UM RELATÓRIO QUE AGRUPA POR MÊS..OU SEJA,USO NO RELATORIO
UM QRGROUP E DE EXPRESSION USO COPY(QHORAS.DATA,4,7) OU SEJA
MES E ANO.. ATÉ AI TUDO LEGAL.. ACONTECEU QUE TENHO QUE SOMAR AS HORAS.
NO MEU BD ELA ESTÁ COMO STRING..
DO MODO COMO ESTOU FAZENDO ATUALMENTE SÓ FAÇO UM TOTAL GERAL NO FIM..
OU SEJA.. SE ESCOLHO UMA DATA QUE INCLUI MAIS DE UM MÊS POR EXEMPLO..
SÓ SAI O TOTAL GERAL, MAS EU QUERIA UM SUBTOTAL MENSAL..

ESTOU FAZENDO DA SEGUINTE FORMA:;
CRIEI UM CAMPO CALCULADO TCREDITO DO TIPO TIME.. QUE RECEBE O VALOR DO CAMPO
CREDITO(QUE SÃO AS HORAS DE CREDITO) QUE ESTÃO COM O TIPO STRING;

procedure TDM.QHORASCalcFields(DataSet: TDataSet);
begin
DM.QHORASTCREDITO.Value:=strtotime(DM.QHORASCREDITO.value);
end;


QDO VOU CHAMAR O RELATORIO FAÇO O SEGUINTE

...
WHILE NOT DM.QHORAS.Eof DO
BEGIN
HORAS:= HORAS+DM.QHORASTCREDITO.Value;
DM.QHORAS.Next;
END;
FRMRELHORAS.QRLABEL5.CAPTION:= TIMETOSTR(HORAS);
FRMRELHORAS.QuickRep.Prepare;
FRMRELHORAS.QuickRep.Preview;


ONDE VCS ACHAM QUE DEVO EXECUTAR ESSA SOMA.. OU VCS TEM OUTRA IDÉIA PRA ME DAR..
VALEU
JM