u_clientesquebra.pas

print component for dot matrix

unit U_clientesquebra;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, Db, DBTables, RDprint;

type
  Tdfm_clientesquebra = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    RDprint1: TRDprint;
    Query1: TQuery;
    Query1Codigo: TIntegerField;
    Query1Razao: TStringField;
    Query1Endereco: TStringField;
    Query1Bairro: TStringField;
    Query1Cidade: TStringField;
    Query1Estado: TStringField;
    Query1Cep: TStringField;
    Query1Data_Compra: TDateField;
    Query1Valor_Compra: TBCDField;
    Query1CGC_CPF: TStringField;
    Query1Inscricao: TStringField;
    CheckBox3: TCheckBox;
    Bevel1: TBevel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Memo1: TMemo;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure quebracidade;
    procedure totalquebra;
    procedure BitBtn2Click(Sender: TObject);
    procedure RDprint1BeforeNewPage(Sender: TObject; Pagina: Integer);
    procedure RDprint1NewPage(Sender: TObject; Pagina: Integer);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfm_clientesquebra: Tdfm_clientesquebra;
  linha    : integer;
  subtotal : double;
  cidadews : string;

implementation

{$R *.DFM}

procedure Tdfm_clientesquebra.BitBtn1Click(Sender: TObject);
var
     totalgeral : double;
begin
     // Ajusta preview de acordo com a op玢o do cliente...
     rdprint1.OpcoesPreview.Preview := checkbox1.Checked;

     rdprint1.abrir;            // Inicia a montagem do relat髍io...

     // Chama setup e se clicar em "CANCELAR" ent鉶 abandona...
     if checkbox2.Checked then
        if RDprint1.Setup = false then
           begin
           showmessage('Cancelado pelo usu醨io...');
           exit;
           end;

     // Zera variaveis para iniciar o relat髍io...
     linha            := 7;
     subtotal         := 0;
     totalgeral       := 0;

     Query1.active    := true; // Abre a tabela classificando por CIDADE e RAZAO
     Query1.First;
     cidadews         := 'Forca quebra'; // For鏰 1