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

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

@ -367,9 +367,7 @@ begin
Append;
FieldByName('RowNo').Value := 'F';
Post;
Append;
FieldByName('RowNo').Value := 'G';
Post;
end;
with CDS_2 do
begin
@ -391,9 +389,7 @@ begin
Append;
FieldByName('RowNo').Value := 'F';
Post;
Append;
FieldByName('RowNo').Value := 'G';
Post;
end;
myStream.Free;
@ -1797,6 +1793,8 @@ begin
self.ADOQuery1.First;
while not ADOQuery1.eof do
begin
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
with self.CDS_1 do
begin
@ -1821,6 +1819,7 @@ begin
Post;
end;
end;
ADOQuery1.next;
end;

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

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

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

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

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

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

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

@ -540,7 +540,7 @@ begin
Self.CONNO.Text := Trim(CDS_1.fieldbyname('CONNO').AsString);
Self.C_CODE.Text := Trim(CDS_1.fieldbyname('C_CODE').AsString);
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
begin
close;

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

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

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

@ -243,6 +243,9 @@ begin
Label43.Caption := '计划织轴个数';
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('外厂浆纱');

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

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

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

@ -141,7 +141,7 @@ begin
// 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

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

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

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

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

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

@ -109,6 +109,10 @@ type
Tv1Column4: TcxGridDBColumn;
Label10: TLabel;
C_CODE: TEdit;
Label16: TLabel;
Label19: TLabel;
Label23: TLabel;
Label24: TLabel;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -129,6 +133,7 @@ type
procedure gynoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column6PropertiesEditValueChanged(Sender: TObject);
procedure WB_YarnTotalLenExit(Sender: TObject);
private
procedure InitData();
function SaveData(): Boolean;
@ -251,7 +256,7 @@ begin
Open;
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_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString);
@ -321,6 +326,7 @@ begin
finally
frmTatPlanSel2.Free;
end;
WB_YarnTotalLenExit(Sender);
end;
function TfrmTatWBPlanInPut.SaveData(): Boolean;
@ -503,7 +509,7 @@ end;
procedure TfrmTatWBPlanInPut.Tv1Column6PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
ZS, ZGS: double;
ZS, ZGS, zms: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
@ -514,7 +520,7 @@ begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
zms := StrToFloatDef(WB_YarnTotalLen.Text, 0);
if FieldByName('QFYARNQTY').Value = null then
begin
ZGS := 0; //QUANFU¸ùÊý
@ -540,6 +546,7 @@ begin
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;
@ -711,6 +718,58 @@ begin
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);
begin
if Key = #13 then

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

@ -119,8 +119,6 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Height = 592
Align = alClient
TabOrder = 0
ExplicitLeft = -3
ExplicitTop = 6
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -173,7 +171,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook
end
object TV1Column7: TcxGridDBColumn
Caption = #35746#21333#25968#37327
DataBinding.FieldName = 'OrdQty'
DataBinding.FieldName = 'OrdQty2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = cxStyle1
@ -186,6 +184,20 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Styles.Header = cxStyle2
Width = 104
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
object cxGrid1Level1: TcxGridLevel
GridView = TV1
@ -199,13 +211,23 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Height = 594
Align = alClient
TabOrder = 5
object cxGrid2: TcxGrid
object cxGroupBox1: TcxGroupBox
Left = 1
Top = 1
Width = 745
Height = 248
Align = alTop
Caption = #32463#36724#24211#23384
TabOrder = 0
Height = 296
Width = 745
object cxGrid2: TcxGrid
Left = 2
Top = 26
Width = 741
Height = 268
Align = alClient
TabOrder = 0
ExplicitLeft = 4
ExplicitHeight = 248
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -268,13 +290,30 @@ inherited frmWBNeedLook: TfrmWBNeedLook
GridView = TV2
end
end
object cxGrid3: TcxGrid
end
object cxGroupBox2: TcxGroupBox
Left = 1
Top = 249
Width = 745
Height = 344
Top = 297
Align = alClient
Caption = #26410#29983#20135#36724#21345
TabOrder = 1
ExplicitLeft = 200
ExplicitTop = 408
ExplicitWidth = 185
ExplicitHeight = 105
Height = 296
Width = 745
object cxGrid3: TcxGrid
Left = 2
Top = 26
Width = 741
Height = 268
Align = alClient
TabOrder = 0
ExplicitLeft = 4
ExplicitTop = 28
ExplicitWidth = 181
ExplicitHeight = 77
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -331,6 +370,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook
end
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
Left = 313
@ -415,13 +455,11 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Top = 280
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 560
Top = 304
end
object cxGridPopupMenu3: TcxGridPopupMenu
Grid = cxGrid3
PopupMenus = <>
Left = 560
Top = 360

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

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxSkinsCore,
dxSkinsDefaultPainters, cxProgressBar;
dxSkinsDefaultPainters, cxProgressBar, cxGroupBox;
type
TfrmWBNeedLook = class(TfrmBaseList)
@ -38,12 +38,6 @@ type
TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
TV2: TcxGridDBTableView;
cxGrid2Level1: TcxGridLevel;
cxGrid2: TcxGrid;
TV3: TcxGridDBTableView;
cxGrid3Level1: TcxGridLevel;
cxGrid3: TcxGrid;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
@ -55,19 +49,6 @@ type
cxStyleRepository1: TcxStyleRepository;
cxStyle1: 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;
CDS_3: TClientDataSet;
CDS_1: TClientDataSet;
@ -75,6 +56,29 @@ type
DS_3: TDataSource;
cxGridPopupMenu2: 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 FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
@ -138,7 +142,11 @@ begin
Filtered := False;
Close;
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('ORDER BY FILLTIME DESC');
@ -173,6 +181,7 @@ begin
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('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(' 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(' where 1=1');
sql.Add('and WB_Code=''' + Trim(FWB_Code) + '''');
SQL.Add('AND WB_Type<>''Ï¡Öá''');
Open;
end;

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

@ -128,19 +128,19 @@
</ProjectSortOrder>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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>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>
</BorlandProject>

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

Binary file not shown.

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

Binary file not shown.