Group_01/D10SZKaiXiYa
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

12.9

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2025-12-09 17:30:17 +08:00
parent d95a6045c9
commit 585aedd9d7
75 changed files with 3300 additions and 1890 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
A00通用窗体/U_SalesContract_SXSel.dfm
View File

@ -67,28 +67,28 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
object Label1: TLabel
Left = 18
Top = 15
Width = 36
Width = 60
Height = 17
Caption = #21512#21516#21495
Caption = #22383#24067#21512#21516#21495
end
object Label2: TLabel
Left = 451
Top = 15
Left = 496
Top = 14
Width = 48
Height = 17
Caption = #20135#21697#21517#31216
end
object Label3: TLabel
Left = 242
Top = 15
Left = 281
Top = 14
Width = 24
Height = 17
Caption = #23458#25143
end
object ConNo: TEdit
Tag = 2
Left = 64
Top = 11
Left = 103
Top = 10
Width = 169
Height = 25
TabOrder = 0
@ -96,8 +96,8 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
end
object C_Name: TEdit
Tag = 2
Left = 514
Top = 11
Left = 564
Top = 10
Width = 169
Height = 25
TabOrder = 1
@ -105,8 +105,8 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
end
object BuyName: TEdit
Tag = 2
Left = 277
Top = 11
Left = 322
Top = 10
Width = 169
Height = 25
TabOrder = 2
@ -122,6 +122,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
BorderStyle = cxcbsNone
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 79
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -173,7 +174,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
Width = 41
end
object TV1Column1: TcxGridDBColumn
Caption = #21512#21516#21495
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@ -181,27 +182,11 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
Width = 88
end
object TV1Column6: TcxGridDBColumn
Caption = #23458#25143#21333#21495
Caption = #38754#26009#21512#21516#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 88
end
object TV1Column5: TcxGridDBColumn
Caption = #32463#33829#21333#20301
DataBinding.FieldName = 'SellName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object TV1Column3: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'BuyName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
Width = 98
end
object TV1Column4: TcxGridDBColumn
Caption = #20013#38388#21830
@ -422,14 +407,6 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
HeaderAlignmentHorz = taCenter
Width = 88
end
object TV1Column12: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
Width = 88
end
object TV1Column15: TcxGridDBColumn
Caption = #32433#32447#29992#37327'KG'
DataBinding.FieldName = 'SXQty'

3
A00通用窗体/U_SalesContract_SXSel.pas
View File

@ -51,9 +51,7 @@ type
cxGridLevel1: TcxGridLevel;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
TV1Column4: TcxGridDBColumn;
TV1Column5: TcxGridDBColumn;
TV1Column6: TcxGridDBColumn;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
@ -81,7 +79,6 @@ type
TV1Column9: TcxGridDBColumn;
TV1Column10: TcxGridDBColumn;
TV1Column11: TcxGridDBColumn;
TV1Column12: TcxGridDBColumn;
TV1Column13: TcxGridDBColumn;
TV1Column14: TcxGridDBColumn;
N3: TMenuItem;

108
A00通用窗体/U_YarnInfoSel.dfm
View File

@ -79,12 +79,13 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
ExplicitTop = 36
object Label1: TLabel
Left = 216
Top = 10
Width = 32
Height = 21
Caption = #21517#31216
Caption = #21697#21517
end
object Label2: TLabel
Left = 7
@ -118,7 +119,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Align = alClient
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 69
object Tv1: TcxGridDBTableView
OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <>
@ -204,15 +204,22 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
VisibleForCustomization = False
Width = 103
end
object v1SPSpec: TcxGridDBColumn
object v1QtyUnit: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 116
Width = 96
end
object Tv1Column2: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object v1Column1: TcxGridDBColumn
Tag = 2
@ -225,15 +232,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
VisibleForCustomization = False
Width = 92
end
object v1QtyUnit: TcxGridDBColumn
Tag = 2
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 96
end
object v1Column10: TcxGridDBColumn
Tag = 2
Caption = #36816#36153
@ -245,21 +243,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
VisibleForCustomization = False
Width = 68
end
object Tv1Column2: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object Tv1SXCBH: TcxGridDBColumn
Caption = #32433#32447#21378#32534#21495
DataBinding.FieldName = 'SXCBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #20998#29305'(Dtex)'
@ -269,13 +252,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Options.Editing = False
Width = 102
end
object Tv1SXCPM: TcxGridDBColumn
Caption = #32433#32447#21378#21697#21517
DataBinding.FieldName = 'SXCPM'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1Column7: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
@ -292,62 +268,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Options.Editing = False
Width = 80
end
object Tv1YarnFactor: TcxGridDBColumn
Caption = #32433#32447#31995#25968
DataBinding.FieldName = 'YarnFactor'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column6: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column12: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 118
end
object Tv1Column3: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'Y_Type'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column8: TcxGridDBColumn
Caption = #26631#26679#26085#26399
DataBinding.FieldName = 'BYDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column9: TcxGridDBColumn
Caption = #21378#23478
DataBinding.FieldName = 'CJ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column10: TcxGridDBColumn
Caption = #29702#35770#25439#32791
DataBinding.FieldName = 'LLSH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

10
A00通用窗体/U_YarnInfoSel.pas
View File

@ -36,12 +36,10 @@ type
v1Column18: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1SPName: TcxGridDBColumn;
v1SPSpec: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1QtyUnit: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
@ -64,21 +62,13 @@ type
N1: TMenuItem;
N2: TMenuItem;
cxImageList_bar: TcxImageList;
Tv1Column3: TcxGridDBColumn;
ToolButton2: TToolButton;
Tv1Column4: TcxGridDBColumn;
Label2: TLabel;
Y_Code: TcxTextEdit;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
ToolButton3: TToolButton;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1YarnFactor: TcxGridDBColumn;
Tv1SXCBH: TcxGridDBColumn;
Tv1SXCPM: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);

1
A00通用窗体/U_YarnPurchasePlanSel.dfm
View File

@ -238,7 +238,6 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel
Align = alClient
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 147
object Tv1: TcxGridDBTableView
OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <>

1
A00通用窗体/U_YarnPurchasePlanSel.pas
View File

@ -194,6 +194,7 @@ begin
sql.Add(' from Pur_YarnPlan_Main A');
sql.Add(' inner join Pur_YarnPlan_sub B on A.PurMId=B.PurMId');
sql.Add(' where isnull(LX,'''') <> ''Ö¯Ôìµ¥'' and isnull(A.status,''0'')=''9''');
sql.Add(' and isnull(C_Degree,'''') = ''É´Ïß'' ');
sql.add(' and A.PurDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.PurDate<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
case cxTabControl1.TabIndex of

112
A02基础产品管理/ClothInfo.dproj.local
View File

@ -1,79 +1,79 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.074,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.208,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\JDAESExtend.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.208,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\JDAESExtend.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.536,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.346,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.441,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.337,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.155,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\ElAES.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.155,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\ElAES.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.082,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.944,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\U_HttpFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.082,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm</Transaction>
<Transaction>2025/08/28 09:29:23.000.693,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>2025/09/24 11:07:38.000.652,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_log.pas</Transaction>
<Transaction>2025/09/24 12:20:14.000.487,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_LogInput.pas</Transaction>

BIN
A02基础产品管理/ClothInfo.identcache
View File

Binary file not shown.

2
A02基础产品管理/U_TatClothInfo.dfm
View File

@ -420,7 +420,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Width = 99
end
object Tv1Column11: TcxGridDBColumn
Caption = #38376#24133
Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter

68
A02基础产品管理/U_TatClothInfoInput.dfm
View File

@ -9,7 +9,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Height = -16
OldCreateOrder = True
Position = poScreenCenter
ExplicitLeft = -351
ExplicitWidth = 1556
ExplicitHeight = 776
PixelsPerInch = 96
@ -83,8 +82,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
ParentCtl3D = False
ParentFont = False
TabOrder = 1
ExplicitLeft = -1
ExplicitTop = 24
object Label1: TLabel
Left = 10
Top = 26
@ -181,9 +178,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object Label9: TLabel
Left = 10
Top = 101
Width = 39
Width = 71
Height = 21
Caption = #38376#24133'*'
Caption = #22383#24067#38376#24133'*'
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
@ -538,6 +535,13 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Style = []
ParentFont = False
end
object Label37: TLabel
Left = 1145
Top = 63
Width = 64
Height = 21
Caption = #20135#21697#31181#31867
end
object BCIID: TEdit
Left = 193
Top = 417
@ -868,6 +872,18 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
TabOrder = 34
Width = 95
end
object C_Kind: TcxComboBox
Tag = 2
Left = 1215
Top = 59
Properties.Items.Strings = (
''
#33394#32455#24067
#30333#22383)
Properties.OnEditValueChanged = MFDWPropertiesEditValueChanged
TabOrder = 35
Width = 99
end
end
object cxPageControl3: TcxPageControl [2]
Left = 0
@ -876,7 +892,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Height = 312
Align = alClient
TabOrder = 2
Properties.ActivePage = cxTabSheet1
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
ClientRectBottom = 312
@ -885,6 +901,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512
ImageIndex = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object GroupBox1: TGroupBox
Left = 931
Top = 0
@ -989,6 +1008,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
end>
Properties.ReadOnly = True
Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick
Properties.OnEditValueChanged = cxGridDBColumn3PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 100
end
@ -1001,9 +1021,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Options.Sorting = False
Width = 100
end
object TV1Column13: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
object TV1Y_Composition: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
@ -1024,6 +1044,13 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
HeaderAlignmentHorz = taCenter
Width = 96
end
object TV1FF: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1Column14: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'Z_Number'
@ -1215,9 +1242,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Options.Sorting = False
Width = 100
end
object Tv2Column13: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
object Tv2Y_Composition: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
@ -1237,6 +1264,13 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
HeaderAlignmentHorz = taCenter
Width = 91
end
object Tv2FF: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2Column14: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'Z_Number'
@ -1278,6 +1312,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
DataBinding.FieldName = 'Y_Loss'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 80
end
@ -1311,6 +1346,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object cxTabSheet3: TcxTabSheet
Caption = #36215#32508#27861
ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel5: TPanel
Left = 0
Top = 0
@ -1368,6 +1406,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object cxTabSheet4: TcxTabSheet
Caption = #31359#32508#27861
ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel3: TPanel
Left = 0
Top = 0
@ -1433,6 +1474,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object cxTabSheet5: TcxTabSheet
Caption = #31359#31576#27861
ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object CKF: TMemo
Tag = 2
Left = 0

139
A02基础产品管理/U_TatClothInfoInput.pas
View File

@ -119,8 +119,6 @@ type
Label17: TLabel;
C_Composition: TcxTextEdit;
Tv2Column12: TcxGridDBColumn;
TV1Column13: TcxGridDBColumn;
Tv2Column13: TcxGridDBColumn;
ADOQuery1: TADOQuery;
ADOQueryTemp2: TADOQuery;
PM_1: TPopupMenu;
@ -190,6 +188,12 @@ type
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
C_Kind: TcxComboBox;
Label37: TLabel;
Tv2Y_Composition: TcxGridDBColumn;
Tv2FF: TcxGridDBColumn;
TV1Y_Composition: TcxGridDBColumn;
TV1FF: TcxGridDBColumn;
procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
@ -224,6 +228,7 @@ type
procedure attname2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure TV1Column10PropertiesEditValueChanged(Sender: TObject);
procedure C_ReedWidthExit(Sender: TObject);
procedure cxGridDBColumn3PropertiesEditValueChanged(Sender: TObject);
private
canshu1: string;
Fint: Integer;
@ -233,6 +238,7 @@ type
procedure JSWS(); //计算纬丝
procedure JSKZ(); //计算克重
function SaveData(): Boolean;
procedure UpdateC_Code();
{ Private declarations }
public
FBCIID, FCTID, JSGG, WSGG, FC_Spec: string;
@ -315,6 +321,12 @@ begin
end;
SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2);
if FBCIID <> '' then
begin
CDS_2.Edit;
CDS_2.FieldByName('Y_Loss').Value := 4.2;
CDS_2.Post;
end;
with ADOQueryTemp do
begin
@ -392,6 +404,7 @@ begin
begin
Append;
FieldByName('RowNo').Value := 'A';
FieldByName('Y_Loss').Value := 4.2;
Post;
Append;
FieldByName('RowNo').Value := 'B';
@ -628,6 +641,7 @@ end;
procedure TfrmTatClothInfoInput.MFDWPropertiesEditValueChanged(Sender: TObject);
begin
JSKZ();
UpdateC_Code();
end;
procedure TfrmTatClothInfoInput.N1Click(Sender: TObject);
@ -775,6 +789,85 @@ begin
Close;
end;
procedure TfrmTatClothInfoInput.UpdateC_Code();
var
mJSDH, mZS, mC_Kind: string;
mC_Code: string;
begin
if FBCIID = '' then
begin
CDS_1.First;
while not CDS_1.Eof do
begin
if CDS_1.FieldByName('Y_Code').AsString <> '' then
begin
mZS := CDS_1.FieldByName('Z_Number').AsString + 'S';
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.add('select * from BS_Yarn_Info_CF where Y_Code = ' + quotedStr(Trim(CDS_1.FieldByName('Y_Code').AsString)));
sql.Add(' order By CFID');
Open;
end;
ADOQueryCmd.First;
while not ADOQueryCmd.Eof do
begin
mJSDH := mJSDH + ADOQueryCmd.FieldByName('DH').AsString;
ADOQueryCmd.Next;
end;
if mC_Code = '' then
begin
mC_Code := mJSDH + '-' + mZS;
end
else
begin
mC_Code := mC_Code + '-' + mJSDH + '-' + mZS;
end;
mJSDH := '';
end;
CDS_1.Next;
end;
if C_Width.Text <> '' then
begin
if mC_Code = '' then
begin
mC_Code := C_Width.Text;
end
else
begin
mC_Code := mC_Code + '-' + C_Width.Text;
end;
end;
if C_Kind.Text <> '' then
begin
if C_Kind.Text = '色织布' then
begin
mC_Kind := 'A';
end
else if C_Kind.Text = '白坯' then
begin
mC_Kind := 'B';
end;
if mC_Code = '' then
begin
mC_Code := mC_Kind;
end
else
begin
mC_Code := mC_Code + '-' + mC_Kind;
end;
end;
C_Code.Text := mC_Code;
end;
end;
function TfrmTatClothInfoInput.SaveData(): Boolean;
var
maxId, maxpbno, maxQZID, HZYRId, JsonStr: string;
@ -1180,6 +1273,13 @@ begin
Application.MessageBox('纬密不能为空！', '提示', 0);
Exit;
end;
if WYAMI.Text = '' then
begin
Application.MessageBox('纬牙密不能为空！', '提示', 0);
Exit;
end;
if WB_Code.Text = '' then
begin
Application.MessageBox('整经工艺编号不能为空！', '提示', 0);
@ -1360,14 +1460,14 @@ begin
FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value;
FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value;
FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value;
// FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value;
FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value;
FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value;
FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value;
FieldByName('YarnFactor').Value := frmYarnInfoSel.CDS_1.fieldbyname('YarnFactor').Value;
// FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value;
FieldByName('YarnFactor').Value := 0.059;
FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value;
// 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('Z_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value;
@ -1386,6 +1486,11 @@ begin
end;
procedure TfrmTatClothInfoInput.cxGridDBColumn3PropertiesEditValueChanged(Sender: TObject);
begin
UpdateC_Code();
end;
procedure TfrmTatClothInfoInput.cxGridDBColumn4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
@ -1497,6 +1602,7 @@ begin
JSJS();
JSWS();
JSKZ();
UpdateC_Code();
end;
procedure TfrmTatClothInfoInput.C_WidthBtnDnClick(Sender: TObject);
@ -1683,7 +1789,7 @@ begin
end;
end;
UpdateC_Code();
end;
procedure TfrmTatClothInfoInput.TV1Column1PropertiesEditValueChanged(Sender: TObject);
@ -1760,7 +1866,11 @@ begin
// mvalue := TcxTextEdit(Sender).EditingText;
// FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
if not CDS_2.IsEmpty then
begin
CDS_2.First;
while (CDS_2.FieldByName('Y_Code').asString <> '') and (CDS_2.FieldByName('Y_Code').asString <> null) do
begin
with CDS_2 do
begin
// Edit;
@ -1825,6 +1935,10 @@ begin
Post;
end;
end;
CDS_2.Next;
end;
end;
JSKZ();
end;
@ -1842,14 +1956,13 @@ begin
FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value;
FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value;
FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value;
FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value;
FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value;
FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value;
FieldByName('YarnFactor').Value := frmYarnInfoSel.CDS_1.fieldbyname('YarnFactor').Value;
// FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value;
FieldByName('YarnFactor').Value := 0.059;
FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value;
// 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('Z_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value;
@ -1917,7 +2030,7 @@ begin
FieldByName('Y_Name').Value := ADOQuery1.fieldbyname('Y_Name').Value;
FieldByName('Y_Color').Value := ADOQuery1.fieldbyname('Y_Color').Value;
FieldByName('Y_Spec').Value := ADOQuery1.fieldbyname('Y_Spec').Value;
FieldByName('Y_Composition').Value := ADOQuery1.fieldbyname('Y_Composition').Value;
FieldByName('YarnQty').Value := ADOQuery1.fieldbyname('YarnQty').Value;
FieldByName('CycleYarnQty').Value := ADOQuery1.fieldbyname('CycleYarnQty').Value;

106
B01基础合同管理/Contract.dproj.local
View File

@ -1,87 +1,87 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\U_finishSalesConInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.284,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractCPSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\U_finishSalesConInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>

BIN
B01基础合同管理/Contract.identcache
View File

Binary file not shown.

4
B01基础合同管理/U_GetDllForm.pas
View File

@ -76,8 +76,8 @@ begin
user := 'kaixiyasa';
pswd := 'rightsoft,.KXY@YN';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// Parameters1 := '管理';
Parameters1 := '查询';
Parameters1 := '管理';
// Parameters1 := '查询';
end
else
begin

4
B01基础合同管理/U_SalesContractList.dfm
View File

@ -723,7 +723,7 @@ inherited frmSalesContractList: TfrmSalesContractList
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 11
Properties.TabIndex = 2
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#25552#20132
#24050#25552#20132
@ -763,8 +763,6 @@ inherited frmSalesContractList: TfrmSalesContractList
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 0
ExplicitLeft = 0
ExplicitTop = -2
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

50
B01基础合同管理/U_SalesContractList.pas
View File

@ -230,20 +230,20 @@ end;
procedure TfrmSalesContractList.InitSub();
begin
// if CDS_1.IsEmpty then
// exit;
// with ADOQueryTemp do
// begin
// close;
// sql.Clear;
// sql.Add('select * from BS_Contract_sub A ');
// sql.Add('where ConMID =' + quotedstr((CDS_1.fieldbyname('ConMID').AsString)));
// open;
// end;
// SCreateCDS(ADOQueryTemp, CDS_2);
// SInitCDSData(ADOQueryTemp, CDS_2);
//
// TV2.DataController.Filter.Clear;
if CDS_1.IsEmpty then
exit;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from BS_Contract_sub A ');
sql.Add('where ConMID =' + quotedstr((CDS_1.fieldbyname('ConMID').AsString)));
open;
end;
SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2);
TV2.DataController.Filter.Clear;
end;
procedure TfrmSalesContractList.N1Click(Sender: TObject);
@ -296,6 +296,7 @@ begin
ToolButton2.Enabled := true;
TBAdd.Enabled := true;
TBPrint.Enabled := True;
panel2.Visible := True;
case cxTabControl1.TabIndex of
0:
begin
@ -327,6 +328,7 @@ begin
ToolButton2.Enabled := true;
TBAdd.Enabled := true;
TBPrint.Enabled := True;
panel2.Visible := True;
case cxTabControl1.TabIndex of
0:
begin
@ -357,7 +359,7 @@ begin
if Trim(FAuthority) = '²éѯ' then
begin
TBPrint.Enabled := True;
panel2.Visible := True;
end;
end;
@ -419,10 +421,20 @@ begin
Close;
sql.Clear;
if Trim(FAuthority) = '²éѯ' then
begin
sql.Add('select AA.*,B.* from (select A.*');
sql.Add(' from BS_Contract_Main A ) AA ');
sql.Add(' right join BS_Contract_Sub B on AA.ConMID = B.ConMID ');
sql.Add('where 1=1 ' + (WSql));
end
else
begin
sql.Add('select AA.* from (select A.*');
sql.Add(' from BS_Contract_Main A ) AA ');
sql.Add('where 1=1 ' + (WSql));
end;
sql.Add(' and AA.ConType in (''ÄÚÏú'',''ÍâÏú'') ');
if Trim(FAuthority) = '¼Èë' then
@ -528,6 +540,10 @@ procedure TfrmSalesContractList.TBRafreshClick(Sender: TObject);
begin
ToolBar1.SetFocus;
InitGrid();
if Trim(FAuthority) = '²éѯ' then
begin
InitSub();
end;
end;
procedure TfrmSalesContractList.TBAddClick(Sender: TObject);
@ -563,6 +579,7 @@ begin
SetStatus();
InitGrid();
InitSub();
end;
procedure TfrmSalesContractList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
@ -833,9 +850,12 @@ begin
end;
procedure TfrmSalesContractList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
if Trim(FAuthority) <> '²éѯ' then
begin
InitSub();
end;
end;
procedure TfrmSalesContractList.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin

78
B01基础合同管理/U_TatSCTLLIST.dfm
View File

@ -6,6 +6,7 @@ inherited frmSCTLLIST: TfrmSCTLLIST
ClientWidth = 1540
Font.Height = -16
Position = poScreenCenter
ExplicitLeft = -607
ExplicitWidth = 1556
ExplicitHeight = 688
PixelsPerInch = 96
@ -154,6 +155,7 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 4
ExplicitTop = 115
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -269,6 +271,22 @@ inherited frmSCTLLIST: TfrmSCTLLIST
HeaderAlignmentHorz = taCenter
Width = 107
end
object Tv1JSQty: TcxGridDBColumn
Caption = #32463#32433#24635#37325#37327
DataBinding.FieldName = 'JSQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = cxStyle2
Width = 137
end
object Tv1WSQty: TcxGridDBColumn
Caption = #32428#32433#24635#37325#37327
DataBinding.FieldName = 'WSQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = cxStyle2
Width = 131
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv1
@ -281,7 +299,7 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Height = 211
Align = alBottom
TabOrder = 5
Properties.ActivePage = cxTabSheet2
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
ClientRectBottom = 211
@ -358,7 +376,8 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Height = 181
Align = alClient
TabOrder = 1
object cxGridDBTableView1: TcxGridDBTableView
ExplicitLeft = -2
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
@ -412,8 +431,8 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Width = 100
end
object TV1Column13: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
@ -472,6 +491,14 @@ inherited frmSCTLLIST: TfrmSCTLLIST
HeaderAlignmentHorz = taCenter
Width = 163
end
object Tv3Y_Qty: TcxGridDBColumn
Caption = #32433#32447#24635#29992#37327'KG'
DataBinding.FieldName = 'allYarn'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = cxStyle2
Width = 146
end
object TV1Column11: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'NOTE'
@ -481,7 +508,7 @@ inherited frmSCTLLIST: TfrmSCTLLIST
end
end
object cxGridLevel1: TcxGridLevel
GridView = cxGridDBTableView1
GridView = Tv3
end
end
end
@ -664,11 +691,19 @@ inherited frmSCTLLIST: TfrmSCTLLIST
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2MeterQty: TcxGridDBColumn
Caption = #30334#31859#32463#38271#37325#37327'KG'
DataBinding.FieldName = 'MeterQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 172
end
object Tv2Column8: TcxGridDBColumn
Caption = #32433#32447#24635#29992#37327'KG'
DataBinding.FieldName = 'allYarn'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = cxStyle2
Width = 151
end
object Tv2Column12: TcxGridDBColumn
@ -697,9 +732,10 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Top = 209
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 296
Top = 368
Left = 264
Top = 328
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Contract.ADOLink
@ -763,9 +799,10 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Top = 444
end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 296
Top = 448
Left = 352
Top = 336
end
object CDS_3: TClientDataSet
Aggregates = <>
@ -778,4 +815,27 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Left = 712
Top = 384
end
object cxStyleRepository1: TcxStyleRepository
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svColor, svTextColor]
Color = clWindowText
TextColor = clMenuHighlight
end
object cxStyle2: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = DEFAULT_CHARSET
Font.Color = clMenuHighlight
Font.Height = -11
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
TextColor = clMenuHighlight
end
end
object GPM_3: TcxGridPopupMenu
Grid = cxGrid3
PopupMenus = <>
Left = 432
Top = 312
end
end

43
B01基础合同管理/U_TatSCTLLIST.pas
View File

@ -64,7 +64,7 @@ type
Panel2: TPanel;
cxPageControl2: TcxPageControl;
cxGrid2: TcxGrid;
cxGridDBTableView1: TcxGridDBTableView;
Tv3: TcxGridDBTableView;
TV1Column7: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
@ -100,6 +100,14 @@ type
cxGridLevel3: TcxGridLevel;
CDS_3: TClientDataSet;
DS_3: TDataSource;
Tv3Y_Qty: TcxGridDBColumn;
Tv2MeterQty: TcxGridDBColumn;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxStyle2: TcxStyle;
GPM_3: TcxGridPopupMenu;
Tv1WSQty: TcxGridDBColumn;
Tv1JSQty: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -156,15 +164,26 @@ begin
end;
procedure TfrmSCTLLIST.InitGrid();
var
mJSQty,mWSQty : double;
begin
try
ADOQueryMain.DisableControls;
mJSQty := 0;
mWSQty := 0;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('SELECT * FROM V_CON_TL ');
sql.Add('SELECT *');
sql.Add(',JSQty = ( select ISNULL(SUM(X.MeterQty), 0) * A.zsqty/100 from BS_Cloth_Yarn X inner join Bs_Cloth_Info Y on Y.BCIID=X.BCIID ');
sql.Add(' where X.YRType=''经丝'' and Y.C_Code=A.C_Code group by X.BCIID )');
sql.Add(',WSQty = ( select ISNULL(SUM(X.MeterQty), 0) * A.zsqty/100 from BS_Cloth_Yarn X inner join Bs_Cloth_Info Y on Y.BCIID=X.BCIID ');
sql.Add(' where X.YRType=''纬丝'' and Y.C_Code=A.C_Code group by X.BCIID )');
sql.Add(' FROM V_CON_TL A');
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);
@ -183,11 +202,17 @@ var
zsqtyValue: string;
begin
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)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
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) + '''');
Open;
end;
@ -195,9 +220,6 @@ begin
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;
@ -276,7 +298,9 @@ end;
procedure TfrmSCTLLIST.ToolButton2Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + '1', Tv1, '合同');
WriteCxGrid(trim(self.Caption) + '1', Tv1, '生产投料计算表');
WriteCxGrid(trim(self.Caption) + '1', Tv2, '生产投料计算表');
WriteCxGrid(trim(self.Caption) + '1', Tv3, '生产投料计算表');
end;
@ -376,7 +400,9 @@ procedure TfrmSCTLLIST.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption) + '1', Tv1, '坯布生产');
ReadCxGrid(trim(self.Caption) + '1', Tv1, '生产投料计算表');
ReadCxGrid(trim(self.Caption) + '1', Tv2, '生产投料计算表');
ReadCxGrid(trim(self.Caption) + '1', Tv3, '生产投料计算表');
InitGrid();
end;
@ -398,3 +424,4 @@ end;
end.

113
B01基础合同管理/U_finishSalesContractList.dfm
View File

@ -7,6 +7,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
ExplicitLeft = -550
ExplicitWidth = 1556
ExplicitHeight = 810
PixelsPerInch = 96
@ -202,7 +203,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Align = alClient
PopupMenu = pm1
TabOrder = 3
ExplicitLeft = 1
ExplicitLeft = -1
ExplicitTop = 152
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
@ -292,6 +293,111 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
HeaderAlignmentHorz = taCenter
Width = 134
end
object Tv1C_Code: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 85
end
object Tv1C_Name: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1C_Composition: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1C_Spec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1density: TcxGridDBColumn
Caption = #23494#24230
DataBinding.FieldName = 'density'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1C_Width: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1C_WidthUnit: TcxGridDBColumn
Caption = #26377#25928#38376#24133
DataBinding.FieldName = 'C_WidthUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1ConQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'ConQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1ConUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'ConUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 76
end
object Tv1ShaZhi: TcxGridDBColumn
Caption = #32433#25903
DataBinding.FieldName = 'ShaZhi'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1C_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1SampleTime: TcxGridDBColumn
Caption = #26631#26679#26102#38388
DataBinding.FieldName = 'SampleTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1ConPrice: TcxGridDBColumn
Caption = #21333#20215'('#26410#31246')'
DataBinding.FieldName = 'ConPrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1Currency: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1ConTotalAmount: TcxGridDBColumn
Caption = #37329#39069'('#19981#21547#31246')'
DataBinding.FieldName = 'ConTotalAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@ -441,6 +547,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Align = alBottom
Caption = 'Panel2'
TabOrder = 5
Visible = False
object cxGrid2: TcxGrid
Left = 1
Top = 1
@ -449,7 +556,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Align = alLeft
BorderStyle = cxcbsNone
TabOrder = 0
ExplicitLeft = -5
ExplicitLeft = 0
ExplicitTop = -4
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
@ -578,7 +685,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Options.Editing = False
Width = 70
end
object v1OrderUnit: TcxGridDBColumn
object v1ConUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'ConUnit'
DataBinding.IsNullValueType = True

48
B01基础合同管理/U_finishSalesContractList.pas
View File

@ -89,7 +89,7 @@ type
cxGridDBColumn4: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
v1ConUnit: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Order_Sub: TClientDataSet;
Tv1DlyDate: TcxGridDBColumn;
@ -115,6 +115,21 @@ type
Tv1InspStandard: TcxGridDBColumn;
Tv1InspScore: TcxGridDBColumn;
TbDel: TToolButton;
Tv1C_Code: TcxGridDBColumn;
Tv1C_Name: TcxGridDBColumn;
Tv1C_Composition: TcxGridDBColumn;
Tv1C_Spec: TcxGridDBColumn;
Tv1density: TcxGridDBColumn;
Tv1C_Width: TcxGridDBColumn;
Tv1C_WidthUnit: TcxGridDBColumn;
Tv1ConQty: TcxGridDBColumn;
Tv1ConUnit: TcxGridDBColumn;
Tv1ShaZhi: TcxGridDBColumn;
Tv1C_Color: TcxGridDBColumn;
Tv1SampleTime: TcxGridDBColumn;
Tv1ConPrice: TcxGridDBColumn;
Tv1Currency: TcxGridDBColumn;
Tv1ConTotalAmount: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -265,6 +280,7 @@ begin
ToolButton2.Enabled := true;
TBAdd.Enabled := true;
TBPrint.Enabled := True;
panel2.Visible := True;
case cxTabControl1.TabIndex of
0:
begin
@ -296,6 +312,7 @@ begin
begin
ToolButton2.Enabled := true;
TBAdd.Enabled := true;
panel2.Visible := True;
TBPrint.Enabled := True;
case cxTabControl1.TabIndex of
0:
@ -328,6 +345,7 @@ begin
if Trim(FAuthority) = '²éѯ' then
begin
TBPrint.Enabled := True;
end;
end;
@ -448,9 +466,21 @@ begin
Close;
sql.Clear;
if Trim(FAuthority) = '²éѯ' then
begin
sql.Add('select AA.*,B.* from (select A.*');
sql.Add(' from CP_Contract_Main A ) AA ');
sql.Add(' right join CP_Contract_Sub B on AA.ConMID = B.ConMID ');
sql.Add('where 1=1 ' + (WSql));
end
else
begin
sql.Add('select AA.* from (select A.*');
sql.Add(' from CP_Contract_Main A ) AA ');
sql.Add('where 1=1 ' + (WSql));
end;
// sql.Add(' and AA.ConType in (''ÄÚÏú'',''ÍâÏú'') ');
if Trim(FAuthority) = '¼Èë' then
@ -556,6 +586,11 @@ procedure TfrmfinishSalesContractList.TBRafreshClick(Sender: TObject);
begin
ToolBar1.SetFocus;
InitGrid();
if Trim(FAuthority) = '²éѯ' then
begin
InitSub();
end;
end;
procedure TfrmfinishSalesContractList.TBAddClick(Sender: TObject);
@ -591,8 +626,11 @@ begin
SetStatus();
InitGrid();
if Trim(FAuthority) = '²éѯ' then
begin
InitSub();
end;
end;
procedure TfrmfinishSalesContractList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
@ -879,9 +917,12 @@ begin
end;
procedure TfrmfinishSalesContractList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
if Trim(FAuthority) <> '²éѯ' then
begin
InitSub();
end;
end;
procedure TfrmfinishSalesContractList.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
@ -895,7 +936,6 @@ begin
open;
end;
if CDS_2.IsEmpty then
exit;
with ADOQueryCMD do
@ -909,12 +949,8 @@ begin
SCreateCDS(ADOQueryCMD, CDS_3);
SInitCDSData(ADOQueryCMD, CDS_3);
end;
procedure TfrmfinishSalesContractList.TqxClick(Sender: TObject);
var
MConMIDS: string;

53
B01基础合同管理/testDll.dproj
View File

@ -4,7 +4,7 @@
<MainSource>testDll.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>38017</TargetedPlatforms>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Application</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.2</ProjectVersion>
@ -13,16 +13,6 @@
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
<Base_Android64>true</Base_Android64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
<Base_iOSDevice64>true</Base_iOSDevice64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
@ -49,24 +39,6 @@
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
<Cfg_2_Android64>true</Cfg_2_Android64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
<Cfg_2_OSX64>true</Cfg_2_OSX64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
@ -87,15 +59,8 @@
<VerInfo_Locale>2052</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Android64)'!=''">
<Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
@ -126,19 +91,11 @@
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\testDll.exe</Debugger_HostApplication>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
@ -169,10 +126,6 @@
</Source>
</Delphi.Personality>
<Platforms>
<Platform value="Android64">True</Platform>
<Platform value="iOSDevice64">True</Platform>
<Platform value="Linux64">True</Platform>
<Platform value="OSX64">True</Platform>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>

5
B01基础合同管理/testDll.skincfg Normal file
View File

@ -0,0 +1,5 @@
[ExpressSkins]
Default=1
ShowNotifications=1
Enabled=1
dxSkinsDefaultPainters=1

4
B02基础纱线仓库/U_YarnCFInfoSel.dfm
View File

@ -36,7 +36,6 @@ inherited frmYarnCFInfoSel: TfrmYarnCFInfoSel
ParentFont = False
ShowCaptions = True
TabOrder = 0
ExplicitTop = 6
object ToolButton1: TToolButton
Left = 0
Top = 0
@ -95,7 +94,6 @@ inherited frmYarnCFInfoSel: TfrmYarnCFInfoSel
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
ExplicitTop = 32
object Label1: TLabel
Left = 18
Top = 17
@ -120,7 +118,7 @@ inherited frmYarnCFInfoSel: TfrmYarnCFInfoSel
Height = 476
Align = alClient
TabOrder = 2
ExplicitTop = 88
ExplicitTop = 76
object Tv1: TcxGridDBTableView
OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <>

31
B02基础纱线仓库/U_YarnCFInfoSel.pas
View File

@ -241,10 +241,37 @@ end;
procedure TfrmYarnCFInfoSel.ToolButton3Click(Sender: TObject);
begin
// CDS_1.First;
// while not CDS_1.Eof do
// begin
// if CDS_1.FieldByName('SSel').AsBoolean = True then
// begin
//
//
//
//
// end;
// CDS_1.Next; // 移动到下一条记录
// end;
if CDS_1.FieldByName('CFID').AsString <> '' then
begin
Application.MessageBox('已保存成分不能删除！','提示信息',MB_OK);
exit;
if MessageDlg('确定要删除这条记录吗？', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Add('delete from BS_Yarn_Info_CF where CFID = ' + QuotedStr(Trim(CDS_1.FieldByName('CFID').AsString)));
ExecSQL;
end;
CDS_1.Delete;
ShowMessage('删除成功！');
end
else
begin
Exit;
end;
end
else
begin

2
B02基础纱线仓库/U_YarnInEdit.dfm
View File

@ -9,7 +9,6 @@ inherited frmYarnInEdit: TfrmYarnInEdit
Font.Height = -16
Position = poScreenCenter
OnClose = FormClose
ExplicitLeft = -639
ExplicitWidth = 1556
ExplicitHeight = 618
PixelsPerInch = 96
@ -22,7 +21,6 @@ inherited frmYarnInEdit: TfrmYarnInEdit
Height = 549
Align = alClient
TabOrder = 0
ExplicitTop = 36
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

1
B02基础纱线仓库/U_YarnInEdit.pas
View File

@ -204,6 +204,7 @@ begin
FieldByName('FromSubId').Value := CDS_Sub.fieldbyname('FromSubId').value;
FieldByName('FromPurMId').Value := CDS_Sub.fieldbyname('FromPurMId').Value;
FieldByName('FromPurSId').Value := CDS_Sub.fieldbyname('FromPurSId').Value;
FieldByName('FromPurNo').Value := CDS_Sub.fieldbyname('FromPurNo').Value;
FieldByName('BYIOID').Value := Trim(Maxno);
FieldByName('STKID').Value := Trim(Maxno);

401
B02基础纱线仓库/U_YarnInList.dfm
View File

@ -5,7 +5,6 @@ inherited frmYarnInList: TfrmYarnInList
ClientHeight = 640
ClientWidth = 1540
Font.Height = -16
ExplicitLeft = -689
ExplicitWidth = 1556
ExplicitHeight = 679
PixelsPerInch = 96
@ -30,7 +29,7 @@ inherited frmYarnInList: TfrmYarnInList
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 3
TabOrder = 2
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -158,7 +157,8 @@ inherited frmYarnInList: TfrmYarnInList
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 4
TabOrder = 3
ExplicitTop = 36
object Label3: TLabel
Left = 248
Top = 46
@ -300,7 +300,7 @@ inherited frmYarnInList: TfrmYarnInList
end
object IOType: TcxComboBox
Left = 96
Top = 78
Top = 77
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
''
@ -320,15 +320,41 @@ inherited frmYarnInList: TfrmYarnInList
Width = 150
end
end
object cxGrid1: TcxGrid [2]
inherited loadProcess: TPanel
Left = 344
Top = 267
ExplicitLeft = 344
ExplicitTop = 267
end
inherited cxProgressBar2: TcxProgressBar
Left = 339
Top = 335
ExplicitLeft = 339
ExplicitTop = 335
ExplicitHeight = 29
end
object PageControl1: TPageControl [4]
Left = 0
Top = 148
Width = 1540
Height = 492
ActivePage = TabSheet1
Align = alClient
TabOrder = 4
ExplicitTop = 143
object TabSheet1: TTabSheet
Caption = #27491#24120#25968#25454
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1532
Height = 456
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 154
TabOrder = 0
ExplicitTop = 506
ExplicitWidth = 1540
ExplicitHeight = 136
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -471,6 +497,7 @@ inherited frmYarnInList: TfrmYarnInList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column20: TcxGridDBColumn
Caption = #21697#29260
@ -633,18 +660,327 @@ inherited frmYarnInList: TfrmYarnInList
GridView = Tv1
end
end
inherited loadProcess: TPanel
Left = 344
Top = 267
ExplicitLeft = 344
ExplicitTop = 267
end
inherited cxProgressBar2: TcxProgressBar
Left = 339
Top = 335
ExplicitLeft = 339
ExplicitTop = 335
ExplicitHeight = 29
object TabSheet2: TTabSheet
Caption = #20316#24223#25968#25454
ImageIndex = 1
object cxGrid2: TcxGrid
Left = 0
Top = 0
Width = 1532
Height = 456
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
ExplicitTop = 506
ExplicitWidth = 1540
ExplicitHeight = 136
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn24
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 cxGridDBColumn1: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSEL'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 46
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BYIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
end
object cxGridDBColumn3: TcxGridDBColumn
Tag = 2
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'ioTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 93
end
object cxGridDBColumn4: TcxGridDBColumn
Tag = 2
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#27491#24120#20837#24211
#29983#20135#36864#22238
#26399#21021#20837#24211)
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object cxGridDBColumn5: 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 = 116
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'Supplier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 86
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 91
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object cxGridDBColumn9: 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 = 99
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'Y_Type'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #21697#29260
DataBinding.FieldName = 'Brand'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object cxGridDBColumn12: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object cxGridDBColumn13: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn14: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #29702#35770'D'#25968
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn16: TcxGridDBColumn
Caption = #23454#27979'D'#25968
DataBinding.FieldName = 'TestDenier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object cxGridDBColumn17: TcxGridDBColumn
Caption = #28504#36890#21495
DataBinding.FieldName = 'Y_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 91
end
object cxGridDBColumn18: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn19: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn20: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 89
end
object cxGridDBColumn21: TcxGridDBColumn
Caption = #31665'/'#20214
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object cxGridDBColumn22: TcxGridDBColumn
Caption = #32433#32447#21378#32534#21495
DataBinding.FieldName = 'SXCBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object cxGridDBColumn23: TcxGridDBColumn
Caption = #32433#32447#21378#21697#21517
DataBinding.FieldName = 'SXCPM'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object cxGridDBColumn24: TcxGridDBColumn
Tag = 2
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85
end
object cxGridDBColumn25: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn26: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object cxGridDBColumn27: TcxGridDBColumn
Caption = #38468#20214
DataBinding.FieldName = 'FJFlag'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 50
end
object cxGridDBColumn28: TcxGridDBColumn
Caption = #26159#21542#25277#26816
DataBinding.FieldName = 'ISCJ'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_YarnStk.ADOLink
@ -682,10 +1018,9 @@ inherited frmYarnInList: TfrmYarnInList
Top = 400
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 736
Top = 400
Left = 328
Top = 320
end
object CDS_Main: TClientDataSet
Aggregates = <>
@ -705,4 +1040,28 @@ inherited frmYarnInList: TfrmYarnInList
OnClick = N2Click
end
end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 440
Top = 320
end
object CDS_Main_Del: TClientDataSet
Aggregates = <>
Params = <>
Left = 628
Top = 452
end
object DS_2: TDataSource
DataSet = CDS_Main_Del
Left = 788
Top = 468
end
object ADOQueryMain_Del: TADOQuery
Connection = DataLink_YarnStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 480
Top = 352
end
end

140
B02基础纱线仓库/U_YarnInList.pas
View File

@ -44,54 +44,92 @@ type
Y_Name: TcxTextEdit;
FromCoName: TcxTextEdit;
Y_spec: TcxTextEdit;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column6: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
v1Column10: TcxGridDBColumn;
Label10: TLabel;
BatchNo: TcxTextEdit;
v1Column20: TcxGridDBColumn;
ToolButton1: TToolButton;
Label6: TLabel;
BYIOID: TcxTextEdit;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
ToolButton2: TToolButton;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Label5: TLabel;
Supplier: TcxTextEdit;
Frame11: TfrmFrameDateSel;
IOType: TcxComboBox;
Tv1Column11: TcxGridDBColumn;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
Tv1Column8: TcxGridDBColumn;
Y_Code: TcxTextEdit;
Label1: TLabel;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
ToolButton5: TToolButton;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
ToolButton6: TToolButton;
Tv1Column6: TcxGridDBColumn;
ToolButton7: TToolButton;
Tv1Column7: TcxGridDBColumn;
Tv1SXCPM: TcxGridDBColumn;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
Tv1Column9: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
v1Column20: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1SXCBH: TcxGridDBColumn;
Tv1SXCPM: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn17: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridDBColumn19: TcxGridDBColumn;
cxGridDBColumn20: TcxGridDBColumn;
cxGridDBColumn21: TcxGridDBColumn;
cxGridDBColumn22: TcxGridDBColumn;
cxGridDBColumn23: TcxGridDBColumn;
cxGridDBColumn24: TcxGridDBColumn;
cxGridDBColumn25: TcxGridDBColumn;
cxGridDBColumn26: TcxGridDBColumn;
cxGridDBColumn27: TcxGridDBColumn;
cxGridDBColumn28: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
GPM_2: TcxGridPopupMenu;
CDS_Main_Del: TClientDataSet;
DS_2: TDataSource;
ADOQueryMain_Del: TADOQuery;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -121,6 +159,7 @@ type
canshu1, FStkName, canshu3: string;
procedure InitGrid();
procedure setStatus();
procedure InitDelGrid();
{ Private declarations }
public
@ -189,10 +228,44 @@ begin
end;
end;
procedure TfrmYarnInList.InitDelGrid();
begin
try
ADOQueryMain_Del.DisableControls;
with ADOQueryMain_Del do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(',Case when ISnull(CJDate,'''') <> '''' ');
sql.Add('then Cast(1 as bit) else Cast(0 as bit) end as ISCJ');
sql.Add(',Case when isnull((select count(*) from FJ_File where WBID=A.BYIOID and TFType=''É´Ïß'' ),0)>0 ');
sql.Add('then Cast(1 as bit) else Cast(0 as bit) end as FJFlag');
sql.Add(' from BS_Yarn_IO_Del A');
sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', Frame11.BegDate.Date)) + '''');
sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', Frame11.enddate.Date + 1)) + '''');
sql.Add(' and isnull(StkName,'''')=''' + Trim(FStkName) + '''');
SQL.Add(' and IOFlag=''Èë¿â'' ');
SQL.Add(' order by IOTime desc');
Open;
end;
SDofilter(ADOQueryMain_Del, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain_Del, CDS_Main_Del);
SInitCDSData(ADOQueryMain_Del, CDS_Main_Del);
finally
ADOQueryMain_Del.EnableControls;
end;
end;
procedure TfrmYarnInList.TBRafreshClick(Sender: TObject);
begin
ToolBar1.SetFocus;
InitGrid();
InitDelGrid();
end;
procedure TfrmYarnInList.ToolButton1Click(Sender: TObject);
@ -410,6 +483,7 @@ begin
ReadCxGrid(Self.Caption + '2', Tv1, 'É´Ïß²Ö¿â');
setStatus();
InitGrid();
InitDelGrid();
end;
procedure TfrmYarnInList.TBExportClick(Sender: TObject);
@ -427,6 +501,12 @@ begin
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
end;
if ADOQueryMain_Del.Active then
begin
SDofilter(ADOQueryMain_Del, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain_Del, CDS_Main_Del);
SInitCDSData(ADOQueryMain_Del, CDS_Main_Del);
end;
end;
procedure TfrmYarnInList.N1Click(Sender: TObject);

1
B02基础纱线仓库/U_YarnInfoInPut.dfm
View File

@ -33,6 +33,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
ParentFont = False
ShowCaptions = True
TabOrder = 0
ExplicitTop = -6
object TBSave: TToolButton
Left = 0
Top = 0

19
B02基础纱线仓库/U_YarnInfoInPut.pas
View File

@ -517,7 +517,24 @@ begin
// 尝试将字符串转换为浮点数
fValue := StrToFloat(s);
// 格式化为两位小数并添加百分号
Tv1.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%';
// Tv1.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%';
Tv1.Controller.FocusedColumn.EditValue := s + '%';
Y_Composition.Text := '';
CDS_1.First;
while not CDS_1.Eof do
begin
if Y_Composition.Text = '' then
begin
Y_Composition.Text := CDS_1.FieldByName('BL').AsString + CDS_1.FieldByName('CF').AsString;
end
else
begin
Y_Composition.Text := Y_Composition.Text + ' ' + CDS_1.FieldByName('BL').AsString + CDS_1.FieldByName('CF').AsString;
end;
CDS_1.Next;
end;
except
on E: EConvertError do
begin

1
B02基础纱线仓库/U_YarnInfoList.dfm
View File

@ -214,6 +214,7 @@ inherited frmYarnInfoList: TfrmYarnInfoList
Height = 483
Align = alClient
TabOrder = 2
ExplicitTop = 71
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

148
B02基础纱线仓库/YarnStk.dproj.local
View File

@ -1,98 +1,98 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>2025/09/02 12:38:38.000.487,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_TatPlanMachInput.pas</Transaction>
<Transaction>2025/09/02 12:42:57.000.345,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_WBSpecSel.pas</Transaction>
</Transactions>

BIN
B02基础纱线仓库/YarnStk.identcache
View File

Binary file not shown.

3
B04采购计划管理/PurchasePlan.dpr
View File

@ -42,7 +42,8 @@ uses
U_YarnPurchasePlanPut_ZZD in 'U_YarnPurchasePlanPut_ZZD.pas' {frmYarnPurchasePlanPut_ZZD},
U_SalesContract_ZZDSXSel in '..\A00通用窗体\U_SalesContract_ZZDSXSel.pas' {frmSalesContract_ZZDSXSel},
U_SalesContract_SXSel in '..\A00通用窗体\U_SalesContract_SXSel.pas' {frmSalesContract_SXSel},
U_GKManageSel in 'U_GKManageSel.pas' {frmGKManageSel};
U_GKManageSel in 'U_GKManageSel.pas' {frmGKManageSel},
U_YarnCFInfoSel in '..\B02»ù´¡É´Ïß²Ö¿â\U_YarnCFInfoSel.pas' {frmYarnCFInfoSel};
{$R *.res}

4
B04采购计划管理/PurchasePlan.dproj
View File

@ -202,6 +202,10 @@
<Form>frmGKManageSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\B02基础纱线仓库\U_YarnCFInfoSel.pas">
<Form>frmYarnCFInfoSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

107
B04采购计划管理/PurchasePlan.dproj.local
View File

@ -1,61 +1,62 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>2025/12/06 09:54:40.000.204,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>
@ -88,6 +89,8 @@
<File Path="..\B02基础纱线仓库"/>
<File Path="..\B02基础纱线仓库\U_YarnInfoInPut.pas"/>
<File Path="..\B02基础纱线仓库\U_YarnInfoInPut.dfm"/>
<File Path="..\B02基础纱线仓库\U_YarnCFInfoSel.pas"/>
<File Path="..\B02基础纱线仓库\U_YarnCFInfoSel.dfm"/>
<File Path="..\T00贸易通用窗体"/>
<File Path="..\T00贸易通用窗体\U_TradeSalesContractSel.pas"/>
<File Path="..\T00贸易通用窗体\U_TradeSalesContractSel.dfm"/>

BIN
B04采购计划管理/PurchasePlan.identcache
View File

Binary file not shown.

1
B04采购计划管理/U_GetDllForm.pas
View File

@ -76,6 +76,7 @@ begin
pswd := 'rightsoft,.KXY@YN';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '¹ÜÀí';
// Parameters1 := '²éѯ';
end
else
begin

143
B04采购计划管理/U_YarnPurchasePlanList.dfm
View File

@ -7,7 +7,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
ExplicitLeft = -513
ExplicitWidth = 1380
ExplicitHeight = 774
PixelsPerInch = 96
@ -299,7 +298,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Width = 78
end
object Tv1Column1: TcxGridDBColumn
Caption = #31867#22411
Caption = #37319#36141#31867#22411
DataBinding.FieldName = 'PurType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@ -370,6 +369,146 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Editing = False
Width = 100
end
object Tv1C_Degree: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'C_Degree'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Y_Code: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Y_Name: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Y_Spec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Y_Composition: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1SXCBH: TcxGridDBColumn
Caption = #32433#32447#21378#32534#21495
DataBinding.FieldName = 'SXCBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 110
end
object Tv1Denier: TcxGridDBColumn
Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 110
end
object Tv1SXCPM: TcxGridDBColumn
Caption = #32433#32447#21378#21697#21517
DataBinding.FieldName = 'SXCPM'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 110
end
object Tv1ZS: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1FF: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1ND: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Y_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Qty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1QtyUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Price: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1TaxRate: TcxGridDBColumn
Caption = #31246#29575
DataBinding.FieldName = 'TaxRate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Amount: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1currency: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'currency'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1SDlyDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'SDlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1SNote: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'SNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

49
B04采购计划管理/U_YarnPurchasePlanList.pas
View File

@ -117,6 +117,26 @@ type
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
Tv2TaxRate: TcxGridDBColumn;
Tv1C_Degree: TcxGridDBColumn;
Tv1Y_Code: TcxGridDBColumn;
Tv1Y_Name: TcxGridDBColumn;
Tv1Y_Spec: TcxGridDBColumn;
Tv1Y_Composition: TcxGridDBColumn;
Tv1SXCBH: TcxGridDBColumn;
Tv1Denier: TcxGridDBColumn;
Tv1SXCPM: TcxGridDBColumn;
Tv1ZS: TcxGridDBColumn;
Tv1FF: TcxGridDBColumn;
Tv1ND: TcxGridDBColumn;
Tv1Y_Color: TcxGridDBColumn;
Tv1Qty: TcxGridDBColumn;
Tv1QtyUnit: TcxGridDBColumn;
Tv1Price: TcxGridDBColumn;
Tv1TaxRate: TcxGridDBColumn;
Tv1Amount: TcxGridDBColumn;
Tv1currency: TcxGridDBColumn;
Tv1SDlyDate: TcxGridDBColumn;
Tv1SNote: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -401,6 +421,7 @@ begin
if Trim(FAuthority) = '²éѯ' then
begin
TBPrint.Enabled := True;
cxGrid2.Visible := False;
end;
end;
@ -434,6 +455,28 @@ var
SqlStr: string;
begin
if Trim(FAuthority) = '²éѯ' then
begin
SqlStr := 'select AA.*,BB.* ';
SqlStr := SqlStr + ' ,Y_Name=SUBSTRING(CAST((select distinct '','' +X.Y_Name from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId for xml path('''') ) AS VARCHAR(1000)) , 2, 1000)';
SqlStr := SqlStr + ' ,GXHZ=SUBSTRING(CAST((select distinct '','' +X.GX from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId for xml path('''') ) AS VARCHAR(1000)) , 2, 1000)';
SqlStr := SqlStr + ' ,StkName2HZ=SUBSTRING(CAST((select distinct '','' +X.StkName2 from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId for xml path('''') ) AS VARCHAR(1000)) , 2, 1000)';
SqlStr := SqlStr + ' ,SDlyDateHZ=SUBSTRING(CAST((select distinct '','' +cast (X.SDlyDate AS VarChar) from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId for xml path('''') ) AS VARCHAR(1000)) , 2, 1000)';
SqlStr := SqlStr + ' ,CGQty=(select sum(Qty) from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId) ';
SqlStr := SqlStr + ' ,YDHQty=(select sum(Qty) from BS_Yarn_IO X where X.IOFlag=''Èë¿â'' and X.FromPurNo=AA.PurNo) ';
SqlStr := SqlStr + ' ,YDHDate=(select top 1 IOTime from BS_Yarn_IO X where X.IOFlag=''Èë¿â'' and X.FromPurNo=AA.PurNo order by IOTime desc ) ';
SqlStr := SqlStr + ' ,RKQTy=(select sum(Y.BaoQty) from BS_Yarn_IO X INNER JOIN BS_Yarn_IO_MX Y on X.BYIOID =Y.BYIOID ';
SqlStr := SqlStr + ' where X.IOFlag=''Èë¿â'' and X.FromPurNo=AA.PurNo and isnull(StkPosition,'''') <> '''' ) ';
SqlStr := SqlStr + ' ,YDHQty=(select sum(Qty) from BS_Yarn_IO X where X.IOFlag=''Èë¿â'' and X.FromPurSId=BB.PurSId) ';
SqlStr := SqlStr + ' from Pur_YarnPlan_Main AA right join Pur_YarnPlan_sub BB on AA.PurMId = BB.PurMId ';
end
else
begin
SqlStr := 'select AA.* ';
SqlStr := SqlStr + ' ,Y_Name=SUBSTRING(CAST((select distinct '','' +X.Y_Name from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId for xml path('''') ) AS VARCHAR(1000)) , 2, 1000)';
SqlStr := SqlStr + ' ,GXHZ=SUBSTRING(CAST((select distinct '','' +X.GX from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId for xml path('''') ) AS VARCHAR(1000)) , 2, 1000)';
@ -450,6 +493,8 @@ begin
SqlStr := SqlStr + ' where X.IOFlag=''Èë¿â'' and X.FromPurNo=AA.PurNo and isnull(StkPosition,'''') <> '''' ) ';
SqlStr := SqlStr + ' from Pur_YarnPlan_Main AA ';
end;
SqlStr := SqlStr + ' where isnull(LX,'''') <> ''Ö¯Ôìµ¥'' and PurDate>' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date));
SqlStr := SqlStr + ' and PurDate<=' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1));
@ -842,10 +887,14 @@ begin
end;
procedure TfrmYarnPurchasePlanList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
if Trim(FAuthority) <> '²éѯ' then
begin
InitSub();
end;
end;
procedure TfrmYarnPurchasePlanList.TextEdit(Sender: TObject);
var
mvalue, FFieldName: string;

3
E01梭织生产计划/TatPlan.dpr
View File

@ -47,7 +47,8 @@ uses
U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload},
U_GKManageSel in '..\A02基础产品管理\U_GKManageSel.pas' {frmGKManageSel},
U_GKInput in 'U_GKInput.pas' {frmGKInput},
U_YarnStkSel in 'U_YarnStkSel.pas' {frmYarnStkSel};
U_YarnStkSel in 'U_YarnStkSel.pas' {frmYarnStkSel},
U_YarnCFInfoSel in '..\B02»ù´¡É´Ïß²Ö¿â\U_YarnCFInfoSel.pas' {frmYarnCFInfoSel};
{$R *.res}

4
E01梭织生产计划/TatPlan.dproj
View File

@ -222,6 +222,10 @@
<Form>frmYarnStkSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\B02基础纱线仓库\U_YarnCFInfoSel.pas">
<Form>frmYarnCFInfoSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

109
E01梭织生产计划/TatPlan.dproj.local
View File

@ -1,84 +1,85 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.613,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.613,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>2025/10/13 10:49:44.000.724,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_YarnStkSel.pas</Transaction>
<Transaction>2025/11/26 15:57:54.000.998,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>
@ -112,6 +113,8 @@
<File Path="..\B02基础纱线仓库"/>
<File Path="..\B02基础纱线仓库\U_YarnInfoInPut.pas"/>
<File Path="..\B02基础纱线仓库\U_YarnInfoInPut.dfm"/>
<File Path="..\B02基础纱线仓库\U_YarnCFInfoSel.pas"/>
<File Path="..\B02基础纱线仓库\U_YarnCFInfoSel.dfm"/>
<File Path="..\E00梭织通用窗体"/>
<File Path="..\E00梭织通用窗体\U_TatGYSel.pas"/>
<File Path="..\E00梭织通用窗体\U_TatGYSel.dfm"/>

BIN
E01梭织生产计划/TatPlan.identcache
View File

Binary file not shown.

30
E01梭织生产计划/U_TatPlanInPut.dfm
View File

@ -9,7 +9,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Height = -13
Position = poScreenCenter
WindowState = wsMaximized
ExplicitLeft = -689
ExplicitTop = -184
ExplicitWidth = 1556
ExplicitHeight = 884
PixelsPerInch = 96
@ -125,9 +125,9 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Label35: TLabel
Left = 9
Top = 44
Width = 52
Width = 78
Height = 19
Caption = #21512#21516#21495#65306
Caption = #38754#26009#21512#21516#21495#65306
end
object Label3: TLabel
Left = 11
@ -834,7 +834,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 766
Top = 228
ParentColor = True
Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
TabOrder = 29
OnExit = C_ReedWidthExit
Width = 76
@ -981,9 +981,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512
ImageIndex = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object GroupBox1: TGroupBox
Left = 931
Top = 0
@ -1105,9 +1102,9 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Options.Sorting = False
Width = 100
end
object TV1Column13: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
object TV1Y_Composition: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
@ -1333,8 +1330,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Width = 100
end
object Tv2Column13: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
@ -1437,9 +1434,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
@ -1497,9 +1491,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet4: TcxTabSheet
Caption = #31359#32508#27861
ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel4: TPanel
Left = 0
Top = 0
@ -1557,9 +1548,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet5: TcxTabSheet
Caption = #31359#31576#27861
ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object CKF: TMemo
Tag = 2
Left = 0

48
E01梭织生产计划/U_TatPlanInPut.pas
View File

@ -138,7 +138,7 @@ type
TV1Column7: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
TV1Column13: TcxGridDBColumn;
TV1Y_Composition: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
TV1Column6: TcxGridDBColumn;
TV1Column14: TcxGridDBColumn;
@ -321,6 +321,7 @@ begin
ConSId.tag := 9;
SCSHData(ADOQueryTemp, ScrollBox1, 2);
ZS.Text := ADOQueryTemp.FieldByName('ZS').AsString;
attname1.Text := ADOQueryTemp.fieldbyname('attname1').AsString;
attname2.Text := ADOQueryTemp.fieldbyname('attname2').AsString;
ConNo.tag := 2;
@ -476,8 +477,29 @@ end;
procedure TfrmTatPlanInPut.InitData();
var
PBNO, PBFlag: string;
// i: Integer;
// // 用于保存所有列的事件
// ColumnEvents: array of TNotifyEvent;
begin
// // 1. 保存 Tv2 所有列的 OnEditValueChanged 事件
// SetLength(ColumnEvents, Tv2.ColumnCount);
// for i := 0 to Tv2.ColumnCount - 1 do
// begin
// if Assigned(Tv2.Columns[i].Properties) then
// ColumnEvents[i] := Tv2.Columns[i].Properties.OnEditValueChanged;
// end;
//
// // 2. 禁用所有列的事件
// for i := 0 to Tv2.ColumnCount - 1 do
// begin
// if Assigned(Tv2.Columns[i].Properties) then
// Tv2.Columns[i].Properties.OnEditValueChanged := nil;
// end;
// Tv1.BeginUpdate;
// Tv2.BeginUpdate;
with ADOQueryMain do
begin
Close;
@ -627,6 +649,14 @@ begin
// ScrollBox1.Enabled := False;
end;
InitImage();
// for i := 0 to Tv2.ColumnCount - 1 do
// begin
// if Assigned(Tv2.Columns[i].Properties) then
// Tv2.Columns[i].Properties.OnEditValueChanged := ColumnEvents[i];
// end;
//
// Tv1.EndUpdate;
// Tv2.EndUpdate;
end;
procedure TfrmTatPlanInPut.Initexcel();
@ -1204,7 +1234,7 @@ begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat((1 + mZS / 100) * ZGS * mYarnFactor / mZ_Number, 2);
FieldByName('MeterQty').Value := roundfloat((1 + mZS / 100) * ZGS * 0.059 / mZ_Number, 2);
Post;
end;
end;
@ -1410,7 +1440,7 @@ begin
with CDS_2 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(WM * (MF + 4.2) * mYarnFactor / DS * GS / ZGS, 2);
FieldByName('MeterQty').Value := roundfloat(WM * (MF + 4.2) * 0.059 / DS * GS / ZGS, 2);
Post;
end;
end;
@ -1568,7 +1598,7 @@ begin
FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value;
FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value;
FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value;
FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value;
FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value;
@ -1577,7 +1607,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;
FieldByName('YarnFactor').Value := 0.059;
Post;
end;
@ -1844,7 +1874,7 @@ begin
FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value;
FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value;
FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value;
// FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value;
FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value;
FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value;
@ -1853,7 +1883,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;
FieldByName('YarnFactor').Value := 0.059;
Post;
end;
@ -1935,7 +1965,7 @@ begin
FieldByName('Y_Name').Value := ADOQuery1.fieldbyname('Y_Name').Value;
FieldByName('Y_Color').Value := ADOQuery1.fieldbyname('Y_Color').Value;
FieldByName('Y_Spec').Value := ADOQuery1.fieldbyname('Y_Spec').Value;
FieldByName('Y_Composition').Value := ADOQuery1.fieldbyname('Y_Composition').Value;
FieldByName('YarnQty').Value := ADOQuery1.fieldbyname('YarnQty').Value;
FieldByName('CycleYarnQty').Value := ADOQuery1.fieldbyname('CycleYarnQty').Value;
@ -1945,7 +1975,7 @@ begin
FieldByName('FF').Value := ADOQuery1.fieldbyname('FF').Value;
FieldByName('ND').Value := ADOQuery1.fieldbyname('ND').Value;
FieldByName('YarnFactor').Value := ADOQuery1.fieldbyname('YarnFactor').Value;
FieldByName('YarnFactor').Value := 0.059;
Post;
end;

117
E01梭织生产计划/U_TatPlanJTSCLIST.dfm
View File

@ -77,8 +77,6 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Color = clWhite
ParentBackground = False
TabOrder = 3
ExplicitLeft = 1
ExplicitTop = 24
object Label5: TLabel
Left = 20
Top = 21
@ -115,10 +113,9 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Height = 516
Align = alClient
TabOrder = 4
Properties.ActivePage = cxTabSheet1
Properties.ActivePage = cxTabSheet3
Properties.CustomButtons.Buttons = <>
OnChange = cxPageControl1Change
ExplicitTop = 127
ClientRectBottom = 515
ClientRectLeft = 1
ClientRectRight = 1539
@ -259,7 +256,7 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
end
end
object cxTabSheet2: TcxTabSheet
Caption = ' '#27719#24635' '
Caption = ' '#27719#24635'('#26426#21488#31867#22411') '
ImageIndex = 1
object cxGrid2: TcxGrid
Left = 0
@ -269,6 +266,7 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
ExplicitLeft = -1
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -355,6 +353,104 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
end
end
end
object cxTabSheet3: TcxTabSheet
Caption = ' '#27719#24635'('#21512#21516#21495') '
ImageIndex = 2
object cxGrid3: TcxGrid
Left = 0
Top = 0
Width = 1538
Height = 486
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
ExplicitLeft = -1
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 = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skCount
end
item
Kind = skCount
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object cxGridDBColumn1: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 114
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #24403#21069#31354#38386#20010#25968
DataBinding.FieldName = 'hxgs'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 125
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #26032#23433#25490#26426#21488#20010#25968
DataBinding.FieldName = 'APGS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 119
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = '7'#22825#31354#38386#20010#25968
DataBinding.FieldName = 'D1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = '15'#22825#31354#38386#20010#25968
DataBinding.FieldName = 'D2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 142
end
object cxGridDBColumn12: TcxGridDBColumn
Caption = '30'#22825#31354#38386#20010#25968
DataBinding.FieldName = 'D3'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 115
end
end
object cxGridLevel3: TcxGridLevel
GridView = Tv3
end
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink
@ -439,4 +535,15 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Left = 296
Top = 448
end
object CDS_3: TClientDataSet
Aggregates = <>
Params = <>
Left = 657
Top = 390
end
object DS_3: TDataSource
DataSet = CDS_3
Left = 729
Top = 398
end
end

32
E01梭织生产计划/U_TatPlanJTSCLIST.pas
View File

@ -64,6 +64,18 @@ type
CDS_2: TClientDataSet;
DS_2: TDataSource;
GPM_2: TcxGridPopupMenu;
cxTabSheet3: TcxTabSheet;
CDS_3: TClientDataSet;
DS_3: TDataSource;
cxGrid3: TcxGrid;
Tv3: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -129,7 +141,7 @@ begin
ADOQueryMain.EnableControls;
end;
end
else
else if cxPageControl1.ActivePageIndex = 1 then
begin
try
ADOQueryMain.DisableControls;
@ -146,6 +158,24 @@ begin
finally
ADOQueryMain.EnableControls;
end;
end
else if cxPageControl1.ActivePageIndex = 2 then
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('EXEC P_Tat_Plan_Mach_HTHZ ');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_3);
SInitCDSData(ADOQueryMain, CDS_3);
finally
ADOQueryMain.EnableControls;
end;
end;
end;

1
E01梭织生产计划/U_TatPlanList.dfm
View File

@ -314,6 +314,7 @@ inherited frmTatPlanList: TfrmTatPlanList
Height = 444
Align = alClient
TabOrder = 2
ExplicitTop = 146
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

105
E01梭织生产计划/U_TatPlanMachInput.dfm
View File

@ -32,7 +32,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
ParentColor = False
ShowCaptions = True
TabOrder = 0
ExplicitWidth = 1011
ExplicitTop = -6
object ToolButton1: TToolButton
Left = 0
Top = 0
@ -71,6 +71,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
ParentColor = False
ParentCtl3D = False
TabOrder = 1
ExplicitTop = 36
object Label1: TLabel
Left = 455
Top = 55
@ -139,32 +140,25 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
end
object Label13: TLabel
Left = 22
Top = 243
Top = 197
Width = 80
Height = 21
Caption = #25195#25551#21382#21490#65306
end
object Label15: TLabel
Left = 455
Top = 243
Top = 197
Width = 80
Height = 21
Caption = #23433#25490#21382#21490#65306
end
object Label14: TLabel
Left = 22
Top = 207
Left = 24
Top = 168
Width = 48
Height = 21
Caption = #32428#23494#65306
end
object Label17: TLabel
Left = 22
Top = 171
Width = 80
Height = 21
Caption = #32428#32433#35268#26684#65306
end
object Label6: TLabel
Left = 455
Top = 171
@ -259,7 +253,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
end
object cxGrid2: TcxGrid
Left = 455
Top = 270
Top = 224
Width = 291
Height = 141
TabOrder = 7
@ -318,7 +312,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
end
object cxGrid1: TcxGrid
Left = 35
Top = 270
Top = 224
Width = 386
Height = 142
TabOrder = 8
@ -384,23 +378,16 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
end
object C_FinishLatitudeDensity: TcxTextEdit
Tag = 2
Left = 126
Top = 204
TabOrder = 9
Width = 223
end
object C_FinishLatitudeSpec: TcxTextEdit
Tag = 2
Left = 127
Left = 128
Top = 165
TabOrder = 10
TabOrder = 9
Width = 223
end
object C_FinishLatitudeBatchNo: TcxTextEdit
Tag = 2
Left = 561
Top = 165
TabOrder = 11
TabOrder = 10
Width = 218
end
object WB_Name: TcxTextEdit
@ -410,7 +397,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
ParentColor = True
Properties.ReadOnly = True
StyleDisabled.TextColor = clGray
TabOrder = 12
TabOrder = 11
Width = 218
end
object action: TcxComboBox
@ -420,7 +407,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Properties.Items.Strings = (
#19978#36724
#25509#22836)
TabOrder = 13
TabOrder = 12
Width = 218
end
object PMType: TcxComboBox
@ -431,7 +418,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
#23613#26426#23433#25490
#19979#24067#25913#26426)
Properties.OnChange = PMTypePropertiesChange
TabOrder = 14
TabOrder = 13
Width = 223
end
object WB_Code: TcxButtonEdit
@ -447,18 +434,19 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Properties.ReadOnly = True
Properties.OnButtonClick = WB_CodePropertiesButtonClick
StyleDisabled.TextColor = clGray
TabOrder = 15
TabOrder = 14
Width = 223
end
object cxGrid3: TcxGrid
Left = 0
Top = 412
Width = 1003
Top = 368
Width = 1020
Height = 253
Align = alBottom
TabOrder = 16
ExplicitTop = 368
ExplicitWidth = 1020
TabOrder = 15
ExplicitLeft = -3
ExplicitTop = 417
ExplicitWidth = 1003
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -472,7 +460,6 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv2Column8
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
@ -500,6 +487,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = v2Column10PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 100
end
@ -512,9 +500,9 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Options.Sorting = False
Width = 100
end
object Tv2Column13: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
object Tv2Y_Composition: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
@ -534,38 +522,6 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
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'
@ -578,21 +534,14 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
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
Width = 183
end
object Tv2Column12: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Width = 160
end
end
object cxGridLevel3: TcxGridLevel

193
E01梭织生产计划/U_TatPlanMachInput.pas
View File

@ -57,10 +57,8 @@ type
TV1Column1: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
Label14: TLabel;
Label17: TLabel;
Label6: TLabel;
C_FinishLatitudeDensity: TcxTextEdit;
C_FinishLatitudeSpec: TcxTextEdit;
C_FinishLatitudeBatchNo: TcxTextEdit;
Label7: TLabel;
Label12: TLabel;
@ -74,14 +72,9 @@ type
Tv2Column7: TcxGridDBColumn;
v2Column10: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
Tv2Column13: TcxGridDBColumn;
Tv2Y_Composition: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
Tv2Column14: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
Tv2Column11: TcxGridDBColumn;
Tv2Column8: TcxGridDBColumn;
Tv2Column12: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
Tv3BatchNO: TcxGridDBColumn;
@ -95,7 +88,8 @@ type
procedure WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton2Click(Sender: TObject);
procedure PMTypePropertiesChange(Sender: TObject);
procedure Tv3BatchNOPropertiesButtonClick(Sender: TObject;
procedure Tv3BatchNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v2Column10PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
private
canshu1, YCP, XCP: string;
@ -103,7 +97,7 @@ type
procedure InitData();
function SaveData(): Boolean;
function CheckData(): Boolean;
procedure InitClothYarn(MC_Code: string);
procedure InitClothYarn();
{ Private declarations }
public
FPMID, FCYCode, FCPID, FCPNO, FCPName, FMCNo, FMCType: string;
@ -118,7 +112,8 @@ var
implementation
uses
U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_TatPlanSel, U_WBSpecSel,U_YarnStkSel;
U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_TatPlanSel, U_WBSpecSel,
U_YarnStkSel,U_YarnInfoSel;
{$R *.dfm}
@ -178,20 +173,44 @@ begin
end;
procedure TfrmTatPlanMachInput.InitClothYarn(MC_Code: string);
procedure TfrmTatPlanMachInput.InitClothYarn();
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) + '''');
sql.Add('select A.* from Tat_Plan_Mach_Yarn A ');
sql.Add(' where A.PMID=''' + Trim(FPMID) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_3);
SInitCDSData(ADOQueryTemp, CDS_3);
ClearCDSColumn(CDS_3, ['YRId', 'SubId', 'MainId']);
//
// ClearCDSColumn(CDS_3, ['YRId', 'SubId', 'MainId']);
if FPMID = '' then
begin
with CDS_3 do
begin
Append;
FieldByName('RowNo').Value := 'A';
Post;
Append;
FieldByName('RowNo').Value := 'B';
Post;
Append;
FieldByName('RowNo').Value := 'C';
Post;
Append;
FieldByName('RowNo').Value := 'D';
Post;
Append;
FieldByName('RowNo').Value := 'E';
Post;
Append;
FieldByName('RowNo').Value := 'F';
Post;
end;
end;
end;
procedure TfrmTatPlanMachInput.FormShow(Sender: TObject);
@ -200,7 +219,7 @@ begin
readCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'ÈÎÎñÐÂÔö');
InitData();
InitClothYarn(C_Code.Text);
InitClothYarn();
end;
procedure TfrmTatPlanMachInput.TBCloseClick(Sender: TObject);
@ -272,6 +291,62 @@ begin
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
end;
////////////////////////// 保存纱线组合表 //////////////////////////
with CDS_3 do
begin
First;
while not Eof do
begin
if Trim(CDS_3.fieldbyname('YRId').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxpbno, 'RM', 'Tat_Plan_Mach_Yarn', 4, 1) = False then
raise Exception.Create('取配比子流水号失败！');
end
else
begin
maxpbno := Trim(CDS_3.fieldbyname('YRId').AsString);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_Plan_Mach_Yarn where ');
sql.Add(' YRId=''' + Trim(maxpbno) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(CDS_3.fieldbyname('YRId').AsString) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('YRType').Value := '纬丝';
FieldByName('MainId').Value := Trim(OrderNo.Text);
FieldByName('OrderNo').Value := Trim(OrderNo.Text);
// FieldByName('SubId').Value := Trim(maxsubno);
FieldByName('YRId').Value := Trim(maxpbno);
FieldByName('PMID').Value := Trim(maxId);
RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_3, 'Tat_Plan_Mach_Yarn', 0);
Post;
end;
Next;
end;
end;
////////////////////////// 保存纱线组合表 //////////////////////////
//////////////////////////
ADOQueryCmd.Connection.CommitTrans;
FPMID := maxId;
Result := True;
@ -349,8 +424,7 @@ begin
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'ÈÎÎñÐÂÔö');
end;
procedure TfrmTatPlanMachInput.Tv3BatchNOPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure TfrmTatPlanMachInput.Tv3BatchNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmYarnStkSel := TfrmYarnStkSel.Create(Application);
@ -367,7 +441,6 @@ begin
FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
end;
frmYarnStkSel.CDS_Main.EnableControls;
end;
end;
@ -377,6 +450,43 @@ begin
end;
procedure TfrmTatPlanMachInput.v2Column10PropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmYarnInfoSel := TfrmYarnInfoSel.Create(Application);
with frmYarnInfoSel do
begin
if ShowModal = 1 then
begin
with self.CDS_3 do
begin
Edit;
FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value;
FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value;
// FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value;
FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value;
FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value;
FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value;
// 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;
Post;
end;
end;
end;
finally
frmYarnInfoSel.Free;
end;
end;
procedure TfrmTatPlanMachInput.WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
@ -387,6 +497,7 @@ begin
begin
Self.WB_Code.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString;
Self.WB_Name.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString;
end;
end;
@ -492,6 +603,48 @@ begin
end;
// Self.WB_Code.Text := ADOQueryTemp.fieldbyname('WB_Code').AsString;
// Self.WB_Name.Text := ADOQueryTemp.fieldbyname('WB_Name').AsString;
with self.ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' select * from Tat_Plan_Yarn ');
sql.Add(' where YRType=''纬丝'' and MainId=''' + Trim(frmTatPlanSel.CDS_1.fieldbyname('MainId').AsString) + '''');
sql.Add(' Order by RowNo ');
Open;
end;
self.CDS_3.EmptyDataSet;
self.ADOQueryCmd.First;
while not self.ADOQueryCmd.eof do
begin
with self.CDS_3 do
begin
APpend;
FieldByName('RowNo').Value := self.ADOQueryCmd.fieldbyname('RowNo').Value;
FieldByName('Y_Code').Value := self.ADOQueryCmd.fieldbyname('Y_Code').Value;
FieldByName('Y_Name').Value := self.ADOQueryCmd.fieldbyname('Y_Name').Value;
FieldByName('Y_Color').Value := self.ADOQueryCmd.fieldbyname('Y_Color').Value;
FieldByName('Y_Composition').Value := self.ADOQueryCmd.fieldbyname('Y_Composition').Value;
FieldByName('BatchNO').Value := self.ADOQueryCmd.fieldbyname('BatchNO').Value;
FieldByName('TestDenier').Value := self.ADOQueryCmd.fieldbyname('Denier').Value;
// FieldByName('FF').Value := self.ADOQueryCmd.fieldbyname('FF').Value;
// FieldByName('ND').Value := self.ADOQueryCmd.fieldbyname('ND').Value;
FieldByName('note').Value := self.ADOQueryCmd.fieldbyname('note').Value;
Post;
end;
self.ADOQueryCmd.next;
end;
end;
end;

1
E02梭织经轴仓库/U_GetDllForm.pas
View File

@ -1,3 +1,4 @@
unit U_GetDllForm;
interface

15
E02梭织经轴仓库/U_LogInput.pas
View File

@ -64,7 +64,7 @@ type
procedure InitGrid();
{ Private declarations }
public
fWB_Code: string;
fWB_Code,fFlag: string;
{ Public declarations }
end;
@ -96,6 +96,9 @@ procedure TfrmLogInput.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
@ -103,9 +106,13 @@ begin
sql.Clear;
sql.Add(' select * from sy_sysLog ');
sql.Add(' where Model = ' + QuotedStr(Trim('整经工艺信息修改')));
if fWB_Code <> '' then
if fFlag = '修改' then
begin
SQL.Add(' and 1=2')
end
else if fFlag = '查看' then
begin
SQL.Add(' and Acction = ' + QuotedStr(Trim(fWB_Code)));
end;
Open;
end;
@ -263,13 +270,13 @@ begin
inherited;
ReadCxGrid(Self.Caption, Tv1, '整经工艺日志');
InitGrid();
if fWB_Code = '' then
if fFlag = '查看' then
begin
TbAdd.Visible := false;
TbDel.Visible := False;
TbSave.Visible := false;
end
else
else if fFlag = '修改' then
begin
TBRafresh.Visible := False;
TBFind.Visible := False;

21
E02梭织经轴仓库/U_TatWBCardInPut.dfm
View File

@ -235,16 +235,8 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
List = True
ShowCaptions = True
TabOrder = 1
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #24320#21345
ImageIndex = 16
OnClick = TBSaveClick
end
object ToolButton1: TToolButton
Left = 71
Left = 0
Top = 0
AutoSize = True
Caption = #25171#21360
@ -252,13 +244,21 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
OnClick = ToolButton1Click
end
object ToolButton3: TToolButton
Left = 142
Left = 71
Top = 0
AutoSize = True
Caption = #20445#23384#20462#25913
ImageIndex = 16
OnClick = ToolButton3Click
end
object TBSave: TToolButton
Left = 174
Top = 0
AutoSize = True
Caption = #24320#21345
ImageIndex = 16
OnClick = TBSaveClick
end
object ToolButton8: TToolButton
Left = 245
Top = 0
@ -1032,7 +1032,6 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Height = 240
Align = alBottom
TabOrder = 4
ExplicitLeft = -1
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

34
E02梭织经轴仓库/U_TatWBCardInPut2.dfm
View File

@ -34,8 +34,6 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Height = 601
Align = alClient
TabOrder = 0
ExplicitLeft = 6
ExplicitTop = 174
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -301,7 +299,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Align = alTop
TabOrder = 2
ExplicitLeft = 6
ExplicitTop = 37
ExplicitTop = 25
object Label2: TLabel
Left = 263
Top = 102
@ -310,7 +308,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Caption = #36724#25968'1'
end
object Label6: TLabel
Left = 384
Left = 503
Top = 102
Width = 41
Height = 21
@ -409,14 +407,14 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Caption = #25972#32463#26426#21495
end
object Label31: TLabel
Left = 524
Left = 643
Top = 102
Width = 41
Height = 21
Caption = #30424#22836'1'
end
object Label32: TLabel
Left = 661
Left = 780
Top = 102
Width = 41
Height = 21
@ -454,6 +452,15 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Caption = #25152#23646'1'
Visible = False
end
object Label55: TLabel
Left = 387
Top = 102
Width = 32
Height = 21
Caption = #32452#21495
Transparent = True
Visible = False
end
object WBType1: TcxButtonEdit
Tag = 2
Left = 109
@ -472,7 +479,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
end
object WB_YarnLen1: TcxTextEdit
Tag = 99
Left = 429
Left = 548
Top = 96
ParentColor = True
TabOrder = 1
@ -563,7 +570,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Top = 48
TabOrder = 9
Height = 37
Width = 830
Width = 852
end
object WB_ProcessType: TcxComboBox
Tag = 2
@ -629,7 +636,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
end
object WBBelong1: TcxComboBox
Tag = 2
Left = 569
Left = 688
Top = 96
Properties.Items.Strings = (
#26412#21378
@ -640,7 +647,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
end
object WBBelongCoName1: TcxButtonEdit
Tag = 2
Left = 706
Left = 825
Top = 96
ParentColor = True
Properties.Buttons = <
@ -718,6 +725,13 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
OnDblClick = WBFtyNameDblClick
Width = 150
end
object Group: TcxTextEdit
Left = 425
Top = 96
TabOrder = 20
Visible = False
Width = 73
end
end
end
object Panel1: TPanel

51
E02梭织经轴仓库/U_TatWBCardInPut2.pas
View File

@ -166,6 +166,8 @@ type
TV2Group: TcxGridDBColumn;
TV2serialNo: TcxGridDBColumn;
Timer1: TTimer;
Group: TcxTextEdit;
Label55: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure N2Click(Sender: TObject);
@ -311,6 +313,16 @@ begin
// WB_ClothPiece.Text := '0';
if Trim(WB_Type.Text) = '' then
raise Exception.Create('类型不能为空！');
if FWB_Type = '浆轴' then
begin
if trim(group.Text) = '' then
raise Exception.Create('组号不能为空！');
end;
if (Trim(edtCardQty1.Text) = '') or (Trim(edtCardQty1.Text) = '0') then
raise Exception.Create('轴数不能为空或0！');
Result := True;
except
Result := false;
@ -321,7 +333,7 @@ end;
procedure TfrmTatWBCardInPut2.Timer1Timer(Sender: TObject);
begin
// 10秒时间到，重新启用按钮
Timer1.Enabled := False; // 使用 Timer1 而不是 tmrEnableButton
Timer1.Enabled := False;
TBSave.Enabled := True;
// ShowMessage('按钮已重新启用');
end;
@ -537,6 +549,13 @@ begin
InitCard3();
WB_TYPE.Text := FWB_Type;
if FWB_Type = '浆轴' then
begin
Group.Visible := True;
Label55.Visible := True;
end;
end;
procedure TfrmTatWBCardInPut2.GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -601,7 +620,7 @@ var
MWBCID: string;
i, j: integer;
fDate: string;
mGroup : Integer;
mGroup: string;
begin
if MCardQty = 0 then
EXIT;
@ -614,17 +633,24 @@ begin
end;
end;
if FWB_Type = '稀轴' then
begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.add(' select isnull(max(A.[Group]),0) as maxGroup from Tat_WB_Card A');
sql.add(' where A.TWPId = ' + Quotedstr(Trim(FTWPId)));
sql.add(' AND A.WB_Type = ' + Quotedstr(Trim(FWB_Type)));
// showMessage(SQL.Text);
Open;
end;
mGroup := ADOQueryCmd.FieldByName('maxGroup').AsInteger + 1;
mGroup := intToStr(ADOQueryCmd.FieldByName('maxGroup').AsInteger + 1);
end
else if FWB_Type = '浆轴' then
begin
mGroup := Group.Text;
end;
try
ADOQueryCmd.Connection.BeginTrans;
@ -780,7 +806,7 @@ begin
end;
sql.Add(',' + Trim(IntToStr(i)));
sql.Add(',' + Trim(IntToStr(mGroup)) );
sql.Add(',' + Trim(mGroup));
sql.Add(' )');
end;
@ -932,10 +958,11 @@ begin
edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
RTSetsavedata(ADOQueryCmd, 'Tat_WB_Card', Panel1, 1);
// RTSetsavedata(ADOQueryCmd, 'Tat_WB_Card', Panel1, 1);
RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_Card, 'Tat_WB_Card', 0);
post;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
@ -943,6 +970,18 @@ begin
end;
CDS_Card.Next;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_WB_Plan A where A.TWPId=''' + Trim(FTWPId) + '''');
Open;
Edit;
RTSetsavedata(ADOQueryCmd, 'Tat_WB_Plan', Panel1, 1);
Post;
end;
Application.MessageBox('保存修改成功！', '提示信息', MB_OK + MB_ICONINFORMATION);
CDS_Card.EnableControls;
except
CDS_Card.EnableControls;

1
E02梭织经轴仓库/U_TatWBPlanInPut.dfm
View File

@ -392,7 +392,6 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
TabOrder = 2
OnDblClick = gynoDblClick
ExplicitTop = 41
object Label3: TLabel
Left = 756
Top = 14

3
E02梭织经轴仓库/U_TatWBPlanInPut.pas
View File

@ -294,6 +294,9 @@ begin
Self.BSQTY.Text := Trim(ADOQueryTemp.fieldbyname('BSQTY').AsString);
Self.DCRQTY.Text := Trim(ADOQueryTemp.fieldbyname('DCRQTY').AsString);
Self.WB_YarnKCQty.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnKCQty').AsString);
Self.BCRFQty.Text := Trim(ADOQueryTemp.fieldbyname('BCRFQty').AsString);
with ADOQuery1 do
begin
Close;

207
E02梭织经轴仓库/U_WBSpecInPut.dfm
View File

@ -9,15 +9,16 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Font.Height = -11
Font.Name = 'Tahoma'
Position = poMainFormCenter
ExplicitTop = -309
ExplicitWidth = 1190
ExplicitHeight = 884
PixelsPerInch = 96
TextHeight = 13
object cxGrid1: TcxGrid [0]
Left = 0
Top = 471
Top = 519
Width = 1174
Height = 374
Height = 326
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
@ -114,9 +115,9 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
HeaderAlignmentHorz = taCenter
Width = 101
end
object v1SPSpec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
object Tv1Y_Composition: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
@ -157,15 +158,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv1YarnFactor: TcxGridDBColumn
Caption = #32433#32447#31995#25968
DataBinding.FieldName = 'YarnFactor'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column8: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
@ -175,6 +167,23 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv1FF: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1YarnFactor: TcxGridDBColumn
Caption = #32433#32447#31995#25968
DataBinding.FieldName = 'YarnFactor'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True
Properties.OnEditValueChanged = Tv1Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column3: TcxGridDBColumn
Caption = #26681#25968
DataBinding.FieldName = 'YarnQty'
@ -275,7 +284,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 0
Top = 30
Width = 1174
Height = 411
Height = 459
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
@ -289,10 +298,9 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ParentCtl3D = False
ParentFont = False
TabOrder = 2
ExplicitTop = 36
object Label3: TLabel
Left = 11
Top = 11
Top = 17
Width = 96
Height = 21
Caption = #25972#32463#24037#33402#32534#21495
@ -304,8 +312,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ParentFont = False
end
object Label8: TLabel
Left = 568
Top = 8
Left = 11
Top = 58
Width = 64
Height = 21
Caption = #24635#32463#26681#25968
@ -317,8 +325,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ParentFont = False
end
object Label1: TLabel
Left = 287
Top = 6
Left = 277
Top = 17
Width = 96
Height = 21
Caption = #25972#32463#24037#33402#21517#31216
@ -331,7 +339,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object Label2: TLabel
Left = 560
Top = 312
Top = 358
Width = 80
Height = 21
Caption = #36793#32433#24635#26681#25968
@ -344,7 +352,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object Label5: TLabel
Left = 11
Top = 309
Top = 355
Width = 48
Height = 21
Caption = #36793#32433#25968
@ -357,7 +365,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object Label10: TLabel
Left = 804
Top = 274
Top = 316
Width = 32
Height = 21
Caption = #31576#21495
@ -370,7 +378,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object Label12: TLabel
Left = 284
Top = 274
Top = 320
Width = 48
Height = 21
Caption = #31576#40831#25968
@ -382,8 +390,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ParentFont = False
end
object Label18: TLabel
Left = 1038
Top = 125
Left = 974
Top = 106
Width = 64
Height = 19
Caption = #26159#21542#19978#27974
@ -391,7 +399,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object Label19: TLabel
Left = 6
Top = 271
Top = 317
Width = 64
Height = 21
Caption = #38050#31576#32534#21495
@ -403,8 +411,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ParentFont = False
end
object Label20: TLabel
Left = 806
Top = 9
Left = 277
Top = 59
Width = 64
Height = 21
Caption = #25972#32463#31867#22411
@ -417,7 +425,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object Label4: TLabel
Left = 560
Top = 274
Top = 320
Width = 32
Height = 21
Caption = #31576#24133
@ -430,7 +438,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object Label24: TLabel
Left = 284
Top = 309
Top = 355
Width = 64
Height = 21
Caption = #22320#31359#20837#27861
@ -443,7 +451,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object Label29: TLabel
Left = 3
Top = 383
Top = 429
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
@ -456,7 +464,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object Label25: TLabel
Left = 287
Top = 348
Top = 394
Width = 112
Height = 21
Caption = #36793#32433#21333#36793#31576#40831#25968
@ -469,7 +477,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object Label26: TLabel
Left = 6
Top = 348
Top = 394
Width = 64
Height = 21
Caption = #36793#31359#20837#27861
@ -482,7 +490,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object Label27: TLabel
Left = 511
Top = 354
Top = 400
Width = 32
Height = 19
Caption = #31576#40831
@ -495,7 +503,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object label28: TLabel
Left = 228
Top = 354
Top = 400
Width = 54
Height = 19
Caption = #26681'/'#31576#40831
@ -508,7 +516,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object Label30: TLabel
Left = 228
Top = 315
Top = 361
Width = 16
Height = 19
Caption = #26681
@ -521,7 +529,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object Label31: TLabel
Left = 511
Top = 277
Top = 323
Width = 32
Height = 19
Caption = #31576#40831
@ -534,7 +542,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object Label32: TLabel
Left = 761
Top = 278
Top = 320
Width = 6
Height = 19
Caption = #8216#8217
@ -547,7 +555,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object Label33: TLabel
Left = 966
Top = 277
Top = 319
Width = 63
Height = 19
Caption = #40831'/2'#33521#23544
@ -560,7 +568,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object Label34: TLabel
Left = 509
Top = 316
Top = 362
Width = 54
Height = 19
Caption = #26681'/'#31576#40831
@ -573,7 +581,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object Label35: TLabel
Left = 560
Top = 348
Top = 394
Width = 32
Height = 21
Caption = #22791#27880
@ -584,10 +592,36 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Font.Style = []
ParentFont = False
end
object Label36: TLabel
Left = 546
Top = 17
Width = 64
Height = 21
Caption = #22383#24067#31181#31867
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label37: TLabel
Left = 710
Top = 17
Width = 64
Height = 21
Caption = #22383#24067#38376#24133
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object WB_Code: TcxTextEdit
Tag = 2
Left = 113
Top = 5
Top = 11
Enabled = False
ParentColor = True
ParentFont = False
@ -602,8 +636,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object WB_YarnQty: TcxTextEdit
Tag = 2
Left = 633
Top = 5
Left = 113
Top = 55
ParentColor = True
ParentFont = False
Properties.OnEditValueChanged = WB_YarnQtyPropertiesEditValueChanged
@ -619,8 +653,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object WB_Name: TcxTextEdit
Tag = 2
Left = 400
Top = 5
Left = 379
Top = 11
ParentColor = True
ParentFont = False
Style.Font.Charset = ANSI_CHARSET
@ -635,7 +669,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
object WB_ReedNote: TcxTextEdit
Tag = 2
Left = 648
Top = 309
Top = 355
ParentColor = True
ParentFont = False
Style.Font.Charset = ANSI_CHARSET
@ -650,7 +684,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
object BSQTY: TcxTextEdit
Tag = 2
Left = 110
Top = 309
Top = 355
ParentColor = True
ParentFont = False
Properties.ReadOnly = True
@ -666,7 +700,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
object WB_ReedNo: TcxTextEdit
Tag = 2
Left = 874
Top = 274
Top = 316
ParentColor = True
ParentFont = False
Properties.ReadOnly = True
@ -683,7 +717,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
object C_KCQTY: TcxTextEdit
Tag = 2
Left = 397
Top = 270
Top = 316
ParentColor = True
ParentFont = False
Properties.ReadOnly = True
@ -713,7 +747,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
object GKBH: TcxButtonEdit
Tag = 2
Left = 110
Top = 270
Top = 316
ParentFont = False
Properties.Buttons = <
item
@ -732,8 +766,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object WB_TYPE: TcxComboBox
Tag = 2
Left = 876
Top = 5
Left = 379
Top = 55
ParentFont = False
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
@ -752,7 +786,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
object WB_Width: TcxTextEdit
Tag = 2
Left = 648
Top = 270
Top = 316
ParentColor = True
ParentFont = False
Properties.ReadOnly = True
@ -767,7 +801,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object cxGroupBox1: TcxGroupBox
Left = 3
Top = 52
Top = 98
Caption = #20998#26465
ParentFont = False
Style.Font.Charset = ANSI_CHARSET
@ -872,8 +906,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
end
object cxGroupBox2: TcxGroupBox
Left = 3
Top = 52
Left = 0
Top = 90
Caption = #25972#27974#24182
ParentFont = False
Style.Font.Charset = ANSI_CHARSET
@ -1056,7 +1090,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
object DCRQTY: TcxTextEdit
Tag = 2
Left = 397
Top = 309
Top = 355
ParentColor = True
ParentFont = False
Properties.OnEditValueChanged = BCRFQtyPropertiesEditValueChanged
@ -1072,7 +1106,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
object WB_YarnKCQty: TcxTextEdit
Tag = 2
Left = 403
Top = 348
Top = 394
ParentColor = True
ParentFont = False
Properties.OnEditValueChanged = BCRFQtyPropertiesEditValueChanged
@ -1088,7 +1122,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
object BCRFQty: TcxTextEdit
Tag = 2
Left = 110
Top = 348
Top = 394
ParentColor = True
ParentFont = False
Properties.OnEditValueChanged = BCRFQtyPropertiesEditValueChanged
@ -1104,7 +1138,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
object note: TcxTextEdit
Tag = 2
Left = 648
Top = 345
Top = 391
ParentColor = True
ParentFont = False
Style.Font.Charset = ANSI_CHARSET
@ -1116,11 +1150,49 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
TabOrder = 16
Width = 373
end
object C_Kind: TcxComboBox
Tag = 2
Left = 616
Top = 11
ParentFont = False
Properties.Items.Strings = (
''
#33394#32455#24067
#30333#22383)
Properties.OnChange = C_KindPropertiesChange
Style.Font.Charset = DEFAULT_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 17
Width = 81
end
object C_Width: TcxTextEdit
Tag = 2
Left = 780
Top = 11
Properties.OnEditValueChanged = C_WidthPropertiesEditValueChanged
TabOrder = 18
Width = 121
end
object MFDW: TcxComboBox
Tag = 2
Left = 907
Top = 11
Properties.Items.Strings = (
#8220
'CM')
TabOrder = 19
Text = #8220
Width = 51
end
end
object ToolBar2: TToolBar [3]
Tag = 1
Left = 0
Top = 441
Top = 489
Width = 1174
Height = 30
AutoSize = True
@ -1174,6 +1246,9 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 216
Top = 241
DesignInfo = 15794392
end
object DS_1: TDataSource
DataSet = CDS_Sub
@ -1213,8 +1288,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Top = 584
end
object PopupMenu1: TPopupMenu
Left = 536
Top = 512
Left = 496
Top = 464
object N1: TMenuItem
Caption = #28165#31354#24403#21069#21015
OnClick = N1Click

120
E02梭织经轴仓库/U_WBSpecInPut.pas
View File

@ -31,7 +31,7 @@ type
ADOQueryTemp: TADOQuery;
GPM_1: TcxGridPopupMenu;
v1Column12: TcxGridDBColumn;
v1SPSpec: TcxGridDBColumn;
Tv1Y_Composition: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
@ -119,6 +119,12 @@ type
Label34: TLabel;
Label35: TLabel;
note: TcxTextEdit;
Tv1FF: TcxGridDBColumn;
C_Kind: TcxComboBox;
Label36: TLabel;
Label37: TLabel;
C_Width: TcxTextEdit;
MFDW: TcxComboBox;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -140,6 +146,9 @@ type
procedure N1Click(Sender: TObject);
procedure BCRFQtyPropertiesEditValueChanged(Sender: TObject);
procedure WB_ReedNoPropertiesEditValueChanged(Sender: TObject);
procedure C_KindPropertiesChange(Sender: TObject);
procedure C_WidthPropertiesEditValueChanged(Sender: TObject);
private
{ Private declarations }
@ -147,6 +156,8 @@ type
procedure JSJS(); //¼ÆËã¾­Ë¿
procedure JS(); //¼ÆËã¾­Ë¿
procedure UpdateWB_Code();
public
{ Public declarations }
FWBSID, FSTKName: string;
@ -409,6 +420,18 @@ end;
procedure TfrmWBSpecInPut.C_KindPropertiesChange(Sender: TObject);
begin
UpdateWB_Code();
end;
procedure TfrmWBSpecInPut.C_WidthPropertiesEditValueChanged(Sender: TObject);
begin
UpdateWB_Code();
end;
procedure TfrmWBSpecInPut.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
@ -426,15 +449,17 @@ begin
begin
with Self.CDS_Sub do
begin
Append;
Edit;
FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').value;
FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').value;
FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').value;
FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').value;
FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').value;
FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').value;
FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').value;
// FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').value;
FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').value;
FieldByName('ZS').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').value;
FieldByName('YarnFactor').Value := 0.059;
FieldByName('Y_Ratio').Value := 0;
end;
end;
@ -460,6 +485,7 @@ begin
with frmLogInput do
begin
fWB_Code := Self.WB_Code.Text;
fFlag := 'ÐÞ¸Ä';
if ShowModal = 1 then
begin
@ -610,6 +636,85 @@ begin
Close;
end;
procedure TfrmWBSpecInPut.UpdateWB_Code();
var
mJSDH, mZS, mC_Kind: string;
mC_Code: string;
begin
if FWBSID = '' then
begin
CDS_Sub.First;
while not CDS_Sub.Eof do
begin
if CDS_Sub.FieldByName('Y_Code').AsString <> '' then
begin
mZS := CDS_Sub.FieldByName('ZS').AsString + 'S';
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.add('select * from BS_Yarn_Info_CF where Y_Code = ' + quotedStr(Trim(CDS_Sub.FieldByName('Y_Code').AsString)));
sql.Add(' order By CFID');
Open;
end;
ADOQueryCmd.First;
while not ADOQueryCmd.Eof do
begin
mJSDH := mJSDH + ADOQueryCmd.FieldByName('DH').AsString;
ADOQueryCmd.Next;
end;
if mC_Code = '' then
begin
mC_Code := mJSDH + '-' + mZS;
end
else
begin
mC_Code := mC_Code + '-' + mJSDH + '-' + mZS;
end;
mJSDH := '';
end;
CDS_Sub.Next;
end;
if C_Width.Text <> '' then
begin
if mC_Code = '' then
begin
mC_Code := C_Width.Text;
end
else
begin
mC_Code := mC_Code + '-' + C_Width.Text;
end;
end;
if C_Kind.Text <> '' then
begin
if C_Kind.Text = 'É«Ö¯²¼' then
begin
mC_Kind := 'A';
end
else if C_Kind.Text = '°×Å÷' then
begin
mC_Kind := 'B';
end;
if mC_Code = '' then
begin
mC_Code := mC_Kind;
end
else
begin
mC_Code := mC_Code + '-' + mC_Kind;
end;
end;
WB_Name.Text := mC_Code;
end;
end;
procedure TfrmWBSpecInPut.FormShow(Sender: TObject);
var
fsj: string;
@ -834,10 +939,10 @@ begin
FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').value;
FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').value;
FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').value;
FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').value;
FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').value;
FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').value;
FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').value;
// FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').value;
FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').value;
FieldByName('ZS').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').value;
FieldByName('YarnFactor').Value := 0.059;
@ -851,6 +956,8 @@ begin
end;
end;
procedure TfrmWBSpecInPut.Tv1Column8PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
@ -904,6 +1011,7 @@ begin
Post;
end;
end;
UpdateWB_Code();
end;
procedure TfrmWBSpecInPut.v1Column3PropertiesEditValueChanged(Sender: TObject);

20
E02梭织经轴仓库/U_WBSpecList.dfm
View File

@ -370,8 +370,8 @@ inherited frmWBSpecList: TfrmWBSpecList
Width = 101
end
object v1SPSpec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
@ -422,6 +422,20 @@ inherited frmWBSpecList: TfrmWBSpecList
Options.Editing = False
Width = 100
end
object TV2FF: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2YarnFactor: TcxGridDBColumn
Caption = #32433#32447#31995#25968
DataBinding.FieldName = 'YarnFactor'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column3: TcxGridDBColumn
Caption = #26681#25968
DataBinding.FieldName = 'YarnQty'
@ -444,7 +458,7 @@ inherited frmWBSpecList: TfrmWBSpecList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Width = 123
end
object TV2Column3: TcxGridDBColumn
Caption = #20840#24133#26681#25968

5
E02梭织经轴仓库/U_WBSpecList.pas
View File

@ -77,6 +77,8 @@ type
TV2Column5: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
ToolButton3: TToolButton;
TV2FF: TcxGridDBColumn;
TV2YarnFactor: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -183,7 +185,8 @@ begin
frmLogInput := TfrmLogInput.Create(Application);
with frmLogInput do
begin
fWB_Code := '';
fWB_Code := CDS_Main.FieldByName('WB_Code').AsString;
fFlag := '查看';
if ShowModal = 1 then
begin

18
E02梭织经轴仓库/WarpBeamStk.dproj.local
View File

@ -139,24 +139,24 @@
<File Path="U_LogInput.dfm"/>
</ProjectSortOrder>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.416,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatYarnSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.108,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlan.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.215,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_Tat_WB_InPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatYarnSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.024,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WeaveSel.pas</Transaction>
<Transaction>2025/11/15 16:39:54.000.378,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas</Transaction>
<Transaction>2025/11/15 17:02:40.000.598,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_LogInput.pas</Transaction>

BIN
E02梭织经轴仓库/WarpBeamStk.identcache
View File

Binary file not shown.

BIN
E02梭织经轴仓库/testDll.identcache
View File

Binary file not shown.

74
E03梭织坯布检验/TatInsp.dproj.local
View File

@ -1,56 +1,56 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.514,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.935,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.897,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.897,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>

BIN
E03梭织坯布检验/TatInsp.identcache
View File

Binary file not shown.

4
E03梭织坯布检验/TatInspLogin.dproj.local
View File

@ -21,7 +21,7 @@
<File Path="JDAESExtend.pas"/>
</ProjectSortOrder>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj</Transaction>
</Transactions>
</BorlandProject>

2
E03梭织坯布检验/U_GetDllForm.pas
View File

@ -72,7 +72,7 @@ begin
if trim(DataBaseStr) = '' then
begin
server := '150.109.121.232,7781';
dtbase := 'YSKaiXiYadata';
dtbase := 'KaiXiYadata';
user := 'kaixiyasa';
pswd := 'rightsoft,.KXY@YN';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;

767
E03梭织坯布检验/U_TatClothInspList.dfm
View File

@ -2,14 +2,14 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Left = 160
Top = 87
Caption = #26816#39564#25253#21578
ClientHeight = 582
ClientHeight = 650
ClientWidth = 1472
Font.Height = -16
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitWidth = 1488
ExplicitHeight = 621
ExplicitHeight = 689
PixelsPerInch = 96
TextHeight = 21
object Panel6: TPanel [0]
@ -20,7 +20,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Align = alTop
AutoSize = True
BorderStyle = bsSingle
TabOrder = 3
TabOrder = 2
DesignSize = (
1468
24)
@ -113,333 +113,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
'10000')
end
end
object cxGrid1: TcxGrid [1]
Left = 0
Top = 175
Width = 1472
Height = 407
Align = alClient
BorderStyle = cxcbsNone
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 173
object Tv1: TcxGridDBTableView
OnMouseUp = Tv1MouseUp
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1Column8
end
item
Kind = skSum
Column = v1Column9
end
item
Kind = skCount
Column = v1Column6
end
item
Kind = skSum
Column = v1Column10
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column27
end
item
Kind = skSum
Column = v1Column28
end
item
Kind = skSum
Column = v1Column14
end
item
Format = #26816#39564#31995#25968'=#.##'
Kind = skAverage
end
item
Format = #25442#31639#31995#25968'=#.##'
Kind = skAverage
Column = v1MKXS
end
item
Kind = skCount
Column = v1Column23
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
OptionsView.IndicatorWidth = 30
OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell
object v1Column22: TcxGridDBColumn
Caption = #36873#20013
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 66
end
object v1Column21: TcxGridDBColumn
Caption = #25171#30721#26102#38388
DataBinding.FieldName = 'FillTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object v1Column32: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'conNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 109
end
object v1Column1: TcxGridDBColumn
Caption = #32455#36896#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object Tv1Column4: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 140
end
object v1Column13: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 114
end
object v1Column3: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column5: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column4: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column9: TcxGridDBColumn
Caption = #30133#28857#25968#37327
DataBinding.FieldName = 'CDQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 96
end
object v1Column7: TcxGridDBColumn
Caption = #30133#28857#24773#20917
DataBinding.FieldName = 'FlawList'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 115
end
object v1Column17: TcxGridDBColumn
Caption = #29366#24577
DataBinding.FieldName = 'CIIOFlag'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column18: TcxGridDBColumn
Caption = #24067#31080#21495
DataBinding.FieldName = 'PCId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column23: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'PieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column8: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column27: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'Tare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column28: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column10: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column10: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column20: TcxGridDBColumn
Caption = #25171#30721#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column14: TcxGridDBColumn
Caption = #25187#20998
DataBinding.FieldName = 'KouFenQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 66
end
object v1Column12: TcxGridDBColumn
Caption = #21697#36136
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column42: TcxGridDBColumn
Caption = #24635#35760#24405#25968
DataBinding.FieldName = 'TotalCount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object v1Column6: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'CIID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1MKXS: TcxGridDBColumn
Caption = #25442#31639#31995#25968
DataBinding.FieldName = 'Coefficient'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 103
end
object v1Column46: TcxGridDBColumn
Caption = #26816#39564#26426#21488
DataBinding.FieldName = 'CIMachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 117
end
object Tv1Column12: TcxGridDBColumn
Caption = #26426#21488#21495
DataBinding.FieldName = 'Loom'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column14: TcxGridDBColumn
Caption = #24067#21305#25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column15: TcxGridDBColumn
Caption = #32463#19997#25209#21495
DataBinding.FieldName = 'YarnBatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object ToolBar1: TToolBar [2]
object ToolBar1: TToolBar [1]
Tag = 1
Left = 0
Top = 0
@ -460,7 +134,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 5
TabOrder = 4
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -526,7 +200,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
OnClick = TBCloseClick
end
end
object MovePanel2: TMovePanel [3]
object MovePanel2: TMovePanel [2]
Left = 592
Top = 216
Width = 289
@ -540,10 +214,10 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
TabOrder = 5
Visible = False
end
object Panel1: TPanel [4]
object Panel1: TPanel [3]
Left = 0
Top = 38
Width = 1472
@ -553,7 +227,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 4
TabOrder = 3
object Label3: TLabel
Left = 219
Top = 14
@ -565,13 +239,13 @@ inherited frmTatClothInspList: TfrmTatClothInspList
object TLabel
Left = 451
Top = 14
Width = 48
Width = 80
Height = 21
Hint = '0'
Caption = #21512#21516#21495
Caption = #22383#24067#21512#21516#21495
end
object Label7: TLabel
Left = 680
Left = 696
Top = 14
Width = 32
Height = 21
@ -586,21 +260,13 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Hint = '1'
Caption = #25171#30721#20154
end
object Label10: TLabel
Left = 882
Top = 46
Width = 48
Height = 21
Hint = '1'
Caption = #21367#26465#30721
end
object Label4: TLabel
Left = 680
Left = 696
Top = 77
Width = 32
Height = 21
Hint = '1'
Caption = #21697#36136
Caption = #31561#32423
end
object Label5: TLabel
Left = 451
@ -618,14 +284,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Hint = '1'
Caption = #29366#24577
end
object Label20: TLabel
Left = 680
Top = 46
Width = 32
Height = 21
Hint = '0'
Caption = #33457#22411
end
object Label23: TLabel
Left = 219
Top = 46
@ -635,7 +293,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Caption = #22383#24067#32534#21495
end
object Label1: TLabel
Left = 882
Left = 910
Top = 14
Width = 48
Height = 21
@ -643,8 +301,8 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Caption = #24067#31080#21495
end
object Label2: TLabel
Left = 882
Top = 78
Left = 696
Top = 46
Width = 48
Height = 21
Hint = '1'
@ -668,7 +326,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Date = 44774.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009100
TabOrder = 6
TabOrder = 5
end
object OrderNo: TEdit
Tag = 2
@ -682,33 +340,23 @@ inherited frmTatClothInspList: TfrmTatClothInspList
end
object conNO: TEdit
Tag = 2
Left = 518
Left = 534
Top = 10
Width = 150
Height = 29
Hint = '0'
TabOrder = 7
TabOrder = 6
OnKeyPress = conNOKeyPress
end
object CIID: TEdit
Tag = 2
Left = 932
Top = 42
Width = 150
Height = 29
Hint = '1'
TabOrder = 3
OnKeyPress = KHConNOKeyPress
end
object Grade: TComboBox
Tag = 2
Left = 718
Left = 746
Top = 73
Width = 150
Height = 29
Hint = '1'
Style = csDropDownList
TabOrder = 10
TabOrder = 9
OnChange = GradeChange
OnKeyPress = KHConNOKeyPress
Items.Strings = (
@ -720,7 +368,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
end
object C_Name: TEdit
Tag = 2
Left = 518
Left = 534
Top = 42
Width = 150
Height = 29
@ -736,7 +384,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Height = 29
Hint = '1'
Style = csDropDownList
TabOrder = 9
TabOrder = 8
OnChange = CIIOFlagChange
OnKeyPress = KHConNOKeyPress
Items.Strings = (
@ -747,23 +395,23 @@ inherited frmTatClothInspList: TfrmTatClothInspList
end
object Filler: TComboBox
Tag = 2
Left = 518
Left = 534
Top = 73
Width = 150
Height = 29
Hint = '1'
Style = csDropDownList
TabOrder = 4
TabOrder = 3
OnKeyPress = KHConNOKeyPress
end
object C_Color: TEdit
Tag = 2
Left = 718
Left = 746
Top = 10
Width = 150
Height = 29
Hint = '0'
TabOrder = 8
TabOrder = 7
OnKeyPress = conNOKeyPress
end
object IsJYTime: TCheckBox
@ -774,17 +422,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Caption = #26816#39564#26085#26399
Checked = True
State = cbChecked
TabOrder = 5
end
object C_Pattern: TEdit
Tag = 2
Left = 718
Top = 42
Width = 150
Height = 29
Hint = '0'
TabOrder = 11
OnKeyPress = KHConNOKeyPress
TabOrder = 4
end
object C_Code: TEdit
Tag = 2
@ -793,27 +431,27 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Width = 150
Height = 29
Hint = '0'
TabOrder = 12
TabOrder = 10
OnKeyPress = KHConNOKeyPress
end
object PCId: TEdit
Tag = 2
Left = 932
Left = 960
Top = 10
Width = 150
Height = 29
Hint = '0'
TabOrder = 13
TabOrder = 11
OnKeyPress = KHConNOKeyPress
end
object Loom: TEdit
Tag = 2
Left = 932
Top = 74
Left = 746
Top = 42
Width = 150
Height = 29
Hint = '1'
TabOrder = 14
TabOrder = 12
OnKeyPress = KHConNOKeyPress
end
end
@ -830,6 +468,311 @@ inherited frmTatClothInspList: TfrmTatClothInspList
ExplicitTop = 297
ExplicitHeight = 29
end
object Panel2: TPanel [6]
Left = 0
Top = 175
Width = 1472
Height = 475
Align = alClient
TabOrder = 6
ExplicitLeft = 400
ExplicitTop = 440
ExplicitWidth = 185
ExplicitHeight = 41
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 1470
Height = 312
Align = alTop
BorderStyle = cxcbsNone
PopupMenu = PM_1
TabOrder = 0
ExplicitTop = 2
object Tv1: TcxGridDBTableView
OnMouseUp = Tv1MouseUp
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skSum
Column = v1Column10
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Format = #26816#39564#31995#25968'=#.##'
Kind = skAverage
end
item
Format = #25442#31639#31995#25968'=#.##'
Kind = skAverage
end
item
Kind = skCount
Column = v1Column23
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
OptionsView.IndicatorWidth = 30
OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell
object v1Column22: TcxGridDBColumn
Caption = #36873#20013
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 66
end
object v1Column21: TcxGridDBColumn
Caption = #25171#30721#26102#38388
DataBinding.FieldName = 'FillTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object v1Column32: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'conNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 109
end
object v1Column1: TcxGridDBColumn
Caption = #32455#36896#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object Tv1Column4: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 140
end
object v1Column13: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 114
end
object v1Column3: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column5: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column4: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1PacketNo: TcxGridDBColumn
Caption = #21253#21495
DataBinding.FieldName = 'PacketNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column23: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'PieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column10: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column12: TcxGridDBColumn
Caption = #31561#32423
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column17: TcxGridDBColumn
Caption = #29366#24577
DataBinding.FieldName = 'CIIOFlag'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column12: TcxGridDBColumn
Caption = #26426#21488#21495
DataBinding.FieldName = 'Loom'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object v1Column18: TcxGridDBColumn
Caption = #24067#31080#21495
DataBinding.FieldName = 'PCId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column20: TcxGridDBColumn
Caption = #25171#30721#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object cxGrid2: TcxGrid
Left = 1
Top = 313
Width = 1470
Height = 161
Align = alClient
TabOrder = 1
ExplicitLeft = 2
ExplicitTop = 319
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsView.GroupByBox = False
object Tv2FillTime: TcxGridDBColumn
Caption = #39564#24067#26102#38388
DataBinding.FieldName = 'FillTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 106
end
object Tv2Inspector: TcxGridDBColumn
Caption = #39564#24067#20154
DataBinding.FieldName = 'Inspector'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2Qty: TcxGridDBColumn
Caption = #39564#24067#25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2Score: TcxGridDBColumn
Caption = #25187#20998
DataBinding.FieldName = 'Score'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2IsQualified: TcxGridDBColumn
Caption = #26159#21542#21512#26684
DataBinding.FieldName = 'IsQualified'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2IsCut: TcxGridDBColumn
Caption = #26159#21542#24320#21305
DataBinding.FieldName = 'IsCut'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2Note: TcxGridDBColumn
Caption = #21407#22240
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv2
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatInsp.ADOLink
Left = 201
@ -841,7 +784,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Top = 225
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 532
Top = 320
@ -894,22 +836,22 @@ inherited frmTatClothInspList: TfrmTatClothInspList
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 708
Top = 392
Left = 836
Top = 224
ReportData = {}
end
object RMDB_1: TRMDBDataSet
Visible = True
DataSet = ADOQueryPrint
Left = 644
Top = 392
Left = 780
Top = 224
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_TatInsp.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 568
Top = 384
Left = 704
Top = 224
end
object PM_1: TPopupMenu
Left = 748
@ -919,4 +861,21 @@ inherited frmTatClothInspList: TfrmTatClothInspList
OnClick = N1Click
end
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 360
Top = 495
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 440
Top = 511
end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 560
Top = 495
end
end

144
E03梭织坯布检验/U_TatClothInspList.pas
View File

@ -39,6 +39,36 @@ type
ToolButton1: TToolButton;
PM_1: TPopupMenu;
N1: TMenuItem;
Panel6: TPanel;
Label31: TLabel;
LBCPAP: TLabel;
BTLP: TButton;
BTNP: TButton;
TCBNOR: TComboBox;
Panel1: TPanel;
Label3: TLabel;
Label7: TLabel;
Label8: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label23: TLabel;
Label1: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
OrderNo: TEdit;
conNO: TEdit;
Grade: TComboBox;
C_Name: TEdit;
CIIOFlag: TComboBox;
Filler: TComboBox;
C_Color: TEdit;
IsJYTime: TCheckBox;
C_Code: TEdit;
PCId: TEdit;
Label2: TLabel;
Loom: TEdit;
Panel2: TPanel;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn;
@ -47,63 +77,31 @@ type
v1Column1: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column23: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column27: TcxGridDBColumn;
v1Column28: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column20: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column42: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1MKXS: TcxGridDBColumn;
v1Column46: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Panel6: TPanel;
Label31: TLabel;
LBCPAP: TLabel;
BTLP: TButton;
BTNP: TButton;
TCBNOR: TComboBox;
Tv1Column10: TcxGridDBColumn;
Panel1: TPanel;
Label3: TLabel;
Label7: TLabel;
Label8: TLabel;
Label10: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label20: TLabel;
Label23: TLabel;
Label1: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
OrderNo: TEdit;
conNO: TEdit;
CIID: TEdit;
Grade: TComboBox;
C_Name: TEdit;
CIIOFlag: TComboBox;
Filler: TComboBox;
C_Color: TEdit;
IsJYTime: TCheckBox;
C_Pattern: TEdit;
C_Code: TEdit;
PCId: TEdit;
v1Column4: TcxGridDBColumn;
Tv1PacketNo: TcxGridDBColumn;
v1Column23: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Label2: TLabel;
Loom: TEdit;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column20: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Tv2: TcxGridDBTableView;
cxGrid2Level1: TcxGridLevel;
cxGrid2: TcxGrid;
Tv2FillTime: TcxGridDBColumn;
Tv2Inspector: TcxGridDBColumn;
Tv2Qty: TcxGridDBColumn;
Tv2Score: TcxGridDBColumn;
Tv2IsQualified: TcxGridDBColumn;
Tv2IsCut: TcxGridDBColumn;
Tv2Note: TcxGridDBColumn;
CDS_2: TClientDataSet;
DS_2: TDataSource;
GPM_2: TcxGridPopupMenu;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -130,6 +128,9 @@ type
procedure TBExportClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
private
DQdate: TDateTime;
FLeft, FTop: Integer;
@ -138,6 +139,7 @@ type
function Savedata(): Boolean;
procedure SetStatus();
procedure PrintCKMDG(MRKOrdID: string);
procedure InitSubGrid();
{ Private declarations }
public
FFInt: Integer;
@ -176,7 +178,7 @@ end;
procedure TfrmTatClothInspList.FormCreate(Sender: TObject);
begin
inherited;
cxgrid1.Align := alClient;
// cxgrid1.Align := alClient;
DQdate := SGetServerDate(ADOQueryTemp);
FWorkshop := trim(Self.fParameters3);
end;
@ -255,6 +257,30 @@ begin
end;
end;
procedure TfrmTatClothInspList.InitSubGrid();
begin
try
ADOQueryTemp.DisableControls;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Tat_Cloth_DeskInspect ');
sql.Add('where PCID = ' + QuotedStr(Trim( Order_Main.FieldByName('PCID').AsString )));
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2);
finally
ADOQueryTemp.EnableControls;
end;
end;
procedure TfrmTatClothInspList.TBRafreshClick(Sender: TObject);
begin
OrderNo.SetFocus;
@ -674,5 +700,13 @@ begin
end;
end;
procedure TfrmTatClothInspList.Tv1FocusedRecordChanged(
Sender: TcxCustomGridTableView; APrevFocusedRecord,
AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
initSubGrid();
end;
end.

178
E04梭织坯布仓库/TatClothStk.dproj.local
View File

@ -1,95 +1,95 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.181,=D:\Dp10Repo\项目代码\路尚\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.456,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_TatClothInfoInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.559,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList_ZDDY.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.025,D:\Dp10RepoV1\项目代码\花蝴蝶\B03基础物料仓库\U_ProductInfoInPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.627,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.390,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.280,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.338,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.500,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.862,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsinput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.526,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\路尚\B03基础物料仓库\U_ProductInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.326,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.754,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.744,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.618,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessListSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.541,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.139,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>2025-07-03 14:12:23.000.877,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
<Transaction>2025-07-12 10:29:31.000.435,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
<Transaction>2025-07-12 10:34:14.000.410,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas=</Transaction>
<Transaction>2025-07-12 10:51:18.000.202,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
<Transaction>2025-07-12 10:53:24.000.590,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas=</Transaction>
<Transaction>2025-07-12 10:53:58.000.993,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.559,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList_ZDDY.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.025,D:\Dp10RepoV1\项目代码\花蝴蝶\B03基础物料仓库\U_ProductInfoInPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_TatClothInfoInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.456,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.181,=D:\Dp10Repo\项目代码\路尚\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.541,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.618,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessListSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.744,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.280,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.338,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.500,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.627,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.390,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.862,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsinput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.877,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\路尚\B03基础物料仓库\U_ProductInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.526,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.326,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.139,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.435,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.590,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.202,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.410,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas=</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>

BIN
E04梭织坯布仓库/TatClothStk.identcache
View File

Binary file not shown.

59
T00贸易通用窗体/U_TradeSalesContractSel.dfm
View File

@ -10,6 +10,7 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
Font.Name = #23435#20307
Position = poScreenCenter
OnClose = FormClose
ExplicitLeft = -689
ExplicitWidth = 1556
ExplicitHeight = 597
PixelsPerInch = 96
@ -76,23 +77,22 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
Font.Style = []
ParentFont = False
TabOrder = 1
ExplicitTop = 32
object Label1: TLabel
Left = 18
Top = 15
Width = 48
Width = 80
Height = 16
Caption = #21512#21516#21495
Caption = #22383#24067#21512#21516#21495
end
object Label2: TLabel
Left = 464
Left = 491
Top = 15
Width = 64
Height = 16
Caption = #20135#21697#21517#31216
end
object Label3: TLabel
Left = 252
Left = 279
Top = 15
Width = 32
Height = 16
@ -100,7 +100,7 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
end
object ConNo: TEdit
Tag = 2
Left = 70
Left = 97
Top = 11
Width = 169
Height = 24
@ -109,7 +109,7 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
end
object C_Name: TEdit
Tag = 2
Left = 532
Left = 559
Top = 11
Width = 169
Height = 24
@ -118,7 +118,7 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
end
object BuyName: TEdit
Tag = 2
Left = 286
Left = 313
Top = 11
Width = 169
Height = 24
@ -141,7 +141,6 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
ParentFont = False
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 116
object TV1: TcxGridDBTableView
OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <>
@ -193,27 +192,19 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
Width = 100
end
object TV1Column1: TcxGridDBColumn
Caption = #21512#21516#21495
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
Width = 99
end
object TV1Column6: TcxGridDBColumn
Caption = #23458#25143#21333#21495
Caption = #38754#26009#21512#21516#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV1Column5: TcxGridDBColumn
Caption = #32463#33829#21333#20301
DataBinding.FieldName = 'SellName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
Width = 96
end
object TV1Column3: TcxGridDBColumn
Caption = #23458#25143
@ -223,22 +214,6 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
Options.Editing = False
Width = 70
end
object TV1Column9: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object TV1Column4: TcxGridDBColumn
Caption = #20013#38388#21830
DataBinding.FieldName = 'MiddleName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object TV1Column2: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
@ -270,14 +245,6 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
Options.Editing = False
Width = 70
end
object TV1Column10: TcxGridDBColumn
Caption = #29256#26412#32534#21495
DataBinding.FieldName = 'BBNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column5: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
@ -348,7 +315,7 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
Width = 70
end
object v1Column7: TcxGridDBColumn
Caption = #20811#37325
Caption = #22383#24067#20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'

4
T00贸易通用窗体/U_TradeSalesContractSel.pas
View File

@ -52,8 +52,6 @@ type
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
TV1Column4: TcxGridDBColumn;
TV1Column5: TcxGridDBColumn;
TV1Column6: TcxGridDBColumn;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
@ -77,8 +75,6 @@ type
C_Name: TEdit;
Label3: TLabel;
BuyName: TEdit;
TV1Column9: TcxGridDBColumn;
TV1Column10: TcxGridDBColumn;
TV1Column13: TcxGridDBColumn;
cxTabControl1: TcxTabControl;
procedure FormCreate(Sender: TObject);