Group_99/D10myBiaoqi
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
8005f0c4c3
D10myBiaoqi/B04采购计划管理/U_ClothRSPlanList.pas

1153 lines
31 KiB
ObjectPascal
Raw Normal View History

0704
2024-07-04 16:01:24 +08:00
unit U_ClothRSPlanList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
U_BaseList, RM_e_Graphic, RM_e_Jpeg, RM_E_llPDF, Vcl.Clipbrd;
type
TfrmClothRSPlanList = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBAdd: TToolButton;
TBEdit: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
GPM_1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
v1OrdDate: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
v1ConNo: TcxGridDBColumn;
CDS_2: TClientDataSet;
v1CustomerNoName: TcxGridDBColumn;
ToolButton1: TToolButton;
v1Column1: TcxGridDBColumn;
ToolButton2: TToolButton;
v1Column4: TcxGridDBColumn;
pm2: TPopupMenu;
Panel1: TPanel;
Label4: TLabel;
Label8: TLabel;
Label9: TLabel;
Label12: TLabel;
Label13: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
BuyName: TEdit;
MPRTCodeName: TEdit;
PurNo: TEdit;
MPRTKZ: TEdit;
MPRTMF: TEdit;
cxTabControl1: TcxTabControl;
tchk: TToolButton;
Tnochk: TToolButton;
cxSplitter1: TcxSplitter;
DS_2: TDataSource;
Label2: TLabel;
Tqx: TToolButton;
Tnoqx: TToolButton;
ToolButton5: TToolButton;
v1Column10: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
GPM_2: TcxGridPopupMenu;
CDS_1: TClientDataSet;
btnTijiao: TToolButton;
btnCXTijiao: TToolButton;
v1Column13: TcxGridDBColumn;
Label3: TLabel;
SellName: TEdit;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
pm1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
btnWC: TToolButton;
btnWCCX: TToolButton;
ADOQueryImage: TADOQuery;
Tv1Column19: TcxGridDBColumn;
IsJYTime: TCheckBox;
ToolButton7: TToolButton;
N3: TMenuItem;
N4: TMenuItem;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
v1XHNo: TcxGridDBColumn;
VC_SCSCode: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
v1PRTPrice: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
N5: TMenuItem;
N6: TMenuItem;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
TV2Column5: TcxGridDBColumn;
TV2Column6: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
TV2Column7: TcxGridDBColumn;
TV2Column8: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Label1: TLabel;
BuyConNo: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure BuyNameChange(Sender: TObject);
procedure tchkClick(Sender: TObject);
procedure TnochkClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure TqxClick(Sender: TObject);
procedure TnoqxClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure btnTijiaoClick(Sender: TObject);
procedure btnCXTijiaoClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure btnWCClick(Sender: TObject);
procedure btnWCCXClick(Sender: TObject);
procedure PurNoKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton7Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
private
fFlileFlag: string;
procedure InitGrid();
procedure SetStatus();
procedure InitSub();
procedure InitImage();
{ Private declarations }
public
FFInt, FCloth: Integer;
FAuthority, FGSTT, FSubIdS, FType: string;
{ Public declarations }
end;
implementation
uses
U_DataLink, U_ClothPurchasePlanPut, U_RTFun, U_AttachmentUpload, U_LabelPrint,
U_ClothRSPlanPut;
{$R *.dfm}
procedure TfrmClothRSPlanList.InitImage();
begin
ADOQueryImage.Close;
if CDS_1.IsEmpty then
exit;
with ADOQueryImage do
begin
close;
sql.Clear;
sql.Add('select * from TP_File A');
sql.Add('where WBID=' + quotedstr(trim(CDS_1.fieldbyname('SubId').AsString)));
sql.Add('and TFType=' + quotedstr(trim('HX')));
open;
end;
end;
procedure TfrmClothRSPlanList.InitSub();
begin
if CDS_1.IsEmpty then
exit;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select B.OrdQty,A.* from Pur_ClothPlan_sub A ');
sql.Add('left join Trade_Plan_Sub B on A.SubId=B.SubId');
sql.Add('where PurMId =' + quotedstr((CDS_1.fieldbyname('PurMId').AsString)));
open;
end;
SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2);
TV2.DataController.Filter.Clear;
end;
procedure TfrmClothRSPlanList.N1Click(Sender: TObject);
begin
SelOKNoFiler(Tv1, True); //ȫѡ
end;
procedure TfrmClothRSPlanList.N2Click(Sender: TObject);
begin
SelOKNoFiler(Tv1, False); //ȫ<><C8AB>
end;
procedure TfrmClothRSPlanList.N3Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmClothRSPlanList.N4Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmClothRSPlanList.N5Click(Sender: TObject);
begin
SelOKNo(CDS_1, True);
end;
procedure TfrmClothRSPlanList.N6Click(Sender: TObject);
begin
SelOKNo(CDS_1, False);
end;
procedure TfrmClothRSPlanList.SetStatus();
begin
TBAdd.Enabled := false;
tbedit.Enabled := false;
ToolButton2.Enabled := false;
tchk.Enabled := false;
tnochk.Enabled := false;
Tqx.Enabled := false;
TNoqx.Enabled := false;
TBPrint.Enabled := False;
btnTijiao.Enabled := False;
btnCXTijiao.Enabled := False;
btnWC.Enabled := False;
btnWCCX.Enabled := False;
if Trim(FAuthority) = '¼<><C2BC>' then
begin
ToolButton2.Enabled := true;
TBAdd.Enabled := true;
TBPrint.Enabled := True;
case cxTabControl1.TabIndex of
0:
begin
tbedit.Enabled := true;
Tqx.Enabled := True;
btnTijiao.Enabled := True;
end;
1:
begin
btnCXTijiao.Enabled := True;
end;
2:
begin
btnWC.Enabled := True;
end;
3:
begin
btnWCCX.Enabled := True;
end;
4:
begin
TNoqx.Enabled := True;
end;
end;
end;
if Trim(FAuthority) = '<27><><EFBFBD><EFBFBD>' then
begin
ToolButton2.Enabled := true;
TBAdd.Enabled := true;
TBPrint.Enabled := True;
case cxTabControl1.TabIndex of
0:
begin
tbedit.Enabled := true;
Tqx.Enabled := true;
btnTijiao.Enabled := True;
end;
1:
begin
btnCXTijiao.Enabled := True;
tchk.Enabled := True;
end;
2:
begin
tnochk.Enabled := True;
btnWC.Enabled := True;
end;
3:
begin
btnWCCX.Enabled := True;
end;
4:
begin
TNoqx.Enabled := true;
end;
end;
end;
if Trim(FAuthority) = '<27><>ѯ' then
begin
TBPrint.Enabled := True;
end;
end;
procedure TfrmClothRSPlanList.FormDestroy(Sender: TObject);
begin
inherited;
// frmContractListNX:=nil;
end;
procedure TfrmClothRSPlanList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmClothRSPlanList.FormCreate(Sender: TObject);
begin
inherited;
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 90;
end;
procedure TfrmClothRSPlanList.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmClothRSPlanList.InitGrid();
var
WSql: string;
begin
WSql := SGetFilters(Panel1, 1, 2);
if trim(WSql) <> '' then
begin
WSql := ' and ' + trim(WSql);
end;
if IsJYTime.Checked then
begin
WSql := WSql + ' and PurDate>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
WSql := WSql + ' and PurDate<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
end
else
begin
if trim(WSql) <> '' then
WSql := ' and 1=1' + trim(WSql)
else
WSql := WSql + ' and 1=2 ';
end;
if trim(WSql) = 'and 1=2' then
Application.MessageBox('<27><>ѡ<EFBFBD>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>ڻ<EFBFBD><DABB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 0);
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('select AA.* from (select DISTINCT A.*,C.BuyConNo,D.FOrdNo');
sql.Add(',(Case A.Status when ''0'' then ''δ<>ύ'' when ''1'' then ''<27><><EFBFBD>ύ''');
sql.Add('when ''9'' then ''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' when ''10'' then ''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
SQL.Add('when ''-1'' then ''<27><>ȡ<EFBFBD><C8A1>'' end) AS ZT');
sql.Add(' from Pur_ClothPlan_Main A ');
sql.Add('left join Pur_ClothPlan_Sub B on A.PurMid=B.PurMid');
SQL.Add('left join Trade_Plan_Sub C on C.SubId=B.SubId');
SQL.Add('left join Trade_Plan_Main D on D.MainId=C.MainId) AA');
sql.Add('where PurType=''Ⱦɫ'' ' + (WSql));
case cxTabControl1.TabIndex of
0:
begin
sql.Add(' and isnull(AA.status,''0'')=''0''');
end;
1:
begin
sql.Add(' and isnull(AA.status,''0'')=''1''');
end;
2:
begin
sql.Add(' and isnull(AA.status,''0'')=''9''');
end;
3:
begin
sql.Add(' and isnull(AA.status,''0'')=''10''');
end;
4:
begin
sql.Add(' and isnull(AA.status,''0'')=''-1''');
end;
end;
sql.add('Order By PurDate Desc');
// ShowMessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
TV1.DataController.Filter.Clear;
end;
end;
procedure TfrmClothRSPlanList.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmClothRSPlanList.TBPrintClick(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'ClothRSPrint';
FFiltration1 := QuotedStr(Trim(Self.CDS_1.fieldbyname('PurMId').AsString));
if ShowModal = 1 then
begin
// Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmClothRSPlanList.TBEditClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
// ShowMessage(Trim(CDS_1.fieldbyname('Filler').AsString));
// ShowMessage(Trim(DName));
if Trim(CDS_1.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
try
frmClothRSPlanPut := TfrmClothRSPlanPut.Create(Application);
with frmClothRSPlanPut do
begin
PState := '<27>޸<EFBFBD>';
FPurMId := Trim(Self.CDS_1.fieldbyname('PurMId').AsString);
FAuthority := self.FAuthority;
FType := Self.FType;
FGSTT := self.FGSTT;
fFlileFlag := self.fFlileFlag;
if ShowModal = 1 then
begin
end;
end;
finally
frmClothRSPlanPut.Free;
end;
end;
procedure TfrmClothRSPlanList.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmClothRSPlanList.TBAddClick(Sender: TObject);
var
maxno: string;
begin
try
frmClothRSPlanPut := TfrmClothRSPlanPut.Create(Application);
with frmClothRSPlanPut do
begin
PState := '<27><><EFBFBD><EFBFBD>';
FPurMId := '';
FAuthority := self.FAuthority;
FType := self.FType;
FGSTT := self.FGSTT;
fFlileFlag := self.fFlileFlag;
if ShowModal = 1 then
begin
end;
end;
finally
frmClothRSPlanPut.Free;
end;
end;
procedure TfrmClothRSPlanList.FormShow(Sender: TObject);
begin
inherited;
fFlileFlag := UserDataFlag + 'HX';
FAuthority := self.fParameters1;
FType := self.fParameters2;
readCxGrid(trim(Self.Caption) + 'tv1', Tv1, '<27><><EFBFBD>ۺ<EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>');
readCxGrid(trim(Self.Caption) + 'tv2', Tv2, '<27><><EFBFBD>ۺ<EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>');
SetStatus();
InitGrid();
end;
procedure TfrmClothRSPlanList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
if ToolButton1.Visible = False then
Exit;
ToolButton1.Click;
end;
procedure TfrmClothRSPlanList.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmClothRSPlanList.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmClothRSPlanList.PurNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmClothRSPlanList.ToolButton1Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
try
frmClothRSPlanPut := TfrmClothRSPlanPut.Create(Application);
with frmClothRSPlanPut do
begin
PState := '<27>鿴';
FPurMId := Trim(Self.CDS_1.fieldbyname('PurMId').AsString);
FGSTT := self.FGSTT;
ToolBar2.Visible := False;
TBSave.Visible := False;
// ScrollBox1.Enabled := False;
if ShowModal = 1 then
begin
end;
end;
finally
frmClothRSPlanPut.Free;
end;
end;
procedure TfrmClothRSPlanList.ToolButton2Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
try
frmClothRSPlanPut := TfrmClothRSPlanPut.Create(Application);
with frmClothRSPlanPut do
begin
PState := '<27><><EFBFBD><EFBFBD>';
FPurMId := Trim(Self.CDS_1.fieldbyname('PurMId').AsString);
FAuthority := self.FAuthority;
FType := FType;
fFlileFlag := self.fFlileFlag;
if ShowModal = 1 then
begin
end;
end;
finally
frmClothRSPlanPut.Free;
end;
end;
procedure TfrmClothRSPlanList.btnWCClick(Sender: TObject);
var
MPurMIdS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MPurMIdS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MPurMIdS := MPurMIdS + trim(fieldbyname('PurMId').AsString) + ',';
end;
next;
end;
MPurMIdS := copy(MPurMIdS, 1, Length(MPurMIdS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Pur_ClothPlan_SetStatus ');
sql.Add(' @PurMIdS=' + QuotedStr(MPurMIdS));
sql.Add(',@Operation=''<27><><EFBFBD><EFBFBD>'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
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><CDAC><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD><C9B9>ƻ<EFBFBD>ID<49><44>' + trim(MPurMIdS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('<27><><EFBFBD>ɳɹ<C9B3>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
procedure TfrmClothRSPlanList.BuyNameChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmClothRSPlanList.tchkClick(Sender: TObject);
var
MPurMIdS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MPurMIdS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MPurMIdS := MPurMIdS + trim(fieldbyname('PurMId').AsString) + ',';
end;
next;
end;
MPurMIdS := copy(MPurMIdS, 1, Length(MPurMIdS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Pur_ClothPlan_SetStatus ');
sql.Add(' @PurMIdS=' + QuotedStr(MPurMIdS));
sql.Add(',@Operation=''<27><><EFBFBD><EFBFBD>'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
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><CDAC><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD><C9B9>ƻ<EFBFBD>ID<49><44>' + trim(MPurMIdS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('<27><><EFBFBD>˳ɹ<CBB3>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
procedure TfrmClothRSPlanList.TnochkClick(Sender: TObject);
var
MPurMIdS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MPurMIdS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MPurMIdS := MPurMIdS + trim(fieldbyname('PurMId').AsString) + ',';
end;
next;
end;
MPurMIdS := copy(MPurMIdS, 1, Length(MPurMIdS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Pur_ClothPlan_SetStatus ');
sql.Add(' @PurMIdS=' + QuotedStr(MPurMIdS));
sql.Add(',@Operation=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
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><CDAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD><C9B9>ƻ<EFBFBD>ID<49><44>' + trim(MPurMIdS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('<27><><EFBFBD>˳ɹ<CBB3>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
procedure TfrmClothRSPlanList.cxTabControl1Change(Sender: TObject);
begin
SetStatus();
TBRafresh.Click;
end;
procedure TfrmClothRSPlanList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
InitSub();
end;
procedure TfrmClothRSPlanList.TqxClick(Sender: TObject);
var
MPurMIdS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MPurMIdS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MPurMIdS := MPurMIdS + trim(fieldbyname('PurMId').AsString) + ',';
end;
next;
end;
MPurMIdS := copy(MPurMIdS, 1, Length(MPurMIdS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Pur_ClothPlan_SetStatus ');
sql.Add(' @PurMIdS=' + QuotedStr(MPurMIdS));
sql.Add(',@Operation=''ȡ<><C8A1>'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
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><>ͬȡ<CDAC><C8A1>')));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD><C9B9>ƻ<EFBFBD>ID<49><44>' + trim(MPurMIdS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('ȡ<><C8A1><EFBFBD>ɹ<EFBFBD>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
procedure TfrmClothRSPlanList.TnoqxClick(Sender: TObject);
var
MPurMIdS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MPurMIdS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MPurMIdS := MPurMIdS + trim(fieldbyname('PurMId').AsString) + ',';
end;
next;
end;
MPurMIdS := copy(MPurMIdS, 1, Length(MPurMIdS) - 1);
EnableControls;
end;
try
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><CDAC><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1>')));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD><C9B9>ƻ<EFBFBD>ID<49><44>' + trim(MPurMIdS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
sql.Add(' exec P_Pur_ClothPlan_SetStatus ');
sql.Add(' @PurMIdS=' + QuotedStr(MPurMIdS));
sql.Add(',@Operation=''<27><><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1>'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
// ShowMessage(sql.Text);
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('<27><><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD>ɹ<EFBFBD>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
procedure TfrmClothRSPlanList.ToolButton5Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
try
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
with frmAttachmentUpload do
begin
fkeyNO := Trim(Self.CDS_1.fieldbyname('PurMId').AsString);
fType := '<27><>ͬ';
if ShowModal = 1 then
begin
end;
end;
finally
frmAttachmentUpload.Free;
end;
end;
procedure TfrmClothRSPlanList.ToolButton7Click(Sender: TObject);
begin
writeCxGrid(trim(Self.Caption) + 'tv1', Tv1, '<27><><EFBFBD>ۺ<EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>');
writeCxGrid(trim(Self.Caption) + 'tv2', Tv2, '<27><><EFBFBD>ۺ<EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>');
end;
procedure TfrmClothRSPlanList.btnWCCXClick(Sender: TObject);
var
MPurMIdS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MPurMIdS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MPurMIdS := MPurMIdS + trim(fieldbyname('PurMId').AsString) + ',';
end;
next;
end;
MPurMIdS := copy(MPurMIdS, 1, Length(MPurMIdS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Pur_ClothPlan_SetStatus ');
sql.Add(' @PurMIdS=' + QuotedStr(MPurMIdS));
sql.Add(',@Operation=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
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><CDAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD><C9B9>ƻ<EFBFBD>ID<49><44>' + trim(MPurMIdS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɳɹ<C9B3>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
procedure TfrmClothRSPlanList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('status').Index] = '2' then
ACanvas.Brush.Color := clLime;
if cxTabControl1.TabIndex = 5 then
begin
if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('status').Index] = '-1' then
ACanvas.Brush.Color := clBtnShadow;
end;
end;
procedure TfrmClothRSPlanList.btnTijiaoClick(Sender: TObject);
var
MPurMIdS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MPurMIdS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MPurMIdS := MPurMIdS + trim(fieldbyname('PurMId').AsString) + ',';
end;
next;
end;
MPurMIdS := copy(MPurMIdS, 1, Length(MPurMIdS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Pur_ClothPlan_SetStatus ');
sql.Add(' @PurMIdS=' + QuotedStr(MPurMIdS));
sql.Add(',@Operation=''<27>ύ'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
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><C9B9>ƻ<EFBFBD><C6BB>ύ')));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD><C9B9>ƻ<EFBFBD>ID<49><44>' + trim(MPurMIdS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('<27>ύ<EFBFBD>ɹ<EFBFBD>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
procedure TfrmClothRSPlanList.btnCXTijiaoClick(Sender: TObject);
var
MPurMIdS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MPurMIdS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MPurMIdS := MPurMIdS + trim(fieldbyname('PurMId').AsString) + ',';
end;
next;
end;
MPurMIdS := copy(MPurMIdS, 1, Length(MPurMIdS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_Pur_ClothPlan_SetStatus ');
sql.Add(' @PurMIdS=' + QuotedStr(MPurMIdS));
sql.Add(',@Operation=''<27><><EFBFBD><EFBFBD><EFBFBD>ύ'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
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><C9B9>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ύ')));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD><C9B9>ƻ<EFBFBD>ID<49><44>' + trim(MPurMIdS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD>ɹ<EFBFBD>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
end.
Reference in New Issue Copy Permalink