rique_neves Mestre
Registrado: Sexta-Feira, 17 de Fevereiro de 2012 Mensagens: 873
|
Enviada: Ter Fev 21, 2017 11:56 am Assunto: Etiqueta Gondola FortesReport [Concluido] |
|
|
Pessoal gostaria que me ajuda-se a entender o que acontece, pois quando escolho mais de uma quantidade da mesma etiqueta por exemplo o codigo de barras nao aparece na segunda!
Desde já agradeço.
Segue imagem e codigo da unit.
Código: |
unit UEtqGondola;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, RLReport, RLBarcode;
type
TfrmEtqGondola = class(TForm)
RLReport1: TRLReport;
RLDetailGrid1: TRLDetailGrid;
RLBarcode: TRLBarcode;
RLDescricao: TRLLabel;
RLPreco: TRLLabel;
procedure RLReport1BeforePrint(Sender: TObject; var PrintIt: Boolean);
procedure RLReport1NeedData(Sender: TObject; var MoreData: Boolean);
procedure RLDetailGrid1BeforePrint(Sender: TObject; var PrintIt: Boolean);
private
{ Private declarations }
QtdEtqImpressas: integer;
public
{ Public declarations }
resultado :string;
end;
var
frmEtqGondola: TfrmEtqGondola;
implementation
uses Uetiquetas;
{$R *.dfm}
procedure TfrmEtqGondola.RLDetailGrid1BeforePrint(Sender: TObject;
var PrintIt: Boolean);
var
i: Integer;
Codbarras: string;
begin
Codbarras := frmetiquetas.cdsItens.FieldByName('codbarras').AsString;
RLDescricao.Caption := frmetiquetas.cdsItens.FieldByName('descricao').AsString;
Rlpreco.Caption :='R$ '+FormatFloat('##,##0.00',(StrToFloat(StringReplace(frmetiquetas.cdsItens.FieldByName('venda').AsString, ThousandSeparator,'', [rfReplaceAll]))));
RLBarcode.Caption := Codbarras;
end;
procedure TfrmEtqGondola.RLReport1BeforePrint(Sender: TObject;
var PrintIt: Boolean);
begin
QtdEtqImpressas := 0;
frmetiquetas.cdsItens.First;
PrintIt := not frmetiquetas.cdsItens.Eof;
end;
procedure TfrmEtqGondola.RLReport1NeedData(Sender: TObject;
var MoreData: Boolean);
var
Codbarras : string;
begin
if QtdEtqImpressas < frmetiquetas.cdsItens.FieldByName('qtdetiqueta').AsInteger then
begin
Inc(QtdEtqImpressas);
MoreData := true;
end
else
begin
QtdEtqImpressas := 1;
frmetiquetas.cdsItens.Next;
MoreData := not frmetiquetas.cdsItens.Eof;
end;
end;
end.
|
_________________ Atrás de todo problema a uma oportunidade brilhantemente disfarçada!
Compartilhar Imagens .: http://s124.photobucket.com/ |
|