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

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

@ -149,9 +149,16 @@ begin
begin begin
Close; Close;
sql.Clear; 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('select A.*,B.* ');
sql.Add(' and isnull(A.status,''0'')=''9'''); // SQL.Add(' ,B.ConMId,B.ConSId,B.FromConNo,B.FromConMId,B.FromConSId ');
sql.Add(' left join Bs_Cloth_Info C on B.C_Code=C.C_Code '); // 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; Open;
end; end;
// SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); // SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));

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

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

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

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

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

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

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

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

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

@ -79,7 +79,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 1 TabOrder = 1
ExplicitTop = 36
object Label1: TLabel object Label1: TLabel
Left = 216 Left = 216
Top = 10 Top = 10
@ -119,6 +118,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 69
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = TV1DblClick OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -144,7 +144,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object Tv1Column1: TcxGridDBColumn object Tv1SSEL: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSEL' DataBinding.FieldName = 'SSEL'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -153,14 +153,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 46 Width = 46
end 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 object v1SPName: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #21697#21517 Caption = #21697#21517
@ -170,40 +162,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Options.Editing = False Options.Editing = False
Width = 101 Width = 101
end 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 object v1QtyUnit: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #25104#20998 Caption = #25104#20998
@ -213,46 +171,14 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Options.Editing = False Options.Editing = False
Width = 96 Width = 96
end end
object Tv1Column2: TcxGridDBColumn object Tv1Denier: 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
Caption = #20998#29305'(Dtex)' Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'Denier' DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 80
Width = 102
end end
object Tv1Column7: TcxGridDBColumn object Tv1ZS: TcxGridDBColumn
Caption = #25903#25968 Caption = #25903#25968
DataBinding.FieldName = 'ZS' DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -260,14 +186,28 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Options.Editing = False Options.Editing = False
Width = 100 Width = 100
end end
object Tv1Column5: TcxGridDBColumn object Tv1FF: TcxGridDBColumn
Caption = #32442#27861 Caption = #32442#27861
DataBinding.FieldName = 'FF' DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end 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 end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

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

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

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

@ -2,43 +2,43 @@
<BorlandProject> <BorlandProject>
<Transactions> <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.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.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.pas</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.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.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.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.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.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.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.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.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.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.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.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.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.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.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_Customer.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</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.069,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</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.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.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.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> <Transaction>2025/09/16 11:02:56.000.629,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A01基础公司管理\U_SupplierImport.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <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"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <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.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.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.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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.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.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.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.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.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.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.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.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.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.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.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.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.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.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.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.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.082,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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/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 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> <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"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.441,=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.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.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.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.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.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.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.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.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.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.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.630,=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.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.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.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.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.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.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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.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.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</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.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.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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.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.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.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.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.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.284,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractCPSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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.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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm</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.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.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.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm</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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.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.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.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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <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 OldCreateOrder = True
Position = poScreenCenter Position = poScreenCenter
WindowState = wsMaximized WindowState = wsMaximized
ExplicitLeft = -251
ExplicitWidth = 1522 ExplicitWidth = 1522
ExplicitHeight = 787 ExplicitHeight = 787
PixelsPerInch = 96 PixelsPerInch = 96
@ -32,6 +31,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitTop = 1
object TBSave: TToolButton object TBSave: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -87,7 +87,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Caption = #19994#21153#21592#65306 Caption = #19994#21153#21592#65306
end end
object Label10: TLabel object Label10: TLabel
Left = 40 Left = 38
Top = 10 Top = 10
Width = 64 Width = 64
Height = 21 Height = 21
@ -101,7 +101,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Caption = #23458#25143#65306 Caption = #23458#25143#65306
end end
object Label20: TLabel object Label20: TLabel
Left = 40 Left = 38
Top = 45 Top = 45
Width = 80 Width = 80
Height = 21 Height = 21
@ -130,7 +130,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Caption = #20013#38388#21830#65306 Caption = #20013#38388#21830#65306
end end
object Label27: TLabel object Label27: TLabel
Left = 40 Left = 38
Top = 225 Top = 225
Width = 80 Width = 80
Height = 21 Height = 21
@ -172,21 +172,21 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Caption = #20323#37329#27604#20363#65306 Caption = #20323#37329#27604#20363#65306
end end
object Label11: TLabel object Label11: TLabel
Left = 40 Left = 38
Top = 190 Top = 190
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #20184#27454#26041#24335#65306 Caption = #20184#27454#26041#24335#65306
end end
object Label12: TLabel object Label12: TLabel
Left = 40 Left = 38
Top = 154 Top = 154
Width = 80 Width = 80
Height = 21 Height = 21
Caption = #36816#36755#26041#24335#65306 Caption = #36816#36755#26041#24335#65306
end end
object Label4: TLabel object Label4: TLabel
Left = 40 Left = 38
Top = 302 Top = 302
Width = 80 Width = 80
Height = 21 Height = 21
@ -200,7 +200,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Caption = #20215#26684#26415#35821#65306 Caption = #20215#26684#26415#35821#65306
end end
object Label8: TLabel object Label8: TLabel
Left = 40 Left = 38
Top = 339 Top = 339
Width = 80 Width = 80
Height = 21 Height = 21
@ -231,7 +231,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Visible = False Visible = False
end end
object Label23: TLabel object Label23: TLabel
Left = 40 Left = 38
Top = 118 Top = 118
Width = 80 Width = 80
Height = 21 Height = 21
@ -268,7 +268,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Caption = #24067#21305#31867#22411#65306 Caption = #24067#21305#31867#22411#65306
end end
object Label18: TLabel object Label18: TLabel
Left = 40 Left = 38
Top = 81 Top = 81
Width = 80 Width = 80
Height = 21 Height = 21
@ -303,7 +303,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Caption = #21345#21495#65306 Caption = #21345#21495#65306
end end
object Label31: TLabel object Label31: TLabel
Left = 44 Left = 42
Top = 264 Top = 264
Width = 80 Width = 80
Height = 21 Height = 21
@ -332,7 +332,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object ConNo: TcxTextEdit object ConNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 114 Left = 112
Top = 7 Top = 7
TabOrder = 0 TabOrder = 0
Text = #33258#21160#29983#25104 Text = #33258#21160#29983#25104
@ -449,7 +449,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object PackNote: TcxButtonEdit object PackNote: TcxButtonEdit
Tag = 2 Tag = 2
Left = 114 Left = 112
Top = 333 Top = 333
Hint = 'PackNote/'#21253#35013#35201#27714 Hint = 'PackNote/'#21253#35013#35201#27714
Properties.Buttons = < Properties.Buttons = <
@ -465,7 +465,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object Sellname: TcxButtonEdit object Sellname: TcxButtonEdit
Tag = 2 Tag = 2
Left = 114 Left = 112
Top = 42 Top = 42
Properties.Buttons = < Properties.Buttons = <
item item
@ -497,7 +497,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object ShipMent: TcxButtonEdit object ShipMent: TcxButtonEdit
Tag = 2 Tag = 2
Left = 114 Left = 112
Top = 148 Top = 148
Hint = 'ShipMent/'#36816#36755#26041#24335 Hint = 'ShipMent/'#36816#36755#26041#24335
Properties.Buttons = < Properties.Buttons = <
@ -545,7 +545,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object Payment: TcxButtonEdit object Payment: TcxButtonEdit
Tag = 2 Tag = 2
Left = 114 Left = 112
Top = 184 Top = 184
Hint = 'Payment/'#20184#27454#26041#24335 Hint = 'Payment/'#20184#27454#26041#24335
Properties.Buttons = < Properties.Buttons = <
@ -594,7 +594,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object ShippingSample: TcxButtonEdit object ShippingSample: TcxButtonEdit
Tag = 2 Tag = 2
Left = 114 Left = 112
Top = 296 Top = 296
Hint = 'ShippingSample/'#33337#26679#35201#27714 Hint = 'ShippingSample/'#33337#26679#35201#27714
Properties.Buttons = < Properties.Buttons = <
@ -627,7 +627,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object ConType: TcxComboBox object ConType: TcxComboBox
Tag = 2 Tag = 2
Left = 114 Left = 112
Top = 112 Top = 112
Properties.DropDownListStyle = lsEditFixedList Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
@ -670,7 +670,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object IsTax: TcxComboBox object IsTax: TcxComboBox
Tag = 2 Tag = 2
Left = 114 Left = 112
Top = 221 Top = 221
Properties.Items.Strings = ( Properties.Items.Strings = (
#26159 #26159
@ -693,7 +693,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object GFDZ: TcxTextEdit object GFDZ: TcxTextEdit
Tag = 2 Tag = 2
Left = 114 Left = 112
Top = 77 Top = 77
TabOrder = 29 TabOrder = 29
Width = 489 Width = 489
@ -738,7 +738,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
object YHDZ: TcxTextEdit object YHDZ: TcxTextEdit
Tag = 2 Tag = 2
Left = 114 Left = 112
Top = 261 Top = 261
TabOrder = 34 TabOrder = 34
OnKeyPress = ExchangeRateKeyPress OnKeyPress = ExchangeRateKeyPress
@ -801,6 +801,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 2 TabOrder = 2
ExplicitTop = 407
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -843,6 +844,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = pm_sub PopupMenu = pm_sub
TabOrder = 3 TabOrder = 3
ExplicitTop = 437
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -921,6 +923,14 @@ inherited frmSalesConInPut: TfrmSalesConInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 79 Width = 79
end 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 object v1Column4: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
@ -1146,7 +1156,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Properties.DecimalPlaces = 0 Properties.DecimalPlaces = 0
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 91
end end
object Tv1Column12: TcxGridDBColumn object Tv1Column12: TcxGridDBColumn
Caption = #25237#22383#31995#25968 Caption = #25237#22383#31995#25968

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

@ -149,6 +149,7 @@ type
Label35: TLabel; Label35: TLabel;
InspScore: TcxTextEdit; InspScore: TcxTextEdit;
InspStandard: TcxButtonEdit; InspStandard: TcxButtonEdit;
Tv1BCIID: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -386,7 +387,6 @@ end;
procedure TfrmSalesConInPut.TBCloseClick(Sender: TObject); procedure TfrmSalesConInPut.TBCloseClick(Sender: TObject);
begin begin
Close; Close;
end; end;
@ -400,10 +400,19 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add(' select * from BS_Contract_Sub '); sql.Add(' select A.ConMId,A.ConSId,A.FROMCPMID,A.FROMCPSID ');
sql.Add('where ConMId=''' + Trim(FConMId) + ''''); 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(' and ConSID = ''CS251011001'' ');
sql.Add(' order by SerialNo '); sql.Add(' order by A.SerialNo ');
Open; Open;
end; end;
SCreateCDS(ADOTemp, Order_Sub); SCreateCDS(ADOTemp, Order_Sub);
@ -425,10 +434,19 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add(' select * from BS_Contract_Sub '); sql.Add(' select A.ConMId,A.ConSId,A.FROMCPMID,A.FROMCPSID ');
sql.Add('where ConMId=''' + Trim(FConMId) + ''''); 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(' and ConSID = ''CS251011001'' ');
sql.Add(' order by SerialNo '); sql.Add(' order by A.SerialNo ');
Open; Open;
end; end;
SCreateCDS(ADOCmd, Order_Sub); SCreateCDS(ADOCmd, Order_Sub);
@ -1021,7 +1039,7 @@ begin
FieldByName('SSEL').Value := FALSE; FieldByName('SSEL').Value := FALSE;
FieldByName('SerialNo').Value := i; FieldByName('SerialNo').Value := i;
FieldByName('ConSId').Value := maxno; FieldByName('ConSId').Value := maxno;
FieldByName('C_Color').Value := ''; // FieldByName('C_Color').Value := '';
FieldByName('ConQty').Value := null; FieldByName('ConQty').Value := null;
FieldByName('ConUnit').Value := 'M'; FieldByName('ConUnit').Value := 'M';
Post; Post;
@ -1112,28 +1130,26 @@ begin
begin begin
append; append;
Order_Sub.fieldbyname('C_Code').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').asstring; Order_Sub.fieldbyname('BCIID').Value := frmTatClothInfoSel.CDS_1.fieldbyname('BCIID').asstring;
Order_Sub.fieldbyname('C_Name').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').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('SSEL').Value := FALSE;
Order_Sub.fieldbyname('C_Composition').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Composition').asstring; Order_Sub.FieldByName('SerialNo').Value := i;
Order_Sub.FieldByName('ConSId').Value := maxno;
Order_Sub.fieldbyname('C_Color').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Color').asstring; Order_Sub.FieldByName('ConQty').Value := null;
Order_Sub.fieldbyname('C_ColorNo').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_ColorNo').asstring; Order_Sub.FieldByName('ConTotalAmount').Value := null;
Order_Sub.FieldByName('ConUnit').Value := 'M';
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';
end; end;
end; end;
Next; Next;
@ -1186,42 +1202,72 @@ begin
begin begin
append; 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_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('CP_Name').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Name').asstring;
Order_Sub.fieldbyname('FROMCPSID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CONSID').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('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'; Order_Sub.fieldbyname('ConUnit').Value := 'M';
FieldByName('SSEL').Value := FALSE; Order_Sub.FieldByName('SSEL').Value := FALSE;
FieldByName('SerialNo').Value := i; Order_Sub.FieldByName('SerialNo').Value := i;
FieldByName('ConSId').Value := maxno; Order_Sub.FieldByName('ConSId').Value := maxno;
FieldByName('CP_QTY').Value := frmSalesContractCPSel.CDS_1.fieldbyname('ConQty').ASFLOAT;
end; end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
close; close;
SQL.Clear; SQL.Clear;
SQL.Add(' select top(1) * from BS_Contract_Sub where CP_Code = ' + QuotedStr(Trim(Order_Sub.fieldbyname('CP_Code').AsString))); sql.Add(' select top(1) A.ConMId,A.ConSId,A.FROMCPMID,A.FROMCPSID ');
// ShowMessage(sql.Text); 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; Open;
end; 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_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_Spec').Value := ADOQueryCmd.FieldByName('C_Spec').Value;
Order_Sub.fieldbyname('C_Composition').Value := ADOQueryCmd.FieldByName('C_Composition').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_Color').Value := ADOQueryCmd.FieldByName('C_Color').Value;
Order_Sub.fieldbyname('C_ColorNo').Value := ADOQueryCmd.FieldByName('C_ColorNo').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_Pattern').Value := ADOQueryCmd.FieldByName('C_Pattern').Value;
Order_Sub.fieldbyname('C_StyleNo').Value := ADOQueryCmd.FieldByName('C_StyleNo').Value; Order_Sub.fieldbyname('C_StyleNo').Value := ADOQueryCmd.FieldByName('C_StyleNo').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_FinishLatitudeDensity').Value := ADOQueryCmd.FieldByName('C_FinishLatitudeDensity').Value;
// Order_Sub.fieldbyname('C_FinishLongitudeDensity').Value := ADOQueryCmd.FieldByName('C_FinishLongitudeDensity').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; end;
Next; Next;
i := i + 1; i := i + 1;
@ -1497,6 +1543,7 @@ begin
if showmodal = 1 then if showmodal = 1 then
begin begin
Order_Sub.Edit; 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_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('C_Name').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').asstring;

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

@ -236,8 +236,17 @@ begin
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add('select * from BS_Contract_sub A '); sql.Add(' select A.SerialNo,A.BCIID,A.ConQty,A.ConUnit,A.ConPrice,A.ConTotalAmount ');
sql.Add('where ConMID =' + quotedstr((CDS_1.fieldbyname('ConMID').AsString))); 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; open;
end; end;
SCreateCDS(ADOQueryTemp, CDS_2); SCreateCDS(ADOQueryTemp, CDS_2);

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

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

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

@ -179,9 +179,9 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('SELECT *'); 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(' 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(' where X.YRType=''γ˿'' and Y.C_Code=A.C_Code group by X.BCIID )');
sql.Add(' FROM V_CON_TL A'); sql.Add(' FROM V_CON_TL A');
SQL.Add('WHERE ConDate>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date))); SQL.Add('WHERE ConDate>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date)));
@ -199,19 +199,19 @@ end;
procedure TfrmSCTLLIST.InitClothYarn(MC_Code: string); procedure TfrmSCTLLIST.InitClothYarn(MC_Code: string);
var var
zsqtyValue: string; ConqtyValue: string;
begin begin
zsqtyValue := CDS_1.FieldByName('zsqty').AsString; ConqtyValue := CDS_1.FieldByName('Conqty').AsString;
if zsqtyValue = '' then if ConqtyValue = '' then
zsqtyValue := '0'; ConqtyValue := '0';
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) '); 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(' from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
sql.Add(' where A.YRType=''¾­Ë¿'' and B.C_Code=''' + Trim(MC_Code) + ''''); sql.Add(' where A.YRType=''¾­Ë¿'' and B.C_Code=''' + Trim(MC_Code) + '''');
Open; Open;
@ -225,7 +225,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30))'); 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(' from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
sql.Add(' where A.YRType=''γ˿'' and B.C_Code=''' + Trim(MC_Code) + ''''); sql.Add(' where A.YRType=''γ˿'' and B.C_Code=''' + Trim(MC_Code) + '''');
// ShowMessage(SQL.Text); // ShowMessage(SQL.Text);

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

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

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

@ -281,6 +281,23 @@ begin
TBAdd.Enabled := true; TBAdd.Enabled := true;
TBPrint.Enabled := True; TBPrint.Enabled := True;
panel2.Visible := 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 case cxTabControl1.TabIndex of
0: 0:
begin begin
@ -314,6 +331,24 @@ begin
TBAdd.Enabled := true; TBAdd.Enabled := true;
panel2.Visible := True; panel2.Visible := True;
TBPrint.Enabled := 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 case cxTabControl1.TabIndex of
0: 0:
begin begin

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

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

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

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

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

@ -87,6 +87,7 @@ type
function SaveData(): Boolean; function SaveData(): Boolean;
procedure UpdateYarnName; procedure UpdateYarnName;
procedure initCFGrid(); procedure initCFGrid();
function CheckBL(): Boolean;
public public
{ Public declarations } { Public declarations }
FBYIID, FSTKName: string; FBYIID, FSTKName: string;
@ -496,6 +497,11 @@ begin
Exit; Exit;
end; end;
end; end;
if not CheckBL() then
begin
Exit;
end;
if SaveData() then if SaveData() then
begin begin
Application.MessageBox('保存成功!', '提示', 0); Application.MessageBox('保存成功!', '提示', 0);
@ -516,6 +522,14 @@ begin
try try
// 尝试将字符串转换为浮点数 // 尝试将字符串转换为浮点数
fValue := StrToFloat(s); 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 := FormatFloat('0.00', fValue) + '%';
Tv1.Controller.FocusedColumn.EditValue := s + '%'; Tv1.Controller.FocusedColumn.EditValue := s + '%';
@ -545,6 +559,45 @@ begin
end; end;
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); procedure TfrmYarnInfoInPut.Y_NameClick(Sender: TObject);
begin begin
Y_Composition.Style.Color := clMoneyGreen; Y_Composition.Style.Color := clMoneyGreen;

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

@ -1,98 +1,98 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <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.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas</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.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.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.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.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.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.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.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.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.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm</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_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</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.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.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.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.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.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.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.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.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj</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.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.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.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.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.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.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.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.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.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.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.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</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.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.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.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.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.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.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.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm</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.844,=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.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: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> <Transaction>2025/09/02 12:42:57.000.345,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_WBSpecSel.pas</Transaction>
</Transactions> </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.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.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.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.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.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.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.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.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.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.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.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.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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.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.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.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.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.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>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 ImageIndex = 11
OnClick = TnoqxClick OnClick = TnoqxClick
end end
object ToolButton7: TToolButton object Tbdelete: TToolButton
Left = 689 Left = 689
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TbdeleteClick
end
object ToolButton7: TToolButton
Left = 760
Top = 30
AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
ImageIndex = 16 ImageIndex = 16
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 792 Left = 863
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -616,7 +624,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
TabOrder = 2 TabOrder = 2
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
Properties.TabIndex = 0 Properties.TabIndex = 4
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#26410#25552#20132 #26410#25552#20132
#24050#25552#20132 #24050#25552#20132
@ -625,6 +633,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
#24050#21462#28040 #24050#21462#28040
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 134
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end end

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

@ -137,6 +137,7 @@ type
Tv1currency: TcxGridDBColumn; Tv1currency: TcxGridDBColumn;
Tv1SDlyDate: TcxGridDBColumn; Tv1SDlyDate: TcxGridDBColumn;
Tv1SNote: TcxGridDBColumn; Tv1SNote: TcxGridDBColumn;
Tbdelete: TToolButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -174,6 +175,7 @@ type
procedure N6Click(Sender: TObject); procedure N6Click(Sender: TObject);
procedure PurNoPropertiesChange(Sender: TObject); procedure PurNoPropertiesChange(Sender: TObject);
procedure TextEdit(Sender: TObject); procedure TextEdit(Sender: TObject);
procedure TbdeleteClick(Sender: TObject);
private private
fFlileFlag: string; fFlileFlag: string;
procedure InitGrid(); procedure InitGrid();
@ -281,6 +283,7 @@ begin
btnCXTijiao.Enabled := False; btnCXTijiao.Enabled := False;
btnWC.Enabled := False; btnWC.Enabled := False;
btnWCCX.Enabled := False; btnWCCX.Enabled := False;
Tbdelete.Enabled := False;
if Trim(FAuthority) = '¼Èë' then if Trim(FAuthority) = '¼Èë' then
begin begin
ToolButton2.Enabled := true; ToolButton2.Enabled := true;
@ -310,6 +313,7 @@ begin
4: 4:
begin begin
TNoqx.Enabled := True; TNoqx.Enabled := True;
Tbdelete.Enabled := True;
end; end;
end; end;
end; end;
@ -344,6 +348,7 @@ begin
4: 4:
begin begin
TNoqx.Enabled := true; TNoqx.Enabled := true;
Tbdelete.Enabled := True;
end; end;
end; end;
end; end;
@ -379,6 +384,7 @@ begin
4: 4:
begin begin
TNoqx.Enabled := true; TNoqx.Enabled := true;
Tbdelete.Enabled := True;
end; end;
end; end;
end; end;
@ -414,6 +420,7 @@ begin
4: 4:
begin begin
TNoqx.Enabled := true; TNoqx.Enabled := true;
Tbdelete.Enabled := True;
end; end;
end; end;
end; end;
@ -450,6 +457,93 @@ begin
Close; Close;
end; 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(); procedure TfrmYarnPurchasePlanList.InitGrid();
var var
SqlStr: string; SqlStr: string;

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

@ -123,6 +123,8 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
TabOrder = 2 TabOrder = 2
ExplicitLeft = -6
ExplicitTop = 192
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -268,19 +270,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
end 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 object Tv1Column5: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'Y_Color' DataBinding.FieldName = 'Y_Color'
@ -424,6 +413,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 3 TabOrder = 3
ExplicitTop = 24
object lbl5: TLabel object lbl5: TLabel
Left = 32 Left = 32
Top = 50 Top = 50

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

@ -75,7 +75,6 @@ type
TV2Column3: TcxGridDBColumn; TV2Column3: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel; cxGridLevel2: TcxGridLevel;
TV2Column4: TcxGridDBColumn; TV2Column4: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn;
Label1: TLabel; Label1: TLabel;
StkName: TcxButtonEdit; StkName: TcxButtonEdit;
@ -127,8 +126,7 @@ type
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject);
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1TaxRatePropertiesButtonClick(Sender: TObject; procedure Tv1TaxRatePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
procedure Tv1Column4PropertiesChange(Sender: TObject); procedure Tv1Column4PropertiesChange(Sender: TObject);
private private
FLeft, FTop: Integer; FLeft, FTop: Integer;
@ -652,7 +650,8 @@ begin
sql.Add(' select xx=dbo.GetPinYin(' + quotedstr(Sellname.Text) + ')'); sql.Add(' select xx=dbo.GetPinYin(' + quotedstr(Sellname.Text) + ')');
Open; Open;
end; 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;
end end
else else
@ -860,14 +859,14 @@ begin
FieldByName('C_Degree').Value := '纱线'; FieldByName('C_Degree').Value := '纱线';
FieldByName('Y_Code').Value := CDS_1.fieldbyname('Y_Code').value; FieldByName('Y_Code').Value := CDS_1.fieldbyname('Y_Code').value;
FieldByName('Y_Name').Value := CDS_1.fieldbyname('Y_Name').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_Composition').Value := CDS_1.fieldbyname('Y_Composition').value;
FieldByName('Denier').Value := CDS_1.fieldbyname('Denier').value; FieldByName('Denier').Value := CDS_1.fieldbyname('Denier').value;
FieldByName('ZS').Value := CDS_1.fieldbyname('ZS').value; FieldByName('ZS').Value := CDS_1.fieldbyname('ZS').value;
FieldByName('FF').Value := CDS_1.fieldbyname('FF').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; FieldByName('Y_Color').Value := Cds_1.FieldByName('Y_Color').Value;
@ -1027,14 +1026,14 @@ begin
FieldByName('C_Degree').Value := '纱线'; FieldByName('C_Degree').Value := '纱线';
FieldByName('Y_Code').Value := CDS_1.fieldbyname('Y_Code').value; FieldByName('Y_Code').Value := CDS_1.fieldbyname('Y_Code').value;
FieldByName('Y_Name').Value := CDS_1.fieldbyname('Y_Name').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_Composition').Value := CDS_1.fieldbyname('Y_Composition').value;
FieldByName('Y_Color').Value := Cds_1.FieldByName('Y_Color').Value; FieldByName('Y_Color').Value := Cds_1.FieldByName('Y_Color').Value;
FieldByName('Denier').Value := CDS_1.fieldbyname('TestDenier').value; FieldByName('Denier').Value := CDS_1.fieldbyname('TestDenier').value;
FieldByName('ZS').Value := CDS_1.fieldbyname('Z_Number').value; FieldByName('ZS').Value := CDS_1.fieldbyname('Z_Number').value;
FieldByName('Y_Color').Value := CDS_1.fieldbyname('Y_Color').value; FieldByName('Y_Color').Value := CDS_1.fieldbyname('Y_Color').value;
FieldByName('FF').Value := CDS_1.fieldbyname('FF').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('Qty').Value := Cds_1.FieldByName('SXQty').Value;
FieldByName('Price').Value := 0; FieldByName('Price').Value := 0;
@ -1057,9 +1056,18 @@ end;
procedure TfrmYarnPurchasePlanPut.ToolButton6Click(Sender: TObject); procedure TfrmYarnPurchasePlanPut.ToolButton6Click(Sender: TObject);
var var
i: Integer; i: Integer;
maxno: string;
begin begin
inherited; 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 try
frmGKManageSel := TfrmGKManageSel.Create(Application); frmGKManageSel := TfrmGKManageSel.Create(Application);
with frmGKManageSel do with frmGKManageSel do
@ -1079,6 +1087,7 @@ begin
append; append;
FieldByName('SSEL').Value := False; FieldByName('SSEL').Value := False;
FieldByName('SerialNo').Value := i; FieldByName('SerialNo').Value := i;
FieldByName('PurSId').Value := maxno + INTTOSTR(i);
// FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); // FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
// FieldByName('StkCoNo').Value := '本厂仓库'; // FieldByName('StkCoNo').Value := '本厂仓库';
// FieldByName('StkCoName').Value := '本厂仓库'; // FieldByName('StkCoName').Value := '本厂仓库';
@ -1089,6 +1098,7 @@ begin
FieldByName('C_Degree').Value := '钢筘'; FieldByName('C_Degree').Value := '钢筘';
end; end;
end; end;
i := i + 1;
next; next;
end; end;
@ -1181,7 +1191,6 @@ begin
(Tv1Tax.Properties as TcxCurrencyEditProperties).DisplayFormat := '0.00'; (Tv1Tax.Properties as TcxCurrencyEditProperties).DisplayFormat := '0.00';
(Tv1TaxInclude.Properties as TcxCurrencyEditProperties).DisplayFormat := '0.00'; (Tv1TaxInclude.Properties as TcxCurrencyEditProperties).DisplayFormat := '0.00';
(Tv1Price.Properties as TcxCurrencyEditProperties).DecimalPlaces := 2; (Tv1Price.Properties as TcxCurrencyEditProperties).DecimalPlaces := 2;
(Tv1Amount.Properties as TcxCurrencyEditProperties).DecimalPlaces := 2; (Tv1Amount.Properties as TcxCurrencyEditProperties).DecimalPlaces := 2;
(Tv1Tax.Properties as TcxCurrencyEditProperties).DecimalPlaces := 2; (Tv1Tax.Properties as TcxCurrencyEditProperties).DecimalPlaces := 2;
@ -1228,8 +1237,7 @@ begin
Label4.Caption := '库存件数:' + Trim(ADOQuery1.fieldbyname('piece').AsString); Label4.Caption := '库存件数:' + Trim(ADOQuery1.fieldbyname('piece').AsString);
end; end;
procedure TfrmYarnPurchasePlanPut.Tv1TaxRatePropertiesButtonClick( procedure TfrmYarnPurchasePlanPut.Tv1TaxRatePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
Sender: TObject; AButtonIndex: Integer);
begin begin
try try
frmZDYHelp := TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);

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

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

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

@ -1,82 +1,82 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <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.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.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</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.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.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.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.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.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.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.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.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm</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.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.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.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.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.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas</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.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.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.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.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.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.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.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.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.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.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.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.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</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.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.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.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\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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>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/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> <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 Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
LookAndFeel.NativeStyle = False
ExplicitTop = 155
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

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

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

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

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

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

@ -33,6 +33,8 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 2 TabOrder = 2
ExplicitLeft = 1
ExplicitTop = -6
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -77,6 +79,8 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 3 TabOrder = 3
ExplicitLeft = -1
ExplicitTop = 24
object Label5: TLabel object Label5: TLabel
Left = 20 Left = 20
Top = 21 Top = 21
@ -113,7 +117,7 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Height = 516 Height = 516
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
Properties.ActivePage = cxTabSheet3 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ClientRectBottom = 515 ClientRectBottom = 515
@ -215,12 +219,12 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Width = 100 Width = 100
end end
object v3Column16: TcxGridDBColumn object v3Column16: TcxGridDBColumn
Caption = #32463#36724#31859#25968 Caption = #23454#38469#32463#36724#31859#25968
DataBinding.FieldName = 'JZMS2' DataBinding.FieldName = 'JZMS2'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 84 Width = 122
end end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #19978#36724#26102#38388 Caption = #19978#36724#26102#38388
@ -247,7 +251,49 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False 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
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
@ -266,7 +312,6 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
ExplicitLeft = -1
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -364,7 +409,6 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
ExplicitLeft = -1
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -445,6 +489,55 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Options.Editing = False Options.Editing = False
Width = 115 Width = 115
end 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 end
object cxGridLevel3: TcxGridLevel object cxGridLevel3: TcxGridLevel
GridView = Tv3 GridView = Tv3

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

@ -76,6 +76,19 @@ type
cxGridDBColumn11: TcxGridDBColumn; cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn; cxGridDBColumn12: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel; 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 FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);

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

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

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

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

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

@ -74,7 +74,7 @@ type
cxGridDBColumn3: TcxGridDBColumn; cxGridDBColumn3: TcxGridDBColumn;
Tv2Y_Composition: TcxGridDBColumn; Tv2Y_Composition: TcxGridDBColumn;
v2Column6: TcxGridDBColumn; v2Column6: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn; Tv2Z_Number: TcxGridDBColumn;
Tv2Column12: TcxGridDBColumn; Tv2Column12: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel; cxGridLevel3: TcxGridLevel;
Tv3BatchNO: TcxGridDBColumn; Tv3BatchNO: TcxGridDBColumn;
@ -633,7 +633,7 @@ begin
FieldByName('BatchNO').Value := self.ADOQueryCmd.fieldbyname('BatchNO').Value; 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('FF').Value := self.ADOQueryCmd.fieldbyname('FF').Value;
// FieldByName('ND').Value := self.ADOQueryCmd.fieldbyname('ND').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 Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitLeft = -5
ExplicitTop = 146
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -385,6 +387,23 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
HeaderAlignmentHorz = taCenter 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 Width = 80
end end
object Tv1Column13: TcxGridDBColumn object Tv1Column13: TcxGridDBColumn
@ -393,6 +412,7 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 88 Width = 88
end end
object Tv1Column14: TcxGridDBColumn object Tv1Column14: TcxGridDBColumn
@ -401,6 +421,7 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 70 Width = 70
end end
end end

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

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

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

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

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

@ -64,6 +64,13 @@ type
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
TV2mcno: TcxGridDBColumn; TV2mcno: TcxGridDBColumn;
TV2DAYQTY: 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 FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -83,6 +90,7 @@ type
FInt, PFInt: Integer; FInt, PFInt: Integer;
FFMainID, BPFlag: string; FFMainID, BPFlag: string;
procedure InitGrid(); procedure InitGrid();
procedure InitGrid2();
{ Private declarations } { Private declarations }
public public
canshu1: string; canshu1: string;
@ -117,8 +125,11 @@ begin
begin begin
Close; Close;
sql.Clear; 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; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_1); SCreateCDS(ADOQueryMain, CDS_1);
@ -128,6 +139,25 @@ begin
end; end;
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); procedure TfrmTatPlanPSYLLIST.N1Click(Sender: TObject);
begin begin
SelOKNo(cds_1, true) SelOKNo(cds_1, true)
@ -141,6 +171,7 @@ end;
procedure TfrmTatPlanPSYLLIST.TBRafreshClick(Sender: TObject); procedure TfrmTatPlanPSYLLIST.TBRafreshClick(Sender: TObject);
begin begin
InitGrid(); InitGrid();
InitGrid2();
end; end;
procedure TfrmTatPlanPSYLLIST.ToolButton1Click(Sender: TObject); procedure TfrmTatPlanPSYLLIST.ToolButton1Click(Sender: TObject);
@ -299,6 +330,7 @@ begin
ReadCxGrid(trim(self.Caption) + '1', Tv1, 'Å÷²¼Éú²ú'); ReadCxGrid(trim(self.Caption) + '1', Tv1, 'Å÷²¼Éú²ú');
InitGrid(); InitGrid();
InitGrid2();
end; end;
procedure TfrmTatPlanPSYLLIST.ConNoPropertiesChange(Sender: TObject); procedure TfrmTatPlanPSYLLIST.ConNoPropertiesChange(Sender: TObject);

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

@ -15,6 +15,14 @@ inherited DataLink_WarpBeamStk: TDataLink_WarpBeamStk
end end
inherited ThreeColorBase: TcxStyleRepository inherited ThreeColorBase: TcxStyleRepository
PixelsPerInch = 96 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 end
inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
inherited dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel inherited dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel

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

@ -1,4 +1,3 @@
unit U_GetDllForm; unit U_GetDllForm;
interface interface
@ -21,7 +20,9 @@ uses
U_EmptyBeamInList, U_EmptyBeamOutList, U_EmptyBeamStkList, U_TatWBOutputList, U_EmptyBeamInList, U_EmptyBeamOutList, U_EmptyBeamStkList, U_TatWBOutputList,
U_TatWBOutputList1, U_WarpBeamQianList, U_TatWBOutputList_CZ, U_TatWBOutputList1, U_WarpBeamQianList, U_TatWBOutputList_CZ,
U_TatWBOutputList_SZ, U_TatWBOutputList_JT, U_TatWBOutputList_XB, 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;
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: //ÖῨ¹ÜÀí 113: //ÖῨ¹ÜÀí
begin 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 begin
fFormID := FormID; fFormID := FormID;
FormStyle := mstyle; FormStyle := mstyle;
@ -228,6 +241,17 @@ begin
mnewHandle := Handle; mnewHandle := Handle;
end; end;
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: //¾­ÖáÈë¿â 211: //¾­ÖáÈë¿â
begin begin

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

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

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

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

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

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

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

@ -168,6 +168,10 @@ type
Timer1: TTimer; Timer1: TTimer;
Group: TcxTextEdit; Group: TcxTextEdit;
Label55: TLabel; Label55: TLabel;
TV2XZZJ: TcxGridDBColumn;
TV2XZSJ: TcxGridDBColumn;
TV2JZSJ: TcxGridDBColumn;
TV2JZSZ: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
@ -346,10 +350,15 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select A.* '); 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('from Tat_WB_Card A ');
sql.Add('where isnull(Status,''0'')<>''-1'' and TWPId=' + quotedstr(Trim(FTWPId))); sql.Add('where isnull(Status,''0'')<>''-1'' and TWPId=' + quotedstr(Trim(FTWPId)));
SQL.Add('AND WB_TYPE=' + quotedstr(Trim(FWB_Type))); SQL.Add('AND WB_TYPE=' + quotedstr(Trim(FWB_Type)));
// ShowMessage(SQL.Text);
Open; Open;
end; end;
SCreateCDS(ADOQueryTemp, CDS_Card); SCreateCDS(ADOQueryTemp, CDS_Card);
@ -449,7 +458,7 @@ begin
frmWBSpecSel := TfrmWBSpecSel.Create(Application); frmWBSpecSel := TfrmWBSpecSel.Create(Application);
with frmWBSpecSel do with frmWBSpecSel do
begin begin
fWB_TYPE := '整浆并';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString); Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString);
@ -554,8 +563,17 @@ begin
begin begin
Group.Visible := True; Group.Visible := True;
Label55.Visible := True; Label55.Visible := True;
TV2XZZJ.Visible := False;
TV2XZSJ.Visible := False;
end
else
begin
TV2JZSZ.Visible := False;
TV2JZSJ.Visible := False;
end; end;
end; end;
procedure TfrmTatWBCardInPut2.GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmTatWBCardInPut2.GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -695,7 +713,8 @@ begin
sql.Add(',' + Quotedstr(Trim(WB_Name.Text))); sql.Add(',' + Quotedstr(Trim(WB_Name.Text)));
if FWB_Type = 'Ï¡Öá' then if FWB_Type = 'Ï¡Öá' then
begin 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 begin
sql.Add(',' + (Trim(Z_FJGENSHU.Text))); sql.Add(',' + (Trim(Z_FJGENSHU.Text)));
sql.Add(',' + (Trim(Z_SJKESHU2.Text))); sql.Add(',' + (Trim(Z_SJKESHU2.Text)));

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

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

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

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

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

@ -66,7 +66,6 @@ type
TV2: TcxGridDBTableView; TV2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn; cxGridDBColumn1: TcxGridDBColumn;
V2Column4: TcxGridDBColumn; V2Column4: TcxGridDBColumn;
TV1Column5: TcxGridDBColumn;
V2Column3: TcxGridDBColumn; V2Column3: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn; cxGridDBColumn15: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn; TV1Column3: TcxGridDBColumn;
@ -107,6 +106,16 @@ type
frxBarCodeObject1: TfrxBarCodeObject; frxBarCodeObject1: TfrxBarCodeObject;
frxRichObject1: TfrxRichObject; frxRichObject1: TfrxRichObject;
frxOLEObject1: TfrxOLEObject; 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 FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);
@ -139,6 +148,7 @@ type
procedure N5Click(Sender: TObject); procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject); procedure N6Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure TbLogLookClick(Sender: TObject);
private private
FInt, PFInt: Integer; FInt, PFInt: Integer;
@ -159,7 +169,7 @@ implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatWBPlanInPut, 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} {$R *.dfm}
@ -170,6 +180,11 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select A.* '); 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(' from Tat_WB_Card A ');
sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString))); sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString)));
case cxTabControl2.TabIndex of case cxTabControl2.TabIndex of
@ -291,6 +306,7 @@ begin
sql.Add('select A.* '); sql.Add('select A.* ');
sql.Add(' from Tat_WB_Plan A '); sql.Add(' from Tat_WB_Plan A ');
sql.Add('where 1=1 '); 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 case cxTabControl1.TabIndex of
0: 0:
begin begin
@ -350,6 +366,22 @@ begin
SInitCDSData(ADOQueryMain, CDS_1); SInitCDSData(ADOQueryMain, CDS_1);
end; 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); procedure TfrmTatWBPlan.TBNoEndClick(Sender: TObject);
begin begin
if CDS_1.IsEmpty then if CDS_1.IsEmpty then
@ -871,7 +903,29 @@ end;
procedure TfrmTatWBPlan.cxTabControl2Change(Sender: TObject); procedure TfrmTatWBPlan.cxTabControl2Change(Sender: TObject);
begin 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(); InitCard();
end; end;
procedure TfrmTatWBPlan.C_NameKeyPress(Sender: TObject; var Key: Char); 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 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 107 ButtonWidth = 131
Caption = 'ToolBar1' Caption = 'ToolBar1'
DisabledImages = DataLink_WarpBeamStk.cxImageList_bar DisabledImages = DataLink_WarpBeamStk.cxImageList_bar
Images = DataLink_WarpBeamStk.cxImageList_bar Images = DataLink_WarpBeamStk.cxImageList_bar
@ -34,7 +34,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 63 Left = 71
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686 Caption = #26032#22686
@ -42,7 +42,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 126 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913 Caption = #20462#25913
@ -50,7 +50,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton6Click OnClick = ToolButton6Click
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 189 Left = 213
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #36724#21345#21024#38500 Caption = #36724#21345#21024#38500
@ -58,7 +58,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 276 Left = 316
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25972#32463#35745#21010#25171#21360 Caption = #25972#32463#35745#21010#25171#21360
@ -66,7 +66,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 387 Left = 451
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #36724#21345#39044#35272 Caption = #36724#21345#39044#35272
@ -74,7 +74,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 474 Left = 554
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #36724#21345#25171#21360 Caption = #36724#21345#25171#21360
@ -82,7 +82,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 561 Left = 657
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -90,7 +90,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 648 Left = 760
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -622,6 +622,8 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 4 TabOrder = 4
ExplicitLeft = 732
ExplicitTop = 107
object Tv4: TcxGridDBTableView object Tv4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -797,6 +799,8 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard
Align = alBottom Align = alBottom
TabOrder = 5 TabOrder = 5
Visible = False Visible = False
ExplicitLeft = -1
ExplicitTop = 512
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = #25972#32463#25195#25551#35760#24405 Caption = #25972#32463#25195#25551#35760#24405
object cxGrid3: TcxGrid object cxGrid3: TcxGrid

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

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

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

@ -169,7 +169,7 @@ implementation
uses uses
U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_YarnInfoSel, U_TatPlanSel2, 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} {$R *.dfm}
@ -354,6 +354,32 @@ var
begin begin
try try
ADOQueryCmd.Connection.BeginTrans; 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 if Trim(FTWPId) = '' then
begin begin
if GetLSNo(ADOQueryCmd, maxno, 'JS', 'Tat_WB_Plan', 4, 1) = False then if GetLSNo(ADOQueryCmd, maxno, 'JS', 'Tat_WB_Plan', 4, 1) = False then
@ -675,7 +701,7 @@ begin
frmWBSpecSel := TfrmWBSpecSel.Create(Application); frmWBSpecSel := TfrmWBSpecSel.Create(Application);
with frmWBSpecSel do with frmWBSpecSel do
begin begin
fWB_TYPE := '整浆并';
if ShowModal = 1 then if ShowModal = 1 then
begin 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 ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 2 TabOrder = 2
ExplicitLeft = 1
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -71,6 +72,8 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 3 TabOrder = 3
ExplicitLeft = -1
ExplicitTop = 25
object Label3: TLabel object Label3: TLabel
Left = 268 Left = 268
Top = 10 Top = 10
@ -119,6 +122,8 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Height = 592 Height = 592
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = -1
ExplicitTop = -2
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -227,6 +232,8 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Height = 268 Height = 268
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 4
ExplicitTop = 22
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

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

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

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

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

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

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

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

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

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

@ -64,6 +64,7 @@ inherited frmWeaveSel: TfrmWeaveSel
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 1 TabOrder = 1
ExplicitTop = 32
object Label3: TLabel object Label3: TLabel
Left = 15 Left = 15
Top = 7 Top = 7
@ -169,6 +170,7 @@ inherited frmWeaveSel: TfrmWeaveSel
#24050#23433#25490 #24050#23433#25490
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 99
ClientRectBottom = 545 ClientRectBottom = 545
ClientRectLeft = 1 ClientRectLeft = 1
ClientRectRight = 1539 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_Tat_WB_InPut in 'U_Tat_WB_InPut.pas' {frmTat_WB_InPut},
U_TatYarnSel in '..\E00梭织通用窗体\U_TatYarnSel.pas' {frmTatYarnSel}, U_TatYarnSel in '..\E00梭织通用窗体\U_TatYarnSel.pas' {frmTatYarnSel},
U_YarnCFInfoSel in '..\B02基础纱线仓库\U_YarnCFInfoSel.pas' {frmYarnCFInfoSel}, 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} {$R *.res}

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

@ -315,6 +315,22 @@
<Form>frmLogInput</Form> <Form>frmLogInput</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </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"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

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

@ -137,28 +137,41 @@
<File Path="U_Tat_WB_InPut.dfm"/> <File Path="U_Tat_WB_InPut.dfm"/>
<File Path="U_LogInput.pas"/> <File Path="U_LogInput.pas"/>
<File Path="U_LogInput.dfm"/> <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> </ProjectSortOrder>
<Transactions> <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.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</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_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas</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.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.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.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.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.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 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/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> </Transactions>
</BorlandProject> </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"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <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.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.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.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.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.181,=D:\Dp10Repo\项目代码\路尚\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.181,=D:\Dp10Repo\项目代码\路尚\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.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.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.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.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.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.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.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.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.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.456,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.025,D:\Dp10RepoV1\项目代码\花蝴蝶\B03基础物料仓库\U_ProductInfoInPut.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.627,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.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.280,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRSel.pas</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.338,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_WBSpecSel.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.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm</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.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.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.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.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.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.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.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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.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.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.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.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.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.695,=D:\Dp10Repo\项目代码\路尚\B03基础物料仓库\U_ProductInfoInPut.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</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.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.754,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.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.326,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.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.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.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj</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.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.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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <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 Width = 70
end end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #19978#26426#38376#24133 Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'