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

cai1.14

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2026-01-14 17:32:54 +08:00
parent 585aedd9d7
commit f6d6acd3be
79 changed files with 9067 additions and 802 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
A00通用窗体/U_SalesContractCPSel.dfm
View File

@ -10,7 +10,6 @@ inherited frmSalesContractCPSel: TfrmSalesContractCPSel
Font.Name = #23435#20307
Position = poScreenCenter
OnClose = FormClose
ExplicitLeft = -689
ExplicitWidth = 1556
ExplicitHeight = 633
PixelsPerInch = 96
@ -71,8 +70,7 @@ inherited frmSalesContractCPSel: TfrmSalesContractCPSel
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
ExplicitLeft = 8
ExplicitTop = 32
ExplicitTop = 44
object Label1: TLabel
Left = 18
Top = 15
@ -234,7 +232,7 @@ inherited frmSalesContractCPSel: TfrmSalesContractCPSel
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
Width = 75
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #25104#20998

13
A00通用窗体/U_SalesContractCPSel.pas
View File

@ -149,9 +149,16 @@ begin
begin
Close;
sql.Clear;
sql.Add('select A.*,B.*,C.C_FinishLatitudeDensity,C.C_FinishLongitudeDensity from CP_Contract_Main A inner join CP_Contract_SUB B on A.ConMId=B.ConMId ');
sql.Add(' and isnull(A.status,''0'')=''9''');
sql.Add(' left join Bs_Cloth_Info C on B.C_Code=C.C_Code ');
sql.Add('select A.*,B.* ');
// SQL.Add(' ,B.ConMId,B.ConSId,B.FromConNo,B.FromConMId,B.FromConSId ');
// SQL.Add(' ,B.SerialNo,B.BCIID,B.ConQty,B.ConUnit,B.ConPrice,B.ConTotalAmount');
// SQL.Add(' ,B.JHDate,B.YDZ,B.ConSNote,B.CP_CODE,B.CP_NAME ');
// SQL.Add(' ,C.C_Code,C.C_Name,C.C_Spec,C.C_Composition,C.C_Color,C.C_ColorNo,C.C_Pattern ');
// SQL.Add(' ,C.C_StyleNo,C.C_FinishLongitudeDensity,C.C_FinishLatitudeDensity');
// SQL.Add(' ,C.C_Width,C.C_GramWeight');
// SQL.Add(' ,AttName=(select top 1 FileName from TP_File X where X.WBID = B.BCIID ORDER BY FillTime )');
sql.Add(' from CP_Contract_Main A inner join CP_Contract_SUB B on (A.ConMId=B.ConMId and isnull(A.status,''0'')=''9'') ');
// sql.Add(' left join Bs_Cloth_Info C on B.BCIID=C.BCIID ');
Open;
end;
// SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));

10
A00通用窗体/U_TatClothInfoSel.dfm
View File

@ -10,7 +10,6 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Font.Name = #23435#20307
Position = poScreenCenter
OnClose = FormClose
ExplicitLeft = -634
ExplicitWidth = 1501
ExplicitHeight = 673
PixelsPerInch = 96
@ -112,6 +111,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Height = 508
Align = alClient
TabOrder = 0
ExplicitLeft = 6
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
@ -268,6 +268,14 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1BCIID: TcxGridDBColumn
Caption = #20135#21697#20027#38190
DataBinding.FieldName = 'BCIID'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

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

@ -83,6 +83,7 @@ type
Tv1Column15: TcxGridDBColumn;
Tv1C_FinishLatitudeDensity: TcxGridDBColumn;
Tv1C_FinishLongitudeDensity: TcxGridDBColumn;
Tv1BCIID: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);

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

@ -127,7 +127,6 @@ inherited frmWBSpecSel: TfrmWBSpecSel
Height = 484
Align = alClient
TabOrder = 2
ExplicitTop = 80
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

5
A00通用窗体/U_WBSpecSel.pas
View File

@ -89,6 +89,7 @@ type
{ Private declarations }
public
FSTKName, FAuthority, FYType: string;
fWB_TYPE : string;
{ Public declarations }
end;
@ -148,8 +149,8 @@ begin
sql.Add(' from Tat_WB_Spec A');
SQL.Add(' where 1=1');
sql.Add(' and isnull(ISSizing,''·ñ'')=''·ñ'' ');
// if Trim(FYType) <> '' then
// sql.Add(' where Y_Type=' + QuotedStr(FYType));
if Trim(fWB_TYPE) <> '' then
sql.Add(' and WB_TYPE=' + QuotedStr(fWB_TYPE));
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);

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

@ -79,7 +79,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
ExplicitTop = 36
object Label1: TLabel
Left = 216
Top = 10
@ -119,6 +118,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Align = alClient
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 69
object Tv1: TcxGridDBTableView
OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <>
@ -144,7 +144,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.GroupByBox = False
object Tv1Column1: TcxGridDBColumn
object Tv1SSEL: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSEL'
DataBinding.IsNullValueType = True
@ -153,14 +153,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
HeaderAlignmentHorz = taCenter
Width = 46
end
object Tv1Column4: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 127
end
object v1SPName: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
@ -170,40 +162,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Options.Editing = False
Width = 101
end
object v1Column18: TcxGridDBColumn
Caption = #37319#36141#21152#24037#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 106
end
object v1Column15: TcxGridDBColumn
Tag = 2
Caption = #21697#29260
DataBinding.FieldName = 'SXPinPai'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 103
end
object v1QtyUnit: TcxGridDBColumn
Tag = 2
Caption = #25104#20998
@ -213,46 +171,14 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Options.Editing = False
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
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 92
end
object v1Column10: TcxGridDBColumn
Tag = 2
Caption = #36816#36153
DataBinding.FieldName = 'YunFei'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 68
end
object v1Column3: TcxGridDBColumn
Tag = 2
object Tv1Denier: TcxGridDBColumn
Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 102
Width = 80
end
object Tv1Column7: TcxGridDBColumn
object Tv1ZS: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
@ -260,14 +186,28 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Options.Editing = False
Width = 100
end
object Tv1Column5: TcxGridDBColumn
object Tv1FF: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Y_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object Tv1Note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 103
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

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

@ -33,13 +33,8 @@ type
ImageList1: TImageList;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column18: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1SPName: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1QtyUnit: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
@ -56,19 +51,20 @@ type
handBlack: TcxStyle;
cxBlue: TcxStyle;
SHuangSeCu: TcxStyle;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1SSEL: TcxGridDBColumn;
Tv1Y_Color: TcxGridDBColumn;
PM_1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
cxImageList_bar: TcxImageList;
ToolButton2: TToolButton;
Tv1Column4: TcxGridDBColumn;
Label2: TLabel;
Y_Code: TcxTextEdit;
Tv1Column5: TcxGridDBColumn;
ToolButton3: TToolButton;
Tv1Column7: TcxGridDBColumn;
Tv1ZS: TcxGridDBColumn;
Tv1Denier: TcxGridDBColumn;
Tv1FF: TcxGridDBColumn;
Tv1Note: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);

50
A01基础公司管理/Company.dproj.local
View File

@ -2,43 +2,43 @@
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.387,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.175,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.829,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_EmployeeInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.069,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.385,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.385,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.pas</Transaction>
<Transaction>2025/09/16 11:02:56.000.629,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A01基础公司管理\U_SupplierImport.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">

BIN
A01基础公司管理/Company.identcache
View File

Binary file not shown.

104
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.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.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.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.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.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.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.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.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.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.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.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.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.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.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.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.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.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.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.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.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.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.493,=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.944,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\U_HttpFun.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.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>

104
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.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.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.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.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.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.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.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.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.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.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.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.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.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.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.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.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.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.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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.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.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.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.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.582,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.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.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.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.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.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.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.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.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm</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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.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.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.

54
B01基础合同管理/U_SalesConInPut.dfm
View File

@ -10,7 +10,6 @@ inherited frmSalesConInPut: TfrmSalesConInPut
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
ExplicitLeft = -251
ExplicitWidth = 1522
ExplicitHeight = 787
PixelsPerInch = 96
@ -32,6 +31,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
ParentColor = False
ShowCaptions = True
TabOrder = 0
ExplicitTop = 1
object TBSave: TToolButton
Left = 0
Top = 0
@ -87,7 +87,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Caption = #19994#21153#21592#65306
end
object Label10: TLabel
Left = 40
Left = 38
Top = 10
Width = 64
Height = 21
@ -101,7 +101,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Caption = #23458#25143#65306
end
object Label20: TLabel
Left = 40
Left = 38
Top = 45
Width = 80
Height = 21
@ -130,7 +130,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Caption = #20013#38388#21830#65306
end
object Label27: TLabel
Left = 40
Left = 38
Top = 225
Width = 80
Height = 21
@ -172,21 +172,21 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Caption = #20323#37329#27604#20363#65306
end
object Label11: TLabel
Left = 40
Left = 38
Top = 190
Width = 80
Height = 21
Caption = #20184#27454#26041#24335#65306
end
object Label12: TLabel
Left = 40
Left = 38
Top = 154
Width = 80
Height = 21
Caption = #36816#36755#26041#24335#65306
end
object Label4: TLabel
Left = 40
Left = 38
Top = 302
Width = 80
Height = 21
@ -200,7 +200,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Caption = #20215#26684#26415#35821#65306
end
object Label8: TLabel
Left = 40
Left = 38
Top = 339
Width = 80
Height = 21
@ -231,7 +231,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Visible = False
end
object Label23: TLabel
Left = 40
Left = 38
Top = 118
Width = 80
Height = 21
@ -268,7 +268,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Caption = #24067#21305#31867#22411#65306
end
object Label18: TLabel
Left = 40
Left = 38
Top = 81
Width = 80
Height = 21
@ -303,7 +303,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Caption = #21345#21495#65306
end
object Label31: TLabel
Left = 44
Left = 42
Top = 264
Width = 80
Height = 21
@ -332,7 +332,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end
object ConNo: TcxTextEdit
Tag = 2
Left = 114
Left = 112
Top = 7
TabOrder = 0
Text = #33258#21160#29983#25104
@ -449,7 +449,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end
object PackNote: TcxButtonEdit
Tag = 2
Left = 114
Left = 112
Top = 333
Hint = 'PackNote/'#21253#35013#35201#27714
Properties.Buttons = <
@ -465,7 +465,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end
object Sellname: TcxButtonEdit
Tag = 2
Left = 114
Left = 112
Top = 42
Properties.Buttons = <
item
@ -497,7 +497,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end
object ShipMent: TcxButtonEdit
Tag = 2
Left = 114
Left = 112
Top = 148
Hint = 'ShipMent/'#36816#36755#26041#24335
Properties.Buttons = <
@ -545,7 +545,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end
object Payment: TcxButtonEdit
Tag = 2
Left = 114
Left = 112
Top = 184
Hint = 'Payment/'#20184#27454#26041#24335
Properties.Buttons = <
@ -594,7 +594,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end
object ShippingSample: TcxButtonEdit
Tag = 2
Left = 114
Left = 112
Top = 296
Hint = 'ShippingSample/'#33337#26679#35201#27714
Properties.Buttons = <
@ -627,7 +627,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end
object ConType: TcxComboBox
Tag = 2
Left = 114
Left = 112
Top = 112
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
@ -670,7 +670,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end
object IsTax: TcxComboBox
Tag = 2
Left = 114
Left = 112
Top = 221
Properties.Items.Strings = (
#26159
@ -693,7 +693,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end
object GFDZ: TcxTextEdit
Tag = 2
Left = 114
Left = 112
Top = 77
TabOrder = 29
Width = 489
@ -738,7 +738,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end
object YHDZ: TcxTextEdit
Tag = 2
Left = 114
Left = 112
Top = 261
TabOrder = 34
OnKeyPress = ExchangeRateKeyPress
@ -801,6 +801,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
ParentFont = False
ShowCaptions = True
TabOrder = 2
ExplicitTop = 407
object ToolButton4: TToolButton
Left = 0
Top = 0
@ -843,6 +844,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
BorderStyle = cxcbsNone
PopupMenu = pm_sub
TabOrder = 3
ExplicitTop = 437
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -921,6 +923,14 @@ inherited frmSalesConInPut: TfrmSalesConInPut
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1BCIID: TcxGridDBColumn
Caption = #20135#21697#20027#38190
DataBinding.FieldName = 'BCIID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column4: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
@ -1146,7 +1156,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Properties.DecimalPlaces = 0
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
Width = 91
end
object Tv1Column12: TcxGridDBColumn
Caption = #25237#22383#31995#25968

135
B01基础合同管理/U_SalesConInPut.pas
View File

@ -149,6 +149,7 @@ type
Label35: TLabel;
InspScore: TcxTextEdit;
InspStandard: TcxButtonEdit;
Tv1BCIID: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -386,7 +387,6 @@ end;
procedure TfrmSalesConInPut.TBCloseClick(Sender: TObject);
begin
Close;
end;
@ -400,10 +400,19 @@ begin
begin
Close;
SQL.Clear;
sql.Add(' select * from BS_Contract_Sub ');
sql.Add('where ConMId=''' + Trim(FConMId) + '''');
sql.Add(' select A.ConMId,A.ConSId,A.FROMCPMID,A.FROMCPSID ');
sql.Add(' ,A.SerialNo,A.BCIID,A.ConQty,A.ConUnit,A.ConPrice,A.ConTotalAmount ');
SQL.Add(' ,A.TaxRate,A.Tax,A.TaxInclude,A.JHDate,A.YDZ,A.ConSNote,A.CP_CODE,A.CP_NAME ');
sql.add(' ,A.CP_QTY,A.CP_TPXS ');
SQL.Add(' ,B.C_Code,B.C_Name,B.C_Spec,B.C_Composition,B.C_Color,B.C_ColorNo,B.C_Pattern ');
SQL.Add(' ,B.C_StyleNo,B.C_FinishLongitudeDensity,B.C_FinishLatitudeDensity');
SQL.Add(' ,B.C_Width,B.C_GramWeight');
SQL.Add(' ,AttName=(select top 1 FileName from TP_File X where X.WBID = A.BCIID ORDER BY FillTime )');
SQL.Add(' from BS_Contract_Sub A');
SQL.Add(' left join BS_Cloth_info B on A.BCIID = B.BCIID ');
sql.Add(' where A.ConMId=''' + Trim(FConMId) + '''');
// sql.Add(' and ConSID = ''CS251011001'' ');
sql.Add(' order by SerialNo ');
sql.Add(' order by A.SerialNo ');
Open;
end;
SCreateCDS(ADOTemp, Order_Sub);
@ -425,10 +434,19 @@ begin
begin
Close;
SQL.Clear;
sql.Add(' select * from BS_Contract_Sub ');
sql.Add('where ConMId=''' + Trim(FConMId) + '''');
sql.Add(' select A.ConMId,A.ConSId,A.FROMCPMID,A.FROMCPSID ');
sql.Add(' ,A.SerialNo,A.BCIID,A.ConQty,A.ConUnit,A.ConPrice,A.ConTotalAmount ');
SQL.Add(' ,A.TaxRate,A.Tax,A.TaxInclude,A.JHDate,A.YDZ,A.ConSNote,A.CP_CODE,A.CP_NAME ');
sql.add(' ,A.CP_QTY,A.CP_TPXS ');
SQL.Add(' ,B.C_Code,B.C_Name,B.C_Spec,B.C_Composition,B.C_Color,B.C_ColorNo,B.C_Pattern ');
SQL.Add(' ,B.C_StyleNo,B.C_FinishLongitudeDensity,B.C_FinishLatitudeDensity');
SQL.Add(' ,B.C_Width,B.C_GramWeight');
SQL.Add(' ,AttName=(select top 1 FileName from TP_File X where X.WBID = A.BCIID ORDER BY FillTime )');
SQL.Add(' from BS_Contract_Sub A');
SQL.Add(' left join BS_Cloth_info B on A.BCIID = B.BCIID ');
sql.Add(' where A.ConMId=''' + Trim(FConMId) + '''');
// sql.Add(' and ConSID = ''CS251011001'' ');
sql.Add(' order by SerialNo ');
sql.Add(' order by A.SerialNo ');
Open;
end;
SCreateCDS(ADOCmd, Order_Sub);
@ -1021,7 +1039,7 @@ begin
FieldByName('SSEL').Value := FALSE;
FieldByName('SerialNo').Value := i;
FieldByName('ConSId').Value := maxno;
FieldByName('C_Color').Value := '';
// FieldByName('C_Color').Value := '';
FieldByName('ConQty').Value := null;
FieldByName('ConUnit').Value := 'M';
Post;
@ -1112,28 +1130,26 @@ begin
begin
append;
Order_Sub.fieldbyname('C_Code').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').asstring;
Order_Sub.fieldbyname('C_Name').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').asstring;
Order_Sub.fieldbyname('BCIID').Value := frmTatClothInfoSel.CDS_1.fieldbyname('BCIID').asstring;
Order_Sub.fieldbyname('C_Code').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_Code').Value;
Order_Sub.fieldbyname('C_Name').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_Code').Value;
Order_Sub.fieldbyname('C_Spec').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_Spec').Value;
Order_Sub.fieldbyname('C_Composition').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_Composition').Value;
Order_Sub.fieldbyname('C_Color').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_Color').Value;
Order_Sub.fieldbyname('C_ColorNo').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_ColorNo').Value;
Order_Sub.fieldbyname('C_Pattern').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_Pattern').Value;
Order_Sub.fieldbyname('C_StyleNo').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_StyleNo').Value;
Order_Sub.fieldbyname('C_FinishLongitudeDensity').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_FinishLongitudeDensity').Value;
Order_Sub.fieldbyname('C_FinishLatitudeDensity').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_FinishLatitudeDensity').Value;
Order_Sub.fieldbyname('C_Width').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_Width').Value;
Order_Sub.fieldbyname('C_GramWeight').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_GramWeight').Value;
Order_Sub.fieldbyname('C_Spec').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Spec').asstring;
Order_Sub.fieldbyname('C_Composition').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Composition').asstring;
Order_Sub.fieldbyname('C_Color').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Color').asstring;
Order_Sub.fieldbyname('C_ColorNo').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_ColorNo').asstring;
Order_Sub.fieldbyname('C_Pattern').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Pattern').asstring;
Order_Sub.fieldbyname('C_StyleNo').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_StyleNo').asstring;
Order_Sub.fieldbyname('C_Width').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Width').asstring;
Order_Sub.fieldbyname('C_GramWeight').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_GramWeight').asstring;
Order_Sub.fieldbyname('BBNO').Value := frmTatClothInfoSel.CDS_1.fieldbyname('BBNO').asstring;
FieldByName('SSEL').Value := FALSE;
FieldByName('SerialNo').Value := i;
FieldByName('ConSId').Value := maxno;
FieldByName('ConQty').Value := null;
FieldByName('ConTotalAmount').Value := null;
FieldByName('ConUnit').Value := 'M';
Order_Sub.FieldByName('SSEL').Value := FALSE;
Order_Sub.FieldByName('SerialNo').Value := i;
Order_Sub.FieldByName('ConSId').Value := maxno;
Order_Sub.FieldByName('ConQty').Value := null;
Order_Sub.FieldByName('ConTotalAmount').Value := null;
Order_Sub.FieldByName('ConUnit').Value := 'M';
end;
end;
Next;
@ -1186,42 +1202,72 @@ begin
begin
append;
// Order_Sub.fieldbyname('BCIID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('BCIID').asstring;
// Order_Sub.fieldbyname('ConQty').Value := frmSalesContractCPSel.CDS_1.fieldbyname('ConQty').asstring;
// Order_Sub.fieldbyname('ConPrice').Value := frmSalesContractCPSel.CDS_1.fieldbyname('ConPrice').asstring;
// Order_Sub.fieldbyname('ConTotalAmount').Value := frmSalesContractCPSel.CDS_1.fieldbyname('ConTotalAmount').asstring;
// Order_Sub.fieldbyname('TaxRate').Value := frmSalesContractCPSel.CDS_1.fieldbyname('TaxRate').asstring;
// Order_Sub.fieldbyname('Tax').Value := frmSalesContractCPSel.CDS_1.fieldbyname('Tax').asstring;
// Order_Sub.fieldbyname('TaxInclude').Value := frmSalesContractCPSel.CDS_1.fieldbyname('TaxInclude').asstring;
// Order_Sub.fieldbyname('JHDate').Value := frmSalesContractCPSel.CDS_1.fieldbyname('JHDate').asstring;
Order_Sub.fieldbyname('YDZ').Value := frmSalesContractCPSel.CDS_1.fieldbyname('YDZ').asstring;
// Order_Sub.fieldbyname('ConSNote').Value := frmSalesContractCPSel.CDS_1.fieldbyname('ConSNote').asstring;
Order_Sub.fieldbyname('CP_Code').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Code').asstring;
Order_Sub.fieldbyname('CP_Name').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Name').asstring;
Order_Sub.fieldbyname('FROMCPSID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CONSID').asstring;
Order_Sub.fieldbyname('FROMCPMID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CONMID').asstring;
// Order_Sub.FieldByName('CP_QTY').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CP_QTY').ASFLOAT;
// Order_Sub.FieldByName('CP_TPXS').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CP_TPXS').ASFLOAT;
Order_Sub.fieldbyname('C_Width').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Width').asstring;
Order_Sub.fieldbyname('C_GramWeight').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_GramWeight').asstring;
Order_Sub.fieldbyname('C_FinishLongitudeDensity').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_FinishLongitudeDensity').asstring;
Order_Sub.fieldbyname('C_FinishLatitudeDensity').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_FinishLatitudeDensity').asstring;
Order_Sub.fieldbyname('ConUnit').Value := 'M';
FieldByName('SSEL').Value := FALSE;
FieldByName('SerialNo').Value := i;
FieldByName('ConSId').Value := maxno;
FieldByName('CP_QTY').Value := frmSalesContractCPSel.CDS_1.fieldbyname('ConQty').ASFLOAT;
Order_Sub.FieldByName('SSEL').Value := FALSE;
Order_Sub.FieldByName('SerialNo').Value := i;
Order_Sub.FieldByName('ConSId').Value := maxno;
end;
with ADOQueryCmd do
begin
close;
SQL.Clear;
SQL.Add(' select top(1) * from BS_Contract_Sub where CP_Code = ' + QuotedStr(Trim(Order_Sub.fieldbyname('CP_Code').AsString)));
// ShowMessage(sql.Text);
sql.Add(' select top(1) A.ConMId,A.ConSId,A.FROMCPMID,A.FROMCPSID ');
sql.Add(' ,A.SerialNo,A.BCIID,A.ConQty,A.ConUnit,A.ConPrice,A.ConTotalAmount ');
SQL.Add(' ,A.TaxRate,A.Tax,A.TaxInclude,A.JHDate,A.YDZ,A.ConSNote,A.CP_CODE,A.CP_NAME ');
sql.add(' ,A.CP_QTY,A.CP_TPXS ');
SQL.Add(' ,B.C_Code,B.C_Name,B.C_Spec,B.C_Composition,B.C_Color,B.C_ColorNo,B.C_Pattern ');
SQL.Add(' ,B.C_StyleNo,B.C_FinishLongitudeDensity,B.C_FinishLatitudeDensity');
SQL.Add(' ,B.C_Width,B.C_GramWeight');
SQL.Add(' ,AttName=(select top 1 FileName from TP_File X where X.WBID = A.BCIID ORDER BY FillTime )');
SQL.Add(' from BS_Contract_Sub A');
SQL.Add(' left join BS_Cloth_info B on A.BCIID = B.BCIID ');
SQL.Add(' where CP_Code = ' + QuotedStr(Trim(frmSalesContractCPSel.CDS_1.fieldbyname('C_Code').asstring)));
ShowMessage(sql.Text);
Open;
end;
Order_Sub.fieldbyname('ConQty').Value := ADOQueryCmd.fieldbyname('ConQty').Value;
Order_Sub.fieldbyname('ConPrice').Value := ADOQueryCmd.fieldbyname('ConPrice').Value;
Order_Sub.fieldbyname('ConTotalAmount').Value := ADOQueryCmd.fieldbyname('ConTotalAmount').Value;
Order_Sub.fieldbyname('TaxRate').Value := ADOQueryCmd.fieldbyname('TaxRate').Value;
Order_Sub.fieldbyname('Tax').Value := ADOQueryCmd.fieldbyname('Tax').Value;
Order_Sub.fieldbyname('TaxInclude').Value := ADOQueryCmd.fieldbyname('TaxInclude').Value;
Order_Sub.fieldbyname('CP_QTY').Value := ADOQueryCmd.fieldbyname('CP_QTY').Value;
Order_Sub.fieldbyname('CP_TPXS').Value := ADOQueryCmd.fieldbyname('CP_TPXS').Value;
Order_Sub.fieldbyname('C_Code').Value := ADOQueryCmd.FieldByName('C_Code').Value;
Order_Sub.fieldbyname('C_Name').Value := ADOQueryCmd.FieldByName('C_Code').Value;
Order_Sub.fieldbyname('C_Name').Value := ADOQueryCmd.FieldByName('C_Name').Value;
Order_Sub.fieldbyname('C_Spec').Value := ADOQueryCmd.FieldByName('C_Spec').Value;
Order_Sub.fieldbyname('C_Composition').Value := ADOQueryCmd.FieldByName('C_Composition').Value;
Order_Sub.fieldbyname('C_Color').Value := ADOQueryCmd.FieldByName('C_Color').Value;
Order_Sub.fieldbyname('C_ColorNo').Value := ADOQueryCmd.FieldByName('C_ColorNo').Value;
Order_Sub.fieldbyname('C_Pattern').Value := ADOQueryCmd.FieldByName('C_Pattern').Value;
Order_Sub.fieldbyname('C_StyleNo').Value := ADOQueryCmd.FieldByName('C_StyleNo').Value;
// Order_Sub.fieldbyname('C_FinishLatitudeDensity').Value := ADOQueryCmd.FieldByName('C_FinishLatitudeDensity').Value;
// Order_Sub.fieldbyname('C_FinishLongitudeDensity').Value := ADOQueryCmd.FieldByName('C_FinishLongitudeDensity').Value;
Order_Sub.fieldbyname('C_FinishLongitudeDensity').Value := ADOQueryCmd.FieldByName('C_FinishLongitudeDensity').Value;
Order_Sub.fieldbyname('C_FinishLatitudeDensity').Value := ADOQueryCmd.FieldByName('C_FinishLatitudeDensity').Value;
Order_Sub.fieldbyname('C_Width').Value := ADOQueryCmd.FieldByName('C_Width').Value;
Order_Sub.fieldbyname('C_GramWeight').Value := ADOQueryCmd.FieldByName('C_GramWeight').Value;
Order_Sub.fieldbyname('AttName').Value := ADOQueryCmd.FieldByName('AttName').Value;
end;
Next;
i := i + 1;
@ -1497,6 +1543,7 @@ begin
if showmodal = 1 then
begin
Order_Sub.Edit;
Order_Sub.fieldbyname('BCIID').Value := frmTatClothInfoSel.CDS_1.fieldbyname('BCIID').asstring;
Order_Sub.fieldbyname('C_Code').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').asstring;
Order_Sub.fieldbyname('C_Name').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').asstring;

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

@ -236,8 +236,17 @@ begin
begin
close;
sql.Clear;
sql.Add('select * from BS_Contract_sub A ');
sql.Add('where ConMID =' + quotedstr((CDS_1.fieldbyname('ConMID').AsString)));
sql.Add(' select A.SerialNo,A.BCIID,A.ConQty,A.ConUnit,A.ConPrice,A.ConTotalAmount ');
SQL.Add(' ,A.TaxRate,A.Tax,A.TaxInclude,A.JHDate,A.YDZ,A.ConSNote,A.CP_CODE,A.CP_NAME ');
sql.add(' ,A.CP_QTY,A.CP_TPXS ');
SQL.Add(' ,B.C_Code,B.C_Name,B.C_Spec,B.C_Composition,B.C_Color,B.C_ColorNo,B.C_Pattern ');
SQL.Add(' ,B.C_StyleNo,B.C_FinishLongitudeDensity,B.C_FinishLatitudeDensity');
SQL.Add(' ,B.C_Width,B.C_GramWeight');
SQL.Add(' ,AttName=(select top 1 FileName from TP_File X where X.WBID = A.BCIID ORDER BY FillTime )');
SQL.Add(' from BS_Contract_Sub A');
SQL.Add(' left join BS_Cloth_info B on A.BCIID = B.BCIID ');
sql.Add('where A.ConMID =' + quotedstr((CDS_1.fieldbyname('ConMID').AsString)));
sql.Add(' order by A.SerialNo ');
open;
end;
SCreateCDS(ADOQueryTemp, CDS_2);

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

@ -6,7 +6,8 @@ inherited frmSCTLLIST: TfrmSCTLLIST
ClientWidth = 1540
Font.Height = -16
Position = poScreenCenter
ExplicitLeft = -607
ExplicitLeft = -522
ExplicitTop = -63
ExplicitWidth = 1556
ExplicitHeight = 688
PixelsPerInch = 96
@ -155,7 +156,6 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 4
ExplicitTop = 115
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -272,7 +272,7 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Width = 107
end
object Tv1JSQty: TcxGridDBColumn
Caption = #32463#32433#24635#37325#37327
Caption = #32463#32433#24635#29992#37327#21512#35745
DataBinding.FieldName = 'JSQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@ -280,7 +280,7 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Width = 137
end
object Tv1WSQty: TcxGridDBColumn
Caption = #32428#32433#24635#37325#37327
Caption = #32428#32433#24635#29992#37327#21512#35745
DataBinding.FieldName = 'WSQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@ -376,7 +376,6 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Height = 181
Align = alClient
TabOrder = 1
ExplicitLeft = -2
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

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

@ -179,9 +179,9 @@ begin
Close;
sql.Clear;
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(',JSQty = ( select ISNULL(SUM(X.MeterQty), 0) * A.Conqty/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(',WSQty = ( select ISNULL(SUM(X.MeterQty), 0) * A.Conqty/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)));
@ -199,19 +199,19 @@ end;
procedure TfrmSCTLLIST.InitClothYarn(MC_Code: string);
var
zsqtyValue: string;
ConqtyValue: string;
begin
zsqtyValue := CDS_1.FieldByName('zsqty').AsString;
if zsqtyValue = '' then
zsqtyValue := '0';
ConqtyValue := CDS_1.FieldByName('Conqty').AsString;
if ConqtyValue = '' then
ConqtyValue := '0';
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) ');
SQL.Add(' ,allYarn=A.MeterQty*ISNULL(' + zsqtyValue + ',0)/100');
SQL.Add(' ,allYarn=A.MeterQty*ISNULL(' + ConqtyValue + ',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;
@ -225,7 +225,7 @@ begin
Close;
sql.Clear;
sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30))');
SQL.Add(' ,allYarn=A.MeterQty*ISNULL(' + zsqtyValue + ',0)/100');
SQL.Add(' ,allYarn=A.MeterQty*ISNULL(' + ConqtyValue + ',0)/100');
sql.Add(' from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
sql.Add(' where A.YRType=''γ˿'' and B.C_Code=''' + Trim(MC_Code) + '''');
// ShowMessage(SQL.Text);

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

@ -7,7 +7,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
ExplicitLeft = -550
ExplicitLeft = -689
ExplicitWidth = 1556
ExplicitHeight = 810
PixelsPerInch = 96
@ -203,8 +203,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Align = alClient
PopupMenu = pm1
TabOrder = 3
ExplicitLeft = -1
ExplicitTop = 152
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -556,8 +554,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Align = alLeft
BorderStyle = cxcbsNone
TabOrder = 0
ExplicitLeft = 0
ExplicitTop = -4
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -753,6 +749,8 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Height = 268
Align = alClient
TabOrder = 1
ExplicitLeft = 906
ExplicitTop = -4
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

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

@ -281,6 +281,23 @@ begin
TBAdd.Enabled := true;
TBPrint.Enabled := True;
panel2.Visible := True;
Tv1C_Code.Visible := False;
Tv1C_Name.Visible := False;
Tv1C_Composition.Visible := False;
Tv1C_Spec.Visible := False;
Tv1density.Visible := False;
Tv1C_Width.Visible := False;
Tv1C_WidthUnit.Visible := False;
Tv1ConQty.Visible := False;
Tv1ConUnit.Visible := False;
Tv1ShaZhi.Visible := False;
Tv1C_Color.Visible := False;
Tv1SampleTime.Visible := False;
Tv1ConPrice.Visible := False;
Tv1Currency.Visible := False;
Tv1ConTotalAmount.Visible := False;
case cxTabControl1.TabIndex of
0:
begin
@ -314,6 +331,24 @@ begin
TBAdd.Enabled := true;
panel2.Visible := True;
TBPrint.Enabled := True;
Tv1C_Code.Visible := False;
Tv1C_Name.Visible := False;
Tv1C_Composition.Visible := False;
Tv1C_Spec.Visible := False;
Tv1density.Visible := False;
Tv1C_Width.Visible := False;
Tv1C_WidthUnit.Visible := False;
Tv1ConQty.Visible := False;
Tv1ConUnit.Visible := False;
Tv1ShaZhi.Visible := False;
Tv1C_Color.Visible := False;
Tv1SampleTime.Visible := False;
Tv1ConPrice.Visible := False;
Tv1Currency.Visible := False;
Tv1ConTotalAmount.Visible := False;
case cxTabControl1.TabIndex of
0:
begin

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

@ -158,7 +158,6 @@ inherited frmYarnInList: TfrmYarnInList
Color = clWhite
ParentBackground = False
TabOrder = 3
ExplicitTop = 36
object Label3: TLabel
Left = 248
Top = 46
@ -341,7 +340,7 @@ inherited frmYarnInList: TfrmYarnInList
ActivePage = TabSheet1
Align = alClient
TabOrder = 4
ExplicitTop = 143
ExplicitTop = 154
object TabSheet1: TTabSheet
Caption = #27491#24120#25968#25454
object cxGrid1: TcxGrid
@ -352,9 +351,6 @@ inherited frmYarnInList: TfrmYarnInList
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
ExplicitTop = 506
ExplicitWidth = 1540
ExplicitHeight = 136
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -672,9 +668,6 @@ inherited frmYarnInList: TfrmYarnInList
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
ExplicitTop = 506
ExplicitWidth = 1540
ExplicitHeight = 136
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

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

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

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

@ -87,6 +87,7 @@ type
function SaveData(): Boolean;
procedure UpdateYarnName;
procedure initCFGrid();
function CheckBL(): Boolean;
public
{ Public declarations }
FBYIID, FSTKName: string;
@ -496,6 +497,11 @@ begin
Exit;
end;
end;
if not CheckBL() then
begin
Exit;
end;
if SaveData() then
begin
Application.MessageBox('保存成功!', '提示', 0);
@ -516,6 +522,14 @@ begin
try
// 尝试将字符串转换为浮点数
fValue := StrToFloat(s);
// if fValue < 0 then
// begin
// s := '0';
// end;
// if fValue > 100 then
// begin
// s := '100';
// end;
// 格式化为两位小数并添加百分号
// Tv1.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%';
Tv1.Controller.FocusedColumn.EditValue := s + '%';
@ -545,6 +559,45 @@ begin
end;
end;
function TfrmYarnInfoInPut.CheckBL(): Boolean;
var
mBL: Double;
msubBL: Double;
begin
Result := False;
msubBL := 0;
CDS_1.First;
while not CDS_1.Eof do
begin
// 一行代码处理：移除%号并尝试转换
if not TryStrToFloat(StringReplace(CDS_1.FieldByName('BL').AsString, '%', '', [rfReplaceAll]), mBL) then
begin
ShowMessage('代号 ' + CDS_1.FieldByName('DH').AsString + ' 比例格式错误');
Exit;
end
else
begin
msubBL := msubBL + mBL;
end;
if (mBL <= 0) or (mBL > 100) then
begin
ShowMessage('代号 ' + CDS_1.FieldByName('DH').AsString + ' 比例必须在 0-100% 之间');
Exit;
end;
CDS_1.Next;
end;
if msubBL > 100 then
begin
ShowMessage('比例之和必须在 0-100% 之间');
Exit;
end;
Result := True;
end;
procedure TfrmYarnInfoInPut.Y_NameClick(Sender: TObject);
begin
Y_Composition.Style.Color := clMoneyGreen;

156
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.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.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.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.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.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.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.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.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.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.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.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.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.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.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.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.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.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.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.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.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.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.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.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.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.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.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.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.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.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.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.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.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.

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

@ -32,16 +32,16 @@
<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.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj</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.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.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.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.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>
@ -50,9 +50,9 @@
<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.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.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.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>

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

@ -157,16 +157,24 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
ImageIndex = 11
OnClick = TnoqxClick
end
object ToolButton7: TToolButton
object Tbdelete: TToolButton
Left = 689
Top = 30
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TbdeleteClick
end
object ToolButton7: TToolButton
Left = 760
Top = 30
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton7Click
end
object TBClose: TToolButton
Left = 792
Left = 863
Top = 30
AutoSize = True
Caption = #20851#38381
@ -616,7 +624,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.TabIndex = 4
Properties.Tabs.Strings = (
#26410#25552#20132
#24050#25552#20132
@ -625,6 +633,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
#24050#21462#28040
#20840#37096)
OnChange = cxTabControl1Change
ExplicitTop = 134
ClientRectRight = 0
ClientRectTop = 0
end

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

@ -137,6 +137,7 @@ type
Tv1currency: TcxGridDBColumn;
Tv1SDlyDate: TcxGridDBColumn;
Tv1SNote: TcxGridDBColumn;
Tbdelete: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -174,6 +175,7 @@ type
procedure N6Click(Sender: TObject);
procedure PurNoPropertiesChange(Sender: TObject);
procedure TextEdit(Sender: TObject);
procedure TbdeleteClick(Sender: TObject);
private
fFlileFlag: string;
procedure InitGrid();
@ -281,6 +283,7 @@ begin
btnCXTijiao.Enabled := False;
btnWC.Enabled := False;
btnWCCX.Enabled := False;
Tbdelete.Enabled := False;
if Trim(FAuthority) = '¼Èë' then
begin
ToolButton2.Enabled := true;
@ -310,6 +313,7 @@ begin
4:
begin
TNoqx.Enabled := True;
Tbdelete.Enabled := True;
end;
end;
end;
@ -344,6 +348,7 @@ begin
4:
begin
TNoqx.Enabled := true;
Tbdelete.Enabled := True;
end;
end;
end;
@ -379,6 +384,7 @@ begin
4:
begin
TNoqx.Enabled := true;
Tbdelete.Enabled := True;
end;
end;
end;
@ -414,6 +420,7 @@ begin
4:
begin
TNoqx.Enabled := true;
Tbdelete.Enabled := True;
end;
end;
end;
@ -450,6 +457,93 @@ begin
Close;
end;
procedure TfrmYarnPurchasePlanList.TbdeleteClick(Sender: TObject);
var
mPurMIds: TStringList;
i: Integer;
begin
if CDS_1.IsEmpty then
Exit;
// 收集选中的ID
mPurMIds := TStringList.Create;
try
CDS_1.DisableControls;
try
CDS_1.First;
while not CDS_1.Eof do
begin
if CDS_1.FieldByName('SSel').AsBoolean then
begin
mPurMIds.Add(QuotedStr(CDS_1.FieldByName('PurMId').AsString));
end;
CDS_1.Next;
end;
finally
CDS_1.EnableControls;
end;
if mPurMIds.Count = 0 then
begin
ShowMessage('没有选择数据！');
Exit;
end;
// 使用事务确保数据一致性
ADOQueryCmd.Connection.BeginTrans;
try
with ADOQueryCmd do
begin
// 更新删除人
SQL.Text := 'update Pur_YarnPlan_Main set Deler = ' + QuotedStr(Trim(DName)) + ' ,Deltime = '
+ QuotedStr(FormatDateTime('yyyy-mm-dd hh:nn:ss', SGetServerDateTime(ADOQueryTemp)))
+ ' where PurMId IN ('+ string.Join(',', mPurMIds.ToStringArray) + ')';
ExecSQL;
SQL.Text := 'update Pur_YarnPlan_Sub set Deler = ' + QuotedStr(Trim(DName))
+ ' ,Deltime = ' + QuotedStr(FormatDateTime('yyyy-mm-dd hh:nn:ss', SGetServerDateTime(ADOQueryTemp)))
+ ' where PurMId IN ('+ string.Join(',', mPurMIds.ToStringArray) + ')';
ExecSQL;
//插入备份表
SQL.Text := 'insert into Pur_YarnPlan_Main_Del select * from Pur_YarnPlan_Main '
+ ' where PurMId IN ('+ string.Join(',', mPurMIds.ToStringArray) + ')';
// showMessage(SQL.Text);
ExecSQL;
SQL.Text := 'insert into Pur_YarnPlan_Sub_Del select * from Pur_YarnPlan_Sub '
+ ' where PurMId IN ('+ string.Join(',', mPurMIds.ToStringArray) + ')';
ExecSQL;
// 删除主子表
SQL.Text := 'DELETE FROM Pur_YarnPlan_Main WHERE PurMId IN (' + string.Join(',', mPurMIds.ToStringArray) + ')';
ExecSQL;
SQL.Text := 'DELETE FROM Pur_YarnPlan_Sub WHERE PurMId IN (' + string.Join(',', mPurMIds.ToStringArray) + ')';
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
// 从CDS中移除已删除的记录
CDS_1.Filtered := False;
for i := 0 to mPurMIds.Count - 1 do
begin
if CDS_1.Locate('PurMId', mPurMIds[i], []) then
CDS_1.Delete;
end;
ShowMessageFmt('成功删除 %d 条记录', [mPurMIds.Count]);
InitGrid();
except
on E: Exception do
begin
ADOQueryCmd.Connection.RollbackTrans;
raise Exception.Create('删除失败：' + E.Message);
end;
end;
finally
mPurMIds.Free;
end;
end;
procedure TfrmYarnPurchasePlanList.InitGrid();
var
SqlStr: string;

16
B04采购计划管理/U_YarnPurchasePlanPut.dfm
View File

@ -123,6 +123,8 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 2
ExplicitLeft = -6
ExplicitTop = 192
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -268,19 +270,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Options.Editing = False
Width = 70
end
object Tv1Column1: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'A'
'B'
'C')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object Tv1Column5: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
@ -424,6 +413,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
ParentColor = False
ParentCtl3D = False
TabOrder = 3
ExplicitTop = 24
object lbl5: TLabel
Left = 32
Top = 50

34
B04采购计划管理/U_YarnPurchasePlanPut.pas
View File

@ -75,7 +75,6 @@ type
TV2Column3: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
TV2Column4: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Label1: TLabel;
StkName: TcxButtonEdit;
@ -127,8 +126,7 @@ type
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1TaxRatePropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure Tv1TaxRatePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column4PropertiesChange(Sender: TObject);
private
FLeft, FTop: Integer;
@ -652,7 +650,8 @@ begin
sql.Add(' select xx=dbo.GetPinYin(' + quotedstr(Sellname.Text) + ')');
Open;
end;
PurNo.Text := 'HHD' + MPurNo + trim(ADOTemp.FieldByName('xx').AsString);
// PurNo.Text := 'HHD' + MPurNo + trim(ADOTemp.FieldByName('xx').AsString);
PurNo.Text := 'HHD' + MPurNo;
end;
end
else
@ -860,14 +859,14 @@ begin
FieldByName('C_Degree').Value := '纱线';
FieldByName('Y_Code').Value := CDS_1.fieldbyname('Y_Code').value;
FieldByName('Y_Name').Value := CDS_1.fieldbyname('Y_Name').value;
FieldByName('Y_Spec').Value := CDS_1.fieldbyname('Y_Spec').value;
// FieldByName('Y_Spec').Value := CDS_1.fieldbyname('Y_Spec').value;
FieldByName('Y_Composition').Value := CDS_1.fieldbyname('Y_Composition').value;
FieldByName('Denier').Value := CDS_1.fieldbyname('Denier').value;
FieldByName('ZS').Value := CDS_1.fieldbyname('ZS').value;
FieldByName('FF').Value := CDS_1.fieldbyname('FF').value;
FieldByName('ND').Value := Cds_1.FieldByName('ND').Value;
// FieldByName('ND').Value := Cds_1.FieldByName('ND').Value;
FieldByName('Y_Color').Value := Cds_1.FieldByName('Y_Color').Value;
@ -1027,14 +1026,14 @@ begin
FieldByName('C_Degree').Value := '纱线';
FieldByName('Y_Code').Value := CDS_1.fieldbyname('Y_Code').value;
FieldByName('Y_Name').Value := CDS_1.fieldbyname('Y_Name').value;
FieldByName('Y_Spec').Value := CDS_1.fieldbyname('Y_Spec').value;
// FieldByName('Y_Spec').Value := CDS_1.fieldbyname('Y_Spec').value;
FieldByName('Y_Composition').Value := CDS_1.fieldbyname('Y_Composition').value;
FieldByName('Y_Color').Value := Cds_1.FieldByName('Y_Color').Value;
FieldByName('Denier').Value := CDS_1.fieldbyname('TestDenier').value;
FieldByName('ZS').Value := CDS_1.fieldbyname('Z_Number').value;
FieldByName('Y_Color').Value := CDS_1.fieldbyname('Y_Color').value;
FieldByName('FF').Value := CDS_1.fieldbyname('FF').value;
FieldByName('ND').Value := Cds_1.FieldByName('ND').Value;
// FieldByName('ND').Value := Cds_1.FieldByName('ND').Value;
FieldByName('Qty').Value := Cds_1.FieldByName('SXQty').Value;
FieldByName('Price').Value := 0;
@ -1057,9 +1056,18 @@ end;
procedure TfrmYarnPurchasePlanPut.ToolButton6Click(Sender: TObject);
var
i: Integer;
maxno: string;
begin
inherited;
i := Order_Sub.RecordCount + 1;
if GetLSNo(ADOCmd, maxno, 'PS', 'Pur_YarnPlan_Sub', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('取子流水号失败！', '提示', 0);
Exit;
end;
i := Order_Sub.RecordCount + 1; //当前的dataset有多少行记录
try
frmGKManageSel := TfrmGKManageSel.Create(Application);
with frmGKManageSel do
@ -1079,6 +1087,7 @@ begin
append;
FieldByName('SSEL').Value := False;
FieldByName('SerialNo').Value := i;
FieldByName('PurSId').Value := maxno + INTTOSTR(i);
// FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
// FieldByName('StkCoNo').Value := '本厂仓库';
// FieldByName('StkCoName').Value := '本厂仓库';
@ -1089,6 +1098,7 @@ begin
FieldByName('C_Degree').Value := '钢筘';
end;
end;
i := i + 1;
next;
end;
@ -1148,7 +1158,7 @@ procedure TfrmYarnPurchasePlanPut.Tv1Column4PropertiesChange(Sender: TObject);
begin
inherited;
// if Order_Sub.FieldByName('currency').value = 'VND' then
if TcxTextEdit(Sender).EditingText = 'VND' then
if TcxTextEdit(Sender).EditingText = 'VND' then
begin
(Tv1Price.Properties as TcxCurrencyEditProperties).DisplayFormat := '';
@ -1181,7 +1191,6 @@ begin
(Tv1Tax.Properties as TcxCurrencyEditProperties).DisplayFormat := '0.00';
(Tv1TaxInclude.Properties as TcxCurrencyEditProperties).DisplayFormat := '0.00';
(Tv1Price.Properties as TcxCurrencyEditProperties).DecimalPlaces := 2;
(Tv1Amount.Properties as TcxCurrencyEditProperties).DecimalPlaces := 2;
(Tv1Tax.Properties as TcxCurrencyEditProperties).DecimalPlaces := 2;
@ -1228,8 +1237,7 @@ begin
Label4.Caption := '库存件数:' + Trim(ADOQuery1.fieldbyname('piece').AsString);
end;
procedure TfrmYarnPurchasePlanPut.Tv1TaxRatePropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
procedure TfrmYarnPurchasePlanPut.Tv1TaxRatePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);

4
E00梭织通用窗体/U_TatPlanSel.dfm
View File

@ -4902,8 +4902,8 @@ inherited frmTatPlanSel: TfrmTatPlanSel
000000000000}
end
object cxStyleRepository1: TcxStyleRepository
Left = 504
Top = 144
Left = 520
Top = 128
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svFont]

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

@ -1,82 +1,82 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<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.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.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.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.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.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.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.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.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.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.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.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</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.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.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.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.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.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.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.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.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.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=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.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.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.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.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.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.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.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.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.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm</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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.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.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.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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm</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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.422,=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.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.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.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.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>

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

Binary file not shown.

2
E01梭织生产计划/U_TatPlanCard1.dfm
View File

@ -243,6 +243,8 @@ inherited frmTatPlanCard1: TfrmTatPlanCard1
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
LookAndFeel.NativeStyle = False
ExplicitTop = 155
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

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

@ -9,7 +9,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Height = -13
Position = poScreenCenter
WindowState = wsMaximized
ExplicitTop = -184
ExplicitWidth = 1556
ExplicitHeight = 884
PixelsPerInch = 96
@ -73,6 +72,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Ctl3D = False
ParentCtl3D = False
TabOrder = 1
ExplicitTop = 36
object Label2: TLabel
Left = 922
Top = 5
@ -127,7 +127,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Top = 44
Width = 78
Height = 19
Caption = #38754#26009#21512#21516#21495#65306
Caption = #22383#24067#21512#21516#21495#65306
end
object Label3: TLabel
Left = 11
@ -457,7 +457,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Height = 19
Caption = #31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clBtnShadow
Font.Color = clHighlight
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -470,7 +470,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Height = 19
Caption = #26681'/'#31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Color = clHighlight
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -483,7 +483,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Height = 19
Caption = #31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Color = clHighlight
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -496,7 +496,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Height = 19
Caption = #26681
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Color = clHighlight
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -504,12 +504,12 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
object Label44: TLabel
Left = 601
Top = 267
Top = 266
Width = 45
Height = 19
Caption = #26681'/'#31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Color = clHighlight
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -522,7 +522,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Height = 19
Caption = #40831'/2'#33521#23544
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Color = clHighlight
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -535,7 +535,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Height = 19
Caption = #26681'/'#33521#23544
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Color = clHighlight
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -548,7 +548,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Height = 19
Caption = #26681'/'#33521#23544
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Color = clHighlight
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -659,6 +659,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Top = 346
ParentColor = True
ParentFont = False
Properties.ReadOnly = True
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
@ -674,6 +675,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 445
Top = 78
ParentColor = True
Properties.ReadOnly = True
TabOrder = 11
Width = 150
end
@ -682,6 +684,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 766
Top = 191
ParentColor = True
Properties.ReadOnly = True
TabOrder = 12
Width = 150
end
@ -690,6 +693,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 117
Top = 153
ParentColor = True
Properties.ReadOnly = True
TabOrder = 13
Width = 150
end
@ -698,6 +702,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 445
Top = 228
ParentColor = True
Properties.ReadOnly = True
TabOrder = 14
Width = 149
end
@ -706,6 +711,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 445
Top = 153
ParentColor = True
Properties.ReadOnly = True
TabOrder = 15
Width = 150
end
@ -714,6 +720,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 986
Top = 153
ParentColor = True
Properties.ReadOnly = True
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
TabOrder = 16
OnExit = C_ReedWidthExit
@ -741,6 +748,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Top = 191
Enabled = False
ParentColor = True
Properties.ReadOnly = True
TabOrder = 18
Width = 150
end
@ -749,6 +757,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 766
Top = 115
ParentColor = True
Properties.ReadOnly = True
TabOrder = 19
Width = 150
end
@ -757,6 +766,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 986
Top = 115
ParentColor = True
Properties.ReadOnly = True
TabOrder = 20
Width = 150
end
@ -765,6 +775,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 117
Top = 115
ParentColor = True
Properties.ReadOnly = True
TabOrder = 21
Width = 150
end
@ -773,6 +784,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 445
Top = 115
ParentColor = True
Properties.ReadOnly = True
TabOrder = 22
Width = 150
end
@ -781,6 +793,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 986
Top = 78
ParentColor = True
Properties.ReadOnly = True
TabOrder = 23
Width = 150
end
@ -789,6 +802,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 766
Top = 78
ParentColor = True
Properties.ReadOnly = True
TabOrder = 24
Width = 150
end
@ -799,6 +813,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Properties.Items.Strings = (
#8220
'CM')
Properties.ReadOnly = False
TabOrder = 25
Text = #8220
Width = 63
@ -808,6 +823,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 766
Top = 153
ParentColor = True
Properties.ReadOnly = True
TabOrder = 26
Width = 95
end
@ -826,6 +842,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 117
Top = 228
ParentColor = True
Properties.ReadOnly = True
TabOrder = 28
Width = 150
end
@ -834,6 +851,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 766
Top = 228
ParentColor = True
Properties.ReadOnly = True
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
TabOrder = 29
OnExit = C_ReedWidthExit
@ -844,6 +862,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 986
Top = 229
ParentColor = True
Properties.ReadOnly = True
TabOrder = 30
Width = 103
end
@ -852,6 +871,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 117
Top = 265
ParentColor = True
Properties.ReadOnly = True
TabOrder = 31
Width = 150
end
@ -860,6 +880,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 445
Top = 265
ParentColor = True
Properties.ReadOnly = True
TabOrder = 32
Width = 150
end
@ -868,6 +889,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 766
Top = 265
ParentColor = True
Properties.ReadOnly = True
TabOrder = 33
Width = 371
end
@ -876,6 +898,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 117
Top = 303
ParentColor = True
Properties.ReadOnly = True
TabOrder = 34
Width = 150
end
@ -884,6 +907,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 445
Top = 303
ParentColor = True
Properties.ReadOnly = False
TabOrder = 35
Width = 150
end
@ -892,6 +916,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 766
Top = 303
ParentColor = True
Properties.ReadOnly = True
TabOrder = 36
Width = 150
end
@ -900,6 +925,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 987
Top = 300
ParentColor = True
Properties.ReadOnly = True
TabOrder = 37
Width = 150
end
@ -910,6 +936,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Properties.Items.Strings = (
#8220
'CM')
Properties.ReadOnly = False
TabOrder = 38
Text = #8220
Width = 63
@ -921,6 +948,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Properties.Items.Strings = (
'GSM'
'MM')
Properties.ReadOnly = True
TabOrder = 39
Width = 150
end
@ -943,6 +971,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object ZS: TcxTextEdit
Left = 1210
Top = 5
Properties.ReadOnly = True
Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
TabOrder = 41
OnKeyPress = ConNoKeyPress
@ -953,6 +982,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 1265
Top = 263
ParentColor = True
Properties.ReadOnly = True
TabOrder = 42
Width = 95
end
@ -961,6 +991,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 1265
Top = 230
ParentColor = True
Properties.ReadOnly = True
TabOrder = 43
Width = 95
end
@ -1098,6 +1129,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Options.Sorting = False
Width = 100
@ -1107,6 +1139,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn8: TcxGridDBColumn
@ -1114,6 +1147,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object TV1Column6: TcxGridDBColumn
@ -1123,7 +1157,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 96
Options.Editing = False
Width = 97
end
object TV1Column14: TcxGridDBColumn
Caption = #25903#25968
@ -1132,6 +1167,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object TV1Column1: TcxGridDBColumn
@ -1168,6 +1204,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object TV1Column8: TcxGridDBColumn
@ -1325,6 +1362,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Options.Sorting = False
Width = 100
@ -1334,6 +1372,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v2Column6: TcxGridDBColumn
@ -1341,6 +1380,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv2Column6: TcxGridDBColumn
@ -1349,6 +1389,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 91
end
object Tv2Column14: TcxGridDBColumn
@ -1358,6 +1399,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv2Column1: TcxGridDBColumn
@ -1386,6 +1428,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object Tv2Column11: TcxGridDBColumn
@ -1657,8 +1700,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Qry_ImgHX: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Parameters = <>
Left = 610
Top = 304
Left = 626
Top = 336
end
object DS_ImgHX: TDataSource
DataSet = Qry_ImgHX

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

@ -312,6 +312,7 @@ begin
sql.Clear;
sql.Add('select A.* from Bs_Cloth_Info A');
sql.Add(' where A.C_Code=''' + Trim(MC_Code) + '''');
// showMessage(sql.text);
Open;
end;
ConNo.tag := 9;
@ -319,8 +320,12 @@ begin
OrdQty.tag := 9;
ConMId.tag := 9;
ConSId.tag := 9;
// showMessage(C_GramWeight.text);
SCSHData(ADOQueryTemp, ScrollBox1, 2);
// showMessage(C_GramWeight.text);
ZS.Text := ADOQueryTemp.FieldByName('ZS').AsString;
attname1.Text := ADOQueryTemp.fieldbyname('attname1').AsString;
attname2.Text := ADOQueryTemp.fieldbyname('attname2').AsString;
@ -1603,8 +1608,8 @@ begin
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('Z_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').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('YarnFactor').Value := 0.059;
@ -1803,34 +1808,34 @@ var
ErrCode: Integer;
IsInch: Boolean;
begin
C_GramWeight.SetFocus;
if Tv1.DataController.Summary.FooterSummaryValues[0] <> NULL then
begin
SumJS := IfThen(VarIsNull(Tv1.DataController.Summary.FooterSummaryValues[0]), 0, Tv1.DataController.Summary.FooterSummaryValues[0]);
end;
if Tv2.DataController.Summary.FooterSummaryValues[0] <> NULL then
begin
SumWS := IfThen(VarIsNull(Tv2.DataController.Summary.FooterSummaryValues[0]), 0, Tv2.DataController.Summary.FooterSummaryValues[0]);
end;
IsInch := ContainsText(C_ReedWidth.Text, '"');
Val(Trim(StringReplace(C_ReedWidth.Text, '"', '', [rfReplaceAll, rfIgnoreCase])), ReedWidthValue, ErrCode);
if (ErrCode = 0) and (ReedWidthValue > 0) then
begin
if IsInch then
begin
C_GramWeight.Text := FloatToStr(roundfloat(((SumJS + SumWS) / ReedWidthValue * 2.54 * 100), 0));
end
else
begin
C_GramWeight.Text := FloatToStr(roundfloat(((SumJS + SumWS) / ReedWidthValue * 100), 0));
end;
end
else
C_GramWeight.Text := '0.00';
// C_GramWeight.SetFocus;
//
// if Tv1.DataController.Summary.FooterSummaryValues[0] <> NULL then
// begin
// SumJS := IfThen(VarIsNull(Tv1.DataController.Summary.FooterSummaryValues[0]), 0, Tv1.DataController.Summary.FooterSummaryValues[0]);
//
// end;
// if Tv2.DataController.Summary.FooterSummaryValues[0] <> NULL then
// begin
// SumWS := IfThen(VarIsNull(Tv2.DataController.Summary.FooterSummaryValues[0]), 0, Tv2.DataController.Summary.FooterSummaryValues[0]);
// end;
//
// IsInch := ContainsText(C_ReedWidth.Text, '"');
// Val(Trim(StringReplace(C_ReedWidth.Text, '"', '', [rfReplaceAll, rfIgnoreCase])), ReedWidthValue, ErrCode);
// if (ErrCode = 0) and (ReedWidthValue > 0) then
// begin
// if IsInch then
// begin
// C_GramWeight.Text := FloatToStr(roundfloat(((SumJS + SumWS) / ReedWidthValue * 2.54 * 100), 0));
// end
// else
// begin
// C_GramWeight.Text := FloatToStr(roundfloat(((SumJS + SumWS) / ReedWidthValue * 100), 0));
// end;
//
// end
// else
// C_GramWeight.Text := '0.00';
end;
procedure TfrmTatPlanInPut.cxGridDBColumn4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -1879,8 +1884,8 @@ begin
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('Z_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').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('YarnFactor').Value := 0.059;
@ -1933,12 +1938,13 @@ begin
Self.C_YarnQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').AsString);
Self.C_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString);
Self.C_ReedWidth.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString);
DCRQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('DCRQTY').AsString);
C_KCQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('C_KCQTY').AsString);
WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString);
BSQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('BSQTY').AsString);
GKBH.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('GKBH').AsString);
Self.DCRQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('DCRQTY').AsString);
Self.C_KCQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('C_KCQTY').AsString);
Self.WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString);
Self.BSQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('BSQTY').AsString);
Self.GKBH.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('GKBH').AsString);
Self.WB_YarnKCQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnKCQty').AsString);
Self.BCRFQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('BCRFQty').AsString);
Self.Y_Note_PLJ.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnArrNote').AsString);
with ADOQuery1 do

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

@ -33,6 +33,8 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
ParentFont = False
ShowCaptions = True
TabOrder = 2
ExplicitLeft = 1
ExplicitTop = -6
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -77,6 +79,8 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Color = clWhite
ParentBackground = False
TabOrder = 3
ExplicitLeft = -1
ExplicitTop = 24
object Label5: TLabel
Left = 20
Top = 21
@ -113,7 +117,7 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Height = 516
Align = alClient
TabOrder = 4
Properties.ActivePage = cxTabSheet3
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
OnChange = cxPageControl1Change
ClientRectBottom = 515
@ -215,12 +219,12 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Width = 100
end
object v3Column16: TcxGridDBColumn
Caption = #32463#36724#31859#25968
Caption = #23454#38469#32463#36724#31859#25968
DataBinding.FieldName = 'JZMS2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
Width = 122
end
object Tv1Column5: TcxGridDBColumn
Caption = #19978#36724#26102#38388
@ -247,7 +251,49 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
Width = 141
end
object Tv1ConNo: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 105
end
object Tv1C_Name: TcxGridDBColumn
Caption = #22383#24067#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 = 88
end
object Tv1YarnZS: TcxGridDBColumn
Caption = #32433#25903
DataBinding.FieldName = 'YarnZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 86
end
object Tv1Density: TcxGridDBColumn
Caption = #23494#24230
DataBinding.FieldName = 'Density'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 86
end
object Tv1C_Width: TcxGridDBColumn
Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 99
end
end
object cxGridLevel2: TcxGridLevel
@ -266,7 +312,6 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
ExplicitLeft = -1
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -364,7 +409,6 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
ExplicitLeft = -1
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -445,6 +489,55 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Options.Editing = False
Width = 115
end
object Tv3C_Code: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 91
end
object Tv3C_Name: TcxGridDBColumn
Caption = #22383#24067#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 94
end
object Tv3dayqty: TcxGridDBColumn
Caption = #26085#20135#37327
DataBinding.FieldName = 'dayqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 84
end
object Tv3C_Composition: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv3YarnZS: TcxGridDBColumn
Caption = #32433#25903
DataBinding.FieldName = 'YarnZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv3Density: TcxGridDBColumn
Caption = #23494#24230
DataBinding.FieldName = 'Density'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv3C_Width: TcxGridDBColumn
Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 96
end
end
object cxGridLevel3: TcxGridLevel
GridView = Tv3

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

@ -76,6 +76,19 @@ type
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
Tv1C_Name: TcxGridDBColumn;
Tv1C_Composition: TcxGridDBColumn;
Tv1C_Width: TcxGridDBColumn;
Tv1Density: TcxGridDBColumn;
Tv1YarnZS: TcxGridDBColumn;
Tv1ConNo: TcxGridDBColumn;
Tv3C_Code: TcxGridDBColumn;
Tv3dayqty: TcxGridDBColumn;
Tv3C_Composition: TcxGridDBColumn;
Tv3C_Name: TcxGridDBColumn;
Tv3C_Width: TcxGridDBColumn;
Tv3YarnZS: TcxGridDBColumn;
Tv3Density: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);

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

@ -314,6 +314,7 @@ inherited frmTatPlanList: TfrmTatPlanList
Height = 444
Align = alClient
TabOrder = 2
ExplicitLeft = -6
ExplicitTop = 146
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
@ -537,7 +538,7 @@ inherited frmTatPlanList: TfrmTatPlanList
Width = 70
end
object Tv1Column11: TcxGridDBColumn
Caption = #19978#26426#38376#24133
Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@ -619,6 +620,7 @@ inherited frmTatPlanList: TfrmTatPlanList
#24050#32467#26463
#20840#37096)
OnChange = cxTabControl1Change
ExplicitTop = 109
ClientRectRight = 0
ClientRectTop = 0
end

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

@ -4,7 +4,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Anchors = []
Caption = #20219#21153#26032#22686
ClientHeight = 653
ClientWidth = 1022
ClientWidth = 1046
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -19,7 +19,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1022
Width = 1046
Height = 30
AutoSize = True
ButtonHeight = 30
@ -32,7 +32,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
ParentColor = False
ShowCaptions = True
TabOrder = 0
ExplicitTop = -6
ExplicitWidth = 1022
object ToolButton1: TToolButton
Left = 0
Top = 0
@ -61,7 +61,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
object ScrollBox1: TScrollBox
Left = 0
Top = 30
Width = 1022
Width = 1046
Height = 623
Align = alClient
BevelInner = bvNone
@ -71,7 +71,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
ParentColor = False
ParentCtl3D = False
TabOrder = 1
ExplicitTop = 36
ExplicitWidth = 1022
object Label1: TLabel
Left = 455
Top = 55
@ -440,13 +440,11 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
object cxGrid3: TcxGrid
Left = 0
Top = 368
Width = 1020
Width = 1044
Height = 253
Align = alBottom
TabOrder = 15
ExplicitLeft = -3
ExplicitTop = 417
ExplicitWidth = 1003
ExplicitWidth = 1020
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -514,9 +512,9 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv2Column6: TcxGridDBColumn
Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'TestDenier'
object Tv2Z_Number: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'Z_Number'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter

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

@ -74,7 +74,7 @@ type
cxGridDBColumn3: TcxGridDBColumn;
Tv2Y_Composition: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
Tv2Z_Number: TcxGridDBColumn;
Tv2Column12: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
Tv3BatchNO: TcxGridDBColumn;
@ -633,7 +633,7 @@ begin
FieldByName('BatchNO').Value := self.ADOQueryCmd.fieldbyname('BatchNO').Value;
FieldByName('TestDenier').Value := self.ADOQueryCmd.fieldbyname('Denier').Value;
FieldByName('Z_Number').Value := self.ADOQueryCmd.fieldbyname('Z_Number').Value;
// FieldByName('FF').Value := self.ADOQueryCmd.fieldbyname('FF').Value;
// FieldByName('ND').Value := self.ADOQueryCmd.fieldbyname('ND').Value;

21
E01梭织生产计划/U_TatPlanMachList.dfm
View File

@ -215,6 +215,8 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList
Align = alClient
PopupMenu = PM_1
TabOrder = 2
ExplicitLeft = -5
ExplicitTop = 146
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -385,6 +387,23 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1WbNo: TcxGridDBColumn
Caption = #36724#21495
DataBinding.FieldName = 'WbNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1KKGroup: TcxGridDBColumn
Caption = #32452#21495
DataBinding.FieldName = 'KKGroup'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column13: TcxGridDBColumn
@ -393,6 +412,7 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv1Column14: TcxGridDBColumn
@ -401,6 +421,7 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
end

2
E01梭织生产计划/U_TatPlanMachList.pas
View File

@ -95,6 +95,8 @@ type
Tv1Column14: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
ToolButton7: TToolButton;
Tv1WbNo: TcxGridDBColumn;
Tv1KKGroup: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure P_CodeNameChange(Sender: TObject);

74
E01梭织生产计划/U_TatPlanPSYLLIST.dfm
View File

@ -3,10 +3,10 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
Top = 76
Caption = #26426#21488#32428#32433#29992#37327#32479#35745
ClientHeight = 577
ClientWidth = 1113
ClientWidth = 1125
Font.Height = -16
Position = poScreenCenter
ExplicitWidth = 1129
ExplicitWidth = 1141
ExplicitHeight = 616
PixelsPerInch = 96
TextHeight = 21
@ -14,7 +14,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
Tag = 1
Left = 0
Top = 0
Width = 1113
Width = 1125
Height = 30
AutoSize = True
ButtonHeight = 30
@ -69,7 +69,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
object Panel1: TPanel [1]
Left = 0
Top = 30
Width = 1113
Width = 1125
Height = 51
Align = alTop
BevelInner = bvRaised
@ -109,7 +109,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
object cxPageControl1: TcxPageControl [4]
Left = 0
Top = 81
Width = 1113
Width = 1125
Height = 496
Align = alClient
TabOrder = 4
@ -118,7 +118,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
ExplicitTop = 82
ClientRectBottom = 495
ClientRectLeft = 1
ClientRectRight = 1112
ClientRectRight = 1124
ClientRectTop = 29
object cxTabSheet1: TcxTabSheet
Caption = ' '#27719#24635' '
@ -126,7 +126,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1111
Width = 1123
Height = 466
Align = alClient
PopupMenu = PopupMenu1
@ -173,13 +173,13 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
Width = 52
end
object v3Column1: TcxGridDBColumn
Caption = #21512#21516#21495
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'conno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 80
Width = 120
end
object Tv1Column9: TcxGridDBColumn
Caption = #32433#32447#21517#31216
@ -213,7 +213,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 124
Width = 143
end
object Tv1Column4: TcxGridDBColumn
Caption = #24050#39046#29992#25968#37327'KG'
@ -223,6 +223,27 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
Options.Editing = False
Width = 117
end
object Tv1realJSYL: TcxGridDBColumn
Caption = #23454#38469#32463#32433#38271#24230
DataBinding.FieldName = 'realJSYL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 137
end
object Tv1realWSYL: TcxGridDBColumn
Caption = #23454#38469#32428#32433#29992#37327'KG'
DataBinding.FieldName = 'realWSYL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 138
end
object Tv1RemainQty: TcxGridDBColumn
Caption = #21097#20313#25968#37327
DataBinding.FieldName = 'RemainQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 112
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv1
@ -235,7 +256,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
object cxGrid2: TcxGrid
Left = 0
Top = 0
Width = 1111
Width = 1123
Height = 466
Align = alClient
PopupMenu = PopupMenu1
@ -243,7 +264,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
@ -289,13 +310,13 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
Width = 80
end
object TV2conno: TcxGridDBColumn
Caption = #21512#21516#21495
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'conno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 80
Width = 117
end
object TV2Y_Name: TcxGridDBColumn
Caption = #32433#32447#21517#31216
@ -346,6 +367,22 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
Options.Editing = False
Width = 117
end
object TV2realJSYL: TcxGridDBColumn
Caption = #23454#38469#32463#32433#38271#24230
DataBinding.FieldName = 'realJSYL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = cxStyle1
Width = 156
end
object TV2realWSYL: TcxGridDBColumn
Caption = #23454#38469#32428#32433#29992#37327'KG'
DataBinding.FieldName = 'realWSYL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = cxStyle1
Width = 153
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
@ -403,7 +440,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 472
Left = 456
Top = 364
end
object PopupMenu1: TPopupMenu
@ -434,4 +471,11 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
Left = 296
Top = 448
end
object cxStyleRepository1: TcxStyleRepository
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svTextColor]
TextColor = clBlue
end
end
end

34
E01梭织生产计划/U_TatPlanPSYLLIST.pas
View File

@ -64,6 +64,13 @@ type
cxGridLevel1: TcxGridLevel;
TV2mcno: TcxGridDBColumn;
TV2DAYQTY: TcxGridDBColumn;
TV2realJSYL: TcxGridDBColumn;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
TV2realWSYL: TcxGridDBColumn;
Tv1realJSYL: TcxGridDBColumn;
Tv1realWSYL: TcxGridDBColumn;
Tv1RemainQty: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -83,6 +90,7 @@ type
FInt, PFInt: Integer;
FFMainID, BPFlag: string;
procedure InitGrid();
procedure InitGrid2();
{ Private declarations }
public
canshu1: string;
@ -117,8 +125,11 @@ begin
begin
Close;
sql.Clear;
sql.Add('SELECT * FROM V_TAT_PSYL ');
sql.Add('SELECT conno,max(Y_Name) as Y_Name,max(BatchNo) as BatchNo,sum(DAYYL) as DAYYL,sum(zqty) as zqty,sum(LYQTY) as LYQTY ');
sql.Add(' ,sum(realJSYL) as realJSYL,sum(realWSYL) as realWSYL');
sql.Add(', (sum(realWSYL)-sum(LYQTY)) as RemainQty');
sql.add(' FROM V_TAT_PSYL group By conno ');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
@ -128,6 +139,25 @@ begin
end;
end;
procedure TfrmTatPlanPSYLLIST.InitGrid2();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('SELECT * FROM V_TAT_PSYL ');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_2);
SInitCDSData(ADOQueryMain, CDS_2);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmTatPlanPSYLLIST.N1Click(Sender: TObject);
begin
SelOKNo(cds_1, true)
@ -141,6 +171,7 @@ end;
procedure TfrmTatPlanPSYLLIST.TBRafreshClick(Sender: TObject);
begin
InitGrid();
InitGrid2();
end;
procedure TfrmTatPlanPSYLLIST.ToolButton1Click(Sender: TObject);
@ -299,6 +330,7 @@ begin
ReadCxGrid(trim(self.Caption) + '1', Tv1, 'Å÷²¼Éú²ú');
InitGrid();
InitGrid2();
end;
procedure TfrmTatPlanPSYLLIST.ConNoPropertiesChange(Sender: TObject);

8
E02梭织经轴仓库/U_DataLink.dfm
View File

@ -15,6 +15,14 @@ inherited DataLink_WarpBeamStk: TDataLink_WarpBeamStk
end
inherited ThreeColorBase: TcxStyleRepository
PixelsPerInch = 96
inherited grid_head_blue: TcxStyle
Font.Height = -13
Font.Style = [fsBold]
TextColor = clBlue
end
inherited grid_head_red: TcxStyle
Font.Height = -12
end
end
inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
inherited dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel

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

@ -1,4 +1,3 @@
unit U_GetDllForm;
interface
@ -21,7 +20,9 @@ uses
U_EmptyBeamInList, U_EmptyBeamOutList, U_EmptyBeamStkList, U_TatWBOutputList,
U_TatWBOutputList1, U_WarpBeamQianList, U_TatWBOutputList_CZ,
U_TatWBOutputList_SZ, U_TatWBOutputList_JT, U_TatWBOutputList_XB,
U_TatWBOutputList_XZ, U_TatOutputList1, U_TatWBPlan,U_TatWBNeedList;
U_TatWBOutputList_XZ, U_TatOutputList1, U_TatWBPlan, U_TatWBNeedList,
U_TatWBPlanZJZK,U_WBNeedHTList;
/////////////////////////////////////////////////////////////////
@ -181,9 +182,21 @@ begin
end;
end;
// 113: //轴卡管理
// begin
// with TfrmTatWBPlanCard.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do
// begin
// fFormID := FormID;
// FormStyle := mstyle;
// WindowState := mstate;
// BorderStyle := mborderstyle;
// mnewHandle := Handle;
// end;
// end;
113: //ÖῨ¹ÜÀí
begin
with TfrmTatWBPlanCard.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do
with TfrmTatWBPlanZJZK.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do
begin
fFormID := FormID;
FormStyle := mstyle;
@ -228,6 +241,17 @@ begin
mnewHandle := Handle;
end;
end;
132: //经轴需求统计（合同）
begin
with TfrmWBNeedHTList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do
begin
fFormID := FormID;
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
211: //¾­ÖáÈë¿â
begin

8
E02梭织经轴仓库/U_LogInput.dfm
View File

@ -2,7 +2,7 @@ inherited frmLogInput: TfrmLogInput
Left = 206
Top = 106
BorderIcons = []
Caption = #25972#32463#24037#33402#26085#24535
Caption = #20462#25913#26085#24535#35760#24405
ClientHeight = 536
ClientWidth = 1074
Color = clWhite
@ -96,6 +96,7 @@ inherited frmLogInput: TfrmLogInput
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 24
object Label4: TLabel
Left = 17
Top = 10
@ -121,6 +122,7 @@ inherited frmLogInput: TfrmLogInput
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 71
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
@ -163,12 +165,12 @@ inherited frmLogInput: TfrmLogInput
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.GroupByBox = False
object Tv1C_Code: TcxGridDBColumn
object Tv1Acction: TcxGridDBColumn
Caption = #25972#32463#24037#33402#32534#21495
DataBinding.FieldName = 'Acction'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 137
Width = 153
end
object Tv1Column1: TcxGridDBColumn
Caption = #20462#25913#26085#26399

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

@ -43,7 +43,7 @@ type
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1C_Code: TcxGridDBColumn;
Tv1Acction: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -62,9 +62,11 @@ type
private
canshu1, FSTKName, canshu3: string;
procedure InitGrid();
procedure SetStatus();
{ Private declarations }
public
fWB_Code,fFlag: string;
fWB_Code, fFlag, flogFlag: string;
{ Public declarations }
end;
@ -92,20 +94,35 @@ begin
canshu3 := Trim(DParameters3);
end;
procedure TfrmLogInput.SetStatus();
begin
if flogFlag = '整经工艺信息修改' then
begin
Tv1Acction.Caption := '整经工艺编号';
end
else if flogFlag = '整经计划信息修改' then
begin
Tv1Acction.Caption := '整经计划单号';
end
else if flogFlag = '浆纱计划信息修改' then
begin
Tv1Acction.Caption := '浆纱计划单号';
end;
end;
procedure TfrmLogInput.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select * from sy_sysLog ');
sql.Add(' where Model = ' + QuotedStr(Trim('整经工艺信息修改')));
sql.Add(' where Model = ' + QuotedStr(flogFlag));
if fFlag = 'ÐÞ¸Ä' then
begin
SQL.Add(' and 1=2')
@ -183,7 +200,7 @@ begin
else
Edit;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'SY_sysLog', 0);
FieldByName('Model').Value := '整经工艺信息修改';
FieldByName('Model').Value := flogFlag;
FieldByName('Result').Value := '³É¹¦';
Post;
end;
@ -196,7 +213,7 @@ end;
procedure TfrmLogInput.TbSaveFormatClick(Sender: TObject);
begin
WriteCxGrid(Self.Caption, Tv1, '整经工艺日志');
WriteCxGrid(Self.Caption, Tv1, '修改日志记录');
end;
procedure TfrmLogInput.TbAddClick(Sender: TObject);
@ -268,7 +285,7 @@ end;
procedure TfrmLogInput.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(Self.Caption, Tv1, '整经工艺日志');
ReadCxGrid(Self.Caption, Tv1, '修改日志记录');
InitGrid();
if fFlag = '²é¿´' then
begin
@ -276,7 +293,7 @@ begin
TbDel.Visible := False;
TbSave.Visible := false;
end
else if fFlag = '修改' then
else if fFlag = '修改' then
begin
TBRafresh.Visible := False;
TBFind.Visible := False;

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

@ -154,6 +154,24 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
HeaderAlignmentHorz = taCenter
Width = 114
end
object TV2XZZJ: TcxGridDBColumn
Caption = #25972#32463
DataBinding.FieldName = 'XZZJ'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2XZSJ: TcxGridDBColumn
Caption = #19978#27974
DataBinding.FieldName = 'XZSJ'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2Column1: TcxGridDBColumn
Caption = #25972#32463#21152#24037#37319#36141#32534#21495
DataBinding.FieldName = 'WBFtyNo'
@ -162,6 +180,19 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Options.Editing = False
Width = 118
end
object TV2JZSJ: TcxGridDBColumn
Caption = #19978#27974
DataBinding.FieldName = 'JZSJ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object TV2JZSZ: TcxGridDBColumn
Caption = #19978#36724
DataBinding.FieldName = 'JZSZ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2Column5: TcxGridDBColumn
Caption = #25972#32463#21152#24037#37319#36141#21333#20301
DataBinding.FieldName = 'WBFtyName'
@ -298,8 +329,6 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Height = 137
Align = alTop
TabOrder = 2
ExplicitLeft = 6
ExplicitTop = 25
object Label2: TLabel
Left = 263
Top = 102
@ -1068,6 +1097,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 345
Top = 54
ParentColor = True
Properties.ReadOnly = True
TabOrder = 2
Width = 120
end
@ -1076,6 +1106,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 106
Top = 181
ParentColor = True
Properties.ReadOnly = True
TabOrder = 3
Width = 120
end
@ -1084,6 +1115,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 106
Top = 223
ParentColor = True
Properties.ReadOnly = True
TabOrder = 4
Width = 120
end
@ -1092,6 +1124,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 345
Top = 434
ParentColor = True
Properties.ReadOnly = True
TabOrder = 5
Width = 76
end
@ -1100,6 +1133,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 345
Top = 181
ParentColor = True
Properties.ReadOnly = True
TabOrder = 6
Width = 120
end
@ -1108,6 +1142,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 345
Top = 223
ParentColor = True
Properties.ReadOnly = True
TabOrder = 7
Width = 120
end
@ -1160,6 +1195,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = GKBHPropertiesButtonClick
TabOrder = 11
Width = 120
@ -1178,6 +1214,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 106
Top = 139
ParentColor = True
Properties.ReadOnly = True
TabOrder = 13
Width = 120
end
@ -1186,6 +1223,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 106
Top = 265
ParentColor = True
Properties.ReadOnly = True
TabOrder = 14
Width = 120
end
@ -1194,6 +1232,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 106
Top = 307
ParentColor = True
Properties.ReadOnly = True
TabOrder = 15
Width = 120
end
@ -1202,6 +1241,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 345
Top = 265
ParentColor = True
Properties.ReadOnly = True
TabOrder = 16
Width = 120
end
@ -1210,6 +1250,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 345
Top = 307
ParentColor = True
Properties.ReadOnly = True
TabOrder = 17
Width = 120
end
@ -1218,6 +1259,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 106
Top = 392
ParentColor = True
Properties.ReadOnly = True
TabOrder = 18
Width = 79
end
@ -1226,6 +1268,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 345
Top = 392
ParentColor = True
Properties.ReadOnly = True
TabOrder = 19
Width = 76
end
@ -1234,6 +1277,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 106
Top = 434
ParentColor = True
Properties.ReadOnly = True
TabOrder = 20
Width = 79
end
@ -1242,6 +1286,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 105
Top = 476
ParentColor = True
Properties.ReadOnly = True
TabOrder = 21
Width = 382
end
@ -1250,6 +1295,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 345
Top = 139
ParentColor = True
Properties.ReadOnly = True
TabOrder = 22
Width = 120
end
@ -1257,6 +1303,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 345
Top = 565
ParentColor = True
Properties.ReadOnly = True
TabOrder = 23
Width = 120
end
@ -1264,6 +1311,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 106
Top = 565
ParentColor = True
Properties.ReadOnly = True
TabOrder = 24
Width = 120
end
@ -1272,6 +1320,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 106
Top = 520
ParentColor = True
Properties.ReadOnly = True
TabOrder = 25
Width = 79
end
@ -1280,6 +1329,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Left = 354
Top = 520
ParentColor = True
Properties.ReadOnly = True
TabOrder = 26
Width = 67
end

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

@ -168,6 +168,10 @@ type
Timer1: TTimer;
Group: TcxTextEdit;
Label55: TLabel;
TV2XZZJ: TcxGridDBColumn;
TV2XZSJ: TcxGridDBColumn;
TV2JZSJ: TcxGridDBColumn;
TV2JZSZ: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure N2Click(Sender: TObject);
@ -346,10 +350,15 @@ begin
Close;
sql.Clear;
sql.Add('select A.* ');
sql.Add(',cast((CASE WHEN EXISTS (SELECT 1 from Tat_WB_IO WHERE WBCID=A.WBCID AND StkName=''经轴'' AND ioFlag=''入库'' AND ioType=''整经完成'' ) THEN 1 ELSE 0 END) as bit) AS XZZJ');
sql.Add(',cast((CASE WHEN EXISTS (SELECT 1 from Tat_WB_IO WHERE WBCID=A.WBCID AND StkName=''经轴'' AND ioFlag=''出库'' AND ioType=''加工出库'' ) THEN 1 ELSE 0 END) as bit) AS XZSJ');
// sql.Add(', cast(1 as bit) SJ');
sql.Add(',cast((CASE WHEN EXISTS (SELECT 1 from Tat_Plan_OutPut WHERE PCID=A.WBCID AND GlideName=''上浆'' ) THEN 1 ELSE 0 END) as bit) AS JZSJ');
sql.Add(',cast((CASE WHEN EXISTS (SELECT 1 from Tat_Plan_OutPut WHERE PCID=A.WBCID AND GlideName=''上轴'' ) THEN 1 ELSE 0 END) as bit) AS JZSZ');
sql.Add('from Tat_WB_Card A ');
sql.Add('where isnull(Status,''0'')<>''-1'' and TWPId=' + quotedstr(Trim(FTWPId)));
SQL.Add('AND WB_TYPE=' + quotedstr(Trim(FWB_Type)));
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_Card);
@ -449,7 +458,7 @@ begin
frmWBSpecSel := TfrmWBSpecSel.Create(Application);
with frmWBSpecSel do
begin
fWB_TYPE := '整浆并';
if ShowModal = 1 then
begin
Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString);
@ -554,8 +563,17 @@ begin
begin
Group.Visible := True;
Label55.Visible := True;
TV2XZZJ.Visible := False;
TV2XZSJ.Visible := False;
end
else
begin
TV2JZSZ.Visible := False;
TV2JZSJ.Visible := False;
end;
end;
procedure TfrmTatWBCardInPut2.GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -695,7 +713,8 @@ begin
sql.Add(',' + Quotedstr(Trim(WB_Name.Text)));
if FWB_Type = 'Ï¡Öá' then
begin
if (i = MCardQty) and (Z_ZHOUSHU2.Text <> '') and (Z_ZHOUSHU2.Text <> '0') then
// if (i = MCardQty) and (Z_ZHOUSHU2.Text <> '') and (Z_ZHOUSHU2.Text <> '0') then
if (i > StrToInt(Z_ZHOUSHU1.Text) ) and (Z_ZHOUSHU2.Text <> '') and (Z_ZHOUSHU2.Text <> '0') then
begin
sql.Add(',' + (Trim(Z_FJGENSHU.Text)));
sql.Add(',' + (Trim(Z_SJKESHU2.Text)));

3
E02梭织经轴仓库/U_TatWBNeedList.dfm
View File

@ -162,6 +162,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 115
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -266,7 +267,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
HeaderAlignmentHorz = taCenter
Styles.Content = cxStyle1
Styles.Header = cxStyle1
Width = 121
Width = 124
end
end
object cxGrid1Level1: TcxGridLevel

127
E02梭织经轴仓库/U_TatWBPlan.dfm
View File

@ -6,7 +6,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
ClientWidth = 1540
Font.Height = -16
Position = poScreenCenter
ExplicitLeft = -689
ExplicitWidth = 1556
ExplicitHeight = 691
PixelsPerInch = 96
@ -19,7 +18,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
ButtonWidth = 115
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_WarpBeamStk.ImageList_new32
@ -34,6 +33,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
ParentFont = False
ShowCaptions = True
TabOrder = 5
ExplicitTop = 4
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -130,16 +130,24 @@ inherited frmTatWBPlan: TfrmTatWBPlan
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton1: TToolButton
object TbLogLook: TToolButton
Left = 900
Top = 0
AutoSize = True
Caption = #20462#25913#26085#24535#26597#30475
ImageIndex = 8
OnClick = TbLogLookClick
end
object ToolButton1: TToolButton
Left = 1019
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 995
Left = 1114
Top = 0
AutoSize = True
Caption = #20851#38381
@ -158,6 +166,8 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Color = clWhite
ParentBackground = False
TabOrder = 6
ExplicitLeft = -1
ExplicitTop = 44
object Label1: TLabel
Left = 18
Top = 14
@ -230,7 +240,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
object cxGrid1: TcxGrid [2]
Left = 0
Top = 111
Width = 974
Width = 829
Height = 541
Align = alLeft
TabOrder = 2
@ -332,6 +342,27 @@ inherited frmTatWBPlan: TfrmTatWBPlan
HeaderAlignmentHorz = taCenter
Width = 71
end
object v1Column21: TcxGridDBColumn
Caption = #22383#24067#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 92
end
object Tv1C_CODE: TcxGridDBColumn
Caption = #22383#24067#32534#21495
DataBinding.FieldName = 'C_CODE'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 87
end
object Tv1WB_Name: TcxGridDBColumn
Caption = #32463#36724#24037#33402#21517#31216
DataBinding.FieldName = 'WB_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 128
end
object v1Column19: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
@ -342,26 +373,19 @@ inherited frmTatWBPlan: TfrmTatWBPlan
HeaderAlignmentHorz = taCenter
Width = 82
end
object v1Column21: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 92
end
object v1Column2: TcxGridDBColumn
Caption = #24635#32463#26681#25968
DataBinding.FieldName = 'WB_YarnQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 73
Width = 85
end
object v1Column6: TcxGridDBColumn
Caption = #24635#31859#25968
DataBinding.FieldName = 'WB_YarnTotalLen'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 59
Width = 68
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #39044#35745#36724#25968
@ -370,12 +394,26 @@ inherited frmTatWBPlan: TfrmTatWBPlan
HeaderAlignmentHorz = taCenter
Width = 92
end
object Tv1WB_Qty_YJJZZS: TcxGridDBColumn
Caption = #35745#21010#31232#36724#20010#25968
DataBinding.FieldName = 'WB_Qty_YJJZZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 123
end
object Tv1WB_Qty: TcxGridDBColumn
Caption = #35745#21010#32455#36724#25968
DataBinding.FieldName = 'WB_Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 96
end
object v1Column7: TcxGridDBColumn
Caption = #39044#35745#27974#26009#25104#26412
DataBinding.FieldName = 'SizingAgentCost'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 98
Width = 122
end
object v1Column4: TcxGridDBColumn
Caption = #22791#27880
@ -417,9 +455,9 @@ inherited frmTatWBPlan: TfrmTatWBPlan
ClientRectTop = 30
end
object Panel2: TPanel [4]
Left = 974
Left = 829
Top = 111
Width = 566
Width = 711
Height = 541
Align = alClient
Caption = 'Panel2'
@ -427,11 +465,13 @@ inherited frmTatWBPlan: TfrmTatWBPlan
object cxGrid2: TcxGrid
Left = 1
Top = 67
Width = 564
Width = 709
Height = 233
Align = alClient
PopupMenu = PM_1
TabOrder = 0
ExplicitLeft = -7
ExplicitTop = 61
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -496,13 +536,12 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Options.Editing = False
Width = 77
end
object TV1Column5: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'WB_Spec'
object TV2Group: TcxGridDBColumn
Caption = #32452#21495
DataBinding.FieldName = 'Group'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
Width = 80
end
object V2Column3: TcxGridDBColumn
Caption = #25972#32463#38271#24230
@ -520,6 +559,20 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Options.Editing = False
Width = 65
end
object TV2XZZJ: TcxGridDBColumn
Caption = #25972#32463
DataBinding.FieldName = 'XZZJ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2XZSJ: TcxGridDBColumn
Caption = #19978#27974
DataBinding.FieldName = 'XZSJ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1Column3: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
@ -527,6 +580,22 @@ inherited frmTatWBPlan: TfrmTatWBPlan
HeaderAlignmentHorz = taCenter
Width = 146
end
object TV2JZSJ: TcxGridDBColumn
Caption = #19978#27974
DataBinding.FieldName = 'JZSJ'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2JZSZ: TcxGridDBColumn
Caption = #19978#36724
DataBinding.FieldName = 'JZSZ'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
@ -536,7 +605,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Tag = 1
Left = 1
Top = 1
Width = 564
Width = 709
Height = 38
AutoSize = True
ButtonHeight = 38
@ -591,7 +660,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
object cxTabControl2: TcxTabControl
Left = 1
Top = 39
Width = 564
Width = 709
Height = 28
Align = alTop
Font.Charset = GB2312_CHARSET
@ -603,19 +672,21 @@ inherited frmTatWBPlan: TfrmTatWBPlan
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
Properties.TabIndex = 1
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#31232#36724
#27974#36724)
OnChange = cxTabControl2Change
ExplicitLeft = 6
ExplicitTop = 33
ClientRectBottom = 30
ClientRectRight = 564
ClientRectRight = 709
ClientRectTop = 30
end
object cxGrid3: TcxGrid
Left = 1
Top = 300
Width = 564
Width = 709
Height = 240
Align = alBottom
TabOrder = 3

58
E02梭织经轴仓库/U_TatWBPlan.pas
View File

@ -66,7 +66,6 @@ type
TV2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
V2Column4: TcxGridDBColumn;
TV1Column5: TcxGridDBColumn;
V2Column3: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
@ -107,6 +106,16 @@ type
frxBarCodeObject1: TfrxBarCodeObject;
frxRichObject1: TfrxRichObject;
frxOLEObject1: TfrxOLEObject;
Tv1WB_Name: TcxGridDBColumn;
Tv1WB_Qty_YJJZZS: TcxGridDBColumn;
Tv1WB_Qty: TcxGridDBColumn;
Tv1C_CODE: TcxGridDBColumn;
TV2XZZJ: TcxGridDBColumn;
TV2XZSJ: TcxGridDBColumn;
TV2Group: TcxGridDBColumn;
TV2JZSJ: TcxGridDBColumn;
TV2JZSZ: TcxGridDBColumn;
TbLogLook: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
@ -139,6 +148,7 @@ type
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure TbLogLookClick(Sender: TObject);
private
FInt, PFInt: Integer;
@ -159,7 +169,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatWBPlanInPut,
U_TatWBCardInPut2, U_RPFun; //U_TatWBPlanCardInPut
U_TatWBCardInPut2, U_RPFun,U_LogInput; //U_TatWBPlanCardInPut
{$R *.dfm}
@ -170,6 +180,11 @@ begin
Close;
sql.Clear;
sql.Add('select A.* ');
sql.Add(',cast((CASE WHEN EXISTS (SELECT 1 from Tat_WB_IO WHERE WBCID=A.WBCID AND StkName=''经轴'' AND ioFlag=''入库'' AND ioType=''整经完成'' ) THEN 1 ELSE 0 END) as bit) AS XZZJ');
sql.Add(',cast((CASE WHEN EXISTS (SELECT 1 from Tat_WB_IO WHERE WBCID=A.WBCID AND StkName=''经轴'' AND ioFlag=''出库'' AND ioType=''加工出库'' ) THEN 1 ELSE 0 END) as bit) AS XZSJ');
sql.Add(',cast((CASE WHEN EXISTS (SELECT 1 from Tat_Plan_OutPut WHERE PCID=A.WBCID AND GlideName=''上浆'' ) THEN 1 ELSE 0 END) as bit) AS JZSJ');
sql.Add(',cast((CASE WHEN EXISTS (SELECT 1 from Tat_Plan_OutPut WHERE PCID=A.WBCID AND GlideName=''上轴'' ) THEN 1 ELSE 0 END) as bit) AS JZSZ');
sql.Add(' from Tat_WB_Card A ');
sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString)));
case cxTabControl2.TabIndex of
@ -291,6 +306,7 @@ begin
sql.Add('select A.* ');
sql.Add(' from Tat_WB_Plan A ');
sql.Add('where 1=1 ');
sql.Add(' and EXISTS (SELECT * FROM Tat_WB_Spec X where X.WB_Code = A.WB_Code and X.WB_TYPE = ''整浆并'' )');
case cxTabControl1.TabIndex of
0:
begin
@ -350,6 +366,22 @@ begin
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmTatWBPlan.TbLogLookClick(Sender: TObject);
begin
frmLogInput := TfrmLogInput.Create(Application);
with frmLogInput do
begin
fWB_Code := Self.CDS_1.FieldByName('TWPId').AsString;
fFlag := '查看';
flogFlag := '浆纱计划信息修改';
if ShowModal = 1 then
begin
end;
end;
end;
procedure TfrmTatWBPlan.TBNoEndClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
@ -871,7 +903,29 @@ end;
procedure TfrmTatWBPlan.cxTabControl2Change(Sender: TObject);
begin
case cxTabControl2.TabIndex of
0:
begin
TV2XZZJ.Visible := True;
TV2XZSJ.Visible := True;
TV2JZSJ.Visible := False;
TV2JZSZ.Visible := False;
end;
1:
begin
TV2XZZJ.Visible := False;
TV2XZSJ.Visible := False;
TV2JZSJ.Visible := True;
TV2JZSZ.Visible := True;
end;
end;
InitCard();
end;
procedure TfrmTatWBPlan.C_NameKeyPress(Sender: TObject; var Key: Char);

22
E02梭织经轴仓库/U_TatWBPlanCard.dfm
View File

@ -18,7 +18,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 107
ButtonWidth = 131
Caption = 'ToolBar1'
DisabledImages = DataLink_WarpBeamStk.cxImageList_bar
Images = DataLink_WarpBeamStk.cxImageList_bar
@ -34,7 +34,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = TBRafreshClick
end
object ToolButton5: TToolButton
Left = 63
Left = 71
Top = 0
AutoSize = True
Caption = #26032#22686
@ -42,7 +42,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton5Click
end
object ToolButton6: TToolButton
Left = 126
Left = 142
Top = 0
AutoSize = True
Caption = #20462#25913
@ -50,7 +50,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton6Click
end
object ToolButton3: TToolButton
Left = 189
Left = 213
Top = 0
AutoSize = True
Caption = #36724#21345#21024#38500
@ -58,7 +58,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton3Click
end
object ToolButton4: TToolButton
Left = 276
Left = 316
Top = 0
AutoSize = True
Caption = #25972#32463#35745#21010#25171#21360
@ -66,7 +66,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton4Click
end
object ToolButton1: TToolButton
Left = 387
Left = 451
Top = 0
AutoSize = True
Caption = #36724#21345#39044#35272
@ -74,7 +74,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton1Click
end
object ToolButton7: TToolButton
Left = 474
Left = 554
Top = 0
AutoSize = True
Caption = #36724#21345#25171#21360
@ -82,7 +82,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton7Click
end
object ToolButton2: TToolButton
Left = 561
Left = 657
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -90,7 +90,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 648
Left = 760
Top = 0
AutoSize = True
Caption = #20851#38381
@ -622,6 +622,8 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 4
ExplicitLeft = 732
ExplicitTop = 107
object Tv4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -797,6 +799,8 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
Align = alBottom
TabOrder = 5
Visible = False
ExplicitLeft = -1
ExplicitTop = 512
object TabSheet1: TTabSheet
Caption = #25972#32463#25195#25551#35760#24405
object cxGrid3: TcxGrid

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

@ -393,11 +393,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
TabOrder = 2
OnDblClick = gynoDblClick
object Label3: TLabel
Left = 756
Top = 14
Width = 48
Left = 708
Top = 8
Width = 80
Height = 21
Caption = #21697#21517#65306
Caption = #22383#24067#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
@ -420,7 +420,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
end
object Label47: TLabel
Left = 521
Top = 16
Top = 8
Width = 48
Height = 21
Caption = #23458#25143#65306
@ -738,11 +738,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
end
object Label10: TLabel
Left = 940
Top = 14
Width = 48
Left = 921
Top = 8
Width = 80
Height = 21
Caption = #32534#21495#65306
Caption = #22383#24067#32534#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
@ -920,8 +920,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
end
object C_NAME: TEdit
Left = 807
Top = 8
Left = 788
Top = 5
Width = 120
Height = 27
Font.Charset = GB2312_CHARSET
@ -1297,7 +1297,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
end
object CustName: TcxButtonEdit
Left = 627
Left = 579
Top = 5
ParentFont = False
Properties.Buttons = <
@ -1335,8 +1335,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120
end
object C_CODE: TEdit
Left = 991
Top = 8
Left = 999
Top = 5
Width = 120
Height = 27
Font.Charset = GB2312_CHARSET

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

@ -169,7 +169,7 @@ implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_YarnInfoSel, U_TatPlanSel2,
U_WBSpecSel, U_GKManageSel, U_WeaveSel, U_YarnStkSel;
U_WBSpecSel, U_GKManageSel, U_WeaveSel, U_YarnStkSel,U_LogInput;
{$R *.dfm}
@ -354,6 +354,32 @@ var
begin
try
ADOQueryCmd.Connection.BeginTrans;
try
if FTWPId <> '' then
begin
frmLogInput := TfrmLogInput.Create(Application);
with frmLogInput do
begin
fWB_Code := Self.TWPId.Text;
flogFlag := '浆纱计划信息修改';//日志中Model字段
fFlag := '修改';
if ShowModal = 1 then
begin
end;
end;
end;
finally
frmLogInput.Free;
end;
if Trim(FTWPId) = '' then
begin
if GetLSNo(ADOQueryCmd, maxno, 'JS', 'Tat_WB_Plan', 4, 1) = False then
@ -675,7 +701,7 @@ begin
frmWBSpecSel := TfrmWBSpecSel.Create(Application);
with frmWBSpecSel do
begin
fWB_TYPE := '整浆并';
if ShowModal = 1 then
begin

1046
E02梭织经轴仓库/U_TatWBPlanZJZK.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

902
E02梭织经轴仓库/U_TatWBPlanZJZK.pas Normal file
View File

@ -0,0 +1,902 @@
unit U_TatWBPlanZJZK;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
cxPC, cxCheckBox, dxScrollbarAnnotations, Vcl.Menus, cxContainer,
cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI, frxOLE, frxRich, frxBarcode, frxClass, frxDBSet,
frxTableObject, frxExportPPTX, frxExportXLSX, frxExportBaseDialog,
frxExportXLS;
type
TfrmTatWBPlanZJZK = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBAdd: TToolButton;
TBEdit: TToolButton;
TBDel: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
GPM_1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
TBExport: TToolButton;
CDS_1: TClientDataSet;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column2: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
TBView: TToolButton;
v1Column19: TcxGridDBColumn;
v1Column21: TcxGridDBColumn;
v1Column31: TcxGridDBColumn;
CustName: TEdit;
Label7: TLabel;
cxTabControl1: TcxTabControl;
Tv1Column2: TcxGridDBColumn;
TBEnd: TToolButton;
TBNoEnd: TToolButton;
ToolButton1: TToolButton;
btnChk: TToolButton;
btnReChk: TToolButton;
Panel2: TPanel;
ToolBar2: TToolBar;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
DS_2: TDataSource;
CDS_2: TClientDataSet;
GPM_2: TcxGridPopupMenu;
Label3: TLabel;
WB_Spec: TEdit;
ToolButton4: TToolButton;
DS_3: TDataSource;
CDS_3: TClientDataSet;
GPM_3: TcxGridPopupMenu;
ADO_2: TADOQuery;
ADO_3: TADOQuery;
PM_1: TPopupMenu;
N5: TMenuItem;
N6: TMenuItem;
ToolButton5: TToolButton;
frxXLSExport1: TfrxXLSExport;
frxXLSXExport1: TfrxXLSXExport;
frxPPTXExport1: TfrxPPTXExport;
frxReportTableObject1: TfrxReportTableObject;
frxReport1: TfrxReport;
fRMDB_1: TfrxDBDataset;
frxBarCodeObject1: TfrxBarCodeObject;
frxRichObject1: TfrxRichObject;
frxOLEObject1: TfrxOLEObject;
cxGrid4: TcxGrid;
Tv4: TcxGridDBTableView;
Tv4Column1: TcxGridDBColumn;
Tv4Column2: TcxGridDBColumn;
cxGridDBColumn34: TcxGridDBColumn;
cxGridDBColumn36: TcxGridDBColumn;
cxGridDBColumn37: TcxGridDBColumn;
cxGridDBColumn38: TcxGridDBColumn;
cxGridDBColumn39: TcxGridDBColumn;
cxGridDBColumn40: TcxGridDBColumn;
cxGridDBColumn41: TcxGridDBColumn;
cxGridDBColumn42: TcxGridDBColumn;
cxGridDBColumn43: TcxGridDBColumn;
cxGridDBColumn44: TcxGridDBColumn;
Tv4Column3: TcxGridDBColumn;
cxGridDBColumn35: TcxGridDBColumn;
cxGridLevel4: 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;
cxGridLevel1: TcxGridLevel;
TbLogLook: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure ConNoChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBViewClick(Sender: TObject);
procedure OrdTypeChange(Sender: TObject);
procedure C_CodeKeyPress(Sender: TObject; var Key: Char);
procedure BatchNoHZKeyPress(Sender: TObject; var Key: Char);
procedure CustNameKeyPress(Sender: TObject; var Key: Char);
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
procedure cxTabControl1Change(Sender: TObject);
procedure TBEndClick(Sender: TObject);
procedure TBNoEndClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure btnChkClick(Sender: TObject);
procedure btnReChkClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure cxTabControl2Change(Sender: TObject);
procedure TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure ToolButton3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure TbLogLookClick(Sender: TObject);
private
FInt, PFInt: Integer;
procedure InitGrid();
procedure InitCard();
procedure InitCardYarn();
procedure InitForm();
// procedure PrintCar(MPCID: string);
function DelData(): Boolean;
procedure InitButton();
{ Private declarations }
public
canshu1, FCheJian: string;
{ Public declarations }
end;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatWBPlanInPut,U_TatWBCardInPut,
U_TatWBPlanZJZKInPut,U_TatWBPlanZJZKKaiKa ,
U_TatWBCardInPut2, U_RPFun,U_LogInput; //U_TatWBPlanCardInPut
{$R *.dfm}
procedure TfrmTatWBPlanZJZK.InitCard();
begin
with ADO_2 do
begin
Close;
sql.Clear;
sql.Add('select A.* ');
sql.Add(' from Tat_WB_Card A ');
sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString)));
sql.Add(' and WB_Type <> ''浆轴'' and WB_Type <> ''稀轴'' ');
Open;
end;
SCreateCDS(ADO_2, CDS_2);
SInitCDSData(ADO_2, CDS_2);
end;
procedure TfrmTatWBPlanZJZK.InitCardYarn();
begin
with ADO_3 do
begin
Close;
sql.Clear;
sql.Add('select A.* ');
sql.Add(' from Tat_WB_Card_Yarn A ');
sql.Add('where WBCID=' + quotedstr(trim(CDS_2.fieldbyname('WBCID').AsString)));
Open;
end;
SCreateCDS(ADO_3, CDS_3);
SInitCDSData(ADO_3, CDS_3);
end;
procedure TfrmTatWBPlanZJZK.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmTatWBPlanZJZK.InitButton();
begin
TBAdd.Enabled := False;
TBEdit.Enabled := False;
TBDel.Enabled := False;
TBEnd.Enabled := False;
TBNoEnd.Enabled := False;
btnChk.Enabled := False;
btnReChk.Enabled := False;
if Trim(canshu1) = '录入' then
begin
case cxTabControl1.TabIndex of
0:
begin
TBAdd.Enabled := true;
TBDel.Enabled := true;
TBEdit.Enabled := true;
btnChk.Enabled := true;
end;
1:
begin
TBAdd.Enabled := true;
TBEnd.Enabled := true;
TBEdit.Enabled := true;
btnReChk.Enabled := true;
end;
2:
begin
TBNoEnd.Enabled := true;
end;
end;
end;
if Trim(canshu1) = '管理' then
begin
case cxTabControl1.TabIndex of
0:
begin
TBAdd.Enabled := true;
TBDel.Enabled := true;
TBEdit.Enabled := true;
btnChk.Enabled := true;
end;
1:
begin
TBAdd.Enabled := true;
TBEnd.Enabled := true;
TBEdit.Enabled := true;
btnReChk.Enabled := true;
end;
2:
begin
TBNoEnd.Enabled := true;
end;
end;
end;
end;
procedure TfrmTatWBPlanZJZK.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatWBPlanZJZK.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('select A.* ');
sql.Add(' from Tat_WB_Plan A ');
sql.Add('where 1=1 ');
sql.Add(' and EXISTS (SELECT * FROM Tat_WB_Spec X where X.WB_Code = A.WB_Code and X.WB_TYPE = ''分条'' )');
case cxTabControl1.TabIndex of
0:
begin
sql.Add('and isnull(Status,''0'') =''0'' ');
end;
1:
begin
sql.Add('and isnull(Status,''0'') =''9'' ');
end;
2:
begin
sql.Add('and isnull(Status,''0'') =''10'' ');
sql.Add(' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''');
end;
end;
sql.add('order by A.FILLTIME DESC');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmTatWBPlanZJZK.N5Click(Sender: TObject);
begin
SelOKNo(CDS_2, True);
end;
procedure TfrmTatWBPlanZJZK.N6Click(Sender: TObject);
begin
SelOKNo(CDS_2, False);
end;
procedure TfrmTatWBPlanZJZK.InitForm();
begin
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '整经轴卡安排');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '整经轴卡安排');
// ReadCxGrid(trim(self.Caption) + 'Tv3', Tv3, '坯布生产管理');
BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 30;
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
InitButton();
InitGrid();
end;
procedure TfrmTatWBPlanZJZK.TBFindClick(Sender: TObject);
begin
TBRafresh.Click;
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmTatWBPlanZJZK.TbLogLookClick(Sender: TObject);
begin
frmLogInput := TfrmLogInput.Create(Application);
with frmLogInput do
begin
fWB_Code := Self.CDS_1.FieldByName('TWPId').AsString;
fFlag := '查看';
flogFlag := '整经计划信息修改';
if ShowModal = 1 then
begin
end;
end;
end;
procedure TfrmTatWBPlanZJZK.TBNoEndClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Tat_WB_Plan SET status=''0'',Comper=null,Comptime=null ');
sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('生产单撤销结束')));
sql.Add(',' + quotedstr(trim('计划单号：' + trim(CDS_1.FieldByName('TWPId').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
application.MessageBox('撤销结束成功！', '提示信息');
TBRafresh.Click;
except
application.MessageBox('撤销结束失败！', '提示信息', 0);
end;
end;
procedure TfrmTatWBPlanZJZK.TBEditClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('浆纱计划单修改')));
sql.Add(',' + quotedstr(trim('计划单号：' + trim(CDS_1.FieldByName('TWPId').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
ExecSQL;
end;
try
frmTatWBPlanInPut := TfrmTatWBPlanInPut.Create(Application);
with frmTatWBPlanInPut do
begin
PState := 1;
FTWPId := Trim(Self.CDS_1.fieldbyname('TWPId').AsString);
if ShowModal = 1 then
begin
InitGrid();
Self.CDS_1.Locate('TWPId', frmTatWBPlanInPut.FTWPId, []);
end;
end;
finally
frmTatWBPlanInPut.Free;
end;
end;
procedure TfrmTatWBPlanZJZK.TBEndClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Tat_WB_Plan SET status=''10'' ,Comper=''' + trim(DName) + ''',Comptime=getdate() ');
sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('生产单结束')));
sql.Add(',' + quotedstr(trim('计划单号：' + trim(CDS_1.FieldByName('TWPId').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
application.MessageBox('结束成功！', '提示信息');
TBRafresh.Click;
except
application.MessageBox('结束失败！', '提示信息', 0);
end;
end;
procedure TfrmTatWBPlanZJZK.TBDelClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
with ADOQueryTemp do
begin
Close;
sql.Clear;
SQL.Add('select A.*');
sql.Add('from Tat_WB_CARD A');
sql.Add(' where A.WBCNO=''' + Trim(CDS_1.fieldbyname('TWPId').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
Application.MessageBox('已产生安排数据不能删除!', '提示', 0);
Exit;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if DelData() then
begin
CDS_1.Delete;
end;
end;
function TfrmTatWBPlanZJZK.DelData(): Boolean;
begin
try
Result := false;
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Tat_WB_Plan where TWPId=''' + Trim(CDS_1.fieldbyname('TWPId').AsString) + '''');
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('整经单删除')));
sql.Add(',' + quotedstr(trim('整经计划单号：' + trim(CDS_1.FieldByName('TWPId').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('数据删除异常！', '提示', 0);
end;
end;
procedure TfrmTatWBPlanZJZK.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel('坯布生产单', cxGrid1);
end;
procedure TfrmTatWBPlanZJZK.TBPrintClick(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
WSql := Trim(CDS_1.fieldbyname('TWPId').AsString);
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TatWBPlan';
FFiltration1 := WSql;
FFiltration2 := WSql;
FFiltration3 := WSql;
if ShowModal = 1 then
begin
// Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatWBPlanZJZK.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTatWBPlanZJZK.TBAddClick(Sender: TObject);
begin
try
frmTatWBPlanZJZKInPut := TfrmTatWBPlanZJZKInPut.Create(Application);
with frmTatWBPlanZJZKInPut do
begin
PState := 0;
FTWPId := '';
FSubId := '';
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmTatWBPlanZJZKInPut.Free;
end;
end;
procedure TfrmTatWBPlanZJZK.ConNoChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmTatWBPlanZJZK.FormShow(Sender: TObject);
begin
inherited;
canshu1 := Self.fParameters1;
InitForm();
end;
procedure TfrmTatWBPlanZJZK.TBViewClick(Sender: TObject);
begin
try
frmTatWBPlanInPut := TfrmTatWBPlanInPut.Create(Application);
with frmTatWBPlanInPut do
begin
PState := 1;
FTWPId := Trim(Self.CDS_1.fieldbyname('TWPId').AsString);
TBSave.Visible := False;
ToolBar3.Visible := False;
ScrollBox1.Enabled := False;
if ShowModal = 1 then
begin
end;
end;
finally
frmTatWBPlanInPut.Free;
end;
end;
procedure TfrmTatWBPlanZJZK.ToolButton1Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '整经轴卡安排');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '整经轴卡安排');
// WriteCxGrid(trim(self.Caption) + 'Tv3', Tv3, '坯布生产管理');
end;
procedure TfrmTatWBPlanZJZK.ToolButton2Click(Sender: TObject);
begin
try
frmTatWBPlanZJZKKaiKa := TfrmTatWBPlanZJZKKaiKa.Create(Application);
with frmTatWBPlanZJZKKaiKa do
begin
FTWPId := Trim(self.CDS_1.fieldbyname('TWPId').AsString);
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmTatWBPlanZJZKKaiKa.Free;
end;
end;
procedure TfrmTatWBPlanZJZK.ToolButton3Click(Sender: TObject);
var
rtvalues: TArray<string>;
begin
if CDS_2.IsEmpty then
Exit;
Tv2.OnFocusedRecordChanged := nil;
if CDS_2.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
rtvalues := SelCDSKey(CDS_2, ['WBCID']);
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_TatWB_Card_Del ');
Sql.Add('@WBCIDS=' + quotedstr(Trim(rtvalues[0])));
Sql.Add(',@DCode=' + Quotedstr(DCode));
Sql.Add(',@DName=' + Quotedstr(DName));
Open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
begin
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
end;
ADOQueryCmd.Connection.CommitTrans;
InitCard();
application.MessageBox('删除成功！', '提示信息');
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmTatWBPlanZJZK.ToolButton4Click(Sender: TObject);
var
RTValues: TArray<string>;
begin
if CDS_2.IsEmpty then
Exit;
RTValues := SelCDSKey(CDS_2, ['WBCID']);
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FPreviewPrint := False;
// case cxTabControl2.TabIndex of
// 0:
// begin
// FLMType := 'TatWBCard1';
// end;
// 1:
// begin
// FLMType := 'TatWBCard2';
// end;
// end;
FFiltration1 := RTValues[0];
if ShowModal = 1 then
begin
// Self.InitGrid();
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update Tat_WB_Card ');
// sql.Add(' set PRTer=' + quotedstr(DName));
// sql.Add(', PRTCount=PRTCount+1');
// sql.Add(', PRTDate=getdate()');
// sql.Add(' where WBCID in (' + WSql + ')');
// ExecSQL;
// end;
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatWBPlanZJZK.ToolButton5Click(Sender: TObject);
var
i: integer;
MPCID: string;
MPrintJson: string;
begin
if CDS_2.IsEmpty then
Exit;
if CDS_2.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
i := 0;
with CDS_2 do
begin
DisableControls;
First;
while not Eof do
begin
if Fieldbyname('Ssel').AsBoolean then
begin
if i = 0 then
MPCID := trim(CDS_2.fieldbyname('WBCID').AsString);
// PrintCar(trim(CDS_2.fieldbyname('PCID').AsString));
MPrintJson := '{ "LBName": "上浆轴卡","IsPreview": false, "PrtArgs": [ {"SqlStr": "EXEC P_TatWB_JZCard_Prt @Filtration=' + QuotedStr(MPCID) + ' " }, {"SqlStr": "EXEC P_TatWB_JZCard_Prt2 @Filtration=' + QuotedStr(MPCID) + '" } ] }';
// ShowMessage(MPrintJson);
FunPrintRmf(Application, PChar(DConString), PChar(MPrintJson));
i := i + 1;
end;
Next;
end;
EnableControls;
end;
SelOKNoFiler(Tv2, False);
CDS_2.Locate('WBCID', MPCID, []);
end;
procedure TfrmTatWBPlanZJZK.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
InitCard();
end;
procedure TfrmTatWBPlanZJZK.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
InitCardYarn();
end;
procedure TfrmTatWBPlanZJZK.btnChkClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Tat_WB_Plan SET status=''9'',chker=''' + trim(DName) + ''',Chktime=getdate() ');
sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('生产单开始')));
sql.Add(',' + quotedstr(trim('计划单号：' + trim(CDS_1.FieldByName('TWPId').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
application.MessageBox('开始成功！', '提示信息');
TBRafresh.Click;
except
application.MessageBox('开始失败！', '提示信息', 0);
end;
end;
procedure TfrmTatWBPlanZJZK.btnReChkClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update Tat_WB_Plan SET status=''0'',chker=null,Chktime=null ');
sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('生产单撤销开始')));
sql.Add(',' + quotedstr(trim('计划单号：' + trim(CDS_1.FieldByName('TWPId').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
TBRafresh.Click;
except
application.MessageBox('计划单撤销开始失败！', '提示信息', 0);
end;
end;
procedure TfrmTatWBPlanZJZK.OrdTypeChange(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmTatWBPlanZJZK.C_CodeKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
TBRafresh.Click();
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmTatWBPlanZJZK.BatchNoHZKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
TBRafresh.Click();
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmTatWBPlanZJZK.CustNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
TBRafresh.Click();
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmTatWBPlanZJZK.cxTabControl1Change(Sender: TObject);
begin
InitButton();
InitGrid();
end;
procedure TfrmTatWBPlanZJZK.cxTabControl2Change(Sender: TObject);
begin
InitCard();
end;
procedure TfrmTatWBPlanZJZK.C_NameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
TBRafresh.Click();
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
end.

1238
E02梭织经轴仓库/U_TatWBPlanZJZKInPut.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

986
E02梭织经轴仓库/U_TatWBPlanZJZKInPut.pas Normal file
View File

@ -0,0 +1,986 @@
unit U_TatWBPlanZJZKInPut;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxDropDownEdit,
StrUtils, cxPC, ShellAPI, cxCalendar, Math, cxLookAndFeels,
cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, dxDateRanges,
U_BaseInput, System.ImageList, Vcl.ImgList, Vcl.Menus, dxScrollbarAnnotations,
cxImageList, dxSkinsCore, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinsDefaultPainters, dxSkinWXI;
type
TfrmTatWBPlanZJZKInPut = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ToolButton8: TToolButton;
Panel2: TPanel;
cxPageControl1: TcxPageControl;
Panel5: TPanel;
Panel6: TPanel;
Label21: TLabel;
ToolBar3: TToolBar;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
CDS_1: TClientDataSet;
DS_1: TDataSource;
ScrollBox1: TScrollBox;
Label3: TLabel;
Label14: TLabel;
Label47: TLabel;
Label2: TLabel;
Label4: TLabel;
Label6: TLabel;
C_NAME: TEdit;
WB_Code: TBtnEditC;
WB_YarnTotalLen: TEdit;
WB_Qty: TEdit;
WB_YarnLen: TEdit;
Label13: TLabel;
TWPId: TEdit;
Label15: TLabel;
Label17: TLabel;
WB_Name: TEdit;
Label18: TLabel;
WB_YarnQty: TEdit;
Label20: TLabel;
Label22: TLabel;
WB_ReedNo: TEdit;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column18: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
v1SPName: TcxGridDBColumn;
v1SPSpec: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
ADOQuery1: TADOQuery;
Label7: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
C_KCQTY: TcxTextEdit;
WB_Width: TcxTextEdit;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
WB_ReedNote: TcxTextEdit;
BSQTY: TcxTextEdit;
DCRQTY: TcxTextEdit;
Z_SJKESHU1: TEdit;
Z_BINGSHU: TEdit;
Z_MAXKESHU: TEdit;
GKBH: TcxButtonEdit;
CustName: TcxButtonEdit;
gyno: TcxButtonEdit;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Label10: TLabel;
C_CODE: TEdit;
Label19: TLabel;
Label24: TLabel;
Tv1dbNumber: TcxGridDBColumn;
Label33: TLabel;
Label34: TLabel;
BCRFQty: TcxTextEdit;
WB_YarnKCQty: TcxTextEdit;
Label35: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Tv1Supplier: TcxGridDBColumn;
Tv1IOTime: TcxGridDBColumn;
Label1: TLabel;
F_yushu: TEdit;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure C_CodeKeyPress(Sender: TObject; var Key: Char);
procedure ConNoKeyPress(Sender: TObject; var Key: Char);
procedure MCTypeBtnUpClick(Sender: TObject);
procedure CustNameBtnUpClick(Sender: TObject);
procedure CustNameBtnDnClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure WB_CodeBtnUpClick(Sender: TObject);
procedure gkbhBtnUpClick(Sender: TObject);
procedure gynoDblClick(Sender: TObject);
procedure Tv1Column7PropertiesEditValueChanged(Sender: TObject);
procedure WB_YarnQtyExit(Sender: TObject);
procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure gynoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column6PropertiesEditValueChanged(Sender: TObject);
procedure WB_YarnTotalLenExit(Sender: TObject);
procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer);
private
procedure InitData();
function SaveData(): Boolean;
procedure JSJS();
{ Private declarations }
public
PState, FCopyInt: Integer;
FConNo, FTWPId, FSubId: string;
{ Public declarations }
end;
var
frmTatWBPlanZJZKInPut: TfrmTatWBPlanZJZKInPut;
newh: hwnd;
implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_YarnInfoSel, U_TatPlanSel2,
U_WBSpecSel, U_GKManageSel, U_WeaveSel, U_YarnStkSel, U_LogInput;
{$R *.dfm}
procedure TfrmTatWBPlanZJZKInPut.TBCloseClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmTatWBPlanZJZKInPut.InitData();
var
PBNO, PBFlag: string;
begin
if PState = 1 then
begin
end;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_WB_Plan A where A.TWPId=''' + Trim(FTWPId) + '''');
Open;
end;
SCSHData(ADOQueryTemp, ScrollBox1, 0);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.* from Tat_WB_Plan_Yarn A ');
sql.Add(' where YRType=''大轴经丝'' and A.TWPId=''' + Trim(FTWPId) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_1);
SInitCDSData(ADOQueryTemp, CDS_1);
if FCopyInt = 1 then
begin
FConNo := '';
FTWPId := '';
FSubId := '';
end;
end;
procedure TfrmTatWBPlanZJZKInPut.FormShow(Sender: TObject);
begin
InitData();
end;
procedure TfrmTatWBPlanZJZKInPut.gkbhBtnUpClick(Sender: TObject);
begin
try
frmGKManageSel := tfrmGKManageSel.Create(Application);
with frmGKManageSel do
begin
if ShowModal = 1 then
begin
SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString;
SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString;
end;
end;
finally
frmGKManageSel.Free;
end;
end;
procedure TfrmTatWBPlanZJZKInPut.gynoDblClick(Sender: TObject);
begin
inherited;
TcxButtonEdit(Sender).Text := '';
end;
procedure TfrmTatWBPlanZJZKInPut.gynoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmWeaveSel := TfrmWeaveSel.Create(Application);
with frmWeaveSel do
begin
FISSJ := '否';
if ShowModal = 1 then
begin
Self.GYNo.Text := CDS_1.FieldByName('OrderNo').asstring;
// Self.GYNo.Properties.LookupItems.Text := CDS_1.FieldByName('Subid').asstring;
Self.CustName.Text := CDS_1.FieldByName('CustName').asstring;
Self.WB_Code.Text := CDS_1.FieldByName('WB_Code').asstring;
Self.C_NAME.Text := CDS_1.FieldByName('C_NAME').asstring;
Self.C_CODE.Text := CDS_1.FieldByName('C_CODE').asstring;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(' from Tat_WB_Spec A');
sql.Add(' where WB_Code=''' + trim(WB_Code.Text) + ''' ');
Open;
end;
Self.WB_YarnTotalLen.Text := Trim(CDS_1.fieldbyname('ORDQTY2').AsString);
Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').AsString);
Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString);
Self.WB_YarnQty.Text := ADOQueryTemp.fieldbyname('WB_YarnQty').asstring;
Self.Z_BINGSHU.Text := ADOQueryTemp.fieldbyname('Z_BINGSHU').asstring;
Self.Z_MAXKESHU.Text := ADOQueryTemp.fieldbyname('Z_MAXKESHU').asstring;
Self.Z_SJKESHU1.Text := ADOQueryTemp.fieldbyname('Z_SJKESHU1').asstring;
Self.F_YUSHU.Text := ADOQueryTemp.fieldbyname('F_YUSHU').asstring;
Self.gkbh.Text := Trim(ADOQueryTemp.fieldbyname('gkbh').AsString);
Self.WB_Width.Text := Trim(ADOQueryTemp.fieldbyname('WB_Width').AsString);
Self.C_KCQTY.Text := Trim(ADOQueryTemp.fieldbyname('C_KCQTY').AsString);
Self.WB_ReedNo.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNo').AsString);
Self.WB_ReedNote.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNote').AsString);
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;
sql.Clear;
sql.Add(' select A.* from Tat_Plan_Yarn A ');
sql.Add(' where YRType=''经丝'' AND ISNULL(Y_CODE,'''')<>'''' and A.MainId=''' + Trim(CDS_1.fieldbyname('MAINID').AsString) + '''');
sql.Add(' Order by RowNo ');
Open;
end;
self.CDS_1.EmptyDataSet;
self.ADOQuery1.First;
while not ADOQuery1.eof do
begin
with self.CDS_1 do
begin
APpend;
FieldByName('RowNo').Value := ADOQuery1.fieldbyname('RowNo').Value;
FieldByName('Y_Code').Value := ADOQuery1.fieldbyname('Y_Code').Value;
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('ZS').Value := ADOQuery1.fieldbyname('Z_Number').Value;
FieldByName('QFYARNQTY').Value := ADOQuery1.fieldbyname('QFYARNQTY').Value;
FieldByName('MeterQty').Value := ADOQuery1.fieldbyname('MeterQty').Value;
// FieldByName('TZQTY').Value := ADOQuery1.fieldbyname('TZQTY').Value;
// FieldByName('JHYLQTY').Value := ADOQuery1.fieldbyname('JHYLQTY').Value;
FieldByName('YarnQty').Value := ADOQuery1.fieldbyname('YarnQty').Value;
FieldByName('Denier').Value := ADOQuery1.fieldbyname('Denier').Value;
// FieldByName('NOTE').Value := ADOQuery1.fieldbyname('NOTE').Value;
Post;
end;
ADOQuery1.next;
end;
end;
end;
finally
frmWeaveSel.Free;
end;
WB_YarnTotalLenExit(Sender);
end;
function TfrmTatWBPlanZJZKInPut.SaveData(): Boolean;
var
maxno, maxsubno, maxpbno, maxpzno, maxsjno: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
try
if FTWPId <> '' then
begin
frmLogInput := TfrmLogInput.Create(Application);
with frmLogInput do
begin
fWB_Code := Self.TWPId.Text;
flogFlag := '整经计划信息修改';//日志中Model字段
fFlag := '修改';
if ShowModal = 1 then
begin
end;
end;
end;
finally
frmLogInput.Free;
end;
if Trim(FTWPId) = '' then
begin
if GetLSNo(ADOQueryCmd, maxno, 'JS', 'Tat_WB_Plan', 4, 1) = False then
raise Exception.Create('生成流水号异常！');
TWPId.Text := maxno;
end
else
begin
maxno := Trim(FTWPId);
end;
////////////////////////// 保存主表 //////////////////////////
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from Tat_WB_Plan where TWPId=''' + Trim(FTWPId) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(FTWPId) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('TWPId').Value := Trim(maxno);
RTSetsavedata(ADOQueryCmd, 'Tat_WB_Plan', ScrollBox1, 0);
Post;
end;
////////////////////////// 保存主表 //////////////////////////
////////////////////////// 保存经丝配比表 //////////////////////////
with CDS_1 do
begin
First;
while not Eof do
begin
if Trim(CDS_1.fieldbyname('YRId').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxpbno, 'WY', 'Tat_WB_Plan_Yarn', 4, 1) = False then
raise Exception.Create('取配比子流水号失败！');
end
else
begin
maxpbno := Trim(CDS_1.fieldbyname('YRId').AsString);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_WB_Plan_Yarn where ');
sql.Add(' YRId=''' + Trim(maxpbno) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(CDS_1.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('TWPId').Value := Trim(maxno);
FieldByName('YRId').Value := Trim(maxpbno);
RTSetsavedataCDS(ADOQueryCmd, Tv1, CDS_1, 'Tat_WB_Plan_Yarn', 0);
Post;
end;
CDS_1.Edit;
CDS_1.FieldByName('TWPId').Value := Trim(maxno);
CDS_1.FieldByName('YRId').Value := Trim(maxpbno);
Next;
end;
end;
////////////////////////// 保存经丝配比表 //////////////////////////
ADOQueryCmd.Connection.CommitTrans;
FTWPId := Trim(maxno);
FSubId := Trim(maxsubno);
Result := True;
except
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmTatWBPlanZJZKInPut.TBSaveClick(Sender: TObject);
var
FReal: Double;
maxConNo: string;
begin
ToolBar1.SetFocus();
if Trim(CustName.Text) = '' then
begin
Application.MessageBox('客户不能为空!', '提示', 0);
Exit;
end;
if SaveData() then
begin
Application.MessageBox('保存成功！', '提示', 0);
ModalResult := 1;
end;
end;
procedure TfrmTatWBPlanZJZKInPut.ToolButton3Click(Sender: TObject);
begin
try
frmYarnInfoSel := TfrmYarnInfoSel.Create(Application);
with frmYarnInfoSel do
begin
if ShowModal = 1 then
begin
with self.CDS_1 do
begin
Append;
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('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value;
FieldByName('ZS').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value;
FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value;
FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value;
FieldByName('NOTE').Value := frmYarnInfoSel.CDS_1.fieldbyname('NOTE').Value;
Post;
end;
end;
end;
finally
frmYarnInfoSel.Free;
end;
end;
procedure TfrmTatWBPlanZJZKInPut.ToolButton4Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
if Trim(CDS_1.fieldbyname('YRId').AsString) <> '' then
begin
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Tat_WB_Plan_Yarn where YRId=''' + Trim(CDS_1.fieldbyname('YRId').AsString) + '''');
ExecSQL;
end;
end;
CDS_1.Delete;
end;
procedure TfrmTatWBPlanZJZKInPut.Tv1Column6PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
ZS, ZGS, zms: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
zms := StrToFloatDef(WB_YarnTotalLen.Text, 0);
if FieldByName('QFYARNQTY').Value = null then
begin
ZGS := 0; //QUANFU根数
end
else
begin
ZGS := FieldByName('QFYARNQTY').Value; //全服根数
end;
if FieldByName('ZS').Value = null then
begin
ZS := 0; //循环根数
end
else
begin
ZS := FieldByName('ZS').Value; //循环根数
end;
end;
if ZS <> 0 then
begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2);
FieldByName('JHYLQTY').Value := roundfloat(ZGS * 0.059 / ZS * 1.08 / 100 * zms, 2);
Post;
end;
end;
end;
procedure TfrmTatWBPlanZJZKInPut.Tv1Column7PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, TW, SUNHAO: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
if FieldByName('YarnQty').Value = null then
begin
GS := 0; //根数
end
else
begin
GS := FieldByName('YarnQty').Value; //根数
end;
if FieldByName('CycleYarnQty').Value = null then
begin
ZGS := 0; //循环根数
end
else
begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数
end;
// if FieldByName('SH').Value = null then
// begin
// SUNHAO := 0; //损耗
// end
// else
// begin
// SUNHAO := FieldByName('SH').Value; //损耗
// end;
if FieldByName('Denier').Value = null then
begin
DS := 0; //D数
end
else
begin
DS := FieldByName('Denier').Value; //D数
end;
TW := strtofloatdef(WB_YarnQty.text, 0); //头纹
end;
if ZGS <> 0 then
begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
Post;
end;
end;
end;
procedure TfrmTatWBPlanZJZKInPut.ButtonEdit(Sender: TObject; AButtonIndex: Integer);
begin
try
frmYarnStkSel := TfrmYarnStkSel.Create(Application);
with frmYarnStkSel do
begin
// FstkName := Self.FstkName;
if ShowModal = 1 then
begin
frmYarnStkSel.CDS_Main.DisableControls;
with frmYarnStkSel.CDS_Main do
begin
with Self.CDS_1 do
begin
Edit;
FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
FieldByName('TZQTY').Value := frmYarnStkSel.CDS_Main.fieldbyname('singleWeight').Value;
FieldByName('dbNumber').Value := frmYarnStkSel.CDS_Main.fieldbyname('dbNumber').Value;
FieldByName('IoTime').Value := frmYarnStkSel.CDS_Main.fieldbyname('IoTime').Value;
FieldByName('Supplier').Value := frmYarnStkSel.CDS_Main.fieldbyname('Supplier').Value;
Post;
end;
end;
frmYarnStkSel.CDS_Main.EnableControls;
end;
end;
finally
frmYarnStkSel.Free;
end;
end;
procedure TfrmTatWBPlanZJZKInPut.WB_CodeBtnUpClick(Sender: TObject);
begin
try
frmWBSpecSel := TfrmWBSpecSel.Create(Application);
with frmWBSpecSel do
begin
fWB_TYPE := '分条';
if ShowModal = 1 then
begin
Self.WB_Code.Text := Trim(CDS_1.fieldbyname('WB_Code').AsString);
Self.WB_Name.Text := Trim(CDS_1.fieldbyname('WB_Name').AsString);
Self.WB_YarnQty.Text := CDS_1.fieldbyname('WB_YarnQty').asstring;
Self.Z_BINGSHU.Text := CDS_1.fieldbyname('Z_BINGSHU').asstring;
Self.Z_MAXKESHU.Text := CDS_1.fieldbyname('Z_MAXKESHU').asstring;
Self.Z_SJKESHU1.Text := CDS_1.fieldbyname('Z_SJKESHU1').asstring;
Self.gkbh.Text := Trim(CDS_1.fieldbyname('gkbh').AsString);
Self.WB_Width.Text := Trim(CDS_1.fieldbyname('WB_Width').AsString);
Self.C_KCQTY.Text := Trim(CDS_1.fieldbyname('C_KCQTY').AsString);
Self.WB_ReedNo.Text := Trim(CDS_1.fieldbyname('WB_ReedNo').AsString);
Self.WB_ReedNote.Text := Trim(CDS_1.fieldbyname('WB_ReedNote').AsString);
Self.BSQTY.Text := Trim(CDS_1.fieldbyname('BSQTY').AsString);
Self.DCRQTY.Text := Trim(CDS_1.fieldbyname('DCRQTY').AsString);
Self.WB_YarnKCQty.Text := Trim(CDS_1.fieldbyname('WB_YarnKCQty').AsString);
Self.BCRFQty.Text := Trim(CDS_1.fieldbyname('BCRFQty').AsString);
end;
end;
finally
frmWBSpecSel.Free;
end;
end;
procedure TfrmTatWBPlanZJZKInPut.WB_YarnQtyExit(Sender: TObject);
var
GS, ZGS, MF, DS, WM, TW: double;
begin
if CDS_1.IsEmpty then
exit;
with CDS_1 do
begin
DisableControls;
first;
while not eof do
begin
with CDS_1 do
begin
if FieldByName('YarnQty').Value = null then
begin
GS := 0; //根数
end
else
begin
GS := FieldByName('YarnQty').Value; //根数
end;
if FieldByName('CycleYarnQty').Value = null then
begin
ZGS := 0; //循环根数
end
else
begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数
end;
MF := strtofloatdef(WB_Width.text, 0); //筘幅
TW := strtofloatdef(WB_YarnQty.text, 0); //头纹
if FieldByName('Denier').Value = null then
begin
DS := 0; //D数
end
else
begin
DS := FieldByName('Denier').Value; //D数
end;
// WM := strtofloatdef(WB_YarnDensity.text, 0); //纬密
end;
if ZGS <> 0 then
begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
Post;
end;
end;
next;
end;
First;
EnableControls;
end;
end;
procedure TfrmTatWBPlanZJZKInPut.WB_YarnTotalLenExit(Sender: TObject);
var
ZS, ZGS, zms: double;
begin
with CDS_1 do
begin
DisableControls;
first;
while not eof do
begin
with CDS_1 do
begin
zms := StrToFloatDef(WB_YarnTotalLen.Text, 0);
if FieldByName('QFYARNQTY').Value = null then
begin
ZGS := 0; //QUANFU根数
end
else
begin
ZGS := FieldByName('QFYARNQTY').Value; //全服根数
end;
if FieldByName('ZS').Value = null then
begin
ZS := 0; //循环根数
end
else
begin
ZS := FieldByName('ZS').Value; //循环根数
end;
end;
if ZS <> 0 then
begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2);
FieldByName('JHYLQTY').Value := roundfloat(ZGS * 0.059 / ZS * 1.08 / 100 * zms, 2);
Post;
end;
end;
next;
end;
First;
EnableControls;
end;
end;
procedure TfrmTatWBPlanZJZKInPut.C_CodeKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SelectNext(ActiveControl as TWinControl, True, True);
end;
end;
procedure TfrmTatWBPlanZJZKInPut.MCTypeBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TBtnEditC(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TBtnEditC(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTatWBPlanZJZKInPut.JSJS();
var
GS, ZGS, MF, DS, WM, TW: double;
begin
if CDS_1.IsEmpty then
exit;
with CDS_1 do
begin
DisableControls;
first;
while not eof do
begin
with CDS_1 do
begin
if FieldByName('YarnQty').Value = null then
begin
GS := 0; //根数
end
else
begin
GS := FieldByName('YarnQty').Value; //根数
end;
if FieldByName('CycleYarnQty').Value = null then
begin
ZGS := 0; //循环根数
end
else
begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数
end;
MF := strtofloatdef(WB_Width.text, 0); //筘幅
TW := strtofloatdef(WB_YarnQty.text, 0); //头纹
if FieldByName('TestDenier').Value = null then
begin
DS := 0; //D数
end
else
begin
DS := FieldByName('TestDenier').Value; //D数
end;
// WM := strtofloatdef(WB_YarnDensity.text, 0); //纬密
end;
if ZGS <> 0 then
begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
Post;
end;
end;
next;
end;
First;
EnableControls;
end;
end;
procedure TfrmTatWBPlanZJZKInPut.ConNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SelectNext(ActiveControl as TWinControl, True, True);
end;
end;
procedure TfrmTatWBPlanZJZKInPut.CustNameBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).TxtCode := '';
TBtnEditC(Sender).Text := '';
end;
procedure TfrmTatWBPlanZJZKInPut.CustNameBtnUpClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '客户';
if ShowModal = 1 then
begin
// CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTatWBPlanZJZKInPut.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '客户';
if ShowModal = 1 then
begin
// CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
end.

1561
E02梭织经轴仓库/U_TatWBPlanZJZKKaiKa.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

1059
E02梭织经轴仓库/U_TatWBPlanZJZKKaiKa.pas Normal file
View File

File diff suppressed because it is too large Load Diff

329
E02梭织经轴仓库/U_WBNeedHTList.dfm Normal file
View File

@ -0,0 +1,329 @@
inherited frmWBNeedHTList: TfrmWBNeedHTList
Left = 105
Top = 131
Caption = #32463#36724#38656#27714#21512#21516
ClientHeight = 667
ClientWidth = 1540
Font.Height = -16
Position = poMainFormCenter
ExplicitWidth = 1556
ExplicitHeight = 706
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 105
Caption = 'ToolBar1'
Color = clWhite
Images = DataLink_WarpBeamStk.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 2
ExplicitLeft = 1
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
Visible = False
OnClick = TBFindClick
end
object ToolButton1: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #23548#20986'Excel'
ImageIndex = 20
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 251
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 354
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 30
Width = 1540
Height = 43
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 3
ExplicitLeft = 8
ExplicitTop = 25
object Label3: TLabel
Left = 268
Top = 10
Width = 64
Height = 21
Caption = #20135#21697#21517#31216
end
object Label4: TLabel
Left = 28
Top = 10
Width = 80
Height = 21
Caption = #22383#24067#21512#21516#21495
end
object C_Name: TcxTextEdit
Tag = 2
Left = 338
Top = 6
Properties.OnChange = FromCoNamePropertiesChange
TabOrder = 0
Width = 150
end
object ConNo: TcxTextEdit
Tag = 2
Left = 114
Top = 6
Properties.OnChange = FromCoNamePropertiesChange
TabOrder = 1
Width = 150
end
end
inherited cxProgressBar2: TcxProgressBar
ExplicitHeight = 29
end
object Panel2: TPanel [4]
Left = 0
Top = 73
Width = 1540
Height = 594
Align = alClient
TabOrder = 4
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 1538
Height = 592
Align = alClient
PopupMenu = PM_1
TabOrder = 0
ExplicitLeft = 2
ExplicitTop = -2
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsView.GroupByBox = False
object TV1ConNo: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 116
end
object TV1C_Code: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 84
end
object TV1C_Name: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 85
end
object TV1C_Composition: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV1YarnZS: TcxGridDBColumn
Caption = #32433#25903
DataBinding.FieldName = 'YarnZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 87
end
object TV1Density: TcxGridDBColumn
Caption = #23494#24230
DataBinding.FieldName = 'Density'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 96
end
object TV1C_Width: TcxGridDBColumn
Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 112
end
object TV1OrdQty: TcxGridDBColumn
Caption = #21512#21516#25968#37327
DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = cxStyle1
Width = 80
end
object TV1WB_Code: TcxGridDBColumn
Caption = #25972#32463#24037#33402#32534#21495
DataBinding.FieldName = 'WB_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 114
end
object TV1WB_Name: TcxGridDBColumn
Caption = #25972#32463#24037#33402#21517#31216
DataBinding.FieldName = 'WB_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 114
end
object TV1WB_YarnQty: TcxGridDBColumn
Caption = #24635#22836#20221
DataBinding.FieldName = 'WB_YarnQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 68
end
object TV1WB_ReedNo: TcxGridDBColumn
Caption = #31576#21495
DataBinding.FieldName = 'WB_ReedNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 57
end
object TV1WB_Width: TcxGridDBColumn
Caption = #32463#36724#38376#24133
DataBinding.FieldName = 'WB_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 82
end
object TV1ArrangeQTY: TcxGridDBColumn
Caption = #24050#23433#25490#25968#37327
DataBinding.FieldName = 'ArrangeQTY'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = cxStyle1
Width = 148
end
object TV1KCQTY: TcxGridDBColumn
Caption = #23454#38469#23436#25104#25968#37327
DataBinding.FieldName = 'KCQTY'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WarpBeamStk.grid_head_blue
Width = 135
end
end
object cxGrid1Level1: TcxGridLevel
GridView = TV1
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Left = 313
Top = 128
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Left = 209
Top = 129
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Parameters = <>
Left = 480
Top = 128
end
object ADOQueryMain: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 568
Top = 128
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 408
Top = 128
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 144
Top = 280
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 536
Top = 240
end
object PM_1: TPopupMenu
Left = 472
Top = 208
object N1: TMenuItem
Caption = #22797#21046
OnClick = N1Click
end
end
object cxStyleRepository1: TcxStyleRepository
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
TextColor = clRed
end
object cxStyle2: TcxStyle
AssignedValues = [svTextColor]
TextColor = clMenuHighlight
end
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 144
Top = 208
end
end

232
E02梭织经轴仓库/U_WBNeedHTList.pas Normal file
View File

@ -0,0 +1,232 @@
unit U_WBNeedHTList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, Clipbrd,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxSkinsCore,
dxSkinsDefaultPainters, cxProgressBar, cxGroupBox;
type
TfrmWBNeedHTList = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
GPM_1: TcxGridPopupMenu;
PM_1: TPopupMenu;
Label3: TLabel;
Label4: TLabel;
C_Name: TcxTextEdit;
ConNo: TcxTextEdit;
ToolButton2: TToolButton;
Panel2: TPanel;
TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
TV1ConNo: TcxGridDBColumn;
TV1C_Code: TcxGridDBColumn;
TV1C_Name: TcxGridDBColumn;
TV1C_Composition: TcxGridDBColumn;
TV1YarnZS: TcxGridDBColumn;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxStyle2: TcxStyle;
CDS_1: TClientDataSet;
TV1Density: TcxGridDBColumn;
TV1C_Width: TcxGridDBColumn;
N1: TMenuItem;
ToolButton1: TToolButton;
TV1OrdQty: TcxGridDBColumn;
TV1WB_Code: TcxGridDBColumn;
TV1WB_Name: TcxGridDBColumn;
TV1WB_YarnQty: TcxGridDBColumn;
TV1WB_ReedNo: TcxGridDBColumn;
TV1WB_Width: TcxGridDBColumn;
TV1KCQTY: TcxGridDBColumn;
TV1ArrangeQTY: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure MPRTCodeNameChange(Sender: TObject);
procedure SXBatchNOChange(Sender: TObject);
procedure FromCoNameChange(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure FormCreate(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure FromCoNamePropertiesChange(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
private
canshu1, FStkName, canshu3: string;
procedure InitGrid();
{ Private declarations }
public
FWB_Code: string;
{ Public declarations }
end;
var
frmWBNeedHTList: TfrmWBNeedHTList;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmWBNeedHTList.FormDestroy(Sender: TObject);
begin
inherited;
frmWBNeedHTList := nil;
end;
procedure TfrmWBNeedHTList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmWBNeedHTList.FormCreate(Sender: TObject);
begin
inherited;
canshu1 := Trim(self.fParameters1);
FStkName := Trim(self.fParameters2);
canshu3 := Trim(self.fParameters3);
end;
procedure TfrmWBNeedHTList.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.ConNo, C_Name, C_Code ');
sql.Add(' ,C_Width');
sql.Add(',C_Composition, Density ');
sql.Add(', YarnZS');
sql.Add(',sum(A.OrdQty) as OrdQty, WB_Code');
sql.Add(', WB_Name, WB_YarnQty');
sql.Add(', WB_ReedNo, WB_Width');
sql.Add(',sum(A.KCQTY) as KCQTY');
sql.Add(',sum(A.ArrangeQTY) as ArrangeQTY');
SQL.ADD('from V_WBNeedHTLook A ');
// SQL.Add('WHERE WB_Code=' + QuotedStr(FWB_Code));
SQL.Add('group BY ConNo,C_Name,C_Code,C_Width,C_Composition,Density');
SQL.Add(',YarnZS,WB_Code,WB_Name,WB_YarnQty,WB_ReedNo,WB_Width');
// sql.Add(' where A.STKName =''经轴'' and A.IOFlag =''出库'' and A.WBNo like ''%JZ%'' and isnull(CLFlag,0)=0 ');
// sql.Add(' and not EXISTS (select * from Tat_WB_IO X where X.STKName =''空轴'' and X.IOFlag =''入库'' and A.WBNO =X.WBNO) ');
// ShowMessage(Sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmWBNeedHTList.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmWBNeedHTList.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmWBNeedHTList.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmWBNeedHTList.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(Self.Caption), Tv1, '经轴需求合同');
InitGrid();
end;
procedure TfrmWBNeedHTList.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
end;
procedure TfrmWBNeedHTList.MPRTCodeNameChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmWBNeedHTList.N1Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmWBNeedHTList.SXBatchNOChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmWBNeedHTList.FromCoNameChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmWBNeedHTList.FromCoNamePropertiesChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmWBNeedHTList.ToolButton1Click(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
TcxGridToExcel(self.Caption, cxGrid1);
end;
procedure TfrmWBNeedHTList.ToolButton2Click(Sender: TObject);
begin
WriteCxGrid(trim(Self.Caption), Tv1, '经轴需求合同');
end;
procedure TfrmWBNeedHTList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
ModalResult := 1;
end;
end.

7
E02梭织经轴仓库/U_WBNeedLook.dfm
View File

@ -26,6 +26,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook
ParentColor = False
ShowCaptions = True
TabOrder = 2
ExplicitLeft = 1
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -71,6 +72,8 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Color = clWhite
ParentBackground = False
TabOrder = 3
ExplicitLeft = -1
ExplicitTop = 25
object Label3: TLabel
Left = 268
Top = 10
@ -119,6 +122,8 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Height = 592
Align = alClient
TabOrder = 0
ExplicitLeft = -1
ExplicitTop = -2
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -227,6 +232,8 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Height = 268
Align = alClient
TabOrder = 0
ExplicitLeft = 4
ExplicitTop = 22
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

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

@ -6,19 +6,19 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ClientWidth = 1174
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clHotLight
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 = 519
Top = 631
Width = 1174
Height = 326
Height = 214
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
@ -98,6 +98,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column2PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WarpBeamStk.grid_head_blue
Width = 94
end
object v1SPName: TcxGridDBColumn
@ -113,6 +114,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Properties.ReadOnly = False
Properties.OnButtonClick = Tv1Column2PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 101
end
object Tv1Y_Composition: TcxGridDBColumn
@ -147,6 +149,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object Tv1Column7: TcxGridDBColumn
@ -156,6 +159,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column8: TcxGridDBColumn
@ -165,6 +169,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1FF: TcxGridDBColumn
@ -172,6 +177,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1YarnFactor: TcxGridDBColumn
@ -182,6 +188,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Properties.ReadOnly = True
Properties.OnEditValueChanged = Tv1Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column3: TcxGridDBColumn
@ -208,6 +215,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
DataBinding.FieldName = 'MeterQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_WarpBeamStk.grid_head_red
Width = 116
end
object Tv1Column6: TcxGridDBColumn
@ -217,6 +226,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WarpBeamStk.grid_head_blue
Width = 80
end
object v1Column12: TcxGridDBColumn
@ -284,20 +294,21 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 0
Top = 30
Width = 1174
Height = 459
Height = 571
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Color = clHotLight
Font.Height = -16
Font.Name = 'Tahoma'
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 2
ExplicitTop = 24
object Label3: TLabel
Left = 11
Top = 17
@ -318,7 +329,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #24635#32463#26681#25968
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -331,20 +342,20 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #25972#32463#24037#33402#21517#31216
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 560
Left = 575
Top = 358
Width = 80
Height = 21
Caption = #36793#32433#24635#26681#25968
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -377,7 +388,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ParentFont = False
end
object Label12: TLabel
Left = 284
Left = 286
Top = 320
Width = 48
Height = 21
@ -393,8 +404,14 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 974
Top = 106
Width = 64
Height = 19
Height = 21
Caption = #26159#21542#19978#27974
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
Visible = False
end
object Label19: TLabel
@ -404,7 +421,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #38050#31576#32534#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -417,14 +434,14 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #25972#32463#31867#22411
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 560
Left = 575
Top = 320
Width = 32
Height = 21
@ -437,13 +454,13 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ParentFont = False
end
object Label24: TLabel
Left = 284
Left = 286
Top = 355
Width = 64
Height = 21
Caption = #22320#31359#20837#27861
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -451,7 +468,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object Label29: TLabel
Left = 3
Top = 429
Top = 432
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
@ -463,13 +480,13 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ParentFont = False
end
object Label25: TLabel
Left = 287
Left = 289
Top = 394
Width = 112
Height = 21
Caption = #36793#32433#21333#36793#31576#40831#25968
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -482,14 +499,14 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #36793#31359#20837#27861
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label27: TLabel
Left = 511
Left = 513
Top = 400
Width = 32
Height = 19
@ -528,7 +545,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ParentFont = False
end
object Label31: TLabel
Left = 511
Left = 513
Top = 323
Width = 32
Height = 19
@ -541,7 +558,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ParentFont = False
end
object Label32: TLabel
Left = 761
Left = 776
Top = 320
Width = 6
Height = 19
@ -567,7 +584,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ParentFont = False
end
object Label34: TLabel
Left = 509
Left = 511
Top = 362
Width = 54
Height = 19
@ -580,13 +597,13 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ParentFont = False
end
object Label35: TLabel
Left = 560
Left = 575
Top = 394
Width = 32
Height = 21
Caption = #22791#27880
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -599,7 +616,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #22383#24067#31181#31867
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -612,7 +629,85 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #22383#24067#38376#24133
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label38: TLabel
Left = 1063
Top = 48
Width = 64
Height = 21
Caption = #33258#21160#35745#31639
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label39: TLabel
Left = 1063
Top = 17
Width = 64
Height = 21
Caption = #25163#21160#36755#20837
Font.Charset = DEFAULT_CHARSET
Font.Color = clHotLight
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label40: TLabel
Left = 3
Top = 459
Width = 289
Height = 21
Caption = #36793#32433#25968' = '#36793#32433#21333#36793#31576#40831#25968' * '#36793#31359#20837#27861' * 2'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label41: TLabel
Left = 3
Top = 486
Width = 477
Height = 21
Caption = #31576#40831#25968'= '#36793#32433#21333#36793#31576#40831#25968' * 2 + '#65288' '#24635#32463#26681#25968' - '#36793#32433#25968' '#65289'/ '#22320#31359#20837#27861
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label42: TLabel
Left = 3
Top = 513
Width = 187
Height = 21
Caption = #31576#24133' = '#31576#40831#25968' * 2 / '#31576#21495
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label43: TLabel
Left = 0
Top = 540
Width = 636
Height = 21
Caption = #25972#32463#24037#33402#21517#31216' = '#32463#32433#20195#21495' + '#32463#32433#25903#25968' + '#22383#24067#38376#24133' + '#22383#24067#31181#31867#20195#21495#65288#33394#32455#24067' A '#12289#22383#24067' B'#65289
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -657,6 +752,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Top = 11
ParentColor = True
ParentFont = False
Properties.ReadOnly = True
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
@ -668,7 +764,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object WB_ReedNote: TcxTextEdit
Tag = 2
Left = 648
Left = 663
Top = 355
ParentColor = True
ParentFont = False
@ -716,7 +812,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object C_KCQTY: TcxTextEdit
Tag = 2
Left = 397
Left = 399
Top = 316
ParentColor = True
ParentFont = False
@ -785,7 +881,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object WB_Width: TcxTextEdit
Tag = 2
Left = 648
Left = 663
Top = 316
ParentColor = True
ParentFont = False
@ -801,7 +897,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object cxGroupBox1: TcxGroupBox
Left = 3
Top = 98
Top = 91
Caption = #20998#26465
ParentFont = False
Style.Font.Charset = ANSI_CHARSET
@ -833,7 +929,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #26465#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -846,7 +942,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #19978#26550#39063#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -859,7 +955,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #20313#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -880,6 +976,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 110
Top = 74
ParentColor = True
Properties.ReadOnly = True
TabOrder = 1
OnExit = WB_YarnQtyExit
Width = 150
@ -907,7 +1004,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object cxGroupBox2: TcxGroupBox
Left = 0
Top = 90
Top = 91
Caption = #25972#27974#24182
ParentFont = False
Style.Font.Charset = ANSI_CHARSET
@ -939,7 +1036,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #20998#32478
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -952,7 +1049,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #20998#32478#26681#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -964,6 +1061,12 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Width = 32
Height = 21
Caption = #24182#25968
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label17: TLabel
Left = 8
@ -972,7 +1075,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #32433#26550#25346#32433#39063#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -985,7 +1088,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #31232#36724#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -998,7 +1101,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #32433#26550#25346#32433#39063#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -1011,7 +1114,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #31232#36724#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -1022,6 +1125,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 110
Top = 29
ParentColor = True
Properties.ReadOnly = True
TabOrder = 0
Text = '480'
OnExit = WB_YarnQtyExit
@ -1041,7 +1145,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 397
Top = 67
ParentColor = True
Properties.ReadOnly = False
Properties.ReadOnly = True
TabOrder = 2
Width = 150
end
@ -1050,7 +1154,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 630
Top = 67
ParentColor = True
Properties.ReadOnly = False
Properties.ReadOnly = True
TabOrder = 3
Width = 150
end
@ -1059,6 +1163,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 110
Top = 105
ParentColor = True
Properties.ReadOnly = True
TabOrder = 4
Width = 150
end
@ -1067,6 +1172,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 397
Top = 105
ParentColor = True
Properties.ReadOnly = True
TabOrder = 5
Width = 150
end
@ -1075,6 +1181,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 110
Top = 143
ParentColor = True
Properties.ReadOnly = True
TabOrder = 6
Width = 150
end
@ -1083,13 +1190,14 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 397
Top = 143
ParentColor = True
Properties.ReadOnly = True
TabOrder = 7
Width = 150
end
end
object DCRQTY: TcxTextEdit
Tag = 2
Left = 397
Left = 399
Top = 355
ParentColor = True
ParentFont = False
@ -1105,7 +1213,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object WB_YarnKCQty: TcxTextEdit
Tag = 2
Left = 403
Left = 405
Top = 394
ParentColor = True
ParentFont = False
@ -1137,7 +1245,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object note: TcxTextEdit
Tag = 2
Left = 648
Left = 663
Top = 391
ParentColor = True
ParentFont = False
@ -1188,11 +1296,35 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Text = #8220
Width = 51
end
object Panel1: TPanel
Left = 993
Top = 46
Width = 64
Height = 23
Color = clRed
ParentBackground = False
TabOrder = 20
end
object Panel2: TPanel
Left = 993
Top = 17
Width = 64
Height = 23
Color = clHotLight
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentBackground = False
ParentFont = False
TabOrder = 21
end
end
object ToolBar2: TToolBar [3]
Tag = 1
Left = 0
Top = 489
Top = 601
Width = 1174
Height = 30
AutoSize = True
@ -1241,7 +1373,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Top = 601
end
inherited ImageList_new32: TImageList
Left = 170
Left = 162
Top = 587
end
inherited cxImageList_bar: TcxImageList

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

@ -125,6 +125,14 @@ type
Label37: TLabel;
C_Width: TcxTextEdit;
MFDW: TcxComboBox;
Panel1: TPanel;
Panel2: TPanel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -485,7 +493,9 @@ begin
with frmLogInput do
begin
fWB_Code := Self.WB_Code.Text;
flogFlag := '整经工艺信息修改';//日志中Model字段
fFlag := 'ÐÞ¸Ä';
if ShowModal = 1 then
begin

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

@ -81,15 +81,16 @@ inherited frmWBSpecList: TfrmWBSpecList
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton3: TToolButton
object TbLogLook: TToolButton
Left = 497
Top = 0
AutoSize = True
Caption = #20462#25913#26085#24535#26597#30475
ImageIndex = 8
OnClick = ToolButton3Click
OnClick = TbLogLookClick
end
object ToolButton1: TToolButton
Left = 628
Left = 632
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -97,7 +98,7 @@ inherited frmWBSpecList: TfrmWBSpecList
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 731
Left = 735
Top = 0
AutoSize = True
Caption = #20851#38381
@ -194,7 +195,7 @@ inherited frmWBSpecList: TfrmWBSpecList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 196
Width = 168
end
object Tv1Column7: TcxGridDBColumn
Caption = #25972#32463#31867#22411
@ -210,7 +211,7 @@ inherited frmWBSpecList: TfrmWBSpecList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 86
end
object Tv1Column12: TcxGridDBColumn
Caption = #31576#21495
@ -242,7 +243,7 @@ inherited frmWBSpecList: TfrmWBSpecList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 98
end
object v1Column8: TcxGridDBColumn
Tag = 2
@ -252,7 +253,7 @@ inherited frmWBSpecList: TfrmWBSpecList
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 102
end
end
object cxGrid1Level1: TcxGridLevel

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

@ -76,7 +76,7 @@ type
ToolButton2: TToolButton;
TV2Column5: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
ToolButton3: TToolButton;
TbLogLook: TToolButton;
TV2FF: TcxGridDBColumn;
TV2YarnFactor: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
@ -97,7 +97,7 @@ type
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure WB_CodePropertiesChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure TbLogLookClick(Sender: TObject);
private
canshu1, FSTKName, canshu3: string;
procedure InitGrid();
@ -180,13 +180,14 @@ begin
end;
end;
procedure TfrmWBSpecList.ToolButton3Click(Sender: TObject);
procedure TfrmWBSpecList.TbLogLookClick(Sender: TObject);
begin
frmLogInput := TfrmLogInput.Create(Application);
with frmLogInput do
begin
fWB_Code := CDS_Main.FieldByName('WB_Code').AsString;
fWB_Code := Self.CDS_Main.FieldByName('WB_Code').AsString;
fFlag := '²é¿´';
flogFlag := '整经工艺信息修改';
if ShowModal = 1 then
begin

2
E02梭织经轴仓库/U_WeaveSel.dfm
View File

@ -64,6 +64,7 @@ inherited frmWeaveSel: TfrmWeaveSel
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
ExplicitTop = 32
object Label3: TLabel
Left = 15
Top = 7
@ -169,6 +170,7 @@ inherited frmWeaveSel: TfrmWeaveSel
#24050#23433#25490
#20840#37096)
OnChange = cxTabControl1Change
ExplicitTop = 99
ClientRectBottom = 545
ClientRectLeft = 1
ClientRectRight = 1539

6
E02梭织经轴仓库/WarpBeamStk.dpr
View File

@ -74,7 +74,11 @@ uses
U_Tat_WB_InPut in 'U_Tat_WB_InPut.pas' {frmTat_WB_InPut},
U_TatYarnSel in '..\E00梭织通用窗体\U_TatYarnSel.pas' {frmTatYarnSel},
U_YarnCFInfoSel in '..\B02基础纱线仓库\U_YarnCFInfoSel.pas' {frmYarnCFInfoSel},
U_LogInput in 'U_LogInput.pas' {frmLogInput};
U_LogInput in 'U_LogInput.pas' {frmLogInput},
U_TatWBPlanZJZKInPut in 'U_TatWBPlanZJZKInPut.pas' {frmTatWBPlanZJZKInPut},
U_TatWBPlanZJZKKaiKa in 'U_TatWBPlanZJZKKaiKa.pas' {frmTatWBPlanZJZKKaiKa},
U_TatWBPlanZJZK in 'U_TatWBPlanZJZK.pas' {frmTatWBPlanZJZK},
U_WBNeedHTList in 'U_WBNeedHTList.pas' {frmWBNeedHTList};
{$R *.res}

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

@ -315,6 +315,22 @@
<Form>frmLogInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TatWBPlanZJZKInPut.pas">
<Form>frmTatWBPlanZJZKInPut</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TatWBPlanZJZKKaiKa.pas">
<Form>frmTatWBPlanZJZKKaiKa</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TatWBPlanZJZK.pas">
<Form>frmTatWBPlanZJZK</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_WBNeedHTList.pas">
<Form>frmWBNeedHTList</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

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

@ -137,28 +137,41 @@
<File Path="U_Tat_WB_InPut.dfm"/>
<File Path="U_LogInput.pas"/>
<File Path="U_LogInput.dfm"/>
<File Path="U_TatWBPlanZJZKInPut.pas"/>
<File Path="U_TatWBPlanZJZKInPut.dfm"/>
<File Path="U_TatWBPlanZJZKKaiKa.pas"/>
<File Path="U_TatWBPlanZJZKKaiKa.dfm"/>
<File Path="U_TatWBPlanZJZK.pas"/>
<File Path="U_TatWBPlanZJZK.dfm"/>
<File Path="U_WBNeedHTList.pas"/>
<File Path="U_WBNeedHTList.dfm"/>
</ProjectSortOrder>
<Transactions>
<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.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.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.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.024,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WeaveSel.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.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</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.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.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.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.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.108,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlan.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.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.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.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.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.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>
<Transaction>2025/12/12 14:33:26.000.162,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlanZJZKInPut.pas</Transaction>
<Transaction>2025/12/12 14:51:55.000.373,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlanZJZKKaiKa.pas</Transaction>
<Transaction>2025/12/12 14:57:30.000.192,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlanZJZK.pas</Transaction>
<Transaction>2025/12/23 09:36:15.000.210,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WBNeedHTLook.pas</Transaction>
<Transaction>2025/12/25 16:38:57.000.020,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WBNeedHTList.pas</Transaction>
</Transactions>
</BorlandProject>

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

Binary file not shown.

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

Binary file not shown.

130
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.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.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.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</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.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj</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.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.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.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.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.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.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.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.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.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.dfm</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.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.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.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.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.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.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.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.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.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.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.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.326,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.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.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.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm</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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj</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.410,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.590,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.

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

@ -301,7 +301,7 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
Width = 70
end
object v1Column6: TcxGridDBColumn
Caption = #19978#26426#38376#24133
Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'