124 lines
3.0 KiB
ObjectPascal
124 lines
3.0 KiB
ObjectPascal
|
unit U_frmsmewm;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|||
|
|
Dialogs, StdCtrls, DB, ADODB, RM_System, RM_Common, RM_Class, RM_GridReport,
|
|||
|
|
RM_Dataset;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
Tfrmsmewm = class(TForm)
|
|||
|
|
Label1: TLabel;
|
|||
|
|
APID: TEdit;
|
|||
|
|
ADOQueryPrint: TADOQuery;
|
|||
|
|
ADOTmp: TADOQuery;
|
|||
|
|
ADOCmd: TADOQuery;
|
|||
|
|
RM2: TRMGridReport;
|
|||
|
|
Button2: TButton;
|
|||
|
|
RMDB_Main: TRMDBDataSet;
|
|||
|
|
ComboBox1: TComboBox;
|
|||
|
|
Button1: TButton;
|
|||
|
|
procedure APIDKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
procedure Button2Click(Sender: TObject);
|
|||
|
|
procedure FormShow(Sender: TObject);
|
|||
|
|
procedure Button1Click(Sender: TObject);
|
|||
|
|
// procedure FormKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
private
|
|||
|
|
{ Private declarations }
|
|||
|
|
public
|
|||
|
|
{ Public declarations }
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
frmsmewm: Tfrmsmewm;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
U_DataLink, U_Fun, U_ZDYHelp, U_iniParam, U_ClothHCList, MMSystem;
|
|||
|
|
|
|||
|
|
{$R *.dfm}
|
|||
|
|
|
|||
|
|
procedure Tfrmsmewm.APIDKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
if Key = #13 then
|
|||
|
|
begin
|
|||
|
|
Button2.Click;
|
|||
|
|
end;
|
|||
|
|
with ADOTmp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('select A.* from WFB_MJJY A');
|
|||
|
|
SQL.Add(' where A.MJID=''' + Trim(APID.Text) + '''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure Tfrmsmewm.Button2Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
fPrintFile: string;
|
|||
|
|
FMJID: string;
|
|||
|
|
begin
|
|||
|
|
with ADOQueryPrint do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('select A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.conNo,B.customerNoName,B.OrdDate,B.NO,B.LBName ');
|
|||
|
|
sql.Add(',EngColor=(select max(Note) from KH_Zdy X where X.ZDYName=C.PRTColor and X.Type=''OrdColor'' ) ');
|
|||
|
|
sql.Add(',B.MPRTCF,C.*,A.* ');
|
|||
|
|
sql.Add(' from WFB_MJJY A');
|
|||
|
|
sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid');
|
|||
|
|
sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
|
|||
|
|
SQL.Add(' where A.MJID=''' + APID.Text + '''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('Slbname').AsString);
|
|||
|
|
ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('Slbname').AsString), ADOCmd);
|
|||
|
|
|
|||
|
|
|
|||
|
|
// if Trim(ADOQueryPrint.fieldbyname('Slbname').AsString) <> '' then
|
|||
|
|
// begin
|
|||
|
|
// fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('Slbname').AsString);
|
|||
|
|
// ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('Slbname').AsString), ADOCmd);
|
|||
|
|
// end
|
|||
|
|
// else
|
|||
|
|
// begin
|
|||
|
|
// fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ͨ<>ñ<EFBFBD>ǩ.rmf';
|
|||
|
|
// ExportFtErpFile('ͨ<>ñ<EFBFBD>ǩ.rmf', ADOCmd);
|
|||
|
|
// end;
|
|||
|
|
|
|||
|
|
if not FileExists(fPrintFile) then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox(PChar('û<><C3BB><EFBFBD>ҵ<EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
if FileExists(fPrintFile) then
|
|||
|
|
begin
|
|||
|
|
RM2.LoadFromFile(fPrintFile);
|
|||
|
|
RM2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);
|
|||
|
|
// RM2.DefaultCopies := 1;
|
|||
|
|
// RM2.ShowReport;
|
|||
|
|
RM2.printReport;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
APID.Text := '';
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure Tfrmsmewm.FormShow(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
APID.SetFocus;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure Tfrmsmewm.Button1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
APID.Text := '';
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|
|||
|
|
|