Group_99/D10szXIANGYING
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
85dce630a4
D10szXIANGYING/E04梭织坯布仓库/U_TatDRList.pas

1269 lines
32 KiB
ObjectPascal
Raw Normal View History

12345
2025-11-14 15:11:06 +08:00
unit U_TatDRList;
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,
cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, U_BaseList,
dxDateRanges, dxScrollbarAnnotations, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP;
type
TfrmTatDRList = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBAdd: TToolButton;
TBEdit: TToolButton;
TBDel: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
TBExport: TToolButton;
v1OrdDate: TcxGridDBColumn;
Order_Main: TClientDataSet;
ToolButton1: TToolButton;
v1Column4: TcxGridDBColumn;
Panel1: TPanel;
Label4: TLabel;
Label8: TLabel;
Label12: TLabel;
Label13: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
ToCoName: TEdit;
MPRTCodeName: TEdit;
MPRTKZ: TEdit;
MPRTMF: TEdit;
cxTabControl1: TcxTabControl;
tchk: TToolButton;
Tnochk: TToolButton;
cxSplitter1: TcxSplitter;
DS_2: TDataSource;
v1Column8: TcxGridDBColumn;
Label2: TLabel;
ClientDataSet2: TClientDataSet;
GPM_2: TcxGridPopupMenu;
v1Column13: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column27: TcxGridDBColumn;
btnWC: TToolButton;
btnWCCX: TToolButton;
CheckBox1: TCheckBox;
ToolButton6: TToolButton;
Label1: TLabel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn3: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cv1Column3: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
Label3: TLabel;
shdanwei: TEdit;
Tv1Column1: TcxGridDBColumn;
ToolButton2: TToolButton;
IdHTTP1: TIdHTTP;
ToolButton3: TToolButton;
Tv1Column2: TcxGridDBColumn;
ToolButton4: TToolButton;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
ToolButton5: TToolButton;
ToolButton7: TToolButton;
TV2Column4: TcxGridDBColumn;
TV2Column5: TcxGridDBColumn;
TV2Column6: TcxGridDBColumn;
TV2Column7: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
11/12 17.30
2025-11-20 17:32:01 +08:00
TbGoodsEdit: TToolButton;
TV2Volume: TcxGridDBColumn;
TV2Applicant: TcxGridDBColumn;
TV2ApplicationReaon: TcxGridDBColumn;
12.9
2025-12-09 17:30:02 +08:00
Tv1CoAddress: TcxGridDBColumn;
Label5: TLabel;
SSelJS: TLabel;
Tv1Column7: TcxGridDBColumn;
PM_1: TPopupMenu;
N1: TMenuItem;
PM11: TMenuItem;
Tv1Telephone: TcxGridDBColumn;
cxGridPopupMenu2: TcxGridPopupMenu;
12.13 17.34
2025-12-13 17:34:42 +08:00
TV2issp: TcxGridDBColumn;
12345
2025-11-14 15:11:06 +08:00
//RMllPDFExport1: TRMllPDFExport;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToCoNameChange(Sender: TObject);
procedure tchkClick(Sender: TObject);
procedure TnochkClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure btnWCClick(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure btnWCCXClick(Sender: TObject);
procedure v1Column7PropertiesEditValueChanged(Sender: TObject);
procedure Tv1Column9PropertiesEditValueChanged(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
11/12 17.30
2025-11-20 17:32:01 +08:00
procedure TbGoodsEditClick(Sender: TObject);
12.9
2025-12-09 17:30:02 +08:00
procedure v1Column4PropertiesChange(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure PM11Click(Sender: TObject);
12345
2025-11-14 15:11:06 +08:00
private
procedure InitGrid();
procedure InitSubGrid();
procedure InitForm();
procedure SetStatus();
function DelData(): Boolean;
{ Private declarations }
public
FFInt: Integer;
canshu1, canshu2: string;
{ Public declarations }
end;
//var
//frmContractListNX: TfrmContractListNX;
implementation
uses
U_DataLink, U_TatDRtInPut, U_RTFun, U_ZDYHelp, U_LabelPrint,
U_AttachmentUpload;
{$R *.dfm}
procedure TfrmTatDRList.SetStatus();
begin
tchk.Enabled := False;
Tnochk.Enabled := False;
btnWC.Enabled := False;
btnWCCX.Enabled := False;
ToolButton3.Enabled := False;
ToolButton5.Enabled := False;
11/12 17.30
2025-11-20 17:32:01 +08:00
TbGoodsEdit.Enabled := False;
12.9
2025-12-09 17:30:02 +08:00
TBDel.Enabled := False;
12345
2025-11-14 15:11:06 +08:00
if CANSHU1 = '<27><>ѯ' then
begin
ToolButton1.Enabled := True;
TBPrint.Enabled := True;
ToolButton2.Enabled := True;
ToolButton4.Enabled := True;
TBExport.Enabled := True;
ToolButton7.Enabled := True;
11/12 17.30
2025-11-20 17:32:01 +08:00
TbGoodsEdit.Enabled := True;
12345
2025-11-14 15:11:06 +08:00
11.15 16：23
2025-11-15 16:23:11 +08:00
TBAdd.Enabled := True;
TBEdit.Enabled := True;
12.9
2025-12-09 17:30:02 +08:00
// TBDel.Enabled := True;
12345
2025-11-14 15:11:06 +08:00
case cxTabControl1.TabIndex of
1:
begin
btnWC.Enabled := true;
end;
end;
end;
if canshu1 = '<27><><EFBFBD><EFBFBD>' then
begin
case cxTabControl1.TabIndex of
0:
begin
ToolButton3.Enabled := true;
11/12 17.30
2025-11-20 17:32:01 +08:00
// TbGoodsEdit.Enabled := True;
12345
2025-11-14 15:11:06 +08:00
tchk.Enabled := true;
12.9
2025-12-09 17:30:02 +08:00
TBDel.Enabled := True;
12345
2025-11-14 15:11:06 +08:00
end;
1:
begin
Tnochk.Enabled := true;
btnWC.Enabled := true;
12.9
2025-12-09 17:30:02 +08:00
TBDel.Enabled := True;
12345
2025-11-14 15:11:06 +08:00
end;
2:
begin
btnWCCX.Enabled := true;
end;
3:
begin
ToolButton5.Enabled := true;
end;
end;
end
else if canshu1 = '¼<><C2BC>' then
begin
case cxTabControl1.TabIndex of
1:
begin
btnWC.Enabled := true;
12.9
2025-12-09 17:30:02 +08:00
// TBDel.Enabled := True;
12345
2025-11-14 15:11:06 +08:00
end;
end;
end;
end;
procedure TfrmTatDRList.FormDestroy(Sender: TObject);
begin
inherited;
//frmFHSQList:=nil;
end;
procedure TfrmTatDRList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmTatDRList.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatDRList.InitGrid();
begin
try
ADOQueryMain.DisableControls;
12.9
2025-12-09 17:30:02 +08:00
sselJS.Caption := '0';
12345
2025-11-14 15:11:06 +08:00
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
12.9
2025-12-09 17:30:02 +08:00
Sql.Add(' select A.*,B.CoAddress ');
Sql.Add(', sselJS=(select isnull(sum(Piece), 0) from Tat_Cloth_DR_Sub X where X.DRMID=A.DRMID ) ');
Sql.Add(', Telephone=(select Telephone from Bs_Company_contact X where X.CoID=A.ToCoID ) ');
sql.Add(' from Tat_Cloth_DR_Main A left join BS_Company B on A.ToCoID = B.COID where 1=1');
12345
2025-11-14 15:11:06 +08:00
if CheckBox1.Checked then
begin
12.9
2025-12-09 17:30:02 +08:00
sql.Add(' and A.Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
sql.Add(' and A.Filltime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
12345
2025-11-14 15:11:06 +08:00
end;
case cxTabControl1.TabIndex of
0:
begin
SQL.Add(' and isnull(A.status,''0'')=''0'' ');
end;
1:
begin
SQL.Add(' and isnull(A.status,''0'')=''9'' ');
end;
2:
begin
SQL.Add(' and isnull(A.status,''0'')=''10'' ');
end;
3:
begin
SQL.Add(' and isnull(A.status,''0'')=''-2'' ');
end;
4:
begin
SQL.Add(' and isnull(A.status,''0'')<>''-2'' ');
end;
end;
if Trim(canshu1) = '¼<><C2BC>' then
begin
sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + '''');
end;
12.9
2025-12-09 17:30:02 +08:00
sql.Add(' order by A.Filltime desc ');
12345
2025-11-14 15:11:06 +08:00
// ShowMessage(sql.Text);
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
11/12 17.30
2025-11-20 17:32:01 +08:00
12345
2025-11-14 15:11:06 +08:00
finally
ADOQueryMain.EnableControls;
TV1.DataController.Filter.Clear;
TV2.DataController.Filter.Clear;
end;
end;
procedure TfrmTatDRList.InitForm();
begin
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 60;
InitGrid();
end;
procedure TfrmTatDRList.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmTatDRList.TBEditClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
// if cxTabControl1.TabIndex <> 0 then
// Exit;
11.15 16：23
2025-11-15 16:23:11 +08:00
// if Trim(canshu1) <> '<27><><EFBFBD><EFBFBD>' then
// begin
12345
2025-11-14 15:11:06 +08:00
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// SQL.Add('select FILLER from Tat_Cloth_DR_Main A ');
// SQL.Add('where DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + ''' ');
// SQL.Add('and filler in ( select username from SY_User where UType=(select UType from SY_User where UserName=' + quotedstr(Trim(dname)));
// SQL.Add('))');
// Open;
// end;
//
// if ADOQueryTemp.ISEMPTY = True then
// begin
// Application.MessageBox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
12.9
2025-12-09 17:30:02 +08:00
if Trim(Order_Main.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;
11.15 16：23
2025-11-15 16:23:11 +08:00
// end;
12345
2025-11-14 15:11:06 +08:00
// with ADOQueryTemp do
// begin
// close;
// sql.Clear;
// sql.Add('select * from Tat_Cloth_DR_Main');
// sql.Add('where DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
// Open;
// end;
// if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD>˿<CBBF><EEB2BB><EFBFBD>޸<EFBFBD><DEB8><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
try
frmTatDRtInPut := TfrmTatDRtInPut.Create(Application);
with frmTatDRtInPut do
begin
PState := 1;
12.9
2025-12-09 17:30:02 +08:00
Tv1Volume.Options.Editing := False;
Tv1ApplicationReaon.Options.Editing := False;
12345
2025-11-14 15:11:06 +08:00
FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmTatDRtInPut.Free;
end;
end;
procedure TfrmTatDRList.TBDelClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
12.9
2025-12-09 17:30:02 +08:00
if (cxTabControl1.TabIndex <> 0) and (cxTabControl1.TabIndex <> 1) then
12345
2025-11-14 15:11:06 +08:00
Exit;
11.15 16：23
2025-11-15 16:23:11 +08:00
// if canshu1 <> '<27><><EFBFBD><EFBFBD>' then
// begin
12.9
2025-12-09 17:30:02 +08:00
// if Trim(Order_Main.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;
11.15 16：23
2025-11-15 16:23:11 +08:00
// end;
12345
2025-11-14 15:11:06 +08:00
with ADOQueryTemp do
begin
Close;
sql.Clear;
12.11
2025-12-11 17:31:55 +08:00
sql.Add(' select * from Tat_Cloth_IO where ioflag=''<27><><EFBFBD><EFBFBD>'' ');
12345
2025-11-14 15:11:06 +08:00
sql.add(' and IONo=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
12.11
2025-12-11 17:31:55 +08:00
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>ɾ<EFBFBD><C9BE>!', '<27><>ʾ', 0);
exit;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' select * from Tat_Cloth_IO where ioflag=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
sql.add(' and IONo=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>ɾ<EFBFBD><C9BE>!', '<27><>ʾ', 0);
12345
2025-11-14 15:11:06 +08:00
exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
if DelData() then
begin
Order_Main.Delete;
InitSubGrid();
end;
end;
11/12 17.30
2025-11-20 17:32:01 +08:00
procedure TfrmTatDRList.TbGoodsEditClick(Sender: TObject);
var
maxno: string;
begin
try
frmTatDRtInPut := TfrmTatDRtInPut.Create(Application);
with frmTatDRtInPut do
begin
PState := 2; ///<2F><><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD>
FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
canshu1 := self.canshu1;
ScrollBox1.Visible := False;
ToolBar2.Visible := false;
TbPHSave.visible := True;
TBSave.Visible := False;
// Tv1Applicant.Visible := True;
Tv1C_Name.Options.Editing := False;
Tv1C_code.Options.Editing := False;
Tv1C_width.Options.Editing := False;
Tv1C_GramWeight.Options.Editing := False;
Tv1c_Color.Options.Editing := False;
Tv1Piece.Options.Editing := False;
Tv1Qty.Options.Editing := False;
Tv1PINGFANG.Options.Editing := False;
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmTatDRtInPut.Free;
end;
end;
12345
2025-11-14 15:11:06 +08:00
function TfrmTatDRList.DelData(): Boolean;
begin
12.9
2025-12-09 17:30:02 +08:00
12345
2025-11-14 15:11:06 +08:00
try
with Order_Main do
begin
DisableControls;
12.9
2025-12-09 17:30:02 +08:00
ADOQueryCmd.Connection.BeginTrans;
12345
2025-11-14 15:11:06 +08:00
First;
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
Result := false;
12.9
2025-12-09 17:30:02 +08:00
12345
2025-11-14 15:11:06 +08:00
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Tat_Cloth_DR_Sub where DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Tat_Cloth_DR_Main where DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + '''');
ExecSQL;
end;
end;
next;
end;
First;
EnableControls;
end;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
end;
end;
procedure TfrmTatDRList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
// SelExportData(Tv1, ADOQueryMain, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>');
end;
procedure TfrmTatDRList.TBPrintClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TradeClothDR1';
FFiltration1 := Trim(self.Order_Main.fieldbyname('DRMID').AsString);
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatDRList.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTatDRList.TBAddClick(Sender: TObject);
var
maxno: string;
begin
try
frmTatDRtInPut := TfrmTatDRtInPut.Create(Application);
with frmTatDRtInPut do
begin
PState := 0;
FDRMID := '';
canshu1 := self.canshu1;
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmTatDRtInPut.Free;
end;
end;
procedure TfrmTatDRList.FormShow(Sender: TObject);
begin
inherited;
canshu1 := self.fParameters1;
InitForm();
SetStatus();
end;
procedure TfrmTatDRList.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTatDRList.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmTatDRList.ToolButton1Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmTatDRtInPut := TfrmTatDRtInPut.Create(Application);
with frmTatDRtInPut do
begin
PState := 1;
FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
ToolBar2.Visible := False;
TBSave.Visible := False;
ScrollBox1.Enabled := False;
Tv1.OptionsSelection.CellSelect := False;
if ShowModal = 1 then
begin
end;
end;
finally
frmTatDRtInPut.Free;
end;
end;
procedure TfrmTatDRList.ToolButton2Click(Sender: TObject);
begin
inherited;
if order_main.IsEmpty then
Exit;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TatClothOut1';
FFiltration1 := Trim(self.order_main.fieldbyname('DRMID').AsString);
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatDRList.ToolButton3Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if cxTabControl1.TabIndex <> 0 then
exit;
try
with Order_Main do
begin
DisableControls;
First;
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Tat_Cloth_DR_Main SET Status=''-2'' ');
sql.Add('where DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
execsql;
end;
end;
next;
end;
First;
EnableControls;
end;
12.9
2025-12-09 17:30:02 +08:00
InitGrid();
12345
2025-11-14 15:11:06 +08:00
InitSubGrid();
application.MessageBox('ȡ<><C8A1><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
except
application.MessageBox('ȡ<><C8A1>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmTatDRList.ToolButton4Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
with frmAttachmentUpload do
begin
if Trim(canshu1) <> '<27><>ѯ' then
FEditAuthority := True;
fkeyNO := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
fType := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
end;
end;
finally
frmAttachmentUpload.Free;
end;
end;
procedure TfrmTatDRList.ToolButton5Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if cxTabControl1.TabIndex <> 3 then
exit;
try
with Order_Main do
begin
DisableControls;
First;
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Tat_Cloth_DR_Main SET Status=''0'' ');
sql.Add('where DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
execsql;
end;
end;
next;
end;
First;
EnableControls;
end;
12.9
2025-12-09 17:30:02 +08:00
InitGrid();
12345
2025-11-14 15:11:06 +08:00
InitSubGrid();
application.MessageBox('<27><><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
except
application.MessageBox('<27><><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmTatDRList.ToCoNameChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmTatDRList.tchkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if cxTabControl1.TabIndex <> 0 then
exit;
try
with Order_Main do
begin
DisableControls;
First;
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Tat_Cloth_DR_Main SET Chker=''' + Trim(DName) + ''',ChkTime=getdate(),Status=''9'' ');
sql.Add('where DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
execsql;
end;
end;
12.9
2025-12-09 17:30:02 +08:00
12345
2025-11-14 15:11:06 +08:00
next;
end;
12.9
2025-12-09 17:30:02 +08:00
12345
2025-11-14 15:11:06 +08:00
First;
EnableControls;
end;
12.9
2025-12-09 17:30:02 +08:00
InitGrid();
12345
2025-11-14 15:11:06 +08:00
InitSubGrid();
application.MessageBox('<27><><EFBFBD>˳ɹ<CBB3><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
except
application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmTatDRList.InitSubGrid();
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.* ');
sql.Add('from Tat_Cloth_DR_Sub A where A.DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + '''');
12.9
2025-12-09 17:30:02 +08:00
// ShowMessage(SQL.Text);
12345
2025-11-14 15:11:06 +08:00
Open;
end;
SCreateCDS(ADOQueryTemp, ClientDataSet2);
SInitCDSData(ADOQueryTemp, ClientDataSet2);
end;
12.9
2025-12-09 17:30:02 +08:00
procedure TfrmTatDRList.N1Click(Sender: TObject);
var
msumJS: Currency;
begin
SelOKNo(Order_Main, true);
msumJS := 0;
Order_Main.First;
while not Order_Main.Eof do
begin
msumJS := msumJS + Order_Main.FieldByName('sselJS').AsCurrency;
Order_Main.Next;
end;
SSelJS.Caption := CurrToStr(msumJS);
end;
procedure TfrmTatDRList.PM11Click(Sender: TObject);
begin
SelOKNo(Order_Main, false);
SSelJS.Caption := '0';
end;
12345
2025-11-14 15:11:06 +08:00
procedure TfrmTatDRList.TnochkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if cxTabControl1.TabIndex <> 1 then
exit;
try
with Order_Main do
begin
DisableControls;
First;
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Tat_Cloth_DR_Main SET Chker=Null,ChkTime=Null,status=''0'' ');
sql.Add('where DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
execsql;
end;
end;
next;
end;
First;
EnableControls;
end;
12.9
2025-12-09 17:30:02 +08:00
InitGrid();
12345
2025-11-14 15:11:06 +08:00
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
except
application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmTatDRList.cxTabControl1Change(Sender: TObject);
begin
TBRafresh.Click;
SetStatus();
end;
procedure TfrmTatDRList.btnWCCXClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
try
with Order_Main do
begin
DisableControls;
First;
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('exec P_Fin_Judge_All @DataID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
Open;
end;
if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then
begin
Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '<27><>ʾ', 0);
exit;
end;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Tat_Cloth_DR_Main SET status=''9'' ,Comper=null,Comptime=null ');
sql.Add('where DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
execsql;
end;
end;
next;
end;
First;
EnableControls;
end;
InitGrid();
InitSubGrid();
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
except
application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmTatDRList.ToolButton6Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure TfrmTatDRList.ToolButton7Click(Sender: TObject);
begin
try
with Order_Main do
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Tat_Cloth_Stock SET StkExists=0 ');
// sql.Add('where iono=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
sql.add('where IsStocking=''1''');
sql.Add('and STKID IN (SELECT STKID FROM Tat_Cloth_IO F ');
SQL.Add('where iono=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
sql.add('and ioflag=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'')');
sql.Add('update Tat_Cloth_Inspect SET CIIOFlag=''<27>ѳ<EFBFBD><D1B3><EFBFBD>'' ');
// sql.Add('where iono=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
sql.add('where ');
sql.Add(' ciid IN (SELECT STKID FROM Tat_Cloth_IO F ');
SQL.Add('where iono=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
sql.add('and ioflag=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'')');
sql.Add('update Tat_Cloth_IO SET ioflag=''<27><><EFBFBD><EFBFBD>'',iotime=getdate() ');
sql.Add('where iono=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
sql.add('and ioflag=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''');
execsql;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_Tat_Cloth_DR @OutNoS=' + Quotedstr(Trim(Order_Main.fieldbyname('DRMID').AsString)));
Open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
begin
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
end;
EnableControls;
end;
InitGrid();
InitSubGrid();
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
except
application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmTatDRList.btnWCClick(Sender: TObject);
var
str: string;
begin
if Order_Main.IsEmpty then
exit;
try
with Order_Main do
begin
DisableControls;
First;
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
with ADOQueryTemp do
begin
close;
sql.Clear;
SQL.Add('SELECT TT=ISNULL(SUM(DlyPiece),0),T1=ISNULL(SUM(PIECE),0) FROM Tat_Cloth_DR_SUB A WHERE A.DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
OPEN;
end;
if ADOQueryTemp.FieldByName('TT').AsInteger = 0 then
begin
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ0<CEAA><30><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
EnableControls;
exit;
end;
if ADOQueryTemp.FieldByName('TT').AsInteger < ADOQueryTemp.FieldByName('T1').AsInteger then
begin
if InputQuery('<27><><EFBFBD>뱸ע', '<27><>ע', str) then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update Tat_Cloth_DR_main ');
sql.Add(' set wcnote=' + quotedstr(str));
sql.Add(' where drmid=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
ExecSQL;
end;
end
else
begin
EnableControls;
exit;
end;
end;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Tat_Cloth_DR_Main SET status=''10'' ,Comper=''' + Trim(DName) + ''',Comptime=getdate() ');
sql.Add('where DRMID=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
// sql.Add('exec P_Do_WXInsert_MD ');
// sql.Add('@CKORDNO=' + quotedstr(trim(Order_Main.fieldbyname('DRMID').AsString)));
execsql;
end;
end;
next;
end;
First;
EnableControls;
end;
InitGrid();
InitSubGrid();
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
except
application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmTatDRList.Tv1Column9PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
if mvalue = '' then
begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('update Tat_Cloth_DR_Main set ' + FFieldName + '=' + 'NULL');
sql.Add('where DRMID=' + quotedstr(Trim(Order_Main.fieldbyname('DRMID').AsString)));
ExecSQL;
end;
end
else
begin
with Order_Main do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('update Tat_Cloth_DR_Main set ' + FFieldName + '=' + quotedstr(Trim(mvalue)));
sql.Add('where DRMID=' + quotedstr(Trim(Order_Main.fieldbyname('DRMID').AsString)));
ExecSQL;
end;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmTatDRList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
InitSubGrid();
end;
12.9
2025-12-09 17:30:02 +08:00
procedure TfrmTatDRList.v1Column4PropertiesChange(Sender: TObject);
var
mDRMIDList: string;
TotalPiece: Variant;
mDRMID: string; //<2F><>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>
begin
// mDRMIDList := '';
// <20><><EFBFBD>浱ǰ<E6B5B1><C7B0>¼<EFBFBD><C2BC> BCIID
// if not Order_Main.IsEmpty then
// mDRMID := Trim(Order_Main.FieldByName('DRMID').AsString)
// else
// mDRMID := '';
//
// try
// // ȷ<><C8B7><EFBFBD><EFBFBD><EFBFBD>ݼ<EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD>
// Order_Main.DisableControls;
// try
// Order_Main.First;
// while not Order_Main.Eof do
// begin
// if Order_Main.FieldByName('ssel').AsBoolean then
// begin
// if mDRMIDList = '' then
// mDRMIDList := QuotedStr(Trim(Order_Main.FieldByName('DRMID').AsString))
// else
// mDRMIDList := mDRMIDList + ',' + QuotedStr(Trim(Order_Main.FieldByName('DRMID').AsString));
// end;
// Order_Main.Next;
// end;
// finally
// Order_Main.EnableControls;
// end;
//
// // <20><><EFBFBD><EFBFBD>û<EFBFBD><C3BB>ѡ<EFBFBD><D1A1><EFBFBD>κμ<CEBA>¼
// if mDRMIDList = '' then
// begin
//
// if mDRMID <> '' then
// Order_Main.Locate('DRMID', mDRMID, []);
// sselJS.Caption := '0';
// Exit;
// end;
//
// // ִ<>в<EFBFBD>ѯ
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// SQL.Add('select isnull(sum(Piece), 0) as sselJS from Tat_Cloth_DR_Sub');
// SQL.Add('where DRMID in (' + mDRMIDList + ')');
//
// // <20><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾSQL<51><4C><EFBFBD><EFBFBD>
//// ShowMessage('SQL: ' + SQL.Text);
//
// Open;
//
// // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȫ<EFBFBD>ķ<EFBFBD>ʽ<EFBFBD><CABD>
// if not IsEmpty then
// begin
// TotalPiece := FieldByName('sselJS').Value;
// // <20><><EFBFBD><EFBFBD>NULLֵ<4C>Ϳ<EFBFBD>ֵ
// if VarIsNull(TotalPiece) or VarIsEmpty(TotalPiece) then
// sselJS.Caption := '0'
// else
// sselJS.Caption := VarToStr(TotalPiece);
// end
// else
// begin
// sselJS.Caption := '0';
// end;
// end;
//
//
// // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Զ<EFBFBD>λ<EFBFBD><CEBB>ԭ<EFBFBD><D4AD>¼
// if mDRMID <> '' then
// Order_Main.Locate('DRMID', mDRMID, []);
//// sselJS.Text := '0';
//// sselJS.Text := ADOQueryCmd.FieldByName('sselJS').Value
// except
// on E: Exception do
// begin
// // <20><>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ
// sselJS.Caption := '0';
// ShowMessage('<27><>ѯʧ<D1AF><CAA7>: ' + E.Message + #13#10 + 'SQL<51><4C><EFBFBD><EFBFBD>: ' + ADOQueryCmd.SQL.Text);
// end;
// end;
try
mDRMID := Trim(Order_Main.FieldByName('DRMID').AsString);
// ȷ<><C8B7><EFBFBD><EFBFBD><EFBFBD>ݼ<EFBFBD>״̬<D7B4><CCAC><EFBFBD><EFBFBD>
Order_Main.DisableControls;
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// SQL.Add('select isnull(sum(Piece), 0) as sselJS from Tat_Cloth_DR_Sub ');
// SQL.Add(' where DRMID = ' + QuotedStr(Trim(mDRMID)));
// Open;
// end;
// <20><><EFBFBD><EFBFBD>û<EFBFBD><C3BB>ѡ<EFBFBD><D1A1><EFBFBD>κμ<CEBA>¼
if Order_Main.IsEmpty then
exit;
with Order_Main do
begin
if fieldbyname('Ssel').AsBoolean = true then
sselJS.Caption := currtostr(strtoCurr(sselJS.Caption) + Order_Main.FieldByName('sselJS').AsCurrency)
else
sselJS.Caption := currtostr(strtoCurr(sselJS.Caption) - Order_Main.FieldByName('sselJS').AsCurrency);
end;
Order_Main.EnableControls;
except
on E: Exception do
begin
// <20><>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ
sselJS.Caption := '0';
ShowMessage('<27><>ѯʧ<D1AF><CAA7>: ' + E.Message + #13#10 + 'SQL<51><4C><EFBFBD><EFBFBD>: ' + ADOQueryCmd.SQL.Text);
end;
end;
end;
12345
2025-11-14 15:11:06 +08:00
procedure TfrmTatDRList.v1Column7PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with Order_Main do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('update Tat_Cloth_DR_Main set ' + FFieldName + '=' + quotedstr(Trim(mvalue)));
sql.Add('where DRMID=' + quotedstr(Trim(Order_Main.fieldbyname('DRMID').AsString)));
ExecSQL;
end;
tv1.Controller.EditingController.ShowEdit();
end;
end.
Reference in New Issue Copy Permalink