From 79a308562d3b4f4be63cc52629ef312cdbccc630 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Sat, 23 Aug 2025 14:29:45 +0800 Subject: [PATCH] 0 --- A02基础产品管理/U_TatClothInfoInput.pas | 39 ++-- B02基础纱线仓库/U_YarnInEdit.pas | 2 +- B02基础纱线仓库/YarnStk.identcache | Bin 3802 -> 3802 bytes E00梭织通用窗体/U_TatPlanSel2.pas | 2 +- E01梭织生产计划/TatPlan.identcache | Bin 3138 -> 3138 bytes E01梭织生产计划/U_TatPlanInPut.dfm | 25 +-- E01梭织生产计划/U_TatPlanInPut.pas | 8 +- E02梭织经轴仓库/U_TatWBCardInPut.dfm | 9 +- E02梭织经轴仓库/U_TatWBCardInPut.pas | 2 +- E02梭织经轴仓库/U_TatWBCardInPut2.dfm | 1 + E02梭织经轴仓库/U_TatWBCardInPut2.pas | 3 + E02梭织经轴仓库/U_TatWBNeedList.dfm | 2 +- E02梭织经轴仓库/U_TatWBNeedList.pas | 2 +- E02梭织经轴仓库/U_TatWBPlan.dfm | 7 +- E02梭织经轴仓库/U_TatWBPlanInPut.dfm | 130 +++++++---- E02梭织经轴仓库/U_TatWBPlanInPut.pas | 65 +++++- E02梭织经轴仓库/U_WBNeedLook.dfm | 280 ++++++++++++++---------- E02梭织经轴仓库/U_WBNeedLook.pas | 54 +++-- E02梭织经轴仓库/WarpBeamStk.dproj.local | 26 +-- E02梭织经轴仓库/WarpBeamStk.identcache | Bin 5396 -> 5396 bytes E02梭织经轴仓库/testDll.identcache | Bin 178 -> 178 bytes 21 files changed, 389 insertions(+), 268 deletions(-) diff --git a/A02基础产品管理/U_TatClothInfoInput.pas b/A02基础产品管理/U_TatClothInfoInput.pas index 79875dd..6193245 100644 --- a/A02基础产品管理/U_TatClothInfoInput.pas +++ b/A02基础产品管理/U_TatClothInfoInput.pas @@ -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; @@ -1798,28 +1794,31 @@ begin while not ADOQuery1.eof do 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 - APpend; - FieldByName('RowNo').Value := ADOQuery1.fieldbyname('RowNo').Value; + with self.CDS_1 do + begin + APpend; + FieldByName('RowNo').Value := ADOQuery1.fieldbyname('RowNo').Value; - FieldByName('Y_Code').Value := ADOQuery1.fieldbyname('Y_Code').Value; - FieldByName('Y_Name').Value := ADOQuery1.fieldbyname('Y_Name').Value; + FieldByName('Y_Code').Value := ADOQuery1.fieldbyname('Y_Code').Value; + FieldByName('Y_Name').Value := ADOQuery1.fieldbyname('Y_Name').Value; - FieldByName('Y_Color').Value := ADOQuery1.fieldbyname('Y_Color').Value; - FieldByName('Y_Spec').Value := ADOQuery1.fieldbyname('Y_Spec').Value; + FieldByName('Y_Color').Value := ADOQuery1.fieldbyname('Y_Color').Value; + FieldByName('Y_Spec').Value := ADOQuery1.fieldbyname('Y_Spec').Value; - FieldByName('YarnQty').Value := ADOQuery1.fieldbyname('YarnQty').Value; - FieldByName('CycleYarnQty').Value := ADOQuery1.fieldbyname('CycleYarnQty').Value; + FieldByName('YarnQty').Value := ADOQuery1.fieldbyname('YarnQty').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('MeterQty').Value := ADOQuery1.fieldbyname('MeterQty').Value; + FieldByName('QFYARNQTY').Value := ADOQuery1.fieldbyname('QFYARNQTY').Value; + FieldByName('MeterQty').Value := ADOQuery1.fieldbyname('MeterQty').Value; - Post; + Post; + end; end; ADOQuery1.next; diff --git a/B02基础纱线仓库/U_YarnInEdit.pas b/B02基础纱线仓库/U_YarnInEdit.pas index 94be0ac..6cb1e2f 100644 --- a/B02基础纱线仓库/U_YarnInEdit.pas +++ b/B02基础纱线仓库/U_YarnInEdit.pas @@ -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; diff --git a/B02基础纱线仓库/YarnStk.identcache b/B02基础纱线仓库/YarnStk.identcache index 0ec69bc2733721d4d94302fe80d4c7940f48b1d6..f13bbb284d7ad68b797038f0e0693ea09473c05b 100644 GIT binary patch delta 97 zcmV-n0G|Ka9oij`rISPjT(PCW0+WvkE0g8}&6AoAK$8mvIg_&lSd*Xy^ONogS+hZwnV(B@@&Zm%Alr3vE}z8Yv%IdGW!R&cCQo43oWw3Mc|V)PkaY$mrH^#|lI3j^qd$ItxkaY$mrH^#|FI1(o>VAY;1z%99XGLs=2kmESnoJnGG8i(d&eGci(nVdJ70D+AU AF#rGn diff --git a/E01梭织生产计划/U_TatPlanInPut.dfm b/E01梭织生产计划/U_TatPlanInPut.dfm index 331eaab..20ed98b 100644 --- a/E01梭织生产计划/U_TatPlanInPut.dfm +++ b/E01梭织生产计划/U_TatPlanInPut.dfm @@ -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 diff --git a/E01梭织生产计划/U_TatPlanInPut.pas b/E01梭织生产计划/U_TatPlanInPut.pas index d4d86ca..749a8ae 100644 --- a/E01梭织生产计划/U_TatPlanInPut.pas +++ b/E01梭织生产计划/U_TatPlanInPut.pas @@ -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; diff --git a/E02梭织经轴仓库/U_TatWBCardInPut.dfm b/E02梭织经轴仓库/U_TatWBCardInPut.dfm index 0e1f94d..ae7ba29 100644 --- a/E02梭织经轴仓库/U_TatWBCardInPut.dfm +++ b/E02梭织经轴仓库/U_TatWBCardInPut.dfm @@ -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 diff --git a/E02梭织经轴仓库/U_TatWBCardInPut.pas b/E02梭织经轴仓库/U_TatWBCardInPut.pas index 91f1b92..92667d6 100644 --- a/E02梭织经轴仓库/U_TatWBCardInPut.pas +++ b/E02梭织经轴仓库/U_TatWBCardInPut.pas @@ -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; diff --git a/E02梭织经轴仓库/U_TatWBCardInPut2.dfm b/E02梭织经轴仓库/U_TatWBCardInPut2.dfm index 6598bbb..190311a 100644 --- a/E02梭织经轴仓库/U_TatWBCardInPut2.dfm +++ b/E02梭织经轴仓库/U_TatWBCardInPut2.dfm @@ -714,6 +714,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Color = clWhite ParentBackground = False TabOrder = 1 + ExplicitLeft = -4 object Label15: TLabel Left = 237 Top = 18 diff --git a/E02梭织经轴仓库/U_TatWBCardInPut2.pas b/E02梭织经轴仓库/U_TatWBCardInPut2.pas index e85bddb..6f225ed 100644 --- a/E02梭织经轴仓库/U_TatWBCardInPut2.pas +++ b/E02梭织经轴仓库/U_TatWBCardInPut2.pas @@ -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('⳧ɴ'); diff --git a/E02梭织经轴仓库/U_TatWBNeedList.dfm b/E02梭织经轴仓库/U_TatWBNeedList.dfm index 42bc66a..0902baa 100644 --- a/E02梭织经轴仓库/U_TatWBNeedList.dfm +++ b/E02梭织经轴仓库/U_TatWBNeedList.dfm @@ -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 diff --git a/E02梭织经轴仓库/U_TatWBNeedList.pas b/E02梭织经轴仓库/U_TatWBNeedList.pas index 0b849c3..0398a46 100644 --- a/E02梭织经轴仓库/U_TatWBNeedList.pas +++ b/E02梭织经轴仓库/U_TatWBNeedList.pas @@ -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 diff --git a/E02梭织经轴仓库/U_TatWBPlan.dfm b/E02梭织经轴仓库/U_TatWBPlan.dfm index 1a66399..6db547c 100644 --- a/E02梭织经轴仓库/U_TatWBPlan.dfm +++ b/E02梭织经轴仓库/U_TatWBPlan.dfm @@ -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 diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.dfm b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm index 2935bbb..8305dcc 100644 --- a/E02梭织经轴仓库/U_TatWBPlanInPut.dfm +++ b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm @@ -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 diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.pas b/E02梭织经轴仓库/U_TatWBPlanInPut.pas index d488808..f83f2ac 100644 --- a/E02梭织经轴仓库/U_TatWBPlanInPut.pas +++ b/E02梭织经轴仓库/U_TatWBPlanInPut.pas @@ -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 diff --git a/E02梭织经轴仓库/U_WBNeedLook.dfm b/E02梭织经轴仓库/U_WBNeedLook.dfm index 4741b8c..729b31e 100644 --- a/E02梭织经轴仓库/U_WBNeedLook.dfm +++ b/E02梭织经轴仓库/U_WBNeedLook.dfm @@ -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,135 +211,163 @@ 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 - object TV2: TcxGridDBTableView - Navigator.Buttons.CustomButtons = <> - 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 + 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 = <> + 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 - object TV2Column2: TcxGridDBColumn - Caption = #25972#32463#24037#33402#21517#31216 - DataBinding.FieldName = 'WB_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 124 + object cxGrid2Level1: TcxGridLevel + GridView = TV2 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 - object cxGrid3: TcxGrid + object cxGroupBox2: TcxGroupBox Left = 1 - Top = 249 - Width = 745 - Height = 344 + Top = 297 Align = alClient + Caption = #26410#29983#20135#36724#21345 TabOrder = 1 - 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 + 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 = <> + 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 - object TV3Column2: TcxGridDBColumn - Caption = #36724#21345#21495 - DataBinding.FieldName = 'WBCID' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 90 + object cxGrid3Level1: TcxGridLevel + GridView = TV3 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 @@ -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 diff --git a/E02梭织经轴仓库/U_WBNeedLook.pas b/E02梭织经轴仓库/U_WBNeedLook.pas index 2779a07..7fef5da 100644 --- a/E02梭织经轴仓库/U_WBNeedLook.pas +++ b/E02梭织经轴仓库/U_WBNeedLook.pas @@ -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'); @@ -167,12 +175,13 @@ begin sql.Clear; 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(' 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(' 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; diff --git a/E02梭织经轴仓库/WarpBeamStk.dproj.local b/E02梭织经轴仓库/WarpBeamStk.dproj.local index d102438..0262827 100644 --- a/E02梭织经轴仓库/WarpBeamStk.dproj.local +++ b/E02梭织经轴仓库/WarpBeamStk.dproj.local @@ -128,19 +128,19 @@ 1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas - 1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm - 1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm - 1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas - 1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas - 1899-12-30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas - 1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas - 1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas - 1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas - 1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm - 1899-12-30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas - 1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas 1899-12-30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas= - 2025-08-20 09:44:28.981,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas + 1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas + 1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm + 1899-12-30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas + 1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas + 1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas + 1899-12-30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas + 1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas + 1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm + 1899-12-30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm + 1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas + 1899-12-30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas + 1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas diff --git a/E02梭织经轴仓库/WarpBeamStk.identcache b/E02梭织经轴仓库/WarpBeamStk.identcache index fcd0eb09696e439f4c6f3cd17dc1dbc8a22bdb46..95f1be82cc31cd3a1f7f98c000de5cb1ae4d7139 100644 GIT binary patch delta 186 zcmbQDHAQQ~cE-sDf(et~2s&<#W)fta{DU)j@+s!D$?ig$lMRF=Cm&~#o;;s3aqQ*Ex*PasOg<=_I+>SOeiFCRPx# delta 176 zcmbQDHAQQ~cE-t`oXL}K3p#F&U=n1U{F)B$*vHj_69Cv9HB=FT*^fz@)d z0+0OUbu3nsGntbo7cnVrR^qZ}o-8C1K3Rs(e)9re0mjK6__lB65s+Y