Group_99/D10xhGemei
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

裁剪

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-06-27 17:30:04 +08:00
parent a5c784720f
commit 554f338004
25 changed files with 1065 additions and 1162 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
A00通用方法/U_ProgressUpdate.pas Normal file
View File

@ -0,0 +1,61 @@
unit U_ProgressUpdate;
interface
uses
System.SysUtils, ADODB;
function TradeMarketProgressUpdate(AdoCmd: TADOQuery; MTMSIdS: string): Boolean;
function TradeMarketProgressUpdateByTMMID(AdoCmd: TADOQuery; MTMMID: string): Boolean;
implementation
function TradeMarketProgressUpdate(AdoCmd: TADOQuery; MTMSIdS: string): Boolean;
begin
with AdoCmd do
begin
close;
sql.Clear;
sql.Add('exec P_Trade_Market_UpOut');
sql.Add('@TMSIdS=' + quotedstr(Trim(MTMSIdS)));
Open;
end;
Result := True;
end;
function TradeMarketProgressUpdateByTMMID(AdoCmd: TADOQuery; MTMMID: string): Boolean;
var
MTMSIdS: string;
begin
with AdoCmd do
begin
close;
sql.Clear;
sql.Add('select distinct TMSId from Trade_Market_sub A ');
sql.Add('where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(Trim(MTMMID)) + ','','') X where X.RTValue=A.TMSId ) ');
Open;
while not Eof do
begin
if Trim(MTMSIdS) = '' then
MTMSIdS := FieldByName('TMSId').AsString
else
MTMSIdS := MTMSIdS + ',' + FieldByName('TMSId').AsString;
end;
end;
with AdoCmd do
begin
close;
sql.Clear;
sql.Add('exec P_Trade_Market_UpOut');
sql.Add('@TMSIdS=' + quotedstr(Trim(MTMSIdS)));
Open;
end;
Result := True;
end;
end.

220
A01基础公司管理/U_CustInput.dfm
View File

@ -59,7 +59,7 @@ inherited frmCustInput: TfrmCustInput
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1540 Width = 1540
Height = 255 Height = 211
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -67,45 +67,44 @@ inherited frmCustInput: TfrmCustInput
Ctl3D = False Ctl3D = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 26
object Label2: TLabel object Label2: TLabel
Left = 40 Left = 48
Top = 12 Top = 12
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #32534#21495 Caption = #32534#21495
end end
object Label6: TLabel object Label6: TLabel
Left = 40 Left = 48
Top = 49 Top = 49
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #20840#31216 Caption = #20840#31216
end end
object Label7: TLabel object Label7: TLabel
Left = 40 Left = 48
Top = 127 Top = 127
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #22791#27880 Caption = #22791#27880
end end
object Label1: TLabel object Label1: TLabel
Left = 305 Left = 332
Top = 7 Top = 11
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #31616#31216 Caption = #31616#31216
end end
object Label4: TLabel object Label4: TLabel
Left = 416 Left = 1240
Top = 214 Top = 310
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #21306#22495 Caption = #21306#22495
Visible = False Visible = False
end end
object Label8: TLabel object Label8: TLabel
Left = 949 Left = 1277
Top = 180 Top = 180
Width = 32 Width = 32
Height = 21 Height = 21
@ -134,7 +133,7 @@ inherited frmCustInput: TfrmCustInput
Caption = #21697#29260#21830 Caption = #21697#29260#21830
end end
object Label9: TLabel object Label9: TLabel
Left = 915 Left = 1243
Top = 196 Top = 196
Width = 16 Width = 16
Height = 21 Height = 21
@ -142,7 +141,7 @@ inherited frmCustInput: TfrmCustInput
Visible = False Visible = False
end end
object Label11: TLabel object Label11: TLabel
Left = 0 Left = 8
Top = 90 Top = 90
Width = 71 Width = 71
Height = 21 Height = 21
@ -150,20 +149,20 @@ inherited frmCustInput: TfrmCustInput
end end
object Label12: TLabel object Label12: TLabel
Left = 877 Left = 877
Top = 48 Top = 49
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #26376#32467#26041#24335 Caption = #26376#32467#26041#24335
end end
object lbl2: TLabel object lbl2: TLabel
Left = 289 Left = 316
Top = 90 Top = 89
Width = 64 Width = 48
Height = 21 Height = 21
Caption = #19994#21153#21592#65306 Caption = #19994#21153#21592
end end
object lblSalesId: TLabel object lblSalesId: TLabel
Left = 921 Left = 1249
Top = 250 Top = 250
Width = 80 Width = 80
Height = 21 Height = 21
@ -171,21 +170,21 @@ inherited frmCustInput: TfrmCustInput
Visible = False Visible = False
end end
object Label13: TLabel object Label13: TLabel
Left = 875 Left = 877
Top = 128 Top = 128
Width = 80 Width = 64
Height = 21 Height = 21
Caption = #27424#27454#39069#24230#65306 Caption = #27424#27454#39069#24230
end end
object Label14: TLabel object Label14: TLabel
Left = 598 Left = 596
Top = 90 Top = 90
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #22810#20154#31614#25910 Caption = #22810#20154#31614#25910
end end
object Label15: TLabel object Label15: TLabel
Left = 878 Left = 877
Top = 90 Top = 90
Width = 64 Width = 64
Height = 21 Height = 21
@ -193,22 +192,22 @@ inherited frmCustInput: TfrmCustInput
end end
object CoName: TcxTextEdit object CoName: TcxTextEdit
Tag = 2 Tag = 2
Left = 78 Left = 86
Top = 45 Top = 45
TabOrder = 1 TabOrder = 1
Width = 488 Width = 484
end end
object CoAbbrName: TcxTextEdit object CoAbbrName: TcxTextEdit
Tag = 2 Tag = 2
Left = 362 Left = 370
Top = 4 Top = 8
TabOrder = 2 TabOrder = 2
Width = 200 Width = 200
end end
object CoCode: TcxTextEdit object CoCode: TcxTextEdit
Tag = 2 Tag = 2
Left = 78 Left = 86
Top = 6 Top = 8
Enabled = False Enabled = False
TabOrder = 0 TabOrder = 0
Width = 200 Width = 200
@ -216,7 +215,7 @@ inherited frmCustInput: TfrmCustInput
object CoBusinessType: TcxButtonEdit object CoBusinessType: TcxButtonEdit
Tag = 2 Tag = 2
Left = 668 Left = 668
Top = 6 Top = 8
Hint = 'CoBusinessType/'#23458#25143#31867#22411 Hint = 'CoBusinessType/'#23458#25143#31867#22411
Properties.Buttons = < Properties.Buttons = <
item item
@ -232,7 +231,7 @@ inherited frmCustInput: TfrmCustInput
end end
object cocountry: TcxButtonEdit object cocountry: TcxButtonEdit
Tag = 2 Tag = 2
Left = 987 Left = 1315
Top = 173 Top = 173
Hint = 'CoCountry/'#22269#23478 Hint = 'CoCountry/'#22269#23478
Properties.Buttons = < Properties.Buttons = <
@ -250,8 +249,8 @@ inherited frmCustInput: TfrmCustInput
end end
object CoLevel: TcxComboBox object CoLevel: TcxComboBox
Tag = 2 Tag = 2
Left = 667 Left = 668
Top = 43 Top = 45
Properties.Items.Strings = ( Properties.Items.Strings = (
'A' 'A'
'B' 'B'
@ -263,7 +262,7 @@ inherited frmCustInput: TfrmCustInput
object ParentCoName: TcxButtonEdit object ParentCoName: TcxButtonEdit
Tag = 2 Tag = 2
Left = 950 Left = 950
Top = 7 Top = 8
Hint = 'CoBusinessType/'#23458#25143#31867#22411 Hint = 'CoBusinessType/'#23458#25143#31867#22411
Properties.Buttons = < Properties.Buttons = <
item item
@ -279,7 +278,7 @@ inherited frmCustInput: TfrmCustInput
end end
object CoNote: TcxMemo object CoNote: TcxMemo
Tag = 2 Tag = 2
Left = 78 Left = 86
Top = 127 Top = 127
TabOrder = 7 TabOrder = 7
Height = 77 Height = 77
@ -287,7 +286,7 @@ inherited frmCustInput: TfrmCustInput
end end
object Continent: TcxButtonEdit object Continent: TcxButtonEdit
Tag = 2 Tag = 2
Left = 935 Left = 1263
Top = 208 Top = 208
Hint = 'Continent/'#27954 Hint = 'Continent/'#27954
Properties.Buttons = < Properties.Buttons = <
@ -305,8 +304,8 @@ inherited frmCustInput: TfrmCustInput
end end
object Coarea: TcxButtonEdit object Coarea: TcxButtonEdit
Tag = 2 Tag = 2
Left = 78 Left = 86
Top = 84 Top = 86
Hint = 'Coarea/'#22320#21306 Hint = 'Coarea/'#22320#21306
Properties.Buttons = < Properties.Buttons = <
item item
@ -324,7 +323,7 @@ inherited frmCustInput: TfrmCustInput
object PayMentMonth: TcxComboBox object PayMentMonth: TcxComboBox
Tag = 2 Tag = 2
Left = 950 Left = 950
Top = 44 Top = 45
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
'' ''
@ -337,8 +336,8 @@ inherited frmCustInput: TfrmCustInput
end end
object Saleser: TcxButtonEdit object Saleser: TcxButtonEdit
Tag = 2 Tag = 2
Left = 362 Left = 370
Top = 84 Top = 86
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
@ -353,7 +352,7 @@ inherited frmCustInput: TfrmCustInput
end end
object SalesId: TcxTextEdit object SalesId: TcxTextEdit
Tag = 2 Tag = 2
Left = 1002 Left = 1330
Top = 247 Top = 247
TabOrder = 12 TabOrder = 12
Visible = False Visible = False
@ -361,14 +360,14 @@ inherited frmCustInput: TfrmCustInput
end end
object AMOUNTOWED: TcxTextEdit object AMOUNTOWED: TcxTextEdit
Tag = 2 Tag = 2
Left = 949 Left = 950
Top = 125 Top = 125
TabOrder = 13 TabOrder = 13
Width = 125 Width = 125
end end
object area: TcxMRUEdit object area: TcxMRUEdit
Left = 455 Left = 1278
Top = 216 Top = 310
Hint = 'area/'#21306#22495 Hint = 'area/'#21306#22495
ParentFont = False ParentFont = False
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -382,12 +381,12 @@ inherited frmCustInput: TfrmCustInput
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 14 TabOrder = 14
Visible = False Visible = False
Width = 501 Width = 185
end end
object MoreFlag: TcxComboBox object MoreFlag: TcxComboBox
Tag = 2 Tag = 2
Left = 668 Left = 668
Top = 84 Top = 86
Properties.Items.Strings = ( Properties.Items.Strings = (
#26159 #26159
#21542) #21542)
@ -397,8 +396,8 @@ inherited frmCustInput: TfrmCustInput
end end
object SealFlag: TcxComboBox object SealFlag: TcxComboBox
Tag = 2 Tag = 2
Left = 951 Left = 950
Top = 84 Top = 86
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
#26159 #26159
@ -410,20 +409,23 @@ inherited frmCustInput: TfrmCustInput
end end
object Panel1: TPanel [2] object Panel1: TPanel [2]
Left = 0 Left = 0
Top = 285 Top = 241
Width = 1540 Width = 1540
Height = 388 Height = 432
Align = alClient Align = alClient
Caption = 'Panel1' Caption = 'Panel1'
TabOrder = 2 TabOrder = 2
ExplicitTop = 285
ExplicitHeight = 388
object Panel3: TPanel object Panel3: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1078 Width = 1078
Height = 386 Height = 430
Align = alClient Align = alClient
Caption = 'Panel1' Caption = 'Panel1'
TabOrder = 0 TabOrder = 0
ExplicitHeight = 386
object ToolBar3: TToolBar object ToolBar3: TToolBar
Tag = 1 Tag = 1
Left = 1 Left = 1
@ -470,10 +472,11 @@ inherited frmCustInput: TfrmCustInput
Left = 1 Left = 1
Top = 31 Top = 31
Width = 1076 Width = 1076
Height = 354 Height = 398
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
TabOrder = 1 TabOrder = 1
ExplicitHeight = 354
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -514,13 +517,6 @@ inherited frmCustInput: TfrmCustInput
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 77 Width = 77
end end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #32844#20301
DataBinding.FieldName = 'position'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object cxGridDBColumn6: TcxGridDBColumn object cxGridDBColumn6: TcxGridDBColumn
Caption = #32852#31995#30005#35805 Caption = #32852#31995#30005#35805
DataBinding.FieldName = 'Telephone' DataBinding.FieldName = 'Telephone'
@ -528,7 +524,7 @@ inherited frmCustInput: TfrmCustInput
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 86 Width = 100
end end
object cxGridDBColumn7: TcxGridDBColumn object cxGridDBColumn7: TcxGridDBColumn
Caption = #25163#26426#21495 Caption = #25163#26426#21495
@ -539,6 +535,34 @@ inherited frmCustInput: TfrmCustInput
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 109 Width = 109
end end
object TV2Column1: TcxGridDBColumn
Caption = #22320#22336
DataBinding.FieldName = 'mxaddress'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 128
end
object TV2Column3: TcxGridDBColumn
Caption = #21306#22495
DataBinding.FieldName = 'mxarea'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = TV2Column3PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 88
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #32844#20301
DataBinding.FieldName = 'position'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object cxGridDBColumn8: TcxGridDBColumn object cxGridDBColumn8: TcxGridDBColumn
DataBinding.FieldName = 'EMAIL' DataBinding.FieldName = 'EMAIL'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -552,27 +576,6 @@ inherited frmCustInput: TfrmCustInput
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object TV2Column1: TcxGridDBColumn
Caption = #22320#22336
DataBinding.FieldName = 'mxaddress'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 186
end
object TV2Column3: TcxGridDBColumn
Caption = #21306#22495
DataBinding.FieldName = 'mxarea'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = TV2Column3PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 73
end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
GridView = TV2 GridView = TV2
@ -583,18 +586,20 @@ inherited frmCustInput: TfrmCustInput
Left = 1079 Left = 1079
Top = 1 Top = 1
Width = 460 Width = 460
Height = 386 Height = 430
Align = alRight Align = alRight
Caption = 'Panel1' Caption = 'Panel1'
TabOrder = 1 TabOrder = 1
ExplicitHeight = 386
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 1 Left = 1
Top = 31 Top = 31
Width = 458 Width = 458
Height = 354 Height = 398
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
TabOrder = 0 TabOrder = 0
ExplicitHeight = 354
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -670,66 +675,69 @@ inherited frmCustInput: TfrmCustInput
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Company.ADOLink Connection = DataLink_Company.ADOLink
Left = 828 Left = 592
Top = 405 Top = 260
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Company.ADOLink Connection = DataLink_Company.ADOLink
Left = 763 Left = 674
Top = 377 Top = 260
end end
inherited ImageList_new32: TImageList inherited ImageList_new32: TImageList
Left = 551 Left = 674
Top = 433 Top = 384
end end
inherited cxImageList_bar: TcxImageList inherited cxImageList_bar: TcxImageList
FormatVersion = 1 FormatVersion = 1
Left = 838
Top = 322
DesignInfo = 21103430
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_Company.ADOLink Connection = DataLink_Company.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 963 Left = 920
Top = 344 Top = 260
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_Company.ADOLink Connection = DataLink_Company.ADOLink
Parameters = <> Parameters = <>
Left = 1055 Left = 756
Top = 387 Top = 260
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_Company.ADOLink Connection = DataLink_Company.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 872 Left = 838
Top = 312 Top = 260
end end
object cxGridPopupMenu2: TcxGridPopupMenu object cxGridPopupMenu2: TcxGridPopupMenu
PopupMenus = <> PopupMenus = <>
Left = 294 Left = 756
Top = 502 Top = 322
end end
object CDS_LXR: TClientDataSet object CDS_LXR: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 377 Left = 592
Top = 503 Top = 322
end end
object DSLXR: TDataSource object DSLXR: TDataSource
DataSet = CDS_LXR DataSet = CDS_LXR
Left = 464 Left = 592
Top = 511 Top = 384
end end
object ClientDataSet1: TClientDataSet object ClientDataSet1: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 774 Left = 674
Top = 469 Top = 322
end end
object DataSource1: TDataSource object DataSource1: TDataSource
DataSet = ClientDataSet1 DataSet = ClientDataSet1
Left = 909 Left = 920
Top = 461 Top = 322
end end
end end

42
A01基础公司管理/U_CustInput.pas
View File

@ -227,7 +227,9 @@ begin
frmZDYHelp := TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do with frmZDYHelp do
begin begin
MainType := 'Cust'; fnote:=True; V1Note.caption := '区域代号'; MainType := 'Cust';
fnote := True;
V1Note.caption := '区域代号';
flag := Copy(fsj, 1, FWZ - 1); flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then if ShowModal = 1 then
@ -616,9 +618,45 @@ begin
end; end;
if Trim(CoName.Text) = '' then if Trim(CoName.Text) = '' then
begin begin
Application.MessageBox('名称不能为空!', '提示', 0); Application.MessageBox('全称不能为空!', '提示', 0);
Exit; Exit;
end; end;
with CDS_LXR do
begin
DisableControls;
while not Eof do
begin
if Trim(FieldByName('Contacts').AsString) = '' then
begin
Application.MessageBox('联系人不能为空!', '提示', 0);
Exit;
end;
if Trim(FieldByName('PhoneNumber').AsString) = '' then
begin
Application.MessageBox('手机号不能为空!', '提示', 0);
Exit;
end;
if Trim(FieldByName('Telephone').AsString) = '' then
begin
Application.MessageBox('联系电话不能为空!', '提示', 0);
Exit;
end;
if Trim(FieldByName('mxaddress').AsString) = '' then
begin
Application.MessageBox('地址不能为空!', '提示', 0);
Exit;
end;
if Trim(FieldByName('mxarea').AsString) = '' then
begin
Application.MessageBox('区域不能为空!', '提示', 0);
Exit;
end;
Next;
end;
EnableControls;
end;
if SaveData() then if SaveData() then
begin begin
Application.MessageBox('保存成功!', '提示', 0); Application.MessageBox('保存成功!', '提示', 0);

41
A02基础产品管理/U_ClothInfo.dfm
View File

@ -2,7 +2,7 @@ inherited frmClothInfo: TfrmClothInfo
Left = 117 Left = 117
Top = 154 Top = 154
Caption = #20135#21697#26723#26696 Caption = #20135#21697#26723#26696
ClientHeight = 581 ClientHeight = 808
ClientWidth = 1540 ClientWidth = 1540
Color = clBtnFace Color = clBtnFace
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -11,7 +11,7 @@ inherited frmClothInfo: TfrmClothInfo
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 620 ExplicitHeight = 847
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -162,9 +162,10 @@ inherited frmClothInfo: TfrmClothInfo
Left = 220 Left = 220
Top = 75 Top = 75
Width = 8 Width = 8
Height = 506 Height = 733
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
Control = Panel5 Control = Panel5
ExplicitHeight = 506
end end
object Panel1: TPanel [2] object Panel1: TPanel [2]
Left = 0 Left = 0
@ -265,16 +266,17 @@ inherited frmClothInfo: TfrmClothInfo
Left = 0 Left = 0
Top = 75 Top = 75
Width = 220 Width = 220
Height = 506 Height = 733
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 2 TabOrder = 2
ExplicitHeight = 506
object cxDBTreeList1: TcxDBTreeList object cxDBTreeList1: TcxDBTreeList
Left = 2 Left = 2
Top = 2 Top = 2
Width = 216 Width = 216
Height = 502 Height = 729
Align = alClient Align = alClient
Bands = < Bands = <
item item
@ -292,6 +294,7 @@ inherited frmClothInfo: TfrmClothInfo
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
TabOrder = 0 TabOrder = 0
OnDblClick = cxDBTreeList1DblClick OnDblClick = cxDBTreeList1DblClick
ExplicitHeight = 502
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
DataBinding.FieldName = 'CTName' DataBinding.FieldName = 'CTName'
Width = 210 Width = 210
@ -307,12 +310,13 @@ inherited frmClothInfo: TfrmClothInfo
Left = 228 Left = 228
Top = 75 Top = 75
Width = 1108 Width = 1108
Height = 506 Height = 733
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Caption = 'Panel3' Caption = 'Panel3'
TabOrder = 4 TabOrder = 4
ExplicitHeight = 506
object Panel7: TPanel object Panel7: TPanel
Left = 2 Left = 2
Top = 2 Top = 2
@ -397,12 +401,13 @@ inherited frmClothInfo: TfrmClothInfo
end end
object Panel9: TPanel object Panel9: TPanel
Left = 2 Left = 2
Top = 299 Top = 526
Width = 1104 Width = 1104
Height = 205 Height = 205
Align = alBottom Align = alBottom
Caption = 'Panel9' Caption = 'Panel9'
TabOrder = 1 TabOrder = 1
ExplicitTop = 299
object Panel10: TPanel object Panel10: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
@ -433,13 +438,16 @@ inherited frmClothInfo: TfrmClothInfo
end end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 10 Left = 2
Top = 42 Top = 42
Width = 1088 Width = 1096
Height = 257 Height = 484
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitLeft = 10
ExplicitWidth = 1088
ExplicitHeight = 257
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
@ -682,19 +690,13 @@ inherited frmClothInfo: TfrmClothInfo
GridView = Tv1 GridView = Tv1
end end
end end
object cxSplitter2: TcxSplitter
Left = 2
Top = 42
Width = 8
Height = 257
HotZoneClassName = 'TcxMediaPlayer9Style'
end
object cxSplitter3: TcxSplitter object cxSplitter3: TcxSplitter
Left = 1098 Left = 1098
Top = 42 Top = 42
Width = 8 Width = 8
Height = 257 Height = 484
AlignSplitter = salRight AlignSplitter = salRight
ExplicitHeight = 257
end end
end end
inherited loadProcess: TPanel inherited loadProcess: TPanel
@ -714,9 +716,10 @@ inherited frmClothInfo: TfrmClothInfo
Left = 1336 Left = 1336
Top = 75 Top = 75
Width = 204 Width = 204
Height = 506 Height = 733
Align = alRight Align = alRight
TabOrder = 8 TabOrder = 8
ExplicitHeight = 506
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

1
A02基础产品管理/U_ClothInfo.pas
View File

@ -129,7 +129,6 @@ type
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
DS_2: TDataSource; DS_2: TDataSource;
ADO_2: TADOQuery; ADO_2: TADOQuery;
cxSplitter2: TcxSplitter;
cxSplitter3: TcxSplitter; cxSplitter3: TcxSplitter;
ToolButton7: TToolButton; ToolButton7: TToolButton;
Tv1Column11: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn;

10
A02基础产品管理/U_ClothInfoInput.dfm
View File

@ -152,7 +152,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Left = 66 Left = 66
Top = 274 Top = 274
Width = 32 Width = 32
Height = 22 Height = 21
Caption = #22791#27880 Caption = #22791#27880
end end
object Label11: TLabel object Label11: TLabel
@ -472,8 +472,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 441 Height = 441
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 345
ExplicitHeight = 423
object Panel4: TPanel object Panel4: TPanel
Left = 1 Left = 1
Top = 185 Top = 185
@ -482,7 +480,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Align = alLeft Align = alLeft
Caption = 'Panel4' Caption = 'Panel4'
TabOrder = 0 TabOrder = 0
ExplicitHeight = 237
object ToolBar3: TToolBar object ToolBar3: TToolBar
Left = 1 Left = 1
Top = 1 Top = 1
@ -521,7 +518,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 223 Height = 223
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitHeight = 205
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -577,7 +573,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Align = alClient Align = alClient
Caption = 'Panel5' Caption = 'Panel5'
TabOrder = 1 TabOrder = 1
ExplicitHeight = 237
object ToolBar4: TToolBar object ToolBar4: TToolBar
Left = 1 Left = 1
Top = 1 Top = 1
@ -616,7 +611,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 223 Height = 223
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitHeight = 205
object TV3: TcxGridDBTableView object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -671,8 +665,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 184 Height = 184
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
ExplicitLeft = -2
ExplicitTop = -1
object lbl1: TLabel object lbl1: TLabel
Left = 61 Left = 61
Top = 3 Top = 3

22
T02贸易汇总仓库/U_ItemizedListInPut.dfm
View File

@ -3,11 +3,11 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Top = 4 Top = 4
Caption = #35746#21333#24405#20837 Caption = #35746#21333#24405#20837
ClientHeight = 593 ClientHeight = 593
ClientWidth = 1153 ClientWidth = 1240
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -16 Font.Height = -16
Position = poMainFormCenter Position = poMainFormCenter
ExplicitWidth = 1169 ExplicitWidth = 1256
ExplicitHeight = 632 ExplicitHeight = 632
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -15,7 +15,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1153 Width = 1240
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -27,6 +27,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1153
object TBSave: TToolButton object TBSave: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -72,7 +73,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 193 Top = 193
Width = 1153 Width = 1240
Height = 30 Height = 30
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 99 ButtonWidth = 99
@ -83,6 +84,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 1
ExplicitWidth = 1153
object btnAdd: TToolButton object btnAdd: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -112,27 +114,30 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
object Panel2: TPanel [2] object Panel2: TPanel [2]
Left = 0 Left = 0
Top = 223 Top = 223
Width = 1153 Width = 1240
Height = 370 Height = 370
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 2 TabOrder = 2
ExplicitWidth = 1153
object Panel3: TPanel object Panel3: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1151 Width = 1238
Height = 368 Height = 368
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1151
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1149 Width = 1236
Height = 366 Height = 366
Align = alClient Align = alClient
PopupMenu = PopupMenu2 PopupMenu = PopupMenu2
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1149
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
@ -344,7 +349,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
object ScrollBox1: TScrollBox [3] object ScrollBox1: TScrollBox [3]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1153 Width = 1240
Height = 163 Height = 163
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -353,6 +358,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Ctl3D = False Ctl3D = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 3 TabOrder = 3
ExplicitWidth = 1153
object Label3: TLabel object Label3: TLabel
Left = 377 Left = 377
Top = 11 Top = 11

38
T02贸易汇总仓库/U_ItemizedListInPut.pas
View File

@ -398,8 +398,17 @@ end;
function TfrmItemizedListInPut.SaveData(): Boolean; function TfrmItemizedListInPut.SaveData(): Boolean;
var var
maxno, Smaxno, maxTMMNo, MaxFNo: string; maxno, Smaxno, maxTMMNo, MaxFNo, MFtyPCId, MSJQZ: string;
begin begin
with ADOTemp do
begin
Close;
sql.Clear;
SQL.Add('select SJQZ=format(SYSDATETIME(),''yyMMddhhmm'')');
Open;
MSJQZ := Trim(ADOTemp.FieldByName('SJQZ').AsString);
end;
try try
ADOCmd.Connection.BeginTrans; ADOCmd.Connection.BeginTrans;
///保存主表 ///保存主表
@ -478,7 +487,12 @@ begin
Edit; Edit;
RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Trade_ItemizedList_Sub', 0); RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Trade_ItemizedList_Sub', 0);
if Trim(CDS_1.FieldByName('FtyPCId').AsString) = '' then
begin
if GetLSNo(ADOCmd, MFtyPCId, MSJQZ, 'FtyPCId', 3, 0) = False then
raise Exception.Create('È¡¸×ºÅʧ°Ü!');
FieldByName('FtyPCId').Value := MFtyPCId;
end;
FieldByName('TIMID').Value := Trim(maxno); FieldByName('TIMID').Value := Trim(maxno);
FieldByName('TISId').Value := Trim(Smaxno); FieldByName('TISId').Value := Trim(Smaxno);
Post; Post;
@ -499,6 +513,17 @@ begin
if ADOCmd.RecordCount > 1 then if ADOCmd.RecordCount > 1 then
raise Exception.Create('订单号重复!'); raise Exception.Create('订单号重复!');
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select A.FtyPCId from Trade_ItemizedList_Sub A where TIMID<>''' + Trim(maxno) + '''');
sql.Add(' and A.FtyPCId in( select X.FtyPCId from Trade_ItemizedList_Sub X where TIMID=''' + Trim(maxno) + ''' and isnull(X.FtyPCId,'''')<>'''' ) ');
Open;
end;
if not ADOCmd.IsEmpty then
raise Exception.Create(pchar('¸×ºÅ' + trim(ADOCmd.FieldByName('FtyPCId').AsString) + 'Öظ´!'));
with ADOCmd do with ADOCmd do
begin begin
Close; Close;
@ -561,6 +586,14 @@ begin
begin begin
Application.MessageBox('保存成功！', '提示', 0); Application.MessageBox('保存成功！', '提示', 0);
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete Trade_ItemizedList_Sub where ISNULL(TISPiece, 0)+ISNULL(TISQty, 0) =0 and TIMID=' + QuotedStr(Trim(FTIMID)));
ExecSQL;
end;
// CDS_1.EmptyDataSet; // CDS_1.EmptyDataSet;
// PState := 0; // PState := 0;
// FTIMID := ''; // FTIMID := '';
@ -1269,7 +1302,6 @@ end;
procedure TfrmItemizedListInPut.Tv1DblClick(Sender: TObject); procedure TfrmItemizedListInPut.Tv1DblClick(Sender: TObject);
var var
MTISId, MQtyUnit: string; MTISId, MQtyUnit: string;
begin begin
if Trim(CDS_1.FieldByName('TISUnit').AsString) = '' then if Trim(CDS_1.FieldByName('TISUnit').AsString) = '' then
begin begin

29
T02贸易汇总仓库/U_ItemizedListList.dfm
View File

@ -87,20 +87,28 @@ inherited frmItemizedListList: TfrmItemizedListList
Left = 561 Left = 561
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #30721#21333#25171#21360 Caption = #25353#21333#25171#21360
ImageIndex = 21 ImageIndex = 21
OnClick = TBPrintClick OnClick = TBPrintClick
end end
object TBCK: TToolButton object ToolButton5: TToolButton
Left = 664 Left = 664
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21246#36873#25171#21360
ImageIndex = 21
OnClick = ToolButton5Click
end
object TBCK: TToolButton
Left = 767
Top = 0
AutoSize = True
Caption = #26597#30475 Caption = #26597#30475
ImageIndex = 8 ImageIndex = 8
OnClick = TBCKClick OnClick = TBCKClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 735 Left = 838
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #38468#20214 Caption = #38468#20214
@ -108,15 +116,23 @@ inherited frmItemizedListList: TfrmItemizedListList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 806 Left = 909
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
ImageIndex = 16 ImageIndex = 16
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton3: TToolButton
Left = 1012
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 28
OnClick = ToolButton3Click
end
object TBClose: TToolButton object TBClose: TToolButton
Left = 909 Left = 1083
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -286,6 +302,7 @@ inherited frmItemizedListList: TfrmItemizedListList
Width = 1540 Width = 1540
Height = 584 Height = 584
Align = alClient Align = alClient
PopupMenu = pm1
TabOrder = 5 TabOrder = 5
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
OnDblClick = TV1DblClick OnDblClick = TV1DblClick
@ -635,7 +652,7 @@ inherited frmItemizedListList: TfrmItemizedListList
Left = 597 Left = 597
Top = 495 Top = 495
end end
object PopupMenu2: TPopupMenu object pm1: TPopupMenu
Left = 785 Left = 785
Top = 495 Top = 495
object N3: TMenuItem object N3: TMenuItem

33
T02贸易汇总仓库/U_ItemizedListList.pas
View File

@ -45,7 +45,7 @@ type
ADOQueryImage: TADOQuery; ADOQueryImage: TADOQuery;
DSImage: TDataSource; DSImage: TDataSource;
IdFTP1: TIdFTP; IdFTP1: TIdFTP;
PopupMenu2: TPopupMenu; pm1: TPopupMenu;
N3: TMenuItem; N3: TMenuItem;
N4: TMenuItem; N4: TMenuItem;
Label1: TLabel; Label1: TLabel;
@ -94,6 +94,8 @@ type
C_ColorNo: TcxTextEdit; C_ColorNo: TcxTextEdit;
Label2: TLabel; Label2: TLabel;
FtyPCId: TcxTextEdit; FtyPCId: TcxTextEdit;
ToolButton3: TToolButton;
ToolButton5: TToolButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -127,6 +129,8 @@ type
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure TV1DblClick(Sender: TObject); procedure TV1DblClick(Sender: TObject);
procedure TV1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure TV1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
private private
DQdate: TDateTime; DQdate: TDateTime;
procedure InitGrid(); procedure InitGrid();
@ -392,7 +396,7 @@ var
MPrintJson: string; MPrintJson: string;
begin begin
MFiltration := Trim(Self.Order_Main.fieldbyname('TIMNo').AsString); MFiltration := Trim(Self.Order_Main.fieldbyname('TIMNo').AsString);
MPrintJson := ' {"LMType": "TradeFinishClothOutPrt1" '; MPrintJson := ' {"LMType": "ItemizedListList1" ';
MPrintJson := MPrintJson + ' ,"PreviewPrint": true '; MPrintJson := MPrintJson + ' ,"PreviewPrint": true ';
MPrintJson := MPrintJson + ' ,"PrtArgs": [ { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; MPrintJson := MPrintJson + ' ,"PrtArgs": [ { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
@ -598,6 +602,22 @@ begin
end; end;
end; end;
procedure TfrmItemizedListList.ToolButton5Click(Sender: TObject);
var
MFiltration: string;
MPrintJson: string;
begin
MFiltration := SelCDSKey(Order_Main, ['TISId'])[0];
MPrintJson := ' {"LMType": "ItemizedListList2" ';
MPrintJson := MPrintJson + ' ,"PreviewPrint": true ';
MPrintJson := MPrintJson + ' ,"PrtArgs": [ { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" } ] } ';
FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson));
end;
procedure TfrmItemizedListList.cxTabControl1Change(Sender: TObject); procedure TfrmItemizedListList.cxTabControl1Change(Sender: TObject);
begin begin
SetStatus(); SetStatus();
@ -678,12 +698,12 @@ end;
procedure TfrmItemizedListList.N3Click(Sender: TObject); procedure TfrmItemizedListList.N3Click(Sender: TObject);
begin begin
SelOKNoFiler(Tv1, True); //全选 SelOKNo(Order_Main, True); //È«Ñ¡
end; end;
procedure TfrmItemizedListList.N4Click(Sender: TObject); procedure TfrmItemizedListList.N4Click(Sender: TObject);
begin begin
SelOKNoFiler(Tv1, False); //全弃 SelOKNo(Order_Main, False); //È«Æú
end; end;
procedure TfrmItemizedListList.ComboBox1Change(Sender: TObject); procedure TfrmItemizedListList.ComboBox1Change(Sender: TObject);
@ -747,5 +767,10 @@ begin
WriteCxGrid('指示单列表FF1', Tv1, '生产指示单管理'); WriteCxGrid('指示单列表FF1', Tv1, '生产指示单管理');
end; end;
procedure TfrmItemizedListList.ToolButton3Click(Sender: TObject);
begin
TcxGridToExcel(Trim(Self.Caption), cxGrid1);
end;
end. end.

2
T02贸易汇总仓库/U_ItemizedListQtyInPut.dfm
View File

@ -29,8 +29,6 @@ inherited frmItemizedListQtyInPut: TfrmItemizedListQtyInPut
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 0
ExplicitTop = 69
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnKeyDown = Tv1KeyDown OnKeyDown = Tv1KeyDown
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>

21
T02贸易汇总仓库/U_ItemizedListQtyInPut.pas
View File

@ -65,7 +65,6 @@ type
private private
{ Private declarations } { Private declarations }
function SaveData(): Boolean; function SaveData(): Boolean;
procedure NianTie(); procedure NianTie();
function Split(const s: string; Separator: char): TStringDynArray; function Split(const s: string; Separator: char): TStringDynArray;
public public
@ -140,7 +139,6 @@ begin
// 首先按换行符拆分成行 // 首先按换行符拆分成行
Lines := Split(ClipboardText, #13); // Windows系统中换行符通常是#13#10 Lines := Split(ClipboardText, #13); // Windows系统中换行符通常是#13#10
// 遍历每一行 // 遍历每一行
for i := 0 to Length(Lines) - 1 do for i := 0 to Length(Lines) - 1 do
begin begin
@ -591,7 +589,6 @@ begin
First; First;
while not Eof do while not Eof do
begin begin
Edit; Edit;
if FQtyUnit = 'M' then if FQtyUnit = 'M' then
begin begin
@ -605,12 +602,28 @@ begin
begin begin
FieldByName('Qty').Value := FieldByName('NetWeight').Value; FieldByName('Qty').Value := FieldByName('NetWeight').Value;
end; end;
Post; Post;
Next; Next;
end; end;
EnableControls; EnableControls;
end; end;
with CDS_Sub do
begin
DisableControls;
First;
while not Eof do
begin
if FieldByName('Meter').AsFloat + FieldByName('Yardage').AsFloat + FieldByName('NetWeight').AsFloat = 0 then
begin
Delete;
end
else
Next;
end;
EnableControls;
end;
if CDS_Sub.Locate('Qty', null, []) = True then if CDS_Sub.Locate('Qty', null, []) = True then
begin begin
Application.MessageBox('数量不能为空!', '提示', 0); Application.MessageBox('数量不能为空!', '提示', 0);

2
T02贸易汇总仓库/U_TradeClothTotalInList.pas
View File

@ -458,10 +458,12 @@ begin
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
InitGrid2(); InitGrid2();
InitGrid1();
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
InitGrid2(); InitGrid2();
InitGrid1();
end; end;
end; end;

6
T02贸易汇总仓库/U_TradeClothTotalOutList.dfm
View File

@ -9,8 +9,8 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 1289 ExplicitWidth = 1297
ExplicitHeight = 521 ExplicitHeight = 529
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -322,7 +322,7 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
Height = 342 Height = 342
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
Properties.ActivePage = cxTabSheet2 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 5 Properties.Style = 5
OnChange = cxPageControl1Change OnChange = cxPageControl1Change

4
T02贸易汇总仓库/U_TradeClothTotalOutList.pas
View File

@ -563,10 +563,12 @@ begin
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
InitGrid2(); InitGrid2();
InitGrid1();
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0); application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0);
InitGrid2(); InitGrid2();
InitGrid1();
end; end;
end; end;
@ -650,7 +652,7 @@ begin
FstkName := Self.FstkName; FstkName := Self.FstkName;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.InitGrid2(); Self.InitGrid1();
end; end;
end; end;
finally finally

3
T03贸易布匹检验/DjdMachineInsp.dpr
View File

@ -50,7 +50,8 @@ uses
U_printPdf in '..\..\..\public10\ThreeFun\Fun\U_printPdf.pas', U_printPdf in '..\..\..\public10\ThreeFun\Fun\U_printPdf.pas',
U_TradeClothTotalOutSel in 'U_TradeClothTotalOutSel.pas' {frmTradeClothTotalOutSel}, U_TradeClothTotalOutSel in 'U_TradeClothTotalOutSel.pas' {frmTradeClothTotalOutSel},
U_CustomFun in '..\A00通用方法\U_CustomFun.pas', U_CustomFun in '..\A00通用方法\U_CustomFun.pas',
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas'; uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_ProgressUpdate in '..\A00通用方法\U_ProgressUpdate.pas';
{$R *.res} {$R *.res}

1
T03贸易布匹检验/DjdMachineInsp.dproj
View File

@ -303,6 +303,7 @@
</DCCReference> </DCCReference>
<DCCReference Include="..\A00通用方法\U_CustomFun.pas"/> <DCCReference Include="..\A00通用方法\U_CustomFun.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/> <DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<DCCReference Include="..\A00通用方法\U_ProgressUpdate.pas"/>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

1243
T03贸易布匹检验/U_MachRollMain.dfm
View File

File diff suppressed because it is too large Load Diff

216
T03贸易布匹检验/U_MachRollMain.pas
View File

@ -22,63 +22,12 @@ uses
type type
TfrmMachRollMain = class(TfrmBaseList) TfrmMachRollMain = class(TfrmBaseList)
dxLayoutControl_packGroup_Root: TdxLayoutGroup;
dxLayoutControl_pack: TdxLayoutControl;
Qty: TcxTextEdit;
FtyPCId: TcxTextEdit;
Color: TcxTextEdit;
ColorNo: TcxTextEdit;
CodeName: TcxTextEdit;
OrderNo: TcxTextEdit;
edtScan: TcxTextEdit;
BCIOID: TcxTextEdit;
dxLayoutGroup_scan: TdxLayoutGroup;
dxLayoutItem1: TdxLayoutItem;
dxLayoutItem3: TdxLayoutItem;
dxLayoutGroup_plan: TdxLayoutGroup;
dxLayoutItem4: TdxLayoutItem;
dxLayoutItem5: TdxLayoutItem;
dxLayoutItem6: TdxLayoutItem;
dxLayoutGroup_plan_1: TdxLayoutGroup;
dxLayoutGroup_plan_2: TdxLayoutGroup;
dxLayoutItem7: TdxLayoutItem;
dxLayoutItem8: TdxLayoutItem;
dxLayoutItem10: TdxLayoutItem;
dxLayoutEmptySpaceItem1: TdxLayoutEmptySpaceItem;
InputLen: TcxTextEdit;
BTPrint: TButton;
Tare: TcxTextEdit;
Coefficient: TcxTextEdit;
InputWeight: TcxTextEdit;
OutPutWeight: TcxTextEdit;
dxLayoutGroup_do2: TdxLayoutGroup;
dxLayoutItem15: TdxLayoutItem;
dxLayoutItem16: TdxLayoutItem;
dxLayoutItem_outweight: TdxLayoutItem;
lblLenUnit: TdxLayoutLabeledItem;
dxLayoutItem18: TdxLayoutItem;
dxLayoutLabeledItem2: TdxLayoutLabeledItem;
dxLayoutItem21: TdxLayoutItem;
dxLayoutEmptySpaceItem3: TdxLayoutEmptySpaceItem;
dxLayoutAutoCreatedGroup1: TdxLayoutAutoCreatedGroup;
dxLayoutAutoCreatedGroup3: TdxLayoutAutoCreatedGroup;
dxLayoutAutoCreatedGroup5: TdxLayoutAutoCreatedGroup;
dxLayoutGroup1: TdxLayoutGroup;
dxLayoutEmptySpaceItem5: TdxLayoutEmptySpaceItem;
dxLayoutItem24: TdxLayoutItem;
dxLayoutGroup2: TdxLayoutGroup;
cxDBImage1: TcxDBImage;
Panel_right: TPanel; Panel_right: TPanel;
ToolBar2: TToolBar; ToolBar2: TToolBar;
ToolButton3: TToolButton; ToolButton3: TToolButton;
Trolldel: TToolButton; Trolldel: TToolButton;
ToolButton4: TToolButton; ToolButton4: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton; ToolButton8: TToolButton;
dxLayoutItem_zhfield: TdxLayoutItem;
AOrdDefNote1: TcxRichEdit;
dxLayoutItem_pic: TdxLayoutItem;
dxLayoutAutoCreatedGroup2: TdxLayoutAutoCreatedGroup;
cds_params: TClientDataSet; cds_params: TClientDataSet;
cds_paramsdabao: TStringField; cds_paramsdabao: TStringField;
cds_paramspackRolls: TIntegerField; cds_paramspackRolls: TIntegerField;
@ -110,24 +59,13 @@ type
cds_paramsFixedLength: TIntegerField; cds_paramsFixedLength: TIntegerField;
cds_paramspacknoMake: TStringField; cds_paramspacknoMake: TStringField;
cds_paramspieceOrder: TBooleanField; cds_paramspieceOrder: TBooleanField;
lblRuleConversion: TcxComboBox;
dxLayoutItem14: TdxLayoutItem;
dxLayoutAutoCreatedGroup4: TdxLayoutAutoCreatedGroup;
cds_paramsLabVolume: TStringField; cds_paramsLabVolume: TStringField;
cds_paramsLabPackage: TStringField; cds_paramsLabPackage: TStringField;
dxLayoutItem_packnote: TdxLayoutItem;
packnote: TcxMemo;
Tlog: TToolButton; Tlog: TToolButton;
cxGroupBox_keys: TcxGroupBox; cxGroupBox_keys: TcxGroupBox;
FrameKeyBoard1: TFrameKeyBoard; FrameKeyBoard1: TFrameKeyBoard;
dxLayoutItem_Pattern: TdxLayoutItem;
C_Pattern: TcxTextEdit;
RuleYardstick: TcxTextEdit;
dxLayoutItem_RuleYardstick: TdxLayoutItem;
cds_paramsAddwetPresent: TFloatField; cds_paramsAddwetPresent: TFloatField;
cds_paramsAddLenPresent: TFloatField; cds_paramsAddLenPresent: TFloatField;
C_StyleNo: TcxTextEdit;
dxLayoutItem_StyleNo: TdxLayoutItem;
GPM_3: TcxGridPopupMenu; GPM_3: TcxGridPopupMenu;
MovePanel1: TMovePanel; MovePanel1: TMovePanel;
ADOQueryImage: TADOQuery; ADOQueryImage: TADOQuery;
@ -135,26 +73,6 @@ type
cds_paramspackPrintPreview: TBooleanField; cds_paramspackPrintPreview: TBooleanField;
cds_paramspacklabNumber: TIntegerField; cds_paramspacklabNumber: TIntegerField;
cds_paramspackPostAction: TStringField; cds_paramspackPostAction: TStringField;
customStrField1: TcxTextEdit;
dxLayoutItem_customStrField1: TdxLayoutItem;
dxLayoutItem_customStrField2: TdxLayoutItem;
customStrField2: TcxTextEdit;
dxLayoutItem_width: TdxLayoutItem;
dxLayoutItem_gram: TdxLayoutItem;
C_Width: TcxTextEdit;
C_GramWeight: TcxTextEdit;
dxLayoutItem_addlen: TdxLayoutItem;
dxLayoutItem_addwet: TdxLayoutItem;
addLen: TcxTextEdit;
addWet: TcxTextEdit;
bt_printmd: TButton;
dxLayoutItem_btprintmd: TdxLayoutItem;
dxLayoutItem_presentLen: TdxLayoutItem;
dxLayoutItem_presentWeight: TdxLayoutItem;
presentLen: TcxTextEdit;
presentWeight: TcxTextEdit;
unitPieces: TcxTextEdit;
dxLayoutItem_unitPieces: TdxLayoutItem;
ADO_CJ: TADOQuery; ADO_CJ: TADOQuery;
ToolButton1: TToolButton; ToolButton1: TToolButton;
cxGrid3: TcxGrid; cxGrid3: TcxGrid;
@ -190,8 +108,54 @@ type
TV2Column4: TcxGridDBColumn; TV2Column4: TcxGridDBColumn;
ADO_2: TADOQuery; ADO_2: TADOQuery;
TV2Column5: TcxGridDBColumn; TV2Column5: TcxGridDBColumn;
TV2Column6: TcxGridDBColumn;
TV2Column7: TcxGridDBColumn; TV2Column7: TcxGridDBColumn;
Panel1: TPanel;
edtScan: TcxTextEdit;
Label1: TLabel;
OrderNo: TcxTextEdit;
ColorNo: TcxTextEdit;
FtyPCId: TcxTextEdit;
Qty: TcxTextEdit;
BCIOID: TcxTextEdit;
Color: TcxTextEdit;
CodeName: TcxTextEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
InputLen: TcxTextEdit;
lblLenUnit: TLabel;
Label10: TLabel;
InputWeight: TcxTextEdit;
Tare: TcxTextEdit;
Label11: TLabel;
BTPrint: TButton;
Coefficient: TcxTextEdit;
lblRuleConversion: TcxComboBox;
Label12: TLabel;
AOrdDefNote1: TcxRichEdit;
packnote: TcxMemo;
unitPieces: TcxTextEdit;
presentWeight: TcxTextEdit;
presentLen: TcxTextEdit;
bt_printmd: TButton;
addWet: TcxTextEdit;
addLen: TcxTextEdit;
C_GramWeight: TcxTextEdit;
C_Width: TcxTextEdit;
customStrField2: TcxTextEdit;
customStrField1: TcxTextEdit;
C_StyleNo: TcxTextEdit;
RuleYardstick: TcxTextEdit;
C_Pattern: TcxTextEdit;
OutPutWeight: TcxTextEdit;
cxDBImage1: TcxDBImage;
Button1: TButton;
TV2Column8: TcxGridDBColumn;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
@ -201,7 +165,6 @@ type
procedure ToolButton8Click(Sender: TObject); procedure ToolButton8Click(Sender: TObject);
procedure edtScanEnter(Sender: TObject); procedure edtScanEnter(Sender: TObject);
procedure BTPrintClick(Sender: TObject); procedure BTPrintClick(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure TrolldelClick(Sender: TObject); procedure TrolldelClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
@ -215,6 +178,7 @@ type
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure FrameKeyBoard1SpeedButton1Click(Sender: TObject); procedure FrameKeyBoard1SpeedButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private private
FCIID, FCIFName, FWorkshop: string; FCIID, FCIFName, FWorkshop: string;
FBCIOID, FC_Code, FC_ColorNo, FQtyUnit, FLenUnit: string; FBCIOID, FC_Code, FC_ColorNo, FQtyUnit, FLenUnit: string;
@ -266,7 +230,7 @@ implementation
uses uses
U_DataLink, U_ControlData, U_ParamSet, U_RTFun, U_globalVar, U_DataLink, U_ControlData, U_ParamSet, U_RTFun, U_globalVar,
U_FormLayOutDesign, U_ZDYHelp, U_iniParam, U_ProductListHelp, U_SysLogList, U_FormLayOutDesign, U_ZDYHelp, U_iniParam, U_ProductListHelp, U_SysLogList,
U_LabelPrint, U_TradeClothTotalOutSel; U_ProgressUpdate, U_LabelPrint, U_TradeClothTotalOutSel;
{$R *.dfm} {$R *.dfm}
procedure TfrmMachRollMain.InitGrid2(); procedure TfrmMachRollMain.InitGrid2();
@ -295,7 +259,7 @@ begin
if trim(CKType) = '提交' then if trim(CKType) = '提交' then
begin begin
if trim(lblLenUnit.CaptionOptions.Hint) = '' then if trim(lblLenUnit.Caption) = '' then
raise Exception.create('长度单位不能为空!'); raise Exception.create('长度单位不能为空!');
if trim(InputWeight.Text) <> '' then if trim(InputWeight.Text) <> '' then
@ -438,6 +402,58 @@ begin
end; end;
end; end;
procedure TfrmMachRollMain.Button1Click(Sender: TObject);
var
fPrintFile, MPacketId, MTMSId: string;
mvalue: double;
i: Integer;
begin
try
BTPrint.Enabled := false;
MTMSId := Trim(SelTVKey(Tv2, ['TMSId'])[0]);
edtScan.SetFocus;
try
ADOQueryBaseCmd.Connection.BeginTrans;
if trim(FBCIOID) = '' then
raise Exception.create('请扫描流程卡！');
with ADOQueryBaseCmd do
begin
Close;
sql.Clear;
Sql.Add('exec P_BS_Cloth_Out_DistributionAll ');
Sql.Add(' @StkID=' + quotedstr(Trim(FBCIOID)));
Sql.Add(' ,@TMSId =' + quotedstr(MTMSId));
Sql.Add(' ,@Dcode=' + quotedstr(Trim(Dcode)));
Sql.Add(' ,@DName=' + quotedstr(Trim(DName)));
open;
end;
if ADOQueryBaseCmd.fieldbyName('intReturn').AsInteger = -1 then
begin
raise Exception.create(pchar(trim(ADOQueryBaseCmd.fieldbyName('ShowMsg').AsString)));
end;
FCIID := trim(trim(ADOQueryBaseCmd.fieldbyName('MaxIOID2').AsString));
ADOQueryBaseCmd.Connection.CommitTrans;
TradeMarketProgressUpdate(ADOQueryBaseCmd, MTMSId);
except
ADOQueryBaseCmd.Connection.RollbackTrans;
Application.MessageBox(pchar(Exception(ExceptObject).Message), '提示信息', 0);
end;
InputLen.SetFocus;
setFocusCtrol(InputLen.Name);
InitJYGrid();
InitGrid2();
FCIID := '';
finally
BTPrint.Enabled := true;
end;
end;
procedure TfrmMachRollMain.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfrmMachRollMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
inherited; inherited;
@ -651,7 +667,7 @@ begin
SetUnit(FLenUnit); SetUnit(FLenUnit);
FCDUnit := lblLenUnit.CaptionOptions.Hint; FCDUnit := lblLenUnit.Caption;
FBCIOID := trim(fieldbyName('BCIOID').AsString); FBCIOID := trim(fieldbyName('BCIOID').AsString);
@ -744,8 +760,7 @@ end;
procedure TfrmMachRollMain.SetUnit(MUnit: string); procedure TfrmMachRollMain.SetUnit(MUnit: string);
begin begin
lblLenUnit.CaptionOptions.Hint := MUnit; lblLenUnit.Caption := MUnit;
lblLenUnit.CaptionOptions.Text := '[B][SIZE=16]' + MUnit + '[/SIZE][/B]';
end; end;
@ -865,16 +880,6 @@ begin
ACanvas.Brush.Color := clRed; ACanvas.Brush.Color := clRed;
end; end;
procedure TfrmMachRollMain.ToolButton7Click(Sender: TObject);
begin
WriteCxGrid(trim(Self.Caption) + 'Tv3', Tv3, gDllFileCaption);
if gIsCanDesign then
begin
saveLayOut(application, dxLayoutControl_pack, ADOQueryBaseCmd, PWideChar(fDllFileName + '|' + Self.Name + '|' + dxLayoutControl_pack.Name + '.ini'));
end;
end;
procedure TfrmMachRollMain.ToolButton8Click(Sender: TObject); procedure TfrmMachRollMain.ToolButton8Click(Sender: TObject);
begin begin
inherited; inherited;
@ -944,11 +949,6 @@ end;
procedure TfrmMachRollMain.setFormCtrol(); procedure TfrmMachRollMain.setFormCtrol();
begin begin
if cds_params.fieldbyName('weightRule').AsInteger = 0 then
dxLayoutItem_outweight.Caption := '[COLOR=Red][SIZE=18]¾»ÖØ[/COLOR][/SIZE]'
else
dxLayoutItem_outweight.Caption := '[COLOR=Red][SIZE=18]ëÖØ[/COLOR][/SIZE]';
FrameKeyBoard1.SpeedButton_zdykey1.Caption := gZdyKey1; FrameKeyBoard1.SpeedButton_zdykey1.Caption := gZdyKey1;
// FrameKeyBoard1.SpeedButton_zdykey2.Caption := gZdyKey2; // FrameKeyBoard1.SpeedButton_zdykey2.Caption := gZdyKey2;
FrameKeyBoard1.SpeedButton_zdykey2.Caption := gZdyKey2; FrameKeyBoard1.SpeedButton_zdykey2.Caption := gZdyKey2;
@ -1156,8 +1156,10 @@ var
MInputWeight, MGrossWeight, MNetWeight, MTare, Maddwet, maddLen: double; MInputWeight, MGrossWeight, MNetWeight, MTare, Maddwet, maddLen: double;
mYardStick: double; mYardStick: double;
mPresentLen, mpresentWeight: double; mPresentLen, mpresentWeight: double;
MTMSId: string;
begin begin
Result := false; Result := false;
MTMSId := Trim(SelTVKey(Tv2, ['TMSId'])[0]);
Maddwet := strTofloatDef(trim(addwet.text), 0); // Faddwet; Maddwet := strTofloatDef(trim(addwet.text), 0); // Faddwet;
maddLen := strTofloatDef(trim(addlen.text), 0); // faddlen; maddLen := strTofloatDef(trim(addlen.text), 0); // faddlen;
mYardStick := strtofloatdef(trim(RuleYardstick.Text), 100); mYardStick := strtofloatdef(trim(RuleYardstick.Text), 100);
@ -1184,7 +1186,7 @@ begin
MInputLen := RoundFloat(strtofloatdef(trim(InputLen.Text), 0), 4); MInputLen := RoundFloat(strtofloatdef(trim(InputLen.Text), 0), 4);
// 换算后数量+mAddLen // 换算后数量+mAddLen
if (uppercase(lblLenUnit.CaptionOptions.Hint) = 'M') or (lblLenUnit.CaptionOptions.Hint = 'Ã×') then if (uppercase(lblLenUnit.Caption) = 'M') or (lblLenUnit.Caption = '米') then
begin begin
MMeter := RoundFloat((MInputLen + maddLen + mPresentLen) / (mYardStick / 100), cds_params.fieldbyName('MPlace').AsInteger); MMeter := RoundFloat((MInputLen + maddLen + mPresentLen) / (mYardStick / 100), cds_params.fieldbyName('MPlace').AsInteger);
MYardage := RoundFloat(MMeter / 0.9144, cds_params.fieldbyName('YPlace').AsInteger); MYardage := RoundFloat(MMeter / 0.9144, cds_params.fieldbyName('YPlace').AsInteger);
@ -1206,7 +1208,7 @@ begin
Sql.Add(' ,@Meter=' + quotedstr(Trim(FloatToStr(MMeter)))); Sql.Add(' ,@Meter=' + quotedstr(Trim(FloatToStr(MMeter))));
Sql.Add(' ,@Yardage=' + quotedstr(Trim(FloatToStr(MYardage)))); Sql.Add(' ,@Yardage=' + quotedstr(Trim(FloatToStr(MYardage))));
Sql.Add(' ,@StkID=' + quotedstr(Trim(FBCIOID))); Sql.Add(' ,@StkID=' + quotedstr(Trim(FBCIOID)));
Sql.Add(' ,@TMSId =' + quotedstr(Trim(SelTVKey(Tv2,['TMSId'])[0]))); Sql.Add(' ,@TMSId =' + quotedstr(MTMSId));
Sql.Add(' ,@Dcode=' + quotedstr(Trim(Dcode))); Sql.Add(' ,@Dcode=' + quotedstr(Trim(Dcode)));
Sql.Add(' ,@DName=' + quotedstr(Trim(DName))); Sql.Add(' ,@DName=' + quotedstr(Trim(DName)));
// ShowMessage(sql.Text); // ShowMessage(sql.Text);
@ -1221,7 +1223,7 @@ begin
FCIID := trim(trim(ADOQueryBaseCmd.fieldbyName('MaxIOID2').AsString)); FCIID := trim(trim(ADOQueryBaseCmd.fieldbyName('MaxIOID2').AsString));
ADOQueryBaseCmd.Connection.CommitTrans; ADOQueryBaseCmd.Connection.CommitTrans;
TradeMarketProgressUpdate(ADOQueryBaseCmd, MTMSId);
Result := true; Result := true;
except except
ADOQueryBaseCmd.Connection.RollbackTrans; ADOQueryBaseCmd.Connection.RollbackTrans;

3
T05贸易门市管理/TradeMarket.dpr
View File

@ -40,7 +40,8 @@ uses
U_TradeMarketList in 'U_TradeMarketList.pas' {frmTradeMarketList}, U_TradeMarketList in 'U_TradeMarketList.pas' {frmTradeMarketList},
U_TradeDispatchedList in 'U_TradeDispatchedList.pas' {frmTradeDispatchedList}, U_TradeDispatchedList in 'U_TradeDispatchedList.pas' {frmTradeDispatchedList},
U_TradeMarketDisSel in 'U_TradeMarketDisSel.pas' {frmTradeMarketDisSel}, U_TradeMarketDisSel in 'U_TradeMarketDisSel.pas' {frmTradeMarketDisSel},
U_ComContactSel in '..\A00通用窗体\U_ComContactSel.pas' {frmComContactSel}; U_ComContactSel in '..\A00通用窗体\U_ComContactSel.pas' {frmComContactSel},
U_ProgressUpdate in '..\A00通用方法\U_ProgressUpdate.pas';
{$R *.res} {$R *.res}

1
T05贸易门市管理/TradeMarket.dproj
View File

@ -232,6 +232,7 @@
<Form>frmComContactSel</Form> <Form>frmComContactSel</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\A00通用方法\U_ProgressUpdate.pas"/>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

74
T05贸易门市管理/U_TradeMarketInPut.dfm
View File

@ -3,12 +3,12 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Top = 4 Top = 4
Caption = #35746#21333#24405#20837 Caption = #35746#21333#24405#20837
ClientHeight = 652 ClientHeight = 652
ClientWidth = 1787 ClientWidth = 1913
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -16 Font.Height = -16
Position = poMainFormCenter Position = poMainFormCenter
WindowState = wsMaximized WindowState = wsMaximized
ExplicitWidth = 1803 ExplicitWidth = 1929
ExplicitHeight = 691 ExplicitHeight = 691
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -16,7 +16,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1787 Width = 1913
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -28,7 +28,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1360
object TBSave: TToolButton object TBSave: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -58,7 +57,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 185 Top = 185
Width = 1787 Width = 1913
Height = 24 Height = 24
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 67 ButtonWidth = 67
@ -69,7 +68,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 1
ExplicitWidth = 1360
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -90,29 +88,28 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
object Panel2: TPanel [2] object Panel2: TPanel [2]
Left = 0 Left = 0
Top = 209 Top = 209
Width = 1787 Width = 1913
Height = 443 Height = 443
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 2 TabOrder = 2
ExplicitWidth = 1360
object Panel3: TPanel object Panel3: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1499 Width = 1625
Height = 441 Height = 441
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1072
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1497 Width = 1623
Height = 439 Height = 439
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1070 ExplicitLeft = -1
ExplicitTop = 5
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -129,7 +126,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
item item
Format = '0' Format = '0'
Position = spFooter Position = spFooter
Column = v1PRTOrderQty
end end
item item
Format = '0' Format = '0'
@ -138,7 +134,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Kind = skSum Kind = skSum
Column = v1PRTOrderQty
end end
item item
Kind = skSum Kind = skSum
@ -148,7 +143,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
end end
item item
Kind = skSum Kind = skSum
Column = VC_PRTPs
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True OptionsBehavior.FocusCellOnTab = True
@ -274,23 +268,20 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object VC_PRTPs: TcxGridDBColumn object Tv1Column15: TcxGridDBColumn
Caption = #21305#25968 Caption = #25253#21333#25968#37327
DataBinding.FieldName = 'TMSPiece'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 112 Width = 86
end end
object v1PRTOrderQty: TcxGridDBColumn object Tv1Column16: TcxGridDBColumn
Caption = #25968#37327 Caption = #25253#21333#21333#20301
DataBinding.FieldName = 'TMSQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 98 Width = 110
end end
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #25968#37327#21333#20301 Caption = #24211#23384#21333#20301
DataBinding.FieldName = 'TMSUnit' DataBinding.FieldName = 'TMSUnit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -325,6 +316,18 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object Tv1Column17: TcxGridDBColumn
Caption = #32039#24613#31243#24230
DataBinding.FieldName = 'Urgent'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
#27491#24120
#32039#24613)
HeaderAlignmentHorz = taCenter
Width = 95
end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'OrdSNote' DataBinding.FieldName = 'OrdSNote'
@ -332,6 +335,20 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 105 Width = 105
end end
object Tv1Column18: TcxGridDBColumn
Caption = #22791#36135#29366#24577
DataBinding.FieldName = 'StkStatus'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
#26377
#23436#25104
#27809#36135
#27424#21333
#21462#28040#21333)
HeaderAlignmentHorz = taCenter
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -339,14 +356,13 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
end end
end end
object Panel4: TPanel object Panel4: TPanel
Left = 1500 Left = 1626
Top = 1 Top = 1
Width = 286 Width = 286
Height = 441 Height = 441
Align = alRight Align = alRight
Caption = 'Panel4' Caption = 'Panel4'
TabOrder = 1 TabOrder = 1
ExplicitLeft = 1073
object Panel5: TPanel object Panel5: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
@ -453,7 +469,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
object ScrollBox1: TScrollBox [3] object ScrollBox1: TScrollBox [3]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1787 Width = 1913
Height = 155 Height = 155
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -463,8 +479,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
ParentCtl3D = False ParentCtl3D = False
TabOrder = 3 TabOrder = 3
OnClick = ScrollBox1Click OnClick = ScrollBox1Click
ExplicitLeft = -1
ExplicitTop = 24
object Label3: TLabel object Label3: TLabel
Left = 730 Left = 730
Top = 70 Top = 70

11
T05贸易门市管理/U_TradeMarketInPut.pas
View File

@ -44,8 +44,6 @@ type
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1Column11: TcxGridDBColumn; v1Column11: TcxGridDBColumn;
v1PRTColor: TcxGridDBColumn; v1PRTColor: TcxGridDBColumn;
VC_PRTPs: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
@ -103,6 +101,10 @@ type
CustName: TcxMRUEdit; CustName: TcxMRUEdit;
CDS_KH: TClientDataSet; CDS_KH: TClientDataSet;
ADO_KH: TADOQuery; ADO_KH: TADOQuery;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -165,7 +167,7 @@ implementation
uses uses
U_DataLink, U_ZDYHelp, U_ZDYHelpSel, U_RTFun, U_CompanySel, U_PictureUpload, U_DataLink, U_ZDYHelp, U_ZDYHelpSel, U_RTFun, U_CompanySel, U_PictureUpload,
U_ClothInfoSel, U_ComContactSel; U_ProgressUpdate, U_ClothInfoSel, U_ComContactSel;
{$R *.dfm} {$R *.dfm}
@ -534,6 +536,9 @@ begin
FTMMID := Trim(maxno); FTMMID := Trim(maxno);
ADOCmd.Connection.CommitTrans; ADOCmd.Connection.CommitTrans;
TradeMarketProgressUpdateByTMMID(ADOCmd, FTMMID);
with ADO_1 do with ADO_1 do
begin begin
Close; Close;

98
T05贸易门市管理/U_TradeMarketList.dfm
View File

@ -3,13 +3,13 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Top = 13 Top = 13
Caption = #22823#36135#21333 Caption = #22823#36135#21333
ClientHeight = 594 ClientHeight = 594
ClientWidth = 1540 ClientWidth = 1791
Color = clBtnFace Color = clBtnFace
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 1556 ExplicitWidth = 1807
ExplicitHeight = 633 ExplicitHeight = 633
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -17,7 +17,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1540 Width = 1791
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -147,10 +147,18 @@ inherited frmTradeMarketList: TfrmTradeMarketList
ImageIndex = 16 ImageIndex = 16
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBClose: TToolButton object ToolButton1: TToolButton
Left = 1193 Left = 1193
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986
ImageIndex = 28
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 1264
Top = 0
AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 7 ImageIndex = 7
OnClick = TBCloseClick OnClick = TBCloseClick
@ -159,7 +167,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1540 Width = 1791
Height = 91 Height = 91
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -229,7 +237,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
inline frmFrameDateSel1: TfrmFrameDateSel inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 1536 Width = 1787
Height = 37 Height = 37
Align = alTop Align = alTop
Color = clWhite Color = clWhite
@ -238,7 +246,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
TabOrder = 4 TabOrder = 4
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1536 ExplicitWidth = 1787
ExplicitHeight = 37 ExplicitHeight = 37
inherited lbl2: TLabel inherited lbl2: TLabel
Width = 16 Width = 16
@ -251,7 +259,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 152 Top = 152
Width = 1540 Width = 1791
Height = 442 Height = 442
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
@ -378,44 +386,72 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Width = 77 Width = 77
end end
object Tv1Column12: TcxGridDBColumn object Tv1Column12: TcxGridDBColumn
Caption = #20013#25991#39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 77
end end
object Tv1Column13: TcxGridDBColumn object Tv1Column17: TcxGridDBColumn
Caption = #21305#25968 Caption = #33394#21495
DataBinding.FieldName = 'TMSPiece' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 58
end
object Tv1Column11: TcxGridDBColumn
Caption = #25253#21333#25968#37327
DataBinding.FieldName = 'OrderQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 104
end
object Tv1Column13: TcxGridDBColumn
Caption = #25253#21333#21333#20301
DataBinding.FieldName = 'OrderUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 91
end
object Tv1Column19: TcxGridDBColumn
Caption = #27424#21333#25968
DataBinding.FieldName = 'OrderOweQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 84
end end
object Tv1Column14: TcxGridDBColumn object Tv1Column14: TcxGridDBColumn
Caption = #25968#37327 Caption = #24211#23384#38656#27714
DataBinding.FieldName = 'TMSQty' DataBinding.FieldName = 'TMSQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 95
end
object Tv1Column18: TcxGridDBColumn
Caption = #22791#36135#25968#37327
DataBinding.FieldName = 'StkQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 111
end end
object Tv1Column15: TcxGridDBColumn object Tv1Column15: TcxGridDBColumn
Caption = #21333#20301 Caption = #22791#36135#21333#20301
DataBinding.FieldName = 'TMSUnit' DataBinding.FieldName = 'TMSUnit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 93
end end
object Tv1Column16: TcxGridDBColumn object Tv1Column21: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#36135#29366#24577
DataBinding.FieldName = 'OrdSNote' DataBinding.FieldName = 'StkStatus'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 92
end end
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
Caption = #27004#23618 Caption = #27004#23618
@ -425,6 +461,22 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Options.Editing = False Options.Editing = False
Width = 95 Width = 95
end end
object Tv1Column16: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'OrdSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object Tv1Column20: TcxGridDBColumn
Caption = #32039#24613#31243#24230
DataBinding.FieldName = 'Urgent'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -433,7 +485,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
Top = 121 Top = 121
Width = 1540 Width = 1791
Height = 31 Height = 31
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -448,7 +500,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
' '#20840#37096' ') ' '#20840#37096' ')
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 31 ClientRectBottom = 31
ClientRectRight = 1540 ClientRectRight = 1791
ClientRectTop = 28 ClientRectTop = 28
end end
inherited loadProcess: TPanel inherited loadProcess: TPanel

45
T05贸易门市管理/U_TradeMarketList.pas
View File

@ -85,11 +85,18 @@ type
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn; Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn; Tv1Column16: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn;
ToolButton1: TToolButton;
Tv1Column11: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -126,6 +133,7 @@ type
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
private private
DQdate: TDateTime; DQdate: TDateTime;
procedure InitGrid(); procedure InitGrid();
@ -252,42 +260,30 @@ var
begin begin
FilterStr := SGetFilters(Panel1, 1, 2); FilterStr := SGetFilters(Panel1, 1, 2);
SqlStr := ' select A.*,B.*,C.StkPosition '; SqlStr := ' exec P_Trade_Market_View ';
SqlStr := SqlStr + ' from Trade_Market_Main A '; SqlStr := SqlStr + ' @BegDate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)));
SqlStr := SqlStr + ' inner join Trade_Market_Sub B on B.TMMId=A.TMMId '; SqlStr := SqlStr + ' ,@EndDate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)));
SqlStr := SqlStr + ' inner join BS_Cloth_Info C on C.C_Code=B.C_Code '; SqlStr := SqlStr + ' ,@StkPosition= ' + QuotedStr(Trim(canshu2));
SqlStr := SqlStr + ' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)));
SqlStr := SqlStr + ' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)));
if canshu2 <> '' then
begin
SqlStr := SqlStr + ' and C.StkPosition= ' + QuotedStr(Trim(canshu2));
end;
if canshu1 = '录入' then if canshu1 = '录入' then
begin SqlStr := SqlStr + ' ,@Filler= ' + QuotedStr(Trim(DName));
SqlStr := SqlStr + ' and A.Filler= ' + QuotedStr(Trim(DName));
end;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''0'' '; SqlStr := SqlStr + ' , @Status=''0'' ';
end; end;
1: 1:
begin begin
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''1'' '; SqlStr := SqlStr + ' , @Status=''1'' ';
end; end;
2: 2:
begin begin
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''9'' '; SqlStr := SqlStr + ' , @Status=''9'' ';
end; end;
3: 3:
begin begin
SqlStr := SqlStr + ' and isnull(A.status,''0'')=''10'' '; SqlStr := SqlStr + ' , @Status=''10'' ';
end; end;
end; end;
SqlStr := SqlStr + ' and ordtype=''' + FOrdType + ''' ';
SqlStr := SqlStr + ' order by filltime desc';
InitCDSData(ADOQueryMain, Order_Main, Tv1, SqlStr, FilterStr, 'TMMId'); InitCDSData(ADOQueryMain, Order_Main, Tv1, SqlStr, FilterStr, 'TMMId');
end; end;
@ -957,6 +953,11 @@ begin
application.MessageBox('保存成功！', '提示信息', 0); application.MessageBox('保存成功！', '提示信息', 0);
end; end;
procedure TfrmTradeMarketList.ToolButton1Click(Sender: TObject);
begin
TcxGridToExcel(Trim(Self.Caption), cxGrid1);
end;
procedure TfrmTradeMarketList.ToolButton2Click(Sender: TObject); procedure TfrmTradeMarketList.ToolButton2Click(Sender: TObject);
begin begin
WriteCxGrid('指示单列表FF1', Tv1, '生产指示单管理'); WriteCxGrid('指示单列表FF1', Tv1, '生产指示单管理');