rpt_lxql.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{               下级零星请领单补录--打印                }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{               编制：中软金马项目开发组                }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模块在零枚票管理模块 需求管理部分的下级零星请领单补录模块 调用。
*)

unit Rpt_Lxql;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Qrctrls, QuickRpt, ExtCtrls, DBTables, Db;

type
  TFrmLxQl = class(TForm)
    qrpQld: TQuickRep;
    DetailBand1: TQRBand;
    QRShape3: TQRShape;
    QRSysData2: TQRSysData;
    QRShape4: TQRShape;
    QRShape5: TQRShape;
    QRShape6: TQRShape;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    PageFooterBand1: TQRBand;
    QRLabel9: TQRLabel;
    qrlZbr: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    qrlZbrq: TQRLabel;
    QRSysData3: TQRSysData;
    QRLabel8: TQRLabel;
    QRShape7: TQRShape;
    QRShape10: TQRShape;
    QRShape9: TQRShape;
    QRExpr1: TQRExpr;
    QRShape12: TQRShape;
    QRSysData4: TQRSysData;
    QRLabel14: TQRLabel;
    TitleBand1: TQRBand;
    QRShape1: TQRShape;
    QRShape11: TQRShape;
    QRLabel6: TQRLabel;
    QRLabel10: TQRLabel;
    qrlQldh: TQRLabel;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRShape15: TQRShape;
    QRImage1: TQRImage;
    QRLabel11: TQRLabel;
    QRSysData1: TQRSysData;
    QRLabel4: TQRLabel;
    QRLabel3: TQRLabel;
    QRShape2: TQRShape;
    QRLabel5: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRShape8: TQRShape;
    qryRpt: TQuery;
    UpdateSQL1: TUpdateSQL;
    QRDBText6: TQRDBText;
    qryRptDWMC: TStringField;
    qryRptPPMC: TStringField;
    qryRptTB: TFloatField;
    qryRptMZ: TFloatField;
    qryRptSL: TFloatField;
    qryRptJE: TFloatField;
    qryRptZBR: TStringField;
    qryRptZBRQ: TDateTimeField;
    procedure FormShow(Sender: TObject);
    procedure qrpQldBeforePrint(Sender: TCustomQuickRep;
      var PrintReport: Boolean);
    procedure qryRptJEGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    { Private declarations }
    FQldh: string;
    procedure InitForm(Sender: TObject);
    procedure GetPrintData(Sender: TObject);
    procedure SetQldh(const Value: string);
  public
    { Public declarations }
    procedure PrintZxd(Sender: TObject; cFlag: integer);
    property Qldh: string read FQldh write SetQldh;
  end;

var
  FrmLxQl: TFrmLxQl;

implementation

uses datas, pub;

{$R *.DFM}

const cPrintRows = 32;

{ TFrmLxQl }

procedure TFrmLxQl.InitForm(Sender: TObject);
begin

end;


procedure TFrmLxQl.FormShow(Sender: TObject);
begin
  InitForm(self);
end;


procedure TFrmLxQl.SetQldh(const Value: string);
begin
  FQldh := Value;
end;


procedure TFrmLxQl.GetPrintData(Sender: TObject);
const csGetPrintData: string
                    = ' select g.dwmc, ppmc, to_number(substr(ppdm,12,2)) tb, mz, '
                    + '  sl, je, zbr, zbrq from tys_txpqld q,tgs_gxdwsjb g '
                    + ' where  q.qldh = :qldh and g.dwdm = q.dwdm ';
begin
  with qryRpt do
  begin
    Close;
    Sql.Clear;
    Sql.Add(csGetPrintData);
    ParamByName('qldh').AsString := FQldh;
    Open;
  end;

end;


procedure TFrmLxQl.PrintZxd(Sender: TObject; cFlag: integer);
begin
  GetPrintData(Sender);
  case cFlag of
    1: qrpQld.print;
    2: qrpQld.preview;
  end;
  
end;


procedure TFrmLxQl.qrpQldBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
var
  i ,oldRecordCount:Integer;
begin
  qrlQldh.Caption := FQldh;
  qryRpt.First;
  qrlZbr.Caption := qryRpt.FieldByName('zbr').AsString;
  qrlzbrq.Caption := qryRpt.FieldByName('zbrq').AsString;

  OldRecordCount := qryRpt.RecordCount;
  if (OldRecordCount mod cPrintRows) <> 0 then
  for i:= 1 to cPrintRows - (OldRecordCount mod cPrintRows) do
  begin
    qryRpt.AppendRecord(['',nil,nil,nil,nil,nil,nil,nil]);
  end;

end;

procedure TFrmLxQl.qryRptJEGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
{  if Sender.AsFloat <> 0.0 then
    Text := FormatFloat('#,##0.00',Sender.AsFloat)
  else
    Text := '';}
  CurrGetText(Sender, Text, DisplayText);

end;

end.


{


#####0.0000

}