Fórum Valor Por Extenso no QR #188011
11/10/2003
0
Colegas,
Já tenho a função para escrever valor por extenso. Em modo de execução funciona muito bem. O problema ocorre quando tento imprimir os registros Detail de uma tabela no QR. Não funciona. Alguém sabe onde coloco o código e qual o código correto ?
Obrigado
Já tenho a função para escrever valor por extenso. Em modo de execução funciona muito bem. O problema ocorre quando tento imprimir os registros Detail de uma tabela no QR. Não funciona. Alguém sabe onde coloco o código e qual o código correto ?
Obrigado
Cbier
Curtir tópico
+ 0
Responder
Posts
12/10/2003
Fabio.hc
Tente assim.
procedure TForm1.QRBand3BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
begin
Qrlabel1.Caption:=FuncaoExtenso(QRExpr1.Value.dblResult);
end;
procedure TForm1.QRBand3BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
begin
Qrlabel1.Caption:=FuncaoExtenso(QRExpr1.Value.dblResult);
end;
Responder
Gostei + 0
13/10/2003
Cbier
Fabio,
Obrigado pela atenção.
Ainda não deu certo.
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 ??
Obrigado pela atenção.
Ainda não deu certo.
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 ??
Responder
Gostei + 0
13/10/2003
Fabio.hc
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 ??
Vc tem que usar o campo da sua tabela, não o ´Qrdbtext´:
QRLabel64.text := Extenso(tabela.valor);
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)