Casas decimais diferentes em um mesmo relatorio c/ Quick Rep

Question

Tenho uma query com os campos PRODUTO, UNIDADE, VALOR, sendo que a unidade varia de Kg, g, m, h, ton e muitos outros. Gostaria que no relat�rio as casas decimais do VALOR fosse diferente conforme o ca...

Aroldo Zanela · Answer

#,,....

Lazaro Capel · Answer

#.., realmente parace ser f�cil ou at� pode n�o ser d�ficil
mas . . . oque realmente preciso saber � como mudar de mascara a cada linha do relat�rio, variando conform o cadastro do produto que esta sendo listado.

Kfe · Answer

O campo valor deve ser do tipo num�rico. Ent�o fa�a o seguinte:
Ponha um qrlabel na detail banda
no evento before print fa�a o seguinte:

if datasetUNIDADE.value=�kg� then
qrlabel1.caption:=formatfloat(�mascaraKG�,datasetVALOR.value)
else
if datasetUNIDADE.value=�g� then
qrlabel1.caption:=formatfloat(�mascaraG�,datasetVALOR.value)

e assim por diante. S� n�o esque�a de trocar onde est� mascararKG pela mascara de kilograma (#,0.00 ou a que vc escolher)
Espero qeui ajude
at� mais

Jairroberto · Answer

Ol�, LazaroCapel!Seguindo os conselhos de alguns desenvolvedores experientes, sempre dou prefer�ncia por manter as regras de neg�cio separadas da camada de exibi��o e manipula��o das informa��es. Sendo assim, acho mais adquado escrever a rotina de exibi��o do valor em um lugar que seja acess�vel tanto para o relat�rio como para o DBEdit ou DBGrid do formul�rio de exibi��o e entrada de dados, ou mesmo para a rotina de exporta��o.Por isso, acho bastante conveniente, neste caso, usar o evento [b:0863ae2166]OnGetText[/b:0863ae2166] do objeto TField que representa o campo VALOR. Este evento ocorre sempre que o campo precisa ser exibido. Veja um exemplo:[code:1:0863ae2166]procedure TForm1.Query1VALORGetText(Sender: TField; var Text: String; DisplayText: Boolean);begin  if DisplayText then  begin    if Query1UNIDADE.AsString = �Kg� then      Text := FormatFloat(�,0.00�, Sender.AsFloat)    else    if Query1UNIDADE.AsString = �ton� then      Text := FormatFloat(�,0.000�, Sender.AsFloat)    else    if Query1UNIDADE.AsString = �g� then      Text := FormatFloat(�,0.0000�, Sender.AsFloat)    else      Text := Sender.AsString;  end  else    Text := Sender.AsString;end;[/code:1:0863ae2166]Os par�metros recebidos pelo evento s�o:Sender: TField = objeto correspondente ao campo cujo texto de exibi��o deve ser retornadovar Text: String = string � qual dever� ser atribu�do o texto de exibi��o desejadoDisplayText: Boolean = indica se o evento deve retornar a propriedade DisplayText (formatado pel...

F�rum Casas decimais diferentes em um mesmo relatorio c/ Quick Rep #168599