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

0

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-08-23 14:29:45 +08:00
parent 7d6fca36e0
commit 79a308562d
21 changed files with 389 additions and 268 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -367,9 +367,7 @@ begin
Append; Append;
FieldByName('RowNo').Value := 'F'; FieldByName('RowNo').Value := 'F';
Post; Post;
Append;
FieldByName('RowNo').Value := 'G';
Post;
end; end;
with CDS_2 do with CDS_2 do
begin begin
@ -391,9 +389,7 @@ begin
Append; Append;
FieldByName('RowNo').Value := 'F'; FieldByName('RowNo').Value := 'F';
Post; Post;
Append;
FieldByName('RowNo').Value := 'G';
Post;
end; end;
myStream.Free; myStream.Free;
@ -1798,28 +1794,31 @@ begin
while not ADOQuery1.eof do while not ADOQuery1.eof do
begin begin
with self.CDS_1 do if (ADOQuery1.FieldByName('RowNo').AsString = 'A') or (ADOQuery1.FieldByName('RowNo').AsString = 'B') or (ADOQuery1.FieldByName('RowNo').AsString = 'C') or (ADOQuery1.FieldByName('RowNo').AsString = 'D') or (ADOQuery1.FieldByName('RowNo').AsString = 'E') or (ADOQuery1.FieldByName('RowNo').AsString = 'F') then
begin begin
APpend; with self.CDS_1 do
FieldByName('RowNo').Value := ADOQuery1.fieldbyname('RowNo').Value; begin
APpend;
FieldByName('RowNo').Value := ADOQuery1.fieldbyname('RowNo').Value;
FieldByName('Y_Code').Value := ADOQuery1.fieldbyname('Y_Code').Value; FieldByName('Y_Code').Value := ADOQuery1.fieldbyname('Y_Code').Value;
FieldByName('Y_Name').Value := ADOQuery1.fieldbyname('Y_Name').Value; FieldByName('Y_Name').Value := ADOQuery1.fieldbyname('Y_Name').Value;
FieldByName('Y_Color').Value := ADOQuery1.fieldbyname('Y_Color').Value; FieldByName('Y_Color').Value := ADOQuery1.fieldbyname('Y_Color').Value;
FieldByName('Y_Spec').Value := ADOQuery1.fieldbyname('Y_Spec').Value; FieldByName('Y_Spec').Value := ADOQuery1.fieldbyname('Y_Spec').Value;
FieldByName('YarnQty').Value := ADOQuery1.fieldbyname('YarnQty').Value; FieldByName('YarnQty').Value := ADOQuery1.fieldbyname('YarnQty').Value;
FieldByName('CycleYarnQty').Value := ADOQuery1.fieldbyname('CycleYarnQty').Value; FieldByName('CycleYarnQty').Value := ADOQuery1.fieldbyname('CycleYarnQty').Value;
FieldByName('TestDenier').Value := ADOQuery1.fieldbyname('Denier').Value; FieldByName('TestDenier').Value := ADOQuery1.fieldbyname('Denier').Value;
FieldByName('Z_Number').Value := ADOQuery1.fieldbyname('ZS').Value; FieldByName('Z_Number').Value := ADOQuery1.fieldbyname('ZS').Value;
FieldByName('QFYARNQTY').Value := ADOQuery1.fieldbyname('QFYARNQTY').Value; FieldByName('QFYARNQTY').Value := ADOQuery1.fieldbyname('QFYARNQTY').Value;
FieldByName('MeterQty').Value := ADOQuery1.fieldbyname('MeterQty').Value; FieldByName('MeterQty').Value := ADOQuery1.fieldbyname('MeterQty').Value;
Post; Post;
end;
end; end;
ADOQuery1.next; ADOQuery1.next;

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

@ -450,7 +450,7 @@ begin
// FieldByName('FromOrdNo').Value := CDS_1.fieldbyname('PurNo').value; // FieldByName('FromOrdNo').Value := CDS_1.fieldbyname('PurNo').value;
// FieldByName('FromMainId').Value := CDS_1.fieldbyname('PurMId').value; // FieldByName('FromMainId').Value := CDS_1.fieldbyname('PurMId').value;
// FieldByName('FromSubId').Value := CDS_1.fieldbyname('PurSId').value; // FieldByName('FromSubId').Value := CDS_1.fieldbyname('PurSId').value;
FieldByName('batchno').Value := CDS_1.fieldbyname('PurNo').value;
FieldByName('FromPurNo').Value := CDS_1.fieldbyname('PurNo').value; FieldByName('FromPurNo').Value := CDS_1.fieldbyname('PurNo').value;
FieldByName('FromPurMId').Value := CDS_1.fieldbyname('PurMId').value; FieldByName('FromPurMId').Value := CDS_1.fieldbyname('PurMId').value;
FieldByName('FromPurSId').Value := CDS_1.fieldbyname('PurSId').value; FieldByName('FromPurSId').Value := CDS_1.fieldbyname('PurSId').value;

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

Binary file not shown.

2
E00梭织通用窗体/U_TatPlanSel2.pas
View File

@ -132,7 +132,7 @@ begin
sql.Add(' select *,PZQty=(select count(*) from Tat_WB_Card X where X.OrderNo =A.OrderNo)'); sql.Add(' select *,PZQty=(select count(*) from Tat_WB_Card X where X.OrderNo =A.OrderNo)');
SQL.Add(',apqty=(select sum(WB_YarnLen) from Tat_WB_Card X where X.OrderNo =A.OrderNo)'); SQL.Add(',apqty=(select sum(WB_YarnLen) from Tat_WB_Card X where X.OrderNo =A.OrderNo)');
sql.Add(',ZS=(select ZS from Bs_Cloth_Info X where X.C_Code =B.C_Code) '); sql.Add(',ZS=(select ZS from Bs_Cloth_Info X where X.C_Code =B.C_Code) ');
SQL.Add(',ORDQTY2=ROUND(ORDQTY*1.08,2)');
sql.Add(',ISSizing=(select ISSizing from Tat_WB_Spec E where E.WB_Code =B.WB_Code) '); sql.Add(',ISSizing=(select ISSizing from Tat_WB_Spec E where E.WB_Code =B.WB_Code) ');
sql.Add(' from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.MainId=B.MainId'); sql.Add(' from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.MainId=B.MainId');
//SQL.Add(' where isnull(A.status,''0'')=''9'' '); //SQL.Add(' where isnull(A.status,''0'')=''9'' ');

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

Binary file not shown.

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

@ -9,6 +9,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Height = -16 Font.Height = -16
Position = poScreenCenter Position = poScreenCenter
WindowState = wsMaximized WindowState = wsMaximized
ExplicitTop = -199
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 899 ExplicitHeight = 899
PixelsPerInch = 96 PixelsPerInch = 96
@ -72,7 +73,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Ctl3D = False Ctl3D = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 36
object Label2: TLabel object Label2: TLabel
Left = 922 Left = 922
Top = 5 Top = 5
@ -394,7 +394,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Top = 306 Top = 306
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #33853#24067#31859#25968 Caption = #33853#24067#23450#38271
end end
object Label39: TLabel object Label39: TLabel
Left = 1146 Left = 1146
@ -824,14 +824,12 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
ExplicitHeight = 237
ClientRectBottom = 331 ClientRectBottom = 331
ClientRectRight = 1540 ClientRectRight = 1540
ClientRectTop = 28 ClientRectTop = 28
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512 Caption = #32463#19997#32452#21512
ImageIndex = 0 ImageIndex = 0
ExplicitHeight = 209
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 931 Left = 931
Top = 0 Top = 0
@ -846,7 +844,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitHeight = 209
object Y_Note_PLJ: TMemo object Y_Note_PLJ: TMemo
Tag = 2 Tag = 2
Left = 2 Left = 2
@ -861,7 +858,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitHeight = 176
end end
end end
object Panel1: TPanel object Panel1: TPanel
@ -871,7 +867,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Height = 303 Height = 303
Align = alLeft Align = alLeft
TabOrder = 1 TabOrder = 1
ExplicitHeight = 209
object cxPageControl2: TcxPageControl object cxPageControl2: TcxPageControl
Left = 1 Left = 1
Top = 1 Top = 1
@ -891,7 +886,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Visible = False Visible = False
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 6 Properties.Style = 6
ExplicitHeight = 207
ClientRectBottom = 301 ClientRectBottom = 301
ClientRectRight = 929 ClientRectRight = 929
ClientRectTop = 0 ClientRectTop = 0
@ -903,7 +897,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Height = 301 Height = 301
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitHeight = 207
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -1041,7 +1034,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet2: TcxTabSheet object cxTabSheet2: TcxTabSheet
Caption = #32428#19997#32452#21512 Caption = #32428#19997#32452#21512
ImageIndex = 1 ImageIndex = 1
ExplicitHeight = 209
object GroupBox2: TGroupBox object GroupBox2: TGroupBox
Left = 863 Left = 863
Top = 0 Top = 0
@ -1056,7 +1048,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitHeight = 209
object Y_Note_PLW: TMemo object Y_Note_PLW: TMemo
Tag = 2 Tag = 2
Left = 2 Left = 2
@ -1071,7 +1062,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitHeight = 176
end end
end end
object Panel2: TPanel object Panel2: TPanel
@ -1081,7 +1071,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Height = 303 Height = 303
Align = alLeft Align = alLeft
TabOrder = 1 TabOrder = 1
ExplicitHeight = 209
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 1 Left = 1
Top = 1 Top = 1
@ -1101,7 +1090,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Visible = False Visible = False
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 6 Properties.Style = 6
ExplicitHeight = 207
ClientRectBottom = 301 ClientRectBottom = 301
ClientRectRight = 861 ClientRectRight = 861
ClientRectTop = 0 ClientRectTop = 0
@ -1113,7 +1101,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Height = 301 Height = 301
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitHeight = 207
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -1250,7 +1237,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet3: TcxTabSheet object cxTabSheet3: TcxTabSheet
Caption = #36215#32508#27861 Caption = #36215#32508#27861
ImageIndex = 3 ImageIndex = 3
ExplicitHeight = 209
object Panel5: TPanel object Panel5: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -1264,7 +1250,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitTop = -6
object Label28: TLabel object Label28: TLabel
Left = 18 Left = 18
Top = 4 Top = 4
@ -1309,7 +1294,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet4: TcxTabSheet object cxTabSheet4: TcxTabSheet
Caption = #31359#32508#27861 Caption = #31359#32508#27861
ImageIndex = 3 ImageIndex = 3
ExplicitHeight = 209
object Panel4: TPanel object Panel4: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -1323,7 +1307,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitTop = -6
object Label4: TLabel object Label4: TLabel
Left = 18 Left = 18
Top = 4 Top = 4
@ -1361,8 +1344,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Properties.ShowFocusRect = False Properties.ShowFocusRect = False
Style.BorderStyle = ebsSingle Style.BorderStyle = ebsSingle
TabOrder = 1 TabOrder = 1
ExplicitLeft = 2
ExplicitTop = 42
Height = 262 Height = 262
Width = 1540 Width = 1540
end end
@ -1370,7 +1351,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet5: TcxTabSheet object cxTabSheet5: TcxTabSheet
Caption = #31359#31576#27861 Caption = #31359#31576#27861
ImageIndex = 3 ImageIndex = 3
ExplicitHeight = 209
object CKF: TMemo object CKF: TMemo
Tag = 2 Tag = 2
Left = 0 Left = 0
@ -1386,7 +1366,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitHeight = 209
end end
end end
end end

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

@ -536,9 +536,7 @@ begin
Append; Append;
FieldByName('RowNo').Value := 'F'; FieldByName('RowNo').Value := 'F';
Post; Post;
Append;
FieldByName('RowNo').Value := 'G';
Post;
end; end;
with CDS_2 do with CDS_2 do
begin begin
@ -560,9 +558,7 @@ begin
Append; Append;
FieldByName('RowNo').Value := 'F'; FieldByName('RowNo').Value := 'F';
Post; Post;
Append;
FieldByName('RowNo').Value := 'G';
Post;
end; end;
end; end;

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

@ -9,7 +9,6 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Font.Height = -16 Font.Height = -16
Position = poMainFormCenter Position = poMainFormCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -636
ExplicitWidth = 1833 ExplicitWidth = 1833
ExplicitHeight = 811 ExplicitHeight = 811
PixelsPerInch = 96 PixelsPerInch = 96
@ -28,8 +27,6 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Height = 770 Height = 770
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 547
ExplicitWidth = 1269
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 251 Top = 251
@ -37,7 +34,6 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Height = 518 Height = 518
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1267
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -295,7 +291,6 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Height = 220 Height = 220
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
ExplicitWidth = 1267
object Label2: TLabel object Label2: TLabel
Left = 263 Left = 263
Top = 102 Top = 102
@ -706,7 +701,6 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitLeft = -4
object Label7: TLabel object Label7: TLabel
Left = 12 Left = 12
Top = 140 Top = 140
@ -933,8 +927,6 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Height = 240 Height = 240
Align = alBottom Align = alBottom
TabOrder = 4 TabOrder = 4
ExplicitLeft = -1
ExplicitTop = 529
object TV3: TcxGridDBTableView object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -1291,6 +1283,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 455 Top = 455
ParentColor = True ParentColor = True
TabOrder = 22 TabOrder = 22
Text = 'ordqty'
Width = 120 Width = 120
end end
end end

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

@ -540,7 +540,7 @@ begin
Self.CONNO.Text := Trim(CDS_1.fieldbyname('CONNO').AsString); Self.CONNO.Text := Trim(CDS_1.fieldbyname('CONNO').AsString);
Self.C_CODE.Text := Trim(CDS_1.fieldbyname('C_CODE').AsString); Self.C_CODE.Text := Trim(CDS_1.fieldbyname('C_CODE').AsString);
Self.BegDate.Date := CDS_1.fieldbyname('ORDDATE').AsDateTime; Self.BegDate.Date := CDS_1.fieldbyname('ORDDATE').AsDateTime;
Self.ordqty.Text := Trim(CDS_1.fieldbyname('ordqty').AsString); Self.ordqty.Text := Trim(CDS_1.fieldbyname('ordqty2').AsString);
with ADOQueryTemp do with ADOQueryTemp do
begin begin
close; close;

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

@ -714,6 +714,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitLeft = -4
object Label15: TLabel object Label15: TLabel
Left = 237 Left = 237
Top = 18 Top = 18

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

@ -243,6 +243,9 @@ begin
Label43.Caption := '计划织轴个数'; Label43.Caption := '计划织轴个数';
WB_ProcessType.Properties.Items.Clear; WB_ProcessType.Properties.Items.Clear;
XZ_YarnQty.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnLen').AsString);
XZ_GS.Text := Trim(ADOQueryTemp.fieldbyname('WB_Qty').AsString);
WB_ProcessType.Properties.Items.Add('本厂浆纱'); WB_ProcessType.Properties.Items.Add('本厂浆纱');
WB_ProcessType.Properties.Items.Add('浆纱采购'); WB_ProcessType.Properties.Items.Add('浆纱采购');
WB_ProcessType.Properties.Items.Add('外厂浆纱'); WB_ProcessType.Properties.Items.Add('外厂浆纱');

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

@ -162,7 +162,6 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 115
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -262,6 +261,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
end end
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #26410#23433#25490#25968#37327'(M)' Caption = #26410#23433#25490#25968#37327'(M)'
DataBinding.FieldName = 'wapqty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Content = cxStyle1 Styles.Content = cxStyle1

2
E02梭织经轴仓库/U_TatWBNeedList.pas
View File

@ -141,7 +141,7 @@ begin
// SqlStr := SqlStr + 'and A.GOTime<''' + trim(menddate) + ''' '; // SqlStr := SqlStr + 'and A.GOTime<''' + trim(menddate) + ''' ';
SqlStr := ' select A.* from Tat_WB_Spec A'; SqlStr := ' select A.*,wapqty=(OrdQty-ISNULL(KCQTY,0)-ISNULL(KKQTY,0)) from V_JZXQTJ A';
// case cxTabControl1.TabIndex of // case cxTabControl1.TabIndex of

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

@ -6,7 +6,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
ClientWidth = 1540 ClientWidth = 1540
Font.Height = -16 Font.Height = -16
Position = poScreenCenter Position = poScreenCenter
ExplicitLeft = -17
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 691 ExplicitHeight = 691
PixelsPerInch = 96 PixelsPerInch = 96
@ -203,7 +202,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Height = 29 Height = 29
Date = 40675.000000000000000000 Date = 40675.000000000000000000
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
Time = 0.464761099538009100 Time = 0.464761099538009200
TabOrder = 1 TabOrder = 1
end end
object CustName: TEdit object CustName: TEdit
@ -432,8 +431,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 6
ExplicitTop = 61
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -602,8 +599,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
#31232#36724 #31232#36724
#27974#36724) #27974#36724)
OnChange = cxTabControl2Change OnChange = cxTabControl2Change
ExplicitLeft = 6
ExplicitTop = 45
ClientRectBottom = 30 ClientRectBottom = 30
ClientRectRight = 564 ClientRectRight = 564
ClientRectTop = 30 ClientRectTop = 30

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

@ -66,8 +66,6 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Height = 330 Height = 330
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitTop = 353
ExplicitHeight = 263
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 1 Left = 1
Top = 42 Top = 42
@ -87,7 +85,6 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Visible = False Visible = False
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 6 Properties.Style = 6
ExplicitHeight = 220
ClientRectBottom = 287 ClientRectBottom = 287
ClientRectRight = 1427 ClientRectRight = 1427
ClientRectTop = 0 ClientRectTop = 0
@ -100,8 +97,6 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Align = alTop Align = alTop
TabOrder = 1 TabOrder = 1
Visible = False Visible = False
ExplicitLeft = 2
ExplicitTop = 6
object Panel6: TPanel object Panel6: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
@ -373,7 +368,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
OnDblClick = gynoDblClick OnDblClick = gynoDblClick
ExplicitTop = 41 ExplicitTop = 41
object Label3: TLabel object Label3: TLabel
Left = 715 Left = 756
Top = 14 Top = 14
Width = 48 Width = 48
Height = 21 Height = 21
@ -399,7 +394,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
end end
object Label47: TLabel object Label47: TLabel
Left = 480 Left = 521
Top = 16 Top = 16
Width = 48 Width = 48
Height = 21 Height = 21
@ -425,7 +420,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 236 Left = 277
Top = 117 Top = 117
Width = 96 Width = 96
Height = 21 Height = 21
@ -451,7 +446,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
end end
object Label9: TLabel object Label9: TLabel
Left = 236 Left = 277
Top = 81 Top = 81
Width = 112 Width = 112
Height = 21 Height = 21
@ -490,7 +485,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
end end
object Label15: TLabel object Label15: TLabel
Left = 236 Left = 277
Top = 8 Top = 8
Width = 80 Width = 80
Height = 21 Height = 21
@ -503,7 +498,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
end end
object Label17: TLabel object Label17: TLabel
Left = 236 Left = 277
Top = 154 Top = 154
Width = 112 Width = 112
Height = 21 Height = 21
@ -516,7 +511,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
end end
object Label18: TLabel object Label18: TLabel
Left = 480 Left = 521
Top = 146 Top = 146
Width = 80 Width = 80
Height = 21 Height = 21
@ -542,7 +537,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
end end
object Label22: TLabel object Label22: TLabel
Left = 236 Left = 277
Top = 299 Top = 299
Width = 48 Width = 48
Height = 21 Height = 21
@ -555,7 +550,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
end end
object Label1: TLabel object Label1: TLabel
Left = 236 Left = 277
Top = 190 Top = 190
Width = 80 Width = 80
Height = 21 Height = 21
@ -594,7 +589,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
end end
object Label8: TLabel object Label8: TLabel
Left = 236 Left = 277
Top = 226 Top = 226
Width = 64 Width = 64
Height = 21 Height = 21
@ -620,7 +615,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
end end
object Label25: TLabel object Label25: TLabel
Left = 236 Left = 277
Top = 262 Top = 262
Width = 64 Width = 64
Height = 21 Height = 21
@ -633,7 +628,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
end end
object Label26: TLabel object Label26: TLabel
Left = 480 Left = 521
Top = 187 Top = 187
Width = 112 Width = 112
Height = 21 Height = 21
@ -646,14 +641,14 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
end end
object Label27: TLabel object Label27: TLabel
Left = 714 Left = 755
Top = 146 Top = 146
Width = 48 Width = 48
Height = 21 Height = 21
Caption = #24182#25968#65306 Caption = #24182#25968#65306
end end
object Label28: TLabel object Label28: TLabel
Left = 480 Left = 521
Top = 293 Top = 293
Width = 64 Width = 64
Height = 21 Height = 21
@ -666,7 +661,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
end end
object Label29: TLabel object Label29: TLabel
Left = 715 Left = 756
Top = 293 Top = 293
Width = 48 Width = 48
Height = 21 Height = 21
@ -679,7 +674,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
end end
object Label30: TLabel object Label30: TLabel
Left = 480 Left = 521
Top = 329 Top = 329
Width = 80 Width = 80
Height = 21 Height = 21
@ -705,7 +700,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
end end
object Label32: TLabel object Label32: TLabel
Left = 236 Left = 277
Top = 335 Top = 335
Width = 80 Width = 80
Height = 21 Height = 21
@ -718,7 +713,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
end end
object Label10: TLabel object Label10: TLabel
Left = 899 Left = 940
Top = 14 Top = 14
Width = 48 Width = 48
Height = 21 Height = 21
@ -730,8 +725,60 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
end end
object Label16: TLabel
Left = 225
Top = 79
Width = 16
Height = 21
Caption = 'M'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label19: TLabel
Left = 226
Top = 112
Width = 16
Height = 21
Caption = 'M'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label23: TLabel
Left = 513
Top = 78
Width = 16
Height = 21
Caption = #20010
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label24: TLabel
Left = 514
Top = 111
Width = 16
Height = 21
Caption = #20010
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object C_NAME: TEdit object C_NAME: TEdit
Left = 766 Left = 807
Top = 8 Top = 8
Width = 120 Width = 120
Height = 27 Height = 27
@ -775,10 +822,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
OnDblClick = gynoDblClick OnDblClick = gynoDblClick
OnExit = WB_YarnTotalLenExit
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object WB_Qty: TEdit object WB_Qty: TEdit
Left = 346 Left = 387
Top = 112 Top = 112
Width = 120 Width = 120
Height = 27 Height = 27
@ -808,7 +856,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object WB_Qty_YJJZZS: TEdit object WB_Qty_YJJZZS: TEdit
Left = 346 Left = 387
Top = 76 Top = 76
Width = 120 Width = 120
Height = 27 Height = 27
@ -853,7 +901,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object WB_Name: TEdit object WB_Name: TEdit
Left = 346 Left = 387
Top = 148 Top = 148
Width = 120 Width = 120
Height = 27 Height = 27
@ -868,7 +916,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object WB_YarnQty: TEdit object WB_YarnQty: TEdit
Left = 586 Left = 627
Top = 147 Top = 147
Width = 120 Width = 120
Height = 27 Height = 27
@ -883,7 +931,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object WB_ReedNo: TEdit object WB_ReedNo: TEdit
Left = 346 Left = 387
Top = 291 Top = 291
Width = 120 Width = 120
Height = 27 Height = 27
@ -898,7 +946,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object Z_FJGENSHU: TEdit object Z_FJGENSHU: TEdit
Left = 346 Left = 387
Top = 184 Top = 184
Width = 120 Width = 120
Height = 27 Height = 27
@ -928,7 +976,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object C_KCQTY: TcxTextEdit object C_KCQTY: TcxTextEdit
Left = 586 Left = 627
Top = 289 Top = 289
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
@ -942,7 +990,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120 Width = 120
end end
object WB_Width: TcxTextEdit object WB_Width: TcxTextEdit
Left = 766 Left = 807
Top = 289 Top = 289
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
@ -956,7 +1004,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120 Width = 120
end end
object WB_ReedNote: TcxTextEdit object WB_ReedNote: TcxTextEdit
Left = 586 Left = 627
Top = 324 Top = 324
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
@ -984,7 +1032,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120 Width = 120
end end
object DCRQTY: TcxTextEdit object DCRQTY: TcxTextEdit
Left = 346 Left = 387
Top = 327 Top = 327
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
@ -998,7 +1046,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120 Width = 120
end end
object Z_ZHOUSHU1: TEdit object Z_ZHOUSHU1: TEdit
Left = 346 Left = 387
Top = 219 Top = 219
Width = 120 Width = 120
Height = 27 Height = 27
@ -1013,7 +1061,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object Z_ZHOUSHU2: TEdit object Z_ZHOUSHU2: TEdit
Left = 346 Left = 387
Top = 255 Top = 255
Width = 120 Width = 120
Height = 27 Height = 27
@ -1058,7 +1106,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object Z_BINGSHU: TEdit object Z_BINGSHU: TEdit
Left = 766 Left = 807
Top = 144 Top = 144
Width = 120 Width = 120
Height = 27 Height = 27
@ -1073,7 +1121,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object Z_MAXKESHU: TEdit object Z_MAXKESHU: TEdit
Left = 586 Left = 627
Top = 184 Top = 184
Width = 120 Width = 120
Height = 27 Height = 27
@ -1107,7 +1155,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120 Width = 120
end end
object CustName: TcxButtonEdit object CustName: TcxButtonEdit
Left = 586 Left = 627
Top = 5 Top = 5
ParentFont = False ParentFont = False
Properties.Buttons = < Properties.Buttons = <
@ -1126,7 +1174,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120 Width = 120
end end
object gyno: TcxButtonEdit object gyno: TcxButtonEdit
Left = 346 Left = 387
Top = 5 Top = 5
ParentFont = False ParentFont = False
Properties.Buttons = < Properties.Buttons = <
@ -1145,7 +1193,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Width = 120 Width = 120
end end
object C_CODE: TEdit object C_CODE: TEdit
Left = 950 Left = 991
Top = 8 Top = 8
Width = 120 Width = 120
Height = 27 Height = 27

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

@ -109,6 +109,10 @@ type
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Label10: TLabel; Label10: TLabel;
C_CODE: TEdit; C_CODE: TEdit;
Label16: TLabel;
Label19: TLabel;
Label23: TLabel;
Label24: TLabel;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -129,6 +133,7 @@ type
procedure gynoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure gynoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column6PropertiesEditValueChanged(Sender: TObject); procedure Tv1Column6PropertiesEditValueChanged(Sender: TObject);
procedure WB_YarnTotalLenExit(Sender: TObject);
private private
procedure InitData(); procedure InitData();
function SaveData(): Boolean; function SaveData(): Boolean;
@ -251,7 +256,7 @@ begin
Open; Open;
end; end;
Self.WB_YarnTotalLen.Text := Trim(CDS_1.fieldbyname('ORDQTY').AsString); Self.WB_YarnTotalLen.Text := Trim(CDS_1.fieldbyname('ORDQTY2').AsString);
Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').AsString); Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').AsString);
Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString); Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString);
@ -321,6 +326,7 @@ begin
finally finally
frmTatPlanSel2.Free; frmTatPlanSel2.Free;
end; end;
WB_YarnTotalLenExit(Sender);
end; end;
function TfrmTatWBPlanInPut.SaveData(): Boolean; function TfrmTatWBPlanInPut.SaveData(): Boolean;
@ -503,7 +509,7 @@ end;
procedure TfrmTatWBPlanInPut.Tv1Column6PropertiesEditValueChanged(Sender: TObject); procedure TfrmTatWBPlanInPut.Tv1Column6PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
ZS, ZGS: double; ZS, ZGS, zms: double;
begin begin
mvalue := TcxTextEdit(Sender).EditingText; mvalue := TcxTextEdit(Sender).EditingText;
@ -514,7 +520,7 @@ begin
Edit; Edit;
FieldByName(FFieldName).Value := mvalue; FieldByName(FFieldName).Value := mvalue;
Post; Post;
zms := StrToFloatDef(WB_YarnTotalLen.Text, 0);
if FieldByName('QFYARNQTY').Value = null then if FieldByName('QFYARNQTY').Value = null then
begin begin
ZGS := 0; //QUANFU¸ùÊý ZGS := 0; //QUANFU¸ùÊý
@ -540,6 +546,7 @@ begin
begin begin
Edit; Edit;
FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2); FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2);
FieldByName('JHYLQTY').Value := roundfloat(ZGS * 0.059 / ZS * 1.08 / 100 * zms, 2);
Post; Post;
end; end;
end; end;
@ -711,6 +718,58 @@ begin
end; end;
end; end;
procedure TfrmTatWBPlanInPut.WB_YarnTotalLenExit(Sender: TObject);
var
ZS, ZGS, zms: double;
begin
with CDS_1 do
begin
DisableControls;
first;
while not eof do
begin
with CDS_1 do
begin
zms := StrToFloatDef(WB_YarnTotalLen.Text, 0);
if FieldByName('QFYARNQTY').Value = null then
begin
ZGS := 0; //QUANFU根数
end
else
begin
ZGS := FieldByName('QFYARNQTY').Value; //全服根数
end;
if FieldByName('ZS').Value = null then
begin
ZS := 0; //循环根数
end
else
begin
ZS := FieldByName('ZS').Value; //循环根数
end;
end;
if ZS <> 0 then
begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2);
FieldByName('JHYLQTY').Value := roundfloat(ZGS * 0.059 / ZS * 1.08 / 100 * zms, 2);
Post;
end;
end;
next;
end;
First;
EnableControls;
end;
end;
procedure TfrmTatWBPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char); procedure TfrmTatWBPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then

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

@ -119,8 +119,6 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Height = 592 Height = 592
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = -3
ExplicitTop = 6
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -173,7 +171,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook
end end
object TV1Column7: TcxGridDBColumn object TV1Column7: TcxGridDBColumn
Caption = #35746#21333#25968#37327 Caption = #35746#21333#25968#37327
DataBinding.FieldName = 'OrdQty' DataBinding.FieldName = 'OrdQty2'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Header = cxStyle1 Styles.Header = cxStyle1
@ -186,6 +184,20 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Styles.Header = cxStyle2 Styles.Header = cxStyle2
Width = 104 Width = 104
end end
object TV1Column9: TcxGridDBColumn
Caption = #24050#23433#25490#25968#37327
DataBinding.FieldName = 'apqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 96
end
object TV1Column10: TcxGridDBColumn
Caption = #26410#23433#25490#25968#37327
DataBinding.FieldName = 'Wapqty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = TV1 GridView = TV1
@ -199,135 +211,163 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Height = 594 Height = 594
Align = alClient Align = alClient
TabOrder = 5 TabOrder = 5
object cxGrid2: TcxGrid object cxGroupBox1: TcxGroupBox
Left = 1 Left = 1
Top = 1 Top = 1
Width = 745
Height = 248
Align = alTop Align = alTop
Caption = #32463#36724#24211#23384
TabOrder = 0 TabOrder = 0
object TV2: TcxGridDBTableView Height = 296
Navigator.Buttons.CustomButtons = <> Width = 745
ScrollbarAnnotations.CustomAnnotations = <> object cxGrid2: TcxGrid
DataController.DataSource = DS_2 Left = 2
DataController.Summary.DefaultGroupSummaryItems = <> Top = 26
DataController.Summary.FooterSummaryItems = <> Width = 741
DataController.Summary.SummaryGroups = <> Height = 268
OptionsView.GroupByBox = False Align = alClient
object TV2Column1: TcxGridDBColumn TabOrder = 0
Caption = #25972#32463#24037#33402#32534#21495 ExplicitLeft = 4
DataBinding.FieldName = 'WB_Code' ExplicitHeight = 248
DataBinding.IsNullValueType = True object TV2: TcxGridDBTableView
HeaderAlignmentHorz = taCenter Navigator.Buttons.CustomButtons = <>
Width = 124 ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsView.GroupByBox = False
object TV2Column1: TcxGridDBColumn
Caption = #25972#32463#24037#33402#32534#21495
DataBinding.FieldName = 'WB_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 124
end
object TV2Column2: TcxGridDBColumn
Caption = #25972#32463#24037#33402#21517#31216
DataBinding.FieldName = 'WB_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 124
end
object TV2Column3: TcxGridDBColumn
Caption = #36724#21345#21495
DataBinding.FieldName = 'WBCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object TV2Column4: TcxGridDBColumn
Caption = #36801#32463#26426#21488
DataBinding.FieldName = 'WB_MachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 86
end
object TV2Column5: TcxGridDBColumn
Caption = #25972#32463#24037
DataBinding.FieldName = 'WB_Macher'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2Column6: TcxGridDBColumn
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 85
end
object TV2Column7: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'StkPosition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 54
end
end end
object TV2Column2: TcxGridDBColumn object cxGrid2Level1: TcxGridLevel
Caption = #25972#32463#24037#33402#21517#31216 GridView = TV2
DataBinding.FieldName = 'WB_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 124
end end
object TV2Column3: TcxGridDBColumn
Caption = #36724#21345#21495
DataBinding.FieldName = 'WBCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object TV2Column4: TcxGridDBColumn
Caption = #36801#32463#26426#21488
DataBinding.FieldName = 'WB_MachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 86
end
object TV2Column5: TcxGridDBColumn
Caption = #25972#32463#24037
DataBinding.FieldName = 'WB_Macher'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2Column6: TcxGridDBColumn
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 85
end
object TV2Column7: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'StkPosition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 54
end
end
object cxGrid2Level1: TcxGridLevel
GridView = TV2
end end
end end
object cxGrid3: TcxGrid object cxGroupBox2: TcxGroupBox
Left = 1 Left = 1
Top = 249 Top = 297
Width = 745
Height = 344
Align = alClient Align = alClient
Caption = #26410#29983#20135#36724#21345
TabOrder = 1 TabOrder = 1
object TV3: TcxGridDBTableView ExplicitLeft = 200
Navigator.Buttons.CustomButtons = <> ExplicitTop = 408
ScrollbarAnnotations.CustomAnnotations = <> ExplicitWidth = 185
DataController.DataSource = DS_3 ExplicitHeight = 105
DataController.Summary.DefaultGroupSummaryItems = <> Height = 296
DataController.Summary.FooterSummaryItems = <> Width = 745
DataController.Summary.SummaryGroups = <> object cxGrid3: TcxGrid
OptionsView.GroupByBox = False Left = 2
object TV3Column1: TcxGridDBColumn Top = 26
Caption = #25972#32463#35745#21010#21333#21495 Width = 741
DataBinding.FieldName = 'WBCNO' Height = 268
DataBinding.IsNullValueType = True Align = alClient
HeaderAlignmentHorz = taCenter TabOrder = 0
Width = 131 ExplicitLeft = 4
ExplicitTop = 28
ExplicitWidth = 181
ExplicitHeight = 77
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsView.GroupByBox = False
object TV3Column1: TcxGridDBColumn
Caption = #25972#32463#35745#21010#21333#21495
DataBinding.FieldName = 'WBCNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 131
end
object TV3Column2: TcxGridDBColumn
Caption = #36724#21345#21495
DataBinding.FieldName = 'WBCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV3Column3: TcxGridDBColumn
Caption = #24320#21345#26102#38388
DataBinding.FieldName = 'filltime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV3Column4: TcxGridDBColumn
Caption = #36801#32463#26426#21488
DataBinding.FieldName = 'WB_MachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV3Column5: TcxGridDBColumn
Caption = #32463#36724#31867#22411
DataBinding.FieldName = 'WB_ProcessType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV3Column6: TcxGridDBColumn
Caption = #24320#21345#25968#37327
DataBinding.FieldName = 'WB_YarnLen'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
end end
object TV3Column2: TcxGridDBColumn object cxGrid3Level1: TcxGridLevel
Caption = #36724#21345#21495 GridView = TV3
DataBinding.FieldName = 'WBCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end end
object TV3Column3: TcxGridDBColumn
Caption = #24320#21345#26102#38388
DataBinding.FieldName = 'filltime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV3Column4: TcxGridDBColumn
Caption = #36801#32463#26426#21488
DataBinding.FieldName = 'WB_MachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV3Column5: TcxGridDBColumn
Caption = #32463#36724#31867#22411
DataBinding.FieldName = 'WB_ProcessType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV3Column6: TcxGridDBColumn
Caption = #24320#21345#25968#37327
DataBinding.FieldName = 'WB_YarnLen'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
end
object cxGrid3Level1: TcxGridLevel
GridView = TV3
end end
end end
end end
@ -415,13 +455,11 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Top = 280 Top = 280
end end
object cxGridPopupMenu2: TcxGridPopupMenu object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <> PopupMenus = <>
Left = 560 Left = 560
Top = 304 Top = 304
end end
object cxGridPopupMenu3: TcxGridPopupMenu object cxGridPopupMenu3: TcxGridPopupMenu
Grid = cxGrid3
PopupMenus = <> PopupMenus = <>
Left = 560 Left = 560
Top = 360 Top = 360

54
E02梭织经轴仓库/U_WBNeedLook.pas
View File

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxSkinsCore, dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxSkinsCore,
dxSkinsDefaultPainters, cxProgressBar; dxSkinsDefaultPainters, cxProgressBar, cxGroupBox;
type type
TfrmWBNeedLook = class(TfrmBaseList) TfrmWBNeedLook = class(TfrmBaseList)
@ -38,12 +38,6 @@ type
TV1: TcxGridDBTableView; TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
TV2: TcxGridDBTableView;
cxGrid2Level1: TcxGridLevel;
cxGrid2: TcxGrid;
TV3: TcxGridDBTableView;
cxGrid3Level1: TcxGridLevel;
cxGrid3: TcxGrid;
TV1Column1: TcxGridDBColumn; TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn; TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn; TV1Column3: TcxGridDBColumn;
@ -55,19 +49,6 @@ type
cxStyleRepository1: TcxStyleRepository; cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle; cxStyle1: TcxStyle;
cxStyle2: TcxStyle; cxStyle2: TcxStyle;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
TV2Column5: TcxGridDBColumn;
TV2Column6: TcxGridDBColumn;
TV2Column7: TcxGridDBColumn;
TV3Column1: TcxGridDBColumn;
TV3Column2: TcxGridDBColumn;
TV3Column3: TcxGridDBColumn;
TV3Column4: TcxGridDBColumn;
TV3Column5: TcxGridDBColumn;
TV3Column6: TcxGridDBColumn;
DS_2: TDataSource; DS_2: TDataSource;
CDS_3: TClientDataSet; CDS_3: TClientDataSet;
CDS_1: TClientDataSet; CDS_1: TClientDataSet;
@ -75,6 +56,29 @@ type
DS_3: TDataSource; DS_3: TDataSource;
cxGridPopupMenu2: TcxGridPopupMenu; cxGridPopupMenu2: TcxGridPopupMenu;
cxGridPopupMenu3: TcxGridPopupMenu; cxGridPopupMenu3: TcxGridPopupMenu;
cxGroupBox1: TcxGroupBox;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
TV2Column5: TcxGridDBColumn;
TV2Column6: TcxGridDBColumn;
TV2Column7: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
cxGroupBox2: TcxGroupBox;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
TV3Column1: TcxGridDBColumn;
TV3Column2: TcxGridDBColumn;
TV3Column3: TcxGridDBColumn;
TV3Column4: TcxGridDBColumn;
TV3Column5: TcxGridDBColumn;
TV3Column6: TcxGridDBColumn;
cxGrid3Level1: TcxGridLevel;
TV1Column9: TcxGridDBColumn;
TV1Column10: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -138,7 +142,11 @@ begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select A.*,B.* from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.Mainid=B.MainId'); sql.Add(' select A.*,B.*,OrdQty2=round(OrdQty*1.08,2) ');
sql.Add(',apqty=(select sum(WB_YarnLen) FROM Tat_WB_Card E WHERE E.TWPId=B.SUBID AND WB_Type<>''Ï¡Öá'')');
sql.Add(',Wapqty=round(OrdQty*1.08,2)-ISNULL((select sum(WB_YarnLen) FROM Tat_WB_Card E WHERE E.TWPId=B.SUBID AND WB_Type<>''Ï¡Öá''),0)');
SQL.ADD('from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.Mainid=B.MainId');
SQL.Add('WHERE WB_Code=' + QuotedStr(FWB_Code)); SQL.Add('WHERE WB_Code=' + QuotedStr(FWB_Code));
SQL.Add('ORDER BY FILLTIME DESC'); SQL.Add('ORDER BY FILLTIME DESC');
@ -167,12 +175,13 @@ begin
sql.Clear; sql.Clear;
sql.Add(' EXEC P_TatWB_StkALL '); sql.Add(' EXEC P_TatWB_StkALL ');
sql.Add(' select A.WBNo ORGWBNo,B.*,C.*,WB_YarnQty2= cast (WB_YarnQty AS Varchar) '); sql.Add(' select A.WBNo ORGWBNo,B.*,C.*,WB_YarnQty2= cast (WB_YarnQty AS Varchar) ');
sql.Add(' ,JSName=cast((SELECT Y_Name +'';'' from Tat_WB_Formula X inner join Tat_WB_Spec Y on X.WBSID=Y.WBSID where C.WB_Code=Y.WB_Code FOR XML PATH(''''))as VARCHAR(6000) )'); sql.Add(' ,JSName=cast((SELECT Y_Name +'';'' from Tat_WB_Formula X inner join Tat_WB_Spec Y on X.WBSID=Y.WBSID where C.WB_Code=Y.WB_Code FOR XML PATH(''''))as VARCHAR(6000) )');
sql.Add(' from Tat_WB_Stk A inner join Tat_WB_IO B on A.STKTWIOID=B.TWIOID '); sql.Add(' from Tat_WB_Stk A inner join Tat_WB_IO B on A.STKTWIOID=B.TWIOID ');
sql.Add(' inner join Tat_WB_Card C on C.WBCID=B.WBCID '); sql.Add(' inner join Tat_WB_Card C on C.WBCID=B.WBCID ');
sql.Add(' where B.IOFlag =''入库'' and isnull(B.stkName,'''')=''' + Trim('经轴') + ''''); sql.Add(' where B.IOFlag =''入库'' and isnull(B.stkName,'''')=''' + Trim('经轴') + '''');
sql.Add('and WB_Code=''' + Trim(FWB_Code) + ''''); sql.Add('and WB_Code=''' + Trim(FWB_Code) + '''');
SQL.Add('AND WB_Type<>''Ï¡Öá''');
// sql.Add(' where A.STKName =''经轴'' and A.IOFlag =''出库'' and A.WBNo like ''%JZ%'' and isnull(CLFlag,0)=0 '); // sql.Add(' where A.STKName =''经轴'' and A.IOFlag =''出库'' and A.WBNo like ''%JZ%'' and isnull(CLFlag,0)=0 ');
// sql.Add(' and not EXISTS (select * from Tat_WB_IO X where X.STKName =''空轴'' and X.IOFlag =''入库'' and A.WBNO =X.WBNO) '); // sql.Add(' and not EXISTS (select * from Tat_WB_IO X where X.STKName =''空轴'' and X.IOFlag =''入库'' and A.WBNO =X.WBNO) ');
@ -196,6 +205,7 @@ begin
sql.add(' from Tat_WB_Card A '); sql.add(' from Tat_WB_Card A ');
sql.Add(' where 1=1'); sql.Add(' where 1=1');
sql.Add('and WB_Code=''' + Trim(FWB_Code) + ''''); sql.Add('and WB_Code=''' + Trim(FWB_Code) + '''');
SQL.Add('AND WB_Type<>''Ï¡Öá''');
Open; Open;
end; end;

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

@ -128,19 +128,19 @@
</ProjectSortOrder> </ProjectSortOrder>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction>
<Transaction>2025-08-20 09:44:28.981,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas</Transaction>
</Transactions> </Transactions>
</BorlandProject> </BorlandProject>

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

Binary file not shown.

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

Binary file not shown.