Enviar variável tipo float para Fast Report
Boa tarde.
Estou precisando do meu programa enviar uma variável do tipo float para o FastReport, dentro do Fast preciso somar essa variavel com outros valores.
Variaveis do tipo string consigo fazer sem problema.
Alguem sabe como fazer isso?
Desde ja agradeço
Att
Osvaldo
Estou precisando do meu programa enviar uma variável do tipo float para o FastReport, dentro do Fast preciso somar essa variavel com outros valores.
Variaveis do tipo string consigo fazer sem problema.
Alguem sabe como fazer isso?
Desde ja agradeço
Att
Osvaldo
Osvaldo Anjo
Curtidas 0
Respostas
Osvaldo Anjo
30/06/2016
Boa tarde.
Para quem tiver o mesmo problema resolví da seguinte forma
No meu formulário Delphi tenho o seguinte código:
//Pegar Saldo Anterior
total:=0;
volume:=0;
cubagem:=0;
peso:=0;
qtd:=0;
saldo:=0;
m2:=0;
dmAux.cdsTmpMovEstoque.First;
while not dmAux.cdsTmpMovEstoque.Eof do
begin
volume:=volume+dmAux.cdsTmpMovEstoqueQtd_volume.AsFloat;
qtd:=qtd+dmAux.cdsTmpMovEstoqueQuantidade.AsFloat;
peso:=peso+dmAux.cdsTmpMovEstoquePeso.AsFloat;
cubagem:=cubagem+dmAux.cdsTmpMovEstoqueCubagem.AsFloat;
m2:=m2+dmAux.cdsTmpMovEstoqueM2.AsFloat;
total:=total+dmAux.cdsTmpMovEstoqueTotal.AsFloat;
dmAux.cdsTmpMovEstoque.Next;
end;
//Cria variaveis no Fast, as variaveis não precisam existir
frxExtratoFat.variables.clear;
frxExtratoFat.Script.Variables['saCarga']:=total;
frxExtratoFat.Script.Variables['saPeso']:=peso;
frxExtratoFat.Script.Variables['saCubagem']:=cubagem;
frxExtratoFat.Script.Variables['saM2']:=m2;
frxExtratoFat.ShowReport();
No Fast fiz o seguinte código:
procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
memo32.text:=formatFloat(',#0.00',saCarga);
memo33.text:=formatFloat(',#0.00000',saPeso);
memo34.text:=formatFloat(',#0.0000',saCubagem);
memo35.text:=formatFloat(',#0.0000',saM2);
tEntrada:=0;
tPeso:=0;
tCubagem:=0;
tM2:=0;
procedure Child6OnBeforePrint(Sender: TfrxComponent);
begin
memo28.text:=formatFloat(',#0.00',saCarga + tEntrada);
memo29.text:=formatFloat(',#0.00000',saPeso + tPeso);
memo30.text:=formatFloat(',#0.0000',saCubagem + tCubagem);
memo31.text:=formatFloat(',#0.0000',saM2 + tM2);
end;
Para quem tiver o mesmo problema resolví da seguinte forma
No meu formulário Delphi tenho o seguinte código:
//Pegar Saldo Anterior
total:=0;
volume:=0;
cubagem:=0;
peso:=0;
qtd:=0;
saldo:=0;
m2:=0;
dmAux.cdsTmpMovEstoque.First;
while not dmAux.cdsTmpMovEstoque.Eof do
begin
volume:=volume+dmAux.cdsTmpMovEstoqueQtd_volume.AsFloat;
qtd:=qtd+dmAux.cdsTmpMovEstoqueQuantidade.AsFloat;
peso:=peso+dmAux.cdsTmpMovEstoquePeso.AsFloat;
cubagem:=cubagem+dmAux.cdsTmpMovEstoqueCubagem.AsFloat;
m2:=m2+dmAux.cdsTmpMovEstoqueM2.AsFloat;
total:=total+dmAux.cdsTmpMovEstoqueTotal.AsFloat;
dmAux.cdsTmpMovEstoque.Next;
end;
//Cria variaveis no Fast, as variaveis não precisam existir
frxExtratoFat.variables.clear;
frxExtratoFat.Script.Variables['saCarga']:=total;
frxExtratoFat.Script.Variables['saPeso']:=peso;
frxExtratoFat.Script.Variables['saCubagem']:=cubagem;
frxExtratoFat.Script.Variables['saM2']:=m2;
frxExtratoFat.ShowReport();
No Fast fiz o seguinte código:
procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
memo32.text:=formatFloat(',#0.00',saCarga);
memo33.text:=formatFloat(',#0.00000',saPeso);
memo34.text:=formatFloat(',#0.0000',saCubagem);
memo35.text:=formatFloat(',#0.0000',saM2);
tEntrada:=0;
tPeso:=0;
tCubagem:=0;
tM2:=0;
procedure Child6OnBeforePrint(Sender: TfrxComponent);
begin
memo28.text:=formatFloat(',#0.00',saCarga + tEntrada);
memo29.text:=formatFloat(',#0.00000',saPeso + tPeso);
memo30.text:=formatFloat(',#0.0000',saCubagem + tCubagem);
memo31.text:=formatFloat(',#0.0000',saM2 + tM2);
end;
GOSTEI 0