diff --git a/A00通用窗体/U_LabelPrint.dfm b/A00通用窗体/U_LabelPrint.dfm
index ae395a5..c47bced 100644
--- a/A00通用窗体/U_LabelPrint.dfm
+++ b/A00通用窗体/U_LabelPrint.dfm
@@ -108,7 +108,7 @@ inherited frmLabelPrint: TfrmLabelPrint
end
object cbbLab: TcxMRUEdit
Left = 25
- Top = 24
+ Top = 28
ParentFont = False
Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True
diff --git a/A00通用窗体/U_SalesContractCPSel.dfm b/A00通用窗体/U_SalesContractCPSel.dfm
index a28e5f4..cef578d 100644
--- a/A00通用窗体/U_SalesContractCPSel.dfm
+++ b/A00通用窗体/U_SalesContractCPSel.dfm
@@ -10,6 +10,7 @@ inherited frmSalesContractCPSel: TfrmSalesContractCPSel
Font.Name = #23435#20307
Position = poScreenCenter
OnClose = FormClose
+ ExplicitLeft = -689
ExplicitWidth = 1556
ExplicitHeight = 633
PixelsPerInch = 96
@@ -128,7 +129,6 @@ inherited frmSalesContractCPSel: TfrmSalesContractCPSel
BorderStyle = cxcbsNone
PopupMenu = PM_1
TabOrder = 2
- ExplicitHeight = 476
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -286,6 +286,20 @@ inherited frmSalesContractCPSel: TfrmSalesContractCPSel
Options.Editing = False
Width = 70
end
+ object TV1C_FinishLatitudeDensity: TcxGridDBColumn
+ Caption = #32428#23494
+ DataBinding.FieldName = 'C_FinishLatitudeDensity'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object TV1C_FinishLongitudeDensity: TcxGridDBColumn
+ Caption = #32463#23494
+ DataBinding.FieldName = 'C_FinishLongitudeDensity'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
object v1Column7: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
diff --git a/A00通用窗体/U_SalesContractCPSel.pas b/A00通用窗体/U_SalesContractCPSel.pas
index a4fd559..ef14587 100644
--- a/A00通用窗体/U_SalesContractCPSel.pas
+++ b/A00通用窗体/U_SalesContractCPSel.pas
@@ -73,6 +73,8 @@ type
C_Name: TEdit;
Label3: TLabel;
BuyName: TEdit;
+ TV1C_FinishLatitudeDensity: TcxGridDBColumn;
+ TV1C_FinishLongitudeDensity: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
@@ -145,8 +147,9 @@ begin
begin
Close;
sql.Clear;
- sql.Add('select A.*,B.* from CP_Contract_Main A inner join CP_Contract_SUB B on A.ConMId=B.ConMId ');
+ sql.Add('select A.*,B.*,C.C_FinishLatitudeDensity,C.C_FinishLongitudeDensity from CP_Contract_Main A inner join CP_Contract_SUB B on A.ConMId=B.ConMId ');
sql.Add(' and isnull(A.status,''0'')=''9''');
+ sql.Add(' left join Bs_Cloth_Info C on B.C_Code=C.C_Code ');
Open;
end;
// SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
diff --git a/A00通用窗体/U_SalesContract_SXSel.dfm b/A00通用窗体/U_SalesContract_SXSel.dfm
index aed989e..d392fb8 100644
--- a/A00通用窗体/U_SalesContract_SXSel.dfm
+++ b/A00通用窗体/U_SalesContract_SXSel.dfm
@@ -221,8 +221,8 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
Width = 77
end
object TV1Column2: TcxGridDBColumn
- Caption = #20132#36135#26085#26399
- DataBinding.FieldName = 'DlyDate'
+ Caption = #19979#21333#26085#26399
+ DataBinding.FieldName = 'ConDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
diff --git a/A00通用窗体/U_SalesContract_SXSel.pas b/A00通用窗体/U_SalesContract_SXSel.pas
index beeec0a..8775958 100644
--- a/A00通用窗体/U_SalesContract_SXSel.pas
+++ b/A00通用窗体/U_SalesContract_SXSel.pas
@@ -161,8 +161,8 @@ begin
begin
Close;
sql.Clear;
- SQL.add('select ConNo,BuyConNo,max(DlyDate) as DlyDate ,C_Code,C_Name,Y_Code,Y_Name,max(Y_Spec) as Y_Spec,max(Y_Composition) as Y_Composition,max(Y_Color) as Y_Color,TestDenier,Z_Number,FF,ND,sum(SXQty) as SXQty,sum(KCQty) as KCQty from V_HT_SX');
- SQL.Add(' GROUP BY ConNo,BuyConNo,C_Code,C_Name,Y_Code,Y_Name,TestDenier,Z_Number,FF,ND');
+ SQL.add('select ConNo,BuyConNo,max(ConDate) as ConDate,max(DlyDate) as DlyDate,C_Code,C_Name,Y_Code,Y_Name,max(Y_Spec) as Y_Spec,max(Y_Composition) as Y_Composition,max(Y_Color) as Y_Color,TestDenier,Z_Number,FF,ND,sum(SXQty) as SXQty,sum(KCQty) as KCQty ') ;
+ SQL.Add('from V_HT_SX GROUP BY ConNo,BuyConNo,C_Code,C_Name,Y_Code,Y_Name,TestDenier,Z_Number,FF,ND');
// showmessage(sql.Text);
Open;
end;
diff --git a/A00通用窗体/U_TatClothInfoSel.dfm b/A00通用窗体/U_TatClothInfoSel.dfm
index 91c5e5c..f8190e0 100644
--- a/A00通用窗体/U_TatClothInfoSel.dfm
+++ b/A00通用窗体/U_TatClothInfoSel.dfm
@@ -10,6 +10,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Font.Name = #23435#20307
Position = poScreenCenter
OnClose = FormClose
+ ExplicitLeft = -634
ExplicitWidth = 1501
ExplicitHeight = 673
PixelsPerInch = 96
@@ -253,6 +254,20 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Options.Editing = False
Width = 80
end
+ object Tv1C_FinishLongitudeDensity: TcxGridDBColumn
+ Caption = #25104#21697#32463#23494
+ DataBinding.FieldName = 'C_FinishLongitudeDensity'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1C_FinishLatitudeDensity: TcxGridDBColumn
+ Caption = #25104#21697#32428#23494
+ DataBinding.FieldName = 'C_FinishLatitudeDensity'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
diff --git a/A00通用窗体/U_TatClothInfoSel.pas b/A00通用窗体/U_TatClothInfoSel.pas
index d6fa5d0..2e35070 100644
--- a/A00通用窗体/U_TatClothInfoSel.pas
+++ b/A00通用窗体/U_TatClothInfoSel.pas
@@ -81,6 +81,8 @@ type
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
+ Tv1C_FinishLatitudeDensity: TcxGridDBColumn;
+ Tv1C_FinishLongitudeDensity: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
diff --git a/A00通用窗体/U_WBSpecSel.dfm b/A00通用窗体/U_WBSpecSel.dfm
index 27b02dc..53172d1 100644
--- a/A00通用窗体/U_WBSpecSel.dfm
+++ b/A00通用窗体/U_WBSpecSel.dfm
@@ -127,6 +127,7 @@ inherited frmWBSpecSel: TfrmWBSpecSel
Height = 484
Align = alClient
TabOrder = 2
+ ExplicitTop = 80
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -222,7 +223,7 @@ inherited frmWBSpecSel: TfrmWBSpecSel
end
object v1Column8: TcxGridDBColumn
Tag = 2
- Caption = #36793#31359#20837#27861
+ Caption = #36793#32433#24635#26681#25968
DataBinding.FieldName = 'WB_ReedNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@@ -230,6 +231,20 @@ inherited frmWBSpecSel: TfrmWBSpecSel
Options.Editing = False
Width = 98
end
+ object Tv1WB_YarnKCQty: TcxGridDBColumn
+ Caption = #36793#32433#21333#36793#31576#40831#25968
+ DataBinding.FieldName = 'WB_YarnKCQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 131
+ end
+ object Tv1BCRFQty: TcxGridDBColumn
+ Caption = #36793#31359#20837#27861
+ DataBinding.FieldName = 'BCRFQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
diff --git a/A00通用窗体/U_WBSpecSel.pas b/A00通用窗体/U_WBSpecSel.pas
index d9d8704..57e865a 100644
--- a/A00通用窗体/U_WBSpecSel.pas
+++ b/A00通用窗体/U_WBSpecSel.pas
@@ -68,6 +68,8 @@ type
TbAdd: TToolButton;
TbEdit: TToolButton;
TbDelete: TToolButton;
+ Tv1WB_YarnKCQty: TcxGridDBColumn;
+ Tv1BCRFQty: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
diff --git a/A02基础产品管理/ClothInfo.dproj.local b/A02基础产品管理/ClothInfo.dproj.local
index cdda065..d32e9cd 100644
--- a/A02基础产品管理/ClothInfo.dproj.local
+++ b/A02基础产品管理/ClothInfo.dproj.local
@@ -14,17 +14,17 @@
1899/12/30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas
1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.pas
1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
- 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.536,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.pas
- 1899/12/30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas
+ 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
+ 1899/12/30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas
1899/12/30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas
1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas
1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas
- 1899/12/30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas
+ 1899/12/30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas
1899/12/30 00:00:00.000.346,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
1899/12/30 00:00:00.000.441,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfo.pas
1899/12/30 00:00:00.000.337,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
@@ -32,7 +32,7 @@
1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm
1899/12/30 00:00:00.000.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.pas
1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
- 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
+ 1899/12/30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.pas
1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
1899/12/30 00:00:00.000.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.pas
@@ -57,11 +57,11 @@
1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas
1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
1899/12/30 00:00:00.000.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas
+ 1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
1899/12/30 00:00:00.000.082,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas
- 1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.dfm
1899/12/30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas
1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas
diff --git a/A02基础产品管理/U_TatClothInfo.dfm b/A02基础产品管理/U_TatClothInfo.dfm
index 1966bb6..505a668 100644
--- a/A02基础产品管理/U_TatClothInfo.dfm
+++ b/A02基础产品管理/U_TatClothInfo.dfm
@@ -427,38 +427,37 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Options.Editing = False
Width = 99
end
+ object Tv1MFDW: TcxGridDBColumn
+ Caption = #38376#24133#21333#20301
+ DataBinding.FieldName = 'MFDW'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
object Tv1Column3: TcxGridDBColumn
- Caption = #32463#23494
+ Caption = #32463#23494'('#26681'/'#33521#23544')'
DataBinding.FieldName = 'C_FinishLongitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 100
+ Width = 123
end
object Tv1Column1: TcxGridDBColumn
- Caption = #32428#23494
+ Caption = #32428#23494'('#26681'/'#33521#23544')'
DataBinding.FieldName = 'C_FinishLatitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 99
+ Width = 135
end
object Tv1Column2: TcxGridDBColumn
- Caption = #29702#35770#24179#26041#20811#37325
+ Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 125
end
- object Tv1Column8: TcxGridDBColumn
- Caption = #23454#27979#24179#26041#20811#37325
- DataBinding.FieldName = 'C_TestGramWeight'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 132
- end
object Tv1Column17: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
@@ -507,14 +506,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Options.Editing = False
Width = 80
end
- object Tv1Column19: TcxGridDBColumn
- Caption = #29256#26412#32534#21495
- DataBinding.FieldName = 'BBNO'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 96
- end
object Tv1Column20: TcxGridDBColumn
Caption = #32455#32553#29575
DataBinding.FieldName = 'ZS'
@@ -572,29 +563,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Options.Editing = False
Width = 99
end
- object Tv1Column4: TcxGridDBColumn
- Caption = #32463#32433
- DataBinding.FieldName = 'JinSha'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 100
- end
- object Tv1Column10: TcxGridDBColumn
- Caption = #32428#32433
- DataBinding.FieldName = 'WeiSha'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Options.Editing = False
- Width = 100
- end
- object Tv1Column12: TcxGridDBColumn
- Caption = #26377#26080#29983#25104#24037#33402#21333
- DataBinding.FieldName = 'isgyd'
- DataBinding.IsNullValueType = True
- HeaderAlignmentHorz = taCenter
- Width = 66
- end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@@ -767,7 +735,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Height = 337
Align = alClient
TabOrder = 1
- ExplicitLeft = 4
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -1146,6 +1113,10 @@ inherited frmTatClothInfo: TfrmTatClothInfo
end
end
end
+ inherited loadProcess: TPanel
+ Top = 171
+ ExplicitTop = 171
+ end
inherited cxProgressBar2: TcxProgressBar
Top = 222
ExplicitTop = 222
diff --git a/A02基础产品管理/U_TatClothInfo.pas b/A02基础产品管理/U_TatClothInfo.pas
index e9fac9c..e640b27 100644
--- a/A02基础产品管理/U_TatClothInfo.pas
+++ b/A02基础产品管理/U_TatClothInfo.pas
@@ -140,7 +140,6 @@ type
v2Column6: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Tv1Column2: TcxGridDBColumn;
- Tv1Column8: TcxGridDBColumn;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
@@ -172,15 +171,11 @@ type
Label5: TLabel;
C_TestGramWeight: TcxTextEdit;
Tv4Column12: TcxGridDBColumn;
- Tv1Column19: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
DBRichEdit1: TDBRichEdit;
ADOQueryFJ: TADOQuery;
Tv1Column21: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
- Tv1Column4: TcxGridDBColumn;
- Tv1Column10: TcxGridDBColumn;
- Tv1Column12: TcxGridDBColumn;
Tv4Z_Number: TcxGridDBColumn;
TV2Z_Number: TcxGridDBColumn;
cxDBImage2: TcxDBImage;
@@ -195,6 +190,7 @@ type
TV2YarnFactor: TcxGridDBColumn;
TV2MeterQty: TcxGridDBColumn;
TV2NOTE: TcxGridDBColumn;
+ Tv1MFDW: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
@@ -978,8 +974,8 @@ end;
procedure TfrmTatClothInfo.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
- if (AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('IsGYD').Index]) = '' then
- ACanvas.Brush.Color := $0080FF80;
+// if (AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('IsGYD').Index]) = '' then
+// ACanvas.Brush.Color := $0080FF80;
end;
procedure TfrmTatClothInfo.Tv1DblClick(Sender: TObject);
diff --git a/A02基础产品管理/U_TatClothInfoInput.dfm b/A02基础产品管理/U_TatClothInfoInput.dfm
index 59e28c0..124cf8a 100644
--- a/A02基础产品管理/U_TatClothInfoInput.dfm
+++ b/A02基础产品管理/U_TatClothInfoInput.dfm
@@ -9,6 +9,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Height = -16
OldCreateOrder = True
Position = poScreenCenter
+ ExplicitLeft = -273
ExplicitWidth = 1556
ExplicitHeight = 776
PixelsPerInch = 96
@@ -82,6 +83,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
ParentCtl3D = False
ParentFont = False
TabOrder = 1
+ ExplicitTop = 36
object Label1: TLabel
Left = 10
Top = 26
@@ -305,7 +307,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
end
object Label23: TLabel
Left = 921
- Top = 177
+ Top = 176
Width = 48
Height = 21
Caption = #31576#40831#25968
@@ -333,9 +335,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object Label26: TLabel
Left = 687
Top = 213
- Width = 64
+ Width = 80
Height = 21
- Caption = #36793#31359#20837#27861
+ Caption = #36793#32433#24635#26681#25968
end
object Label27: TLabel
Left = 10
@@ -413,9 +415,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object Label32: TLabel
Left = 921
Top = 136
- Width = 48
+ Width = 72
Height = 21
- Caption = #32455#32553#29575
+ Caption = #32455#32553#29575'(%)'
end
object Label33: TLabel
Left = 1087
@@ -443,6 +445,98 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Style = []
ParentFont = False
end
+ object Label35: TLabel
+ Left = 1153
+ Top = 215
+ Width = 112
+ Height = 21
+ Caption = #36793#32433#21333#36793#31576#40831#25968
+ end
+ object Label36: TLabel
+ Left = 1153
+ Top = 176
+ Width = 64
+ Height = 21
+ Caption = #36793#31359#20837#27861
+ end
+ object Label38: TLabel
+ Left = 600
+ Top = 176
+ Width = 64
+ Height = 21
+ Caption = #40831'/2'#33521#23544
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clHighlight
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label39: TLabel
+ Left = 1375
+ Top = 176
+ Width = 32
+ Height = 21
+ Caption = #31576#40831
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clHighlight
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label40: TLabel
+ Left = 272
+ Top = 213
+ Width = 16
+ Height = 21
+ Caption = #26681
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clHighlight
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label41: TLabel
+ Left = 600
+ Top = 212
+ Width = 55
+ Height = 21
+ Caption = #26681'/'#31576#40831
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clHighlight
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label42: TLabel
+ Left = 1375
+ Top = 215
+ Width = 55
+ Height = 21
+ Caption = #26681'/'#31576#40831
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clHighlight
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label43: TLabel
+ Left = 1087
+ Top = 176
+ Width = 32
+ Height = 21
+ Caption = #31576#40831
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clHighlight
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
object BCIID: TEdit
Left = 193
Top = 417
@@ -531,6 +625,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 986
Top = 97
ParentColor = True
+ Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
TabOrder = 8
OnExit = C_ReedWidthExit
Width = 95
@@ -654,6 +749,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 765
Top = 172
ParentColor = True
+ Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
TabOrder = 21
OnExit = C_ReedWidthExit
Width = 76
@@ -664,7 +760,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Top = 173
ParentColor = True
TabOrder = 22
- Width = 150
+ Width = 95
end
object BSQTY: TcxTextEdit
Tag = 2
@@ -747,13 +843,30 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
end
object ZS: TcxTextEdit
Tag = 2
- Left = 986
+ Left = 1000
Top = 132
ParentColor = True
Properties.OnEditValueChanged = TV1Column10PropertiesEditValueChanged
TabOrder = 32
Width = 150
end
+ object WB_YarnKCQty: TcxTextEdit
+ Tag = 2
+ Left = 1274
+ Top = 211
+ ParentColor = True
+ TabOrder = 33
+ Width = 95
+ end
+ object BCRFQty: TcxTextEdit
+ Tag = 2
+ Left = 1274
+ Top = 176
+ ParentColor = True
+ Properties.OnEditValueChanged = TV1Column10PropertiesEditValueChanged
+ TabOrder = 34
+ Width = 95
+ end
end
object cxPageControl3: TcxPageControl [2]
Left = 0
@@ -833,6 +946,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Align = alClient
PopupMenu = PM_1
TabOrder = 1
+ ExplicitLeft = -2
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -969,6 +1083,12 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
HeaderAlignmentHorz = taCenter
Width = 100
end
+ object TV1Column3: TcxGridDBColumn
+ Caption = #32433#32447#25104#20998
+ DataBinding.FieldName = 'Y_Composition'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ end
end
object cxGridLevel2: TcxGridLevel
GridView = TV1
@@ -1158,7 +1278,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
DataBinding.FieldName = 'Y_Loss'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
- Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
@@ -1176,6 +1295,12 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
HeaderAlignmentHorz = taCenter
Width = 80
end
+ object Tv2Column3: TcxGridDBColumn
+ Caption = #32433#32447#25104#20998
+ DataBinding.FieldName = 'Y_Composition'
+ DataBinding.IsNullValueType = True
+ Visible = False
+ end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
diff --git a/A02基础产品管理/U_TatClothInfoInput.pas b/A02基础产品管理/U_TatClothInfoInput.pas
index caafcc8..b196485 100644
--- a/A02基础产品管理/U_TatClothInfoInput.pas
+++ b/A02基础产品管理/U_TatClothInfoInput.pas
@@ -178,6 +178,18 @@ type
Tv2YarnFactor: TcxGridDBColumn;
Label33: TLabel;
Label34: TLabel;
+ TV1Column3: TcxGridDBColumn;
+ Tv2Column3: TcxGridDBColumn;
+ Label35: TLabel;
+ Label36: TLabel;
+ WB_YarnKCQty: TcxTextEdit;
+ BCRFQty: TcxTextEdit;
+ Label38: TLabel;
+ Label39: TLabel;
+ Label40: TLabel;
+ Label41: TLabel;
+ Label42: TLabel;
+ Label43: TLabel;
procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
@@ -224,6 +236,7 @@ type
{ Private declarations }
public
FBCIID, FCTID, JSGG, WSGG, FC_Spec: string;
+ WSZS, JSZS: string;
CopyInt: Integer;
{ Public declarations }
@@ -487,11 +500,11 @@ begin
first;
while not eof do
begin
- if Trim(CDS_1.fieldbyname('Y_Name').AsString) <> '' then
+ if Trim(CDS_1.fieldbyname('Z_Number').AsString) <> '' then
begin
- if POS(Trim(CDS_1.fieldbyname('Y_Name').AsString), JSGG) = 0 then
+ if POS(Trim(CDS_1.fieldbyname('Z_Number').AsString), JSGG) = 0 then
begin
- JSGG := JSGG + Trim(CDS_1.fieldbyname('Y_Name').AsString) + '+';
+ JSGG := JSGG + Trim(CDS_1.fieldbyname('Z_Number').AsString) + '+';
end;
end;
next;
@@ -572,11 +585,11 @@ begin
first;
while not eof do
begin
- if Trim(CDS_2.fieldbyname('Y_Name').AsString) <> '' then
+ if Trim(CDS_2.fieldbyname('Z_Number').AsString) <> '' then
begin
- if POS(Trim(CDS_2.fieldbyname('Y_Name').AsString), WSGG) = 0 then
+ if POS(Trim(CDS_2.fieldbyname('Z_Number').AsString), WSGG) = 0 then
begin
- WSGG := WSGG + Trim(CDS_2.fieldbyname('Y_Name').AsString) + '+';
+ WSGG := WSGG + Trim(CDS_2.fieldbyname('Z_Number').AsString) + '+';
end;
end;
next;
@@ -694,10 +707,12 @@ begin
// C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2));
/////////////ɹ /////////////
+// FC_Spec := '';
+// FC_Spec := C_Composition.text + ' (' + JSGG + ')*(' + WSGG + ') ' + C_FinishLongitudeDensity.text + '*' + C_FinishLatitudeDensity.text + ' ' + C_Width.text + MFDW.text;
+// C_Spec.text := trim(FC_Spec);
FC_Spec := '';
- FC_Spec := C_Composition.text + ' (' + JSGG + ')*(' + WSGG + ') ' + C_FinishLongitudeDensity.text + '*' + C_FinishLatitudeDensity.text + ' ' + C_Width.text + MFDW.text;
-
+ FC_Spec := JSGG + 'S*' + WSGG + 'S';
C_Spec.text := trim(FC_Spec);
/////////////ɹ /////////////
@@ -710,6 +725,8 @@ begin
readCxGrid(self.Caption + 'TV22', Tv2, 'Ʒ');
// readCxGrid(self.Caption + 'TV44', Tv4, 'Ʒ');
+ JSZS := '';
+ WSZS := '';
InitGrid();
JSJS();
@@ -1412,67 +1429,67 @@ var
mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, fsh: double;
begin
- with CDS_2 do
- begin
- first;
- while not eof do
- begin
- with CDS_2 do
- begin
-
- if FieldByName('YarnQty').Value = null then
- begin
- GS := 0; //
- end
- else
- begin
- GS := FieldByName('YarnQty').Value; //
- end;
-
- if FieldByName('Y_loss').Value = null then
- begin
- fsh := 0; //
- end
- else
- begin
- fsh := FieldByName('Y_loss').Value; //
- end;
-
- if FieldByName('CycleYarnQty').Value = null then
- begin
- ZGS := 0; //ѭ
- end
- else
- begin
- ZGS := FieldByName('CycleYarnQty').Value; //ѭ
- end;
-
- MF := strtofloatdef(C_ReedWidth.text, 0); //ط
-
- if FieldByName('Z_Number').Value = null then
- begin
- DS := 0; //֧
- end
- else
- begin
- DS := FieldByName('Z_Number').Value; //֧
- end;
-
- WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ
- end;
- if (ZGS <> 0) and (DS <> 0) then
- begin
- with CDS_2 do
- begin
- Edit;
- FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2);
- Post;
- end;
- end;
- next;
- end;
-
- end;
+// with CDS_2 do
+// begin
+// first;
+// while not eof do
+// begin
+// with CDS_2 do
+// begin
+//
+// if FieldByName('YarnQty').Value = null then
+// begin
+// GS := 0; //
+// end
+// else
+// begin
+// GS := FieldByName('YarnQty').Value; //
+// end;
+//
+// if FieldByName('Y_loss').Value = null then
+// begin
+// fsh := 0; //
+// end
+// else
+// begin
+// fsh := FieldByName('Y_loss').Value; //
+// end;
+//
+// if FieldByName('CycleYarnQty').Value = null then
+// begin
+// ZGS := 0; //ѭ
+// end
+// else
+// begin
+// ZGS := FieldByName('CycleYarnQty').Value; //ѭ
+// end;
+//
+// MF := strtofloatdef(C_ReedWidth.text, 0); //ط
+//
+// if FieldByName('Z_Number').Value = null then
+// begin
+// DS := 0; //֧
+// end
+// else
+// begin
+// DS := FieldByName('Z_Number').Value; //֧
+// end;
+//
+// WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ
+// end;
+// if (ZGS <> 0) and (DS <> 0) then
+// begin
+// with CDS_2 do
+// begin
+// Edit;
+// FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2);
+// Post;
+// end;
+// end;
+// next;
+// end;
+//
+// end;
end;
procedure TfrmTatClothInfoInput.C_ReedWidthPropertiesEditValueChanged(Sender: TObject);
@@ -1614,14 +1631,14 @@ begin
CDS_1.First;
while (CDS_1.FieldByName('Y_Code').asString <> '') and (CDS_1.FieldByName('Y_Code').asString <> null) do
begin
- mvalue := TcxTextEdit(Sender).EditingText;
- FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+// mvalue := TcxTextEdit(Sender).EditingText;
+// FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_1 do
begin
- Edit;
- FieldByName(FFieldName).Value := mvalue;
- Post;
+// Edit;
+// FieldByName(FFieldName).Value := mvalue;
+// Post;
if FieldByName('QFYARNQTY').Value = null then
begin
@@ -1665,7 +1682,6 @@ begin
CDS_1.next;
end;
-
end;
end;
@@ -1742,14 +1758,14 @@ var
mYarnFactor: double;
begin
- mvalue := TcxTextEdit(Sender).EditingText;
- FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
+// mvalue := TcxTextEdit(Sender).EditingText;
+// FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_2 do
begin
- Edit;
- FieldByName(FFieldName).Value := mvalue;
- Post;
+// Edit;
+// FieldByName(FFieldName).Value := mvalue;
+// Post;
if FieldByName('YarnQty').Value = null then
begin
@@ -1872,6 +1888,9 @@ begin
BSQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('BSQTY').AsString);
GKBH.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('GKBH').AsString);
+ BCRFQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('BCRFQty').AsString);
+ WB_YarnKCQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnKCQty').AsString);
+
with ADOQuery1 do
begin
Close;
@@ -1903,6 +1922,8 @@ begin
FieldByName('YarnQty').Value := ADOQuery1.fieldbyname('YarnQty').Value;
FieldByName('CycleYarnQty').Value := ADOQuery1.fieldbyname('CycleYarnQty').Value;
+ FieldByName('YarnFactor').Value := ADOQuery1.fieldbyname('YarnFactor').Value;
+
FieldByName('TestDenier').Value := ADOQuery1.fieldbyname('Denier').Value;
FieldByName('Z_Number').Value := ADOQuery1.fieldbyname('ZS').Value;
diff --git a/A05基础资料管理/BaseInfo.dproj.local b/A05基础资料管理/BaseInfo.dproj.local
index 5bcd9ef..b65c1ee 100644
--- a/A05基础资料管理/BaseInfo.dproj.local
+++ b/A05基础资料管理/BaseInfo.dproj.local
@@ -1,34 +1,34 @@
- 1899/12/30 00:00:00.000.847,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A05基础资料管理\U_GKInput.dfm
+ 1899/12/30 00:00:00.000.847,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A05基础资料管理\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.dfm
1899/12/30 00:00:00.000.144,=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas
- 1899/12/30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas
- 1899/12/30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm
- 1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas
- 1899/12/30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.dfm
- 1899/12/30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.pas
+ 1899/12/30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.pas
+ 1899/12/30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.pas
+ 1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
+ 1899/12/30 00:00:00.000.657,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899/12/30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm
1899/12/30 00:00:00.000.824,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
1899/12/30 00:00:00.000.467,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
1899/12/30 00:00:00.000.888,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.dfm
1899/12/30 00:00:00.000.471,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRtInPut.pas
- 1899/12/30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.pas
- 1899/12/30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas
- 1899/12/30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas
- 1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas
- 1899/12/30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm
+ 1899/12/30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas
+ 1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas
+ 1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas
+ 1899/12/30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm
1899/12/30 00:00:00.000.293,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas
- 1899/12/30 00:00:00.000.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas
1899/12/30 00:00:00.000.116,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRList.pas
- 1899/12/30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm
+ 1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm
1899/12/30 00:00:00.000.409,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
1899/12/30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
- 1899/12/30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.dfm
- 1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
- 1899/12/30 00:00:00.000.657,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
- 1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm
- 1899/12/30 00:00:00.000.847,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A05基础资料管理\U_GKInput.pas
- 1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas
- 1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm
+ 1899/12/30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.dfm
+ 1899/12/30 00:00:00.000.847,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A05基础资料管理\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas
+ 1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas
+ 1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm
+ 1899/12/30 00:00:00.000.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas
+ 1899/12/30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm
+ 1899/12/30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
+ 1899/12/30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas
diff --git a/A05基础资料管理/BaseInfo.identcache b/A05基础资料管理/BaseInfo.identcache
index 14695f4..e24b89d 100644
Binary files a/A05基础资料管理/BaseInfo.identcache and b/A05基础资料管理/BaseInfo.identcache differ
diff --git a/B01基础合同管理/Contract.dproj.local b/B01基础合同管理/Contract.dproj.local
index 8aa744c..83e6426 100644
--- a/B01基础合同管理/Contract.dproj.local
+++ b/B01基础合同管理/Contract.dproj.local
@@ -1,87 +1,87 @@
- 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
+ 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=
1899/12/30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.pas
1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
1899/12/30 00:00:00.000.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.pas
+ 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
1899/12/30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas=
- 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas
1899/12/30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas
- 1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas
- 1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm
+ 1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas
+ 1899/12/30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899/12/30 00:00:00.000.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=
- 1899/12/30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=
- 1899/12/30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm
1899/12/30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas
1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
+ 1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas
1899/12/30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=
- 1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas
- 1899/12/30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas
- 1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas
- 1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
- 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm
- 1899/12/30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
- 1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas
- 1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
- 1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas
- 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas
- 1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas
- 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
- 1899/12/30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas
1899/12/30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas
- 1899/12/30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=
+ 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
+ 1899/12/30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
+ 1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas
+ 1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
+ 1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
+ 1899/12/30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas
+ 1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj
+ 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
+ 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm
+ 1899/12/30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
+ 1899/12/30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=
+ 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas
1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
- 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
- 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm
- 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj
- 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
- 1899/12/30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=
- 1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=
- 1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas
+ 1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas
- 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm
- 1899/12/30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
- 1899/12/30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=
- 1899/12/30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
- 1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas
- 1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas
- 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
+ 1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas
+ 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas
+ 1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm
+ 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
+ 1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
+ 1899/12/30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899/12/30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\U_finishSalesConInput.pas
+ 1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=
+ 1899/12/30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=
1899/12/30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
- 1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm
- 1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm
+ 1899/12/30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899/12/30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=
+ 1899/12/30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas
+ 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas
+ 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
+ 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
+ 1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
1899/12/30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas
- 1899/12/30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas=
- 1899/12/30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 1899/12/30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas
+ 1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas
+ 1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm
1899/12/30 00:00:00.000.284,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractCPSel.pas
1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
- 1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm
+ 1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm
1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
- 1899/12/30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
- 1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm
- 1899/12/30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\U_finishSalesConInput.pas
+ 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm
+ 1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm
+ 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm
+ 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
+ 1899/12/30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899/12/30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=
+ 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
+ 1899/12/30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
+ 1899/12/30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas=
1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
1899/12/30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.pas
- 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899/12/30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=
- 1899/12/30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
diff --git a/B01基础合同管理/Contract.identcache b/B01基础合同管理/Contract.identcache
index a982143..772d6b1 100644
Binary files a/B01基础合同管理/Contract.identcache and b/B01基础合同管理/Contract.identcache differ
diff --git a/B01基础合同管理/U_HTImport.dfm b/B01基础合同管理/U_HTImport.dfm
index 0e12abf..6257e29 100644
--- a/B01基础合同管理/U_HTImport.dfm
+++ b/B01基础合同管理/U_HTImport.dfm
@@ -3,12 +3,13 @@ inherited frmHTImport: TfrmHTImport
Top = 138
Caption = #26679#21697#23548#20837
ClientHeight = 562
- ClientWidth = 1484
+ ClientWidth = 1532
Font.Charset = ANSI_CHARSET
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Position = poMainFormCenter
- ExplicitWidth = 1500
+ ExplicitLeft = -664
+ ExplicitWidth = 1548
ExplicitHeight = 601
PixelsPerInch = 107
TextHeight = 21
@@ -16,7 +17,7 @@ inherited frmHTImport: TfrmHTImport
Tag = 1
Left = 0
Top = 0
- Width = 1484
+ Width = 1532
Height = 30
AutoSize = True
ButtonHeight = 30
@@ -79,7 +80,7 @@ inherited frmHTImport: TfrmHTImport
object cxGrid2: TcxGrid [1]
Left = 0
Top = 30
- Width = 1484
+ Width = 1532
Height = 532
Align = alClient
BorderStyle = cxcbsNone
@@ -223,11 +224,11 @@ inherited frmHTImport: TfrmHTImport
Width = 71
end
object TV1C_WidthUnit: TcxGridDBColumn
- Caption = #38376#24133#21333#20301
+ Caption = #26377#25928#38376#24133'('#33521#23544')'
DataBinding.FieldName = 'C_WidthUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 80
+ Width = 149
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
@@ -252,6 +253,55 @@ inherited frmHTImport: TfrmHTImport
Options.Editing = False
Width = 58
end
+ object TV1CShaZhi: TcxGridDBColumn
+ Caption = #32433#25903
+ DataBinding.FieldName = 'ShaZhi'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object TV1C_Color: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object TV1SampleTime: TcxGridDBColumn
+ Caption = #26631#26679#26102#38388
+ DataBinding.FieldName = 'SampleTime'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object TV1ConPrice: TcxGridDBColumn
+ Caption = #21333#20215'('#26410#31246')'
+ DataBinding.FieldName = 'ConPrice'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 125
+ end
+ object TV1Currency: TcxGridDBColumn
+ Caption = #24065#31181
+ DataBinding.FieldName = 'Currency'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 75
+ end
+ object TV1ConTotalAmount: TcxGridDBColumn
+ Caption = #37329#39069'('#19981#21547#31246')'
+ DataBinding.FieldName = 'ConTotalAmount'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 125
+ end
+ object TV1C_GramWeight: TcxGridDBColumn
+ Caption = #20811#37325
+ DataBinding.FieldName = 'C_GramWeight'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
end
object cxGridLevel1: TcxGridLevel
GridView = TV1
diff --git a/B01基础合同管理/U_HTImport.pas b/B01基础合同管理/U_HTImport.pas
index d3c9b63..8e15403 100644
--- a/B01基础合同管理/U_HTImport.pas
+++ b/B01基础合同管理/U_HTImport.pas
@@ -53,6 +53,13 @@ type
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
TV1Column4: TcxGridDBColumn;
+ TV1CShaZhi: TcxGridDBColumn;
+ TV1C_Color: TcxGridDBColumn;
+ TV1SampleTime: TcxGridDBColumn;
+ TV1ConPrice: TcxGridDBColumn;
+ TV1Currency: TcxGridDBColumn;
+ TV1ConTotalAmount: TcxGridDBColumn;
+ TV1C_GramWeight: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
diff --git a/B01基础合同管理/U_SalesConInPut.dfm b/B01基础合同管理/U_SalesConInPut.dfm
index 1216313..0637d6c 100644
--- a/B01基础合同管理/U_SalesConInPut.dfm
+++ b/B01基础合同管理/U_SalesConInPut.dfm
@@ -10,6 +10,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
+ ExplicitLeft = -589
ExplicitWidth = 1522
ExplicitHeight = 787
PixelsPerInch = 96
@@ -70,7 +71,6 @@ inherited frmSalesConInPut: TfrmSalesConInPut
ParentColor = False
ParentCtl3D = False
TabOrder = 1
- ExplicitTop = 24
object Label3: TLabel
Left = 330
Top = 118
@@ -315,6 +315,20 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Height = 21
Caption = #38134#34892#20195#30721#65306
end
+ object Label33: TLabel
+ Left = 940
+ Top = 157
+ Width = 112
+ Height = 21
+ Caption = #26816#39564#21512#26684#20998#25968#65306
+ end
+ object Label35: TLabel
+ Left = 940
+ Top = 121
+ Width = 80
+ Height = 21
+ Caption = #26816#39564#26631#20934#65306
+ end
object ConNo: TcxTextEdit
Tag = 2
Left = 114
@@ -737,6 +751,29 @@ inherited frmSalesConInPut: TfrmSalesConInPut
OnKeyPress = ExchangeRateKeyPress
Width = 200
end
+ object InspScore: TcxTextEdit
+ Tag = 2
+ Left = 1047
+ Top = 149
+ TabOrder = 36
+ Width = 200
+ end
+ object InspStandard: TcxButtonEdit
+ Tag = 2
+ Left = 1047
+ Top = 114
+ Hint = 'InspStandard/'#26816#39564#26631#20934
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = False
+ Properties.OnButtonClick = InspStandardPropertiesButtonClick
+ Style.ButtonStyle = btsDefault
+ TabOrder = 37
+ Width = 200
+ end
end
object ToolBar2: TToolBar [2]
Tag = 1
@@ -863,9 +900,10 @@ inherited frmSalesConInPut: TfrmSalesConInPut
DataBinding.FieldName = 'SerialNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
+ Options.Editing = False
SortIndex = 0
SortOrder = soAscending
- Width = 48
+ Width = 54
end
object VC_SCSCode: TcxGridDBColumn
Caption = #20135#21697#32534#21495
@@ -877,7 +915,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Default = True
Kind = bkEllipsis
end>
- Properties.ReadOnly = False
+ Properties.ReadOnly = True
Properties.OnButtonClick = v1Column10PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 79
@@ -887,6 +925,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
+ Options.Editing = False
Width = 89
end
object v1Column5: TcxGridDBColumn
@@ -894,6 +933,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
+ Options.Editing = False
Width = 60
end
object v1Column1: TcxGridDBColumn
@@ -901,6 +941,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
+ Options.Editing = False
Width = 70
end
object Tv1Column5: TcxGridDBColumn
@@ -908,6 +949,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
+ Options.Editing = False
Width = 70
end
object v1Column8: TcxGridDBColumn
@@ -915,6 +957,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
+ Options.Editing = False
Width = 57
end
object Tv1Column8: TcxGridDBColumn
@@ -931,22 +974,36 @@ inherited frmSalesConInPut: TfrmSalesConInPut
HeaderAlignmentHorz = taCenter
Width = 77
end
+ object Tv1C_FinishLongitudeDensity: TcxGridDBColumn
+ Caption = #32463#23494
+ DataBinding.FieldName = 'C_FinishLongitudeDensity'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1C_FinishLatitudeDensity: TcxGridDBColumn
+ Caption = #32428#23494
+ DataBinding.FieldName = 'C_FinishLatitudeDensity'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
object v1Column6: TcxGridDBColumn
- Caption = #38376#24133
+ Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 66
+ Width = 97
end
object v1Column7: TcxGridDBColumn
- Caption = #20811#37325
+ Caption = #22383#24067#20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 70
+ Width = 89
end
object v1PRTOrderQty: TcxGridDBColumn
- Caption = #25968#37327
+ Caption = #22383#24067#25968#37327
DataBinding.FieldName = 'ConQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
@@ -954,7 +1011,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Properties.DecimalPlaces = 0
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
- Width = 70
+ Width = 94
end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
@@ -1091,7 +1148,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Width = 70
end
object Tv1Column12: TcxGridDBColumn
- Caption = #25237#22383#31995#25968'%'
+ Caption = #25237#22383#31995#25968
DataBinding.FieldName = 'CP_TPXS'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
@@ -1099,7 +1156,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Properties.DisplayFormat = '0.00'
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
- Width = 70
+ Width = 106
end
end
object cxGrid1Level1: TcxGridLevel
@@ -1122,9 +1179,9 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
- Left = 1015
- Top = 170
- DesignInfo = 11142135
+ Left = 1231
+ Top = 18
+ DesignInfo = 1180879
end
object ADOTemp: TADOQuery
Connection = DataLink_Contract.ADOLink
diff --git a/B01基础合同管理/U_SalesConInPut.pas b/B01基础合同管理/U_SalesConInPut.pas
index fa80d78..ecc7238 100644
--- a/B01基础合同管理/U_SalesConInPut.pas
+++ b/B01基础合同管理/U_SalesConInPut.pas
@@ -143,6 +143,12 @@ type
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
+ Tv1C_FinishLongitudeDensity: TcxGridDBColumn;
+ Tv1C_FinishLatitudeDensity: TcxGridDBColumn;
+ Label33: TLabel;
+ Label35: TLabel;
+ InspScore: TcxTextEdit;
+ InspStandard: TcxButtonEdit;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@@ -175,6 +181,8 @@ type
procedure ToolButton5Click(Sender: TObject);
procedure CurrencyPropertiesChange(Sender: TObject);
procedure Tv1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure InspStandardPropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
private
FLeft, FTop: Integer;
fuserName, Fstatus: string;
@@ -286,6 +294,31 @@ begin
end;
end;
+procedure TfrmSalesConInPut.InspStandardPropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
+var
+ fsj: string;
+ FWZ: Integer;
+begin
+ fsj := Trim(TcxButtonEdit(Sender).Hint);
+ FWZ := Pos('/', fsj);
+ try
+ frmZDYHelp := TfrmZDYHelp.Create(Application);
+ with frmZDYHelp do
+ begin
+ MainType := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+ flag := Copy(fsj, 1, FWZ - 1);
+ flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+ if ShowModal = 1 then
+ begin
+ TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+ end;
+ end;
+ finally
+ frmZDYHelp.Free;
+ end;
+end;
+
procedure TfrmSalesConInPut.JSMoney();
var
FConQty, FConPrice, FC_Money: Double;
@@ -826,7 +859,7 @@ begin
if mCP_QTY <> 0 then
begin
- FConQty := RoundFloat((mCP_TPXS + 1) * mCP_QTY, 0);
+ FConQty := RoundFloat(mCP_TPXS * mCP_QTY, 0);
end;
FC_Money := RoundFloat(FConQty * FConPrice, 2);
@@ -1139,6 +1172,11 @@ begin
Order_Sub.fieldbyname('CP_Name').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Name').asstring;
Order_Sub.fieldbyname('FROMCPSID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CONSID').asstring;
Order_Sub.fieldbyname('FROMCPMID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CONMID').asstring;
+
+ Order_Sub.fieldbyname('C_Width').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Width').asstring;
+ Order_Sub.fieldbyname('C_GramWeight').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_GramWeight').asstring;
+ Order_Sub.fieldbyname('C_FinishLongitudeDensity').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_FinishLongitudeDensity').asstring;
+ Order_Sub.fieldbyname('C_FinishLatitudeDensity').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_FinishLatitudeDensity').asstring;
Order_Sub.fieldbyname('ConUnit').Value := 'M';
FieldByName('SSEL').Value := FALSE;
@@ -1151,6 +1189,7 @@ begin
close;
SQL.Clear;
SQL.Add(' select top(1) * from BS_Contract_Sub where CP_Code = ' + QuotedStr(Trim(Order_Sub.fieldbyname('CP_Code').AsString)));
+// ShowMessage(sql.Text);
Open;
end;
Order_Sub.fieldbyname('C_Code').Value := ADOQueryCmd.FieldByName('C_Code').Value;
@@ -1161,6 +1200,10 @@ begin
Order_Sub.fieldbyname('C_ColorNo').Value := ADOQueryCmd.FieldByName('C_ColorNo').Value;
Order_Sub.fieldbyname('C_Pattern').Value := ADOQueryCmd.FieldByName('C_Pattern').Value;
Order_Sub.fieldbyname('C_StyleNo').Value := ADOQueryCmd.FieldByName('C_StyleNo').Value;
+
+// Order_Sub.fieldbyname('C_FinishLatitudeDensity').Value := ADOQueryCmd.FieldByName('C_FinishLatitudeDensity').Value;
+// Order_Sub.fieldbyname('C_FinishLongitudeDensity').Value := ADOQueryCmd.FieldByName('C_FinishLongitudeDensity').Value;
+
end;
Next;
i := i + 1;
@@ -1448,10 +1491,15 @@ begin
Order_Sub.fieldbyname('C_Pattern').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Pattern').asstring;
Order_Sub.fieldbyname('C_StyleNo').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_StyleNo').asstring;
- Order_Sub.fieldbyname('C_Width').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_ReedWidth').asstring;
+ Order_Sub.fieldbyname('C_Width').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Width').asstring;
Order_Sub.fieldbyname('C_GramWeight').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_GramWeight').asstring;
Order_Sub.fieldbyname('AttName').Value := frmTatClothInfoSel.CDS_1.fieldbyname('AttName').asstring;
+
+ Order_Sub.fieldbyname('C_FinishLatitudeDensity').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_FinishLatitudeDensity').asstring;
+ Order_Sub.fieldbyname('C_FinishLongitudeDensity').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_FinishLongitudeDensity').asstring;
+
+
Order_Sub.Post;
end;
free;
diff --git a/B01基础合同管理/U_SalesContractList.dfm b/B01基础合同管理/U_SalesContractList.dfm
index d83cf3b..7d0d144 100644
--- a/B01基础合同管理/U_SalesContractList.dfm
+++ b/B01基础合同管理/U_SalesContractList.dfm
@@ -7,6 +7,7 @@ inherited frmSalesContractList: TfrmSalesContractList
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
+ ExplicitLeft = -689
ExplicitWidth = 1556
ExplicitHeight = 810
PixelsPerInch = 96
@@ -186,6 +187,7 @@ inherited frmSalesContractList: TfrmSalesContractList
Align = alClient
PopupMenu = pm1
TabOrder = 3
+ ExplicitTop = 159
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -325,7 +327,9 @@ inherited frmSalesContractList: TfrmSalesContractList
object v1Column10: TcxGridDBColumn
DataBinding.FieldName = 'status'
DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
Options.Editing = False
+ Width = 70
end
object v1Column12: TcxGridDBColumn
Caption = #21512#21516#38468#20214
@@ -351,6 +355,7 @@ inherited frmSalesContractList: TfrmSalesContractList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
+ Width = 88
end
object Tv1Column3: TcxGridDBColumn
Caption = #36215#36816#28207
@@ -449,6 +454,20 @@ inherited frmSalesContractList: TfrmSalesContractList
Options.Editing = False
Width = 100
end
+ object Tv1InspStandard: TcxGridDBColumn
+ Caption = #26816#39564#26631#20934
+ DataBinding.FieldName = 'InspStandard'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv1InspScore: TcxGridDBColumn
+ Caption = #26816#39564#21512#26684#20998#25968
+ DataBinding.FieldName = 'InspScore'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 105
+ end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@@ -567,7 +586,7 @@ inherited frmSalesContractList: TfrmSalesContractList
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 11
- Properties.TabIndex = 4
+ Properties.TabIndex = 2
Properties.Tabs.Strings = (
#26410#25552#20132
#24050#25552#20132
@@ -737,8 +756,22 @@ inherited frmSalesContractList: TfrmSalesContractList
Options.Editing = False
Width = 70
end
+ object TV2C_FinishLongitudeDensity: TcxGridDBColumn
+ Caption = #32463#23494
+ DataBinding.FieldName = 'C_FinishLongitudeDensity'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object TV2C_FinishLatitudeDensity: TcxGridDBColumn
+ Caption = #32428#23494
+ DataBinding.FieldName = 'C_FinishLatitudeDensity'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
object v1Column6: TcxGridDBColumn
- Caption = #38376#24133
+ Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
@@ -749,10 +782,10 @@ inherited frmSalesContractList: TfrmSalesContractList
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 71
+ Width = 95
end
object v1Column7: TcxGridDBColumn
- Caption = #20811#37325
+ Caption = #22383#24067#20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
@@ -763,16 +796,16 @@ inherited frmSalesContractList: TfrmSalesContractList
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 70
+ Width = 91
end
object v1PRTOrderQty: TcxGridDBColumn
- Caption = #25968#37327
+ Caption = #22383#24067#25968#37327
DataBinding.FieldName = 'ConQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 70
+ Width = 87
end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
diff --git a/B01基础合同管理/U_SalesContractList.pas b/B01基础合同管理/U_SalesContractList.pas
index ce16bc6..9bee6df 100644
--- a/B01基础合同管理/U_SalesContractList.pas
+++ b/B01基础合同管理/U_SalesContractList.pas
@@ -129,6 +129,10 @@ type
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Order_Sub: TClientDataSet;
+ TV2C_FinishLatitudeDensity: TcxGridDBColumn;
+ TV2C_FinishLongitudeDensity: TcxGridDBColumn;
+ Tv1InspStandard: TcxGridDBColumn;
+ Tv1InspScore: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@@ -457,7 +461,7 @@ begin
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
- FLMType := 'SalesConPrint';
+ FLMType := 'PBSalesConPrint';
FFiltration1 := QuotedStr(Trim(Self.CDS_1.fieldbyname('ConMID').AsString));
if ShowModal = 1 then
begin
diff --git a/B01基础合同管理/U_TatSCTLLIST.dfm b/B01基础合同管理/U_TatSCTLLIST.dfm
index 77eafcf..fac7fa7 100644
--- a/B01基础合同管理/U_TatSCTLLIST.dfm
+++ b/B01基础合同管理/U_TatSCTLLIST.dfm
@@ -2,12 +2,12 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Left = 154
Top = 76
Caption = #29983#20135#25237#26009#35745#31639#34920
- ClientHeight = 637
+ ClientHeight = 649
ClientWidth = 1540
Font.Height = -16
Position = poScreenCenter
ExplicitWidth = 1556
- ExplicitHeight = 676
+ ExplicitHeight = 688
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
@@ -150,14 +150,14 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Left = 0
Top = 121
Width = 1540
- Height = 516
+ Height = 317
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 4
- ExplicitTop = 127
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
+ OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -274,6 +274,418 @@ inherited frmSCTLLIST: TfrmSCTLLIST
GridView = Tv1
end
end
+ object cxPageControl3: TcxPageControl [5]
+ Left = 0
+ Top = 438
+ Width = 1540
+ Height = 211
+ Align = alBottom
+ TabOrder = 5
+ Properties.ActivePage = cxTabSheet2
+ Properties.CustomButtons.Buttons = <>
+ Properties.Style = 9
+ ClientRectBottom = 211
+ ClientRectRight = 1540
+ ClientRectTop = 28
+ object cxTabSheet1: TcxTabSheet
+ Caption = #32463#19997#32452#21512
+ ImageIndex = 0
+ object GroupBox1: TGroupBox
+ Left = 931
+ Top = 0
+ Width = 609
+ Height = 183
+ Align = alRight
+ Caption = #32463#25490#21015
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -29
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ TabOrder = 0
+ Visible = False
+ object Y_Note_PLJ: TMemo
+ Tag = 2
+ Left = 2
+ Top = 31
+ Width = 605
+ Height = 150
+ Align = alClient
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ TabOrder = 0
+ end
+ end
+ object Panel2: TPanel
+ Left = 0
+ Top = 0
+ Width = 931
+ Height = 183
+ Align = alClient
+ TabOrder = 1
+ object cxPageControl2: TcxPageControl
+ Left = 1
+ Top = 1
+ Width = 929
+ Height = 181
+ Align = alClient
+ Color = clWhite
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -21
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentBackground = False
+ ParentColor = False
+ ParentFont = False
+ TabOrder = 0
+ Visible = False
+ Properties.CustomButtons.Buttons = <>
+ Properties.Style = 6
+ ClientRectBottom = 181
+ ClientRectRight = 929
+ ClientRectTop = 0
+ end
+ object cxGrid2: TcxGrid
+ Left = 1
+ Top = 1
+ Width = 929
+ Height = 181
+ Align = alClient
+ TabOrder = 1
+ object cxGridDBTableView1: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_2
+ DataController.Filter.AutoDataSetFilter = True
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Format = 'C_Code'
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ Column = TV1Column8
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsBehavior.FocusCellOnTab = True
+ OptionsBehavior.GoToNextCellOnEnter = True
+ OptionsBehavior.FocusCellOnCycle = True
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ object TV1Column7: TcxGridDBColumn
+ Caption = #34892#21495
+ DataBinding.FieldName = 'RowNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object cxGridDBColumn3: TcxGridDBColumn
+ Caption = #32534#21495
+ DataBinding.FieldName = 'Y_Code'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object cxGridDBColumn4: TcxGridDBColumn
+ Caption = #21697#21517
+ DataBinding.FieldName = 'Y_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Moving = False
+ Options.Sorting = False
+ Width = 100
+ end
+ object TV1Column13: TcxGridDBColumn
+ Caption = #35268#26684
+ DataBinding.FieldName = 'Y_Spec'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object cxGridDBColumn8: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'Y_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object TV1Column6: TcxGridDBColumn
+ Caption = #20998#29305'(Dtex)'
+ DataBinding.FieldName = 'TestDenier'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 96
+ end
+ object TV1Column14: TcxGridDBColumn
+ Caption = #25903#25968
+ DataBinding.FieldName = 'Z_Number'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 71
+ end
+ object cxGridDBColumn1: TcxGridDBColumn
+ Caption = #26681#25968
+ DataBinding.FieldName = 'YarnQty'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object TV1Column2: TcxGridDBColumn
+ Caption = #24490#29615#26681#25968
+ DataBinding.FieldName = 'CycleYarnQty'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object cxGridDBColumn2: TcxGridDBColumn
+ Caption = #20840#24133#26681#25968
+ DataBinding.FieldName = 'QFYARNQTY'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object TV1Column8: TcxGridDBColumn
+ Caption = #30334#31859#32463#38271#37325#37327'KG'
+ DataBinding.FieldName = 'MeterQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 163
+ end
+ object TV1Column11: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'NOTE'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ end
+ object cxGridLevel1: TcxGridLevel
+ GridView = cxGridDBTableView1
+ end
+ end
+ end
+ end
+ object cxTabSheet2: TcxTabSheet
+ Caption = #32428#19997#32452#21512
+ ImageIndex = 1
+ object GroupBox2: TGroupBox
+ Left = 863
+ Top = 0
+ Width = 677
+ Height = 183
+ Align = alRight
+ Caption = #32428#25490#21015
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -29
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ TabOrder = 0
+ Visible = False
+ object Y_Note_PLW: TMemo
+ Tag = 2
+ Left = 2
+ Top = 31
+ Width = 673
+ Height = 150
+ Align = alClient
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #23435#20307
+ Font.Style = [fsBold]
+ ParentFont = False
+ TabOrder = 0
+ end
+ end
+ object Panel3: TPanel
+ Left = 0
+ Top = 0
+ Width = 863
+ Height = 183
+ Align = alClient
+ TabOrder = 1
+ object cxPageControl1: TcxPageControl
+ Left = 1
+ Top = 1
+ Width = 861
+ Height = 181
+ Align = alClient
+ Color = clWhite
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -21
+ Font.Name = #23435#20307
+ Font.Style = []
+ ParentBackground = False
+ ParentColor = False
+ ParentFont = False
+ TabOrder = 0
+ Visible = False
+ Properties.CustomButtons.Buttons = <>
+ Properties.Style = 6
+ ClientRectBottom = 181
+ ClientRectRight = 861
+ ClientRectTop = 0
+ end
+ object cxGrid3: TcxGrid
+ Left = 1
+ Top = 1
+ Width = 861
+ Height = 181
+ Align = alClient
+ TabOrder = 1
+ object Tv2: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_3
+ DataController.Filter.AutoDataSetFilter = True
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Format = 'C_Code'
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ Column = Tv2Column8
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsBehavior.FocusCellOnTab = True
+ OptionsBehavior.GoToNextCellOnEnter = True
+ OptionsBehavior.FocusCellOnCycle = True
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ object Tv2Column7: TcxGridDBColumn
+ Caption = #34892#21495
+ DataBinding.FieldName = 'RowNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object v2Column10: TcxGridDBColumn
+ Caption = #32534#21495
+ DataBinding.FieldName = 'Y_Code'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object cxGridDBColumn5: TcxGridDBColumn
+ Caption = #21697#21517
+ DataBinding.FieldName = 'Y_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Moving = False
+ Options.Sorting = False
+ Width = 100
+ end
+ object Tv2Column13: TcxGridDBColumn
+ Caption = #35268#26684
+ DataBinding.FieldName = 'Y_Spec'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object v2Column6: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'Y_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object Tv2Column6: TcxGridDBColumn
+ Caption = #20998#29305'(Dtex)'
+ DataBinding.FieldName = 'TestDenier'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 91
+ end
+ object Tv2Column14: TcxGridDBColumn
+ Caption = #25903#25968
+ DataBinding.FieldName = 'Z_Number'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 88
+ end
+ object Tv2Column1: TcxGridDBColumn
+ Caption = #26681#25968
+ DataBinding.FieldName = 'YarnQty'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv2Column2: TcxGridDBColumn
+ Caption = #24490#29615#26681#25968
+ DataBinding.FieldName = 'CycleYarnQty'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv2Column11: TcxGridDBColumn
+ Caption = #25439#32791
+ DataBinding.FieldName = 'Y_Loss'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv2Column8: TcxGridDBColumn
+ Caption = #32433#32447#24635#29992#37327'KG'
+ DataBinding.FieldName = 'allYarn'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 151
+ end
+ object Tv2Column12: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'note'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object cxGridLevel3: TcxGridLevel
+ GridView = Tv2
+ end
+ end
+ end
+ end
+ end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Contract.ADOLink
Left = 81
@@ -355,4 +767,15 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Left = 296
Top = 448
end
+ object CDS_3: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 632
+ Top = 376
+ end
+ object DS_3: TDataSource
+ DataSet = CDS_3
+ Left = 712
+ Top = 384
+ end
end
diff --git a/B01基础合同管理/U_TatSCTLLIST.pas b/B01基础合同管理/U_TatSCTLLIST.pas
index 664fe82..aa53ea8 100644
--- a/B01基础合同管理/U_TatSCTLLIST.pas
+++ b/B01基础合同管理/U_TatSCTLLIST.pas
@@ -57,6 +57,49 @@ type
C_CODE: TcxTextEdit;
Label4: TLabel;
Tv1GKBH: TcxGridDBColumn;
+ cxPageControl3: TcxPageControl;
+ cxTabSheet1: TcxTabSheet;
+ GroupBox1: TGroupBox;
+ Y_Note_PLJ: TMemo;
+ Panel2: TPanel;
+ cxPageControl2: TcxPageControl;
+ cxGrid2: TcxGrid;
+ cxGridDBTableView1: TcxGridDBTableView;
+ TV1Column7: TcxGridDBColumn;
+ cxGridDBColumn3: TcxGridDBColumn;
+ cxGridDBColumn4: TcxGridDBColumn;
+ TV1Column13: TcxGridDBColumn;
+ cxGridDBColumn8: TcxGridDBColumn;
+ TV1Column6: TcxGridDBColumn;
+ TV1Column14: TcxGridDBColumn;
+ cxGridDBColumn1: TcxGridDBColumn;
+ TV1Column2: TcxGridDBColumn;
+ cxGridDBColumn2: TcxGridDBColumn;
+ TV1Column8: TcxGridDBColumn;
+ TV1Column11: TcxGridDBColumn;
+ cxGridLevel1: TcxGridLevel;
+ cxTabSheet2: TcxTabSheet;
+ GroupBox2: TGroupBox;
+ Y_Note_PLW: TMemo;
+ Panel3: TPanel;
+ cxPageControl1: TcxPageControl;
+ cxGrid3: TcxGrid;
+ Tv2: TcxGridDBTableView;
+ Tv2Column7: TcxGridDBColumn;
+ v2Column10: TcxGridDBColumn;
+ cxGridDBColumn5: TcxGridDBColumn;
+ Tv2Column13: TcxGridDBColumn;
+ v2Column6: TcxGridDBColumn;
+ Tv2Column6: TcxGridDBColumn;
+ Tv2Column14: TcxGridDBColumn;
+ Tv2Column1: TcxGridDBColumn;
+ Tv2Column2: TcxGridDBColumn;
+ Tv2Column11: TcxGridDBColumn;
+ Tv2Column8: TcxGridDBColumn;
+ Tv2Column12: TcxGridDBColumn;
+ cxGridLevel3: TcxGridLevel;
+ CDS_3: TClientDataSet;
+ DS_3: TDataSource;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@@ -73,10 +116,12 @@ type
procedure ConNoPropertiesChange(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
+ procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
private
FInt, PFInt: Integer;
FFMainID, BPFlag: string;
procedure InitGrid();
+ procedure InitClothYarn(MC_Code: string);
{ Private declarations }
public
canshu1: string;
@@ -122,7 +167,7 @@ begin
sql.Add('SELECT * FROM V_CON_TL ');
SQL.Add('WHERE ConDate>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date)));
SQL.Add('and ConDate<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1)));
-
+// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
@@ -133,6 +178,43 @@ begin
end;
+procedure TfrmSCTLLIST.InitClothYarn(MC_Code: string);
+var
+ zsqtyValue: string;
+begin
+
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
+ sql.Add(' where A.YRType=''˿'' and B.C_Code=''' + Trim(MC_Code) + '''');
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_2);
+ SInitCDSData(ADOQueryTemp, CDS_2);
+ ClearCDSColumn(CDS_2, ['YRId', 'SubId', 'MainId']);
+
+ zsqtyValue := CDS_1.FieldByName('zsqty').AsString;
+ if zsqtyValue = '' then
+ zsqtyValue := '0';
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30))');
+ SQL.Add(' ,allYarn=A.MeterQty*ISNULL(' + zsqtyValue + ',0)/100');
+ sql.Add(' from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
+ sql.Add(' where A.YRType=''γ˿'' and B.C_Code=''' + Trim(MC_Code) + '''');
+// ShowMessage(SQL.Text);
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_3);
+ SInitCDSData(ADOQueryTemp, CDS_3);
+ ClearCDSColumn(CDS_3, ['YRId', 'SubId', 'MainId']);
+
+end;
+
procedure TfrmSCTLLIST.N1Click(Sender: TObject);
begin
SelOKNo(cds_1, true)
@@ -272,6 +354,15 @@ begin
SInitCDSData(ADOQueryMain, CDS_1);
end;
+procedure TfrmSCTLLIST.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+begin
+ if CDS_1.IsEmpty then
+ begin
+ Exit;
+ end;
+ InitClothYarn(CDS_1.FieldByName('C_Code').AsString);
+end;
+
procedure TfrmSCTLLIST.ConNoChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
diff --git a/B01基础合同管理/U_finishSalesConInput.dfm b/B01基础合同管理/U_finishSalesConInput.dfm
index 12784d4..ec49d16 100644
--- a/B01基础合同管理/U_finishSalesConInput.dfm
+++ b/B01基础合同管理/U_finishSalesConInput.dfm
@@ -3,14 +3,15 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Top = 76
Caption = #38144#21806#21512#21516#24405#20837
ClientHeight = 748
- ClientWidth = 1518
+ ClientWidth = 1530
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -16
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
- ExplicitWidth = 1534
+ ExplicitLeft = -679
+ ExplicitWidth = 1546
ExplicitHeight = 787
PixelsPerInch = 96
TextHeight = 21
@@ -18,7 +19,7 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Tag = 1
Left = 0
Top = 0
- Width = 1518
+ Width = 1530
Height = 30
AutoSize = True
ButtonHeight = 30
@@ -58,7 +59,7 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
object ScrollBox1: TScrollBox [1]
Left = 0
Top = 30
- Width = 1518
+ Width = 1530
Height = 99
Align = alTop
BevelInner = bvNone
@@ -69,8 +70,9 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
ParentColor = False
ParentCtl3D = False
TabOrder = 1
+ ExplicitTop = 36
object Label3: TLabel
- Left = 339
+ Left = 362
Top = 65
Width = 80
Height = 21
@@ -84,7 +86,7 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Caption = #21512#21516#21495#65306
end
object Label14: TLabel
- Left = 339
+ Left = 362
Top = 10
Width = 48
Height = 21
@@ -145,6 +147,20 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Height = 21
Caption = #20132#26399#65306
end
+ object Label2: TLabel
+ Left = 730
+ Top = 62
+ Width = 112
+ Height = 21
+ Caption = #26816#39564#21512#26684#20998#25968#65306
+ end
+ object Label4: TLabel
+ Left = 730
+ Top = 10
+ Width = 80
+ Height = 21
+ Caption = #26816#39564#26631#20934#65306
+ end
object ConNo: TcxTextEdit
Tag = 2
Left = 114
@@ -191,7 +207,7 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
end
object BuyName: TcxButtonEdit
Tag = 2
- Left = 412
+ Left = 435
Top = 7
Properties.Buttons = <
item
@@ -199,9 +215,10 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Kind = bkEllipsis
end>
Properties.ReadOnly = False
+ Properties.OnButtonClick = BuyNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 5
- Width = 200
+ Width = 237
end
object QtyNote: TcxButtonEdit
Tag = 2
@@ -221,11 +238,11 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
end
object ConDate: TcxDateEdit
Tag = 2
- Left = 412
+ Left = 435
Top = 59
Properties.ShowTime = False
TabOrder = 7
- Width = 200
+ Width = 237
end
object DlyDate: TcxDateEdit
Tag = 2
@@ -235,12 +252,35 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
TabOrder = 8
Width = 200
end
+ object InspScore: TcxTextEdit
+ Tag = 2
+ Left = 835
+ Top = 59
+ TabOrder = 9
+ Width = 237
+ end
+ object InspStandard: TcxButtonEdit
+ Tag = 2
+ Left = 835
+ Top = 7
+ Hint = 'InspStandard/'#26816#39564#26631#20934
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = False
+ Properties.OnButtonClick = InspStandardPropertiesButtonClick
+ Style.ButtonStyle = btsDefault
+ TabOrder = 10
+ Width = 237
+ end
end
object ToolBar2: TToolBar [2]
Tag = 1
Left = 0
Top = 129
- Width = 1518
+ Width = 1530
Height = 30
AutoSize = True
ButtonHeight = 30
@@ -289,13 +329,12 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
object cxGrid1: TcxGrid [3]
Left = 0
Top = 159
- Width = 1518
+ Width = 1530
Height = 589
Align = alClient
BorderStyle = cxcbsNone
PopupMenu = pm_sub
TabOrder = 3
- ExplicitTop = 165
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -344,7 +383,6 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
- Visible = False
HeaderAlignmentHorz = taCenter
Width = 41
end
@@ -407,7 +445,7 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Width = 114
end
object Tv1C_WidthUnit: TcxGridDBColumn
- Caption = #38376#24133#21333#20301
+ Caption = #26377#25928#38376#24133'('#33521#23544')'
DataBinding.FieldName = 'C_WidthUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@@ -431,9 +469,66 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Default = True
Kind = bkEllipsis
end>
+ Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 151
end
+ object Tv1ShaZhi: TcxGridDBColumn
+ Caption = #32433#25903
+ DataBinding.FieldName = 'ShaZhi'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1C_Color: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1SampleTime: TcxGridDBColumn
+ Caption = #26631#26679#26102#38388
+ DataBinding.FieldName = 'SampleTime'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object Tv1ConPrice: TcxGridDBColumn
+ Caption = #21333#20215'('#26410#31246')'
+ DataBinding.FieldName = 'ConPrice'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 123
+ end
+ object Tv1Currency: TcxGridDBColumn
+ Caption = #24065#31181
+ DataBinding.FieldName = 'Currency'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxComboBoxProperties'
+ Properties.Items.Strings = (
+ 'CNY'
+ 'USD'
+ 'EUR'
+ 'VND')
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1ConTotalAmount: TcxGridDBColumn
+ Caption = #37329#39069'('#19981#21547#31246')'
+ DataBinding.FieldName = 'ConTotalAmount'
+ DataBinding.IsNullValueType = True
+ GroupSummaryAlignment = taCenter
+ HeaderAlignmentHorz = taCenter
+ Width = 120
+ end
+ object Tv1C_GramWeight: TcxGridDBColumn
+ Caption = #20811#37325
+ DataBinding.FieldName = 'C_GramWeight'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@@ -456,8 +551,8 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 1015
- Top = 170
- DesignInfo = 11142135
+ Top = 218
+ DesignInfo = 14287863
end
object ADOTemp: TADOQuery
Connection = DataLink_Contract.ADOLink
diff --git a/B01基础合同管理/U_finishSalesConInput.pas b/B01基础合同管理/U_finishSalesConInput.pas
index d020231..fcfa460 100644
--- a/B01基础合同管理/U_finishSalesConInput.pas
+++ b/B01基础合同管理/U_finishSalesConInput.pas
@@ -75,6 +75,17 @@ type
DlyDate: TcxDateEdit;
Tv1density: TcxGridDBColumn;
Tv1C_WidthUnit: TcxGridDBColumn;
+ Tv1ShaZhi: TcxGridDBColumn;
+ Tv1C_Color: TcxGridDBColumn;
+ Tv1SampleTime: TcxGridDBColumn;
+ Tv1ConPrice: TcxGridDBColumn;
+ Tv1Currency: TcxGridDBColumn;
+ Tv1ConTotalAmount: TcxGridDBColumn;
+ Tv1C_GramWeight: TcxGridDBColumn;
+ InspScore: TcxTextEdit;
+ InspStandard: TcxButtonEdit;
+ Label2: TLabel;
+ Label4: TLabel;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
@@ -86,6 +97,11 @@ type
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
+ procedure BuyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure v1OrderUnitPropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
+ procedure InspStandardPropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
private
FLeft, FTop: Integer;
fuserName, Fstatus: string;
@@ -159,7 +175,6 @@ begin
end;
-
procedure TfrmfinishSalesConInput.JSMoney();
var
FConQty, FConPrice, FC_Money: Double;
@@ -200,7 +215,6 @@ begin
// raise Exception.Create('ɫΪգ');
-
// if Order_Sub.Locate('C_MF', null, []) then
// raise Exception.Create('ŷΪգ');
// if Order_Sub.Locate('C_MF', '', []) then
@@ -364,6 +378,25 @@ begin
SetXH();
end;
+procedure TfrmfinishSalesConInput.v1OrderUnitPropertiesButtonClick(
+ Sender: TObject; AButtonIndex: Integer);
+begin
+
+ try
+ frmZDYHelp := TfrmZDYHelp.Create(Application);
+ with frmZDYHelp do
+ begin
+ MainType := 'ConUnit';
+ if ShowModal = 1 then
+ begin
+ TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+ end;
+ end;
+ finally
+ frmZDYHelp.Free;
+ end;
+end;
+
procedure TfrmfinishSalesConInput.TBCloseClick(Sender: TObject);
begin
@@ -450,6 +483,31 @@ begin
end;
+procedure TfrmfinishSalesConInput.InspStandardPropertiesButtonClick(
+ Sender: TObject; AButtonIndex: Integer);
+var
+ fsj: string;
+ FWZ: Integer;
+begin
+ fsj := Trim(TcxButtonEdit(Sender).Hint);
+ FWZ := Pos('/', fsj);
+ try
+ frmZDYHelp := TfrmZDYHelp.Create(Application);
+ with frmZDYHelp do
+ begin
+ MainType := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+ flag := Copy(fsj, 1, FWZ - 1);
+ flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+ if ShowModal = 1 then
+ begin
+ TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+ end;
+ end;
+ finally
+ frmZDYHelp.Free;
+ end;
+end;
+
procedure TfrmfinishSalesConInput.N1Click(Sender: TObject);
var
FValue, FFValue, FColumn, FFColumn, MHXSID: string;
@@ -600,6 +658,30 @@ begin
ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
end;
+procedure TfrmfinishSalesConInput.BuyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmCompanySel := TfrmCompanySel.Create(Application);
+ with frmCompanySel do
+ begin
+ FCoType := 'ͻ';
+ if Self.FAuthority = '¼' then
+ FAuthority := 'ҵ';
+ if ShowModal = 1 then
+ begin
+ self.BuyName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
+ self.BuyName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
+// self.SalesId.Text := Trim(frmCompanySel.CDS_1.fieldbyname('SalesId').AsString);
+// self.Saleser.Text := Trim(frmCompanySel.CDS_1.fieldbyname('Saleser').AsString);
+ self.TallyId.Text := Trim(frmCompanySel.CDS_1.fieldbyname('TallyId').AsString);
+ end;
+ end;
+
+ finally
+ frmCompanySel.Free;
+ end;
+end;
+
procedure TfrmfinishSalesConInput.FormShow(Sender: TObject);
begin
inherited;
diff --git a/B01基础合同管理/U_finishSalesContractList.dfm b/B01基础合同管理/U_finishSalesContractList.dfm
index db571d0..59a32a2 100644
--- a/B01基础合同管理/U_finishSalesContractList.dfm
+++ b/B01基础合同管理/U_finishSalesContractList.dfm
@@ -7,8 +7,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
- ExplicitLeft = -689
- ExplicitTop = -185
ExplicitWidth = 1556
ExplicitHeight = 810
PixelsPerInch = 96
@@ -196,8 +194,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Align = alClient
PopupMenu = pm1
TabOrder = 3
- ExplicitLeft = 1
- ExplicitTop = 152
+ ExplicitTop = 163
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -272,6 +269,20 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Visible = False
Width = 70
end
+ object Tv1InspStandard: TcxGridDBColumn
+ Caption = #26816#39564#26631#20934
+ DataBinding.FieldName = 'InspStandard'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv1InspScore: TcxGridDBColumn
+ Caption = #26816#39564#21512#26684#20998#25968
+ DataBinding.FieldName = 'InspScore'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 134
+ end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@@ -288,6 +299,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Color = clWhite
ParentBackground = False
TabOrder = 6
+ ExplicitTop = 36
object Label4: TLabel
Left = 268
Top = 50
@@ -412,7 +424,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
- ExplicitTop = 493
end
object Panel2: TPanel [5]
Left = 0
@@ -430,8 +441,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Align = alLeft
BorderStyle = cxcbsNone
TabOrder = 0
- ExplicitLeft = 0
- ExplicitTop = -4
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -544,11 +553,11 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Width = 71
end
object TV2C_WidthUnit: TcxGridDBColumn
- Caption = #38376#24133#21333#20301
+ Caption = #26377#25928#38376#24133'('#33521#23544')'
DataBinding.FieldName = 'C_WidthUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 80
+ Width = 125
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
@@ -573,6 +582,48 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Options.Editing = False
Width = 58
end
+ object TV2ShaZhi: TcxGridDBColumn
+ Caption = #32433#25903
+ DataBinding.FieldName = 'ShaZhi'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object TV2C_Color: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'C_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object TV2SampleTime: TcxGridDBColumn
+ Caption = #26631#26679#26102#38388
+ DataBinding.FieldName = 'SampleTime'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object TV2ConPrice: TcxGridDBColumn
+ Caption = #21333#20215'('#26410#31246')'
+ DataBinding.FieldName = 'ConPrice'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object TV2Currency: TcxGridDBColumn
+ Caption = #24065#31181
+ DataBinding.FieldName = 'Currency'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 70
+ end
+ object TV2ConTotalAmount: TcxGridDBColumn
+ Caption = #37329#39069'('#19981#21547#31246')'
+ DataBinding.FieldName = 'ConTotalAmount'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
@@ -585,8 +636,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Height = 268
Align = alClient
TabOrder = 1
- ExplicitLeft = 906
- ExplicitTop = -4
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
diff --git a/B01基础合同管理/U_finishSalesContractList.pas b/B01基础合同管理/U_finishSalesContractList.pas
index e1a619c..d7d9d75 100644
--- a/B01基础合同管理/U_finishSalesContractList.pas
+++ b/B01基础合同管理/U_finishSalesContractList.pas
@@ -106,6 +106,14 @@ type
CDS_3: TClientDataSet;
DS_3: TDataSource;
GPM_3: TcxGridPopupMenu;
+ TV2ShaZhi: TcxGridDBColumn;
+ TV2C_Color: TcxGridDBColumn;
+ TV2SampleTime: TcxGridDBColumn;
+ TV2ConPrice: TcxGridDBColumn;
+ TV2Currency: TcxGridDBColumn;
+ TV2ConTotalAmount: TcxGridDBColumn;
+ Tv1InspStandard: TcxGridDBColumn;
+ Tv1InspScore: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@@ -193,10 +201,13 @@ begin
sql.Clear;
sql.Add('select * from CP_Contract_sub A ');
sql.Add('where ConMID =' + quotedstr((CDS_1.fieldbyname('ConMID').AsString)));
+// ShowMessage(SQL.Text);
open;
end;
SCreateCDS(ADOQueryTemp, CDS_2);
+// showMessage(intTostr(CDS_2.RecordCount));
SInitCDSData(ADOQueryTemp, CDS_2);
+// showMessage(intTostr(CDS_2.RecordCount));
TV2.DataController.Filter.Clear;
end;
@@ -436,7 +447,7 @@ begin
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
- FLMType := 'SalesConPrint';
+ FLMType := 'CPSalesConPrint';
FFiltration1 := QuotedStr(Trim(Self.CDS_1.fieldbyname('ConMID').AsString));
if ShowModal = 1 then
begin
@@ -822,7 +833,7 @@ begin
if CDS_2.IsEmpty then
exit;
- with ADOQueryTemp do
+ with ADOQueryCMD do
begin
close;
sql.Clear;
@@ -830,8 +841,8 @@ begin
sql.Add('where CP_code =' + quotedstr((CDS_2.fieldbyname('C_Code').AsString)));
open;
end;
- SCreateCDS(ADOQueryTemp, CDS_3);
- SInitCDSData(ADOQueryTemp, CDS_3);
+ SCreateCDS(ADOQueryCMD, CDS_3);
+ SInitCDSData(ADOQueryCMD, CDS_3);
end;
diff --git a/B02基础纱线仓库/U_YarnInfoInPut.dfm b/B02基础纱线仓库/U_YarnInfoInPut.dfm
index adfd4e9..c5eb685 100644
--- a/B02基础纱线仓库/U_YarnInfoInPut.dfm
+++ b/B02基础纱线仓库/U_YarnInfoInPut.dfm
@@ -77,7 +77,6 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
ParentCtl3D = False
ParentFont = False
TabOrder = 1
- ExplicitTop = 36
object Label2: TLabel
Left = 16
Top = 159
diff --git a/B02基础纱线仓库/U_YarnInfoInPut.pas b/B02基础纱线仓库/U_YarnInfoInPut.pas
index ef38870..d837b98 100644
--- a/B02基础纱线仓库/U_YarnInfoInPut.pas
+++ b/B02基础纱线仓库/U_YarnInfoInPut.pas
@@ -339,6 +339,12 @@ begin
Exit;
end;
+ if Trim(YarnFactor.Text) = '' then
+ begin
+ Application.MessageBox('ɴϵΪ!', 'ʾ', 0);
+ Exit;
+ end;
+
if Trim(Denier.Text) <> '' then
begin
if StrToFloatdef(Denier.Text, 0) = 0 then
diff --git a/B02基础纱线仓库/U_YarnInfoList.pas b/B02基础纱线仓库/U_YarnInfoList.pas
index 82c8b7b..0a72902 100644
--- a/B02基础纱线仓库/U_YarnInfoList.pas
+++ b/B02基础纱线仓库/U_YarnInfoList.pas
@@ -325,6 +325,7 @@ begin
with frmYarnInfoInPut do
begin
FBYIID := '';
+ YarnFactor.Text := '0.059';
FSTKName := self.FSTKName;
if ShowModal = 1 then
begin
diff --git a/B03基础物料仓库/ProductStk.identcache b/B03基础物料仓库/ProductStk.identcache
index 2d93836..95f861c 100644
Binary files a/B03基础物料仓库/ProductStk.identcache and b/B03基础物料仓库/ProductStk.identcache differ
diff --git a/B04采购计划管理/PurchasePlan.dproj.local b/B04采购计划管理/PurchasePlan.dproj.local
index c5b916c..6e0aa25 100644
--- a/B04采购计划管理/PurchasePlan.dproj.local
+++ b/B04采购计划管理/PurchasePlan.dproj.local
@@ -1,61 +1,61 @@
- 1899/12/30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
- 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
- 1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
- 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
- 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
- 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
- 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
- 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas
- 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
- 1899/12/30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas
- 1899/12/30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
- 1899/12/30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
- 1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm
- 1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas
- 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
- 1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas
- 1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas
- 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
- 1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm
+ 1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas
+ 1899/12/30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas=
+ 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
+ 1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm
+ 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
+ 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
+ 1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas
+ 1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas
+ 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
+ 1899/12/30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas
+ 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
+ 1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas
+ 1899/12/30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas
+ 1899/12/30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
+ 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899/12/30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899/12/30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899/12/30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas
+ 1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm
+ 1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm
+ 1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas
+ 1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
+ 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas
- 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899/12/30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas
- 1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas
- 1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj
- 1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas
1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
- 1899/12/30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas
+ 1899/12/30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas
+ 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
1899/12/30 00:00:00.000.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
+ 1899/12/30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas
1899/12/30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
+ 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas
- 1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm
- 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 1899/12/30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas
- 1899/12/30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas
- 1899/12/30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas=
- 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
- 1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas
- 1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas
+ 1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
1899/12/30 00:00:00.000.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas
- 1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas
+ 1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj
+ 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
+ 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
+ 1899/12/30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
+ 1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas
+ 1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm
+ 1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas
+ 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
diff --git a/B04采购计划管理/U_YarnPurchasePlanList.dfm b/B04采购计划管理/U_YarnPurchasePlanList.dfm
index d0dba30..a1bdd67 100644
--- a/B04采购计划管理/U_YarnPurchasePlanList.dfm
+++ b/B04采购计划管理/U_YarnPurchasePlanList.dfm
@@ -7,6 +7,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
+ ExplicitLeft = -513
ExplicitWidth = 1380
ExplicitHeight = 774
PixelsPerInch = 96
@@ -711,6 +712,13 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Sorting = False
Width = 90
end
+ object Tv2TaxRate: TcxGridDBColumn
+ Caption = #31246#29575
+ DataBinding.FieldName = 'TaxRate'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
diff --git a/B04采购计划管理/U_YarnPurchasePlanList.pas b/B04采购计划管理/U_YarnPurchasePlanList.pas
index 712d276..f2e8499 100644
--- a/B04采购计划管理/U_YarnPurchasePlanList.pas
+++ b/B04采购计划管理/U_YarnPurchasePlanList.pas
@@ -116,6 +116,7 @@ type
d: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
+ Tv2TaxRate: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
diff --git a/B04采购计划管理/U_YarnPurchasePlanPut.dfm b/B04采购计划管理/U_YarnPurchasePlanPut.dfm
index dba93af..ba9b940 100644
--- a/B04采购计划管理/U_YarnPurchasePlanPut.dfm
+++ b/B04采购计划管理/U_YarnPurchasePlanPut.dfm
@@ -483,13 +483,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Caption = #23384#25918#21333#20301#65306
Visible = False
end
- object Label2: TLabel
- Left = 34
- Top = 95
- Width = 78
- Height = 21
- Caption = #31246' '#29575#65306
- end
object Label3: TLabel
Left = 1223
Top = 56
@@ -634,14 +627,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
OnDblClick = BuyNameDblClick
Width = 200
end
- object ShuiLv: TcxTextEdit
- Tag = 2
- Left = 119
- Top = 91
- Properties.OnEditValueChanged = ShuiLvPropertiesEditValueChanged
- TabOrder = 8
- Width = 200
- end
end
object cxGrid2: TcxGrid [4]
Left = 1479
diff --git a/B04采购计划管理/U_YarnPurchasePlanPut.pas b/B04采购计划管理/U_YarnPurchasePlanPut.pas
index 0334551..5f5744a 100644
--- a/B04采购计划管理/U_YarnPurchasePlanPut.pas
+++ b/B04采购计划管理/U_YarnPurchasePlanPut.pas
@@ -84,8 +84,6 @@ type
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
- Label2: TLabel;
- ShuiLv: TcxTextEdit;
ToolButton4: TToolButton;
Tv1Column4: TcxGridDBColumn;
ToolButton5: TToolButton;
@@ -122,7 +120,7 @@ type
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure StkNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
- procedure ShuiLvPropertiesEditValueChanged(Sender: TObject);
+// procedure ShuiLvPropertiesEditValueChanged(Sender: TObject);
procedure IsTaxPropertiesChange(Sender: TObject);
procedure Tv1Column12PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton4Click(Sender: TObject);
@@ -136,7 +134,7 @@ type
FLeft, FTop: Integer;
fuserName, Fstatus: string;
procedure JSMoney();
- procedure JSMoney2();
+// procedure JSMoney2();
procedure InitData();
function TestData(): Boolean;
function SaveData(): Boolean;
@@ -165,51 +163,51 @@ uses
{$R *.dfm}
-procedure TfrmYarnPurchasePlanPut.JSMoney2();
-var
- FPieceKG, FPiece, FQty, FPrice, FAmount, FPrice2, FAmount2, FSL: Double; //ۣ
-begin
- if Order_Sub.IsEmpty then
- exit;
- with Order_Sub do
- begin
- DisableControls;
- first;
- while not eof do
- begin
- FPiece := Fieldbyname('Piece').AsFloat;
-// FPieceKG := Fieldbyname('PieceKG').AsFloat;
- FPrice := Fieldbyname('Price').AsFloat; //˰
- FSL := StrToFloatdef(ShuiLv.text, 0);
- with Order_Sub do
- begin
- FQty := Fieldbyname('Qty').AsFloat;
-
- FAmount := RoundFloat(FQty * FPrice, 2); //˰
- FAmount2 := RoundFloat(FQty * FPrice2 * FSL, 2); //˰
-
-
- with Order_Sub do
- begin
- Edit;
- FieldByName('PieceKG').Value := FPieceKG;
- FieldByName('Piece').Value := FPiece;
- FieldByName('Qty').Value := FQty;
-
- FieldByName('Price').Value := FPrice;
-
- FieldByName('Amount').Value := FAmount;
- FieldByName('Amount2').Value := FAmount2;
- Post;
- end;
- end;
-
- next;
- end;
- First;
- EnableControls;
- end;
-end;
+//procedure TfrmYarnPurchasePlanPut.JSMoney2();
+//var
+// FPieceKG, FPiece, FQty, FPrice, FAmount, FPrice2, FAmount2, FSL: Double; //ۣ
+//begin
+// if Order_Sub.IsEmpty then
+// exit;
+// with Order_Sub do
+// begin
+// DisableControls;
+// first;
+// while not eof do
+// begin
+// FPiece := Fieldbyname('Piece').AsFloat;
+//// FPieceKG := Fieldbyname('PieceKG').AsFloat;
+// FPrice := Fieldbyname('Price').AsFloat; //˰
+// FSL := StrToFloatdef(ShuiLv.text, 0);
+// with Order_Sub do
+// begin
+// FQty := Fieldbyname('Qty').AsFloat;
+//
+// FAmount := RoundFloat(FQty * FPrice, 2); //˰
+// FAmount2 := RoundFloat(FQty * FPrice2 * FSL, 2); //˰
+//
+//
+// with Order_Sub do
+// begin
+// Edit;
+// FieldByName('PieceKG').Value := FPieceKG;
+// FieldByName('Piece').Value := FPiece;
+// FieldByName('Qty').Value := FQty;
+//
+// FieldByName('Price').Value := FPrice;
+//
+// FieldByName('Amount').Value := FAmount;
+// FieldByName('Amount2').Value := FAmount2;
+// Post;
+// end;
+// end;
+//
+// next;
+// end;
+// First;
+// EnableControls;
+// end;
+//end;
procedure TfrmYarnPurchasePlanPut.SellnameClick(Sender: TObject);
begin
@@ -230,7 +228,7 @@ begin
if Trim(frmCompanySel.CDS_1.fieldbyname('Shuilv').AsString) <> '' then
begin
- self.Shuilv.text := Trim(frmCompanySel.CDS_1.fieldbyname('Shuilv').AsString);
+// self.Shuilv.text := Trim(frmCompanySel.CDS_1.fieldbyname('Shuilv').AsString);
end;
end;
@@ -322,10 +320,10 @@ begin
end;
end;
-procedure TfrmYarnPurchasePlanPut.ShuiLvPropertiesEditValueChanged(Sender: TObject);
-begin
- JSMoney2();
-end;
+//procedure TfrmYarnPurchasePlanPut.ShuiLvPropertiesEditValueChanged(Sender: TObject);
+//begin
+// JSMoney2();
+//end;
procedure TfrmYarnPurchasePlanPut.StkNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
@@ -444,7 +442,7 @@ begin
PurDate.Date := SGetServerDateTime(ADOTemp);
// DlyDate.Date := PurDate.Date;
PurNo.Text := 'Զ';
- Shuilv.text := '0.96';
+// Shuilv.text := '0.96';
end;
if PState = '' then
@@ -479,7 +477,8 @@ begin
// if IsTax.text = '' then
// begin
- ShuiLv.text := FloatToStr(FShuilv);
+// ShuiLv.text := FloatToStr(FShuilv);
+ Order_Sub.FieldByName('TaxRate').AsString := FloatToStr(FShuilv);
// end
// else
// begin
diff --git a/E01梭织生产计划/TatPlan.dpr b/E01梭织生产计划/TatPlan.dpr
index bb54824..a6c5da0 100644
--- a/E01梭织生产计划/TatPlan.dpr
+++ b/E01梭织生产计划/TatPlan.dpr
@@ -46,7 +46,8 @@ uses
U_TatPlanSel in '..\E00֯ͨô\U_TatPlanSel.pas' {frmTatPlanSel},
U_PictureUpload in '..\A00ͨô\U_PictureUpload.pas' {frmPictureUpload},
U_GKManageSel in '..\A02Ʒ\U_GKManageSel.pas' {frmGKManageSel},
- U_GKInput in 'U_GKInput.pas' {frmGKInput};
+ U_GKInput in 'U_GKInput.pas' {frmGKInput},
+ U_YarnStkSel in 'U_YarnStkSel.pas' {frmYarnStkSel};
{$R *.res}
diff --git a/E01梭织生产计划/TatPlan.dproj b/E01梭织生产计划/TatPlan.dproj
index 9dcf41b..e475e0e 100644
--- a/E01梭织生产计划/TatPlan.dproj
+++ b/E01梭织生产计划/TatPlan.dproj
@@ -218,6 +218,10 @@
dfm
+
+
+ dfm
+
Cfg_2
Base
diff --git a/E01梭织生产计划/TatPlan.dproj.local b/E01梭织生产计划/TatPlan.dproj.local
index 0ae2453..ad13894 100644
--- a/E01梭织生产计划/TatPlan.dproj.local
+++ b/E01梭织生产计划/TatPlan.dproj.local
@@ -1,83 +1,84 @@
- 1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas
1899/12/30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas
- 1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas
+ 1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
- 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm
+ 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
+ 1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm
+ 1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas
1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
- 1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm
- 1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas
- 1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm
- 1899/12/30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=
- 1899/12/30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=
+ 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas
+ 1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
+ 1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm
1899/12/30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
- 1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
- 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
- 1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas
- 1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm
- 1899/12/30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas
+ 1899/12/30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=
+ 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas
- 1899/12/30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
- 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas
+ 1899/12/30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas
+ 1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas
+ 1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas
+ 1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas
1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
- 1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm
- 1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm
- 1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm
+ 1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas
+ 1899/12/30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
+ 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas
+ 1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas
+ 1899/12/30 00:00:00.000.613,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas
+ 1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas
1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
1899/12/30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas
- 1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas
- 1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj
- 1899/12/30 00:00:00.000.613,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas
- 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
- 1899/12/30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas
1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
- 1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas
- 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
+ 1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas
+ 1899/12/30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas
+ 1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm
+ 1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas
1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas
- 1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas
1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas
+ 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm
+ 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas
+ 1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm
1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
1899/12/30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas
- 1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas
1899/12/30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas
- 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899/12/30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas
1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
1899/12/30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
- 1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm
- 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas
- 1899/12/30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas
+ 1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm
1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
- 1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas
- 1899/12/30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas
+ 1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm
+ 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
+ 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899/12/30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas
1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas
- 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas
- 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm
- 1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas
+ 1899/12/30 00:00:00.000.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas
+ 1899/12/30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas
1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
+ 1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas
+ 1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas
+ 1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm
1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas
- 1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm
- 1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.dfm
- 1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
+ 1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm
+ 1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.dfm
+ 1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas
1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas
1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas
- 1899/12/30 00:00:00.000.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas
+ 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm
1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 2025/10/13 10:49:44.000.724,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_YarnStkSel.pas
@@ -163,5 +164,7 @@
+
+
diff --git a/E01梭织生产计划/TatPlan.identcache b/E01梭织生产计划/TatPlan.identcache
index a3d1500..41cbd31 100644
Binary files a/E01梭织生产计划/TatPlan.identcache and b/E01梭织生产计划/TatPlan.identcache differ
diff --git a/E01梭织生产计划/U_GetDllForm.pas b/E01梭织生产计划/U_GetDllForm.pas
index 4b2cfe3..afb170b 100644
--- a/E01梭织生产计划/U_GetDllForm.pas
+++ b/E01梭织生产计划/U_GetDllForm.pas
@@ -140,7 +140,7 @@ begin
end;
end;
- 111: //ƻ
+ 111: //ƻ ֯쵥
begin
with TfrmTatPlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
diff --git a/E01梭织生产计划/U_TatPlanInPut.dfm b/E01梭织生产计划/U_TatPlanInPut.dfm
index 48662b5..ad78ccb 100644
--- a/E01梭织生产计划/U_TatPlanInPut.dfm
+++ b/E01梭织生产计划/U_TatPlanInPut.dfm
@@ -6,14 +6,14 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
ClientWidth = 1540
Color = clWhite
Font.Charset = GB2312_CHARSET
- Font.Height = -16
+ Font.Height = -13
Position = poScreenCenter
WindowState = wsMaximized
- ExplicitLeft = -689
+ ExplicitLeft = -674
ExplicitWidth = 1556
ExplicitHeight = 884
PixelsPerInch = 96
- TextHeight = 21
+ TextHeight = 19
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
@@ -73,60 +73,61 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Ctl3D = False
ParentCtl3D = False
TabOrder = 1
+ ExplicitTop = 24
object Label2: TLabel
Left = 922
Top = 5
- Width = 64
- Height = 21
+ Width = 52
+ Height = 19
Caption = #19979#21333#26085#26399
end
object Label5: TLabel
Left = 689
Top = 11
- Width = 64
- Height = 21
+ Width = 52
+ Height = 19
Caption = #20132#36135#26085#26399
end
object Label8: TLabel
Left = 689
Top = 45
- Width = 32
- Height = 21
+ Width = 26
+ Height = 19
Caption = #21305#25968
end
object Label13: TLabel
Left = 922
Top = 42
- Width = 58
- Height = 21
+ Width = 47
+ Height = 19
Caption = #24635' '#25968' '#37327
end
object Label47: TLabel
Left = 336
Top = 45
- Width = 32
- Height = 21
+ Width = 26
+ Height = 19
Caption = #23458#25143
end
object lbl2: TLabel
Left = 336
Top = 9
- Width = 64
- Height = 21
+ Width = 52
+ Height = 19
Caption = #29983#20135#31867#22411
end
object Label7: TLabel
Left = 9
Top = 9
- Width = 80
- Height = 21
+ Width = 65
+ Height = 19
Caption = #32455#36896#21333#21495#65306
end
object Label35: TLabel
Left = 9
Top = 44
- Width = 64
- Height = 21
+ Width = 52
+ Height = 19
Caption = #21512#21516#21495#65306
end
object Label3: TLabel
@@ -158,8 +159,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Label55: TLabel
Left = 11
Top = 364
- Width = 48
- Height = 21
+ Width = 39
+ Height = 19
Caption = #31359#32508#27861
end
object Label9: TLabel
@@ -204,8 +205,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Label15: TLabel
Left = 336
Top = 157
- Width = 32
- Height = 21
+ Width = 26
+ Height = 19
Caption = #20811#37325
end
object Label16: TLabel
@@ -250,43 +251,43 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Label18: TLabel
Left = 922
Top = 119
- Width = 32
- Height = 21
+ Width = 26
+ Height = 19
Caption = #33394#21495
end
object Label20: TLabel
Left = 689
Top = 119
- Width = 32
- Height = 21
+ Width = 26
+ Height = 19
Caption = #39068#33394
end
object Label21: TLabel
Left = 11
Top = 119
- Width = 32
- Height = 21
+ Width = 26
+ Height = 19
Caption = #33457#22411
end
object Label22: TLabel
Left = 336
Top = 119
- Width = 32
- Height = 21
+ Width = 26
+ Height = 19
Caption = #27454#21495
end
object Label23: TLabel
Left = 922
Top = 81
- Width = 32
- Height = 21
+ Width = 26
+ Height = 19
Caption = #35268#26684
end
object Label24: TLabel
Left = 689
Top = 82
- Width = 32
- Height = 21
+ Width = 26
+ Height = 19
Caption = #25104#20998
end
object Label25: TLabel
@@ -331,15 +332,15 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Label30: TLabel
Left = 922
Top = 233
- Width = 48
- Height = 21
+ Width = 39
+ Height = 19
Caption = #31576#40831#25968
end
object Label31: TLabel
Left = 11
Top = 269
- Width = 48
- Height = 21
+ Width = 39
+ Height = 19
Caption = #36793#32433#25968
end
object Label32: TLabel
@@ -358,22 +359,22 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Label33: TLabel
Left = 689
Top = 269
- Width = 64
- Height = 21
- Caption = #36793#31359#20837#27861
+ Width = 65
+ Height = 19
+ Caption = #36793#32433#24635#26681#25968
end
object Label34: TLabel
Left = 11
Top = 307
- Width = 48
- Height = 21
+ Width = 39
+ Height = 19
Caption = #32508#39029#25968
end
object Label36: TLabel
Left = 336
Top = 307
- Width = 48
- Height = 21
+ Width = 39
+ Height = 19
Caption = #32428#29273#23494
end
object Label37: TLabel
@@ -392,50 +393,168 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Label38: TLabel
Left = 922
Top = 306
- Width = 64
- Height = 21
+ Width = 52
+ Height = 19
Caption = #33853#24067#23450#38271
end
object Label39: TLabel
Left = 1146
Top = 121
- Width = 32
- Height = 21
+ Width = 26
+ Height = 19
Caption = #26426#22411
end
- object Label1: TLabel
- Left = 11
- Top = 457
- Width = 615
- Height = 21
- Caption = #27880' '#32428#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#32428#23494'*'#65288#31576#24133'+'#25439#32791#65289'*0.059 / '#25903#25968' *'#26681#25968'/'#24490#29615#26681#25968'* 1.08'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = #24494#36719#38597#40657
- Font.Style = []
- ParentFont = False
- end
- object Label29: TLabel
- Left = 11
- Top = 430
- Width = 392
- Height = 21
- Caption = #27880' '#32463#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#20840#24133#26681#25968'*0.059/'#25903#25968'*1.08'
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlue
- Font.Height = -16
- Font.Name = #24494#36719#38597#40657
- Font.Style = []
- ParentFont = False
- end
object Label10: TLabel
Left = 1146
Top = 7
- Width = 48
- Height = 21
+ Width = 39
+ Height = 19
Caption = #32455#32553#29575
end
+ object Label14: TLabel
+ Left = 23
+ Top = 430
+ Width = 560
+ Height = 21
+ Caption = #27880' '#32463#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#65288'1+'#32455#32553'%'#65289'*'#20840#24133#26681#25968' * '#32433#32447#31995#25968' / '#25903#25968#65288'S'#65289
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlue
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label19: TLabel
+ Left = 23
+ Top = 457
+ Width = 730
+ Height = 21
+ Caption = #27880' '#32428#32433#65306#30334#31859#32463#38271#29992#37327'KG = '#32428#23494' *'#65288#31576#24133' "+ 4.2'#24223#36793#25439#32791' "'#65289'* '#32433#32447#31995#25968' / '#25903#25968#65288'S'#65289' *'#26681#25968'/'#24490#29615#26681#25968
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBlue
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label1: TLabel
+ Left = 1144
+ Top = 269
+ Width = 91
+ Height = 19
+ Caption = #36793#32433#21333#36793#31576#40831#25968
+ end
+ object Label29: TLabel
+ Left = 1144
+ Top = 230
+ Width = 52
+ Height = 19
+ Caption = #36793#31359#20837#27861
+ end
+ object Label40: TLabel
+ Left = 1366
+ Top = 230
+ Width = 26
+ Height = 19
+ Caption = #31576#40831
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clBtnShadow
+ Font.Height = -13
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label42: TLabel
+ Left = 1366
+ Top = 269
+ Width = 45
+ Height = 19
+ Caption = #26681'/'#31576#40831
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clAppWorkSpace
+ Font.Height = -13
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label41: TLabel
+ Left = 1093
+ Top = 229
+ Width = 26
+ Height = 19
+ Caption = #31576#40831
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clAppWorkSpace
+ Font.Height = -13
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label43: TLabel
+ Left = 268
+ Top = 267
+ Width = 13
+ Height = 19
+ Caption = #26681
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clAppWorkSpace
+ Font.Height = -13
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label44: TLabel
+ Left = 601
+ Top = 267
+ Width = 45
+ Height = 19
+ Caption = #26681'/'#31576#40831
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clAppWorkSpace
+ Font.Height = -13
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label45: TLabel
+ Left = 600
+ Top = 229
+ Width = 53
+ Height = 19
+ Caption = #40831'/2'#33521#23544
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clAppWorkSpace
+ Font.Height = -13
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label46: TLabel
+ Left = 1074
+ Top = 158
+ Width = 45
+ Height = 19
+ Caption = #26681'/'#33521#23544
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clAppWorkSpace
+ Font.Height = -13
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label48: TLabel
+ Left = 867
+ Top = 156
+ Width = 45
+ Height = 19
+ Caption = #26681'/'#33521#23544
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clAppWorkSpace
+ Font.Height = -13
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
object OrdPiece: TcxTextEdit
Tag = 2
Left = 766
@@ -463,8 +582,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
object ConMId: TcxTextEdit
Tag = 2
- Left = 1257
- Top = 252
+ Left = 1431
+ Top = 346
Enabled = False
TabOrder = 3
Visible = False
@@ -473,8 +592,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
object ConSId: TcxTextEdit
Tag = 2
- Left = 1329
- Top = 193
+ Left = 1465
+ Top = 300
Enabled = False
TabOrder = 4
Visible = False
@@ -581,7 +700,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Top = 228
ParentColor = True
TabOrder = 14
- Width = 150
+ Width = 149
end
object C_GramWeight: TcxTextEdit
Tag = 2
@@ -596,9 +715,10 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 986
Top = 153
ParentColor = True
+ Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
TabOrder = 16
OnExit = C_ReedWidthExit
- Width = 150
+ Width = 87
end
object WB_Code: TcxButtonEdit
Tag = 2
@@ -690,7 +810,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Top = 153
ParentColor = True
TabOrder = 26
- Width = 150
+ Width = 95
end
object LPDW: TcxComboBox
Tag = 2
@@ -715,6 +835,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 766
Top = 228
ParentColor = True
+ Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
TabOrder = 29
OnExit = C_ReedWidthExit
Width = 76
@@ -725,7 +846,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Top = 229
ParentColor = True
TabOrder = 30
- Width = 150
+ Width = 103
end
object BSQTY: TcxTextEdit
Tag = 2
@@ -823,11 +944,28 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object ZS: TcxTextEdit
Left = 1210
Top = 5
- Properties.OnChange = OrdQtyPropertiesChange
+ Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
TabOrder = 41
OnKeyPress = ConNoKeyPress
Width = 150
end
+ object WB_YarnKCQty: TcxTextEdit
+ Tag = 2
+ Left = 1265
+ Top = 263
+ ParentColor = True
+ TabOrder = 42
+ Text = 'WB_YarnKCQty'
+ Width = 95
+ end
+ object BCRFQty: TcxTextEdit
+ Tag = 2
+ Left = 1265
+ Top = 230
+ ParentColor = True
+ TabOrder = 43
+ Width = 95
+ end
end
object cxPageControl3: TcxPageControl [2]
Left = 0
@@ -836,12 +974,12 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Height = 316
Align = alClient
TabOrder = 2
- Properties.ActivePage = cxTabSheet1
+ Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
ClientRectBottom = 316
ClientRectRight = 1540
- ClientRectTop = 28
+ ClientRectTop = 26
object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512
ImageIndex = 0
@@ -849,7 +987,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 931
Top = 0
Width = 609
- Height = 288
+ Height = 290
Align = alClient
Caption = #32463#25490#21015
Font.Charset = GB2312_CHARSET
@@ -864,7 +1002,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 2
Top = 31
Width = 605
- Height = 255
+ Height = 257
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@@ -879,14 +1017,14 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 0
Top = 0
Width = 931
- Height = 288
+ Height = 290
Align = alLeft
TabOrder = 1
object cxPageControl2: TcxPageControl
Left = 1
Top = 1
Width = 929
- Height = 286
+ Height = 288
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@@ -901,7 +1039,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
- ClientRectBottom = 286
+ ClientRectBottom = 288
ClientRectRight = 929
ClientRectTop = 0
end
@@ -909,7 +1047,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 1
Top = 1
Width = 929
- Height = 286
+ Height = 288
Align = alClient
TabOrder = 1
object TV1: TcxGridDBTableView
@@ -1003,7 +1141,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
DataBinding.FieldName = 'YarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
- Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
+ Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
@@ -1012,7 +1150,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
DataBinding.FieldName = 'CycleYarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
- Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
+ Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
@@ -1025,6 +1163,15 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
HeaderAlignmentHorz = taCenter
Width = 80
end
+ object TV1YarnFactor: TcxGridDBColumn
+ Caption = #32433#32447#31995#25968
+ DataBinding.FieldName = 'YarnFactor'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
object TV1Column8: TcxGridDBColumn
Caption = #30334#31859#32463#38271#37325#37327'KG'
DataBinding.FieldName = 'MeterQty'
@@ -1032,6 +1179,20 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
HeaderAlignmentHorz = taCenter
Width = 163
end
+ object TV1BatchNO: TcxGridDBColumn
+ Caption = #32433#32447#25209#21495
+ DataBinding.FieldName = 'BatchNO'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = TV1BatchNOPropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
object TV1Column11: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'NOTE'
@@ -1049,14 +1210,11 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet2: TcxTabSheet
Caption = #32428#19997#32452#21512
ImageIndex = 1
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
object GroupBox2: TGroupBox
Left = 863
Top = 0
Width = 677
- Height = 288
+ Height = 290
Align = alClient
Caption = #32428#25490#21015
Font.Charset = GB2312_CHARSET
@@ -1071,7 +1229,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 2
Top = 31
Width = 673
- Height = 255
+ Height = 257
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@@ -1086,14 +1244,14 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 0
Top = 0
Width = 863
- Height = 288
+ Height = 290
Align = alLeft
TabOrder = 1
object cxPageControl1: TcxPageControl
Left = 1
Top = 1
Width = 861
- Height = 286
+ Height = 288
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@@ -1108,7 +1266,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
- ClientRectBottom = 286
+ ClientRectBottom = 288
ClientRectRight = 861
ClientRectTop = 0
end
@@ -1116,7 +1274,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 1
Top = 1
Width = 861
- Height = 286
+ Height = 288
Align = alClient
TabOrder = 1
object Tv2: TcxGridDBTableView
@@ -1209,6 +1367,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
DataBinding.FieldName = 'YarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
+ Properties.ReadOnly = False
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
@@ -1222,12 +1381,34 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
HeaderAlignmentHorz = taCenter
Width = 80
end
+ object Tv2YarnFactor: TcxGridDBColumn
+ Caption = #32433#32447#31995#25968
+ DataBinding.FieldName = 'YarnFactor'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 90
+ end
object Tv2Column11: TcxGridDBColumn
Caption = #25439#32791
DataBinding.FieldName = 'Y_Loss'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
- Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv2BatchNO: TcxGridDBColumn
+ Caption = #32433#32447#25209#21495
+ DataBinding.FieldName = 'BatchNO'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = Tv2BatchNOPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 80
end
@@ -1255,9 +1436,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet3: TcxTabSheet
Caption = #36215#32508#27861
ImageIndex = 3
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
object Panel5: TPanel
Left = 0
Top = 0
@@ -1308,16 +1486,13 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Properties.ShowFocusRect = False
Style.BorderStyle = ebsSingle
TabOrder = 1
- Height = 247
+ Height = 249
Width = 1540
end
end
object cxTabSheet4: TcxTabSheet
Caption = #31359#32508#27861
ImageIndex = 3
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
object Panel4: TPanel
Left = 0
Top = 0
@@ -1368,22 +1543,19 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Properties.ShowFocusRect = False
Style.BorderStyle = ebsSingle
TabOrder = 1
- Height = 247
+ Height = 249
Width = 1540
end
end
object cxTabSheet5: TcxTabSheet
Caption = #31359#31576#27861
ImageIndex = 3
- ExplicitTop = 0
- ExplicitWidth = 0
- ExplicitHeight = 0
object CKF: TMemo
Tag = 2
Left = 0
Top = 0
Width = 1540
- Height = 288
+ Height = 290
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
diff --git a/E01梭织生产计划/U_TatPlanInPut.pas b/E01梭织生产计划/U_TatPlanInPut.pas
index 19565e1..763abbc 100644
--- a/E01梭织生产计划/U_TatPlanInPut.pas
+++ b/E01梭织生产计划/U_TatPlanInPut.pas
@@ -163,8 +163,6 @@ type
Tv2Column8: TcxGridDBColumn;
Tv2Column12: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
- Label1: TLabel;
- Label29: TLabel;
Panel5: TPanel;
Label28: TLabel;
attname2: TcxButtonEdit;
@@ -180,6 +178,24 @@ type
C_CODE: TcxButtonEdit;
Label10: TLabel;
ZS: TcxTextEdit;
+ TV1BatchNO: TcxGridDBColumn;
+ Tv2BatchNO: TcxGridDBColumn;
+ Label14: TLabel;
+ Label19: TLabel;
+ TV1YarnFactor: TcxGridDBColumn;
+ Tv2YarnFactor: TcxGridDBColumn;
+ Label1: TLabel;
+ Label29: TLabel;
+ Label40: TLabel;
+ Label42: TLabel;
+ BCRFQty: TcxTextEdit;
+ Label41: TLabel;
+ Label43: TLabel;
+ Label44: TLabel;
+ Label45: TLabel;
+ Label46: TLabel;
+ Label48: TLabel;
+ WB_YarnKCQty: TcxTextEdit;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@@ -219,6 +235,8 @@ type
procedure ATTNAME1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure attname2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure C_CODEDblClick(Sender: TObject);
+ procedure TV1BatchNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+ procedure Tv2BatchNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
FXS, FGridFlag: Integer;
@@ -249,7 +267,8 @@ implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_TatClothInfoSel, U_CompanySel, U_YarnInfoSel,
- U_TradeSalesContractSel, U_WBSpecSel, U_TatGYSel, U_PictureUpload;
+ U_TradeSalesContractSel, U_WBSpecSel, U_TatGYSel, U_PictureUpload,
+ U_YarnStkSel;
{$R *.dfm}
procedure TfrmTatPlanInPut.InitImage();
@@ -459,30 +478,6 @@ var
PBNO, PBFlag: string;
begin
- with ADOQueryMain do
- begin
- Close;
- SQL.Clear;
- sql.Add('select * from Tat_Plan_Main A where A.MainId=''' + Trim(FMainId) + '''');
- Open;
- end;
- SCSHData(ADOQueryMain, ScrollBox1, 0);
-
- attname1.Text := Trim(ADOQueryMain.FieldByName('attname1').AsString);
- attname2.Text := Trim(ADOQueryMain.FieldByName('attname2').AsString);
- CKF.Text := Trim(ADOQueryMain.FieldByName('CKF').AsString);
-
- with ADOQueryMain do
- begin
- Close;
- SQL.Clear;
- sql.Add('select * from Tat_Plan_Sub A where A.MainId=''' + Trim(FMainId) + '''');
- Open;
- end;
- SCSHData(ADOQueryMain, ScrollBox1, 2);
- Y_Note_PLJ.Text := ADOQueryMain.FieldByName('Y_Note_PLJ').AsString;
-
- Y_Note_PLW.Text := ADOQueryMain.FieldByName('Y_Note_PLW').AsString;
with ADOQueryMain do
begin
Close;
@@ -504,6 +499,33 @@ begin
SCreateCDS(ADOQueryMain, CDS_2);
SInitCDSData(ADOQueryMain, CDS_2);
+ with ADOQueryMain do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Tat_Plan_Main A where A.MainId=''' + Trim(FMainId) + '''');
+ Open;
+ end;
+ SCSHData(ADOQueryMain, ScrollBox1, 0);
+
+ attname1.Text := Trim(ADOQueryMain.FieldByName('attname1').AsString);
+ attname2.Text := Trim(ADOQueryMain.FieldByName('attname2').AsString);
+ CKF.Text := Trim(ADOQueryMain.FieldByName('CKF').AsString);
+
+ with ADOQueryMain do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Tat_Plan_Sub A where A.MainId=''' + Trim(FMainId) + '''');
+ Open;
+// ShowMessage(sql.Text) ;
+ end;
+ SCSHData(ADOQueryMain, ScrollBox1, 2);
+ Y_Note_PLJ.Text := ADOQueryMain.FieldByName('Y_Note_PLJ').AsString;
+
+ Y_Note_PLW.Text := ADOQueryMain.FieldByName('Y_Note_PLW').AsString;
+
+
/////////////////ˢ۹յϢ/////////////////////////
with ADOQueryMain do
begin
@@ -1073,6 +1095,32 @@ begin
CDS_QZ.EnableControls;
end;
+procedure TfrmTatPlanInPut.TV1BatchNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmYarnStkSel := TfrmYarnStkSel.Create(Application);
+ with frmYarnStkSel do
+ begin
+ FstkName := 'ɴ';
+ if ShowModal = 1 then
+ begin
+ frmYarnStkSel.CDS_Main.DisableControls;
+
+ with Self.CDS_1 do
+ begin
+ edit;
+ FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
+ end;
+
+ frmYarnStkSel.CDS_Main.EnableControls;
+ end;
+ end;
+ finally
+ frmYarnStkSel.Free;
+ end;
+
+end;
+
procedure TfrmTatPlanInPut.TV1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
var
AColumn: TcxGridColumn;
@@ -1104,46 +1152,67 @@ end;
procedure TfrmTatPlanInPut.TV1Column14PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
- ZS, ZGS: double;
+ mZ_Number, ZGS: double;
+ mYarnFactor, mZS: double;
begin
-
- mvalue := TcxTextEdit(Sender).EditingText;
- FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
-
- with CDS_1 do
+ if not CDS_1.IsEmpty then
begin
- Edit;
- FieldByName(FFieldName).Value := mvalue;
- Post;
+ CDS_1.First;
+ while (CDS_1.FieldByName('Y_Code').asString <> '') and (CDS_1.FieldByName('Y_Code').asString <> null) do
+ begin
+// mvalue := TcxTextEdit(Sender).EditingText;
+// FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
- if FieldByName('QFYARNQTY').Value = null then
- begin
- ZGS := 0; //QUANFU
- end
- else
- begin
- ZGS := FieldByName('QFYARNQTY').Value; //ȫ
- end;
+ with CDS_1 do
+ begin
+// Edit;
+// FieldByName(FFieldName).Value := mvalue;
+// Post;
- if FieldByName('Z_Number').Value = null then
- begin
- ZS := 0; //ѭ
- end
- else
- begin
- ZS := FieldByName('Z_Number').Value; //ѭ
+ if FieldByName('QFYARNQTY').Value = null then
+ begin
+ ZGS := 0; //QUANFU
+ end
+ else
+ begin
+ ZGS := FieldByName('QFYARNQTY').Value; //ȫ
+ end;
+
+ if FieldByName('Z_Number').Value = null then
+ begin
+ mZ_Number := 0; //֧
+ end
+ else
+ begin
+ mZ_Number := FieldByName('Z_Number').Value; //֧
+ end;
+
+ if FieldByName('YarnFactor').Value = null then
+ begin
+ mYarnFactor := 0; //ɴϵ
+ end
+ else
+ begin
+ mYarnFactor := FieldByName('YarnFactor').Value; //ɴϵ
+ end;
+
+ mZS := strtofloatdef(ZS.Text, 0);
+
+ end;
+ if mZ_Number <> 0 then
+ begin
+ with CDS_1 do
+ begin
+ Edit;
+ FieldByName('MeterQty').Value := roundfloat((1 + mZS / 100) * ZGS * mYarnFactor / mZ_Number, 2);
+ Post;
+ end;
+ end;
+ CDS_1.next;
end;
end;
- if ZS <> 0 then
- begin
- with CDS_1 do
- begin
- Edit;
- FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2);
- Post;
- end;
- end;
+
end;
procedure TfrmTatPlanInPut.TV1Column1PropertiesEditValueChanged(Sender: TObject);
@@ -1152,67 +1221,93 @@ var
GS, ZGS, MF, DS, WM, TW, SUNHAO: double;
begin
- mvalue := TcxTextEdit(Sender).EditingText;
- FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+// mvalue := TcxTextEdit(Sender).EditingText;
+// FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+//
+// with CDS_1 do
+// begin
+// Edit;
+// FieldByName(FFieldName).Value := mvalue;
+// Post;
+//
+// if FieldByName('YarnQty').Value = null then
+// begin
+// GS := 0; //
+// end
+// else
+// begin
+// GS := FieldByName('YarnQty').Value; //
+// end;
+//
+// if FieldByName('CycleYarnQty').Value = null then
+// begin
+// ZGS := 0; //ѭ
+// end
+// else
+// begin
+// ZGS := FieldByName('CycleYarnQty').Value; //ѭ
+// end;
+//
+// if FieldByName('SH').Value = null then
+// begin
+// SUNHAO := 0; //
+// end
+// else
+// begin
+// SUNHAO := FieldByName('SH').Value; //
+// end;
+//
+// MF := strtofloatdef(C_ReedWidth.text, 0); //ط
+//
+// if FieldByName('TestDenier').Value = null then
+// begin
+// DS := 0; //D
+// end
+// else
+// begin
+// DS := FieldByName('TestDenier').Value; //D
+// end;
+//
+// WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ
+//
+// TW := strtofloatdef(C_YarnQty.text, 0); //ͷ
+// end;
+// if ZGS <> 0 then
+// begin
+// with CDS_1 do
+// begin
+// Edit;
+// FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS * (1 + SUNHAO / 100) / 9000, 2);
+// Post;
+// end;
+// end;
+// JSKZ();
+end;
- with CDS_1 do
- begin
- Edit;
- FieldByName(FFieldName).Value := mvalue;
- Post;
+procedure TfrmTatPlanInPut.Tv2BatchNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+ try
+ frmYarnStkSel := TfrmYarnStkSel.Create(Application);
+ with frmYarnStkSel do
+ begin
+ FstkName := 'ɴ';
+ if ShowModal = 1 then
+ begin
+ frmYarnStkSel.CDS_Main.DisableControls;
- if FieldByName('YarnQty').Value = null then
- begin
- GS := 0; //
- end
- else
- begin
- GS := FieldByName('YarnQty').Value; //
+ with Self.CDS_1 do
+ begin
+ edit;
+ FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
+ end;
+
+ frmYarnStkSel.CDS_Main.EnableControls;
+ end;
end;
-
- if FieldByName('CycleYarnQty').Value = null then
- begin
- ZGS := 0; //ѭ
- end
- else
- begin
- ZGS := FieldByName('CycleYarnQty').Value; //ѭ
- end;
-
- if FieldByName('SH').Value = null then
- begin
- SUNHAO := 0; //
- end
- else
- begin
- SUNHAO := FieldByName('SH').Value; //
- end;
-
- MF := strtofloatdef(C_ReedWidth.text, 0); //ط
-
- if FieldByName('TestDenier').Value = null then
- begin
- DS := 0; //D
- end
- else
- begin
- DS := FieldByName('TestDenier').Value; //D
- end;
-
- WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ
-
- TW := strtofloatdef(C_YarnQty.text, 0); //ͷ
+ finally
+ frmYarnStkSel.Free;
end;
- if ZGS <> 0 then
- begin
- with CDS_1 do
- begin
- Edit;
- FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS * (1 + SUNHAO / 100) / 9000, 2);
- Post;
- end;
- end;
- JSKZ();
+
end;
procedure TfrmTatPlanInPut.Tv2CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
@@ -1249,16 +1344,17 @@ procedure TfrmTatPlanInPut.Tv2Column1PropertiesEditValueChanged(Sender: TObject)
var
mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, fsh: double;
+ mYarnFactor: double;
begin
- mvalue := TcxTextEdit(Sender).EditingText;
- FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
+// mvalue := TcxTextEdit(Sender).EditingText;
+// FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_2 do
begin
- Edit;
- FieldByName(FFieldName).Value := mvalue;
- Post;
+// Edit;
+// FieldByName(FFieldName).Value := mvalue;
+// Post;
if FieldByName('YarnQty').Value = null then
begin
@@ -1299,13 +1395,22 @@ begin
end;
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ
+
+ if FieldByName('YarnFactor').Value = null then
+ begin
+ mYarnFactor := 0; //ɴϵ
+ end
+ else
+ begin
+ mYarnFactor := FieldByName('YarnFactor').Value; //ɴϵ
+ end;
end;
if (ZGS <> 0) and (DS <> 0) then
begin
with CDS_2 do
begin
Edit;
- FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2);
+ FieldByName('MeterQty').Value := roundfloat(WM * (MF + 4.2) * mYarnFactor / DS * GS / ZGS, 2);
Post;
end;
end;
@@ -1472,6 +1577,7 @@ begin
FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value;
FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value;
FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value;
+ FieldByName('YarnFactor').Value := frmYarnInfoSel.CDS_1.fieldbyname('YarnFactor').Value;
Post;
end;
@@ -1747,6 +1853,8 @@ begin
FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value;
FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value;
FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value;
+ FieldByName('YarnFactor').Value := frmYarnInfoSel.CDS_1.fieldbyname('YarnFactor').Value;
+
Post;
end;
@@ -1836,6 +1944,8 @@ begin
FieldByName('FF').Value := ADOQuery1.fieldbyname('FF').Value;
FieldByName('ND').Value := ADOQuery1.fieldbyname('ND').Value;
+
+ FieldByName('YarnFactor').Value := ADOQuery1.fieldbyname('YarnFactor').Value;
Post;
end;
@@ -1925,67 +2035,67 @@ var
mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, fsh: double;
begin
- with CDS_2 do
- begin
- first;
- while not eof do
- begin
- with CDS_2 do
- begin
-
- if FieldByName('YarnQty').Value = null then
- begin
- GS := 0; //
- end
- else
- begin
- GS := FieldByName('YarnQty').Value; //
- end;
-
- if FieldByName('Y_loss').Value = null then
- begin
- fsh := 0; //
- end
- else
- begin
- fsh := FieldByName('Y_loss').Value; //
- end;
-
- if FieldByName('CycleYarnQty').Value = null then
- begin
- ZGS := 0; //ѭ
- end
- else
- begin
- ZGS := FieldByName('CycleYarnQty').Value; //ѭ
- end;
-
- MF := strtofloatdef(C_ReedWidth.text, 0); //ط
-
- if FieldByName('Z_Number').Value = null then
- begin
- DS := 0; //֧
- end
- else
- begin
- DS := FieldByName('Z_Number').Value; //֧
- end;
-
- WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ
- end;
- if (ZGS <> 0) and (DS <> 0) then
- begin
- with CDS_2 do
- begin
- Edit;
- FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2);
- Post;
- end;
- end;
- next;
- end;
-
- end;
+// with CDS_2 do
+// begin
+// first;
+// while not eof do
+// begin
+// with CDS_2 do
+// begin
+//
+// if FieldByName('YarnQty').Value = null then
+// begin
+// GS := 0; //
+// end
+// else
+// begin
+// GS := FieldByName('YarnQty').Value; //
+// end;
+//
+// if FieldByName('Y_loss').Value = null then
+// begin
+// fsh := 0; //
+// end
+// else
+// begin
+// fsh := FieldByName('Y_loss').Value; //
+// end;
+//
+// if FieldByName('CycleYarnQty').Value = null then
+// begin
+// ZGS := 0; //ѭ
+// end
+// else
+// begin
+// ZGS := FieldByName('CycleYarnQty').Value; //ѭ
+// end;
+//
+// MF := strtofloatdef(C_ReedWidth.text, 0); //ط
+//
+// if FieldByName('Z_Number').Value = null then
+// begin
+// DS := 0; //֧
+// end
+// else
+// begin
+// DS := FieldByName('Z_Number').Value; //֧
+// end;
+//
+// WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ
+// end;
+// if (ZGS <> 0) and (DS <> 0) then
+// begin
+// with CDS_2 do
+// begin
+// Edit;
+// FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2);
+// Post;
+// end;
+// end;
+// next;
+// end;
+//
+// end;
end;
procedure TfrmTatPlanInPut.C_YarnQtyPropertiesEditValueChanged(Sender: TObject);
diff --git a/E01梭织生产计划/U_TatPlanJTSCLIST.dfm b/E01梭织生产计划/U_TatPlanJTSCLIST.dfm
index e7aa76e..5209d61 100644
--- a/E01梭织生产计划/U_TatPlanJTSCLIST.dfm
+++ b/E01梭织生产计划/U_TatPlanJTSCLIST.dfm
@@ -77,6 +77,8 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Color = clWhite
ParentBackground = False
TabOrder = 3
+ ExplicitLeft = 1
+ ExplicitTop = 24
object Label5: TLabel
Left = 20
Top = 21
@@ -116,6 +118,7 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
OnChange = cxPageControl1Change
+ ExplicitTop = 127
ClientRectBottom = 515
ClientRectLeft = 1
ClientRectRight = 1539
diff --git a/E01梭织生产计划/U_TatPlanList.dfm b/E01梭织生产计划/U_TatPlanList.dfm
index 286d383..0e6b553 100644
--- a/E01梭织生产计划/U_TatPlanList.dfm
+++ b/E01梭织生产计划/U_TatPlanList.dfm
@@ -658,8 +658,8 @@ inherited frmTatPlanList: TfrmTatPlanList
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink
- Left = 89
- Top = 217
+ Left = 641
+ Top = 65505
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
diff --git a/E01梭织生产计划/U_TatPlanList.pas b/E01梭织生产计划/U_TatPlanList.pas
index 99876ca..d98e0cf 100644
--- a/E01梭织生产计划/U_TatPlanList.pas
+++ b/E01梭织生产计划/U_TatPlanList.pas
@@ -13,22 +13,7 @@ uses
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
cxPC, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils, cxMaskEdit,
cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
-
-
-
-
-
-
-
-
- dxSkinOffice2013White,
-
-
- dxSkinSharpPlus,
-
-
-
- dxSkinWXI, cxImage, cxDBEdit, IdFTP,
+ dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI, cxImage, cxDBEdit, IdFTP,
ShellAPI;
type
@@ -144,7 +129,7 @@ type
{ Private declarations }
public
canshu1, FCheJian: string;
- fStatus : Integer; //0, 1
+ fStatus: Integer; //0, 1
{ Public declarations }
end;
@@ -227,7 +212,6 @@ begin
end;
-
procedure TfrmTatPlanList.TBCloseClick(Sender: TObject);
begin
Close;
@@ -415,6 +399,15 @@ begin
sql.Add('delete Tat_Plan_Sub where SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + '''');
ExecSQL;
end;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('delete Tat_Plan_Sub where SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + '''');
+ ExecSQL;
+ end;
+
with ADOQueryTemp do
begin
Close;
diff --git a/E01梭织生产计划/U_TatPlanMachInput.dfm b/E01梭织生产计划/U_TatPlanMachInput.dfm
index 1152f12..bcdcd8d 100644
--- a/E01梭织生产计划/U_TatPlanMachInput.dfm
+++ b/E01梭织生产计划/U_TatPlanMachInput.dfm
@@ -3,8 +3,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Top = 150
Anchors = []
Caption = #20219#21153#26032#22686
- ClientHeight = 483
- ClientWidth = 1011
+ ClientHeight = 653
+ ClientWidth = 1022
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@@ -19,7 +19,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
object ToolBar1: TToolBar
Left = 0
Top = 0
- Width = 1011
+ Width = 1022
Height = 30
AutoSize = True
ButtonHeight = 30
@@ -32,6 +32,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
ParentColor = False
ShowCaptions = True
TabOrder = 0
+ ExplicitWidth = 1011
object ToolButton1: TToolButton
Left = 0
Top = 0
@@ -60,8 +61,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
object ScrollBox1: TScrollBox
Left = 0
Top = 30
- Width = 1011
- Height = 453
+ Width = 1022
+ Height = 623
Align = alClient
BevelInner = bvNone
BevelOuter = bvNone
@@ -78,8 +79,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Caption = #22383#24067#32534#21495#65306
end
object Label3: TLabel
- Left = 100
- Top = 470
+ Left = 812
+ Top = 67
Width = 48
Height = 21
Caption = #26465#30721#65306
@@ -107,16 +108,16 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Caption = #32455#36896#21333#21495#65306
end
object Label9: TLabel
- Left = 80
- Top = 502
+ Left = 792
+ Top = 99
Width = 72
Height = 21
Caption = 'MainID'#65306
Visible = False
end
object Label10: TLabel
- Left = 89
- Top = 537
+ Left = 802
+ Top = 134
Width = 62
Height = 21
Caption = 'SubID'#65306
@@ -186,8 +187,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Caption = #25972#32463#24037#33402#21517#31216':'
end
object PMID: TcxTextEdit
- Left = 153
- Top = 467
+ Left = 865
+ Top = 64
Enabled = False
ParentFont = False
TabOrder = 0
@@ -220,8 +221,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
end
object MainID: TcxTextEdit
Tag = 2
- Left = 152
- Top = 499
+ Left = 864
+ Top = 96
Enabled = False
ParentFont = False
TabOrder = 3
@@ -230,8 +231,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
end
object SubID: TcxTextEdit
Tag = 2
- Left = 152
- Top = 534
+ Left = 865
+ Top = 131
Enabled = False
ParentFont = False
TabOrder = 4
@@ -257,8 +258,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Width = 218
end
object cxGrid2: TcxGrid
- Left = 460
- Top = 273
+ Left = 455
+ Top = 270
Width = 291
Height = 141
TabOrder = 7
@@ -317,7 +318,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
end
object cxGrid1: TcxGrid
Left = 35
- Top = 273
+ Top = 270
Width = 386
Height = 142
TabOrder = 8
@@ -449,6 +450,155 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
TabOrder = 15
Width = 223
end
+ object cxGrid3: TcxGrid
+ Left = 0
+ Top = 412
+ Width = 1003
+ Height = 253
+ Align = alBottom
+ TabOrder = 16
+ ExplicitTop = 368
+ ExplicitWidth = 1020
+ object Tv3: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DS_3
+ DataController.Filter.AutoDataSetFilter = True
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Format = 'C_Code'
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ Column = Tv2Column8
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsBehavior.FocusCellOnTab = True
+ OptionsBehavior.GoToNextCellOnEnter = True
+ OptionsBehavior.FocusCellOnCycle = True
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ object Tv2Column7: TcxGridDBColumn
+ Caption = #34892#21495
+ DataBinding.FieldName = 'RowNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object v2Column10: TcxGridDBColumn
+ Caption = #32534#21495
+ DataBinding.FieldName = 'Y_Code'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object cxGridDBColumn3: TcxGridDBColumn
+ Caption = #21697#21517
+ DataBinding.FieldName = 'Y_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Moving = False
+ Options.Sorting = False
+ Width = 100
+ end
+ object Tv2Column13: TcxGridDBColumn
+ Caption = #35268#26684
+ DataBinding.FieldName = 'Y_Spec'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object v2Column6: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'Y_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 100
+ end
+ object Tv2Column6: TcxGridDBColumn
+ Caption = #20998#29305'(Dtex)'
+ DataBinding.FieldName = 'TestDenier'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 91
+ end
+ object Tv2Column14: TcxGridDBColumn
+ Caption = #25903#25968
+ DataBinding.FieldName = 'Z_Number'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 88
+ end
+ object Tv2Column1: TcxGridDBColumn
+ Caption = #26681#25968
+ DataBinding.FieldName = 'YarnQty'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 79
+ end
+ object Tv2Column2: TcxGridDBColumn
+ Caption = #24490#29615#26681#25968
+ DataBinding.FieldName = 'CycleYarnQty'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv2Column11: TcxGridDBColumn
+ Caption = #25439#32791
+ DataBinding.FieldName = 'Y_Loss'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv3BatchNO: TcxGridDBColumn
+ Caption = #32433#32447#25209#21495
+ DataBinding.FieldName = 'BatchNO'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.OnButtonClick = Tv3BatchNOPropertiesButtonClick
+ HeaderAlignmentHorz = taCenter
+ Width = 91
+ end
+ object Tv2Column8: TcxGridDBColumn
+ Caption = #30334#31859#32463#38271#29992#37327'KG'
+ DataBinding.FieldName = 'MeterQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 151
+ end
+ object Tv2Column12: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'note'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object cxGridLevel3: TcxGridLevel
+ GridView = Tv3
+ end
+ end
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatPlan.ADOLink
@@ -499,4 +649,15 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Left = 776
Top = 389
end
+ object CDS_3: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 320
+ Top = 550
+ end
+ object DS_3: TDataSource
+ DataSet = CDS_3
+ Left = 416
+ Top = 544
+ end
end
diff --git a/E01梭织生产计划/U_TatPlanMachInput.pas b/E01梭织生产计划/U_TatPlanMachInput.pas
index 8776e97..71849e4 100644
--- a/E01梭织生产计划/U_TatPlanMachInput.pas
+++ b/E01梭织生产计划/U_TatPlanMachInput.pas
@@ -69,6 +69,24 @@ type
PMType: TcxComboBox;
WB_Code: TcxButtonEdit;
ToolButton2: TToolButton;
+ cxGrid3: TcxGrid;
+ Tv3: TcxGridDBTableView;
+ Tv2Column7: TcxGridDBColumn;
+ v2Column10: TcxGridDBColumn;
+ cxGridDBColumn3: TcxGridDBColumn;
+ Tv2Column13: TcxGridDBColumn;
+ v2Column6: TcxGridDBColumn;
+ Tv2Column6: TcxGridDBColumn;
+ Tv2Column14: TcxGridDBColumn;
+ Tv2Column1: TcxGridDBColumn;
+ Tv2Column2: TcxGridDBColumn;
+ Tv2Column11: TcxGridDBColumn;
+ Tv2Column8: TcxGridDBColumn;
+ Tv2Column12: TcxGridDBColumn;
+ cxGridLevel3: TcxGridLevel;
+ Tv3BatchNO: TcxGridDBColumn;
+ CDS_3: TClientDataSet;
+ DS_3: TDataSource;
procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
@@ -77,12 +95,15 @@ type
procedure WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton2Click(Sender: TObject);
procedure PMTypePropertiesChange(Sender: TObject);
+ procedure Tv3BatchNOPropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
private
canshu1, YCP, XCP: string;
Fint, CXS: Integer;
procedure InitData();
function SaveData(): Boolean;
function CheckData(): Boolean;
+ procedure InitClothYarn(MC_Code: string);
{ Private declarations }
public
FPMID, FCYCode, FCPID, FCPNO, FCPName, FMCNo, FMCType: string;
@@ -97,7 +118,7 @@ var
implementation
uses
- U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_TatPlanSel, U_WBSpecSel;
+ U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_TatPlanSel, U_WBSpecSel,U_YarnStkSel;
{$R *.dfm}
@@ -157,11 +178,29 @@ begin
end;
+procedure TfrmTatPlanMachInput.InitClothYarn(MC_Code: string);
+begin
+ with ADOQueryTemp do
+ begin
+ Close;
+ sql.Clear;
+ sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
+ sql.Add(' where A.YRType=''γ˿'' and B.C_Code=''' + Trim(MC_Code) + '''');
+ Open;
+ end;
+ SCreateCDS(ADOQueryTemp, CDS_3);
+ SInitCDSData(ADOQueryTemp, CDS_3);
+ ClearCDSColumn(CDS_3, ['YRId', 'SubId', 'MainId']);
+//
+end;
+
procedure TfrmTatPlanMachInput.FormShow(Sender: TObject);
begin
readCxGrid(trim(self.Caption) + 'Tv1', Tv1, '');
readCxGrid(trim(self.Caption) + 'Tv2', Tv2, '');
+
InitData();
+ InitClothYarn(C_Code.Text);
end;
procedure TfrmTatPlanMachInput.TBCloseClick(Sender: TObject);
@@ -310,6 +349,34 @@ begin
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '');
end;
+procedure TfrmTatPlanMachInput.Tv3BatchNOPropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
+begin
+ try
+ frmYarnStkSel := TfrmYarnStkSel.Create(Application);
+ with frmYarnStkSel do
+ begin
+ FstkName := 'ɴ';
+ if ShowModal = 1 then
+ begin
+ frmYarnStkSel.CDS_Main.DisableControls;
+
+ with Self.CDS_3 do
+ begin
+ edit;
+ FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
+ end;
+
+
+ frmYarnStkSel.CDS_Main.EnableControls;
+ end;
+ end;
+ finally
+ frmYarnStkSel.Free;
+ end;
+
+end;
+
procedure TfrmTatPlanMachInput.WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
diff --git a/E01梭织生产计划/U_TatPlanPSYLLIST.dfm b/E01梭织生产计划/U_TatPlanPSYLLIST.dfm
index e52a8f4..08ce5ba 100644
--- a/E01梭织生产计划/U_TatPlanPSYLLIST.dfm
+++ b/E01梭织生产计划/U_TatPlanPSYLLIST.dfm
@@ -131,8 +131,6 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
- ExplicitLeft = -1
- ExplicitHeight = 385
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -242,7 +240,6 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
- ExplicitLeft = -1
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
diff --git a/E01梭织生产计划/U_YarnStkSel.dfm b/E01梭织生产计划/U_YarnStkSel.dfm
new file mode 100644
index 0000000..7791815
--- /dev/null
+++ b/E01梭织生产计划/U_YarnStkSel.dfm
@@ -0,0 +1,522 @@
+inherited frmYarnStkSel: TfrmYarnStkSel
+ Left = 105
+ Top = 131
+ Caption = #32433#32447#24211#23384#36873#25321#21015#34920
+ ClientHeight = 488
+ ClientWidth = 1540
+ Color = clWhite
+ Font.Charset = GB2312_CHARSET
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Position = poMainFormCenter
+ OnClose = FormClose
+ ExplicitWidth = 1556
+ ExplicitHeight = 527
+ PixelsPerInch = 96
+ TextHeight = 21
+ object ToolBar1: TToolBar [0]
+ Tag = 1
+ Left = 0
+ Top = 0
+ Width = 1540
+ Height = 30
+ AutoSize = True
+ ButtonHeight = 30
+ ButtonWidth = 83
+ Caption = 'ToolBar1'
+ Color = clSkyBlue
+ Images = DataLink_TatPlan.cxImageList_bar
+ List = True
+ ParentColor = False
+ ShowCaptions = True
+ TabOrder = 0
+ object TBRafresh: TToolButton
+ Left = 0
+ Top = 0
+ AutoSize = True
+ Caption = #21047#26032
+ ImageIndex = 1
+ OnClick = TBRafreshClick
+ end
+ object TBFind: TToolButton
+ Left = 63
+ Top = 0
+ AutoSize = True
+ Caption = #36807#28388
+ ImageIndex = 0
+ Visible = False
+ OnClick = TBFindClick
+ end
+ object ToolButton1: TToolButton
+ Left = 126
+ Top = 0
+ AutoSize = True
+ Caption = #30830#23450
+ ImageIndex = 12
+ OnClick = ToolButton1Click
+ end
+ object ToolButton2: TToolButton
+ Left = 189
+ Top = 0
+ AutoSize = True
+ Caption = #20445#23384#26684#24335
+ ImageIndex = 16
+ OnClick = ToolButton2Click
+ end
+ object TBClose: TToolButton
+ Left = 276
+ Top = 0
+ AutoSize = True
+ Caption = #20851#38381
+ ImageIndex = 7
+ OnClick = TBCloseClick
+ end
+ end
+ object Panel1: TPanel [1]
+ Left = 0
+ Top = 30
+ Width = 1540
+ Height = 44
+ Align = alTop
+ BevelInner = bvRaised
+ BevelOuter = bvLowered
+ Color = clWhite
+ ParentBackground = False
+ TabOrder = 1
+ ExplicitTop = 27
+ object Label3: TLabel
+ Left = 257
+ Top = 10
+ Width = 32
+ Height = 21
+ Caption = #21697#21517
+ end
+ object Label4: TLabel
+ Left = 35
+ Top = 10
+ Width = 64
+ Height = 21
+ Caption = #26469#33258#21333#20301
+ end
+ object Label8: TLabel
+ Left = 447
+ Top = 10
+ Width = 32
+ Height = 21
+ Caption = #35268#26684
+ end
+ object Label2: TLabel
+ Left = 637
+ Top = 10
+ Width = 42
+ Height = 21
+ Caption = #25209' '#21495
+ end
+ object Label1: TLabel
+ Left = 837
+ Top = 10
+ Width = 32
+ Height = 21
+ Caption = #32534#21495
+ end
+ object Label5: TLabel
+ Left = 1027
+ Top = 10
+ Width = 48
+ Height = 21
+ Caption = #28504#36890#21495
+ end
+ object Y_Name: TEdit
+ Tag = 2
+ Left = 293
+ Top = 6
+ Width = 150
+ Height = 29
+ TabOrder = 0
+ OnChange = TBFindClick
+ end
+ object FromCoName: TEdit
+ Tag = 2
+ Left = 103
+ Top = 6
+ Width = 150
+ Height = 29
+ TabOrder = 1
+ OnChange = FromCoNameChange
+ end
+ object Y_Spec: TEdit
+ Tag = 2
+ Left = 483
+ Top = 6
+ Width = 150
+ Height = 29
+ TabOrder = 2
+ OnChange = TBFindClick
+ end
+ object BatchNo: TEdit
+ Tag = 2
+ Left = 683
+ Top = 6
+ Width = 150
+ Height = 29
+ TabOrder = 3
+ OnChange = FromCoNameChange
+ end
+ object Y_Code: TEdit
+ Tag = 2
+ Left = 873
+ Top = 6
+ Width = 150
+ Height = 29
+ TabOrder = 4
+ OnChange = FromCoNameChange
+ end
+ object Y_ColorNo: TEdit
+ Tag = 2
+ Left = 1081
+ Top = 4
+ Width = 150
+ Height = 29
+ TabOrder = 5
+ OnChange = FromCoNameChange
+ end
+ end
+ object cxGrid1: TcxGrid [2]
+ Left = 0
+ Top = 74
+ Width = 1540
+ Height = 414
+ Align = alClient
+ PopupMenu = PopupMenu1
+ TabOrder = 2
+ ExplicitTop = 68
+ ExplicitHeight = 417
+ object Tv1: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DataSource1
+ DataController.Summary.DefaultGroupSummaryItems = <
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ Position = spFooter
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skCount
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ Column = v2Column6
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ object v1Column17: TcxGridDBColumn
+ Caption = #36873#25321
+ DataBinding.FieldName = 'SSel'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.ImmediatePost = True
+ Properties.NullStyle = nssUnchecked
+ HeaderAlignmentHorz = taCenter
+ Width = 42
+ end
+ object v1Column6: TcxGridDBColumn
+ Caption = #20837#24211#26102#38388
+ DataBinding.FieldName = 'IOTime'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 87
+ end
+ object v1Column14: TcxGridDBColumn
+ Tag = 2
+ Caption = #26469#33258#21333#20301
+ DataBinding.FieldName = 'FromCoName'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Alignment.Horz = taLeftJustify
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 108
+ end
+ object Tv1Column12: TcxGridDBColumn
+ Caption = #20379#24212#21830
+ DataBinding.FieldName = 'Supplier'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 80
+ end
+ object Tv1Column3: TcxGridDBColumn
+ Caption = #23384#25918#21333#20301
+ DataBinding.FieldName = 'StkCoName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 88
+ end
+ object Tv1Column2: TcxGridDBColumn
+ Caption = #32534#21495
+ DataBinding.FieldName = 'Y_Code'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 75
+ end
+ object v2Column1: TcxGridDBColumn
+ Tag = 2
+ Caption = #21697#21517
+ DataBinding.FieldName = 'Y_Name'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxButtonEditProperties'
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 124
+ end
+ object Tv1Column13: TcxGridDBColumn
+ Caption = #31867#22411
+ DataBinding.FieldName = 'Y_Type'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 80
+ end
+ object v1Column4: TcxGridDBColumn
+ Caption = #21697#29260
+ DataBinding.FieldName = 'Brand'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 73
+ end
+ object v1Column10: TcxGridDBColumn
+ Caption = #25209#21495
+ DataBinding.FieldName = 'BatchNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 124
+ end
+ object v1Column8: TcxGridDBColumn
+ Tag = 2
+ Caption = #35268#26684
+ DataBinding.FieldName = 'Y_Spec'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ HeaderGlyphAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 106
+ end
+ object Tv1Column4: TcxGridDBColumn
+ Caption = #25104#20998
+ DataBinding.FieldName = 'Y_Composition'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ object Tv1Column5: TcxGridDBColumn
+ Caption = #39068#33394
+ DataBinding.FieldName = 'Y_Color'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 86
+ end
+ object Tv1Column6: TcxGridDBColumn
+ Caption = #29702#35770'D'#25968
+ DataBinding.FieldName = 'Denier'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 92
+ end
+ object Tv1Column14: TcxGridDBColumn
+ Caption = #23454#27979'D'#25968
+ DataBinding.FieldName = 'TestDenier'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 80
+ end
+ object Tv1Column9: TcxGridDBColumn
+ Caption = #28504#36890#21495
+ DataBinding.FieldName = 'Y_ColorNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ end
+ object Tv1Column10: TcxGridDBColumn
+ Caption = #32442#27861
+ DataBinding.FieldName = 'FF'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 80
+ end
+ object Tv1Column11: TcxGridDBColumn
+ Caption = #25467#24230
+ DataBinding.FieldName = 'ND'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 80
+ end
+ object Tv1Column1: TcxGridDBColumn
+ Caption = #31665'/'#20214
+ DataBinding.FieldName = 'StkPiece'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ end
+ object v2Column6: TcxGridDBColumn
+ Tag = 2
+ Caption = #24211#23384#25968#37327
+ DataBinding.FieldName = 'stkqty'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxTextEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 87
+ end
+ object v1Column3: TcxGridDBColumn
+ Tag = 2
+ Caption = #21333#20301
+ DataBinding.FieldName = 'QtyUnit'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxComboBoxProperties'
+ Properties.DropDownListStyle = lsFixedList
+ Properties.Items.Strings = (
+ 'Kg'
+ 'M'
+ 'Y')
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 71
+ end
+ object Tv1Column8: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'Note'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 66
+ end
+ end
+ object cxGrid1Level1: TcxGridLevel
+ GridView = Tv1
+ end
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_TatPlan.ADOLink
+ Left = 297
+ Top = 170
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_TatPlan.ADOLink
+ Left = 225
+ Top = 211
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_TatPlan.ADOLink
+ Parameters = <>
+ Left = 544
+ Top = 136
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_TatPlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 672
+ Top = 154
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_TatPlan.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 464
+ Top = 146
+ end
+ object DataSource1: TDataSource
+ DataSet = CDS_Main
+ Left = 576
+ Top = 304
+ end
+ object cxGridPopupMenu1: TcxGridPopupMenu
+ Grid = cxGrid1
+ PopupMenus = <>
+ Left = 512
+ Top = 304
+ end
+ object CDS_Main: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 632
+ Top = 240
+ end
+ object CDS_HZ: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 392
+ Top = 312
+ end
+ object PopupMenu1: TPopupMenu
+ Left = 328
+ Top = 272
+ object N1: TMenuItem
+ Caption = #20840#36873
+ OnClick = N1Click
+ end
+ object N2: TMenuItem
+ Caption = #20840#24323
+ OnClick = N2Click
+ end
+ end
+end
diff --git a/E01梭织生产计划/U_YarnStkSel.pas b/E01梭织生产计划/U_YarnStkSel.pas
new file mode 100644
index 0000000..b340adb
--- /dev/null
+++ b/E01梭织生产计划/U_YarnStkSel.pas
@@ -0,0 +1,226 @@
+unit U_YarnStkSel;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+ cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
+ cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
+ cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
+ ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
+ cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
+ RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
+ cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
+ dxBarBuiltInMenu, U_BaseHelp, System.ImageList, Vcl.ImgList,
+ dxScrollbarAnnotations, cxContainer, dxSkinsCore, dxSkinsDefaultPainters;
+
+type
+ TfrmYarnStkSel = class(TfrmBaseHelp)
+ ToolBar1: TToolBar;
+ TBRafresh: TToolButton;
+ TBFind: TToolButton;
+ TBClose: TToolButton;
+ Panel1: TPanel;
+ ADOQueryCmd: TADOQuery;
+ ADOQueryMain: TADOQuery;
+ ADOQueryTemp: TADOQuery;
+ DataSource1: TDataSource;
+ cxGridPopupMenu1: TcxGridPopupMenu;
+ CDS_Main: TClientDataSet;
+ CDS_HZ: TClientDataSet;
+ PopupMenu1: TPopupMenu;
+ N1: TMenuItem;
+ N2: TMenuItem;
+ ToolButton1: TToolButton;
+ cxGrid1: TcxGrid;
+ Tv1: TcxGridDBTableView;
+ v1Column17: TcxGridDBColumn;
+ v1Column14: TcxGridDBColumn;
+ v2Column1: TcxGridDBColumn;
+ v1Column8: TcxGridDBColumn;
+ v1Column4: TcxGridDBColumn;
+ v1Column10: TcxGridDBColumn;
+ v2Column6: TcxGridDBColumn;
+ v1Column3: TcxGridDBColumn;
+ cxGrid1Level1: TcxGridLevel;
+ Label3: TLabel;
+ Label4: TLabel;
+ Label8: TLabel;
+ Label2: TLabel;
+ Y_Name: TEdit;
+ FromCoName: TEdit;
+ Y_Spec: TEdit;
+ BatchNo: TEdit;
+ v1Column6: TcxGridDBColumn;
+ ToolButton2: TToolButton;
+ Tv1Column1: TcxGridDBColumn;
+ Tv1Column3: TcxGridDBColumn;
+ Tv1Column4: TcxGridDBColumn;
+ Tv1Column5: TcxGridDBColumn;
+ Tv1Column6: TcxGridDBColumn;
+ Tv1Column8: TcxGridDBColumn;
+ Tv1Column2: TcxGridDBColumn;
+ Y_Code: TEdit;
+ Label1: TLabel;
+ Tv1Column9: TcxGridDBColumn;
+ Label5: TLabel;
+ Y_ColorNo: TEdit;
+ Tv1Column10: TcxGridDBColumn;
+ Tv1Column11: TcxGridDBColumn;
+ Tv1Column12: TcxGridDBColumn;
+ Tv1Column13: TcxGridDBColumn;
+ Tv1Column14: TcxGridDBColumn;
+ procedure FormDestroy(Sender: TObject);
+ procedure FormClose(Sender: TObject; var Action: TCloseAction);
+ procedure TBRafreshClick(Sender: TObject);
+ procedure ConNoMChange(Sender: TObject);
+ procedure TBCloseClick(Sender: TObject);
+ procedure FormShow(Sender: TObject);
+ procedure TBFindClick(Sender: TObject);
+ procedure MPRTCodeNameChange(Sender: TObject);
+ procedure N1Click(Sender: TObject);
+ procedure N2Click(Sender: TObject);
+ procedure SXBatchNOChange(Sender: TObject);
+ procedure FromCoNameChange(Sender: TObject);
+ procedure ToolButton1Click(Sender: TObject);
+ procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+ procedure ToolButton2Click(Sender: TObject);
+ private
+ procedure InitGrid();
+ { Private declarations }
+ public
+ FstkName, FFY_Code: string;
+ { Public declarations }
+ end;
+
+var
+ frmYarnStkSel: TfrmYarnStkSel;
+
+implementation
+
+uses
+ U_DataLink, U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmYarnStkSel.FormDestroy(Sender: TObject);
+begin
+ inherited;
+ frmYarnStkSel := nil;
+end;
+
+procedure TfrmYarnStkSel.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+ inherited;
+ Action := caFree;
+end;
+
+procedure TfrmYarnStkSel.InitGrid();
+begin
+ try
+ ADOQueryMain.DisableControls;
+ with ADOQueryMain do
+ begin
+ Filtered := False;
+ Close;
+ sql.Clear;
+ sql.Add(' select A.* ');
+ sql.Add(' from BS_Yarn_IO A where A.IOFlag='''' and isnull(STkQty,0)>0 ');
+ sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
+ if trim(FFY_Code) <> '' then
+ sql.Add(' and isnull(Y_Code,'''')=''' + Trim(FFY_Code) + '''');
+ Open;
+ end;
+ SCreateCDS(ADOQueryMain, CDS_Main);
+ SInitCDSData(ADOQueryMain, CDS_Main);
+ finally
+ ADOQueryMain.EnableControls;
+ end;
+end;
+
+procedure TfrmYarnStkSel.TBRafreshClick(Sender: TObject);
+begin
+ InitGrid();
+end;
+
+procedure TfrmYarnStkSel.ConNoMChange(Sender: TObject);
+begin
+ if ADOQueryMain.Active then
+ begin
+ SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+ end;
+end;
+
+procedure TfrmYarnStkSel.TBCloseClick(Sender: TObject);
+begin
+
+ Close;
+end;
+
+procedure TfrmYarnStkSel.FormShow(Sender: TObject);
+begin
+ inherited;
+ ReadCxGrid(trim(self.Caption), Tv1, 'ϲֿ');
+ InitGrid();
+end;
+
+procedure TfrmYarnStkSel.TBFindClick(Sender: TObject);
+begin
+ if ADOQueryMain.Active then
+ begin
+ SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+ SCreateCDS(ADOQueryMain, CDS_Main);
+ SInitCDSData(ADOQueryMain, CDS_Main);
+ end;
+end;
+
+procedure TfrmYarnStkSel.MPRTCodeNameChange(Sender: TObject);
+begin
+ TBFind.Click;
+end;
+
+procedure TfrmYarnStkSel.N1Click(Sender: TObject);
+begin
+ SelOKNo(CDS_Main, True);
+end;
+
+procedure TfrmYarnStkSel.N2Click(Sender: TObject);
+begin
+ SelOKNo(CDS_Main, False);
+end;
+
+procedure TfrmYarnStkSel.SXBatchNOChange(Sender: TObject);
+begin
+ TBFind.Click;
+end;
+
+procedure TfrmYarnStkSel.FromCoNameChange(Sender: TObject);
+begin
+ TBFind.Click;
+end;
+
+procedure TfrmYarnStkSel.ToolButton1Click(Sender: TObject);
+begin
+ if CDS_Main.IsEmpty then
+ Exit;
+ if CDS_Main.Locate('SSel', True, []) = False then
+ begin
+ Application.MessageBox('ûѡ!', 'ʾ', 0);
+ Exit;
+ end;
+ ModalResult := 1;
+end;
+
+procedure TfrmYarnStkSel.ToolButton2Click(Sender: TObject);
+begin
+ WriteCxGrid(trim(self.Caption), Tv1, 'ϲֿ');
+end;
+
+procedure TfrmYarnStkSel.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+begin
+ ModalResult := 1;
+end;
+
+end.
+
diff --git a/E02梭织经轴仓库/U_GKInput.dfm b/E02梭织经轴仓库/U_GKInput.dfm
index 5421427..87b07b5 100644
--- a/E02梭织经轴仓库/U_GKInput.dfm
+++ b/E02梭织经轴仓库/U_GKInput.dfm
@@ -25,7 +25,7 @@ inherited frmGKInput: TfrmGKInput
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clWhite
- Images = DataLink_BaseInfo.cxImageList_bar
+ Images = BaseDataLink.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
@@ -61,7 +61,8 @@ inherited frmGKInput: TfrmGKInput
ParentColor = False
ParentCtl3D = False
TabOrder = 1
- ExplicitTop = 36
+ ExplicitTop = 27
+ ExplicitHeight = 522
object Label2: TLabel
Left = 48
Top = 73
@@ -194,12 +195,12 @@ inherited frmGKInput: TfrmGKInput
end
end
inherited ADOQueryBaseCmd: TADOQuery
- Connection = DataLink_BaseInfo.ADOLink
+ Connection = DataLink_WarpBeamStk.ADOLink
Left = 704
Top = 219
end
inherited ADOQueryBaseTemp: TADOQuery
- Connection = DataLink_BaseInfo.ADOLink
+ Connection = DataLink_WarpBeamStk.ADOLink
Left = 706
Top = 264
end
@@ -214,20 +215,20 @@ inherited frmGKInput: TfrmGKInput
DesignInfo = 5767938
end
object ADOQueryTemp: TADOQuery
- Connection = DataLink_BaseInfo.ADOLink
+ Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 747
Top = 173
end
object ADOQueryCmd: TADOQuery
- Connection = DataLink_BaseInfo.ADOLink
+ Connection = DataLink_WarpBeamStk.ADOLink
Parameters = <>
Left = 684
Top = 101
end
object ADOQueryMain: TADOQuery
- Connection = DataLink_BaseInfo.ADOLink
+ Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 692
diff --git a/E02梭织经轴仓库/U_TatWBCardInPut.dfm b/E02梭织经轴仓库/U_TatWBCardInPut.dfm
index 197b196..e1dc59a 100644
--- a/E02梭织经轴仓库/U_TatWBCardInPut.dfm
+++ b/E02梭织经轴仓库/U_TatWBCardInPut.dfm
@@ -795,9 +795,9 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
object Label41: TLabel
Left = 12
Top = 426
- Width = 64
+ Width = 80
Height = 21
- Caption = #36793#31359#20837#27861
+ Caption = #36793#32433#24635#26681#25968
end
object Label12: TLabel
Left = 12
@@ -873,12 +873,117 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Caption = #25490#21333#26085#26399
end
object Label40: TLabel
- Left = 12
- Top = 461
+ Left = 9
+ Top = 499
Width = 96
Height = 21
Caption = #35746#21333#32463#32433#38271#24230
end
+ object Label42: TLabel
+ Left = 236
+ Top = 461
+ Width = 112
+ Height = 21
+ Caption = #36793#32433#21333#36793#31576#40831#25968
+ end
+ object Label43: TLabel
+ Left = 12
+ Top = 464
+ Width = 64
+ Height = 21
+ Caption = #36793#31359#20837#27861
+ end
+ object Label44: TLabel
+ Left = 191
+ Top = 347
+ Width = 12
+ Height = 13
+ Caption = #26681
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGrayText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label45: TLabel
+ Left = 191
+ Top = 467
+ Width = 40
+ Height = 13
+ Caption = #26681'/'#31576#40831
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGrayText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label46: TLabel
+ Left = 427
+ Top = 467
+ Width = 24
+ Height = 13
+ Caption = #31576#40831
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGrayText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label48: TLabel
+ Left = 191
+ Top = 387
+ Width = 24
+ Height = 13
+ Caption = #31576#40831
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGrayText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label49: TLabel
+ Left = 427
+ Top = 347
+ Width = 40
+ Height = 13
+ Caption = #26681'/'#31576#40831
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGrayText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label50: TLabel
+ Left = 427
+ Top = 307
+ Width = 46
+ Height = 13
+ Caption = #40831'/2'#33521#23544
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGrayText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label51: TLabel
+ Left = 427
+ Top = 387
+ Width = 6
+ Height = 16
+ Caption = #8216#8217
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGrayText
+ Font.Height = -13
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
object WBCNO: TcxTextEdit
Tag = 1
Left = 106
@@ -927,6 +1032,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Height = 240
Align = alBottom
TabOrder = 4
+ ExplicitLeft = -1
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -1110,6 +1216,20 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
HeaderAlignmentHorz = taCenter
Width = 90
end
+ object TV3Supplier: TcxGridDBColumn
+ Caption = #20379#24212#21830
+ DataBinding.FieldName = 'Supplier'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object TV3IOTime: TcxGridDBColumn
+ Caption = #20837#24211#26102#38388
+ DataBinding.FieldName = 'IOTime'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
@@ -1169,7 +1289,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 378
ParentColor = True
TabOrder = 8
- Width = 120
+ Width = 83
end
object WB_ReedNo: TcxTextEdit
Tag = 1
@@ -1178,7 +1298,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
ParentColor = True
Properties.ReadOnly = True
TabOrder = 9
- Width = 120
+ Width = 83
end
object GKBH: TcxButtonEdit
Tag = 1
@@ -1199,7 +1319,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 338
ParentColor = True
TabOrder = 11
- Width = 120
+ Width = 79
end
object DCRQTY: TcxTextEdit
Tag = 1
@@ -1207,7 +1327,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 338
ParentColor = True
TabOrder = 12
- Width = 120
+ Width = 83
end
object C_KCQTY: TcxTextEdit
Tag = 1
@@ -1215,7 +1335,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 379
ParentColor = True
TabOrder = 13
- Width = 120
+ Width = 79
end
object WB_ReedNote: TcxTextEdit
Tag = 1
@@ -1223,7 +1343,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 420
ParentColor = True
TabOrder = 14
- Width = 352
+ Width = 315
end
object F_MAXKESHU: TcxTextEdit
Tag = 2
@@ -1291,12 +1411,28 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end
object ordqty: TcxTextEdit
Tag = 1
- Left = 106
- Top = 455
+ Left = 111
+ Top = 493
ParentColor = True
TabOrder = 22
Width = 120
end
+ object WB_YarnKCQty: TcxTextEdit
+ Tag = 1
+ Left = 354
+ Top = 458
+ ParentColor = True
+ TabOrder = 23
+ Width = 67
+ end
+ object BCRFQty: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 458
+ ParentColor = True
+ TabOrder = 24
+ Width = 79
+ end
end
end
inherited ADOQueryBaseCmd: TADOQuery
diff --git a/E02梭织经轴仓库/U_TatWBCardInPut.pas b/E02梭织经轴仓库/U_TatWBCardInPut.pas
index e198d1d..2d78cc3 100644
--- a/E02梭织经轴仓库/U_TatWBCardInPut.pas
+++ b/E02梭织经轴仓库/U_TatWBCardInPut.pas
@@ -166,6 +166,19 @@ type
TV3BatchNO: TcxGridDBColumn;
TV3dbNumber: TcxGridDBColumn;
TV3Column2: TcxGridDBColumn;
+ Label42: TLabel;
+ WB_YarnKCQty: TcxTextEdit;
+ Label43: TLabel;
+ BCRFQty: TcxTextEdit;
+ Label44: TLabel;
+ Label45: TLabel;
+ Label46: TLabel;
+ Label48: TLabel;
+ Label49: TLabel;
+ Label50: TLabel;
+ Label51: TLabel;
+ TV3Supplier: TcxGridDBColumn;
+ TV3IOTime: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure N2Click(Sender: TObject);
@@ -412,6 +425,9 @@ begin
Self.WB_YarnQty.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').value;
Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString);
+
+ Self.WB_YarnKCQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnKCQty').AsString);
+ Self.BCRFQty.Text := frmWBSpecSel.CDS_1.fieldbyname('BCRFQty').value;
Self.InitCard3();
end;
end;
@@ -1015,6 +1031,8 @@ begin
FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
FieldByName('singleWeight').Value := frmYarnStkSel.CDS_Main.fieldbyname('singleWeight').Value;
FieldByName('dbNumber').Value := frmYarnStkSel.CDS_Main.fieldbyname('dbNumber').Value;
+ FieldByName('Supplier').Value := frmYarnStkSel.CDS_Main.fieldbyname('Supplier').Value;
+ FieldByName('IOTime').Value := frmYarnStkSel.CDS_Main.fieldbyname('IOTime').Value;
Post;
end;
end;
diff --git a/E02梭织经轴仓库/U_TatWBCardInPut2.dfm b/E02梭织经轴仓库/U_TatWBCardInPut2.dfm
index a486057..bf2da9a 100644
--- a/E02梭织经轴仓库/U_TatWBCardInPut2.dfm
+++ b/E02梭织经轴仓库/U_TatWBCardInPut2.dfm
@@ -9,7 +9,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Font.Height = -16
Position = poMainFormCenter
OnClose = FormClose
- ExplicitLeft = -631
+ ExplicitTop = -236
ExplicitWidth = 1556
ExplicitHeight = 811
PixelsPerInch = 96
@@ -715,6 +715,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Color = clWhite
ParentBackground = False
TabOrder = 1
+ ExplicitLeft = -4
object Label15: TLabel
Left = 237
Top = 18
@@ -865,9 +866,9 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
object Label41: TLabel
Left = 7
Top = 482
- Width = 64
+ Width = 80
Height = 21
- Caption = #36793#31359#20837#27861
+ Caption = #36793#32433#24635#26681#25968
end
object Label42: TLabel
Left = 237
@@ -878,7 +879,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
end
object Label43: TLabel
Left = 237
- Top = 529
+ Top = 572
Width = 96
Height = 21
Caption = #35745#21010#31232#36724#20010#25968
@@ -891,7 +892,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
end
object Label44: TLabel
Left = 7
- Top = 528
+ Top = 571
Width = 96
Height = 21
Caption = #35745#21010#31232#36724#32463#38271
@@ -902,6 +903,111 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Font.Style = []
ParentFont = False
end
+ object Label45: TLabel
+ Left = 12
+ Top = 526
+ Width = 64
+ Height = 21
+ Caption = #36793#31359#20837#27861
+ end
+ object Label46: TLabel
+ Left = 191
+ Top = 529
+ Width = 40
+ Height = 13
+ Caption = #26681'/'#31576#40831
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGrayText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label48: TLabel
+ Left = 236
+ Top = 523
+ Width = 112
+ Height = 21
+ Caption = #36793#32433#21333#36793#31576#40831#25968
+ end
+ object Label49: TLabel
+ Left = 427
+ Top = 529
+ Width = 24
+ Height = 13
+ Caption = #31576#40831
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGrayText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label50: TLabel
+ Left = 427
+ Top = 401
+ Width = 40
+ Height = 13
+ Caption = #26681'/'#31576#40831
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGrayText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label51: TLabel
+ Left = 191
+ Top = 443
+ Width = 24
+ Height = 13
+ Caption = #31576#40831
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGrayText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label52: TLabel
+ Left = 191
+ Top = 401
+ Width = 12
+ Height = 13
+ Caption = #26681
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGrayText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label53: TLabel
+ Left = 427
+ Top = 361
+ Width = 46
+ Height = 13
+ Caption = #40831'/2'#33521#23544
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGrayText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label54: TLabel
+ Left = 427
+ Top = 443
+ Width = 6
+ Height = 19
+ Caption = #8216#8217
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGrayText
+ Font.Height = -16
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
object TWPId: TcxTextEdit
Tag = 1
Left = 106
@@ -957,7 +1063,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Top = 434
ParentColor = True
TabOrder = 5
- Width = 120
+ Width = 76
end
object Z_FENJIAO: TcxTextEdit
Tag = 1
@@ -1013,7 +1119,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
ParentColor = True
Properties.ReadOnly = True
TabOrder = 10
- Width = 120
+ Width = 76
end
object GKBH: TcxButtonEdit
Tag = 1
@@ -1083,7 +1189,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Top = 392
ParentColor = True
TabOrder = 18
- Width = 120
+ Width = 79
end
object DCRQTY: TcxTextEdit
Tag = 1
@@ -1091,7 +1197,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Top = 392
ParentColor = True
TabOrder = 19
- Width = 120
+ Width = 76
end
object C_KCQTY: TcxTextEdit
Tag = 1
@@ -1099,7 +1205,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Top = 434
ParentColor = True
TabOrder = 20
- Width = 120
+ Width = 79
end
object WB_ReedNote: TcxTextEdit
Tag = 1
@@ -1119,18 +1225,34 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
end
object XZ_GS: TcxTextEdit
Left = 345
- Top = 522
+ Top = 565
ParentColor = True
TabOrder = 23
Width = 120
end
object XZ_YarnQty: TcxTextEdit
Left = 106
- Top = 522
+ Top = 565
ParentColor = True
TabOrder = 24
Width = 120
end
+ object BCRFQty: TcxTextEdit
+ Tag = 1
+ Left = 106
+ Top = 520
+ ParentColor = True
+ TabOrder = 25
+ Width = 79
+ end
+ object WB_YarnKCQty: TcxTextEdit
+ Tag = 1
+ Left = 354
+ Top = 520
+ ParentColor = True
+ TabOrder = 26
+ Width = 67
+ end
end
end
inherited ADOQueryBaseCmd: TADOQuery
diff --git a/E02梭织经轴仓库/U_TatWBCardInPut2.pas b/E02梭织经轴仓库/U_TatWBCardInPut2.pas
index d155bb8..40c6521 100644
--- a/E02梭织经轴仓库/U_TatWBCardInPut2.pas
+++ b/E02梭织经轴仓库/U_TatWBCardInPut2.pas
@@ -152,6 +152,17 @@ type
XZ_GS: TcxTextEdit;
Label44: TLabel;
XZ_YarnQty: TcxTextEdit;
+ Label45: TLabel;
+ BCRFQty: TcxTextEdit;
+ Label46: TLabel;
+ Label48: TLabel;
+ WB_YarnKCQty: TcxTextEdit;
+ Label49: TLabel;
+ Label50: TLabel;
+ Label51: TLabel;
+ Label52: TLabel;
+ Label53: TLabel;
+ Label54: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure N2Click(Sender: TObject);
@@ -848,7 +859,9 @@ begin
sql.Add(' set PRTer=' + quotedstr(DName));
sql.Add(', PRTCount=PRTCount+1');
sql.Add(', PRTDate=getdate()');
- sql.Add(' where WBCID in (' + WSql + ')');
+ sql.Add(' where WBCID in (' + quotedstr(WSql) + ')');
+// showMessage(sql.Text);
+
ExecSQL;
end;
end;
diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.dfm b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm
index 39ad576..92d58da 100644
--- a/E02梭织经轴仓库/U_TatWBPlanInPut.dfm
+++ b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm
@@ -8,6 +8,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307
Position = poScreenCenter
+ ExplicitLeft = -102
ExplicitWidth = 1445
ExplicitHeight = 802
PixelsPerInch = 96
@@ -61,16 +62,16 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
end
object Panel2: TPanel [1]
Left = 0
- Top = 433
+ Top = 441
Width = 1429
- Height = 330
+ Height = 322
Align = alClient
TabOrder = 1
object cxPageControl1: TcxPageControl
Left = 1
Top = 42
Width = 1427
- Height = 287
+ Height = 279
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@@ -85,7 +86,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
- ClientRectBottom = 287
+ ClientRectBottom = 279
ClientRectRight = 1427
ClientRectTop = 0
end
@@ -166,10 +167,10 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Left = 1
Top = 42
Width = 1427
- Height = 287
+ Height = 279
Align = alClient
TabOrder = 2
- ExplicitLeft = 17
+ ExplicitLeft = 2
ExplicitTop = 47
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
@@ -349,6 +350,20 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
HeaderAlignmentHorz = taCenter
Width = 95
end
+ object Tv1Supplier: TcxGridDBColumn
+ Caption = #20379#24212#21830
+ DataBinding.FieldName = 'Supplier'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv1IOTime: TcxGridDBColumn
+ Caption = #32433#32447#20837#24211#26102#38388
+ DataBinding.FieldName = 'IOTime'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 120
+ end
object v1Column12: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
@@ -366,7 +381,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Left = 0
Top = 38
Width = 1429
- Height = 395
+ Height = 403
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
@@ -380,6 +395,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
TabOrder = 2
OnDblClick = gynoDblClick
+ ExplicitTop = 34
object Label3: TLabel
Left = 756
Top = 14
@@ -593,7 +609,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Top = 226
Width = 112
Height = 21
- Caption = #32433#39550#25346#32433#39063#25968#65306
+ Caption = #32433#26550#25346#32433#39063#25968#65306
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
@@ -619,7 +635,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Top = 262
Width = 112
Height = 21
- Caption = #32433#39550#25346#32433#39063#25968#65306
+ Caption = #32433#26550#25346#32433#39063#25968#65306
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
@@ -689,9 +705,9 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
object Label30: TLabel
Left = 521
Top = 329
- Width = 80
+ Width = 96
Height = 21
- Caption = #36793#31359#20837#27861#65306
+ Caption = #36793#32433#24635#26681#25968#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
@@ -790,6 +806,123 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Font.Style = []
ParentFont = False
end
+ object Label33: TLabel
+ Left = -2
+ Top = 368
+ Width = 80
+ Height = 21
+ Caption = #36793#31359#20837#27861#65306
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label34: TLabel
+ Left = 277
+ Top = 362
+ Width = 128
+ Height = 21
+ Caption = #36793#32433#21333#36793#31576#40831#25968#65306
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label35: TLabel
+ Left = 171
+ Top = 370
+ Width = 40
+ Height = 13
+ Caption = #26681'/'#31576#40831
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGray
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label37: TLabel
+ Left = 469
+ Top = 298
+ Width = 46
+ Height = 13
+ Caption = #40831'/2'#33521#23544
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGray
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label38: TLabel
+ Left = 887
+ Top = 298
+ Width = 6
+ Height = 16
+ Caption = #8216#8217
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGray
+ Font.Height = -13
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label39: TLabel
+ Left = 467
+ Top = 333
+ Width = 40
+ Height = 13
+ Caption = #26681'/'#31576#40831
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGray
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label40: TLabel
+ Left = 171
+ Top = 333
+ Width = 12
+ Height = 13
+ Caption = #26681
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGray
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label41: TLabel
+ Left = 711
+ Top = 299
+ Width = 24
+ Height = 13
+ Caption = #31576#40831
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGray
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label42: TLabel
+ Left = 487
+ Top = 374
+ Width = 24
+ Height = 13
+ Caption = #31576#40831
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGray
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
object C_NAME: TEdit
Left = 807
Top = 8
@@ -946,7 +1079,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
object WB_ReedNo: TEdit
Left = 387
Top = 291
- Width = 120
+ Width = 78
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@@ -1000,7 +1133,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 13
- Width = 120
+ Width = 78
end
object WB_Width: TcxTextEdit
Left = 807
@@ -1014,7 +1147,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 14
- Width = 120
+ Width = 74
end
object WB_ReedNote: TcxTextEdit
Left = 627
@@ -1042,7 +1175,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 16
- Width = 120
+ Width = 61
end
object DCRQTY: TcxTextEdit
Left = 387
@@ -1056,7 +1189,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 17
- Width = 120
+ Width = 78
end
object Z_ZHOUSHU1: TEdit
Left = 387
@@ -1220,6 +1353,34 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
+ object BCRFQty: TcxTextEdit
+ Left = 104
+ Top = 364
+ ParentColor = True
+ ParentFont = False
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 28
+ Width = 61
+ end
+ object WB_YarnKCQty: TcxTextEdit
+ Left = 411
+ Top = 362
+ ParentColor = True
+ ParentFont = False
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 29
+ Width = 70
+ end
end
inherited ADOQueryBaseCmd: TADOQuery
Left = 969
diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.pas b/E02梭织经轴仓库/U_TatWBPlanInPut.pas
index 097869c..bbde7a2 100644
--- a/E02梭织经轴仓库/U_TatWBPlanInPut.pas
+++ b/E02梭织经轴仓库/U_TatWBPlanInPut.pas
@@ -114,6 +114,19 @@ type
Label23: TLabel;
Label24: TLabel;
Tv1dbNumber: TcxGridDBColumn;
+ Label33: TLabel;
+ Label34: TLabel;
+ BCRFQty: TcxTextEdit;
+ WB_YarnKCQty: TcxTextEdit;
+ Label35: TLabel;
+ Label37: TLabel;
+ Label38: TLabel;
+ Label39: TLabel;
+ Label40: TLabel;
+ Label41: TLabel;
+ Label42: TLabel;
+ Tv1Supplier: TcxGridDBColumn;
+ Tv1IOTime: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@@ -639,6 +652,8 @@ begin
FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
FieldByName('TZQTY').Value := frmYarnStkSel.CDS_Main.fieldbyname('singleWeight').Value;
FieldByName('dbNumber').Value := frmYarnStkSel.CDS_Main.fieldbyname('dbNumber').Value;
+ FieldByName('IoTime').Value := frmYarnStkSel.CDS_Main.fieldbyname('IoTime').Value;
+ FieldByName('Supplier').Value := frmYarnStkSel.CDS_Main.fieldbyname('Supplier').Value;
Post;
end;
end;
@@ -681,6 +696,8 @@ begin
Self.BSQTY.Text := Trim(CDS_1.fieldbyname('BSQTY').AsString);
Self.DCRQTY.Text := Trim(CDS_1.fieldbyname('DCRQTY').AsString);
+ Self.WB_YarnKCQty.Text := Trim(CDS_1.fieldbyname('WB_YarnKCQty').AsString);
+ Self.BCRFQty.Text := Trim(CDS_1.fieldbyname('BCRFQty').AsString);
end;
end;
finally
diff --git a/E02梭织经轴仓库/U_WBSpecInPut.dfm b/E02梭织经轴仓库/U_WBSpecInPut.dfm
index d6890ec..5610a37 100644
--- a/E02梭织经轴仓库/U_WBSpecInPut.dfm
+++ b/E02梭织经轴仓库/U_WBSpecInPut.dfm
@@ -15,9 +15,9 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
TextHeight = 13
object cxGrid1: TcxGrid [0]
Left = 0
- Top = 439
+ Top = 471
Width = 1174
- Height = 406
+ Height = 374
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
@@ -275,7 +275,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 0
Top = 30
Width = 1174
- Height = 379
+ Height = 411
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
@@ -283,7 +283,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Ctl3D = False
ParentCtl3D = False
TabOrder = 2
- ExplicitTop = 24
object Label3: TLabel
Left = 11
Top = 11
@@ -326,9 +325,9 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
object Label2: TLabel
Left = 560
Top = 312
- Width = 64
+ Width = 80
Height = 21
- Caption = #36793#31359#20837#27861
+ Caption = #36793#32433#24635#26681#25968
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
@@ -337,20 +336,20 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ParentFont = False
end
object Label5: TLabel
- Left = 6
- Top = 315
+ Left = 11
+ Top = 309
Width = 48
Height = 21
Caption = #36793#32433#25968
Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
+ Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label10: TLabel
- Left = 803
+ Left = 804
Top = 274
Width = 32
Height = 21
@@ -369,7 +368,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #31576#40831#25968
Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
+ Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@@ -416,7 +415,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #31576#24133
Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
+ Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@@ -436,8 +435,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ParentFont = False
end
object Label29: TLabel
- Left = 20
- Top = 347
+ Left = 3
+ Top = 383
Width = 454
Height = 21
Caption = #27880' '#32463#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#20840#24133#26681#25968' * '#32433#32447#31995#25968' / '#25903#25968#65288'S'#65289
@@ -448,6 +447,123 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Font.Style = []
ParentFont = False
end
+ object Label25: TLabel
+ Left = 287
+ Top = 348
+ Width = 112
+ Height = 21
+ Caption = #36793#32433#21333#36793#31576#40831#25968
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label26: TLabel
+ Left = 6
+ Top = 348
+ Width = 64
+ Height = 21
+ Caption = #36793#31359#20837#27861
+ Font.Charset = ANSI_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -16
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label27: TLabel
+ Left = 228
+ Top = 354
+ Width = 24
+ Height = 13
+ Caption = #31576#40831
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGrayText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object label28: TLabel
+ Left = 506
+ Top = 354
+ Width = 40
+ Height = 13
+ Caption = #26681'/'#31576#40831
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGray
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label30: TLabel
+ Left = 228
+ Top = 315
+ Width = 12
+ Height = 13
+ Caption = #26681
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGrayText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label31: TLabel
+ Left = 511
+ Top = 277
+ Width = 24
+ Height = 13
+ Caption = #31576#40831
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGrayText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label32: TLabel
+ Left = 761
+ Top = 278
+ Width = 6
+ Height = 16
+ Caption = #8216#8217
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGrayText
+ Font.Height = -13
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label33: TLabel
+ Left = 966
+ Top = 277
+ Width = 46
+ Height = 13
+ Caption = #40831'/2'#33521#23544
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGrayText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label34: TLabel
+ Left = 509
+ Top = 316
+ Width = 40
+ Height = 13
+ Caption = #26681'/'#31576#40831
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clGray
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ end
object WB_Code: TcxTextEdit
Tag = 2
Left = 113
@@ -498,7 +614,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object WB_ReedNote: TcxTextEdit
Tag = 2
- Left = 630
+ Left = 648
Top = 309
ParentColor = True
ParentFont = False
@@ -517,21 +633,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Top = 309
ParentColor = True
ParentFont = False
- Style.Font.Charset = ANSI_CHARSET
- Style.Font.Color = clWindowText
- Style.Font.Height = -16
- Style.Font.Name = #24494#36719#38597#40657
- Style.Font.Style = []
- Style.IsFontAssigned = True
- TabOrder = 4
- Width = 150
- end
- object WB_ReedNo: TcxTextEdit
- Tag = 2
- Left = 873
- Top = 270
- ParentColor = True
- ParentFont = False
Properties.ReadOnly = True
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
@@ -539,8 +640,25 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
+ TabOrder = 4
+ Width = 112
+ end
+ object WB_ReedNo: TcxTextEdit
+ Tag = 2
+ Left = 874
+ Top = 274
+ ParentColor = True
+ ParentFont = False
+ Properties.ReadOnly = True
+ Properties.OnEditValueChanged = WB_ReedNoPropertiesEditValueChanged
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
TabOrder = 5
- Width = 130
+ Width = 86
end
object C_KCQTY: TcxTextEdit
Tag = 2
@@ -548,6 +666,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Top = 270
ParentColor = True
ParentFont = False
+ Properties.ReadOnly = True
+ Properties.OnEditValueChanged = WB_ReedNoPropertiesEditValueChanged
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
@@ -555,7 +675,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 6
- Width = 150
+ Width = 108
end
object ISSizing: TcxComboBox
Tag = 2
@@ -611,10 +731,11 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object WB_Width: TcxTextEdit
Tag = 2
- Left = 630
+ Left = 648
Top = 270
ParentColor = True
ParentFont = False
+ Properties.ReadOnly = True
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
@@ -622,7 +743,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 10
- Width = 150
+ Width = 105
end
object cxGroupBox1: TcxGroupBox
Left = 3
@@ -915,9 +1036,10 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
object DCRQTY: TcxTextEdit
Tag = 2
Left = 397
- Top = 305
+ Top = 309
ParentColor = True
ParentFont = False
+ Properties.OnEditValueChanged = BCRFQtyPropertiesEditValueChanged
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
@@ -925,13 +1047,45 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 13
- Width = 150
+ Width = 108
+ end
+ object WB_YarnKCQty: TcxTextEdit
+ Tag = 2
+ Left = 403
+ Top = 348
+ ParentColor = True
+ ParentFont = False
+ Properties.OnEditValueChanged = BCRFQtyPropertiesEditValueChanged
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 14
+ Width = 102
+ end
+ object BCRFQty: TcxTextEdit
+ Tag = 2
+ Left = 110
+ Top = 348
+ ParentColor = True
+ ParentFont = False
+ Properties.OnEditValueChanged = BCRFQtyPropertiesEditValueChanged
+ Style.Font.Charset = ANSI_CHARSET
+ Style.Font.Color = clWindowText
+ Style.Font.Height = -16
+ Style.Font.Name = #24494#36719#38597#40657
+ Style.Font.Style = []
+ Style.IsFontAssigned = True
+ TabOrder = 15
+ Width = 112
end
end
object ToolBar2: TToolBar [3]
Tag = 1
Left = 0
- Top = 409
+ Top = 441
Width = 1174
Height = 30
AutoSize = True
diff --git a/E02梭织经轴仓库/U_WBSpecInPut.pas b/E02梭织经轴仓库/U_WBSpecInPut.pas
index f398503..0bcaa90 100644
--- a/E02梭织经轴仓库/U_WBSpecInPut.pas
+++ b/E02梭织经轴仓库/U_WBSpecInPut.pas
@@ -106,6 +106,17 @@ type
DCRQTY: TcxTextEdit;
Label29: TLabel;
Tv1YarnFactor: TcxGridDBColumn;
+ Label25: TLabel;
+ Label26: TLabel;
+ WB_YarnKCQty: TcxTextEdit;
+ BCRFQty: TcxTextEdit;
+ Label27: TLabel;
+ label28: TLabel;
+ Label30: TLabel;
+ Label31: TLabel;
+ Label32: TLabel;
+ Label33: TLabel;
+ Label34: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@@ -125,6 +136,9 @@ type
procedure WB_TYPEPropertiesChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure N1Click(Sender: TObject);
+ procedure BCRFQtyPropertiesEditValueChanged(Sender: TObject);
+ procedure WB_ReedNoPropertiesEditValueChanged(Sender: TObject);
+
private
{ Private declarations }
function SaveData(): Boolean;
@@ -295,6 +309,56 @@ begin
end;
end;
+procedure TfrmWBSpecInPut.BCRFQtyPropertiesEditValueChanged(Sender: TObject);
+var
+ mBCRFQty, mWB_YarnKCQty, mBSQTY: Double; // ΪDouble
+//ߴ뷨 ɴس
+ mWB_YarnQty, mDCRQTY, mC_KCQTY: Double;
+//ܾ ش뷨 س
+begin
+ if BCRFQty.Text <> '' then
+ begin
+ mBCRFQty := StrToFloatDef(BCRFQty.Text, 0); // ʹStrToFloatDefȫ
+ end
+ else
+ begin
+ mBCRFQty := 0;
+ end;
+ if WB_YarnKCQty.Text <> '' then // ˱ӦWB_YarnKCQtyBSQTY
+ begin
+ mWB_YarnKCQty := StrToFloatDef(WB_YarnKCQty.Text, 0);
+ end
+ else
+ begin
+ mWB_YarnKCQty := 0;
+ end;
+ // ɴ
+ mBSQTY := Round(mBCRFQty * mWB_YarnKCQty * 2);
+ BSQTY.Text := FloatToStr(mBSQTY);
+
+ if WB_YarnQty.Text <> '' then
+ begin
+ mWB_YarnQty := StrToFloatDef(WB_YarnQty.Text, 0);
+ end
+ else
+ begin
+ mWB_YarnQty := 0;
+ end;
+ if DCRQTY.Text <> '' then
+ begin
+ mDCRQTY := StrToFloatDef(DCRQTY.Text, 0);
+ end
+ else
+ begin
+ mDCRQTY := 0;
+ end;
+ if mDCRQTY <> 0 then
+ begin
+ mC_KCQTY := RoundFloat(mWB_YarnKCQty * 2 + (mWB_YarnQty - mBSQTY) / mDCRQTY, 2);
+ C_KCQTY.Text := FloatToStr(mC_KCQTY);
+ end;
+end;
+
procedure TfrmWBSpecInPut.btn1Click(Sender: TObject);
begin
try
@@ -341,6 +405,8 @@ begin
end;
end;
+
+
procedure TfrmWBSpecInPut.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
@@ -612,8 +678,6 @@ begin
begin
SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString;
SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString;
- SELF.C_KCQTY.Text := CDS_HZ.FieldByName('GKCS').AsString;
- SELF.WB_Width.Text := CDS_HZ.FieldByName('GKwidth').AsString;
end;
end;
finally
@@ -812,7 +876,7 @@ begin
with CDS_SUB do
begin
Edit;
- FieldByName('MeterQty').Value := roundfloat(mYarnFactor * ZGS / ZS , 2);
+ FieldByName('MeterQty').Value := roundfloat(mYarnFactor * ZGS / ZS, 2);
Post;
end;
end;
@@ -873,6 +937,35 @@ begin
// end;
end;
+procedure TfrmWBSpecInPut.WB_ReedNoPropertiesEditValueChanged(Sender: TObject);
+var
+ mWB_ReedNo,mC_KCQTY, mWB_Width: Double;
+// غ س ط
+begin
+ if WB_ReedNo.Text <> '' then
+ begin
+ mWB_ReedNo := StrToFloatDef(WB_ReedNo.Text, 0); // ʹStrToFloatDefȫ
+ end
+ else
+ begin
+ mWB_ReedNo := 0;
+ end;
+ if C_KCQTY.Text <> '' then
+ begin
+ mC_KCQTY := StrToFloatDef(C_KCQTY.Text, 0); // ʹStrToFloatDefȫ
+ end
+ else
+ begin
+ mC_KCQTY := 0;
+ end;
+
+ if mWB_ReedNo <> 0 then
+ begin
+ mWB_Width := RoundFloat( mC_KCQTY*2/mWB_ReedNo,1 );
+ WB_Width.Text := FloatToStr(mWB_Width) ;
+ end;
+end;
+
procedure TfrmWBSpecInPut.WB_TYPEPropertiesChange(Sender: TObject);
begin
if WB_TYPE.Text = '' then
@@ -894,8 +987,58 @@ begin
end;
procedure TfrmWBSpecInPut.WB_YarnQtyPropertiesEditValueChanged(Sender: TObject);
+var
+ mBCRFQty, mWB_YarnKCQty, mBSQTY: Double; // ΪDouble
+//ߴ뷨 ɴس
+ mWB_YarnQty, mDCRQTY, mC_KCQTY: Double;
begin
JSJS();
+
+
+//ܾ ش뷨
+
+ if BCRFQty.Text <> '' then
+ begin
+ mBCRFQty := StrToFloatDef(BCRFQty.Text, 0); // ʹStrToFloatDefȫ
+ end
+ else
+ begin
+ mBCRFQty := 0;
+ end;
+ if WB_YarnKCQty.Text <> '' then // ˱ӦWB_YarnKCQtyBSQTY
+ begin
+ mWB_YarnKCQty := StrToFloatDef(WB_YarnKCQty.Text, 0);
+ end
+ else
+ begin
+ mWB_YarnKCQty := 0;
+ end;
+ // ɴ
+ mBSQTY := Round(mBCRFQty * mWB_YarnKCQty * 2);
+ BSQTY.Text := FloatToStr(mBSQTY);
+
+ if WB_YarnQty.Text <> '' then
+ begin
+ mWB_YarnQty := StrToFloatDef(WB_YarnQty.Text, 0);
+ end
+ else
+ begin
+ mWB_YarnQty := 0;
+ end;
+ if DCRQTY.Text <> '' then
+ begin
+ mDCRQTY := StrToFloatDef(DCRQTY.Text, 0);
+ end
+ else
+ begin
+ mDCRQTY := 0;
+ end;
+ if mDCRQTY <> 0 then
+ begin
+ mC_KCQTY := RoundFloat(mWB_YarnKCQty * 2 + (mWB_YarnQty - mBSQTY) / mDCRQTY, 2);
+ C_KCQTY.Text := FloatToStr(mC_KCQTY);
+ end;
+
end;
end.
diff --git a/E02梭织经轴仓库/U_YarnStkSel.dfm b/E02梭织经轴仓库/U_YarnStkSel.dfm
index 24aa32e..c1ae88a 100644
--- a/E02梭织经轴仓库/U_YarnStkSel.dfm
+++ b/E02梭织经轴仓库/U_YarnStkSel.dfm
@@ -10,6 +10,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Font.Name = #24494#36719#38597#40657
Position = poMainFormCenter
OnClose = FormClose
+ ExplicitLeft = -672
ExplicitWidth = 1556
ExplicitHeight = 527
PixelsPerInch = 96
@@ -83,7 +84,6 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Color = clWhite
ParentBackground = False
TabOrder = 1
- ExplicitTop = 27
object Label3: TLabel
Left = 257
Top = 10
@@ -189,8 +189,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
- ExplicitTop = 79
- ExplicitHeight = 406
+ ExplicitTop = 71
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -353,7 +352,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 66
+ Width = 70
end
object Tv1Column5: TcxGridDBColumn
Caption = #39068#33394
@@ -385,6 +384,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
+ Width = 70
end
object Tv1Column10: TcxGridDBColumn
Caption = #32442#27861
@@ -415,6 +415,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
DataBinding.FieldName = 'StkPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
+ Width = 70
end
object v2Column6: TcxGridDBColumn
Tag = 2
@@ -441,6 +442,12 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Options.Editing = False
Width = 71
end
+ object Tv1IOTime: TcxGridDBColumn
+ Caption = #20837#24211#26102#38388
+ DataBinding.FieldName = 'IOTime'
+ DataBinding.IsNullValueType = True
+ Width = 80
+ end
object Tv1Column8: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
diff --git a/E02梭织经轴仓库/U_YarnStkSel.pas b/E02梭织经轴仓库/U_YarnStkSel.pas
index c6514be..b77d025 100644
--- a/E02梭织经轴仓库/U_YarnStkSel.pas
+++ b/E02梭织经轴仓库/U_YarnStkSel.pas
@@ -73,6 +73,7 @@ type
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
cxImageList_bar: TcxImageList;
+ Tv1IOTime: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
diff --git a/E03梭织坯布检验/TatInsp.dproj.local b/E03梭织坯布检验/TatInsp.dproj.local
index f892d20..f512bf8 100644
--- a/E03梭织坯布检验/TatInsp.dproj.local
+++ b/E03梭织坯布检验/TatInsp.dproj.local
@@ -1,56 +1,56 @@
- 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
1899/12/30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
- 1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas
- 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas
- 1899/12/30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj
- 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
+ 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
+ 1899/12/30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas
1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
- 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
+ 1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm
+ 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
+ 1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas
+ 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
+ 1899/12/30 00:00:00.000.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.pas
+ 1899/12/30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899/12/30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj
+ 1899/12/30 00:00:00.000.514,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=
- 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899/12/30 00:00:00.000.935,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas
- 1899/12/30 00:00:00.000.514,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
- 1899/12/30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj
- 1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm
- 1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm
+ 1899/12/30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm
+ 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
- 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
- 1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas
- 1899/12/30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
- 1899/12/30 00:00:00.000.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas
- 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
+ 1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm
1899/12/30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas
- 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899/12/30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
- 1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas
- 1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas
- 1899/12/30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj
- 1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm
+ 1899/12/30 00:00:00.000.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas
1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
- 1899/12/30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.dfm
- 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
- 1899/12/30 00:00:00.000.897,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
+ 1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas
+ 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
+ 1899/12/30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj
+ 1899/12/30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas
+ 1899/12/30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
+ 1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas
+ 1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas
1899/12/30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas
+ 1899/12/30 00:00:00.000.897,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas
+ 1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.dfm
+ 1899/12/30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj
+ 1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm
+ 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
+ 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
+ 1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.pas
1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
- 1899/12/30 00:00:00.000.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.pas
- 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899/12/30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.pas
+ 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
diff --git a/E03梭织坯布检验/TatInsp.identcache b/E03梭织坯布检验/TatInsp.identcache
index 2dbcb93..900ed84 100644
Binary files a/E03梭织坯布检验/TatInsp.identcache and b/E03梭织坯布检验/TatInsp.identcache differ
diff --git a/E03梭织坯布检验/TatInspLogin.dproj.local b/E03梭织坯布检验/TatInspLogin.dproj.local
index 7f07b37..e379b49 100644
--- a/E03梭织坯布检验/TatInspLogin.dproj.local
+++ b/E03梭织坯布检验/TatInspLogin.dproj.local
@@ -21,7 +21,7 @@
- 1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj
- 1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj
+ 1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj
+ 1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj