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

11.12

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2025-11-12 17:32:44 +08:00
parent e7affd1e17
commit f235a5ebd3
68 changed files with 4094 additions and 949 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
A00通用窗体/U_LabelPrint.dfm
View File

@ -108,7 +108,7 @@ inherited frmLabelPrint: TfrmLabelPrint
end
object cbbLab: TcxMRUEdit
Left = 25
Top = 24
Top = 28
ParentFont = False
Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True

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

@ -10,6 +10,7 @@ inherited frmSalesContractCPSel: TfrmSalesContractCPSel
Font.Name = #23435#20307
Position = poScreenCenter
OnClose = FormClose
ExplicitLeft = -689
ExplicitWidth = 1556
ExplicitHeight = 633
PixelsPerInch = 96
@ -128,7 +129,6 @@ inherited frmSalesContractCPSel: TfrmSalesContractCPSel
BorderStyle = cxcbsNone
PopupMenu = PM_1
TabOrder = 2
ExplicitHeight = 476
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -286,6 +286,20 @@ inherited frmSalesContractCPSel: TfrmSalesContractCPSel
Options.Editing = False
Width = 70
end
object TV1C_FinishLatitudeDensity: TcxGridDBColumn
Caption = #32428#23494
DataBinding.FieldName = 'C_FinishLatitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV1C_FinishLongitudeDensity: TcxGridDBColumn
Caption = #32463#23494
DataBinding.FieldName = 'C_FinishLongitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column7: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'

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

@ -73,6 +73,8 @@ type
C_Name: TEdit;
Label3: TLabel;
BuyName: TEdit;
TV1C_FinishLatitudeDensity: TcxGridDBColumn;
TV1C_FinishLongitudeDensity: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
@ -145,8 +147,9 @@ begin
begin
Close;
sql.Clear;
sql.Add('select A.*,B.* from CP_Contract_Main A inner join CP_Contract_SUB B on A.ConMId=B.ConMId ');
sql.Add('select A.*,B.*,C.C_FinishLatitudeDensity,C.C_FinishLongitudeDensity from CP_Contract_Main A inner join CP_Contract_SUB B on A.ConMId=B.ConMId ');
sql.Add(' and isnull(A.status,''0'')=''9''');
sql.Add(' left join Bs_Cloth_Info C on B.C_Code=C.C_Code ');
Open;
end;
// SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));

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

@ -221,8 +221,8 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
Width = 77
end
object TV1Column2: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
Caption = #19979#21333#26085#26399
DataBinding.FieldName = 'ConDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False

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

@ -161,8 +161,8 @@ begin
begin
Close;
sql.Clear;
SQL.add('select ConNo,BuyConNo,max(DlyDate) as DlyDate ,C_Code,C_Name,Y_Code,Y_Name,max(Y_Spec) as Y_Spec,max(Y_Composition) as Y_Composition,max(Y_Color) as Y_Color,TestDenier,Z_Number,FF,ND,sum(SXQty) as SXQty,sum(KCQty) as KCQty from V_HT_SX');
SQL.Add(' GROUP BY ConNo,BuyConNo,C_Code,C_Name,Y_Code,Y_Name,TestDenier,Z_Number,FF,ND');
SQL.add('select ConNo,BuyConNo,max(ConDate) as ConDate,max(DlyDate) as DlyDate,C_Code,C_Name,Y_Code,Y_Name,max(Y_Spec) as Y_Spec,max(Y_Composition) as Y_Composition,max(Y_Color) as Y_Color,TestDenier,Z_Number,FF,ND,sum(SXQty) as SXQty,sum(KCQty) as KCQty ') ;
SQL.Add('from V_HT_SX GROUP BY ConNo,BuyConNo,C_Code,C_Name,Y_Code,Y_Name,TestDenier,Z_Number,FF,ND');
// showmessage(sql.Text);
Open;
end;

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

@ -10,6 +10,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Font.Name = #23435#20307
Position = poScreenCenter
OnClose = FormClose
ExplicitLeft = -634
ExplicitWidth = 1501
ExplicitHeight = 673
PixelsPerInch = 96
@ -253,6 +254,20 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Options.Editing = False
Width = 80
end
object Tv1C_FinishLongitudeDensity: TcxGridDBColumn
Caption = #25104#21697#32463#23494
DataBinding.FieldName = 'C_FinishLongitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1C_FinishLatitudeDensity: TcxGridDBColumn
Caption = #25104#21697#32428#23494
DataBinding.FieldName = 'C_FinishLatitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

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

@ -81,6 +81,8 @@ type
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1C_FinishLatitudeDensity: TcxGridDBColumn;
Tv1C_FinishLongitudeDensity: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);

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

@ -127,6 +127,7 @@ inherited frmWBSpecSel: TfrmWBSpecSel
Height = 484
Align = alClient
TabOrder = 2
ExplicitTop = 80
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -222,7 +223,7 @@ inherited frmWBSpecSel: TfrmWBSpecSel
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #36793#31359#20837#27861
Caption = #36793#32433#24635#26681#25968
DataBinding.FieldName = 'WB_ReedNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@ -230,6 +231,20 @@ inherited frmWBSpecSel: TfrmWBSpecSel
Options.Editing = False
Width = 98
end
object Tv1WB_YarnKCQty: TcxGridDBColumn
Caption = #36793#32433#21333#36793#31576#40831#25968
DataBinding.FieldName = 'WB_YarnKCQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 131
end
object Tv1BCRFQty: TcxGridDBColumn
Caption = #36793#31359#20837#27861
DataBinding.FieldName = 'BCRFQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

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

@ -68,6 +68,8 @@ type
TbAdd: TToolButton;
TbEdit: TToolButton;
TbDelete: TToolButton;
Tv1WB_YarnKCQty: TcxGridDBColumn;
Tv1BCRFQty: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);

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

@ -14,17 +14,17 @@
<Transaction>1899/12/30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.536,=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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.346,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.441,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.337,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
@ -32,7 +32,7 @@
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.pas</Transaction>
@ -57,11 +57,11 @@
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.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.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.082,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas</Transaction>

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

@ -427,38 +427,37 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Options.Editing = False
Width = 99
end
object Tv1MFDW: TcxGridDBColumn
Caption = #38376#24133#21333#20301
DataBinding.FieldName = 'MFDW'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column3: TcxGridDBColumn
Caption = #32463#23494
Caption = #32463#23494'('#26681'/'#33521#23544')'
DataBinding.FieldName = 'C_FinishLongitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
Width = 123
end
object Tv1Column1: TcxGridDBColumn
Caption = #32428#23494
Caption = #32428#23494'('#26681'/'#33521#23544')'
DataBinding.FieldName = 'C_FinishLatitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
Width = 135
end
object Tv1Column2: TcxGridDBColumn
Caption = #29702#35770#24179#26041#20811#37325
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 125
end
object Tv1Column8: TcxGridDBColumn
Caption = #23454#27979#24179#26041#20811#37325
DataBinding.FieldName = 'C_TestGramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 132
end
object Tv1Column17: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
@ -507,14 +506,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Options.Editing = False
Width = 80
end
object Tv1Column19: TcxGridDBColumn
Caption = #29256#26412#32534#21495
DataBinding.FieldName = 'BBNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 96
end
object Tv1Column20: TcxGridDBColumn
Caption = #32455#32553#29575
DataBinding.FieldName = 'ZS'
@ -572,29 +563,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Options.Editing = False
Width = 99
end
object Tv1Column4: TcxGridDBColumn
Caption = #32463#32433
DataBinding.FieldName = 'JinSha'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column10: TcxGridDBColumn
Caption = #32428#32433
DataBinding.FieldName = 'WeiSha'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column12: TcxGridDBColumn
Caption = #26377#26080#29983#25104#24037#33402#21333
DataBinding.FieldName = 'isgyd'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@ -767,7 +735,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Height = 337
Align = alClient
TabOrder = 1
ExplicitLeft = 4
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -1146,6 +1113,10 @@ inherited frmTatClothInfo: TfrmTatClothInfo
end
end
end
inherited loadProcess: TPanel
Top = 171
ExplicitTop = 171
end
inherited cxProgressBar2: TcxProgressBar
Top = 222
ExplicitTop = 222

10
A02基础产品管理/U_TatClothInfo.pas
View File

@ -140,7 +140,6 @@ type
v2Column6: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Tv1Column2: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
@ -172,15 +171,11 @@ type
Label5: TLabel;
C_TestGramWeight: TcxTextEdit;
Tv4Column12: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
DBRichEdit1: TDBRichEdit;
ADOQueryFJ: TADOQuery;
Tv1Column21: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv4Z_Number: TcxGridDBColumn;
TV2Z_Number: TcxGridDBColumn;
cxDBImage2: TcxDBImage;
@ -195,6 +190,7 @@ type
TV2YarnFactor: TcxGridDBColumn;
TV2MeterQty: TcxGridDBColumn;
TV2NOTE: TcxGridDBColumn;
Tv1MFDW: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
@ -978,8 +974,8 @@ end;
procedure TfrmTatClothInfo.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if (AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('IsGYD').Index]) = 'ÒÑÉú³É' then
ACanvas.Brush.Color := $0080FF80;
// if (AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('IsGYD').Index]) = '已生成' then
// ACanvas.Brush.Color := $0080FF80;
end;
procedure TfrmTatClothInfo.Tv1DblClick(Sender: TObject);

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

@ -9,6 +9,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Height = -16
OldCreateOrder = True
Position = poScreenCenter
ExplicitLeft = -273
ExplicitWidth = 1556
ExplicitHeight = 776
PixelsPerInch = 96
@ -82,6 +83,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
ParentCtl3D = False
ParentFont = False
TabOrder = 1
ExplicitTop = 36
object Label1: TLabel
Left = 10
Top = 26
@ -305,7 +307,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
end
object Label23: TLabel
Left = 921
Top = 177
Top = 176
Width = 48
Height = 21
Caption = #31576#40831#25968
@ -333,9 +335,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object Label26: TLabel
Left = 687
Top = 213
Width = 64
Width = 80
Height = 21
Caption = #36793#31359#20837#27861
Caption = #36793#32433#24635#26681#25968
end
object Label27: TLabel
Left = 10
@ -413,9 +415,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object Label32: TLabel
Left = 921
Top = 136
Width = 48
Width = 72
Height = 21
Caption = #32455#32553#29575
Caption = #32455#32553#29575'(%)'
end
object Label33: TLabel
Left = 1087
@ -443,6 +445,98 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Style = []
ParentFont = False
end
object Label35: TLabel
Left = 1153
Top = 215
Width = 112
Height = 21
Caption = #36793#32433#21333#36793#31576#40831#25968
end
object Label36: TLabel
Left = 1153
Top = 176
Width = 64
Height = 21
Caption = #36793#31359#20837#27861
end
object Label38: TLabel
Left = 600
Top = 176
Width = 64
Height = 21
Caption = #40831'/2'#33521#23544
Font.Charset = ANSI_CHARSET
Font.Color = clHighlight
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label39: TLabel
Left = 1375
Top = 176
Width = 32
Height = 21
Caption = #31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clHighlight
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label40: TLabel
Left = 272
Top = 213
Width = 16
Height = 21
Caption = #26681
Font.Charset = ANSI_CHARSET
Font.Color = clHighlight
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label41: TLabel
Left = 600
Top = 212
Width = 55
Height = 21
Caption = #26681'/'#31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clHighlight
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label42: TLabel
Left = 1375
Top = 215
Width = 55
Height = 21
Caption = #26681'/'#31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clHighlight
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label43: TLabel
Left = 1087
Top = 176
Width = 32
Height = 21
Caption = #31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clHighlight
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object BCIID: TEdit
Left = 193
Top = 417
@ -531,6 +625,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 986
Top = 97
ParentColor = True
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
TabOrder = 8
OnExit = C_ReedWidthExit
Width = 95
@ -654,6 +749,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 765
Top = 172
ParentColor = True
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
TabOrder = 21
OnExit = C_ReedWidthExit
Width = 76
@ -664,7 +760,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Top = 173
ParentColor = True
TabOrder = 22
Width = 150
Width = 95
end
object BSQTY: TcxTextEdit
Tag = 2
@ -747,13 +843,30 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
end
object ZS: TcxTextEdit
Tag = 2
Left = 986
Left = 1000
Top = 132
ParentColor = True
Properties.OnEditValueChanged = TV1Column10PropertiesEditValueChanged
TabOrder = 32
Width = 150
end
object WB_YarnKCQty: TcxTextEdit
Tag = 2
Left = 1274
Top = 211
ParentColor = True
TabOrder = 33
Width = 95
end
object BCRFQty: TcxTextEdit
Tag = 2
Left = 1274
Top = 176
ParentColor = True
Properties.OnEditValueChanged = TV1Column10PropertiesEditValueChanged
TabOrder = 34
Width = 95
end
end
object cxPageControl3: TcxPageControl [2]
Left = 0
@ -833,6 +946,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Align = alClient
PopupMenu = PM_1
TabOrder = 1
ExplicitLeft = -2
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -969,6 +1083,12 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
HeaderAlignmentHorz = taCenter
Width = 100
end
object TV1Column3: TcxGridDBColumn
Caption = #32433#32447#25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
Visible = False
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV1
@ -1158,7 +1278,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
DataBinding.FieldName = 'Y_Loss'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
@ -1176,6 +1295,12 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2Column3: TcxGridDBColumn
Caption = #32433#32447#25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
Visible = False
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2

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

@ -178,6 +178,18 @@ type
Tv2YarnFactor: TcxGridDBColumn;
Label33: TLabel;
Label34: TLabel;
TV1Column3: TcxGridDBColumn;
Tv2Column3: TcxGridDBColumn;
Label35: TLabel;
Label36: TLabel;
WB_YarnKCQty: TcxTextEdit;
BCRFQty: TcxTextEdit;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
@ -224,6 +236,7 @@ type
{ Private declarations }
public
FBCIID, FCTID, JSGG, WSGG, FC_Spec: string;
WSZS, JSZS: string;
CopyInt: Integer;
{ Public declarations }
@ -487,11 +500,11 @@ begin
first;
while not eof do
begin
if Trim(CDS_1.fieldbyname('Y_Name').AsString) <> '' then
if Trim(CDS_1.fieldbyname('Z_Number').AsString) <> '' then
begin
if POS(Trim(CDS_1.fieldbyname('Y_Name').AsString), JSGG) = 0 then
if POS(Trim(CDS_1.fieldbyname('Z_Number').AsString), JSGG) = 0 then
begin
JSGG := JSGG + Trim(CDS_1.fieldbyname('Y_Name').AsString) + '+';
JSGG := JSGG + Trim(CDS_1.fieldbyname('Z_Number').AsString) + '+';
end;
end;
next;
@ -572,11 +585,11 @@ begin
first;
while not eof do
begin
if Trim(CDS_2.fieldbyname('Y_Name').AsString) <> '' then
if Trim(CDS_2.fieldbyname('Z_Number').AsString) <> '' then
begin
if POS(Trim(CDS_2.fieldbyname('Y_Name').AsString), WSGG) = 0 then
if POS(Trim(CDS_2.fieldbyname('Z_Number').AsString), WSGG) = 0 then
begin
WSGG := WSGG + Trim(CDS_2.fieldbyname('Y_Name').AsString) + '+';
WSGG := WSGG + Trim(CDS_2.fieldbyname('Z_Number').AsString) + '+';
end;
end;
next;
@ -694,10 +707,12 @@ begin
// C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2));
/////////////生成规格 /////////////
// FC_Spec := '';
// FC_Spec := C_Composition.text + ' (' + JSGG + ')*(' + WSGG + ') ' + C_FinishLongitudeDensity.text + '*' + C_FinishLatitudeDensity.text + ' ' + C_Width.text + MFDW.text;
// C_Spec.text := trim(FC_Spec);
FC_Spec := '';
FC_Spec := C_Composition.text + ' (' + JSGG + ')*(' + WSGG + ') ' + C_FinishLongitudeDensity.text + '*' + C_FinishLatitudeDensity.text + ' ' + C_Width.text + MFDW.text;
FC_Spec := JSGG + 'S*' + WSGG + 'S';
C_Spec.text := trim(FC_Spec);
/////////////生成规格 /////////////
@ -710,6 +725,8 @@ begin
readCxGrid(self.Caption + 'TV22', Tv2, '样品管理');
// readCxGrid(self.Caption + 'TV44', Tv4, '样品管理');
JSZS := '';
WSZS := '';
InitGrid();
JSJS();
@ -1412,67 +1429,67 @@ var
mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, fsh: double;
begin
with CDS_2 do
begin
first;
while not eof do
begin
with CDS_2 do
begin
if FieldByName('YarnQty').Value = null then
begin
GS := 0; //根数
end
else
begin
GS := FieldByName('YarnQty').Value; //根数
end;
if FieldByName('Y_loss').Value = null then
begin
fsh := 0; //损耗
end
else
begin
fsh := FieldByName('Y_loss').Value; //损耗
end;
if FieldByName('CycleYarnQty').Value = null then
begin
ZGS := 0; //循环根数
end
else
begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数
end;
MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅
if FieldByName('Z_Number').Value = null then
begin
DS := 0; //支
end
else
begin
DS := FieldByName('Z_Number').Value; //支数
end;
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
end;
if (ZGS <> 0) and (DS <> 0) then
begin
with CDS_2 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2);
Post;
end;
end;
next;
end;
end;
// with CDS_2 do
// begin
// first;
// while not eof do
// begin
// with CDS_2 do
// begin
//
// if FieldByName('YarnQty').Value = null then
// begin
// GS := 0; //根数
// end
// else
// begin
// GS := FieldByName('YarnQty').Value; //根数
// end;
//
// if FieldByName('Y_loss').Value = null then
// begin
// fsh := 0; //损耗
// end
// else
// begin
// fsh := FieldByName('Y_loss').Value; //损耗
// end;
//
// if FieldByName('CycleYarnQty').Value = null then
// begin
// ZGS := 0; //循环根数
// end
// else
// begin
// ZGS := FieldByName('CycleYarnQty').Value; //循环根数
// end;
//
// MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅
//
// if FieldByName('Z_Number').Value = null then
// begin
// DS := 0; //支
// end
// else
// begin
// DS := FieldByName('Z_Number').Value; //支数
// end;
//
// WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
// end;
// if (ZGS <> 0) and (DS <> 0) then
// begin
// with CDS_2 do
// begin
// Edit;
// FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2);
// Post;
// end;
// end;
// next;
// end;
//
// end;
end;
procedure TfrmTatClothInfoInput.C_ReedWidthPropertiesEditValueChanged(Sender: TObject);
@ -1614,14 +1631,14 @@ begin
CDS_1.First;
while (CDS_1.FieldByName('Y_Code').asString <> '') and (CDS_1.FieldByName('Y_Code').asString <> null) do
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
// mvalue := TcxTextEdit(Sender).EditingText;
// FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
// Edit;
// FieldByName(FFieldName).Value := mvalue;
// Post;
if FieldByName('QFYARNQTY').Value = null then
begin
@ -1665,7 +1682,6 @@ begin
CDS_1.next;
end;
end;
end;
@ -1742,14 +1758,14 @@ var
mYarnFactor: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
// mvalue := TcxTextEdit(Sender).EditingText;
// FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_2 do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
// Edit;
// FieldByName(FFieldName).Value := mvalue;
// Post;
if FieldByName('YarnQty').Value = null then
begin
@ -1872,6 +1888,9 @@ begin
BSQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('BSQTY').AsString);
GKBH.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('GKBH').AsString);
BCRFQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('BCRFQty').AsString);
WB_YarnKCQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnKCQty').AsString);
with ADOQuery1 do
begin
Close;
@ -1903,6 +1922,8 @@ begin
FieldByName('YarnQty').Value := ADOQuery1.fieldbyname('YarnQty').Value;
FieldByName('CycleYarnQty').Value := ADOQuery1.fieldbyname('CycleYarnQty').Value;
FieldByName('YarnFactor').Value := ADOQuery1.fieldbyname('YarnFactor').Value;
FieldByName('TestDenier').Value := ADOQuery1.fieldbyname('Denier').Value;
FieldByName('Z_Number').Value := ADOQuery1.fieldbyname('ZS').Value;

40
A05基础资料管理/BaseInfo.dproj.local
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\E02梭织经轴仓库\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A05基础资料管理\U_GKInput.dfm</Transaction>
<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.144,=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas</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.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.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.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.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.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.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm</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.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.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>
<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>
</Transactions>
</BorlandProject>

BIN
A05基础资料管理/BaseInfo.identcache
View File

Binary file not shown.

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

@ -1,87 +1,87 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.092,=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.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.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.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.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.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.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.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.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.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\U_finishSalesConInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.284,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractCPSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\U_finishSalesConInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>

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

Binary file not shown.

62
B01基础合同管理/U_HTImport.dfm
View File

@ -3,12 +3,13 @@ inherited frmHTImport: TfrmHTImport
Top = 138
Caption = #26679#21697#23548#20837
ClientHeight = 562
ClientWidth = 1484
ClientWidth = 1532
Font.Charset = ANSI_CHARSET
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Position = poMainFormCenter
ExplicitWidth = 1500
ExplicitLeft = -664
ExplicitWidth = 1548
ExplicitHeight = 601
PixelsPerInch = 107
TextHeight = 21
@ -16,7 +17,7 @@ inherited frmHTImport: TfrmHTImport
Tag = 1
Left = 0
Top = 0
Width = 1484
Width = 1532
Height = 30
AutoSize = True
ButtonHeight = 30
@ -79,7 +80,7 @@ inherited frmHTImport: TfrmHTImport
object cxGrid2: TcxGrid [1]
Left = 0
Top = 30
Width = 1484
Width = 1532
Height = 532
Align = alClient
BorderStyle = cxcbsNone
@ -223,11 +224,11 @@ inherited frmHTImport: TfrmHTImport
Width = 71
end
object TV1C_WidthUnit: TcxGridDBColumn
Caption = #38376#24133#21333#20301
Caption = #26377#25928#38376#24133'('#33521#23544')'
DataBinding.FieldName = 'C_WidthUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Width = 149
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
@ -252,6 +253,55 @@ inherited frmHTImport: TfrmHTImport
Options.Editing = False
Width = 58
end
object TV1CShaZhi: TcxGridDBColumn
Caption = #32433#25903
DataBinding.FieldName = 'ShaZhi'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1C_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1SampleTime: TcxGridDBColumn
Caption = #26631#26679#26102#38388
DataBinding.FieldName = 'SampleTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object TV1ConPrice: TcxGridDBColumn
Caption = #21333#20215'('#26410#31246')'
DataBinding.FieldName = 'ConPrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 125
end
object TV1Currency: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 75
end
object TV1ConTotalAmount: TcxGridDBColumn
Caption = #37329#39069'('#19981#21547#31246')'
DataBinding.FieldName = 'ConTotalAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 125
end
object TV1C_GramWeight: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV1

7
B01基础合同管理/U_HTImport.pas
View File

@ -53,6 +53,13 @@ type
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
TV1Column4: TcxGridDBColumn;
TV1CShaZhi: TcxGridDBColumn;
TV1C_Color: TcxGridDBColumn;
TV1SampleTime: TcxGridDBColumn;
TV1ConPrice: TcxGridDBColumn;
TV1Currency: TcxGridDBColumn;
TV1ConTotalAmount: TcxGridDBColumn;
TV1C_GramWeight: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);

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

@ -10,6 +10,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
ExplicitLeft = -589
ExplicitWidth = 1522
ExplicitHeight = 787
PixelsPerInch = 96
@ -70,7 +71,6 @@ inherited frmSalesConInPut: TfrmSalesConInPut
ParentColor = False
ParentCtl3D = False
TabOrder = 1
ExplicitTop = 24
object Label3: TLabel
Left = 330
Top = 118
@ -315,6 +315,20 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Height = 21
Caption = #38134#34892#20195#30721#65306
end
object Label33: TLabel
Left = 940
Top = 157
Width = 112
Height = 21
Caption = #26816#39564#21512#26684#20998#25968#65306
end
object Label35: TLabel
Left = 940
Top = 121
Width = 80
Height = 21
Caption = #26816#39564#26631#20934#65306
end
object ConNo: TcxTextEdit
Tag = 2
Left = 114
@ -737,6 +751,29 @@ inherited frmSalesConInPut: TfrmSalesConInPut
OnKeyPress = ExchangeRateKeyPress
Width = 200
end
object InspScore: TcxTextEdit
Tag = 2
Left = 1047
Top = 149
TabOrder = 36
Width = 200
end
object InspStandard: TcxButtonEdit
Tag = 2
Left = 1047
Top = 114
Hint = 'InspStandard/'#26816#39564#26631#20934
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = InspStandardPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 37
Width = 200
end
end
object ToolBar2: TToolBar [2]
Tag = 1
@ -863,9 +900,10 @@ inherited frmSalesConInPut: TfrmSalesConInPut
DataBinding.FieldName = 'SerialNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
SortIndex = 0
SortOrder = soAscending
Width = 48
Width = 54
end
object VC_SCSCode: TcxGridDBColumn
Caption = #20135#21697#32534#21495
@ -877,7 +915,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.ReadOnly = True
Properties.OnButtonClick = v1Column10PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 79
@ -887,6 +925,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 89
end
object v1Column5: TcxGridDBColumn
@ -894,6 +933,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object v1Column1: TcxGridDBColumn
@ -901,6 +941,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object Tv1Column5: TcxGridDBColumn
@ -908,6 +949,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column8: TcxGridDBColumn
@ -915,6 +957,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 57
end
object Tv1Column8: TcxGridDBColumn
@ -931,22 +974,36 @@ inherited frmSalesConInPut: TfrmSalesConInPut
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv1C_FinishLongitudeDensity: TcxGridDBColumn
Caption = #32463#23494
DataBinding.FieldName = 'C_FinishLongitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1C_FinishLatitudeDensity: TcxGridDBColumn
Caption = #32428#23494
DataBinding.FieldName = 'C_FinishLatitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column6: TcxGridDBColumn
Caption = #38376#24133
Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
Width = 97
end
object v1Column7: TcxGridDBColumn
Caption = #20811#37325
Caption = #22383#24067#20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
Width = 89
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
Caption = #22383#24067#25968#37327
DataBinding.FieldName = 'ConQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
@ -954,7 +1011,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Properties.DecimalPlaces = 0
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
Width = 94
end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
@ -1091,7 +1148,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Width = 70
end
object Tv1Column12: TcxGridDBColumn
Caption = #25237#22383#31995#25968'%'
Caption = #25237#22383#31995#25968
DataBinding.FieldName = 'CP_TPXS'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
@ -1099,7 +1156,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Properties.DisplayFormat = '0.00'
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
Width = 106
end
end
object cxGrid1Level1: TcxGridLevel
@ -1122,9 +1179,9 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 1015
Top = 170
DesignInfo = 11142135
Left = 1231
Top = 18
DesignInfo = 1180879
end
object ADOTemp: TADOQuery
Connection = DataLink_Contract.ADOLink

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

@ -143,6 +143,12 @@ type
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1C_FinishLongitudeDensity: TcxGridDBColumn;
Tv1C_FinishLatitudeDensity: TcxGridDBColumn;
Label33: TLabel;
Label35: TLabel;
InspScore: TcxTextEdit;
InspStandard: TcxButtonEdit;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -175,6 +181,8 @@ type
procedure ToolButton5Click(Sender: TObject);
procedure CurrencyPropertiesChange(Sender: TObject);
procedure Tv1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure InspStandardPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
private
FLeft, FTop: Integer;
fuserName, Fstatus: string;
@ -286,6 +294,31 @@ begin
end;
end;
procedure TfrmSalesConInPut.InspStandardPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TcxButtonEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
MainType := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmSalesConInPut.JSMoney();
var
FConQty, FConPrice, FC_Money: Double;
@ -826,7 +859,7 @@ begin
if mCP_QTY <> 0 then
begin
FConQty := RoundFloat((mCP_TPXS + 1) * mCP_QTY, 0);
FConQty := RoundFloat(mCP_TPXS * mCP_QTY, 0);
end;
FC_Money := RoundFloat(FConQty * FConPrice, 2);
@ -1139,6 +1172,11 @@ begin
Order_Sub.fieldbyname('CP_Name').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Name').asstring;
Order_Sub.fieldbyname('FROMCPSID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CONSID').asstring;
Order_Sub.fieldbyname('FROMCPMID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CONMID').asstring;
Order_Sub.fieldbyname('C_Width').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Width').asstring;
Order_Sub.fieldbyname('C_GramWeight').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_GramWeight').asstring;
Order_Sub.fieldbyname('C_FinishLongitudeDensity').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_FinishLongitudeDensity').asstring;
Order_Sub.fieldbyname('C_FinishLatitudeDensity').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_FinishLatitudeDensity').asstring;
Order_Sub.fieldbyname('ConUnit').Value := 'M';
FieldByName('SSEL').Value := FALSE;
@ -1151,6 +1189,7 @@ begin
close;
SQL.Clear;
SQL.Add(' select top(1) * from BS_Contract_Sub where CP_Code = ' + QuotedStr(Trim(Order_Sub.fieldbyname('CP_Code').AsString)));
// ShowMessage(sql.Text);
Open;
end;
Order_Sub.fieldbyname('C_Code').Value := ADOQueryCmd.FieldByName('C_Code').Value;
@ -1161,6 +1200,10 @@ begin
Order_Sub.fieldbyname('C_ColorNo').Value := ADOQueryCmd.FieldByName('C_ColorNo').Value;
Order_Sub.fieldbyname('C_Pattern').Value := ADOQueryCmd.FieldByName('C_Pattern').Value;
Order_Sub.fieldbyname('C_StyleNo').Value := ADOQueryCmd.FieldByName('C_StyleNo').Value;
// Order_Sub.fieldbyname('C_FinishLatitudeDensity').Value := ADOQueryCmd.FieldByName('C_FinishLatitudeDensity').Value;
// Order_Sub.fieldbyname('C_FinishLongitudeDensity').Value := ADOQueryCmd.FieldByName('C_FinishLongitudeDensity').Value;
end;
Next;
i := i + 1;
@ -1448,10 +1491,15 @@ begin
Order_Sub.fieldbyname('C_Pattern').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Pattern').asstring;
Order_Sub.fieldbyname('C_StyleNo').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_StyleNo').asstring;
Order_Sub.fieldbyname('C_Width').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_ReedWidth').asstring;
Order_Sub.fieldbyname('C_Width').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Width').asstring;
Order_Sub.fieldbyname('C_GramWeight').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_GramWeight').asstring;
Order_Sub.fieldbyname('AttName').Value := frmTatClothInfoSel.CDS_1.fieldbyname('AttName').asstring;
Order_Sub.fieldbyname('C_FinishLatitudeDensity').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_FinishLatitudeDensity').asstring;
Order_Sub.fieldbyname('C_FinishLongitudeDensity').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_FinishLongitudeDensity').asstring;
Order_Sub.Post;
end;
free;

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

@ -7,6 +7,7 @@ inherited frmSalesContractList: TfrmSalesContractList
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
ExplicitLeft = -689
ExplicitWidth = 1556
ExplicitHeight = 810
PixelsPerInch = 96
@ -186,6 +187,7 @@ inherited frmSalesContractList: TfrmSalesContractList
Align = alClient
PopupMenu = pm1
TabOrder = 3
ExplicitTop = 159
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -325,7 +327,9 @@ inherited frmSalesContractList: TfrmSalesContractList
object v1Column10: TcxGridDBColumn
DataBinding.FieldName = 'status'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column12: TcxGridDBColumn
Caption = #21512#21516#38468#20214
@ -351,6 +355,7 @@ inherited frmSalesContractList: TfrmSalesContractList
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv1Column3: TcxGridDBColumn
Caption = #36215#36816#28207
@ -449,6 +454,20 @@ inherited frmSalesContractList: TfrmSalesContractList
Options.Editing = False
Width = 100
end
object Tv1InspStandard: TcxGridDBColumn
Caption = #26816#39564#26631#20934
DataBinding.FieldName = 'InspStandard'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1InspScore: TcxGridDBColumn
Caption = #26816#39564#21512#26684#20998#25968
DataBinding.FieldName = 'InspScore'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 105
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@ -567,7 +586,7 @@ inherited frmSalesContractList: TfrmSalesContractList
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 11
Properties.TabIndex = 4
Properties.TabIndex = 2
Properties.Tabs.Strings = (
#26410#25552#20132
#24050#25552#20132
@ -737,8 +756,22 @@ inherited frmSalesContractList: TfrmSalesContractList
Options.Editing = False
Width = 70
end
object TV2C_FinishLongitudeDensity: TcxGridDBColumn
Caption = #32463#23494
DataBinding.FieldName = 'C_FinishLongitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2C_FinishLatitudeDensity: TcxGridDBColumn
Caption = #32428#23494
DataBinding.FieldName = 'C_FinishLatitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column6: TcxGridDBColumn
Caption = #38376#24133
Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
@ -749,10 +782,10 @@ inherited frmSalesContractList: TfrmSalesContractList
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
Width = 95
end
object v1Column7: TcxGridDBColumn
Caption = #20811#37325
Caption = #22383#24067#20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
@ -763,16 +796,16 @@ inherited frmSalesContractList: TfrmSalesContractList
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
Width = 91
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
Caption = #22383#24067#25968#37327
DataBinding.FieldName = 'ConQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
Width = 87
end
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301

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

@ -129,6 +129,10 @@ type
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Order_Sub: TClientDataSet;
TV2C_FinishLatitudeDensity: TcxGridDBColumn;
TV2C_FinishLongitudeDensity: TcxGridDBColumn;
Tv1InspStandard: TcxGridDBColumn;
Tv1InspScore: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -457,7 +461,7 @@ begin
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'SalesConPrint';
FLMType := 'PBSalesConPrint';
FFiltration1 := QuotedStr(Trim(Self.CDS_1.fieldbyname('ConMID').AsString));
if ShowModal = 1 then
begin

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

@ -2,12 +2,12 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Left = 154
Top = 76
Caption = #29983#20135#25237#26009#35745#31639#34920
ClientHeight = 637
ClientHeight = 649
ClientWidth = 1540
Font.Height = -16
Position = poScreenCenter
ExplicitWidth = 1556
ExplicitHeight = 676
ExplicitHeight = 688
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
@ -150,14 +150,14 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Left = 0
Top = 121
Width = 1540
Height = 516
Height = 317
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 4
ExplicitTop = 127
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -274,6 +274,418 @@ inherited frmSCTLLIST: TfrmSCTLLIST
GridView = Tv1
end
end
object cxPageControl3: TcxPageControl [5]
Left = 0
Top = 438
Width = 1540
Height = 211
Align = alBottom
TabOrder = 5
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
ClientRectBottom = 211
ClientRectRight = 1540
ClientRectTop = 28
object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512
ImageIndex = 0
object GroupBox1: TGroupBox
Left = 931
Top = 0
Width = 609
Height = 183
Align = alRight
Caption = #32463#25490#21015
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
Visible = False
object Y_Note_PLJ: TMemo
Tag = 2
Left = 2
Top = 31
Width = 605
Height = 150
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 931
Height = 183
Align = alClient
TabOrder = 1
object cxPageControl2: TcxPageControl
Left = 1
Top = 1
Width = 929
Height = 181
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 0
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ClientRectBottom = 181
ClientRectRight = 929
ClientRectTop = 0
end
object cxGrid2: TcxGrid
Left = 1
Top = 1
Width = 929
Height = 181
Align = alClient
TabOrder = 1
object cxGridDBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = TV1Column8
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object TV1Column7: TcxGridDBColumn
Caption = #34892#21495
DataBinding.FieldName = 'RowNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
Width = 100
end
object TV1Column13: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object TV1Column6: TcxGridDBColumn
Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'TestDenier'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 96
end
object TV1Column14: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'Z_Number'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 71
end
object cxGridDBColumn1: TcxGridDBColumn
Caption = #26681#25968
DataBinding.FieldName = 'YarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1Column2: TcxGridDBColumn
Caption = #24490#29615#26681#25968
DataBinding.FieldName = 'CycleYarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #20840#24133#26681#25968
DataBinding.FieldName = 'QFYARNQTY'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1Column8: TcxGridDBColumn
Caption = #30334#31859#32463#38271#37325#37327'KG'
DataBinding.FieldName = 'MeterQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 163
end
object TV1Column11: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'NOTE'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
end
object cxGridLevel1: TcxGridLevel
GridView = cxGridDBTableView1
end
end
end
end
object cxTabSheet2: TcxTabSheet
Caption = #32428#19997#32452#21512
ImageIndex = 1
object GroupBox2: TGroupBox
Left = 863
Top = 0
Width = 677
Height = 183
Align = alRight
Caption = #32428#25490#21015
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
Visible = False
object Y_Note_PLW: TMemo
Tag = 2
Left = 2
Top = 31
Width = 673
Height = 150
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
end
object Panel3: TPanel
Left = 0
Top = 0
Width = 863
Height = 183
Align = alClient
TabOrder = 1
object cxPageControl1: TcxPageControl
Left = 1
Top = 1
Width = 861
Height = 181
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 0
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ClientRectBottom = 181
ClientRectRight = 861
ClientRectTop = 0
end
object cxGrid3: TcxGrid
Left = 1
Top = 1
Width = 861
Height = 181
Align = alClient
TabOrder = 1
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv2Column8
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv2Column7: TcxGridDBColumn
Caption = #34892#21495
DataBinding.FieldName = 'RowNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v2Column10: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
Width = 100
end
object Tv2Column13: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v2Column6: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv2Column6: TcxGridDBColumn
Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'TestDenier'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 91
end
object Tv2Column14: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'Z_Number'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 88
end
object Tv2Column1: TcxGridDBColumn
Caption = #26681#25968
DataBinding.FieldName = 'YarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2Column2: TcxGridDBColumn
Caption = #24490#29615#26681#25968
DataBinding.FieldName = 'CycleYarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2Column11: TcxGridDBColumn
Caption = #25439#32791
DataBinding.FieldName = 'Y_Loss'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2Column8: TcxGridDBColumn
Caption = #32433#32447#24635#29992#37327'KG'
DataBinding.FieldName = 'allYarn'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 151
end
object Tv2Column12: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGridLevel3: TcxGridLevel
GridView = Tv2
end
end
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Contract.ADOLink
Left = 81
@ -355,4 +767,15 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Left = 296
Top = 448
end
object CDS_3: TClientDataSet
Aggregates = <>
Params = <>
Left = 632
Top = 376
end
object DS_3: TDataSource
DataSet = CDS_3
Left = 712
Top = 384
end
end

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

@ -57,6 +57,49 @@ type
C_CODE: TcxTextEdit;
Label4: TLabel;
Tv1GKBH: TcxGridDBColumn;
cxPageControl3: TcxPageControl;
cxTabSheet1: TcxTabSheet;
GroupBox1: TGroupBox;
Y_Note_PLJ: TMemo;
Panel2: TPanel;
cxPageControl2: TcxPageControl;
cxGrid2: TcxGrid;
cxGridDBTableView1: TcxGridDBTableView;
TV1Column7: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
TV1Column13: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
TV1Column6: TcxGridDBColumn;
TV1Column14: TcxGridDBColumn;
cxGridDBColumn1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
TV1Column8: TcxGridDBColumn;
TV1Column11: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxTabSheet2: TcxTabSheet;
GroupBox2: TGroupBox;
Y_Note_PLW: TMemo;
Panel3: TPanel;
cxPageControl1: TcxPageControl;
cxGrid3: TcxGrid;
Tv2: TcxGridDBTableView;
Tv2Column7: TcxGridDBColumn;
v2Column10: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
Tv2Column13: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
Tv2Column14: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
Tv2Column11: TcxGridDBColumn;
Tv2Column8: TcxGridDBColumn;
Tv2Column12: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
CDS_3: TClientDataSet;
DS_3: TDataSource;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -73,10 +116,12 @@ type
procedure ConNoPropertiesChange(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
private
FInt, PFInt: Integer;
FFMainID, BPFlag: string;
procedure InitGrid();
procedure InitClothYarn(MC_Code: string);
{ Private declarations }
public
canshu1: string;
@ -122,7 +167,7 @@ begin
sql.Add('SELECT * FROM V_CON_TL ');
SQL.Add('WHERE ConDate>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date)));
SQL.Add('and ConDate<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1)));
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
@ -133,6 +178,43 @@ begin
end;
procedure TfrmSCTLLIST.InitClothYarn(MC_Code: string);
var
zsqtyValue: string;
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
sql.Add(' where A.YRType=''¾­Ë¿'' and B.C_Code=''' + Trim(MC_Code) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2);
ClearCDSColumn(CDS_2, ['YRId', 'SubId', 'MainId']);
zsqtyValue := CDS_1.FieldByName('zsqty').AsString;
if zsqtyValue = '' then
zsqtyValue := '0';
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30))');
SQL.Add(' ,allYarn=A.MeterQty*ISNULL(' + zsqtyValue + ',0)/100');
sql.Add(' from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
sql.Add(' where A.YRType=''γ˿'' and B.C_Code=''' + Trim(MC_Code) + '''');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_3);
SInitCDSData(ADOQueryTemp, CDS_3);
ClearCDSColumn(CDS_3, ['YRId', 'SubId', 'MainId']);
end;
procedure TfrmSCTLLIST.N1Click(Sender: TObject);
begin
SelOKNo(cds_1, true)
@ -272,6 +354,15 @@ begin
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmSCTLLIST.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
if CDS_1.IsEmpty then
begin
Exit;
end;
InitClothYarn(CDS_1.FieldByName('C_Code').AsString);
end;
procedure TfrmSCTLLIST.ConNoChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then

129
B01基础合同管理/U_finishSalesConInput.dfm
View File

@ -3,14 +3,15 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Top = 76
Caption = #38144#21806#21512#21516#24405#20837
ClientHeight = 748
ClientWidth = 1518
ClientWidth = 1530
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -16
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
ExplicitWidth = 1534
ExplicitLeft = -679
ExplicitWidth = 1546
ExplicitHeight = 787
PixelsPerInch = 96
TextHeight = 21
@ -18,7 +19,7 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Tag = 1
Left = 0
Top = 0
Width = 1518
Width = 1530
Height = 30
AutoSize = True
ButtonHeight = 30
@ -58,7 +59,7 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
object ScrollBox1: TScrollBox [1]
Left = 0
Top = 30
Width = 1518
Width = 1530
Height = 99
Align = alTop
BevelInner = bvNone
@ -69,8 +70,9 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
ParentColor = False
ParentCtl3D = False
TabOrder = 1
ExplicitTop = 36
object Label3: TLabel
Left = 339
Left = 362
Top = 65
Width = 80
Height = 21
@ -84,7 +86,7 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Caption = #21512#21516#21495#65306
end
object Label14: TLabel
Left = 339
Left = 362
Top = 10
Width = 48
Height = 21
@ -145,6 +147,20 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Height = 21
Caption = #20132#26399#65306
end
object Label2: TLabel
Left = 730
Top = 62
Width = 112
Height = 21
Caption = #26816#39564#21512#26684#20998#25968#65306
end
object Label4: TLabel
Left = 730
Top = 10
Width = 80
Height = 21
Caption = #26816#39564#26631#20934#65306
end
object ConNo: TcxTextEdit
Tag = 2
Left = 114
@ -191,7 +207,7 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
end
object BuyName: TcxButtonEdit
Tag = 2
Left = 412
Left = 435
Top = 7
Properties.Buttons = <
item
@ -199,9 +215,10 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = BuyNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 5
Width = 200
Width = 237
end
object QtyNote: TcxButtonEdit
Tag = 2
@ -221,11 +238,11 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
end
object ConDate: TcxDateEdit
Tag = 2
Left = 412
Left = 435
Top = 59
Properties.ShowTime = False
TabOrder = 7
Width = 200
Width = 237
end
object DlyDate: TcxDateEdit
Tag = 2
@ -235,12 +252,35 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
TabOrder = 8
Width = 200
end
object InspScore: TcxTextEdit
Tag = 2
Left = 835
Top = 59
TabOrder = 9
Width = 237
end
object InspStandard: TcxButtonEdit
Tag = 2
Left = 835
Top = 7
Hint = 'InspStandard/'#26816#39564#26631#20934
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = InspStandardPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 10
Width = 237
end
end
object ToolBar2: TToolBar [2]
Tag = 1
Left = 0
Top = 129
Width = 1518
Width = 1530
Height = 30
AutoSize = True
ButtonHeight = 30
@ -289,13 +329,12 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
object cxGrid1: TcxGrid [3]
Left = 0
Top = 159
Width = 1518
Width = 1530
Height = 589
Align = alClient
BorderStyle = cxcbsNone
PopupMenu = pm_sub
TabOrder = 3
ExplicitTop = 165
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -344,7 +383,6 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Visible = False
HeaderAlignmentHorz = taCenter
Width = 41
end
@ -407,7 +445,7 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Width = 114
end
object Tv1C_WidthUnit: TcxGridDBColumn
Caption = #38376#24133#21333#20301
Caption = #26377#25928#38376#24133'('#33521#23544')'
DataBinding.FieldName = 'C_WidthUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@ -431,9 +469,66 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 151
end
object Tv1ShaZhi: TcxGridDBColumn
Caption = #32433#25903
DataBinding.FieldName = 'ShaZhi'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1C_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1SampleTime: TcxGridDBColumn
Caption = #26631#26679#26102#38388
DataBinding.FieldName = 'SampleTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv1ConPrice: TcxGridDBColumn
Caption = #21333#20215'('#26410#31246')'
DataBinding.FieldName = 'ConPrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 123
end
object Tv1Currency: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'CNY'
'USD'
'EUR'
'VND')
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1ConTotalAmount: TcxGridDBColumn
Caption = #37329#39069'('#19981#21547#31246')'
DataBinding.FieldName = 'ConTotalAmount'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
Width = 120
end
object Tv1C_GramWeight: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@ -456,8 +551,8 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 1015
Top = 170
DesignInfo = 11142135
Top = 218
DesignInfo = 14287863
end
object ADOTemp: TADOQuery
Connection = DataLink_Contract.ADOLink

86
B01基础合同管理/U_finishSalesConInput.pas
View File

@ -75,6 +75,17 @@ type
DlyDate: TcxDateEdit;
Tv1density: TcxGridDBColumn;
Tv1C_WidthUnit: TcxGridDBColumn;
Tv1ShaZhi: TcxGridDBColumn;
Tv1C_Color: TcxGridDBColumn;
Tv1SampleTime: TcxGridDBColumn;
Tv1ConPrice: TcxGridDBColumn;
Tv1Currency: TcxGridDBColumn;
Tv1ConTotalAmount: TcxGridDBColumn;
Tv1C_GramWeight: TcxGridDBColumn;
InspScore: TcxTextEdit;
InspStandard: TcxButtonEdit;
Label2: TLabel;
Label4: TLabel;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
@ -86,6 +97,11 @@ type
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure BuyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure InspStandardPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
private
FLeft, FTop: Integer;
fuserName, Fstatus: string;
@ -159,7 +175,6 @@ begin
end;
procedure TfrmfinishSalesConInput.JSMoney();
var
FConQty, FConPrice, FC_Money: Double;
@ -200,7 +215,6 @@ begin
// raise Exception.Create('颜色不能为空！');
// if Order_Sub.Locate('C_MF', null, []) then
// raise Exception.Create('门幅不能为空！');
// if Order_Sub.Locate('C_MF', '', []) then
@ -364,6 +378,25 @@ begin
SetXH();
end;
procedure TfrmfinishSalesConInput.v1OrderUnitPropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
MainType := 'ConUnit';
if ShowModal = 1 then
begin
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmfinishSalesConInput.TBCloseClick(Sender: TObject);
begin
@ -450,6 +483,31 @@ begin
end;
procedure TfrmfinishSalesConInput.InspStandardPropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TcxButtonEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
MainType := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmfinishSalesConInput.N1Click(Sender: TObject);
var
FValue, FFValue, FColumn, FFColumn, MHXSID: string;
@ -600,6 +658,30 @@ begin
ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
end;
procedure TfrmfinishSalesConInput.BuyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '¿Í»§';
if Self.FAuthority = '¼Èë' then
FAuthority := 'Àíµ¥ÒµÎñ';
if ShowModal = 1 then
begin
self.BuyName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.BuyName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
// self.SalesId.Text := Trim(frmCompanySel.CDS_1.fieldbyname('SalesId').AsString);
// self.Saleser.Text := Trim(frmCompanySel.CDS_1.fieldbyname('Saleser').AsString);
self.TallyId.Text := Trim(frmCompanySel.CDS_1.fieldbyname('TallyId').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmfinishSalesConInput.FormShow(Sender: TObject);
begin
inherited;

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

@ -7,8 +7,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
ExplicitLeft = -689
ExplicitTop = -185
ExplicitWidth = 1556
ExplicitHeight = 810
PixelsPerInch = 96
@ -196,8 +194,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Align = alClient
PopupMenu = pm1
TabOrder = 3
ExplicitLeft = 1
ExplicitTop = 152
ExplicitTop = 163
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -272,6 +269,20 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Visible = False
Width = 70
end
object Tv1InspStandard: TcxGridDBColumn
Caption = #26816#39564#26631#20934
DataBinding.FieldName = 'InspStandard'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1InspScore: TcxGridDBColumn
Caption = #26816#39564#21512#26684#20998#25968
DataBinding.FieldName = 'InspScore'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 134
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@ -288,6 +299,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Color = clWhite
ParentBackground = False
TabOrder = 6
ExplicitTop = 36
object Label4: TLabel
Left = 268
Top = 50
@ -412,7 +424,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
ExplicitTop = 493
end
object Panel2: TPanel [5]
Left = 0
@ -430,8 +441,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Align = alLeft
BorderStyle = cxcbsNone
TabOrder = 0
ExplicitLeft = 0
ExplicitTop = -4
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -544,11 +553,11 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Width = 71
end
object TV2C_WidthUnit: TcxGridDBColumn
Caption = #38376#24133#21333#20301
Caption = #26377#25928#38376#24133'('#33521#23544')'
DataBinding.FieldName = 'C_WidthUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Width = 125
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
@ -573,6 +582,48 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Options.Editing = False
Width = 58
end
object TV2ShaZhi: TcxGridDBColumn
Caption = #32433#25903
DataBinding.FieldName = 'ShaZhi'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2C_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2SampleTime: TcxGridDBColumn
Caption = #26631#26679#26102#38388
DataBinding.FieldName = 'SampleTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object TV2ConPrice: TcxGridDBColumn
Caption = #21333#20215'('#26410#31246')'
DataBinding.FieldName = 'ConPrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object TV2Currency: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2ConTotalAmount: TcxGridDBColumn
Caption = #37329#39069'('#19981#21547#31246')'
DataBinding.FieldName = 'ConTotalAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
@ -585,8 +636,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Height = 268
Align = alClient
TabOrder = 1
ExplicitLeft = 906
ExplicitTop = -4
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

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

@ -106,6 +106,14 @@ type
CDS_3: TClientDataSet;
DS_3: TDataSource;
GPM_3: TcxGridPopupMenu;
TV2ShaZhi: TcxGridDBColumn;
TV2C_Color: TcxGridDBColumn;
TV2SampleTime: TcxGridDBColumn;
TV2ConPrice: TcxGridDBColumn;
TV2Currency: TcxGridDBColumn;
TV2ConTotalAmount: TcxGridDBColumn;
Tv1InspStandard: TcxGridDBColumn;
Tv1InspScore: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -193,10 +201,13 @@ begin
sql.Clear;
sql.Add('select * from CP_Contract_sub A ');
sql.Add('where ConMID =' + quotedstr((CDS_1.fieldbyname('ConMID').AsString)));
// ShowMessage(SQL.Text);
open;
end;
SCreateCDS(ADOQueryTemp, CDS_2);
// showMessage(intTostr(CDS_2.RecordCount));
SInitCDSData(ADOQueryTemp, CDS_2);
// showMessage(intTostr(CDS_2.RecordCount));
TV2.DataController.Filter.Clear;
end;
@ -436,7 +447,7 @@ begin
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'SalesConPrint';
FLMType := 'CPSalesConPrint';
FFiltration1 := QuotedStr(Trim(Self.CDS_1.fieldbyname('ConMID').AsString));
if ShowModal = 1 then
begin
@ -822,7 +833,7 @@ begin
if CDS_2.IsEmpty then
exit;
with ADOQueryTemp do
with ADOQueryCMD do
begin
close;
sql.Clear;
@ -830,8 +841,8 @@ begin
sql.Add('where CP_code =' + quotedstr((CDS_2.fieldbyname('C_Code').AsString)));
open;
end;
SCreateCDS(ADOQueryTemp, CDS_3);
SInitCDSData(ADOQueryTemp, CDS_3);
SCreateCDS(ADOQueryCMD, CDS_3);
SInitCDSData(ADOQueryCMD, CDS_3);
end;

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

@ -77,7 +77,6 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
ParentCtl3D = False
ParentFont = False
TabOrder = 1
ExplicitTop = 36
object Label2: TLabel
Left = 16
Top = 159

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

@ -339,6 +339,12 @@ begin
Exit;
end;
if Trim(YarnFactor.Text) = '' then
begin
Application.MessageBox('纱线系数不能为空!', '提示', 0);
Exit;
end;
if Trim(Denier.Text) <> '' then
begin
if StrToFloatdef(Denier.Text, 0) = 0 then

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

@ -325,6 +325,7 @@ begin
with frmYarnInfoInPut do
begin
FBYIID := '';
YarnFactor.Text := '0.059';
FSTKName := self.FSTKName;
if ShowModal = 1 then
begin

BIN
B03基础物料仓库/ProductStk.identcache
View File

Binary file not shown.

90
B04采购计划管理/PurchasePlan.dproj.local
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.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj</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.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>

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

@ -7,6 +7,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
ExplicitLeft = -513
ExplicitWidth = 1380
ExplicitHeight = 774
PixelsPerInch = 96
@ -711,6 +712,13 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Sorting = False
Width = 90
end
object Tv2TaxRate: TcxGridDBColumn
Caption = #31246#29575
DataBinding.FieldName = 'TaxRate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'

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

@ -116,6 +116,7 @@ type
d: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
Tv2TaxRate: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);

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

@ -483,13 +483,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Caption = #23384#25918#21333#20301#65306
Visible = False
end
object Label2: TLabel
Left = 34
Top = 95
Width = 78
Height = 21
Caption = #31246' '#29575#65306
end
object Label3: TLabel
Left = 1223
Top = 56
@ -634,14 +627,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
OnDblClick = BuyNameDblClick
Width = 200
end
object ShuiLv: TcxTextEdit
Tag = 2
Left = 119
Top = 91
Properties.OnEditValueChanged = ShuiLvPropertiesEditValueChanged
TabOrder = 8
Width = 200
end
end
object cxGrid2: TcxGrid [4]
Left = 1479

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

@ -84,8 +84,6 @@ type
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
Label2: TLabel;
ShuiLv: TcxTextEdit;
ToolButton4: TToolButton;
Tv1Column4: TcxGridDBColumn;
ToolButton5: TToolButton;
@ -122,7 +120,7 @@ type
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure StkNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ShuiLvPropertiesEditValueChanged(Sender: TObject);
// procedure ShuiLvPropertiesEditValueChanged(Sender: TObject);
procedure IsTaxPropertiesChange(Sender: TObject);
procedure Tv1Column12PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton4Click(Sender: TObject);
@ -136,7 +134,7 @@ type
FLeft, FTop: Integer;
fuserName, Fstatus: string;
procedure JSMoney();
procedure JSMoney2();
// procedure JSMoney2();
procedure InitData();
function TestData(): Boolean;
function SaveData(): Boolean;
@ -165,51 +163,51 @@ uses
{$R *.dfm}
procedure TfrmYarnPurchasePlanPut.JSMoney2();
var
FPieceKG, FPiece, FQty, FPrice, FAmount, FPrice2, FAmount2, FSL: Double; //个数，单价，
begin
if Order_Sub.IsEmpty then
exit;
with Order_Sub do
begin
DisableControls;
first;
while not eof do
begin
FPiece := Fieldbyname('Piece').AsFloat;
// FPieceKG := Fieldbyname('PieceKG').AsFloat;
FPrice := Fieldbyname('Price').AsFloat; //含税单价
FSL := StrToFloatdef(ShuiLv.text, 0);
with Order_Sub do
begin
FQty := Fieldbyname('Qty').AsFloat;
FAmount := RoundFloat(FQty * FPrice, 2); //含税金额
FAmount2 := RoundFloat(FQty * FPrice2 * FSL, 2); //不含税金额
with Order_Sub do
begin
Edit;
FieldByName('PieceKG').Value := FPieceKG;
FieldByName('Piece').Value := FPiece;
FieldByName('Qty').Value := FQty;
FieldByName('Price').Value := FPrice;
FieldByName('Amount').Value := FAmount;
FieldByName('Amount2').Value := FAmount2;
Post;
end;
end;
next;
end;
First;
EnableControls;
end;
end;
//procedure TfrmYarnPurchasePlanPut.JSMoney2();
//var
// FPieceKG, FPiece, FQty, FPrice, FAmount, FPrice2, FAmount2, FSL: Double; //个数，单价，
//begin
// if Order_Sub.IsEmpty then
// exit;
// with Order_Sub do
// begin
// DisableControls;
// first;
// while not eof do
// begin
// FPiece := Fieldbyname('Piece').AsFloat;
//// FPieceKG := Fieldbyname('PieceKG').AsFloat;
// FPrice := Fieldbyname('Price').AsFloat; //含税单价
// FSL := StrToFloatdef(ShuiLv.text, 0);
// with Order_Sub do
// begin
// FQty := Fieldbyname('Qty').AsFloat;
//
// FAmount := RoundFloat(FQty * FPrice, 2); //含税金额
// FAmount2 := RoundFloat(FQty * FPrice2 * FSL, 2); //不含税金额
//
//
// with Order_Sub do
// begin
// Edit;
// FieldByName('PieceKG').Value := FPieceKG;
// FieldByName('Piece').Value := FPiece;
// FieldByName('Qty').Value := FQty;
//
// FieldByName('Price').Value := FPrice;
//
// FieldByName('Amount').Value := FAmount;
// FieldByName('Amount2').Value := FAmount2;
// Post;
// end;
// end;
//
// next;
// end;
// First;
// EnableControls;
// end;
//end;
procedure TfrmYarnPurchasePlanPut.SellnameClick(Sender: TObject);
begin
@ -230,7 +228,7 @@ begin
if Trim(frmCompanySel.CDS_1.fieldbyname('Shuilv').AsString) <> '' then
begin
self.Shuilv.text := Trim(frmCompanySel.CDS_1.fieldbyname('Shuilv').AsString);
// self.Shuilv.text := Trim(frmCompanySel.CDS_1.fieldbyname('Shuilv').AsString);
end;
end;
@ -322,10 +320,10 @@ begin
end;
end;
procedure TfrmYarnPurchasePlanPut.ShuiLvPropertiesEditValueChanged(Sender: TObject);
begin
JSMoney2();
end;
//procedure TfrmYarnPurchasePlanPut.ShuiLvPropertiesEditValueChanged(Sender: TObject);
//begin
// JSMoney2();
//end;
procedure TfrmYarnPurchasePlanPut.StkNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
@ -444,7 +442,7 @@ begin
PurDate.Date := SGetServerDateTime(ADOTemp);
// DlyDate.Date := PurDate.Date;
PurNo.Text := '×Ô¶¯Éú³É';
Shuilv.text := '0.96';
// Shuilv.text := '0.96';
end;
if PState = '¸´ÖÆ' then
@ -479,7 +477,8 @@ begin
// if IsTax.text = 'ÊÇ' then
// begin
ShuiLv.text := FloatToStr(FShuilv);
// ShuiLv.text := FloatToStr(FShuilv);
Order_Sub.FieldByName('TaxRate').AsString := FloatToStr(FShuilv);
// end
// else
// begin

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

@ -46,7 +46,8 @@ uses
U_TatPlanSel in '..\E00梭织通用窗体\U_TatPlanSel.pas' {frmTatPlanSel},
U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload},
U_GKManageSel in '..\A02基础产品管理\U_GKManageSel.pas' {frmGKManageSel},
U_GKInput in 'U_GKInput.pas' {frmGKInput};
U_GKInput in 'U_GKInput.pas' {frmGKInput},
U_YarnStkSel in 'U_YarnStkSel.pas' {frmYarnStkSel};
{$R *.res}

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

@ -218,6 +218,10 @@
<Form>frmGKInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_YarnStkSel.pas">
<Form>frmYarnStkSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

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

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

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

Binary file not shown.

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

@ -140,7 +140,7 @@ begin
end;
end;
111: //坯布生产计划单
111: //툰꼈<EFBFBD>끓셕뺍데 （廉芚데）
begin
with TfrmTatPlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin

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

@ -6,14 +6,14 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
ClientWidth = 1540
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -16
Font.Height = -13
Position = poScreenCenter
WindowState = wsMaximized
ExplicitLeft = -689
ExplicitLeft = -674
ExplicitWidth = 1556
ExplicitHeight = 884
PixelsPerInch = 96
TextHeight = 21
TextHeight = 19
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
@ -73,60 +73,61 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Ctl3D = False
ParentCtl3D = False
TabOrder = 1
ExplicitTop = 24
object Label2: TLabel
Left = 922
Top = 5
Width = 64
Height = 21
Width = 52
Height = 19
Caption = #19979#21333#26085#26399
end
object Label5: TLabel
Left = 689
Top = 11
Width = 64
Height = 21
Width = 52
Height = 19
Caption = #20132#36135#26085#26399
end
object Label8: TLabel
Left = 689
Top = 45
Width = 32
Height = 21
Width = 26
Height = 19
Caption = #21305#25968
end
object Label13: TLabel
Left = 922
Top = 42
Width = 58
Height = 21
Width = 47
Height = 19
Caption = #24635' '#25968' '#37327
end
object Label47: TLabel
Left = 336
Top = 45
Width = 32
Height = 21
Width = 26
Height = 19
Caption = #23458#25143
end
object lbl2: TLabel
Left = 336
Top = 9
Width = 64
Height = 21
Width = 52
Height = 19
Caption = #29983#20135#31867#22411
end
object Label7: TLabel
Left = 9
Top = 9
Width = 80
Height = 21
Width = 65
Height = 19
Caption = #32455#36896#21333#21495#65306
end
object Label35: TLabel
Left = 9
Top = 44
Width = 64
Height = 21
Width = 52
Height = 19
Caption = #21512#21516#21495#65306
end
object Label3: TLabel
@ -158,8 +159,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Label55: TLabel
Left = 11
Top = 364
Width = 48
Height = 21
Width = 39
Height = 19
Caption = #31359#32508#27861
end
object Label9: TLabel
@ -204,8 +205,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Label15: TLabel
Left = 336
Top = 157
Width = 32
Height = 21
Width = 26
Height = 19
Caption = #20811#37325
end
object Label16: TLabel
@ -250,43 +251,43 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Label18: TLabel
Left = 922
Top = 119
Width = 32
Height = 21
Width = 26
Height = 19
Caption = #33394#21495
end
object Label20: TLabel
Left = 689
Top = 119
Width = 32
Height = 21
Width = 26
Height = 19
Caption = #39068#33394
end
object Label21: TLabel
Left = 11
Top = 119
Width = 32
Height = 21
Width = 26
Height = 19
Caption = #33457#22411
end
object Label22: TLabel
Left = 336
Top = 119
Width = 32
Height = 21
Width = 26
Height = 19
Caption = #27454#21495
end
object Label23: TLabel
Left = 922
Top = 81
Width = 32
Height = 21
Width = 26
Height = 19
Caption = #35268#26684
end
object Label24: TLabel
Left = 689
Top = 82
Width = 32
Height = 21
Width = 26
Height = 19
Caption = #25104#20998
end
object Label25: TLabel
@ -331,15 +332,15 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Label30: TLabel
Left = 922
Top = 233
Width = 48
Height = 21
Width = 39
Height = 19
Caption = #31576#40831#25968
end
object Label31: TLabel
Left = 11
Top = 269
Width = 48
Height = 21
Width = 39
Height = 19
Caption = #36793#32433#25968
end
object Label32: TLabel
@ -358,22 +359,22 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Label33: TLabel
Left = 689
Top = 269
Width = 64
Height = 21
Caption = #36793#31359#20837#27861
Width = 65
Height = 19
Caption = #36793#32433#24635#26681#25968
end
object Label34: TLabel
Left = 11
Top = 307
Width = 48
Height = 21
Width = 39
Height = 19
Caption = #32508#39029#25968
end
object Label36: TLabel
Left = 336
Top = 307
Width = 48
Height = 21
Width = 39
Height = 19
Caption = #32428#29273#23494
end
object Label37: TLabel
@ -392,50 +393,168 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Label38: TLabel
Left = 922
Top = 306
Width = 64
Height = 21
Width = 52
Height = 19
Caption = #33853#24067#23450#38271
end
object Label39: TLabel
Left = 1146
Top = 121
Width = 32
Height = 21
Width = 26
Height = 19
Caption = #26426#22411
end
object Label1: TLabel
Left = 11
Top = 457
Width = 615
Height = 21
Caption = #27880' '#32428#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#32428#23494'*'#65288#31576#24133'+'#25439#32791#65289'*0.059 / '#25903#25968' *'#26681#25968'/'#24490#29615#26681#25968'* 1.08'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label29: TLabel
Left = 11
Top = 430
Width = 392
Height = 21
Caption = #27880' '#32463#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#20840#24133#26681#25968'*0.059/'#25903#25968'*1.08'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 1146
Top = 7
Width = 48
Height = 21
Width = 39
Height = 19
Caption = #32455#32553#29575
end
object Label14: TLabel
Left = 23
Top = 430
Width = 560
Height = 21
Caption = #27880' '#32463#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#65288'1+'#32455#32553'%'#65289'*'#20840#24133#26681#25968' * '#32433#32447#31995#25968' / '#25903#25968#65288'S'#65289
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label19: TLabel
Left = 23
Top = 457
Width = 730
Height = 21
Caption = #27880' '#32428#32433#65306#30334#31859#32463#38271#29992#37327'KG = '#32428#23494' *'#65288#31576#24133' "+ 4.2'#24223#36793#25439#32791' "'#65289'* '#32433#32447#31995#25968' / '#25903#25968#65288'S'#65289' *'#26681#25968'/'#24490#29615#26681#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 1144
Top = 269
Width = 91
Height = 19
Caption = #36793#32433#21333#36793#31576#40831#25968
end
object Label29: TLabel
Left = 1144
Top = 230
Width = 52
Height = 19
Caption = #36793#31359#20837#27861
end
object Label40: TLabel
Left = 1366
Top = 230
Width = 26
Height = 19
Caption = #31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clBtnShadow
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label42: TLabel
Left = 1366
Top = 269
Width = 45
Height = 19
Caption = #26681'/'#31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label41: TLabel
Left = 1093
Top = 229
Width = 26
Height = 19
Caption = #31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label43: TLabel
Left = 268
Top = 267
Width = 13
Height = 19
Caption = #26681
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label44: TLabel
Left = 601
Top = 267
Width = 45
Height = 19
Caption = #26681'/'#31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label45: TLabel
Left = 600
Top = 229
Width = 53
Height = 19
Caption = #40831'/2'#33521#23544
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label46: TLabel
Left = 1074
Top = 158
Width = 45
Height = 19
Caption = #26681'/'#33521#23544
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label48: TLabel
Left = 867
Top = 156
Width = 45
Height = 19
Caption = #26681'/'#33521#23544
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object OrdPiece: TcxTextEdit
Tag = 2
Left = 766
@ -463,8 +582,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
object ConMId: TcxTextEdit
Tag = 2
Left = 1257
Top = 252
Left = 1431
Top = 346
Enabled = False
TabOrder = 3
Visible = False
@ -473,8 +592,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
object ConSId: TcxTextEdit
Tag = 2
Left = 1329
Top = 193
Left = 1465
Top = 300
Enabled = False
TabOrder = 4
Visible = False
@ -581,7 +700,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Top = 228
ParentColor = True
TabOrder = 14
Width = 150
Width = 149
end
object C_GramWeight: TcxTextEdit
Tag = 2
@ -596,9 +715,10 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 986
Top = 153
ParentColor = True
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
TabOrder = 16
OnExit = C_ReedWidthExit
Width = 150
Width = 87
end
object WB_Code: TcxButtonEdit
Tag = 2
@ -690,7 +810,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Top = 153
ParentColor = True
TabOrder = 26
Width = 150
Width = 95
end
object LPDW: TcxComboBox
Tag = 2
@ -715,6 +835,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 766
Top = 228
ParentColor = True
Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
TabOrder = 29
OnExit = C_ReedWidthExit
Width = 76
@ -725,7 +846,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Top = 229
ParentColor = True
TabOrder = 30
Width = 150
Width = 103
end
object BSQTY: TcxTextEdit
Tag = 2
@ -823,11 +944,28 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object ZS: TcxTextEdit
Left = 1210
Top = 5
Properties.OnChange = OrdQtyPropertiesChange
Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
TabOrder = 41
OnKeyPress = ConNoKeyPress
Width = 150
end
object WB_YarnKCQty: TcxTextEdit
Tag = 2
Left = 1265
Top = 263
ParentColor = True
TabOrder = 42
Text = 'WB_YarnKCQty'
Width = 95
end
object BCRFQty: TcxTextEdit
Tag = 2
Left = 1265
Top = 230
ParentColor = True
TabOrder = 43
Width = 95
end
end
object cxPageControl3: TcxPageControl [2]
Left = 0
@ -836,12 +974,12 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Height = 316
Align = alClient
TabOrder = 2
Properties.ActivePage = cxTabSheet1
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
ClientRectBottom = 316
ClientRectRight = 1540
ClientRectTop = 28
ClientRectTop = 26
object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512
ImageIndex = 0
@ -849,7 +987,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 931
Top = 0
Width = 609
Height = 288
Height = 290
Align = alClient
Caption = #32463#25490#21015
Font.Charset = GB2312_CHARSET
@ -864,7 +1002,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 2
Top = 31
Width = 605
Height = 255
Height = 257
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -879,14 +1017,14 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 0
Top = 0
Width = 931
Height = 288
Height = 290
Align = alLeft
TabOrder = 1
object cxPageControl2: TcxPageControl
Left = 1
Top = 1
Width = 929
Height = 286
Height = 288
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -901,7 +1039,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ClientRectBottom = 286
ClientRectBottom = 288
ClientRectRight = 929
ClientRectTop = 0
end
@ -909,7 +1047,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 1
Top = 1
Width = 929
Height = 286
Height = 288
Align = alClient
TabOrder = 1
object TV1: TcxGridDBTableView
@ -1003,7 +1141,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
DataBinding.FieldName = 'YarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
@ -1012,7 +1150,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
DataBinding.FieldName = 'CycleYarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
@ -1025,6 +1163,15 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1YarnFactor: TcxGridDBColumn
Caption = #32433#32447#31995#25968
DataBinding.FieldName = 'YarnFactor'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV1Column8: TcxGridDBColumn
Caption = #30334#31859#32463#38271#37325#37327'KG'
DataBinding.FieldName = 'MeterQty'
@ -1032,6 +1179,20 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
HeaderAlignmentHorz = taCenter
Width = 163
end
object TV1BatchNO: TcxGridDBColumn
Caption = #32433#32447#25209#21495
DataBinding.FieldName = 'BatchNO'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = TV1BatchNOPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1Column11: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'NOTE'
@ -1049,14 +1210,11 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet2: TcxTabSheet
Caption = #32428#19997#32452#21512
ImageIndex = 1
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object GroupBox2: TGroupBox
Left = 863
Top = 0
Width = 677
Height = 288
Height = 290
Align = alClient
Caption = #32428#25490#21015
Font.Charset = GB2312_CHARSET
@ -1071,7 +1229,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 2
Top = 31
Width = 673
Height = 255
Height = 257
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -1086,14 +1244,14 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 0
Top = 0
Width = 863
Height = 288
Height = 290
Align = alLeft
TabOrder = 1
object cxPageControl1: TcxPageControl
Left = 1
Top = 1
Width = 861
Height = 286
Height = 288
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -1108,7 +1266,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ClientRectBottom = 286
ClientRectBottom = 288
ClientRectRight = 861
ClientRectTop = 0
end
@ -1116,7 +1274,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 1
Top = 1
Width = 861
Height = 286
Height = 288
Align = alClient
TabOrder = 1
object Tv2: TcxGridDBTableView
@ -1209,6 +1367,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
DataBinding.FieldName = 'YarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = False
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
@ -1222,12 +1381,34 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2YarnFactor: TcxGridDBColumn
Caption = #32433#32447#31995#25968
DataBinding.FieldName = 'YarnFactor'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv2Column11: TcxGridDBColumn
Caption = #25439#32791
DataBinding.FieldName = 'Y_Loss'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2BatchNO: TcxGridDBColumn
Caption = #32433#32447#25209#21495
DataBinding.FieldName = 'BatchNO'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv2BatchNOPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 80
end
@ -1255,9 +1436,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet3: TcxTabSheet
Caption = #36215#32508#27861
ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel5: TPanel
Left = 0
Top = 0
@ -1308,16 +1486,13 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Properties.ShowFocusRect = False
Style.BorderStyle = ebsSingle
TabOrder = 1
Height = 247
Height = 249
Width = 1540
end
end
object cxTabSheet4: TcxTabSheet
Caption = #31359#32508#27861
ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel4: TPanel
Left = 0
Top = 0
@ -1368,22 +1543,19 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Properties.ShowFocusRect = False
Style.BorderStyle = ebsSingle
TabOrder = 1
Height = 247
Height = 249
Width = 1540
end
end
object cxTabSheet5: TcxTabSheet
Caption = #31359#31576#27861
ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object CKF: TMemo
Tag = 2
Left = 0
Top = 0
Width = 1540
Height = 288
Height = 290
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText

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

@ -163,8 +163,6 @@ type
Tv2Column8: TcxGridDBColumn;
Tv2Column12: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Label1: TLabel;
Label29: TLabel;
Panel5: TPanel;
Label28: TLabel;
attname2: TcxButtonEdit;
@ -180,6 +178,24 @@ type
C_CODE: TcxButtonEdit;
Label10: TLabel;
ZS: TcxTextEdit;
TV1BatchNO: TcxGridDBColumn;
Tv2BatchNO: TcxGridDBColumn;
Label14: TLabel;
Label19: TLabel;
TV1YarnFactor: TcxGridDBColumn;
Tv2YarnFactor: TcxGridDBColumn;
Label1: TLabel;
Label29: TLabel;
Label40: TLabel;
Label42: TLabel;
BCRFQty: TcxTextEdit;
Label41: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Label48: TLabel;
WB_YarnKCQty: TcxTextEdit;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -219,6 +235,8 @@ type
procedure ATTNAME1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure attname2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure C_CODEDblClick(Sender: TObject);
procedure TV1BatchNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv2BatchNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
FXS, FGridFlag: Integer;
@ -249,7 +267,8 @@ implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_TatClothInfoSel, U_CompanySel, U_YarnInfoSel,
U_TradeSalesContractSel, U_WBSpecSel, U_TatGYSel, U_PictureUpload;
U_TradeSalesContractSel, U_WBSpecSel, U_TatGYSel, U_PictureUpload,
U_YarnStkSel;
{$R *.dfm}
procedure TfrmTatPlanInPut.InitImage();
@ -459,30 +478,6 @@ var
PBNO, PBFlag: string;
begin
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_Plan_Main A where A.MainId=''' + Trim(FMainId) + '''');
Open;
end;
SCSHData(ADOQueryMain, ScrollBox1, 0);
attname1.Text := Trim(ADOQueryMain.FieldByName('attname1').AsString);
attname2.Text := Trim(ADOQueryMain.FieldByName('attname2').AsString);
CKF.Text := Trim(ADOQueryMain.FieldByName('CKF').AsString);
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_Plan_Sub A where A.MainId=''' + Trim(FMainId) + '''');
Open;
end;
SCSHData(ADOQueryMain, ScrollBox1, 2);
Y_Note_PLJ.Text := ADOQueryMain.FieldByName('Y_Note_PLJ').AsString;
Y_Note_PLW.Text := ADOQueryMain.FieldByName('Y_Note_PLW').AsString;
with ADOQueryMain do
begin
Close;
@ -504,6 +499,33 @@ begin
SCreateCDS(ADOQueryMain, CDS_2);
SInitCDSData(ADOQueryMain, CDS_2);
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_Plan_Main A where A.MainId=''' + Trim(FMainId) + '''');
Open;
end;
SCSHData(ADOQueryMain, ScrollBox1, 0);
attname1.Text := Trim(ADOQueryMain.FieldByName('attname1').AsString);
attname2.Text := Trim(ADOQueryMain.FieldByName('attname2').AsString);
CKF.Text := Trim(ADOQueryMain.FieldByName('CKF').AsString);
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_Plan_Sub A where A.MainId=''' + Trim(FMainId) + '''');
Open;
// ShowMessage(sql.Text) ;
end;
SCSHData(ADOQueryMain, ScrollBox1, 2);
Y_Note_PLJ.Text := ADOQueryMain.FieldByName('Y_Note_PLJ').AsString;
Y_Note_PLW.Text := ADOQueryMain.FieldByName('Y_Note_PLW').AsString;
/////////////////刷新起综工艺单信息/////////////////////////
with ADOQueryMain do
begin
@ -1073,6 +1095,32 @@ begin
CDS_QZ.EnableControls;
end;
procedure TfrmTatPlanInPut.TV1BatchNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmYarnStkSel := TfrmYarnStkSel.Create(Application);
with frmYarnStkSel do
begin
FstkName := '纱线';
if ShowModal = 1 then
begin
frmYarnStkSel.CDS_Main.DisableControls;
with Self.CDS_1 do
begin
edit;
FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
end;
frmYarnStkSel.CDS_Main.EnableControls;
end;
end;
finally
frmYarnStkSel.Free;
end;
end;
procedure TfrmTatPlanInPut.TV1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
var
AColumn: TcxGridColumn;
@ -1104,46 +1152,67 @@ end;
procedure TfrmTatPlanInPut.TV1Column14PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
ZS, ZGS: double;
mZ_Number, ZGS: double;
mYarnFactor, mZS: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_1 do
if not CDS_1.IsEmpty then
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
CDS_1.First;
while (CDS_1.FieldByName('Y_Code').asString <> '') and (CDS_1.FieldByName('Y_Code').asString <> null) do
begin
// mvalue := TcxTextEdit(Sender).EditingText;
// FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
if FieldByName('QFYARNQTY').Value = null then
begin
ZGS := 0; //QUANFU根数
end
else
begin
ZGS := FieldByName('QFYARNQTY').Value; //全服根数
end;
with CDS_1 do
begin
// Edit;
// FieldByName(FFieldName).Value := mvalue;
// Post;
if FieldByName('Z_Number').Value = null then
begin
ZS := 0; //循环根数
end
else
begin
ZS := FieldByName('Z_Number').Value; //循环根数
if FieldByName('QFYARNQTY').Value = null then
begin
ZGS := 0; //QUANFU根数
end
else
begin
ZGS := FieldByName('QFYARNQTY').Value; //全服根数
end;
if FieldByName('Z_Number').Value = null then
begin
mZ_Number := 0; //支数
end
else
begin
mZ_Number := FieldByName('Z_Number').Value; //支数
end;
if FieldByName('YarnFactor').Value = null then
begin
mYarnFactor := 0; //纱线系数
end
else
begin
mYarnFactor := FieldByName('YarnFactor').Value; //纱线系数
end;
mZS := strtofloatdef(ZS.Text, 0);
end;
if mZ_Number <> 0 then
begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat((1 + mZS / 100) * ZGS * mYarnFactor / mZ_Number, 2);
Post;
end;
end;
CDS_1.next;
end;
end;
if ZS <> 0 then
begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2);
Post;
end;
end;
end;
procedure TfrmTatPlanInPut.TV1Column1PropertiesEditValueChanged(Sender: TObject);
@ -1152,67 +1221,93 @@ var
GS, ZGS, MF, DS, WM, TW, SUNHAO: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
// mvalue := TcxTextEdit(Sender).EditingText;
// FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
//
// with CDS_1 do
// begin
// Edit;
// FieldByName(FFieldName).Value := mvalue;
// Post;
//
// if FieldByName('YarnQty').Value = null then
// begin
// GS := 0; //根数
// end
// else
// begin
// GS := FieldByName('YarnQty').Value; //根数
// end;
//
// if FieldByName('CycleYarnQty').Value = null then
// begin
// ZGS := 0; //循环根数
// end
// else
// begin
// ZGS := FieldByName('CycleYarnQty').Value; //循环根数
// end;
//
// if FieldByName('SH').Value = null then
// begin
// SUNHAO := 0; //损耗
// end
// else
// begin
// SUNHAO := FieldByName('SH').Value; //损耗
// end;
//
// MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅
//
// if FieldByName('TestDenier').Value = null then
// begin
// DS := 0; //D数
// end
// else
// begin
// DS := FieldByName('TestDenier').Value; //D数
// end;
//
// WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
//
// TW := strtofloatdef(C_YarnQty.text, 0); //头纹
// end;
// if ZGS <> 0 then
// begin
// with CDS_1 do
// begin
// Edit;
// FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS * (1 + SUNHAO / 100) / 9000, 2);
// Post;
// end;
// end;
// JSKZ();
end;
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
procedure TfrmTatPlanInPut.Tv2BatchNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmYarnStkSel := TfrmYarnStkSel.Create(Application);
with frmYarnStkSel do
begin
FstkName := '纱线';
if ShowModal = 1 then
begin
frmYarnStkSel.CDS_Main.DisableControls;
if FieldByName('YarnQty').Value = null then
begin
GS := 0; //根数
end
else
begin
GS := FieldByName('YarnQty').Value; //根数
with Self.CDS_1 do
begin
edit;
FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
end;
frmYarnStkSel.CDS_Main.EnableControls;
end;
end;
if FieldByName('CycleYarnQty').Value = null then
begin
ZGS := 0; //循环根数
end
else
begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数
end;
if FieldByName('SH').Value = null then
begin
SUNHAO := 0; //损耗
end
else
begin
SUNHAO := FieldByName('SH').Value; //损耗
end;
MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅
if FieldByName('TestDenier').Value = null then
begin
DS := 0; //D数
end
else
begin
DS := FieldByName('TestDenier').Value; //D数
end;
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
TW := strtofloatdef(C_YarnQty.text, 0); //头纹
finally
frmYarnStkSel.Free;
end;
if ZGS <> 0 then
begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS * (1 + SUNHAO / 100) / 9000, 2);
Post;
end;
end;
JSKZ();
end;
procedure TfrmTatPlanInPut.Tv2CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
@ -1249,16 +1344,17 @@ procedure TfrmTatPlanInPut.Tv2Column1PropertiesEditValueChanged(Sender: TObject)
var
mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, fsh: double;
mYarnFactor: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
// mvalue := TcxTextEdit(Sender).EditingText;
// FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_2 do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
// Edit;
// FieldByName(FFieldName).Value := mvalue;
// Post;
if FieldByName('YarnQty').Value = null then
begin
@ -1299,13 +1395,22 @@ begin
end;
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
if FieldByName('YarnFactor').Value = null then
begin
mYarnFactor := 0; //纱线系数
end
else
begin
mYarnFactor := FieldByName('YarnFactor').Value; //纱线系数
end;
end;
if (ZGS <> 0) and (DS <> 0) then
begin
with CDS_2 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2);
FieldByName('MeterQty').Value := roundfloat(WM * (MF + 4.2) * mYarnFactor / DS * GS / ZGS, 2);
Post;
end;
end;
@ -1472,6 +1577,7 @@ begin
FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value;
FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value;
FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value;
FieldByName('YarnFactor').Value := frmYarnInfoSel.CDS_1.fieldbyname('YarnFactor').Value;
Post;
end;
@ -1747,6 +1853,8 @@ begin
FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value;
FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value;
FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value;
FieldByName('YarnFactor').Value := frmYarnInfoSel.CDS_1.fieldbyname('YarnFactor').Value;
Post;
end;
@ -1836,6 +1944,8 @@ begin
FieldByName('FF').Value := ADOQuery1.fieldbyname('FF').Value;
FieldByName('ND').Value := ADOQuery1.fieldbyname('ND').Value;
FieldByName('YarnFactor').Value := ADOQuery1.fieldbyname('YarnFactor').Value;
Post;
end;
@ -1925,67 +2035,67 @@ var
mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, fsh: double;
begin
with CDS_2 do
begin
first;
while not eof do
begin
with CDS_2 do
begin
if FieldByName('YarnQty').Value = null then
begin
GS := 0; //根数
end
else
begin
GS := FieldByName('YarnQty').Value; //根数
end;
if FieldByName('Y_loss').Value = null then
begin
fsh := 0; //损耗
end
else
begin
fsh := FieldByName('Y_loss').Value; //损耗
end;
if FieldByName('CycleYarnQty').Value = null then
begin
ZGS := 0; //循环根数
end
else
begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数
end;
MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅
if FieldByName('Z_Number').Value = null then
begin
DS := 0; //支
end
else
begin
DS := FieldByName('Z_Number').Value; //支数
end;
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
end;
if (ZGS <> 0) and (DS <> 0) then
begin
with CDS_2 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2);
Post;
end;
end;
next;
end;
end;
// with CDS_2 do
// begin
// first;
// while not eof do
// begin
// with CDS_2 do
// begin
//
// if FieldByName('YarnQty').Value = null then
// begin
// GS := 0; //根数
// end
// else
// begin
// GS := FieldByName('YarnQty').Value; //根数
// end;
//
// if FieldByName('Y_loss').Value = null then
// begin
// fsh := 0; //损耗
// end
// else
// begin
// fsh := FieldByName('Y_loss').Value; //损耗
// end;
//
// if FieldByName('CycleYarnQty').Value = null then
// begin
// ZGS := 0; //循环根数
// end
// else
// begin
// ZGS := FieldByName('CycleYarnQty').Value; //循环根数
// end;
//
// MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅
//
// if FieldByName('Z_Number').Value = null then
// begin
// DS := 0; //支
// end
// else
// begin
// DS := FieldByName('Z_Number').Value; //支数
// end;
//
// WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
// end;
// if (ZGS <> 0) and (DS <> 0) then
// begin
// with CDS_2 do
// begin
// Edit;
// FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2);
// Post;
// end;
// end;
// next;
// end;
//
// end;
end;
procedure TfrmTatPlanInPut.C_YarnQtyPropertiesEditValueChanged(Sender: TObject);

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

@ -77,6 +77,8 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Color = clWhite
ParentBackground = False
TabOrder = 3
ExplicitLeft = 1
ExplicitTop = 24
object Label5: TLabel
Left = 20
Top = 21
@ -116,6 +118,7 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
OnChange = cxPageControl1Change
ExplicitTop = 127
ClientRectBottom = 515
ClientRectLeft = 1
ClientRectRight = 1539

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

@ -658,8 +658,8 @@ inherited frmTatPlanList: TfrmTatPlanList
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Left = 89
Top = 217
Left = 641
Top = 65505
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1

29
E01梭织生产计划/U_TatPlanList.pas
View File

@ -13,22 +13,7 @@ uses
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
cxPC, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils, cxMaskEdit,
cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, cxImage, cxDBEdit, IdFTP,
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI, cxImage, cxDBEdit, IdFTP,
ShellAPI;
type
@ -144,7 +129,7 @@ type
{ Private declarations }
public
canshu1, FCheJian: string;
fStatus : Integer; //0新增, 1修改
fStatus: Integer; //0新增, 1修改
{ Public declarations }
end;
@ -227,7 +212,6 @@ begin
end;
procedure TfrmTatPlanList.TBCloseClick(Sender: TObject);
begin
Close;
@ -415,6 +399,15 @@ begin
sql.Add('delete Tat_Plan_Sub where SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Tat_Plan_Sub where SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + '''');
ExecSQL;
end;
with ADOQueryTemp do
begin
Close;

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

@ -3,8 +3,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Top = 150
Anchors = []
Caption = #20219#21153#26032#22686
ClientHeight = 483
ClientWidth = 1011
ClientHeight = 653
ClientWidth = 1022
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -19,7 +19,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1011
Width = 1022
Height = 30
AutoSize = True
ButtonHeight = 30
@ -32,6 +32,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
ParentColor = False
ShowCaptions = True
TabOrder = 0
ExplicitWidth = 1011
object ToolButton1: TToolButton
Left = 0
Top = 0
@ -60,8 +61,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
object ScrollBox1: TScrollBox
Left = 0
Top = 30
Width = 1011
Height = 453
Width = 1022
Height = 623
Align = alClient
BevelInner = bvNone
BevelOuter = bvNone
@ -78,8 +79,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Caption = #22383#24067#32534#21495#65306
end
object Label3: TLabel
Left = 100
Top = 470
Left = 812
Top = 67
Width = 48
Height = 21
Caption = #26465#30721#65306
@ -107,16 +108,16 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Caption = #32455#36896#21333#21495#65306
end
object Label9: TLabel
Left = 80
Top = 502
Left = 792
Top = 99
Width = 72
Height = 21
Caption = 'MainID'#65306
Visible = False
end
object Label10: TLabel
Left = 89
Top = 537
Left = 802
Top = 134
Width = 62
Height = 21
Caption = 'SubID'#65306
@ -186,8 +187,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Caption = #25972#32463#24037#33402#21517#31216':'
end
object PMID: TcxTextEdit
Left = 153
Top = 467
Left = 865
Top = 64
Enabled = False
ParentFont = False
TabOrder = 0
@ -220,8 +221,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
end
object MainID: TcxTextEdit
Tag = 2
Left = 152
Top = 499
Left = 864
Top = 96
Enabled = False
ParentFont = False
TabOrder = 3
@ -230,8 +231,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
end
object SubID: TcxTextEdit
Tag = 2
Left = 152
Top = 534
Left = 865
Top = 131
Enabled = False
ParentFont = False
TabOrder = 4
@ -257,8 +258,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Width = 218
end
object cxGrid2: TcxGrid
Left = 460
Top = 273
Left = 455
Top = 270
Width = 291
Height = 141
TabOrder = 7
@ -317,7 +318,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
end
object cxGrid1: TcxGrid
Left = 35
Top = 273
Top = 270
Width = 386
Height = 142
TabOrder = 8
@ -449,6 +450,155 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
TabOrder = 15
Width = 223
end
object cxGrid3: TcxGrid
Left = 0
Top = 412
Width = 1003
Height = 253
Align = alBottom
TabOrder = 16
ExplicitTop = 368
ExplicitWidth = 1020
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv2Column8
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv2Column7: TcxGridDBColumn
Caption = #34892#21495
DataBinding.FieldName = 'RowNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v2Column10: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
Width = 100
end
object Tv2Column13: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v2Column6: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv2Column6: TcxGridDBColumn
Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'TestDenier'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 91
end
object Tv2Column14: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'Z_Number'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 88
end
object Tv2Column1: TcxGridDBColumn
Caption = #26681#25968
DataBinding.FieldName = 'YarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv2Column2: TcxGridDBColumn
Caption = #24490#29615#26681#25968
DataBinding.FieldName = 'CycleYarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2Column11: TcxGridDBColumn
Caption = #25439#32791
DataBinding.FieldName = 'Y_Loss'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv3BatchNO: TcxGridDBColumn
Caption = #32433#32447#25209#21495
DataBinding.FieldName = 'BatchNO'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv3BatchNOPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 91
end
object Tv2Column8: TcxGridDBColumn
Caption = #30334#31859#32463#38271#29992#37327'KG'
DataBinding.FieldName = 'MeterQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 151
end
object Tv2Column12: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGridLevel3: TcxGridLevel
GridView = Tv3
end
end
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatPlan.ADOLink
@ -499,4 +649,15 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Left = 776
Top = 389
end
object CDS_3: TClientDataSet
Aggregates = <>
Params = <>
Left = 320
Top = 550
end
object DS_3: TDataSource
DataSet = CDS_3
Left = 416
Top = 544
end
end

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

@ -69,6 +69,24 @@ type
PMType: TcxComboBox;
WB_Code: TcxButtonEdit;
ToolButton2: TToolButton;
cxGrid3: TcxGrid;
Tv3: TcxGridDBTableView;
Tv2Column7: TcxGridDBColumn;
v2Column10: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
Tv2Column13: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
Tv2Column14: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
Tv2Column11: TcxGridDBColumn;
Tv2Column8: TcxGridDBColumn;
Tv2Column12: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
Tv3BatchNO: TcxGridDBColumn;
CDS_3: TClientDataSet;
DS_3: TDataSource;
procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
@ -77,12 +95,15 @@ type
procedure WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton2Click(Sender: TObject);
procedure PMTypePropertiesChange(Sender: TObject);
procedure Tv3BatchNOPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
private
canshu1, YCP, XCP: string;
Fint, CXS: Integer;
procedure InitData();
function SaveData(): Boolean;
function CheckData(): Boolean;
procedure InitClothYarn(MC_Code: string);
{ Private declarations }
public
FPMID, FCYCode, FCPID, FCPNO, FCPName, FMCNo, FMCType: string;
@ -97,7 +118,7 @@ var
implementation
uses
U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_TatPlanSel, U_WBSpecSel;
U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_TatPlanSel, U_WBSpecSel,U_YarnStkSel;
{$R *.dfm}
@ -157,11 +178,29 @@ begin
end;
procedure TfrmTatPlanMachInput.InitClothYarn(MC_Code: string);
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
sql.Add(' where A.YRType=''γ˿'' and B.C_Code=''' + Trim(MC_Code) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_3);
SInitCDSData(ADOQueryTemp, CDS_3);
ClearCDSColumn(CDS_3, ['YRId', 'SubId', 'MainId']);
//
end;
procedure TfrmTatPlanMachInput.FormShow(Sender: TObject);
begin
readCxGrid(trim(self.Caption) + 'Tv1', Tv1, '任务新增');
readCxGrid(trim(self.Caption) + 'Tv2', Tv2, '任务新增');
InitData();
InitClothYarn(C_Code.Text);
end;
procedure TfrmTatPlanMachInput.TBCloseClick(Sender: TObject);
@ -310,6 +349,34 @@ begin
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '任务新增');
end;
procedure TfrmTatPlanMachInput.Tv3BatchNOPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmYarnStkSel := TfrmYarnStkSel.Create(Application);
with frmYarnStkSel do
begin
FstkName := 'É´Ïß';
if ShowModal = 1 then
begin
frmYarnStkSel.CDS_Main.DisableControls;
with Self.CDS_3 do
begin
edit;
FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
end;
frmYarnStkSel.CDS_Main.EnableControls;
end;
end;
finally
frmYarnStkSel.Free;
end;
end;
procedure TfrmTatPlanMachInput.WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try

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

@ -131,8 +131,6 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
ExplicitLeft = -1
ExplicitHeight = 385
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -242,7 +240,6 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
ExplicitLeft = -1
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

522
E01梭织生产计划/U_YarnStkSel.dfm Normal file
View File

@ -0,0 +1,522 @@
inherited frmYarnStkSel: TfrmYarnStkSel
Left = 105
Top = 131
Caption = #32433#32447#24211#23384#36873#25321#21015#34920
ClientHeight = 488
ClientWidth = 1540
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Position = poMainFormCenter
OnClose = FormClose
ExplicitWidth = 1556
ExplicitHeight = 527
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
Images = DataLink_TatPlan.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
Visible = False
OnClick = TBFindClick
end
object ToolButton1: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #30830#23450
ImageIndex = 12
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 276
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 30
Width = 1540
Height = 44
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 27
object Label3: TLabel
Left = 257
Top = 10
Width = 32
Height = 21
Caption = #21697#21517
end
object Label4: TLabel
Left = 35
Top = 10
Width = 64
Height = 21
Caption = #26469#33258#21333#20301
end
object Label8: TLabel
Left = 447
Top = 10
Width = 32
Height = 21
Caption = #35268#26684
end
object Label2: TLabel
Left = 637
Top = 10
Width = 42
Height = 21
Caption = #25209' '#21495
end
object Label1: TLabel
Left = 837
Top = 10
Width = 32
Height = 21
Caption = #32534#21495
end
object Label5: TLabel
Left = 1027
Top = 10
Width = 48
Height = 21
Caption = #28504#36890#21495
end
object Y_Name: TEdit
Tag = 2
Left = 293
Top = 6
Width = 150
Height = 29
TabOrder = 0
OnChange = TBFindClick
end
object FromCoName: TEdit
Tag = 2
Left = 103
Top = 6
Width = 150
Height = 29
TabOrder = 1
OnChange = FromCoNameChange
end
object Y_Spec: TEdit
Tag = 2
Left = 483
Top = 6
Width = 150
Height = 29
TabOrder = 2
OnChange = TBFindClick
end
object BatchNo: TEdit
Tag = 2
Left = 683
Top = 6
Width = 150
Height = 29
TabOrder = 3
OnChange = FromCoNameChange
end
object Y_Code: TEdit
Tag = 2
Left = 873
Top = 6
Width = 150
Height = 29
TabOrder = 4
OnChange = FromCoNameChange
end
object Y_ColorNo: TEdit
Tag = 2
Left = 1081
Top = 4
Width = 150
Height = 29
TabOrder = 5
OnChange = FromCoNameChange
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 74
Width = 1540
Height = 414
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 68
ExplicitHeight = 417
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
Column = v2Column6
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object v1Column17: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 42
end
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
object v1Column14: TcxGridDBColumn
Tag = 2
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 108
end
object Tv1Column12: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'Supplier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column3: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv1Column2: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
end
object Tv1Column13: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'Y_Type'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column4: TcxGridDBColumn
Caption = #21697#29260
DataBinding.FieldName = 'Brand'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 106
end
object Tv1Column4: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column5: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 86
end
object Tv1Column6: TcxGridDBColumn
Caption = #29702#35770'D'#25968
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object Tv1Column14: TcxGridDBColumn
Caption = #23454#27979'D'#25968
DataBinding.FieldName = 'TestDenier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column9: TcxGridDBColumn
Caption = #28504#36890#21495
DataBinding.FieldName = 'Y_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object Tv1Column10: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column11: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column1: TcxGridDBColumn
Caption = #31665'/'#20214
DataBinding.FieldName = 'StkPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'stkqty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object Tv1Column8: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Left = 297
Top = 170
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Left = 225
Top = 211
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Parameters = <>
Left = 544
Top = 136
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 672
Top = 154
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 464
Top = 146
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 576
Top = 304
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 512
Top = 304
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 632
Top = 240
end
object CDS_HZ: TClientDataSet
Aggregates = <>
Params = <>
Left = 392
Top = 312
end
object PopupMenu1: TPopupMenu
Left = 328
Top = 272
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
end

226
E01梭织生产计划/U_YarnStkSel.pas Normal file
View File

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

15
E02梭织经轴仓库/U_GKInput.dfm
View File

@ -25,7 +25,7 @@ inherited frmGKInput: TfrmGKInput
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clWhite
Images = DataLink_BaseInfo.cxImageList_bar
Images = BaseDataLink.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
@ -61,7 +61,8 @@ inherited frmGKInput: TfrmGKInput
ParentColor = False
ParentCtl3D = False
TabOrder = 1
ExplicitTop = 36
ExplicitTop = 27
ExplicitHeight = 522
object Label2: TLabel
Left = 48
Top = 73
@ -194,12 +195,12 @@ inherited frmGKInput: TfrmGKInput
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
Connection = DataLink_WarpBeamStk.ADOLink
Left = 704
Top = 219
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
Connection = DataLink_WarpBeamStk.ADOLink
Left = 706
Top = 264
end
@ -214,20 +215,20 @@ inherited frmGKInput: TfrmGKInput
DesignInfo = 5767938
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 747
Top = 173
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
Connection = DataLink_WarpBeamStk.ADOLink
Parameters = <>
Left = 684
Top = 101
end
object ADOQueryMain: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 692

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

@ -795,9 +795,9 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
object Label41: TLabel
Left = 12
Top = 426
Width = 64
Width = 80
Height = 21
Caption = #36793#31359#20837#27861
Caption = #36793#32433#24635#26681#25968
end
object Label12: TLabel
Left = 12
@ -873,12 +873,117 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Caption = #25490#21333#26085#26399
end
object Label40: TLabel
Left = 12
Top = 461
Left = 9
Top = 499
Width = 96
Height = 21
Caption = #35746#21333#32463#32433#38271#24230
end
object Label42: TLabel
Left = 236
Top = 461
Width = 112
Height = 21
Caption = #36793#32433#21333#36793#31576#40831#25968
end
object Label43: TLabel
Left = 12
Top = 464
Width = 64
Height = 21
Caption = #36793#31359#20837#27861
end
object Label44: TLabel
Left = 191
Top = 347
Width = 12
Height = 13
Caption = #26681
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label45: TLabel
Left = 191
Top = 467
Width = 40
Height = 13
Caption = #26681'/'#31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label46: TLabel
Left = 427
Top = 467
Width = 24
Height = 13
Caption = #31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label48: TLabel
Left = 191
Top = 387
Width = 24
Height = 13
Caption = #31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label49: TLabel
Left = 427
Top = 347
Width = 40
Height = 13
Caption = #26681'/'#31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label50: TLabel
Left = 427
Top = 307
Width = 46
Height = 13
Caption = #40831'/2'#33521#23544
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label51: TLabel
Left = 427
Top = 387
Width = 6
Height = 16
Caption = #8216#8217
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object WBCNO: TcxTextEdit
Tag = 1
Left = 106
@ -927,6 +1032,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Height = 240
Align = alBottom
TabOrder = 4
ExplicitLeft = -1
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -1110,6 +1216,20 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV3Supplier: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'Supplier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV3IOTime: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
@ -1169,7 +1289,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 378
ParentColor = True
TabOrder = 8
Width = 120
Width = 83
end
object WB_ReedNo: TcxTextEdit
Tag = 1
@ -1178,7 +1298,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
ParentColor = True
Properties.ReadOnly = True
TabOrder = 9
Width = 120
Width = 83
end
object GKBH: TcxButtonEdit
Tag = 1
@ -1199,7 +1319,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 338
ParentColor = True
TabOrder = 11
Width = 120
Width = 79
end
object DCRQTY: TcxTextEdit
Tag = 1
@ -1207,7 +1327,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 338
ParentColor = True
TabOrder = 12
Width = 120
Width = 83
end
object C_KCQTY: TcxTextEdit
Tag = 1
@ -1215,7 +1335,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 379
ParentColor = True
TabOrder = 13
Width = 120
Width = 79
end
object WB_ReedNote: TcxTextEdit
Tag = 1
@ -1223,7 +1343,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 420
ParentColor = True
TabOrder = 14
Width = 352
Width = 315
end
object F_MAXKESHU: TcxTextEdit
Tag = 2
@ -1291,12 +1411,28 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end
object ordqty: TcxTextEdit
Tag = 1
Left = 106
Top = 455
Left = 111
Top = 493
ParentColor = True
TabOrder = 22
Width = 120
end
object WB_YarnKCQty: TcxTextEdit
Tag = 1
Left = 354
Top = 458
ParentColor = True
TabOrder = 23
Width = 67
end
object BCRFQty: TcxTextEdit
Tag = 1
Left = 106
Top = 458
ParentColor = True
TabOrder = 24
Width = 79
end
end
end
inherited ADOQueryBaseCmd: TADOQuery

18
E02梭织经轴仓库/U_TatWBCardInPut.pas
View File

@ -166,6 +166,19 @@ type
TV3BatchNO: TcxGridDBColumn;
TV3dbNumber: TcxGridDBColumn;
TV3Column2: TcxGridDBColumn;
Label42: TLabel;
WB_YarnKCQty: TcxTextEdit;
Label43: TLabel;
BCRFQty: TcxTextEdit;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
TV3Supplier: TcxGridDBColumn;
TV3IOTime: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure N2Click(Sender: TObject);
@ -412,6 +425,9 @@ begin
Self.WB_YarnQty.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').value;
Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString);
Self.WB_YarnKCQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnKCQty').AsString);
Self.BCRFQty.Text := frmWBSpecSel.CDS_1.fieldbyname('BCRFQty').value;
Self.InitCard3();
end;
end;
@ -1015,6 +1031,8 @@ begin
FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
FieldByName('singleWeight').Value := frmYarnStkSel.CDS_Main.fieldbyname('singleWeight').Value;
FieldByName('dbNumber').Value := frmYarnStkSel.CDS_Main.fieldbyname('dbNumber').Value;
FieldByName('Supplier').Value := frmYarnStkSel.CDS_Main.fieldbyname('Supplier').Value;
FieldByName('IOTime').Value := frmYarnStkSel.CDS_Main.fieldbyname('IOTime').Value;
Post;
end;
end;

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

@ -9,7 +9,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Font.Height = -16
Position = poMainFormCenter
OnClose = FormClose
ExplicitLeft = -631
ExplicitTop = -236
ExplicitWidth = 1556
ExplicitHeight = 811
PixelsPerInch = 96
@ -715,6 +715,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitLeft = -4
object Label15: TLabel
Left = 237
Top = 18
@ -865,9 +866,9 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
object Label41: TLabel
Left = 7
Top = 482
Width = 64
Width = 80
Height = 21
Caption = #36793#31359#20837#27861
Caption = #36793#32433#24635#26681#25968
end
object Label42: TLabel
Left = 237
@ -878,7 +879,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
end
object Label43: TLabel
Left = 237
Top = 529
Top = 572
Width = 96
Height = 21
Caption = #35745#21010#31232#36724#20010#25968
@ -891,7 +892,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
end
object Label44: TLabel
Left = 7
Top = 528
Top = 571
Width = 96
Height = 21
Caption = #35745#21010#31232#36724#32463#38271
@ -902,6 +903,111 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Font.Style = []
ParentFont = False
end
object Label45: TLabel
Left = 12
Top = 526
Width = 64
Height = 21
Caption = #36793#31359#20837#27861
end
object Label46: TLabel
Left = 191
Top = 529
Width = 40
Height = 13
Caption = #26681'/'#31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label48: TLabel
Left = 236
Top = 523
Width = 112
Height = 21
Caption = #36793#32433#21333#36793#31576#40831#25968
end
object Label49: TLabel
Left = 427
Top = 529
Width = 24
Height = 13
Caption = #31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label50: TLabel
Left = 427
Top = 401
Width = 40
Height = 13
Caption = #26681'/'#31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label51: TLabel
Left = 191
Top = 443
Width = 24
Height = 13
Caption = #31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label52: TLabel
Left = 191
Top = 401
Width = 12
Height = 13
Caption = #26681
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label53: TLabel
Left = 427
Top = 361
Width = 46
Height = 13
Caption = #40831'/2'#33521#23544
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label54: TLabel
Left = 427
Top = 443
Width = 6
Height = 19
Caption = #8216#8217
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object TWPId: TcxTextEdit
Tag = 1
Left = 106
@ -957,7 +1063,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Top = 434
ParentColor = True
TabOrder = 5
Width = 120
Width = 76
end
object Z_FENJIAO: TcxTextEdit
Tag = 1
@ -1013,7 +1119,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
ParentColor = True
Properties.ReadOnly = True
TabOrder = 10
Width = 120
Width = 76
end
object GKBH: TcxButtonEdit
Tag = 1
@ -1083,7 +1189,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Top = 392
ParentColor = True
TabOrder = 18
Width = 120
Width = 79
end
object DCRQTY: TcxTextEdit
Tag = 1
@ -1091,7 +1197,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Top = 392
ParentColor = True
TabOrder = 19
Width = 120
Width = 76
end
object C_KCQTY: TcxTextEdit
Tag = 1
@ -1099,7 +1205,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Top = 434
ParentColor = True
TabOrder = 20
Width = 120
Width = 79
end
object WB_ReedNote: TcxTextEdit
Tag = 1
@ -1119,18 +1225,34 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
end
object XZ_GS: TcxTextEdit
Left = 345
Top = 522
Top = 565
ParentColor = True
TabOrder = 23
Width = 120
end
object XZ_YarnQty: TcxTextEdit
Left = 106
Top = 522
Top = 565
ParentColor = True
TabOrder = 24
Width = 120
end
object BCRFQty: TcxTextEdit
Tag = 1
Left = 106
Top = 520
ParentColor = True
TabOrder = 25
Width = 79
end
object WB_YarnKCQty: TcxTextEdit
Tag = 1
Left = 354
Top = 520
ParentColor = True
TabOrder = 26
Width = 67
end
end
end
inherited ADOQueryBaseCmd: TADOQuery

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

@ -152,6 +152,17 @@ type
XZ_GS: TcxTextEdit;
Label44: TLabel;
XZ_YarnQty: TcxTextEdit;
Label45: TLabel;
BCRFQty: TcxTextEdit;
Label46: TLabel;
Label48: TLabel;
WB_YarnKCQty: TcxTextEdit;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure N2Click(Sender: TObject);
@ -848,7 +859,9 @@ begin
sql.Add(' set PRTer=' + quotedstr(DName));
sql.Add(', PRTCount=PRTCount+1');
sql.Add(', PRTDate=getdate()');
sql.Add(' where WBCID in (' + WSql + ')');
sql.Add(' where WBCID in (' + quotedstr(WSql) + ')');
// showMessage(sql.Text);
ExecSQL;
end;
end;

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

@ -8,6 +8,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307
Position = poScreenCenter
ExplicitLeft = -102
ExplicitWidth = 1445
ExplicitHeight = 802
PixelsPerInch = 96
@ -61,16 +62,16 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
end
object Panel2: TPanel [1]
Left = 0
Top = 433
Top = 441
Width = 1429
Height = 330
Height = 322
Align = alClient
TabOrder = 1
object cxPageControl1: TcxPageControl
Left = 1
Top = 42
Width = 1427
Height = 287
Height = 279
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -85,7 +86,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ClientRectBottom = 287
ClientRectBottom = 279
ClientRectRight = 1427
ClientRectTop = 0
end
@ -166,10 +167,10 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Left = 1
Top = 42
Width = 1427
Height = 287
Height = 279
Align = alClient
TabOrder = 2
ExplicitLeft = 17
ExplicitLeft = 2
ExplicitTop = 47
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
@ -349,6 +350,20 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
HeaderAlignmentHorz = taCenter
Width = 95
end
object Tv1Supplier: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'Supplier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1IOTime: TcxGridDBColumn
Caption = #32433#32447#20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 120
end
object v1Column12: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
@ -366,7 +381,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Left = 0
Top = 38
Width = 1429
Height = 395
Height = 403
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
@ -380,6 +395,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False
TabOrder = 2
OnDblClick = gynoDblClick
ExplicitTop = 34
object Label3: TLabel
Left = 756
Top = 14
@ -593,7 +609,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Top = 226
Width = 112
Height = 21
Caption = #32433#39550#25346#32433#39063#25968#65306
Caption = #32433#26550#25346#32433#39063#25968#65306
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
@ -619,7 +635,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Top = 262
Width = 112
Height = 21
Caption = #32433#39550#25346#32433#39063#25968#65306
Caption = #32433#26550#25346#32433#39063#25968#65306
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
@ -689,9 +705,9 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
object Label30: TLabel
Left = 521
Top = 329
Width = 80
Width = 96
Height = 21
Caption = #36793#31359#20837#27861#65306
Caption = #36793#32433#24635#26681#25968#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
@ -790,6 +806,123 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Font.Style = []
ParentFont = False
end
object Label33: TLabel
Left = -2
Top = 368
Width = 80
Height = 21
Caption = #36793#31359#20837#27861#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label34: TLabel
Left = 277
Top = 362
Width = 128
Height = 21
Caption = #36793#32433#21333#36793#31576#40831#25968#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label35: TLabel
Left = 171
Top = 370
Width = 40
Height = 13
Caption = #26681'/'#31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label37: TLabel
Left = 469
Top = 298
Width = 46
Height = 13
Caption = #40831'/2'#33521#23544
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label38: TLabel
Left = 887
Top = 298
Width = 6
Height = 16
Caption = #8216#8217
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label39: TLabel
Left = 467
Top = 333
Width = 40
Height = 13
Caption = #26681'/'#31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label40: TLabel
Left = 171
Top = 333
Width = 12
Height = 13
Caption = #26681
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label41: TLabel
Left = 711
Top = 299
Width = 24
Height = 13
Caption = #31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label42: TLabel
Left = 487
Top = 374
Width = 24
Height = 13
Caption = #31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object C_NAME: TEdit
Left = 807
Top = 8
@ -946,7 +1079,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
object WB_ReedNo: TEdit
Left = 387
Top = 291
Width = 120
Width = 78
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -1000,7 +1133,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 13
Width = 120
Width = 78
end
object WB_Width: TcxTextEdit
Left = 807
@ -1014,7 +1147,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 14
Width = 120
Width = 74
end
object WB_ReedNote: TcxTextEdit
Left = 627
@ -1042,7 +1175,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 16
Width = 120
Width = 61
end
object DCRQTY: TcxTextEdit
Left = 387
@ -1056,7 +1189,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 17
Width = 120
Width = 78
end
object Z_ZHOUSHU1: TEdit
Left = 387
@ -1220,6 +1353,34 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress
end
object BCRFQty: TcxTextEdit
Left = 104
Top = 364
ParentColor = True
ParentFont = False
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 28
Width = 61
end
object WB_YarnKCQty: TcxTextEdit
Left = 411
Top = 362
ParentColor = True
ParentFont = False
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 29
Width = 70
end
end
inherited ADOQueryBaseCmd: TADOQuery
Left = 969

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

@ -114,6 +114,19 @@ type
Label23: TLabel;
Label24: TLabel;
Tv1dbNumber: TcxGridDBColumn;
Label33: TLabel;
Label34: TLabel;
BCRFQty: TcxTextEdit;
WB_YarnKCQty: TcxTextEdit;
Label35: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Tv1Supplier: TcxGridDBColumn;
Tv1IOTime: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -639,6 +652,8 @@ begin
FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
FieldByName('TZQTY').Value := frmYarnStkSel.CDS_Main.fieldbyname('singleWeight').Value;
FieldByName('dbNumber').Value := frmYarnStkSel.CDS_Main.fieldbyname('dbNumber').Value;
FieldByName('IoTime').Value := frmYarnStkSel.CDS_Main.fieldbyname('IoTime').Value;
FieldByName('Supplier').Value := frmYarnStkSel.CDS_Main.fieldbyname('Supplier').Value;
Post;
end;
end;
@ -681,6 +696,8 @@ begin
Self.BSQTY.Text := Trim(CDS_1.fieldbyname('BSQTY').AsString);
Self.DCRQTY.Text := Trim(CDS_1.fieldbyname('DCRQTY').AsString);
Self.WB_YarnKCQty.Text := Trim(CDS_1.fieldbyname('WB_YarnKCQty').AsString);
Self.BCRFQty.Text := Trim(CDS_1.fieldbyname('BCRFQty').AsString);
end;
end;
finally

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

@ -15,9 +15,9 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
TextHeight = 13
object cxGrid1: TcxGrid [0]
Left = 0
Top = 439
Top = 471
Width = 1174
Height = 406
Height = 374
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
@ -275,7 +275,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 0
Top = 30
Width = 1174
Height = 379
Height = 411
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
@ -283,7 +283,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Ctl3D = False
ParentCtl3D = False
TabOrder = 2
ExplicitTop = 24
object Label3: TLabel
Left = 11
Top = 11
@ -326,9 +325,9 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
object Label2: TLabel
Left = 560
Top = 312
Width = 64
Width = 80
Height = 21
Caption = #36793#31359#20837#27861
Caption = #36793#32433#24635#26681#25968
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
@ -337,20 +336,20 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ParentFont = False
end
object Label5: TLabel
Left = 6
Top = 315
Left = 11
Top = 309
Width = 48
Height = 21
Caption = #36793#32433#25968
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 803
Left = 804
Top = 274
Width = 32
Height = 21
@ -369,7 +368,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #31576#40831#25968
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -416,7 +415,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21
Caption = #31576#24133
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
@ -436,8 +435,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ParentFont = False
end
object Label29: TLabel
Left = 20
Top = 347
Left = 3
Top = 383
Width = 454
Height = 21
Caption = #27880' '#32463#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#20840#24133#26681#25968' * '#32433#32447#31995#25968' / '#25903#25968#65288'S'#65289
@ -448,6 +447,123 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Font.Style = []
ParentFont = False
end
object Label25: TLabel
Left = 287
Top = 348
Width = 112
Height = 21
Caption = #36793#32433#21333#36793#31576#40831#25968
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label26: TLabel
Left = 6
Top = 348
Width = 64
Height = 21
Caption = #36793#31359#20837#27861
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label27: TLabel
Left = 228
Top = 354
Width = 24
Height = 13
Caption = #31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object label28: TLabel
Left = 506
Top = 354
Width = 40
Height = 13
Caption = #26681'/'#31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label30: TLabel
Left = 228
Top = 315
Width = 12
Height = 13
Caption = #26681
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label31: TLabel
Left = 511
Top = 277
Width = 24
Height = 13
Caption = #31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label32: TLabel
Left = 761
Top = 278
Width = 6
Height = 16
Caption = #8216#8217
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label33: TLabel
Left = 966
Top = 277
Width = 46
Height = 13
Caption = #40831'/2'#33521#23544
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label34: TLabel
Left = 509
Top = 316
Width = 40
Height = 13
Caption = #26681'/'#31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object WB_Code: TcxTextEdit
Tag = 2
Left = 113
@ -498,7 +614,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object WB_ReedNote: TcxTextEdit
Tag = 2
Left = 630
Left = 648
Top = 309
ParentColor = True
ParentFont = False
@ -517,21 +633,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Top = 309
ParentColor = True
ParentFont = False
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 4
Width = 150
end
object WB_ReedNo: TcxTextEdit
Tag = 2
Left = 873
Top = 270
ParentColor = True
ParentFont = False
Properties.ReadOnly = True
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
@ -539,8 +640,25 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 4
Width = 112
end
object WB_ReedNo: TcxTextEdit
Tag = 2
Left = 874
Top = 274
ParentColor = True
ParentFont = False
Properties.ReadOnly = True
Properties.OnEditValueChanged = WB_ReedNoPropertiesEditValueChanged
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 5
Width = 130
Width = 86
end
object C_KCQTY: TcxTextEdit
Tag = 2
@ -548,6 +666,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Top = 270
ParentColor = True
ParentFont = False
Properties.ReadOnly = True
Properties.OnEditValueChanged = WB_ReedNoPropertiesEditValueChanged
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
@ -555,7 +675,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 6
Width = 150
Width = 108
end
object ISSizing: TcxComboBox
Tag = 2
@ -611,10 +731,11 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end
object WB_Width: TcxTextEdit
Tag = 2
Left = 630
Left = 648
Top = 270
ParentColor = True
ParentFont = False
Properties.ReadOnly = True
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
@ -622,7 +743,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 10
Width = 150
Width = 105
end
object cxGroupBox1: TcxGroupBox
Left = 3
@ -915,9 +1036,10 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
object DCRQTY: TcxTextEdit
Tag = 2
Left = 397
Top = 305
Top = 309
ParentColor = True
ParentFont = False
Properties.OnEditValueChanged = BCRFQtyPropertiesEditValueChanged
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
@ -925,13 +1047,45 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 13
Width = 150
Width = 108
end
object WB_YarnKCQty: TcxTextEdit
Tag = 2
Left = 403
Top = 348
ParentColor = True
ParentFont = False
Properties.OnEditValueChanged = BCRFQtyPropertiesEditValueChanged
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 14
Width = 102
end
object BCRFQty: TcxTextEdit
Tag = 2
Left = 110
Top = 348
ParentColor = True
ParentFont = False
Properties.OnEditValueChanged = BCRFQtyPropertiesEditValueChanged
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 15
Width = 112
end
end
object ToolBar2: TToolBar [3]
Tag = 1
Left = 0
Top = 409
Top = 441
Width = 1174
Height = 30
AutoSize = True

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

@ -106,6 +106,17 @@ type
DCRQTY: TcxTextEdit;
Label29: TLabel;
Tv1YarnFactor: TcxGridDBColumn;
Label25: TLabel;
Label26: TLabel;
WB_YarnKCQty: TcxTextEdit;
BCRFQty: TcxTextEdit;
Label27: TLabel;
label28: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -125,6 +136,9 @@ type
procedure WB_TYPEPropertiesChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure BCRFQtyPropertiesEditValueChanged(Sender: TObject);
procedure WB_ReedNoPropertiesEditValueChanged(Sender: TObject);
private
{ Private declarations }
function SaveData(): Boolean;
@ -295,6 +309,56 @@ begin
end;
end;
procedure TfrmWBSpecInPut.BCRFQtyPropertiesEditValueChanged(Sender: TObject);
var
mBCRFQty, mWB_YarnKCQty, mBSQTY: Double; // 改为Double类型
//边穿入法 边纱单边筘齿数
mWB_YarnQty, mDCRQTY, mC_KCQTY: Double;
//总经根数 地穿入法 筘齿数
begin
if BCRFQty.Text <> '' then
begin
mBCRFQty := StrToFloatDef(BCRFQty.Text, 0); // 使用StrToFloatDef更安全
end
else
begin
mBCRFQty := 0;
end;
if WB_YarnKCQty.Text <> '' then // 修正了变量名，应该是WB_YarnKCQty而不是BSQTY
begin
mWB_YarnKCQty := StrToFloatDef(WB_YarnKCQty.Text, 0);
end
else
begin
mWB_YarnKCQty := 0;
end;
// 边纱数
mBSQTY := Round(mBCRFQty * mWB_YarnKCQty * 2);
BSQTY.Text := FloatToStr(mBSQTY);
if WB_YarnQty.Text <> '' then
begin
mWB_YarnQty := StrToFloatDef(WB_YarnQty.Text, 0);
end
else
begin
mWB_YarnQty := 0;
end;
if DCRQTY.Text <> '' then
begin
mDCRQTY := StrToFloatDef(DCRQTY.Text, 0);
end
else
begin
mDCRQTY := 0;
end;
if mDCRQTY <> 0 then
begin
mC_KCQTY := RoundFloat(mWB_YarnKCQty * 2 + (mWB_YarnQty - mBSQTY) / mDCRQTY, 2);
C_KCQTY.Text := FloatToStr(mC_KCQTY);
end;
end;
procedure TfrmWBSpecInPut.btn1Click(Sender: TObject);
begin
try
@ -341,6 +405,8 @@ begin
end;
end;
procedure TfrmWBSpecInPut.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
@ -612,8 +678,6 @@ begin
begin
SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString;
SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString;
SELF.C_KCQTY.Text := CDS_HZ.FieldByName('GKCS').AsString;
SELF.WB_Width.Text := CDS_HZ.FieldByName('GKwidth').AsString;
end;
end;
finally
@ -812,7 +876,7 @@ begin
with CDS_SUB do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(mYarnFactor * ZGS / ZS , 2);
FieldByName('MeterQty').Value := roundfloat(mYarnFactor * ZGS / ZS, 2);
Post;
end;
end;
@ -873,6 +937,35 @@ begin
// end;
end;
procedure TfrmWBSpecInPut.WB_ReedNoPropertiesEditValueChanged(Sender: TObject);
var
mWB_ReedNo,mC_KCQTY, mWB_Width: Double;
// 筘号 筘齿数 筘幅
begin
if WB_ReedNo.Text <> '' then
begin
mWB_ReedNo := StrToFloatDef(WB_ReedNo.Text, 0); // 使用StrToFloatDef更安全
end
else
begin
mWB_ReedNo := 0;
end;
if C_KCQTY.Text <> '' then
begin
mC_KCQTY := StrToFloatDef(C_KCQTY.Text, 0); // 使用StrToFloatDef更安全
end
else
begin
mC_KCQTY := 0;
end;
if mWB_ReedNo <> 0 then
begin
mWB_Width := RoundFloat( mC_KCQTY*2/mWB_ReedNo,1 );
WB_Width.Text := FloatToStr(mWB_Width) ;
end;
end;
procedure TfrmWBSpecInPut.WB_TYPEPropertiesChange(Sender: TObject);
begin
if WB_TYPE.Text = 'Õû½¬²¢' then
@ -894,8 +987,58 @@ begin
end;
procedure TfrmWBSpecInPut.WB_YarnQtyPropertiesEditValueChanged(Sender: TObject);
var
mBCRFQty, mWB_YarnKCQty, mBSQTY: Double; // 改为Double类型
//边穿入法 边纱单边筘齿数
mWB_YarnQty, mDCRQTY, mC_KCQTY: Double;
begin
JSJS();
//总经根数 地穿入法
if BCRFQty.Text <> '' then
begin
mBCRFQty := StrToFloatDef(BCRFQty.Text, 0); // 使用StrToFloatDef更安全
end
else
begin
mBCRFQty := 0;
end;
if WB_YarnKCQty.Text <> '' then // 修正了变量名，应该是WB_YarnKCQty而不是BSQTY
begin
mWB_YarnKCQty := StrToFloatDef(WB_YarnKCQty.Text, 0);
end
else
begin
mWB_YarnKCQty := 0;
end;
// 边纱数
mBSQTY := Round(mBCRFQty * mWB_YarnKCQty * 2);
BSQTY.Text := FloatToStr(mBSQTY);
if WB_YarnQty.Text <> '' then
begin
mWB_YarnQty := StrToFloatDef(WB_YarnQty.Text, 0);
end
else
begin
mWB_YarnQty := 0;
end;
if DCRQTY.Text <> '' then
begin
mDCRQTY := StrToFloatDef(DCRQTY.Text, 0);
end
else
begin
mDCRQTY := 0;
end;
if mDCRQTY <> 0 then
begin
mC_KCQTY := RoundFloat(mWB_YarnKCQty * 2 + (mWB_YarnQty - mBSQTY) / mDCRQTY, 2);
C_KCQTY.Text := FloatToStr(mC_KCQTY);
end;
end;
end.

15
E02梭织经轴仓库/U_YarnStkSel.dfm
View File

@ -10,6 +10,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Font.Name = #24494#36719#38597#40657
Position = poMainFormCenter
OnClose = FormClose
ExplicitLeft = -672
ExplicitWidth = 1556
ExplicitHeight = 527
PixelsPerInch = 96
@ -83,7 +84,6 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 27
object Label3: TLabel
Left = 257
Top = 10
@ -189,8 +189,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 79
ExplicitHeight = 406
ExplicitTop = 71
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -353,7 +352,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 70
end
object Tv1Column5: TcxGridDBColumn
Caption = #39068#33394
@ -385,6 +384,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object Tv1Column10: TcxGridDBColumn
Caption = #32442#27861
@ -415,6 +415,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
DataBinding.FieldName = 'StkPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object v2Column6: TcxGridDBColumn
Tag = 2
@ -441,6 +442,12 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Options.Editing = False
Width = 71
end
object Tv1IOTime: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
Width = 80
end
object Tv1Column8: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'

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

@ -73,6 +73,7 @@ type
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
cxImageList_bar: TcxImageList;
Tv1IOTime: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);

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

@ -1,56 +1,56 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.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.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.514,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.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.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj</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.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.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.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.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.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>
<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>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>

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

Binary file not shown.

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

@ -21,7 +21,7 @@
<File Path="JDAESExtend.pas"/>
</ProjectSortOrder>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\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>
<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>
</Transactions>
</BorlandProject>