396 lines
10 KiB
ObjectPascal
396 lines
10 KiB
ObjectPascal
unit U_CPZDDB;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||
cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
|
||
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView,
|
||
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
|
||
cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, RM_System, RM_Common,
|
||
RM_Class, RM_GridReport, RM_Dataset, cxCalendar, MMSystem, U_BaseList,
|
||
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
|
||
cxNavigator, dxDateRanges, dxBarBuiltInMenu, dxScrollbarAnnotations;
|
||
|
||
type
|
||
TfrmCPZDDB = class(TfrmBaseList)
|
||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||
ADOQueryTemp: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
ADOQueryMain: TADOQuery;
|
||
Panel1: TPanel;
|
||
Button2: TButton;
|
||
DS_RKJL: TDataSource;
|
||
CDS_RKJL: TClientDataSet;
|
||
PM_RKJL: TPopupMenu;
|
||
MenuItem1: TMenuItem;
|
||
MenuItem2: TMenuItem;
|
||
RM1: TRMGridReport;
|
||
ADOQueryPrint: TADOQuery;
|
||
RMDB_Main: TRMDBDataSet;
|
||
cxGrid1: TcxGrid;
|
||
Tv1: TcxGridDBTableView;
|
||
v1Column4: TcxGridDBColumn;
|
||
v1Column1: TcxGridDBColumn;
|
||
v2Column1: TcxGridDBColumn;
|
||
v1Column10: TcxGridDBColumn;
|
||
v2Column3: TcxGridDBColumn;
|
||
v1Column8: TcxGridDBColumn;
|
||
v1Column9: TcxGridDBColumn;
|
||
v1Column6: TcxGridDBColumn;
|
||
v1Column13: TcxGridDBColumn;
|
||
v1Column21: TcxGridDBColumn;
|
||
v1Column5: TcxGridDBColumn;
|
||
v1Column3: TcxGridDBColumn;
|
||
v1Column2: TcxGridDBColumn;
|
||
v1Column16: TcxGridDBColumn;
|
||
v2Column5: TcxGridDBColumn;
|
||
v2Column6: TcxGridDBColumn;
|
||
v1Column19: TcxGridDBColumn;
|
||
v1Column22: TcxGridDBColumn;
|
||
v1Column11: TcxGridDBColumn;
|
||
cxGrid1Level1: TcxGridLevel;
|
||
Timer1: TTimer;
|
||
Button1: TButton;
|
||
ComboBox1: TComboBox;
|
||
chkBBQ: TCheckBox;
|
||
CDS_DDB: TClientDataSet;
|
||
Tv1Column1: TcxGridDBColumn;
|
||
Tv1Column2: TcxGridDBColumn;
|
||
Button3: TButton;
|
||
Tv1Column3: TcxGridDBColumn;
|
||
PopupMenu1: TPopupMenu;
|
||
N1: TMenuItem;
|
||
Tv1Column4: TcxGridDBColumn;
|
||
Button4: TButton;
|
||
lbldb: TLabel;
|
||
Edit1: TEdit;
|
||
Tv1Column5: TcxGridDBColumn;
|
||
Tv1Column6: TcxGridDBColumn;
|
||
Tv1Column7: TcxGridDBColumn;
|
||
BegDate: TDateTimePicker;
|
||
EndDate: TDateTimePicker;
|
||
Label1: TLabel;
|
||
Label2: TLabel;
|
||
Packer: TComboBox;
|
||
Tv1Column8: TcxGridDBColumn;
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure Button2Click(Sender: TObject);
|
||
procedure MenuItem1Click(Sender: TObject);
|
||
procedure MenuItem2Click(Sender: TObject);
|
||
procedure Button1Click(Sender: TObject);
|
||
procedure Timer1Timer(Sender: TObject);
|
||
procedure Button3Click(Sender: TObject);
|
||
procedure N1Click(Sender: TObject);
|
||
procedure Button4Click(Sender: TObject);
|
||
procedure Tv1DblClick(Sender: TObject);
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure PackerChange(Sender: TObject);
|
||
private
|
||
{ Private declarations }
|
||
FBaoId: string;
|
||
procedure InitGrid();
|
||
procedure PrintBao(PBaoId: string);
|
||
procedure InitDBJD();
|
||
public
|
||
canshu2: string;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmCPZDDB: TfrmCPZDDB;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_RTFun, U_ZDYHelp;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmCPZDDB.PackerChange(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
initgrid();
|
||
end;
|
||
|
||
procedure TfrmCPZDDB.PrintBao(PBaoId: string);
|
||
var
|
||
fPrintFile, NLBName: string;
|
||
begin
|
||
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('update CK_Cloth_CR set PrtBaoInt=isnull(PrtBaoInt,0)+1 where BaoId=' + quotedstr(PBaoId));
|
||
ExecSQL;
|
||
end;
|
||
|
||
with ADOQueryPrint do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('exec P_DB_Print_Lab ' + quotedstr(PBaoId));
|
||
Open;
|
||
end;
|
||
|
||
NLBName := Trim(ADOQueryPrint.FieldByName('NLBName').AsString);
|
||
|
||
ExportFtErpFile(Trim(NLBName) + '.rmf', ADOQueryTemp);
|
||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(NLBName) + '.rmf';
|
||
if not FileExists(fPrintFile) then
|
||
begin
|
||
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
if FileExists(fPrintFile) then
|
||
begin
|
||
RM1.LoadFromFile(fPrintFile);
|
||
RM1.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);
|
||
RM1.printReport;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmCPZDDB.Timer1Timer(Sender: TObject);
|
||
begin
|
||
Timer1.Enabled := False;
|
||
if chkBBQ.Checked then
|
||
begin
|
||
if CDS_DDB.IsEmpty then
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' select DISTINCT A.baoid ');
|
||
sql.Add(' from CK_Cloth_CR A ');
|
||
sql.Add(' where PrtBaoInt=0 and A.CRFlag in (''<27><><EFBFBD><EFBFBD>'',''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'') and isnull(A.BaoID,'''')<>'''' ');
|
||
if Packer.Text <> '' then
|
||
begin
|
||
sql.Add('and Packer=' + QuotedStr(Packer.Text));
|
||
end;
|
||
Open;
|
||
end;
|
||
if not ADOQueryTemp.IsEmpty then
|
||
begin
|
||
SInitCDSData(ADOQueryTemp, CDS_DDB);
|
||
with CDS_DDB do
|
||
begin
|
||
First;
|
||
while not eof do
|
||
begin
|
||
PrintBao(CDS_DDB.FieldByName('Baoid').AsString);
|
||
Next
|
||
end;
|
||
end;
|
||
InitGrid();
|
||
CDS_DDB.EmptyDataSet;
|
||
end;
|
||
end;
|
||
end;
|
||
Timer1.Enabled := true;
|
||
end;
|
||
|
||
procedure TfrmCPZDDB.Tv1DblClick(Sender: TObject);
|
||
begin
|
||
Edit1.Text := CDS_RKJL.FieldByName('BuyConNoMX').AsString;
|
||
Button4.Click;
|
||
end;
|
||
|
||
procedure TfrmCPZDDB.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
inherited;
|
||
Action := caFree;
|
||
end;
|
||
|
||
procedure TfrmCPZDDB.FormCreate(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
|
||
BegDate.DateTime := EndDate.DateTime;
|
||
canshu2 := Trim(DParameters2);
|
||
end;
|
||
|
||
procedure TfrmCPZDDB.FormDestroy(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
frmCPZDDB := nil;
|
||
end;
|
||
|
||
procedure TfrmCPZDDB.InitDBJD();
|
||
begin
|
||
try
|
||
|
||
with ADOQueryMain do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' select A.* ,B.BuyConNoMX ');
|
||
sql.Add(' from CK_Cloth_CR A left join SalesContract_Sub B on A.ConSubId=B.SubId ');
|
||
sql.Add(' where A.CRFlag=''<27><><EFBFBD><EFBFBD>'' and ISNULL( A.BaoID,'''')<>'''' ');
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryMain, CDS_RKJL);
|
||
|
||
SInitCDSData(ADOQueryMain, CDS_RKJL);
|
||
finally
|
||
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCPZDDB.InitGrid();
|
||
begin
|
||
try
|
||
|
||
with ADOQueryMain do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' select A.* ,B.BuyConNoMX,B.SCSColorNo ');
|
||
sql.Add(' from CK_Cloth_CR A WITH (NOLOCK) left join SalesContract_Sub B on A.ConSubId=B.SubId ');
|
||
sql.Add(' where A.CRFlag=''<27><><EFBFBD><EFBFBD>'' and ISNULL( A.BaoID,'''')<>'''' ');
|
||
sql.Add('and exists(select jyid from jy_cloth E WHERE E.JYID=A.JYID AND E.fdanwei= ' + QuotedStr(Trim(canshu2)));
|
||
// sql.Add(' and Convert(varchar(10),BaoTime,120)=Convert(varchar(10),getdate(),120)');
|
||
//
|
||
sql.Add(' )and BaoTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)));
|
||
sql.Add(' and BaoTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)));
|
||
if Packer.Text <> '' then
|
||
begin
|
||
sql.Add('and Packer=' + QuotedStr(Packer.Text));
|
||
end;
|
||
// showmessage(sql.Text);
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryMain, CDS_RKJL);
|
||
|
||
SInitCDSData(ADOQueryMain, CDS_RKJL);
|
||
finally
|
||
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCPZDDB.FormShow(Sender: TObject);
|
||
var
|
||
fsj: string;
|
||
begin
|
||
inherited;
|
||
|
||
ReadCxGrid('<27><>Ʒɨ<C6B7><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', Tv1, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
|
||
// fsj := 'select distinct name=Packer from JY_Cloth order by Packer ';
|
||
// SInitComBoxBySql(ADOQueryCmd, Packer, False, fsj);
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' select baoid=cast('''' as varchar(100)) ');
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryTemp, CDS_DDB);
|
||
end;
|
||
|
||
procedure TfrmCPZDDB.Button1Click(Sender: TObject);
|
||
begin
|
||
InitGrid();
|
||
end;
|
||
|
||
procedure TfrmCPZDDB.Button2Click(Sender: TObject);
|
||
begin
|
||
WriteCxGrid('<27><>Ʒɨ<C6B7><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', Tv1, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmCPZDDB.Button3Click(Sender: TObject);
|
||
var
|
||
MBaoId: string;
|
||
begin
|
||
with CDS_RKJL do
|
||
begin
|
||
DisableControls;
|
||
while CDS_RKJL.Locate('SSel', True, []) do
|
||
begin
|
||
MBaoId := Trim(CDS_RKJL.FieldByName('BaoId').AsString);
|
||
PrintBao(MBaoId);
|
||
while CDS_RKJL.Locate('SSel;BaoId', VarArrayOf([True, MBaoId]), []) do
|
||
begin
|
||
CDS_RKJL.Edit;
|
||
CDS_RKJL.FieldByName('SSel').Value := False;
|
||
CDS_RKJL.Post;
|
||
end;
|
||
end;
|
||
|
||
EnableControls;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmCPZDDB.Button4Click(Sender: TObject);
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
|
||
sql.Add('select B.BuyConNoMX ');
|
||
sql.Add(',JYPS=SUM(case when isnull(BaoID,'''')='''' then 1 else 0 end) ');
|
||
sql.Add(',DBPS=SUM(case when isnull(BaoID,'''')='''' then 0 else 1 end) ');
|
||
sql.Add('from JY_Cloth A inner join SalesContract_Sub B on A.ConSubId=B.SubId ');
|
||
sql.Add('where A.JYType=''<27><>Ʒ'' and B.BuyConNoMX=' + QuotedStr(Trim(Edit1.Text)));
|
||
sql.Add('group by B.BuyConNoMX ');
|
||
Open;
|
||
end;
|
||
lbldb.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' + ADOQueryTemp.FieldByName('JYPS').AsString + ' <20>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD>' + ADOQueryTemp.FieldByName('DBPS').AsString;
|
||
end;
|
||
|
||
procedure TfrmCPZDDB.MenuItem1Click(Sender: TObject);
|
||
begin
|
||
SelOKNo(CDS_RKJL, True);
|
||
end;
|
||
|
||
procedure TfrmCPZDDB.MenuItem2Click(Sender: TObject);
|
||
begin
|
||
SelOKNo(CDS_RKJL, False);
|
||
end;
|
||
|
||
procedure TfrmCPZDDB.N1Click(Sender: TObject);
|
||
var
|
||
NBaoID: string;
|
||
begin
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫִ<D2AA>в<EFBFBD><D0B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
|
||
Exit;
|
||
NBaoID := trim(CDS_RKJL.FieldByName('BaoID').AsString);
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
|
||
sql.Add('Update JY_Cloth Set BaoNo=null,BaoID=null where isnull(BaoID,'''')<>'''' and BaoID=' + QuotedStr(NBaoID));
|
||
|
||
sql.Add('Update CK_Cloth_CR Set BaoNo=null,BaoID=null,PrtBaoInt=0 where BaoID=' + QuotedStr(NBaoID));
|
||
|
||
ExecSQL;
|
||
end;
|
||
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||
sql.Add(' ' + quotedstr(trim(DName)));
|
||
sql.Add(',getdate() ');
|
||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
|
||
sql.Add(',' + quotedstr(NBaoID));
|
||
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
|
||
sql.Add(')');
|
||
ExecSQL;
|
||
end;
|
||
InitGrid();
|
||
end;
|
||
|
||
end.
|
||
|