Fórum Dúvida sobre Funções #188788
15/10/2003
0
Já tenho a função para escrever valor por extenso. Em modo de execução funciona muito bem (desde que exista apenas um ítem). O problema ocorre quando tento imprimir os registros de uma tabela no QR. Estes registros estão numa SubDetailBand.
Estou tentando da seguinte forma:
procedure TfRelatorio.QRSubDetail3BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var ValorExtenso: string;
begin
If QRDBText35.Text <> ´´ Then Begin //local onde está o valor em R$
ValorExtenso := Extenso( StrToFloat(QRDBText35.Text) );
QRLabel64.text := ValorExtenso;
end;
Também não dá. O campo onde está o valor é em formatcurr.
Onde será que está o erro ??
Os dados estão em um field de uma TTable Filha.
[i:6d6c7956e8]Título editado. Leia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689&sid=add834b4ed94967502cf2381c38e751a][u:6d6c7956e8]Regras de Conduta[/u:6d6c7956e8][/url]. (marcelo.c – Moderador)[/i:6d6c7956e8]
Estou tentando da seguinte forma:
procedure TfRelatorio.QRSubDetail3BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var ValorExtenso: string;
begin
If QRDBText35.Text <> ´´ Then Begin //local onde está o valor em R$
ValorExtenso := Extenso( StrToFloat(QRDBText35.Text) );
QRLabel64.text := ValorExtenso;
end;
Também não dá. O campo onde está o valor é em formatcurr.
Onde será que está o erro ??
Os dados estão em um field de uma TTable Filha.
[i:6d6c7956e8]Título editado. Leia as [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689&sid=add834b4ed94967502cf2381c38e751a][u:6d6c7956e8]Regras de Conduta[/u:6d6c7956e8][/url]. (marcelo.c – Moderador)[/i:6d6c7956e8]
Cbier
Curtir tópico
+ 0
Responder
Posts
16/10/2003
Adilsond
QRLabel64.text := Extenso(QRDBText35.DataSet.FieldByName(QRDBText1.DataField).Value);
ou
QRLabel64.text := Extenso(Tabela/QueryCampo.Value);
ou
QRLabel64.text := Extenso(Tabela/QueryCampo.Value);
Responder
Gostei + 0
16/10/2003
Adilsond
Ps: Seja mais ponderado com o título de suas perguntas. Dificilmente, eu e imagino que vários outros colegas, leio e respondo perguntas com títulos deste tipo.
Responder
Gostei + 0
16/10/2003
Cbier
Estou de acôrdo em grau e gênero com sua colocação a respeito do título, apenas estava entrando em desespero para obter um resultado positivo.
Vou tentar com a sua dica, apenas uma dúvida.
O valor que está no QRDBText35 (valor currency) aparecerá por extenso no QRLabel64. Não entendi a finalidade do QRDBText1 na linha.
Obrigado
CBier
Vou tentar com a sua dica, apenas uma dúvida.
O valor que está no QRDBText35 (valor currency) aparecerá por extenso no QRLabel64. Não entendi a finalidade do QRDBText1 na linha.
Obrigado
CBier
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)