This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2025-09-13 14:39:43 +08:00
parent 7fc97d37d0
commit 0297b0ba2c
72 changed files with 9902 additions and 921 deletions

View File

@ -30,6 +30,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
ParentColor = False
ShowCaptions = True
TabOrder = 0
ExplicitWidth = 1532
object ToolButton1: TToolButton
Left = 0
Top = 0
@ -64,6 +65,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
ExplicitTop = 44
object Label1: TLabel
Left = 18
Top = 15
@ -423,14 +425,6 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
HeaderAlignmentHorz = taCenter
Width = 88
end
object TV1Column8: TcxGridDBColumn
Caption = #32463#19997'/'#32428#19997
DataBinding.FieldName = 'YRType'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
Width = 87
end
object TV1Column12: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
@ -460,14 +454,6 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
Styles.Header = DataLink_PurchasePlan.grid_head_blue
Width = 100
end
object v1Column2: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'ConSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object TV1Column18: TcxGridDBColumn
Caption = #24050#30003#35831#25968#37327
DataBinding.FieldName = 'SQQty'

View File

@ -48,7 +48,6 @@ type
v1Column7: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
@ -79,7 +78,6 @@ type
C_Name: TEdit;
Label3: TLabel;
BuyName: TEdit;
TV1Column8: TcxGridDBColumn;
TV1Column9: TcxGridDBColumn;
TV1Column10: TcxGridDBColumn;
TV1Column11: TcxGridDBColumn;
@ -163,7 +161,8 @@ begin
begin
Close;
sql.Clear;
SQL.add('select * from V_HT_SX');
SQL.add('select ConNo,BuyConNo,max(DlyDate) as DlyDate ,C_Code,C_Name,Y_Code,Y_Name,max(Y_Spec) as Y_Spec,max(Y_Composition) as Y_Composition,max(Y_Color) as Y_Color,TestDenier,Z_Number,FF,ND,sum(SXQty) as SXQty,sum(KCQty) as KCQty from V_HT_SX');
SQL.Add(' GROUP BY ConNo,BuyConNo,C_Code,C_Name,Y_Code,Y_Name,TestDenier,Z_Number,FF,ND');
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));

View File

@ -22,7 +22,7 @@ inherited frmWBSpecSel: TfrmWBSpecSel
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
ButtonWidth = 99
Caption = 'ToolBar1'
DisabledImages = BaseDataLink.cxImageList_bar
Images = cxImageList_bar
@ -38,7 +38,7 @@ inherited frmWBSpecSel: TfrmWBSpecSel
OnClick = ToolButton1Click
end
object TbAdd: TToolButton
Left = 63
Left = 71
Top = 0
AutoSize = True
Caption = #26032#22686
@ -46,7 +46,7 @@ inherited frmWBSpecSel: TfrmWBSpecSel
OnClick = TbAddClick
end
object TbEdit: TToolButton
Left = 126
Left = 142
Top = 0
AutoSize = True
Caption = #20462#25913
@ -54,7 +54,7 @@ inherited frmWBSpecSel: TfrmWBSpecSel
OnClick = TbEditClick
end
object TbDelete: TToolButton
Left = 189
Left = 213
Top = 0
AutoSize = True
Caption = #21024#38500
@ -62,7 +62,7 @@ inherited frmWBSpecSel: TfrmWBSpecSel
OnClick = TbDeleteClick
end
object TBSave: TToolButton
Left = 252
Left = 284
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -70,7 +70,7 @@ inherited frmWBSpecSel: TfrmWBSpecSel
OnClick = TBSaveClick
end
object TBClose: TToolButton
Left = 339
Left = 387
Top = 0
AutoSize = True
Caption = #20851#38381

View File

@ -96,8 +96,8 @@ var
implementation
uses
U_DataLink, U_RTFun, U_WBSpecInPut;
U_DataLink, U_RTFun;
// , U_WBSpecInPut
{$R *.dfm}
procedure TfrmWBSpecSel.FormCreate(Sender: TObject);
@ -226,23 +226,23 @@ end;
procedure TfrmWBSpecSel.TbEditClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
try
frmWBSpecInPut := TfrmWBSpecInPut.Create(Application);
with frmWBSpecInPut do
begin
FWBSID := Trim(CDS_1.fieldbyname('WBSID').AsString);
FSTKName := self.FSTKName;
if ShowModal = 1 then
begin
Self.InitGrid();
end;
end;
finally
frmWBSpecInPut.Free;
end;
// if CDS_1.IsEmpty then
// Exit;
//
// try
// frmWBSpecInPut := TfrmWBSpecInPut.Create(Application);
// with frmWBSpecInPut do
// begin
// FWBSID := Trim(CDS_1.fieldbyname('WBSID').AsString);
// FSTKName := self.FSTKName;
// if ShowModal = 1 then
// begin
// Self.InitGrid();
// end;
// end;
// finally
// frmWBSpecInPut.Free;
// end;
end;
procedure TfrmWBSpecSel.TBSaveClick(Sender: TObject);
@ -259,20 +259,20 @@ end;
procedure TfrmWBSpecSel.TbAddClick(Sender: TObject);
begin
try
frmWBSpecInPut := TfrmWBSpecInPut.Create(Application);
with frmWBSpecInPut do
begin
FWBSID := '';
FSTKName := self.FSTKName;
if ShowModal = 1 then
begin
Self.InitGrid();
end;
end;
finally
frmWBSpecInPut.Free;
end;
// try
// frmWBSpecInPut := TfrmWBSpecInPut.Create(Application);
// with frmWBSpecInPut do
// begin
// FWBSID := '';
// FSTKName := self.FSTKName;
// if ShowModal = 1 then
// begin
// Self.InitGrid();
// end;
// end;
// finally
// frmWBSpecInPut.Free;
// end;
end;
procedure TfrmWBSpecSel.TV1DblClick(Sender: TObject);

View File

@ -6,7 +6,7 @@
<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.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.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>
@ -31,7 +31,7 @@
<Transaction>1899/12/30 00:00:00.000.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.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.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.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.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>
@ -47,9 +47,9 @@
<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.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.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.217,=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.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction>
@ -58,8 +58,8 @@
<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.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.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas</Transaction>
@ -70,7 +70,7 @@
<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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.082,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas</Transaction>

View File

@ -20,7 +20,7 @@ inherited frmGKManageSel: TfrmGKManageSel
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clSkyBlue
Images = DataLink_WarpBeamStk.ImageList_new32
Images = DataLink_ClothInfo.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
@ -90,6 +90,7 @@ inherited frmGKManageSel: TfrmGKManageSel
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 75
object Tv2: TcxGridDBTableView
OnDblClick = Tv2DblClick
Navigator.Buttons.CustomButtons = <>
@ -240,30 +241,30 @@ inherited frmGKManageSel: TfrmGKManageSel
ExplicitHeight = 25
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Connection = DataLink_ClothInfo.ADOLink
Left = 113
Top = 256
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Left = 137
Top = 169
Connection = DataLink_ClothInfo.ADOLink
Left = 145
Top = 163
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 459
Top = 169
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Connection = DataLink_ClothInfo.ADOLink
Parameters = <>
Left = 357
Top = 153
end
object ADOQueryMain: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 253

View File

@ -709,7 +709,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Height = 367
Align = alBottom
TabOrder = 2
Properties.ActivePage = cxTabSheet1
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
LookAndFeel.Kind = lfUltraFlat

View File

@ -9,6 +9,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Height = -16
OldCreateOrder = True
Position = poScreenCenter
ExplicitLeft = -373
ExplicitWidth = 1556
ExplicitHeight = 776
PixelsPerInch = 96
@ -20,7 +21,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
Images = DataLink_ClothInfo.cxImageList_bar
@ -38,7 +39,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
OnClick = ToolButton1Click
end
object ToolButton6: TToolButton
Left = 63
Left = 71
Top = 0
AutoSize = True
Caption = #38468#20214
@ -47,7 +48,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
OnClick = ToolButton6Click
end
object ToolButton11: TToolButton
Left = 126
Left = 142
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -55,7 +56,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
OnClick = ToolButton11Click
end
object TBClose: TToolButton
Left = 213
Left = 245
Top = 0
AutoSize = True
Caption = #20851#38381
@ -720,7 +721,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Height = 312
Align = alClient
TabOrder = 2
Properties.ActivePage = cxTabSheet1
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
ClientRectBottom = 312
@ -950,6 +951,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Height = 251
Align = alClient
TabOrder = 0
ExplicitLeft = -262
ExplicitTop = 30
end
end
object Panel2: TPanel

View File

@ -9,7 +9,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Font.Height = -11
Font.Name = 'Tahoma'
Position = poMainFormCenter
ExplicitTop = -259
ExplicitWidth = 1190
ExplicitHeight = 884
PixelsPerInch = 96
@ -22,8 +21,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
ExplicitTop = 417
ExplicitHeight = 428
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -276,7 +273,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Ctl3D = False
ParentCtl3D = False
TabOrder = 2
ExplicitTop = 19
object Label3: TLabel
Left = 11
Top = 11
@ -956,7 +952,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_ClothInfo.ADOLink
Left = 665
Top = 601
Top = 609
end
inherited ImageList_new32: TImageList
Left = 170

View File

@ -1,34 +1,34 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.847,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A05基础资料管理\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.847,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A05基础资料管理\U_GKInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.144,=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.657,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.824,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.467,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.888,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.293,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.116,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.409,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.847,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A05基础资料管理\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.657,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.847,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A05基础资料管理\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm</Transaction>
</Transactions>
</BorlandProject>

View File

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

View File

@ -0,0 +1,502 @@
object frmTatPlanMachInput: TfrmTatPlanMachInput
Left = 364
Top = 150
Anchors = []
Caption = #20219#21153#26032#22686
ClientHeight = 483
ClientWidth = 1011
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1011
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_TatPlan.cxImageList_bar
Images = DataLink_TatPlan.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 174
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 30
Width = 1011
Height = 453
Align = alClient
BevelInner = bvNone
BevelOuter = bvNone
Color = clWhite
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
object Label1: TLabel
Left = 455
Top = 55
Width = 80
Height = 21
Caption = #22383#24067#32534#21495#65306
end
object Label3: TLabel
Left = 100
Top = 470
Width = 48
Height = 21
Caption = #26465#30721#65306
Visible = False
end
object Label5: TLabel
Left = 455
Top = 16
Width = 74
Height = 21
Caption = #26426' '#21488' '#21495#65306
end
object Label8: TLabel
Left = 22
Top = 16
Width = 80
Height = 21
Caption = #20219#21153#31867#22411#65306
end
object Label4: TLabel
Left = 22
Top = 55
Width = 80
Height = 21
Caption = #32455#36896#21333#21495#65306
end
object Label9: TLabel
Left = 80
Top = 502
Width = 72
Height = 21
Caption = 'MainID'#65306
Visible = False
end
object Label10: TLabel
Left = 89
Top = 537
Width = 62
Height = 21
Caption = 'SubID'#65306
Visible = False
end
object Label11: TLabel
Left = 22
Top = 94
Width = 80
Height = 21
Caption = #22383#24067#21517#31216#65306
end
object Label2: TLabel
Left = 455
Top = 94
Width = 80
Height = 21
Caption = #25805#20316#31867#22411#65306
end
object Label13: TLabel
Left = 22
Top = 243
Width = 80
Height = 21
Caption = #25195#25551#21382#21490#65306
end
object Label15: TLabel
Left = 455
Top = 243
Width = 80
Height = 21
Caption = #23433#25490#21382#21490#65306
end
object Label14: TLabel
Left = 22
Top = 207
Width = 48
Height = 21
Caption = #32428#23494#65306
end
object Label17: TLabel
Left = 22
Top = 171
Width = 80
Height = 21
Caption = #32428#32433#35268#26684#65306
end
object Label6: TLabel
Left = 455
Top = 171
Width = 48
Height = 21
Caption = #25209#27425#65306
end
object Label7: TLabel
Left = 22
Top = 132
Width = 100
Height = 21
Caption = #25972#32463#24037#33402#32534#21495':'
end
object Label12: TLabel
Left = 455
Top = 132
Width = 100
Height = 21
Caption = #25972#32463#24037#33402#21517#31216':'
end
object PMID: TcxTextEdit
Left = 153
Top = 467
Enabled = False
ParentFont = False
TabOrder = 0
Visible = False
Width = 218
end
object MCNO: TcxTextEdit
Tag = 2
Left = 561
Top = 10
Enabled = False
StyleDisabled.TextColor = clGrayText
TabOrder = 1
Width = 218
end
object OrderNo: TcxButtonEdit
Tag = 2
Left = 126
Top = 51
BeepOnEnter = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = OrderNoPropertiesButtonClick
TabOrder = 2
Width = 223
end
object MainID: TcxTextEdit
Tag = 2
Left = 152
Top = 499
Enabled = False
ParentFont = False
TabOrder = 3
Visible = False
Width = 218
end
object SubID: TcxTextEdit
Tag = 2
Left = 152
Top = 534
Enabled = False
ParentFont = False
TabOrder = 4
Visible = False
Width = 218
end
object C_Name: TcxTextEdit
Tag = 2
Left = 127
Top = 90
Enabled = False
StyleDisabled.TextColor = clGray
TabOrder = 5
Width = 223
end
object C_Code: TcxTextEdit
Tag = 2
Left = 561
Top = 51
Enabled = False
StyleDisabled.TextColor = clGray
TabOrder = 6
Width = 218
end
object cxGrid2: TcxGrid
Left = 460
Top = 273
Width = 291
Height = 141
TabOrder = 7
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.GroupByBox = False
object cxGridDBColumn5: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'PMType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 128
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #26102#38388
DataBinding.FieldName = 'filltime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
Width = 130
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
object cxGrid1: TcxGrid
Left = 35
Top = 273
Width = 386
Height = 142
TabOrder = 8
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.GroupByBox = False
object cxGridDBColumn1: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'ClType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 128
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #26102#38388
DataBinding.FieldName = 'filltime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
Width = 130
end
object TV1Column1: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'P_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV1
end
end
object C_FinishLatitudeDensity: TcxTextEdit
Tag = 2
Left = 126
Top = 204
TabOrder = 9
Width = 223
end
object C_FinishLatitudeSpec: TcxTextEdit
Tag = 2
Left = 127
Top = 165
TabOrder = 10
Width = 223
end
object C_FinishLatitudeBatchNo: TcxTextEdit
Tag = 2
Left = 561
Top = 165
TabOrder = 11
Width = 218
end
object WB_Name: TcxTextEdit
Tag = 2
Left = 561
Top = 126
ParentColor = True
Properties.ReadOnly = True
StyleDisabled.TextColor = clGray
TabOrder = 12
Width = 218
end
object action: TcxComboBox
Tag = 2
Left = 561
Top = 90
Properties.Items.Strings = (
#19978#36724
#25509#22836)
TabOrder = 13
Width = 218
end
object PMType: TcxComboBox
Tag = 2
Left = 127
Top = 16
Properties.Items.Strings = (
#23613#26426#23433#25490
#19979#24067#25913#26426)
Properties.OnChange = PMTypePropertiesChange
TabOrder = 14
Width = 223
end
object WB_Code: TcxButtonEdit
Tag = 2
Left = 128
Top = 125
BeepOnEnter = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = WB_CodePropertiesButtonClick
StyleDisabled.TextColor = clGray
TabOrder = 15
Width = 223
end
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 534
Top = 435
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Parameters = <>
Left = 328
Top = 438
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 449
Top = 437
end
object ClientDataSet1: TClientDataSet
Aggregates = <>
Params = <>
Left = 68
Top = 269
end
object DataSource1: TDataSource
DataSet = ClientDataSet1
Left = 103
Top = 271
end
object ADOQuery2: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 176
Top = 268
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 803
Top = 333
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 776
Top = 389
end
end

View File

@ -0,0 +1,437 @@
unit U_TatPlanMachInput;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, ComCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit,
cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, cxContainer, cxMaskEdit, dxDateRanges,
dxScrollbarAnnotations, cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmTatPlanMachInput = class(TForm)
ToolBar1: TToolBar;
ToolButton1: TToolButton;
TBClose: TToolButton;
ADOQueryMain: TADOQuery;
ADOQueryCmd: TADOQuery;
ADOQueryTemp: TADOQuery;
ScrollBox1: TScrollBox;
Label1: TLabel;
PMID: TcxTextEdit;
Label3: TLabel;
Label5: TLabel;
MCNO: TcxTextEdit;
Label8: TLabel;
Label4: TLabel;
OrderNo: TcxButtonEdit;
Label9: TLabel;
MainID: TcxTextEdit;
Label10: TLabel;
SubID: TcxTextEdit;
Label11: TLabel;
C_Name: TcxTextEdit;
C_Code: TcxTextEdit;
Label2: TLabel;
ClientDataSet1: TClientDataSet;
DataSource1: TDataSource;
ADOQuery2: TADOQuery;
CDS_2: TClientDataSet;
DS_2: TDataSource;
Label13: TLabel;
Label15: TLabel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
TV1Column1: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
Label14: TLabel;
Label17: TLabel;
Label6: TLabel;
C_FinishLatitudeDensity: TcxTextEdit;
C_FinishLatitudeSpec: TcxTextEdit;
C_FinishLatitudeBatchNo: TcxTextEdit;
Label7: TLabel;
Label12: TLabel;
WB_Name: TcxTextEdit;
action: TcxComboBox;
PMType: TcxComboBox;
WB_Code: TcxButtonEdit;
ToolButton2: TToolButton;
procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure PMTypePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton2Click(Sender: TObject);
procedure PMTypePropertiesChange(Sender: TObject);
private
canshu1, YCP, XCP: string;
Fint, CXS: Integer;
procedure InitData();
function SaveData(): Boolean;
function CheckData(): Boolean;
{ Private declarations }
public
FPMID, FCYCode, FCPID, FCPNO, FCPName, FMCNo, FMCType: string;
CopyInt, PState: Integer;
{ Public declarations }
end;
var
frmTatPlanMachInput: TfrmTatPlanMachInput;
implementation
uses
U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_TatPlanSel, U_WBSpecSel;
{$R *.dfm}
procedure TfrmTatPlanMachInput.InitData();
var
FXHInt: Integer;
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
SQL.Add('select * from Tat_Plan_Mach where PMID=''' + Trim(FPMID) + '''');
Open;
end;
if ADOQueryMain.IsEmpty then
begin
PMType.Text := '尽机安排';
MCNo.text := FMCNo;
end
else
begin
SCSHData(ADOQueryMain, ScrollBox1, 2);
PMType.ItemIndex := PMType.Properties.Items.IndexOf(trim(ADOQueryMain.fieldbyname('PMType').AsString));
action.ItemIndex := action.Properties.Items.IndexOf(trim(ADOQueryMain.fieldbyname('action').AsString));
if trim(PMType.text) = '下布改机' then
begin
action.text := '下布改机';
end;
end;
/////////////////刷新前两次记录类型/////////////////////////
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select top 2 PMType,filltime from Tat_Plan_Mach where MCNO =''' + Trim(MCNO.Text) + '''');
sql.Add('ORDER BY FillTime desc ');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2);
/////////////////刷新前两次记录类型/////////////////////////
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmTatPlanMachInput.FormShow(Sender: TObject);
begin
readCxGrid(trim(self.Caption) + 'Tv1', Tv1, '任务新增');
readCxGrid(trim(self.Caption) + 'Tv2', Tv2, '任务新增');
InitData();
end;
procedure TfrmTatPlanMachInput.TBCloseClick(Sender: TObject);
begin
Close;
end;
function TfrmTatPlanMachInput.SaveData(): Boolean;
var
maxId, FCYNo, maxpbno: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
if FPMID = '' then
begin
if GetLSNo(ADOQueryCmd, maxId, 'RW', 'Tat_Plan_Mach', 4, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败!', '提示', 0);
Exit;
end;
PMID.Text := trim(maxId);
end
else
begin
maxId := trim(FPMID);
PMID.Text := trim(maxId);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_Plan_Mach where PMID=''' + Trim(FPMID) + '''');
Open;
end;
with ADOQueryCmd do
begin
if FPMID = '' 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('PMID').Value := Trim(maxId);
RTSetsavedata(ADOQueryCmd, 'Tat_Plan_Mach', ScrollBox1, 2);
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('EXEC P_Tat_Plan_Mach_SetSequence @PMID=''' + Trim(PMID.Text) + '''');
sql.Add(',@Operate=''新增'' ');
Open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
begin
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
end;
ADOQueryCmd.Connection.CommitTrans;
FPMID := maxId;
Result := True;
except
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败!', '提示', 0);
end;
end;
procedure TfrmTatPlanMachInput.ToolButton1Click(Sender: TObject);
var
FWB_CODE: string;
begin
if CheckData() = False then
begin
exit;
end;
if FPMID = '' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('SELECT * FROM Tat_Plan_Mach');
sql.Add('WHERE ISNULL(Status, ''0'') in (''0'') ');
SQL.Add('AND MCNO=' + QuotedStr(FMCNo));
Open;
end;
if ADOQueryTemp.IsEmpty = FALSE then
begin
Application.MessageBox('该机台已存在未完成任务,不允许保存!', '提示', 0);
exit;
end;
end;
if PMType.Text = '下布改机' then
begin
if FPMID = '' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('SELECT * FROM Tat_Plan_Mach');
sql.Add('WHERE ISNULL(Status, ''0'') in (''1'') ');
SQL.Add('AND MCNO=' + QuotedStr(FMCNo));
Open;
end;
if ADOQueryTemp.IsEmpty = FALSE then
begin
if ADOQueryTemp.FieldByName('WB_CODE').AsString <> WB_CODE.Text then
begin
Application.MessageBox('工艺不同,不允许保存!', '提示', 0);
exit;
end;
end;
end;
end;
if SaveData() then
begin
Application.MessageBox('保存成功!', '提示', 0);
ModalResult := 1;
end;
end;
procedure TfrmTatPlanMachInput.ToolButton2Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '任务新增');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '任务新增');
end;
procedure TfrmTatPlanMachInput.WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmWBSpecSel := TfrmWBSpecSel.Create(Application);
with frmWBSpecSel do
begin
if ShowModal = 1 then
begin
Self.WB_Code.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString;
Self.WB_Name.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString;
end;
end;
finally
frmWBSpecSel.Free;
end;
end;
function TfrmTatPlanMachInput.CheckData(): Boolean;
var
mvalue, FReal: Double;
maxConNo: string;
begin
try
if Trim(orderno.Text) = '' then
raise Exception.Create('梭织单号不能为空!');
if Trim(action.Text) = '' then
raise Exception.Create('操作类型不能为空!');
// if Trim(CYNo.Text) = '' then
// raise Exception.Create('产品编号不能为空!');
// if Trim(JZPM.Text) = '' then
// raise Exception.Create('经轴品名不能为空!');
// if Trim(weimi.Text) = '' then
// raise Exception.Create('纬密不能为空!');
// if Trim(wsspec.Text) = '' then
// raise Exception.Create('纬纱规格不能为空!');
// if Trim(pici.Text) = '' then
// raise Exception.Create('批次不能为空!');
Result := True;
except
Result := false;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmTatPlanMachInput.PMTypePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TcxButtonEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTatPlanMachInput.PMTypePropertiesChange(Sender: TObject);
begin
if Trim(PMType.text) = '下布改机' then
begin
action.Text := '下布改机';
action.Enabled := False;
end
else
begin
action.Text := '';
action.Enabled := true;
end;
end;
procedure TfrmTatPlanMachInput.OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmTatPlanSel := TfrmTatPlanSel.Create(Application);
with frmTatPlanSel do
begin
if ShowModal = 1 then
begin
Self.OrderNo.Text := frmTatPlanSel.CDS_1.fieldbyname('OrderNo').AsString;
Self.MainID.Text := frmTatPlanSel.CDS_1.fieldbyname('MainID').AsString;
Self.SubID.Text := frmTatPlanSel.CDS_1.fieldbyname('SubID').AsString;
Self.C_Code.Text := frmTatPlanSel.CDS_1.fieldbyname('C_Code').AsString;
Self.C_Name.Text := frmTatPlanSel.CDS_1.fieldbyname('C_Name').AsString;
Self.C_FinishLatitudeDensity.Text := frmTatPlanSel.CDS_1.fieldbyname('C_FinishLatitudeDensity').AsString;
Self.WB_Code.Text := frmTatPlanSel.CDS_1.fieldbyname('WB_Code').AsString;
Self.WB_Name.Text := frmTatPlanSel.CDS_1.fieldbyname('WB_Name').AsString;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select WB_Code,WB_Name from Bs_Cloth_Info where C_Code =''' + Trim(Self.C_Code.Text) + '''');
Open;
end;
// Self.WB_Code.Text := ADOQueryTemp.fieldbyname('WB_Code').AsString;
// Self.WB_Name.Text := ADOQueryTemp.fieldbyname('WB_Name').AsString;
end;
end;
finally
frmTatPlanSel.Free;
end;
end;
end.

View File

@ -2,15 +2,16 @@ inherited frmYarnInEdit: TfrmYarnInEdit
Left = 67
Top = 126
Caption = #32433#32447#20837#24211
ClientHeight = 463
ClientHeight = 579
ClientWidth = 1540
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -16
Position = poScreenCenter
OnClose = FormClose
ExplicitLeft = -689
ExplicitWidth = 1556
ExplicitHeight = 502
ExplicitHeight = 618
PixelsPerInch = 96
TextHeight = 21
object cxGrid1: TcxGrid [0]
@ -18,9 +19,10 @@ inherited frmYarnInEdit: TfrmYarnInEdit
Left = 0
Top = 30
Width = 1540
Height = 433
Height = 549
Align = alClient
TabOrder = 0
ExplicitTop = 36
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -234,21 +236,51 @@ inherited frmYarnInEdit: TfrmYarnInEdit
HeaderAlignmentHorz = taCenter
Width = 92
end
object Tv1Column3: TcxGridDBColumn
Caption = #31665'/'#20214
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 59
end
object v2Column6: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.00'
HeaderAlignmentHorz = taCenter
Width = 81
end
object Tv1Column3: TcxGridDBColumn
Caption = #31665'/'#20214
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.00'
Properties.OnEditValueChanged = Tv1Column3PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 59
end
object Tv1dbWeight: TcxGridDBColumn
Caption = #21333#21253#37325#37327
DataBinding.FieldName = 'dbWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1dbNumber: TcxGridDBColumn
Caption = #21333#21253#20010#25968
DataBinding.FieldName = 'dbNumber'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '0.00'
Properties.OnEditValueChanged = Tv1Column3PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1singleWeight: TcxGridDBColumn
Caption = #21333#20010#31570#37325
DataBinding.FieldName = 'singleWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1QtyUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'

View File

@ -12,7 +12,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList, ComObj,
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxImageList,
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI, cxCurrencyEdit;
type
TfrmYarnInEdit = class(TfrmBaseInput)
@ -60,6 +60,9 @@ type
Tv1Column13: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1dbWeight: TcxGridDBColumn;
Tv1dbNumber: TcxGridDBColumn;
Tv1singleWeight: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -77,6 +80,7 @@ type
procedure ToolButton4Click(Sender: TObject);
procedure Tv1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton5Click(Sender: TObject);
procedure Tv1Column3PropertiesEditValueChanged(Sender: TObject);
private
{ Private declarations }
function SaveCKData(): Boolean;
@ -737,6 +741,75 @@ begin
end;
end;
procedure TfrmYarnInEdit.Tv1Column3PropertiesEditValueChanged(Sender: TObject);
var
mvalue, mFieldName: string;
mQty, mPiece, mdbWeight: Double; //数量,箱件,单包重量
mdbNumber, msingleWeight: Double; //单包个数,单个筒重
// mCP_QTY, mCP_TPXS: Double; //成品数量,投坯系数
begin
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
mFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_Sub do
begin
Edit;
FieldByName(mFieldName).Value := StrToFloat(Trim(mvalue));
Post;
// ShowMessage(Fieldbyname('TaxRate').AsString);
mQty := Fieldbyname('Qty').AsFloat;
mPiece := Fieldbyname('Piece').AsFloat;
mdbNumber := Fieldbyname('dbNumber').AsFloat;
// mCP_QTY := Fieldbyname('CP_QTY').AsFloat;
// mCP_TPXS := Fieldbyname('CP_TPXS').AsFloat;
end;
// if mCP_QTY <> 0 then
// begin
// FQty := RoundFloat((mCP_TPXS + 1) * mCP_QTY, 0);
// end;
if mPiece <> 0 then
begin
mdbWeight := mQty / mPiece;
end
else
begin
mdbWeight := 0;
end;
if mdbNumber <> 0 then
begin
msingleWeight := mdbWeight / mdbNumber;
end
else
begin
msingleWeight := 0;
end;
with CDS_Sub do
begin
Edit;
FieldByName('Qty').Value := mQty;
// FieldByName('ConPrice').Value := FConPrice;
FieldByName('Piece').Value := mPiece;
FieldByName('dbNumber').Value := mdbNumber;
FieldByName('dbWeight').Value := mdbWeight;
FieldByName('singleWeight').Value := msingleWeight;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmYarnInEdit.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin

View File

@ -52,6 +52,8 @@ uses
U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel},
U_InputBoxSingleNumber in '..\A00通用窗体\U_InputBoxSingleNumber.pas' {frmInputBoxSingleNumber},
U_TatPlanSel in '..\E00梭织通用窗体\U_TatPlanSel.pas' {frmTatPlanSel};
// U_TatPlanMachInput in 'U_TatPlanMachInput.pas' {frmTatPlanMachInput},
// U_WBSpecSel in '..\A00通用窗体\U_WBSpecSel.pas' {frmWBSpecSel};
{$R *.res}

View File

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

Binary file not shown.

View File

@ -22,6 +22,8 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
Height = 509
Align = alClient
TabOrder = 0
ExplicitLeft = -1
ExplicitTop = 37
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -222,6 +224,22 @@ inherited frmBSPrtInEdit: TfrmBSPrtInEdit
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1FromPurSId: TcxGridDBColumn
Caption = #37319#36141#21333#23376#34920
DataBinding.FieldName = 'FromPurSId'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1FromPurMId: TcxGridDBColumn
Caption = #37319#36141#21333#20027#34920
DataBinding.FieldName = 'FromPurMId'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 90
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

View File

@ -50,6 +50,8 @@ type
ToolButton1: TToolButton;
TBClose: TToolButton;
ToolButton3: TToolButton;
Tv1FromPurSId: TcxGridDBColumn;
Tv1FromPurMId: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAdd1Click(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -454,7 +456,7 @@ begin
FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', now));
FieldByName('StkCoNo').Value := '本厂仓库';
FieldByName('StkCoName').Value := '本厂仓库';
FieldByName('FromCoName').Value := frmPurchasePlanSel.CDS_1.fieldbyname('SellName').value;;
FieldByName('FromCoName').Value := frmPurchasePlanSel.CDS_1.fieldbyname('SellName').value;
FieldByName('IOType').Value := '采购入库';
FieldByName('P_Code').Value := frmPurchasePlanSel.CDS_1.fieldbyname('Y_Code').value;
FieldByName('P_Name').Value := frmPurchasePlanSel.CDS_1.fieldbyname('Y_Name').value;
@ -464,6 +466,8 @@ begin
FieldByName('QtyUnit').Value := frmPurchasePlanSel.CDS_1.fieldbyname('QtyUnit').value;
FieldByName('Price').Value := frmPurchasePlanSel.CDS_1.fieldbyname('Price').value;
FieldByName('FromPurSId').Value := frmPurchasePlanSel.CDS_1.fieldbyname('PurSId').value;
FieldByName('FromPurMId').Value := frmPurchasePlanSel.CDS_1.fieldbyname('PurMId').value;
end;
end;

View File

@ -187,16 +187,24 @@ inherited frmBSPrtInList: TfrmBSPrtInList
ImageIndex = 9
OnClick = TBAddClick
end
object TBEdit: TToolButton
object ToolButton2: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = ToolButton2Click
end
object TBEdit: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
OnClick = TBEditClick
end
object TBDel: TToolButton
Left = 284
Left = 355
Top = 0
AutoSize = True
Caption = #21024#38500
@ -204,7 +212,7 @@ inherited frmBSPrtInList: TfrmBSPrtInList
OnClick = TBDelClick
end
object TBExport: TToolButton
Left = 355
Left = 426
Top = 0
AutoSize = True
Caption = #23548#20986
@ -212,7 +220,7 @@ inherited frmBSPrtInList: TfrmBSPrtInList
OnClick = TBExportClick
end
object ToolButton1: TToolButton
Left = 426
Left = 497
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -220,7 +228,7 @@ inherited frmBSPrtInList: TfrmBSPrtInList
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 529
Left = 600
Top = 0
AutoSize = True
Caption = #20851#38381
@ -236,7 +244,6 @@ inherited frmBSPrtInList: TfrmBSPrtInList
Height = 425
Align = alClient
TabOrder = 2
ExplicitTop = 114
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -271,10 +278,17 @@ inherited frmBSPrtInList: TfrmBSPrtInList
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsSelection.MultiSelect = True
OptionsSelection.CheckBoxVisibility = [cbvDataRow, cbvColumnHeader]
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv1SSel: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BPIOID'

View File

@ -75,6 +75,8 @@ type
TBExport: TToolButton;
ToolButton1: TToolButton;
TBClose: TToolButton;
ToolButton2: TToolButton;
Tv1SSel: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -93,6 +95,7 @@ type
procedure FromCoNameChange(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
private
procedure InitGrid();
procedure setStatus();
@ -105,7 +108,7 @@ type
implementation
uses
U_DataLink, U_RTFun, U_BSPrtInEdit, U_GKManageSel;
U_DataLink, U_RTFun, U_BSPrtInEdit, U_GKManageSel, U_LabelPrint;
{$R *.dfm}
procedure TfrmBSPrtInList.setStatus();
@ -146,8 +149,6 @@ begin
SQL.Add(' and IOFlag=''入库'' ');
SQL.Add(' order by IOTime desc');
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
@ -169,6 +170,52 @@ begin
WriteCxGrid(Self.Caption, Tv1, '物料仓库');
end;
procedure TfrmBSPrtInList.ToolButton2Click(Sender: TObject);
var
MBPIOID: string;
begin
if CDS_Main.IsEmpty then
Exit;
if CDS_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
MBPIOID := '';
CDS_Main.DisableControls;
with CDS_Main do
begin
First;
while CDS_Main.Locate('SSel', True, []) do
begin
MBPIOID := MBPIOID + ',' + (Trim(CDS_Main.fieldbyname('BPIOID').AsString));
Edit;
FieldByName('SSel').Value := False;
Post;
end;
end;
CDS_Main.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'ProductStk1';
FFiltration1 := MBPIOID;
if ShowModal = 1 then
begin
Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmBSPrtInList.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
@ -226,7 +273,25 @@ begin
if CDS_Main.IsEmpty then
Exit;
MBPIOID := SelTVKey(Tv1, ['BPIOID'])[0];
// MBPIOID := SelTVKey(Tv1, ['BPIOID'])[0];
if not CDS_Main.Locate('SSel',True,[]) then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
MBPIOID := '';
CDS_Main.First;
while not CDS_Main.Eof do
begin
if CDS_Main.FieldByName('SSel').value = True then
begin
MBPIOID := MBPIOID + CDS_Main.FieldByName('BPIOID').AsString + ',';
end;
CDS_Main.Next;
end;
if Trim(MBPIOID) = '' then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
@ -277,6 +342,7 @@ begin
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
ADOQueryCmd.Connection.CommitTrans;
CDS_Main.Delete;
InitGrid();
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);

View File

@ -57,16 +57,24 @@ inherited frmBSPrtOutList: TfrmBSPrtOutList
ImageIndex = 9
OnClick = TBAddClick
end
object TBEdit: TToolButton
object ToolButton2: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = ToolButton2Click
end
object TBEdit: TToolButton
Left = 252
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
OnClick = TBEditClick
end
object TBDel: TToolButton
Left = 252
Left = 315
Top = 0
AutoSize = True
Caption = #21024#38500
@ -74,7 +82,7 @@ inherited frmBSPrtOutList: TfrmBSPrtOutList
OnClick = TBDelClick
end
object TBExport: TToolButton
Left = 315
Left = 378
Top = 0
AutoSize = True
Caption = #23548#20986
@ -82,7 +90,7 @@ inherited frmBSPrtOutList: TfrmBSPrtOutList
OnClick = TBExportClick
end
object ToolButton1: TToolButton
Left = 378
Left = 441
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -90,7 +98,7 @@ inherited frmBSPrtOutList: TfrmBSPrtOutList
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 465
Left = 528
Top = 0
AutoSize = True
Caption = #20851#38381
@ -213,6 +221,7 @@ inherited frmBSPrtOutList: TfrmBSPrtOutList
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
@ -246,10 +255,17 @@ inherited frmBSPrtOutList: TfrmBSPrtOutList
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsSelection.MultiSelect = True
OptionsSelection.CheckBoxVisibility = [cbvDataRow, cbvColumnHeader]
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv1Column3: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object v1Column6: TcxGridDBColumn
Caption = #20986#24211#21333#21495
DataBinding.FieldName = 'BPIOID'
@ -382,6 +398,7 @@ inherited frmBSPrtOutList: TfrmBSPrtOutList
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end

View File

@ -11,10 +11,9 @@ uses
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, cxPC,
cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore,
cxDateUtils, cxMaskEdit, dxSkinsCore, dxSkinsDefaultPainters,
dxScrollbarAnnotations, cxProgressBar;
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore, cxDateUtils, cxMaskEdit,
dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar;
type
TfrmBSPrtOutList = class(TfrmBaseList)
@ -71,6 +70,8 @@ type
BegDate: TcxDateEdit;
EndDate: TcxDateEdit;
Tv1Column2: TcxGridDBColumn;
ToolButton2: TToolButton;
Tv1Column3: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -89,6 +90,7 @@ type
procedure P_specChange(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
@ -101,7 +103,7 @@ type
implementation
uses
U_DataLink, U_RTFun, U_BSPrtOutEdit;
U_DataLink, U_RTFun, U_BSPrtOutEdit, U_LabelPrint;
{$R *.dfm}
@ -157,6 +159,51 @@ begin
end;
procedure TfrmBSPrtOutList.ToolButton2Click(Sender: TObject);
var
MBPIOID: string;
begin
if CDS_Main.IsEmpty then
Exit;
if CDS_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('ûÓÐÑ¡ÔñÊý¾Ý!', 'Ìáʾ', 0);
Exit;
end;
MBPIOID := '';
CDS_Main.DisableControls;
with CDS_Main do
begin
First;
while CDS_Main.Locate('SSel', True, []) do
begin
MBPIOID := MBPIOID + ',' + (Trim(CDS_Main.fieldbyname('BPIOID').AsString));
Edit;
FieldByName('SSel').Value := False;
Post;
end;
end;
CDS_Main.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'ProductStk1';
FFiltration1 := MBPIOID;
if ShowModal = 1 then
begin
Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmBSPrtOutList.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
@ -233,6 +280,8 @@ begin
if Application.MessageBox('确定要删除数据吗?', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryTemp do
begin
Close;

View File

@ -95,12 +95,11 @@ inherited frmPurchasePlanSel: TfrmPurchasePlanSel
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 82
Top = 105
Width = 893
Height = 476
Height = 453
Align = alClient
TabOrder = 2
ExplicitTop = 81
object Tv1: TcxGridDBTableView
OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <>
@ -336,6 +335,25 @@ inherited frmPurchasePlanSel: TfrmPurchasePlanSel
GridView = Tv1
end
end
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 82
Width = 893
Height = 23
Align = alTop
TabOrder = 3
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#20837#24211
#24050#20837#24211
#20840#37096)
OnChange = cxTabControl1Change
ExplicitTop = 81
ClientRectRight = 0
ClientRectTop = 0
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = ADOConnection1
Left = 297

View File

@ -11,7 +11,7 @@ uses
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit,
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxCheckBox;
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxCheckBox, cxPC;
type
TfrmPurchasePlanSel = class(TfrmBaseHelp)
@ -73,6 +73,7 @@ type
Tv1Column14: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Tv1Column19: TcxGridDBColumn;
cxTabControl1: TcxTabControl;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
@ -82,6 +83,7 @@ type
procedure TV1DblClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure CoNameChange(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
@ -128,6 +130,12 @@ begin
end;
procedure TfrmPurchasePlanSel.cxTabControl1Change(Sender: TObject);
begin
inherited;
InitGrid();
end;
procedure TfrmPurchasePlanSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
@ -149,6 +157,17 @@ begin
sql.Add(' right join Pur_YarnPlan_sub B on A.PurMId=B.PurMId');
sql.Add(' where (C_Degree = ''»úÎïÁÏ'') or (C_Degree = ''¸ÖóØ'') ');
// sql.Add(' where isnull(STKNAME,'''')=''' + Trim(FSTKName) + '''');
case cxTabControl1.TabIndex of
0:
begin
sql.Add(' and not EXISTS (select X.FromPurSId from BS_Product_IO X where X.FromPurSId=B.PurSId) ');
end;
1:
begin
sql.Add(' and EXISTS (select X.FromPurSId from BS_Product_IO X where X.FromPurSId=B.PurSId) ');
end;
end;
Open;
end;

View File

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

View File

@ -10,7 +10,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
ExplicitLeft = -673
ExplicitWidth = 1540
ExplicitHeight = 757
PixelsPerInch = 96

View File

@ -1033,7 +1033,7 @@ begin
FieldByName('Y_Spec').Value := CDS_1.fieldbyname('Y_Spec').value;
FieldByName('Y_Composition').Value := CDS_1.fieldbyname('Y_Composition').value;
FieldByName('Y_Color').Value := Cds_1.FieldByName('Y_Color').Value;
FieldByName('Denier').Value := CDS_1.fieldbyname('Denier').value;
FieldByName('Denier').Value := CDS_1.fieldbyname('TestDenier').value;
FieldByName('FF').Value := CDS_1.fieldbyname('FF').value;
FieldByName('ND').Value := Cds_1.FieldByName('ND').Value;

View File

@ -121,8 +121,8 @@ var
implementation
uses
U_DataLink, U_RTFun,U_TatPlanMachInput;
U_DataLink, U_RTFun;
// ,U_TatPlanMachInput
{$R *.dfm}
procedure TfrmTatPlanSel.FormCreate(Sender: TObject);
@ -191,7 +191,7 @@ begin
sql.Add('and isnull(Status,''0'') not in (''11'',''22'') ');
end;
end;
sql.Add('and LoomType = ' + QuotedStr(Trim(frmTatPlanMachInput.FMCType)));
// sql.Add('and LoomType = ' + QuotedStr(Trim(frmTatPlanMachInput.FMCType)));
sql.add(' order by A.FILLTIME DESC');
// ShowMessage(SQL.Text);
Open;

View File

@ -1,83 +1,83 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.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.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.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.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.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.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.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.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.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.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.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.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.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>2025-09-01 15:46:20.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas</Transaction>
<Transaction>2025-09-01 16:22:25.613,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas</Transaction>
<Transaction>2025-09-01 16:22:56.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas</Transaction>
<Transaction>2025-09-01 16:22:56.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm</Transaction>
<Transaction>2025-09-01 16:24:18.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>2025-09-01 16:24:18.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.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.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.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.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.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.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.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.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.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.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.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.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.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.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.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.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.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm</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.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.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.259,=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.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>

View File

@ -482,7 +482,6 @@ begin
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatPlanList.TBRafreshClick(Sender: TObject);

View File

@ -701,6 +701,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitLeft = -4
object Label7: TLabel
Left = 12
Top = 140
@ -927,6 +928,8 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Height = 240
Align = alBottom
TabOrder = 4
ExplicitLeft = -1
ExplicitTop = 529
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -1075,29 +1078,40 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Options.Editing = False
Width = 100
end
object TV3Column3: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
object TV3ZS: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV3BatchNO: TcxGridDBColumn
Caption = #32433#32447#25209#21495
DataBinding.FieldName = 'BatchNO'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = TV3BatchNOPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV3dbNumber: TcxGridDBColumn
Caption = #27599#21253#39063#25968
DataBinding.FieldName = 'dbNumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object TV3Column2: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
Caption = #21333#20010#31570#37325
DataBinding.FieldName = 'singleWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object TV3Column4: TcxGridDBColumn
Caption = #29702#35770'D'#25968
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Width = 90
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #22791#27880

View File

@ -126,9 +126,6 @@ type
TV2Column8: TcxGridDBColumn;
TV2Column9: TcxGridDBColumn;
TV3Column1: TcxGridDBColumn;
TV3Column2: TcxGridDBColumn;
TV3Column3: TcxGridDBColumn;
TV3Column4: TcxGridDBColumn;
Label38: TLabel;
GYNo: TcxButtonEdit;
Label47: TLabel;
@ -165,6 +162,10 @@ type
Label18: TLabel;
Label40: TLabel;
ordqty: TcxTextEdit;
TV3ZS: TcxGridDBColumn;
TV3BatchNO: TcxGridDBColumn;
TV3dbNumber: TcxGridDBColumn;
TV3Column2: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure N2Click(Sender: TObject);
@ -187,6 +188,7 @@ type
procedure GYNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure GYNoDblClick(Sender: TObject);
procedure GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure TV3BatchNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
function TestData(): Boolean;
procedure PrtDate(MWBCID: string);
@ -209,7 +211,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_WBTatPlanSel, U_WBSpecSel,
U_WarpBeamInfoSel, U_WBTypeSel, U_CompanySel, U_TatGYSel, U_GKManageSel,
U_TatPlanSel2, U_WeaveSel;
U_TatPlanSel2, U_WeaveSel, U_YarnStkSel;
{$R *.dfm} procedure TfrmTatWBCardInPut.InitCard3();
begin
@ -994,5 +996,36 @@ begin
end;
end;
procedure TfrmTatWBCardInPut.TV3BatchNOPropertiesButtonClick(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_3 do
begin
Edit;
FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
FieldByName('singleWeight').Value := frmYarnStkSel.CDS_Main.fieldbyname('singleWeight').Value;
FieldByName('dbNumber').Value := frmYarnStkSel.CDS_Main.fieldbyname('dbNumber').Value;
Post;
end;
end;
frmYarnStkSel.CDS_Main.EnableControls;
end;
end;
finally
frmYarnStkSel.Free;
end;
end;
end.

View File

@ -47,16 +47,24 @@ inherited frmTatWBOutputList: TfrmTatWBOutputList
ImageIndex = 0
OnClick = TBFindClick
end
object TBdel: TToolButton
object TbAdd: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 8
OnClick = TbAddClick
end
object TBdel: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TBdelClick
end
object ToolButton3: TToolButton
Left = 189
Left = 252
Top = 0
AutoSize = True
Caption = #23545#36134
@ -64,7 +72,7 @@ inherited frmTatWBOutputList: TfrmTatWBOutputList
OnClick = ToolButton3Click
end
object ToolButton4: TToolButton
Left = 252
Left = 315
Top = 0
AutoSize = True
Caption = #25764#38144#23545#36134
@ -72,7 +80,7 @@ inherited frmTatWBOutputList: TfrmTatWBOutputList
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 339
Left = 402
Top = 0
AutoSize = True
Caption = #20462#25913#21333#20215
@ -80,7 +88,7 @@ inherited frmTatWBOutputList: TfrmTatWBOutputList
OnClick = ToolButton5Click
end
object ToolButton6: TToolButton
Left = 426
Left = 489
Top = 0
AutoSize = True
Caption = #20462#25913#24037#36164#36724#38271
@ -88,7 +96,7 @@ inherited frmTatWBOutputList: TfrmTatWBOutputList
OnClick = ToolButton6Click
end
object ToolButton2: TToolButton
Left = 537
Left = 600
Top = 0
AutoSize = True
Caption = #20135#37327#24037#36164
@ -97,7 +105,7 @@ inherited frmTatWBOutputList: TfrmTatWBOutputList
OnClick = ToolButton2Click
end
object TBPrint: TToolButton
Left = 624
Left = 687
Top = 0
AutoSize = True
Caption = #25171#21360
@ -105,7 +113,7 @@ inherited frmTatWBOutputList: TfrmTatWBOutputList
Visible = False
end
object TBExport: TToolButton
Left = 687
Left = 750
Top = 0
AutoSize = True
Caption = #23548#20986'Excel'
@ -113,7 +121,7 @@ inherited frmTatWBOutputList: TfrmTatWBOutputList
OnClick = TBExportClick
end
object ToolButton1: TToolButton
Left = 780
Left = 843
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -121,7 +129,7 @@ inherited frmTatWBOutputList: TfrmTatWBOutputList
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 867
Left = 930
Top = 0
AutoSize = True
Caption = #20851#38381
@ -183,20 +191,11 @@ inherited frmTatWBOutputList: TfrmTatWBOutputList
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1469
inherited BegDate: TcxDateEdit
ExplicitHeight = 25
end
inherited EndDate: TcxDateEdit
ExplicitHeight = 25
end
inherited cbbType: TcxComboBox
ExplicitHeight = 33
end
inherited BegTime: TcxTimeEdit
ExplicitHeight = 25
ExplicitHeight = 29
end
inherited EndTime: TcxTimeEdit
ExplicitHeight = 33
ExplicitHeight = 29
end
end
end
@ -208,8 +207,6 @@ inherited frmTatWBOutputList: TfrmTatWBOutputList
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitLeft = -1
ExplicitTop = 133
object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <>

View File

@ -118,6 +118,7 @@ type
Button3: TButton;
Button4: TButton;
Tv1Column15: TcxGridDBColumn;
TbAdd: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -146,6 +147,7 @@ type
procedure ToolButton6Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure TbAddClick(Sender: TObject);
private
FLeft, FTop: Integer;
procedure InitGrid();
@ -165,7 +167,7 @@ var
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_OutPutHelp;
U_DataLink, U_RTFun, U_ZDYHelp, U_OutPutHelp, U_Tat_WB_InPut;
{$R *.dfm}
procedure TfrmTatWBOutputList.InitImages();
@ -642,6 +644,28 @@ begin
end;
end;
procedure TfrmTatWBOutputList.TbAddClick(Sender: TObject);
var
maxno: string;
begin
try
frmTat_WB_InPut := TfrmTat_WB_InPut.Create(Application);
with frmTat_WB_InPut do
begin
PState := 0;
FMainId := '';
canshu1 := self.canshu1;
canshu2 := self.canshu2;
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmTat_WB_InPut.Free;
end;
end;
procedure TfrmTatWBOutputList.TBCloseClick(Sender: TObject);
begin

View File

@ -17,6 +17,7 @@ uses
cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmTatWBOutputList_CZ = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;

View File

@ -431,6 +431,7 @@ begin
begin
frmTatWBCardInPut.panel1.Controls[i].Enabled := false;
end;
frmTatWBCardInPut.cxGrid3.Enabled := True;
FWBCNO := Trim(Self.CDS_1.fieldbyname('WBCNO').AsString);
if ShowModal = 1 then
begin

View File

@ -8,6 +8,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307
Position = poScreenCenter
ExplicitLeft = -578
ExplicitWidth = 1445
ExplicitHeight = 802
PixelsPerInch = 96
@ -97,8 +98,6 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Align = alTop
TabOrder = 1
Visible = False
ExplicitLeft = 2
ExplicitTop = 6
object Panel6: TPanel
Left = 1
Top = 1
@ -171,6 +170,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Height = 287
Align = alClient
TabOrder = 2
ExplicitLeft = 0
ExplicitTop = 47
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -263,15 +264,6 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Options.Editing = False
Width = 116
end
object v1Column1: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 92
end
object v1Column10: TcxGridDBColumn
Caption = #36816#36153
DataBinding.FieldName = 'YunFei'
@ -322,6 +314,28 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
HeaderAlignmentHorz = taCenter
Width = 100
end
object v1Column1: TcxGridDBColumn
Caption = #32433#32447#25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = ButtonEdit
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 92
end
object Tv1dbNumber: TcxGridDBColumn
Caption = #27599#21253#20010#25968
DataBinding.FieldName = 'dbNumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1Column3: TcxGridDBColumn
Caption = #31570#37325'KG'
DataBinding.FieldName = 'TZQTY'

View File

@ -113,6 +113,7 @@ type
Label19: TLabel;
Label23: TLabel;
Label24: TLabel;
Tv1dbNumber: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -134,6 +135,8 @@ type
procedure Tv1Column6PropertiesEditValueChanged(Sender: TObject);
procedure WB_YarnTotalLenExit(Sender: TObject);
procedure ButtonEdit(Sender: TObject;
AButtonIndex: Integer);
private
procedure InitData();
function SaveData(): Boolean;
@ -153,7 +156,7 @@ implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_YarnInfoSel, U_TatPlanSel2,
U_WBSpecSel, U_GKManageSel, U_WeaveSel;
U_WBSpecSel, U_GKManageSel, U_WeaveSel, U_YarnStkSel;
{$R *.dfm}
@ -616,6 +619,38 @@ begin
end;
end;
procedure TfrmTatWBPlanInPut.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;
Post;
end;
end;
frmYarnStkSel.CDS_Main.EnableControls;
end;
end;
finally
frmYarnStkSel.Free;
end;
end;
procedure TfrmTatWBPlanInPut.WB_CodeBtnUpClick(Sender: TObject);
begin
try

View File

@ -0,0 +1,578 @@
object frmTat_WB_InPut: TfrmTat_WB_InPut
Left = 0
Top = 0
Caption = #35745#21010#21333#24405#20837
ClientHeight = 797
ClientWidth = 1376
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
WindowState = wsMaximized
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Tag = 1
Left = 0
Top = 0
Width = 1376
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_WarpBeamStk.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = TBSaveClick
end
object ToolButton4: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 150
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 30
Width = 1376
Height = 283
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
Color = clWhite
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
ExplicitTop = 18
object Label1: TLabel
Left = 304
Top = 132
Width = 65
Height = 12
Caption = #22383#24067#25551#36848#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 304
Top = 93
Width = 65
Height = 12
Caption = #35746#21333#25968#37327#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label23: TLabel
Left = 23
Top = 199
Width = 65
Height = 12
Caption = #24037#33402#35201#27714#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 40
Top = 132
Width = 65
Height = 12
Caption = #22383#24067#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 304
Top = 53
Width = 39
Height = 12
Caption = #29366#24577#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 529
Top = 93
Width = 65
Height = 12
Caption = #35745#21010#25968#37327#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 529
Top = 53
Width = 65
Height = 12
Caption = #35746#21333#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 529
Top = 132
Width = 65
Height = 12
Caption = #20132#36135#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 40
Top = 93
Width = 65
Height = 12
Caption = #25104#21697#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 40
Top = 53
Width = 65
Height = 12
Caption = #35745#21010#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object F_description: TEdit
Tag = 2
Left = 370
Top = 130
Width = 120
Height = 18
TabOrder = 0
end
object C_description: TMemo
Tag = 2
Left = 85
Top = 180
Width = 728
Height = 50
ScrollBars = ssVertical
TabOrder = 1
end
object F_Name: TEdit
Tag = 2
Left = 111
Top = 130
Width = 150
Height = 18
TabOrder = 2
end
object djUnit: TComboBox
Tag = 2
Left = 370
Top = 51
Width = 121
Height = 20
ItemIndex = 1
TabOrder = 3
Text = 'M'
Items.Strings = (
''
'M')
end
object C_PlanQty: TEdit
Tag = 2
Left = 591
Top = 91
Width = 120
Height = 18
TabOrder = 4
end
object OrdDate: TDateTimePicker
Tag = 2
Left = 591
Top = 51
Width = 120
Height = 20
Date = 45863.000000000000000000
Time = 0.802643206021457400
TabOrder = 5
end
object DlyDate: TDateTimePicker
Tag = 2
Left = 591
Top = 130
Width = 120
Height = 20
Date = 45863.000000000000000000
Time = 0.802855150461255100
TabOrder = 6
end
object OrderNo: TEdit
Tag = 2
Left = 111
Top = 51
Width = 150
Height = 18
Enabled = False
TabOrder = 7
Text = #33258#21160#29983#25104
end
object QtyOrder: TEdit
Tag = 2
Left = 370
Top = 91
Width = 120
Height = 18
TabOrder = 8
end
object C_Name: TBtnEditA
Tag = 2
Left = 111
Top = 91
Width = 150
Height = 20
TabOrder = 9
OnDblClick = C_NameDblClick
OnBtnClick = C_NameBtnClick
end
end
object cxPageControl1: TcxPageControl
Left = 0
Top = 343
Width = 1376
Height = 454
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ExplicitTop = 339
ExplicitHeight = 458
ClientRectBottom = 454
ClientRectRight = 1376
ClientRectTop = 0
end
object ToolBar2: TToolBar
Tag = 1
Left = 0
Top = 313
Width = 1376
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_WarpBeamStk.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 3
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
Visible = False
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
Visible = False
OnClick = ToolButton2Click
end
object ToolButton3: TToolButton
Left = 126
Top = 0
Caption = #19968#38190#26367#25442
ImageIndex = 13
Visible = False
OnClick = ToolButton3Click
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 343
Width = 1376
Height = 454
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 4
ExplicitTop = 360
ExplicitHeight = 437
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
Column = v1PRTORDQTY
end
item
Format = '0'
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTORDQTY
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column3
end
item
Kind = skSum
Column = v1Column5
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
object Tv1Column1: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1SOrddefstr1: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_Colorno'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 89
end
object v1PRTColor: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = v1PRTColorPropertiesButtonClick
Visible = False
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 102
end
object Tv1Column2: TcxGridDBColumn
Caption = #24211#23384'ID'
DataBinding.FieldName = 'stkid'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 67
end
object Tv1OrdPiece: TcxGridDBColumn
Caption = #35745#21010#21305#25968
DataBinding.FieldName = 'OrdPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object v1PRTORDQTY: TcxGridDBColumn
Caption = #35745#21010#31859#25968
DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 103
end
object v1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 84
end
object v1Column3: TcxGridDBColumn
Caption = #25237#22383#21305#25968
DataBinding.FieldName = 'AntcpPiece'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column5: TcxGridDBColumn
Caption = #25237#22383#25968#37327
DataBinding.FieldName = 'AntcpQty'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column3: TcxGridDBColumn
Caption = #25237#22383#21333#20301
DataBinding.FieldName = 'AntcpUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
''
'M'
'Kg')
Visible = False
HeaderAlignmentHorz = taCenter
Width = 92
end
object v1Column1: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 135
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object ADOTemp: TADOQuery
LockType = ltReadOnly
Parameters = <>
Left = 1112
Top = 117
end
object ADOCmd: TADOQuery
Parameters = <>
Left = 1264
Top = 125
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 1000
Top = 448
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 792
Top = 464
end
object GPM_1: TcxGridPopupMenu
PopupMenus = <>
Left = 916
Top = 461
end
end

View File

@ -0,0 +1,629 @@
unit U_Tat_WB_InPut;
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, cxCalendar, StrUtils,
cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, cxDropDownEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC,
dxScrollbarAnnotations;
type
TfrmTat_WB_InPut = class(TForm)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ScrollBox1: TScrollBox;
Label1: TLabel;
F_description: TEdit;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
Label2: TLabel;
C_description: TMemo;
Label23: TLabel;
GPM_1: TcxGridPopupMenu;
ToolButton4: TToolButton;
cxPageControl1: TcxPageControl;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
Tv1Column1: TcxGridDBColumn;
v1SOrddefstr1: TcxGridDBColumn;
v1PRTColor: TcxGridDBColumn;
v1PRTORDQTY: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label6: TLabel;
F_Name: TEdit;
djUnit: TComboBox;
Label8: TLabel;
Label11: TLabel;
C_PlanQty: TEdit;
OrdDate: TDateTimePicker;
DlyDate: TDateTimePicker;
Label3: TLabel;
Label4: TLabel;
Tv1OrdPiece: TcxGridDBColumn;
Label7: TLabel;
Label15: TLabel;
OrderNo: TEdit;
Tv1Column2: TcxGridDBColumn;
QtyOrder: TEdit;
C_Name: TBtnEditA;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure v1PRTColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure CustNameBtnDnClick(Sender: TObject);
// procedure C_CodeBtnUpClick(Sender: TObject);
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton3Click(Sender: TObject);
// procedure Need_ProductionDblClick(Sender: TObject);
procedure GC_BatchNoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure ToolButton4Click(Sender: TObject);
procedure C_NameDblClick(Sender: TObject);
procedure C_NameBtnClick(Sender: TObject);
private
procedure InitData();
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
function SaveData(): Boolean;
{ Private declarations }
public
PState, CopyInt, PriceFlag: Integer;
FMainId, FFMainId, FOrderNo: string;
FXS: Integer;
canshu1, canshu2, FWorkshop: string;
fFlileFlag: string;
{ Public declarations }
end;
var
frmTat_WB_InPut: TfrmTat_WB_InPut;
newh: hwnd;
implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_ClothInfoSel;
{$R *.dfm}
procedure TfrmTat_WB_InPut.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTat_WB_InPut.InitData();
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Dye_Plan_Main where MainId=''' + Trim(FMainId) + '''');
Open;
end;
SCSHData(ADOTemp, ScrollBox1, 2);
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select * ');
sql.Add('from Dye_Plan_Sub A where 1=1 ');
sql.Add(' and MainId=''' + Trim(FMainId) + '''');
Open;
end;
SCreateCDS(ADOTemp, CDS_1);
SInitCDSData(ADOTemp, CDS_1);
if CopyInt = 99 then
begin
PState := 0;
FMainId := '';
OrderNo.Text := '自动生成';
// GC_Piece.Text := '';
// GC_BatchNo.Text := '';
// GC_Position.Text := '';
// GC_STKID.Text := '';
// OrdDate.DateTime := SGetServerDateTime(ADOTemp);
// DlyDate.DateTime := OrdDate.DateTime;
with CDS_1 do
begin
First;
while not Eof do
begin
Edit;
FieldByName('MainId').Value := '';
FieldByName('SubId').Value := '';
FieldByName('carNum').Value := 0;
Post;
Next;
end;
end;
end;
end;
procedure TfrmTat_WB_InPut.ZDYHelp(FButn: TcxButtonEdit; LType: string);
var
FType, ZDYName, FText: string;
begin
end;
procedure TfrmTat_WB_InPut.C_NameBtnClick(Sender: TObject);
begin
frmClothInfoSel := TfrmClothInfoSel.create(self);
with frmClothInfoSel do
begin
if showmodal = 1 then
begin
CDS_1.DisableControls;
Self.C_Name.Text := trim(CDS_1.FieldByName('C_Name').AsString);
end;
CDS_1.EnableControls;
end;
frmClothInfoSel.free;
end;
procedure TfrmTat_WB_InPut.C_NameDblClick(Sender: TObject);
begin
C_Name.Text := '';
end;
procedure TfrmTat_WB_InPut.FormShow(Sender: TObject);
var
forderNo: string;
begin
readCxGrid(Trim(Self.Caption), Tv1, '染整计划管理');
OrdDate.DateTime := SGetServerDateTime(ADOTemp);
DlyDate.DateTime := OrdDate.DateTime;
// Workshop.text := trim(FWorkshop);
fFlileFlag := UserDataFlag + 'HX';
InitData();
end;
function TfrmTat_WB_InPut.SaveData(): Boolean;
var
maxno, forderNo: string;
begin
try
ADOCmd.Connection.BeginTrans;
/////////////// 保存主表 ///////////////
if Trim(FMainId) = '' then
begin
if not GetLSNo(ADOCmd, maxno, 'JM', 'Dye_Plan_Main', 3, 1) then
raise Exception.Create('取最大号失败!');
if GetLSNo(ADOCmd, forderNo, 'JH', 'Dye_Plan_Main', 3, 1) = False then
raise Exception.Create('取计划单号失败!');
OrderNo.Text := trim(forderNo);
end
else
begin
maxno := Trim(FMainId);
end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from Dye_Plan_Main where MainId=''' + Trim(FMainId) + '''');
Open;
end;
with ADOCmd do
begin
if ADOCmd.IsEmpty then
begin
Append;
FieldByName('Fillid').Value := Trim(dcode);
FieldByName('Filler').Value := Trim(DName);
end
else
begin
Edit;
FieldByName('Editid').Value := Trim(dcode);
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
RTSetsavedata(ADOCmd, 'Dye_Plan_Main', ScrollBox1, 2);
FieldByName('MainId').Value := Trim(maxno);
FieldByName('Workshop').Value := Trim(FWorkshop);
FieldByName('status').Value := '9';
Post;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Dye_Plan_Main where orderno=''' + Trim(OrderNo.Text) + '''');
Open;
end;
if ADOCmd.RecordCount > 1 then
raise Exception.Create('计划单号重复!');
FMainId := Trim(maxno);
/////////////// 保存主表 ///////////////
///
/////////////// 保存子表 ///////////////
with CDS_1 do
begin
First;
while not Eof do
begin
if Trim(CDS_1.fieldbyname('SubId').AsString) = '' then
begin
if not GetLSNo(ADOCmd, maxno, 'JS', 'Dye_Plan_Sub', 4, 1) then
raise Exception.Create('计划单号重复!');
end
else
begin
maxno := Trim(CDS_1.fieldbyname('SubId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Dye_Plan_Sub A ');
sql.Add(' where MainId=''' + Trim(FMainId) + '''');
sql.Add(' and SubId=''' + Trim(maxno) + '''');
Open;
end;
with ADOCmd do
begin
if ADOCmd.IsEmpty then
begin
Append;
end
else
Edit;
RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Dye_Plan_Sub', 0);
FieldByName('MainId').Value := Trim(FMainId);
FieldByName('SubId').Value := Trim(maxno);
Post;
end;
CDS_1.Edit;
CDS_1.FieldByName('SubId').Value := Trim(maxno);
Next;
end;
end;
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('UPDATE Dye_Plan_Main SET GC_STKID= ');
SQL.Add(' STUFF(( SELECT '','' +CAST(STKID AS VARCHAR) FROM Dye_Plan_Sub c where c.MAINID = Dye_Plan_Main.MAINID FOR XML PATH('''')), 1, 1, '''')');
sql.Add(' where MainId=''' + Trim(FMainId) + '''');
// ShowMessage(sql.Text);
EXECSQL;
end;
/////////////// 保存子表 ///////////////
ADOCmd.Connection.CommitTrans;
Result := True;
except
ADOCmd.Connection.RollbackTrans;
Result := False;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmTat_WB_InPut.TBSaveClick(Sender: TObject);
begin
// OrdDate.SetFocus;
try
// if Trim(OrderNo.Text) = '' then
// raise Exception.Create('计划单号不能为空!');
// if Trim(OrdType.Text) = '' then
// raise Exception.Create('订单类型不能为空!');
// if Trim(C_Name.Text) = '' then
// raise Exception.Create('产品名称不能为空!');
// if CDS_1.IsEmpty then
// raise Exception.Create('明细不能为空!');
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
exit;
end;
//
// if PState = 1 then
// begin
// if Trim(OrderNo.Text) <> Trim(forderNo) then
// begin
// with ADOTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select * from YF_Money_CR where MainId=''' + Trim(FMainId) + '''');
// Open;
// end;
// if ADOTemp.IsEmpty = False then
// begin
// Application.MessageBox('已产生数据,不能更改订单号!', '提示', 0);
// Exit;
// end;
// end;
// end;
if SaveData() then
begin
Application.MessageBox('保存成功!', '提示', 0);
TBClose.Click();
end;
end;
procedure TfrmTat_WB_InPut.v1PRTColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'C_Color';
flagname := '颜色';
V1Name.Caption := '中文名称';
// V1Note.Caption := '英文名称';
// fnote := True;
if ShowModal = 1 then
begin
Self.CDS_1.Edit;
Self.CDS_1.FieldByName('C_Color').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
// Self.CDS_1.FieldByName('ORDNOTE').Value := Trim(ClientDataSet1.fieldbyname('ORDNOTE').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTat_WB_InPut.ToolButton1Click(Sender: TObject);
var
i: Integer;
begin
// if Trim(OrderNo.Text) = '' then
// begin
// Application.MessageBox('计划单号不能为空!', '提示', 0);
// Exit;
// end;
i := CDS_1.RecordCount;
i := i + 1;
CDS_1.Last;
CopyAddRow(Tv1, CDS_1);
with CDS_1 do
begin
Edit;
FieldByName('SerialNo').Value := IntToStr(i);
FieldByName('OrdQty').Value := 0;
FieldByName('AntcpPiece').Value := 0;
FieldByName('AntcpQty').Value := 0;
FieldByName('OrdUnit').Value := 'M';
FieldByName('AntcpUnit').Value := 'M';
Post;
end;
end;
procedure TfrmTat_WB_InPut.ToolButton2Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Dye_Plan_Card where SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + '''');
Open;
end;
if ADOTemp.IsEmpty = False then
begin
Application.MessageBox('已开卡不能删除数据!', '提示', 0);
Exit;
end;
if Trim(CDS_1.fieldbyname('SubId').AsString) <> '' then
begin
if Application.MessageBox('确定要删除数据吗?', '提示', 32 + 4) <> IDYES then
Exit;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete Dye_Plan_Sub where SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + '''');
ExecSQL;
end;
end;
CDS_1.Delete;
end;
procedure TfrmTat_WB_InPut.CustNameBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
//procedure TfrmDyePlanInPut.C_CodeBtnUpClick(Sender: TObject);
//begin
// if trim(CustName.Text) = '' then
// begin
// Application.MessageBox('客户不能为空!', '提示', 0);
// Exit;
// end;
//
// frmDyeGreyClothStkSel := TfrmDyeGreyClothStkSel.create(self);
// with frmDyeGreyClothStkSel do
// begin
// FromCoNo.Text := trim(self.CustName.TxtCode);
// FromCoNo.Enabled := False;
// if showmodal = 1 then
// begin
// CDS_Main.DisableControls;
//
// Self.C_Code.Text := trim(CDS_Main.FieldByName('C_Code').AsString);
// Self.C_Name.Text := trim(CDS_Main.FieldByName('C_Name').AsString);
//// Self.C_Spec.Text := trim(CDS_Main.FieldByName('C_spec').AsString);
// Self.C_Width.Text := trim(CDS_Main.FieldByName('C_Width').AsString);
//// Self.C_GramWeight.Text := trim(CDS_Main.FieldByName('C_GramWeight').AsString);
// Self.Saleser.Text := trim(CDS_Main.FieldByName('Saleser').AsString);
//
// with CDS_1 do
// begin
// if CDS_1.IsEmpty then
// begin
// Append;
// end
// else
// begin
// Edit;
// end;
// FieldByName('stkid').Value := trim(CDS_Main.FieldByName('stkid').AsString);
// FieldByName('OrdQty').Value := trim(CDS_Main.FieldByName('StkPiece').AsString);
// FieldByName('OrdPiece').Value := trim(CDS_Main.FieldByName('STKQty').AsString);
// FieldByName('OrdUnit').Value := 'M';
// end;
//
// end;
// CDS_Main.EnableControls;
// end;
// frmDyeGreyClothStkSel.free;
//end;
procedure TfrmTat_WB_InPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
mvalues: string;
begin
mvalues := tv1.Columns[tv1.Controller.FocusedColumn.index].DataBinding.FieldName;
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'OrderUnit';
flagname := '数量单位';
if ShowModal = 1 then
begin
Self.CDS_1.Edit;
Self.CDS_1.FieldByName(mvalues).Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTat_WB_InPut.v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'PriceUnit';
flagname := '价格单位';
if Trim(DParameters1) <> '高权限' then
begin
TBAdd.Visible := False;
TBEdit.Visible := False;
TBDel.Visible := False;
end;
if ShowModal = 1 then
begin
Self.CDS_1.Edit;
Self.CDS_1.FieldByName('PriceUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmTat_WB_InPut.ToolButton3Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
OneKeyPost(Tv1, CDS_1);
end;
procedure TfrmTat_WB_InPut.ToolButton4Click(Sender: TObject);
begin
WriteCxGrid(Trim(Self.Caption), Tv1, '染整计划管理');
end;
//procedure TfrmTat_WB_InPut.Need_ProductionDblClick(Sender: TObject);
//var
// fsj: string;
// FWZ: Integer;
// i: integer;
//begin
// fsj := Trim(TMemo(Sender).Hint);
// FWZ := Pos('/', fsj);
// i := 0;
// try
// frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
// with frmZDYHelpSel do
// begin
// flag := Copy(fsj, 1, FWZ - 1);
// flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
// if ShowModal = 1 then
// begin
// TMemo(Sender).Lines.Clear;
// with ClientDataSet1 do
// begin
// First;
// while not Eof do
// begin
// if FieldByName('SSel').AsBoolean = True then
// begin
// i := i + 1;
// TMemo(Sender).Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString)
// end;
// Next;
// end;
// end;
// end;
// end;
// finally
// frmZDYHelpSel.Free;
// end;
//end;
procedure TfrmTat_WB_InPut.GC_BatchNoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Application.Hint := TEdit(Sender).Name;
end;
end.

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,228 @@
unit U_YarnStkSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseHelp, System.ImageList, Vcl.ImgList,
dxScrollbarAnnotations, cxContainer, dxSkinsCore, dxSkinsDefaultPainters,
cxImageList;
type
TfrmYarnStkSel = class(TfrmBaseHelp)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
cxGridPopupMenu1: TcxGridPopupMenu;
CDS_Main: TClientDataSet;
CDS_HZ: TClientDataSet;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
ToolButton1: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column17: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label3: TLabel;
Label4: TLabel;
Label8: TLabel;
Label2: TLabel;
Y_Name: TEdit;
FromCoName: TEdit;
Y_Spec: TEdit;
BatchNo: TEdit;
v1Column6: TcxGridDBColumn;
ToolButton2: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Y_Code: TEdit;
Label1: TLabel;
Tv1Column9: TcxGridDBColumn;
Label5: TLabel;
Y_ColorNo: TEdit;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
cxImageList_bar: TcxImageList;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure MPRTCodeNameChange(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure SXBatchNOChange(Sender: TObject);
procedure FromCoNameChange(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure ToolButton2Click(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
FstkName, FFY_Code: string;
{ Public declarations }
end;
var
frmYarnStkSel: TfrmYarnStkSel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmYarnStkSel.FormDestroy(Sender: TObject);
begin
inherited;
frmYarnStkSel := nil;
end;
procedure TfrmYarnStkSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmYarnStkSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(' from BS_Yarn_IO A where A.IOFlag=''入库'' and isnull(STkQty,0)>0 ');
// sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
if trim(FFY_Code) <> '' then
sql.Add(' and isnull(Y_Code,'''')=''' + Trim(FFY_Code) + '''');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmYarnStkSel.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmYarnStkSel.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmYarnStkSel.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmYarnStkSel.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption), Tv1, '机物料仓库');
InitGrid();
end;
procedure TfrmYarnStkSel.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
end;
end;
procedure TfrmYarnStkSel.MPRTCodeNameChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmYarnStkSel.N1Click(Sender: TObject);
begin
SelOKNo(CDS_Main, True);
end;
procedure TfrmYarnStkSel.N2Click(Sender: TObject);
begin
SelOKNo(CDS_Main, False);
end;
procedure TfrmYarnStkSel.SXBatchNOChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmYarnStkSel.FromCoNameChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmYarnStkSel.ToolButton1Click(Sender: TObject);
begin
if CDS_Main.IsEmpty then
Exit;
if CDS_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
ModalResult := 1;
end;
procedure TfrmYarnStkSel.ToolButton2Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption), Tv1, '机物料仓库');
end;
procedure TfrmYarnStkSel.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
ModalResult := 1;
end;
end.

View File

@ -70,7 +70,9 @@ uses
U_TatPlanSel2 in '..\E00梭织通用窗体\U_TatPlanSel2.pas' {frmTatPlanSel2},
U_GKInput in 'U_GKInput.pas' {frmGKInput},
U_TatWBPlan in 'U_TatWBPlan.pas' {frmTatWBPlan},
U_WeaveSel in 'U_WeaveSel.pas' {frmWeaveSel};
U_WeaveSel in 'U_WeaveSel.pas' {frmWeaveSel},
U_Tat_WB_InPut in 'U_Tat_WB_InPut.pas' {frmTat_WB_InPut},
U_TatYarnSel in '..\E00梭织通用窗体\U_TatYarnSel.pas' {frmTatYarnSel};
{$R *.res}

View File

@ -300,6 +300,14 @@
<Form>frmWeaveSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_Tat_WB_InPut.pas">
<Form>frmTat_WB_InPut</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\E00梭织通用窗体\U_TatYarnSel.pas">
<Form>frmTatYarnSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

View File

@ -55,6 +55,8 @@
<File Path="..\E00梭织通用窗体\U_TatGYSel.dfm"/>
<File Path="..\E00梭织通用窗体\U_TatPlanSel2.pas"/>
<File Path="..\E00梭织通用窗体\U_TatPlanSel2.dfm"/>
<File Path="..\E00梭织通用窗体\U_TatYarnSel.pas"/>
<File Path="..\E00梭织通用窗体\U_TatYarnSel.dfm"/>
<File Path="D:\Dp10RepoV1"/>
<File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/>
@ -129,17 +131,19 @@
<File Path="U_TatWBPlan.dfm"/>
<File Path="U_WeaveSel.pas"/>
<File Path="U_WeaveSel.dfm"/>
<File Path="U_Tat_WB_InPut.pas"/>
<File Path="U_Tat_WB_InPut.dfm"/>
</ProjectSortOrder>
<Transactions>
<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.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.535,=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.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.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>
@ -148,5 +152,7 @@
<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>2025/08/26 09:25:41.000.108,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlan.pas</Transaction>
<Transaction>2025/08/26 09:28:41.000.024,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WeaveSel.pas</Transaction>
<Transaction>2025/09/10 13:42:50.000.215,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_Tat_WB_InPut.pas</Transaction>
<Transaction>2025/09/11 15:53:10.000.416,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatYarnSel.pas</Transaction>
</Transactions>
</BorlandProject>

View File

@ -1,86 +1,58 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.514,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.935,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.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.099,=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.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.897,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.514,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.935,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.897,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.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.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
<File Path="cloud-messaging.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-base.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-basement.16.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-gass.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-identity.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-maps.16.1.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-stats.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-tasks.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-wallet.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-analytics.16.4.0.dex.jar"/>
<File Path="com-google-firebase.firebase-common.16.1.0.dex.jar"/>
<File Path="com-google-firebase.firebase-iid-interop.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-iid.17.1.1.dex.jar"/>
<File Path="com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-messaging.17.5.0.dex.jar"/>
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10SZKaiXiYa"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>

View File

@ -1,55 +1,27 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
<File Path="cloud-messaging.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-base.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-basement.16.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-gass.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-identity.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-maps.16.1.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-stats.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-tasks.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-wallet.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-analytics.16.4.0.dex.jar"/>
<File Path="com-google-firebase.firebase-common.16.1.0.dex.jar"/>
<File Path="com-google-firebase.firebase-iid-interop.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-iid.17.1.1.dex.jar"/>
<File Path="com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-messaging.17.5.0.dex.jar"/>
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="DbPanel"/>
<File Path="DbPanel\MovePanel.pas"/>
<File Path="delphitwain"/>
<File Path="delphitwain\DelphiTwain.pas"/>
<File Path="delphitwain\DelphiTwainUtils.pas"/>
<File Path="delphitwain\Twain.pas"/>
<File Path="AES.pas"/>
<File Path="ElAES.pas"/>
<File Path="JDAESExtend.pas"/>
<File Path="logon.pas"/>
<File Path="logon.dfm"/>
<File Path="spmain.pas"/>
<File Path="spmain.dfm"/>
<File Path="U_iniParam.pas"/>
<File Path="U_Link.pas"/>
<File Path="U_Link.dfm"/>
<File Path="delphitwain"/>
<File Path="delphitwain\DelphiTwain.pas"/>
<File Path="delphitwain\DelphiTwainUtils.pas"/>
<File Path="delphitwain\Twain.pas"/>
<File Path="DbPanel"/>
<File Path="DbPanel\MovePanel.pas"/>
<File Path="AES.pas"/>
<File Path="ElAES.pas"/>
<File Path="U_upPassword.pas"/>
<File Path="U_upPassword.dfm"/>
<File Path="U_Link.pas"/>
<File Path="U_Link.dfm"/>
<File Path="U_iniParam.pas"/>
<File Path="JDAESExtend.pas"/>
</ProjectSortOrder>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj</Transaction>
</Transactions>
</BorlandProject>

View File

@ -190,7 +190,6 @@
</DCCReference>
<DCCReference Include="U_TatClothStkSel.pas">
<Form>frmTatClothStkSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>

View File

@ -43,8 +43,8 @@
<Transaction>1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.862,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsinput.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.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>
@ -53,8 +53,8 @@
<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.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>

View File

@ -38,7 +38,7 @@ uses
dxSkinWXI, ;
dxSkinWXI ;
type
TMyThread = class(TThread)

View File

@ -3,12 +3,12 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Top = 138
Caption = #25104#21697#20986#24211#21015#34920
ClientHeight = 600
ClientWidth = 1544
ClientWidth = 1540
Font.Height = -16
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitWidth = 1560
ExplicitWidth = 1556
ExplicitHeight = 639
PixelsPerInch = 96
TextHeight = 21
@ -16,7 +16,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Tag = 1
Left = 0
Top = 0
Width = 1544
Width = 1540
Height = 30
AutoSize = True
ButtonHeight = 30
@ -95,7 +95,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
object cxPageControl1: TcxPageControl [1]
Left = 0
Top = 30
Width = 1544
Width = 1540
Height = 570
Align = alClient
TabOrder = 3
@ -104,7 +104,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Properties.Style = 5
OnChange = cxPageControl1Change
ClientRectBottom = 570
ClientRectRight = 1544
ClientRectRight = 1540
ClientRectTop = 32
object cxTabSheet1: TcxTabSheet
Caption = ' '#20135#21697#27719#24635#20449#24687' '
@ -112,7 +112,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
object Pnl_F2: TPanel
Left = 0
Top = 0
Width = 1544
Width = 1540
Height = 104
Align = alTop
BevelInner = bvRaised
@ -319,13 +319,12 @@ inherited frmTatClothOutList: TfrmTatClothOutList
object cxGrid2: TcxGrid
Left = 0
Top = 104
Width = 1544
Width = 1540
Height = 434
Align = alClient
BorderStyle = cxcbsNone
PopupMenu = PM_2
TabOrder = 1
ExplicitTop = 102
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -557,13 +556,13 @@ inherited frmTatClothOutList: TfrmTatClothOutList
object Panel6: TPanel
Left = 0
Top = 103
Width = 1544
Width = 1540
Height = 29
Align = alTop
BorderStyle = bsSingle
TabOrder = 0
DesignSize = (
1540
1536
25)
object Label31: TLabel
Left = 35
@ -660,7 +659,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
object Pnl_F1: TPanel
Left = 0
Top = 0
Width = 1544
Width = 1540
Height = 103
Align = alTop
BevelInner = bvRaised
@ -668,8 +667,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitLeft = -3
ExplicitTop = -1
object Label3: TLabel
Left = 226
Top = 11
@ -869,13 +866,12 @@ inherited frmTatClothOutList: TfrmTatClothOutList
object cxGrid1: TcxGrid
Left = 0
Top = 132
Width = 1544
Width = 1540
Height = 406
Align = alClient
BorderStyle = cxcbsNone
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 131
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

View File

@ -92,6 +92,9 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object cxTabSheet1: TcxTabSheet
Caption = ' '#20135#21697#27719#24635#20449#24687' '
ImageIndex = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Pnl_F2: TPanel
Left = 0
Top = 0
@ -501,6 +504,9 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object cxTabSheet2: TcxTabSheet
Caption = ' '#20135#21697#26126#32454#20449#24687' '
ImageIndex = 1
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel6: TPanel
Left = 0
Top = 102

View File

@ -29,7 +29,7 @@ uses
dxSkinSharpPlus,
dxSkinWXI,
dxSkinWXI
;
type

View File

@ -94,7 +94,6 @@ inherited frmTatClothStkSel: TfrmTatClothStkSel
Properties.CustomButtons.Buttons = <>
Properties.Style = 5
OnChange = cxPageControl1Change
ExplicitTop = 36
ClientRectBottom = 570
ClientRectRight = 1540
ClientRectTop = 32
@ -112,7 +111,6 @@ inherited frmTatClothStkSel: TfrmTatClothStkSel
Color = clWhite
ParentBackground = False
TabOrder = 0
ExplicitTop = -6
object Label4: TLabel
Left = 244
Top = 10
@ -290,7 +288,6 @@ inherited frmTatClothStkSel: TfrmTatClothStkSel
BorderStyle = cxcbsNone
PopupMenu = PM_2
TabOrder = 1
ExplicitTop = 72
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -299,59 +296,7 @@ inherited frmTatClothStkSel: TfrmTatClothStkSel
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = cxGridDBColumn8
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skSum
Column = cxGridDBColumn11
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn9
end
item
Kind = skSum
Column = cxGridDBColumn10
end
item
Kind = skSum
end
item
Format = #26816#39564#31995#25968'=#.##'
Kind = skAverage
end
item
Format = #25442#31639#31995#25968'=#.##'
Kind = skAverage
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn7
end>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
@ -364,17 +309,9 @@ inherited frmTatClothStkSel: TfrmTatClothStkSel
HeaderAlignmentHorz = taCenter
Width = 60
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object cxGridDBColumn13: TcxGridDBColumn
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
object TV2ConNo: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -395,7 +332,7 @@ inherited frmTatClothStkSel: TfrmTatClothStkSel
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
Width = 84
end
object TV2Column1: TcxGridDBColumn
Caption = #20135#21697#32534#21495
@ -461,30 +398,6 @@ inherited frmTatClothStkSel: TfrmTatClothStkSel
Options.Editing = False
Width = 66
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'SumGrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'SumTare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'SumNetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'SumMeter'
@ -493,22 +406,6 @@ inherited frmTatClothStkSel: TfrmTatClothStkSel
Options.Editing = False
Width = 66
end
object cxGridDBColumn12: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'SumYardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object TV2Column2: TcxGridDBColumn
Caption = #24211#40836
DataBinding.FieldName = 'kl'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
@ -633,7 +530,6 @@ inherited frmTatClothStkSel: TfrmTatClothStkSel
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = -1
object Label3: TLabel
Left = 236
Top = 9
@ -862,8 +758,6 @@ inherited frmTatClothStkSel: TfrmTatClothStkSel
BorderStyle = cxcbsNone
PopupMenu = PM_1
TabOrder = 2
ExplicitLeft = -128
ExplicitTop = 108
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

View File

@ -29,7 +29,7 @@ uses
dxSkinSharpPlus,
dxSkinWXI,
dxSkinWXI
;
type
@ -93,17 +93,12 @@ type
DS_2: TDataSource;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
TV2ConNo: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
@ -121,7 +116,6 @@ type
PM_2: TPopupMenu;
MenuItem1: TMenuItem;
N2: TMenuItem;
TV2Column2: TcxGridDBColumn;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn;
@ -189,7 +183,7 @@ type
procedure SetStatus();
{ Private declarations }
public
canshu1, FWorkshop: string;
canshu1, FWorkshop , FConSId: string;
{ Public declarations }
end;
@ -255,6 +249,10 @@ begin
WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate2.Date));
WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate2.Date + 1));
end;
if FConSId <> '' then
begin
WSql := WSql + ' and C_Code = (Select C_Code from BS_Contract_Sub where ConSId = ' + QuotedStr(FConSID) + ')';
end;
with ADOQueryMain do
begin
Filtered := False;
@ -381,8 +379,8 @@ end;
procedure TfrmTatClothStkSel.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then
ACanvas.Brush.Color := $B3DEF5;
// if AViewInfo.GridRecord.Values[cxGridDBColumn15.Index] > 100 then
// ACanvas.Brush.Color := $B3DEF5;
end;
procedure TfrmTatClothStkSel.BTNPClick(Sender: TObject);

View File

@ -155,7 +155,6 @@ inherited frmTatDRList: TfrmTatDRList
Height = 237
Align = alClient
TabOrder = 3
ExplicitTop = 129
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -455,7 +454,7 @@ inherited frmTatDRList: TfrmTatDRList
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.TabIndex = 3
Properties.Tabs.Strings = (
#26410#23457#26680
#24050#23457#26680
@ -482,7 +481,6 @@ inherited frmTatDRList: TfrmTatDRList
Height = 222
Align = alBottom
TabOrder = 5
ExplicitTop = 370
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

View File

@ -13,22 +13,7 @@ uses
cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, U_BaseList, dxDateRanges, dxScrollbarAnnotations,
cxContainer, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmTatDRList = class(TfrmBaseList)
@ -325,7 +310,9 @@ begin
if Order_Main.IsEmpty then
Exit;
if cxTabControl1.TabIndex <> 0 then
begin
Exit;
end;
if canshu1 <> '¸ßȨÏÞ' then
begin
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then

View File

@ -7,14 +7,14 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
TextHeight = 16
object ToolBar1: TToolBar
Tag = 1
Left = 0
@ -78,15 +78,16 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ParentColor = False
ParentCtl3D = False
TabOrder = 1
ExplicitTop = 32
object Label1: TLabel
Left = 244
Left = 255
Top = 13
Width = 65
Height = 12
Width = 85
Height = 16
Caption = #20986#24211#31867#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -94,25 +95,25 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object Label12: TLabel
Left = 31
Top = 42
Width = 67
Height = 12
Width = 87
Height = 16
Caption = #22791' '#27880#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 465
Left = 481
Top = 13
Width = 65
Height = 12
Width = 85
Height = 16
Caption = #25910#36135#21333#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -120,65 +121,65 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object Label2: TLabel
Left = 34
Top = 13
Width = 65
Height = 12
Width = 85
Height = 16
Caption = #21457#36135#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label27: TLabel
Left = 688
Left = 713
Top = 12
Width = 65
Height = 15
Width = 80
Height = 19
Caption = #25968#37327#21333#20301#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Height = -16
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 865
Left = 899
Top = 13
Width = 78
Height = 12
Width = 102
Height = 16
Caption = #20986#21040#21512#21516#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 1090
Top = 5
Width = 91
Height = 12
Left = 1121
Top = 12
Width = 119
Height = 16
Caption = #20986#21040#21512#21516#23376#34920#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label5: TLabel
Left = 1090
Top = 31
Width = 91
Height = 12
Left = 1121
Top = 38
Width = 119
Height = 16
Caption = #20986#21040#21512#21516#20027#34920#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
@ -186,11 +187,17 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end
object OutType: TComboBox
Tag = 1
Left = 306
Left = 333
Top = 9
Width = 136
Height = 20
Height = 24
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
Items.Strings = (
#38144#21806#20986#24211
@ -198,40 +205,65 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end
object Note: TEdit
Tag = 1
Left = 96
Left = 112
Top = 40
Width = 984
Height = 18
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
end
object ToCoName: TBtnEditC
Tag = 1
Left = 528
Left = 560
Top = 9
Width = 138
Height = 20
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnBtnUpClick = ToCoNameBtnUpClick
OnBtnDnClick = ToCoNameBtnDnClick
end
object DlyDate: TDateTimePicker
Tag = 1
Left = 96
Left = 112
Top = 9
Width = 132
Height = 20
Height = 24
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009100
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
end
object QtyUnit: TComboBox
Tag = 2
Left = 749
Left = 790
Top = 9
Width = 96
Height = 20
Style = csDropDownList
Height = 24
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 4
Items.Strings = (
'M'
@ -240,29 +272,47 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end
object ToConNo: TBtnEditC
Tag = 1
Left = 942
Left = 993
Top = 9
Width = 138
Height = 20
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
OnBtnUpClick = ToConNoBtnUpClick
OnBtnDnClick = ToConNoBtnDnClick
end
object ToConSId: TBtnEditC
Tag = 1
Left = 1187
Top = 5
Left = 1218
Top = 12
Width = 138
Height = 20
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 6
Visible = False
end
object ToConMId: TBtnEditC
Tag = 1
Left = 1187
Top = 29
Left = 1218
Top = 36
Width = 138
Height = 20
Height = 25
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7
Visible = False
end
@ -275,7 +325,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
ButtonWidth = 107
Caption = 'ToolBar1'
Color = clBtnFace
DisabledImages = DataLink_TatClothStk.ImageList_new32
@ -283,7 +333,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TatClothStk.ImageList_new32
@ -292,7 +342,6 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ParentFont = False
ShowCaptions = True
TabOrder = 2
ExplicitTop = 107
object SelectStk: TToolButton
Left = 0
Top = 0
@ -302,7 +351,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
OnClick = SelectStkClick
end
object ToolButton1: TToolButton
Left = 95
Left = 111
Top = 0
AutoSize = True
Caption = #22686#34892
@ -311,7 +360,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 166
Left = 190
Top = 0
AutoSize = True
Caption = #21024#34892
@ -326,6 +375,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Height = 493
Align = alClient
TabOrder = 3
ExplicitLeft = -8
ExplicitTop = 157
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
@ -399,7 +449,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end
object Tv1Column5: TcxGridDBColumn
Caption = #31561#32423
DataBinding.FieldName = 'Y_Type'
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80

View File

@ -170,6 +170,9 @@ begin
self.ToConNo.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString);
self.ToConMId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConMId').AsString);
self.ToConSId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConSId').AsString);
self.ToCoName.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BuyName').AsString);
self.QtyUnit.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConUnit').AsString);
end;
end;
end;
@ -412,10 +415,17 @@ procedure TfrmTatDRtInPut.SelectStkClick(Sender: TObject);
var
FConMainId, FMPRTCode: string;
begin
if ToConNo.Text = '' then
begin
Application.MessageBox('请先选择出到合同号!', '提示信息', MB_OK);
ToConNo.SetFocus;
exit;
end;
try
frmTatClothStkSel := TfrmTatClothStkSel.Create(Application);
with frmTatClothStkSel do
begin
FConSId := ToConSId.Text;
if ShowModal = 1 then
begin
while CDS_2.locate('SSel', true, []) do
@ -430,7 +440,7 @@ begin
FieldByName('C_Code').Value := frmTatClothStkSel.CDS_2.fieldbyname('C_Code').Value;
FieldByName('C_Name').Value := frmTatClothStkSel.CDS_2.fieldbyname('C_Name').Value;
FieldByName('C_Color').Value := frmTatClothStkSel.CDS_2.fieldbyname('C_Color').Value;
FieldByName('Y_Type').Value := frmTatClothStkSel.CDS_2.fieldbyname('Grade').Value;
FieldByName('Grade').Value := frmTatClothStkSel.CDS_2.fieldbyname('Grade').Value;
FieldByName('BatchNo').Value := frmTatClothStkSel.CDS_2.fieldbyname('BatchNo').Value;
end;
CDS_2.Edit;
@ -463,6 +473,7 @@ begin
begin
self.ToCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.ToCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;

View File

@ -69,52 +69,59 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
ExplicitTop = 32
object Label1: TLabel
Left = 18
Top = 15
Width = 36
Height = 12
Width = 48
Height = 16
Caption = #21512#21516#21495
end
object Label2: TLabel
Left = 450
Left = 464
Top = 15
Width = 48
Height = 12
Width = 64
Height = 16
Caption = #20135#21697#21517#31216
end
object Label3: TLabel
Left = 242
Left = 252
Top = 15
Width = 24
Height = 12
Width = 32
Height = 16
Caption = #23458#25143
end
object ConNo: TEdit
Tag = 2
Left = 60
Left = 70
Top = 11
Width = 169
Height = 20
Height = 24
TabOrder = 0
OnChange = ConNoChange
end
object C_Name: TEdit
Tag = 2
Left = 500
Left = 532
Top = 11
Width = 169
Height = 20
Height = 24
TabOrder = 1
OnChange = ConNoChange
end
object BuyName: TEdit
Tag = 2
Left = 272
Left = 286
Top = 11
Width = 169
Height = 20
Height = 24
TabOrder = 2
OnChange = ConNoChange
end
@ -126,8 +133,15 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
Height = 448
Align = alClient
BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 116
object TV1: TcxGridDBTableView
OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <>

View File

@ -183,16 +183,16 @@ begin
// begin
// sql.Add(' and isnull(B.ISXT,''0'')=''2''');
//
// case cxTabControl1.TabIndex of
// 0:
// begin
// sql.Add('and not EXISTS (select * from Tat_Plan_Sub X where X.ConSId =B.ConSId) ');
// end;
// 1:
// begin
// sql.Add('and EXISTS (select * from Tat_Plan_Sub X where X.ConSId =B.ConSId) ');
// end;
// end;
case cxTabControl1.TabIndex of
0:
begin
sql.Add('and not EXISTS (select * from Tat_Plan_Sub X where X.ConSId =B.ConSId) ');
end;
1:
begin
sql.Add('and EXISTS (select * from Tat_Plan_Sub X where X.ConSId =B.ConSId) ');
end;
end;
// end;
// if trim(fconNo) <> '' then

View File

@ -1,114 +1,114 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<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.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.679,D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInImport.pas=D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.323,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutList.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.252,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.679,D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInImport.dfm=D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.379,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T02贸易汇总仓库\U_testdll.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.656,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.389,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.282,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.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.323,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.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.350,=D:\Dp10RepoV1\项目代码\永亮\T02贸易汇总仓库\U_TradeGreyClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.908,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.252,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.pas=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.656,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.282,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.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.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.473,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.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.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.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.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.929,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.266,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.801,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkList.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.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.929,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.266,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.110,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.246,=D:\Dp10RepoV1\项目代码\D10szYueXiang\T02贸易汇总仓库\U_CollectImport.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.307,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.795,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInList.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.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.336,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeClothOutInspList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.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.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.795,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.713,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.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.889,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeTotallClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.038,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.046,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.549,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.780,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.210,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeTotallClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeGreyClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.549,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInEdit.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.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.473,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.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.780,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.892,=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.478,=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.889,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.029,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.662,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothStkList.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.435,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeGreyClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.679,D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInEdit.dfm=D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInImport.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.224,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkList.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.478,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.029,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.892,=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.662,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutEdit.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.621,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothStkList.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.129,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkSel.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.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.389,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.679,D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInEdit.pas=D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\U_TradeSampleClothInImport.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.033,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutEdit.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.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInEdit.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.722,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.327,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.dfm=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.591,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.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.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.327,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.722,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.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.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>