unit uKorrekrurbelicht;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, StdCtrls, Buttons,
Db, DBTables;
type
TfrmKorrekrurbelicht = class(TForm)
DBGrid1: TDBGrid;
BitBtn1: TBitBtn;
SpeedButton1: TSpeedButton;
DataSource1: TDataSource;
Query1: TQuery;
BitBtn2: TBitBtn;
CheckBox1: TCheckBox;
Label1: TLabel;
procedure SpeedButton1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
frmKorrekrurbelicht: TfrmKorrekrurbelicht;
implementation
uses udatModulAusgabe, uLfdNummer, uQRListe, udatModule, uATVConsts;
{$R *.DFM}
procedure TfrmKorrekrurbelicht.SpeedButton1Click(Sender: TObject);
begin
with Query1 do
begin
with
SQL do
begin
Clear;
Add('SELECT DISTINCT D.LaufendeNummer, D.SortierBegriff, D.BearbeitungsStatus, D2.VerbindungsArt, D2.VerbindungsDaten, D3.Drucktext ');
Add('FROM '+Firmen +' D, '+FirmenAnschriften+' D1, '+FirmenVerbindungen+' D2, '+FirmenDrucktexte+' D3 ');
Add('WHERE ((D.BearbeitungsStatus = 1.0) OR (D.BearbeitungsStatus = 2.0)) ');
Add('AND (D1.FirmaID = D.IDFirma) ');
Add('AND (D2.FirmaID = D1.FirmaID) ');
Add('AND (D2.AnschriftID = D1.IDAnschrift) ');
Add('AND ((D2.VerbindungsArt = 3.0) OR (D2.VerbindungsArt = 4.0)) ');
Add('AND (D3.FirmaID = D.IDFirma) ');
D2.VerbindungsDaten, D.BearbeitungsStatus');
If frmLaufendeNummern.RadioButton1.Checked Then
Add('ORDER BY D.' + SortierBegriff)
else
Add('ORDER BY D.' + LaufendeNummer);
end;
open;
end;
frmQRListe.Show;
If not CheckBox1.Checked Then
frmQRListe.Quickrep1.Print
else
frmQRListe.Quickrep1.Preview;
frmQRListe.Close;
end;
procedure TfrmKorrekrurbelicht.FormShow(Sender: TObject);
begin
Label1.Caption := IntToStr(datModulAusgabe.qryMKorrekturFirmenAnschriften.RecordCount);
end;
end.