campo calculado não imprimi no QR
a situação é a seguinte:
Criei um campo calculado no SQLQuery chamado TOTALOS. No evento onCalcFields fiz a totalização no campo:
[color=red:3892351417]procedure TDM.QConsrelCalcFields(DataSet: TDataSet);
begin
QConsrel.fieldByName(´TOTALOS´).AsCurrency := (DM.QConsrel.FieldByname(´Valoros´).AsCurrency - (DM.QConsrel.FieldByname(´Valoros´).AsCurrency * (DM.QConsrel.FieldByname(´DESC´).AsCurrency)/100));
end;[/color:3892351417]
no relatorio determinei o campo no QRDBtext normalmente, so que ao mandar imprimir o primeiro registro sempre sai zerado, so imprimir o campo a partir do segundo registro.
Alguem ja passou por isto e como resolveu
Obrigado
Claudio
Criei um campo calculado no SQLQuery chamado TOTALOS. No evento onCalcFields fiz a totalização no campo:
[color=red:3892351417]procedure TDM.QConsrelCalcFields(DataSet: TDataSet);
begin
QConsrel.fieldByName(´TOTALOS´).AsCurrency := (DM.QConsrel.FieldByname(´Valoros´).AsCurrency - (DM.QConsrel.FieldByname(´Valoros´).AsCurrency * (DM.QConsrel.FieldByname(´DESC´).AsCurrency)/100));
end;[/color:3892351417]
no relatorio determinei o campo no QRDBtext normalmente, so que ao mandar imprimir o primeiro registro sempre sai zerado, so imprimir o campo a partir do segundo registro.
Alguem ja passou por isto e como resolveu
Obrigado
Claudio
Dpinho
Curtidas 0
Respostas
Aroldo Zanela
26/01/2006
Colega,
Nunca passei, mas vou arriscar um chute. Aplique um Last e First para deslocar o cursor do banco e forçar o disparo do evento antes da impressão/prévia do relatório.
Nunca passei, mas vou arriscar um chute. Aplique um Last e First para deslocar o cursor do banco e forçar o disparo do evento antes da impressão/prévia do relatório.
GOSTEI 0