Valor Por Extenso no QR
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
Curtidas 0
Respostas
Fabio.hc
11/10/2003
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;
GOSTEI 0
Cbier
11/10/2003
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 ??
GOSTEI 0
Fabio.hc
11/10/2003
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);
GOSTEI 0