From 63cf2236f29de65c369e5163b259b88dbc2d69bc Mon Sep 17 00:00:00 2001 From: funa <1559646174@qq.com> Date: Mon, 18 May 2026 17:33:25 +0800 Subject: [PATCH] =?UTF-8?q?=E7=BA=B1=E7=BA=BF=20=E7=89=A9=E6=96=99=20?= =?UTF-8?q?=E5=9D=AF=E5=B8=83?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B02基础纱线仓库/ProjectGroup1.groupproj.local | 2 +- B02基础纱线仓库/U_GetDllForm.pas | 14 +- B02基础纱线仓库/U_YarnStkList.dfm | 4 +- B02基础纱线仓库/U_YarnStkList.pas | 2 +- B02基础纱线仓库/U_YarnStkSummary.dfm | 413 ++++++++++++++++++ B02基础纱线仓库/U_YarnStkSummary.pas | 209 +++++++++ B02基础纱线仓库/YarnStk.dpr | 3 +- B02基础纱线仓库/YarnStk.dproj | 6 +- B02基础纱线仓库/YarnStk.dproj.local | 199 ++++----- B02基础纱线仓库/YarnStk.identcache | Bin 3904 -> 3807 bytes B02基础纱线仓库/testDll.identcache | Bin 178 -> 170 bytes B02基础纱线仓库/testDll.res | Bin 3308 -> 3308 bytes B03基础物料仓库/ProductStk.dpr | 2 - B03基础物料仓库/ProductStk.dproj | 8 +- B03基础物料仓库/ProductStk.dproj.local | 16 +- B03基础物料仓库/ProductStk.identcache | Bin 4471 -> 4081 bytes B03基础物料仓库/ProjectGroup1.groupproj.local | 2 +- B03基础物料仓库/U_BSPrtInList.pas | 3 +- B03基础物料仓库/U_BSPrtOutList.dfm | 1 + B03基础物料仓库/U_BSPrtOutList.pas | 3 +- B03基础物料仓库/U_BSPrtStkList.dfm | 2 - B03基础物料仓库/U_BSPrtStkList.pas | 3 +- B03基础物料仓库/U_BSPrtStkSummary.dfm | 412 +++++++++++++++++ B03基础物料仓库/U_BSPrtStkSummary.pas | 209 +++++++++ B03基础物料仓库/U_DataLink.dfm | 5 + B03基础物料仓库/U_DataLink.pas | 2 +- B03基础物料仓库/U_GetDllForm.pas | 14 +- B03基础物料仓库/U_ProductInfoList.pas | 2 +- B03基础物料仓库/testDll.identcache | Bin 178 -> 170 bytes E04梭织坯布仓库/ProjectGroup1.groupproj.local | 2 +- E04梭织坯布仓库/TatClothStk.dpr | 4 +- E04梭织坯布仓库/TatClothStk.dproj | 10 +- E04梭织坯布仓库/TatClothStk.dproj.local | 189 ++++---- E04梭织坯布仓库/TatClothStk.identcache | Bin 3381 -> 3220 bytes E04梭织坯布仓库/U_GetDllForm.pas | 14 +- E04梭织坯布仓库/U_TatClothOutList.dfm | 2 - E04梭织坯布仓库/U_TatClothOutList.pas | 2 +- E04梭织坯布仓库/U_TatClothStkList.dfm | 4 - E04梭织坯布仓库/U_TatClothStkSummary.dfm | 413 ++++++++++++++++++ E04梭织坯布仓库/U_TatClothStkSummary.pas | 208 +++++++++ E04梭织坯布仓库/testDll.identcache | Bin 178 -> 170 bytes 41 files changed, 2150 insertions(+), 234 deletions(-) create mode 100644 B02基础纱线仓库/U_YarnStkSummary.dfm create mode 100644 B02基础纱线仓库/U_YarnStkSummary.pas create mode 100644 B03基础物料仓库/U_BSPrtStkSummary.dfm create mode 100644 B03基础物料仓库/U_BSPrtStkSummary.pas create mode 100644 E04梭织坯布仓库/U_TatClothStkSummary.dfm create mode 100644 E04梭织坯布仓库/U_TatClothStkSummary.pas diff --git a/B02基础纱线仓库/ProjectGroup1.groupproj.local b/B02基础纱线仓库/ProjectGroup1.groupproj.local index 2df6bec..8ca4cdb 100644 --- a/B02基础纱线仓库/ProjectGroup1.groupproj.local +++ b/B02基础纱线仓库/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/B02基础纱线仓库/U_GetDllForm.pas b/B02基础纱线仓库/U_GetDllForm.pas index 3ed2a0f..ca07260 100644 --- a/B02基础纱线仓库/U_GetDllForm.pas +++ b/B02基础纱线仓库/U_GetDllForm.pas @@ -16,7 +16,7 @@ implementation uses U_DataLink, U_iniParam, U_YarnInfoList, U_YarnInList, U_YarnOutList, - U_YarnStkList, U_YarnWeighing, U_YarnOutWBList, U_YarnInList_RC; + U_YarnStkList, U_YarnWeighing, U_YarnOutWBList, U_YarnInList_RC,U_YarnStkSummary; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -173,6 +173,18 @@ begin end; end; + 333: //ɴ߿ + begin + with TfrmYarnStkSummary.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // + begin + fFormID := FormID; + FormStyle := mstyle; + WindowState := mstate; + BorderStyle := mborderstyle; + mnewHandle := Handle; + end; + end; + // 110: //ɴ߳ // begin diff --git a/B02基础纱线仓库/U_YarnStkList.dfm b/B02基础纱线仓库/U_YarnStkList.dfm index 9f719d7..53be846 100644 --- a/B02基础纱线仓库/U_YarnStkList.dfm +++ b/B02基础纱线仓库/U_YarnStkList.dfm @@ -32,7 +32,7 @@ inherited frmYarnStkList: TfrmYarnStkList ParentFont = False ShowCaptions = True TabOrder = 3 - ExplicitTop = -1 + ExplicitTop = -6 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -266,8 +266,6 @@ inherited frmYarnStkList: TfrmYarnStkList Height = 413 Align = alClient TabOrder = 2 - ExplicitTop = 80 - ExplicitHeight = 480 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/B02基础纱线仓库/U_YarnStkList.pas b/B02基础纱线仓库/U_YarnStkList.pas index ab1b641..654d1e9 100644 --- a/B02基础纱线仓库/U_YarnStkList.pas +++ b/B02基础纱线仓库/U_YarnStkList.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, cxMaskEdit; + dxSkinsDefaultPainters, cxProgressBar, cxMaskEdit, dxSkinWXI; type TfrmYarnStkList = class(TfrmBaseList) diff --git a/B02基础纱线仓库/U_YarnStkSummary.dfm b/B02基础纱线仓库/U_YarnStkSummary.dfm new file mode 100644 index 0000000..a0d90c7 --- /dev/null +++ b/B02基础纱线仓库/U_YarnStkSummary.dfm @@ -0,0 +1,413 @@ +inherited frmYarnStkSummary: TfrmYarnStkSummary + Left = 65 + Top = 98 + Caption = #20986#24211#21015#34920 + ClientHeight = 544 + ClientWidth = 1193 + Font.Height = -16 + Position = poScreenCenter + ExplicitWidth = 1209 + ExplicitHeight = 583 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1193 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_YarnStk.cxImageList_bar + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 0 + Visible = False + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 30 + Width = 1193 + Height = 51 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 3 + Visible = False + ExplicitTop = 18 + object Label1: TLabel + Left = 732 + Top = 6 + Width = 64 + Height = 21 + Caption = #26597#35810#26102#38388 + Visible = False + end + object Label2: TLabel + Left = 940 + Top = 10 + Width = 16 + Height = 21 + Caption = #33267 + Visible = False + end + object Label3: TLabel + Left = 288 + Top = 11 + Width = 64 + Height = 21 + Caption = #20135#21697#21517#31216 + end + object Label8: TLabel + Left = 34 + Top = 10 + Width = 64 + Height = 21 + Caption = #20135#21697#32534#21495 + end + object P_Name: TcxTextEdit + Tag = 2 + Left = 378 + Top = 6 + TabOrder = 0 + Width = 150 + end + object P_Code: TcxTextEdit + Tag = 2 + Left = 112 + Top = 6 + TabOrder = 1 + Width = 150 + end + object BegDate: TcxDateEdit + Left = 790 + Top = 6 + Properties.ShowTime = False + TabOrder = 2 + Visible = False + Width = 120 + end + object EndDate: TcxDateEdit + Left = 974 + Top = 6 + Properties.ShowTime = False + TabOrder = 3 + Visible = False + Width = 120 + end + end + inherited cxProgressBar2: TcxProgressBar + Left = 337 + Top = 226 + ExplicitLeft = 337 + ExplicitTop = 226 + ExplicitHeight = 29 + end + object cxGrid1: TcxGrid [4] + Left = 0 + Top = 81 + Width = 1193 + Height = 463 + Align = alClient + TabOrder = 4 + ExplicitTop = 69 + ExplicitHeight = 475 + object tv1: TcxGridDBBandedTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = tv1SQJYQty + end + item + Kind = skSum + Column = tv1BQRKQty + end + item + Kind = skSum + Column = tv1BQCKQty + end + item + Kind = skSum + Column = tv1BQJYQty + end> + DataController.Summary.SummaryGroups = <> + OptionsView.Footer = True + OptionsView.GroupByBox = False + Bands = < + item + Caption = 'M'#227' s'#7843'n ph'#7849'm' + end + item + Caption = 'T'#234'n s'#7843'n ph'#7849'm' + end + item + Caption = #272'VT' + end + item + Caption = 'T'#7891'n kho '#273#7847'u k'#7923 + end + item + Caption = 'Nh'#7853'p kho' + end + item + Caption = 'Xu'#7845't kho' + end + item + Caption = 'T'#7891'n kho Cu'#7889'i k'#7923 + end> + object tv1Y_Name: TcxGridDBBandedColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'Y_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object tv1QtyUnit: TcxGridDBBandedColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object tv1SQJYQty: TcxGridDBBandedColumn + Caption = #26399#21021#24211#23384 + DataBinding.FieldName = 'SQJYQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object tv1BQRKQty: TcxGridDBBandedColumn + Caption = #26412#26376#20837#24211 + DataBinding.FieldName = 'BQRKQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 4 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object tv1BQCKQty: TcxGridDBBandedColumn + Caption = #26412#26376#20986#24211 + DataBinding.FieldName = 'BQCKQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 5 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object tv1BQJYQty: TcxGridDBBandedColumn + Caption = #26399#26411#24211#23384 + DataBinding.FieldName = 'BQJYQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 6 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object tv1Y_Code: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'Y_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = tv1 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_YarnStk.ADOLink + Left = 265 + Top = 176 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_YarnStk.ADOLink + Left = 169 + Top = 177 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YarnStk.ADOLink + Parameters = <> + Left = 944 + Top = 264 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YarnStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 128 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YarnStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 288 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 1104 + Top = 168 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 296 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/B02基础纱线仓库/U_YarnStkSummary.pas b/B02基础纱线仓库/U_YarnStkSummary.pas new file mode 100644 index 0000000..6483f16 --- /dev/null +++ b/B02基础纱线仓库/U_YarnStkSummary.pas @@ -0,0 +1,209 @@ +unit U_YarnStkSummary; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, + dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore, cxDateUtils, cxMaskEdit, + dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar, + dxSkinWXI; + +type + TfrmYarnStkSummary = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Label3: TLabel; + Label8: TLabel; + P_Name: TcxTextEdit; + P_Code: TcxTextEdit; + ToolButton1: TToolButton; + BegDate: TcxDateEdit; + EndDate: TcxDateEdit; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + tv1: TcxGridDBBandedTableView; + tv1Y_Name: TcxGridDBBandedColumn; + tv1QtyUnit: TcxGridDBBandedColumn; + tv1SQJYQty: TcxGridDBBandedColumn; + tv1BQRKQty: TcxGridDBBandedColumn; + tv1BQCKQty: TcxGridDBBandedColumn; + tv1BQJYQty: TcxGridDBBandedColumn; + tv1Y_Code: TcxGridDBBandedColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure SPNameChange(Sender: TObject); + procedure BPIOIDChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure P_specChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + canshu1, FStkName, canshu3: string; + FFSPID: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint; + +{$R *.dfm} + +procedure TfrmYarnStkSummary.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmYarnStkSummary.FormCreate(Sender: TObject); +begin + inherited; + canshu1 := Trim(self.fParameters1); + FStkName := Trim(self.fParameters2); + canshu3 := Trim(self.fParameters3); + EndDate.Date := SGetServerDate(ADOQueryTemp); + BegDate.Date := EndDate.Date - 90; +end; + +procedure TfrmYarnStkSummary.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + SQL.Add('exec P_BS_YarnStkSummary '); + SQL.Add(' @stkname=' + QuotedStr(Trim(FStkName))); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_Main); + SInitCDSData(ADOQueryMain, CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmYarnStkSummary.TBRafreshClick(Sender: TObject); +begin +// BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmYarnStkSummary.ToolButton1Click(Sender: TObject); +begin + ReadCxBandedGrid(trim(Self.Caption) + tv1.Name, Tv1, 'ɴֿ߲'); + +end; + +procedure TfrmYarnStkSummary.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmYarnStkSummary.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmYarnStkSummary.FormShow(Sender: TObject); +begin + inherited; + ReadCxBandedGrid(trim(Self.Caption) + tv1.Name, Tv1, 'ɴֿ߲'); + InitGrid(); +end; + +procedure TfrmYarnStkSummary.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel(FStkName + 'б', cxGrid1); +end; + +procedure TfrmYarnStkSummary.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_Main); + SInitCDSData(ADOQueryMain, CDS_Main); + end; +end; + +procedure TfrmYarnStkSummary.SPNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmYarnStkSummary.BPIOIDChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmYarnStkSummary.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main, True); +end; + +procedure TfrmYarnStkSummary.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main, False); +end; + +procedure TfrmYarnStkSummary.P_specChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmYarnStkSummary.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +end. + diff --git a/B02基础纱线仓库/YarnStk.dpr b/B02基础纱线仓库/YarnStk.dpr index 7621839..84f2913 100644 --- a/B02基础纱线仓库/YarnStk.dpr +++ b/B02基础纱线仓库/YarnStk.dpr @@ -52,7 +52,8 @@ uses U_CompanySel in '..\A00ͨô\U_CompanySel.pas' {frmCompanySel}, U_InputBoxSingleNumber in '..\A00ͨô\U_InputBoxSingleNumber.pas' {frmInputBoxSingleNumber}, U_TatPlanSel in '..\E00֯ͨô\U_TatPlanSel.pas' {frmTatPlanSel}, - U_TradeSalesContractSel in '..\T00óͨô\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel}; + U_TradeSalesContractSel in '..\T00óͨô\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel}, + U_YarnStkSummary in 'U_YarnStkSummary.pas' {frmYarnStkSummary}; // U_TatPlanMachInput in 'U_TatPlanMachInput.pas' {frmTatPlanMachInput}, // U_WBSpecSel in '..\A00ͨô\U_WBSpecSel.pas' {frmWBSpecSel}; diff --git a/B02基础纱线仓库/YarnStk.dproj b/B02基础纱线仓库/YarnStk.dproj index d26f251..f207386 100644 --- a/B02基础纱线仓库/YarnStk.dproj +++ b/B02基础纱线仓库/YarnStk.dproj @@ -80,7 +80,7 @@ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) - D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\testDll.exe + D:\D10V1W\项目代码\D10SZKaiXiYa\B02基础纱线仓库\testDll.exe @@ -208,6 +208,10 @@
frmTradeSalesContractSel
dfm + +
frmYarnStkSummary
+ dfm +
Cfg_2 Base diff --git a/B02基础纱线仓库/YarnStk.dproj.local b/B02基础纱线仓库/YarnStk.dproj.local index 368eaf8..768af10 100644 --- a/B02基础纱线仓库/YarnStk.dproj.local +++ b/B02基础纱线仓库/YarnStk.dproj.local @@ -1,103 +1,104 @@  - 1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas - 1899-12-30 00:00:00.000.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj - 1899-12-30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas - 1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas - 1899-12-30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm - 1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm - 1899-12-30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas - 1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas= - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas - 1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm - 1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm - 1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas - 1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas - 1899-12-30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas - 1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas - 1899-12-30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899-12-30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm - 1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm - 1899-12-30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas - 1899-12-30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas - 1899-12-30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas - 1899-12-30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm - 1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas - 1899-12-30 00:00:00.000.487,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_TatPlanMachInput.pas - 1899-12-30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas= - 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.807,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractSel.pas= - 1899-12-30 00:00:00.000.664,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractSel.pas - 1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm - 1899-12-30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas - 1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas - 1899-12-30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm - 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas - 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas - 1899-12-30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas= - 1899-12-30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas - 1899-12-30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas - 1899-12-30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas - 1899-12-30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas - 1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm - 1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas - 1899-12-30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas - 1899-12-30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas - 1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm - 1899-12-30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.345,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_WBSpecSel.pas - 1899-12-30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.089,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas - 1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas - 1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm - 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas= - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas - 1899-12-30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas - 1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas - 1899-12-30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas - 1899-12-30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas - 1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas + 1899/12/30 00:00:00.000.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas + 1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899/12/30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas + 1899/12/30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas + 1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas + 1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas + 1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm + 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas + 1899/12/30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas= + 1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm + 1899/12/30 00:00:00.000.807,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractSel.pas= + 1899/12/30 00:00:00.000.664,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractSel.pas + 1899/12/30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas= + 1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas + 1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899/12/30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas + 1899/12/30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899/12/30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas + 1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas + 1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas + 1899/12/30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm + 1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm + 1899/12/30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas + 1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.487,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_TatPlanMachInput.pas + 1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm + 1899/12/30 00:00:00.000.345,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_WBSpecSel.pas + 1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm + 1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas + 1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas + 1899/12/30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj + 1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas + 1899/12/30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas= + 1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899/12/30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899/12/30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas + 1899/12/30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm + 1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm + 1899/12/30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm + 1899/12/30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas + 1899/12/30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas + 1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas + 1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas + 1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.pas + 1899/12/30 00:00:00.000.089,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas= + 1899/12/30 00:00:00.000.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas + 1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas + 1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm + 1899/12/30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm + 1899/12/30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas + 1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 2026/05/18 17:11:56.385,=D:\D10V1W\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnStkSummary.pas @@ -140,7 +141,7 @@ - + @@ -194,5 +195,7 @@ + + diff --git a/B02基础纱线仓库/YarnStk.identcache b/B02基础纱线仓库/YarnStk.identcache index cda9f2e1753122f33248d6ce227b2fee80ed1e3e..09c9cff2c3f4432140ca5d95445fb5203504d87a 100644 GIT binary patch literal 3807 zcmb_f(P|Sx6z%6IO5KQ0zBRi^n>0;hHfc-=gvstS8M-^W%+6x-)`IA(5JAxgtv)D% z1wlj;#GgsK_Ai`Gn=H=EuG7XqATRgKz2}~L?v1vxva)L2?-)64C)euuVb4KUPU|!V z1j1s7JMlL(cQ>ltvbkMd^+CWQ7N2qwdVc&PdVMmTypP@<#c<~CCO{8S8+7v8-P1SY z==d-ie~HGwrjya>c+_cj+koH_F4%}(3wBM@&JSNj&p$?=UQB<+fNPWjYv4jmo4(@# zn}@xbWVpWWSnj?V{W+ZlU> z4g0RqmW6IC!#u*M1_%&}P#P!EKPsRHof<({kniR)SzeBltce8`TrtrL8{hLJN?wXj z15i*wc%SdDlGX~EcJ}UbGS#z`QYqiFFknr1=kp0ks{$)0DI&$GlYRs_m1--NAm`PO_9c zf0}-lw$~Eg^JMd5CK+9QGt7IEu@{ttFX!;$*oxPvxNa0R${$<0l7tj(fTHj zr;~4;BJ)tlng=DhW^V3ygH*tfEh%Gm)bYk~FX_)hF@N2;&93gbK7m1iJj@PX9zgl1 zGNEAFN<$@%YYka6B=8#dY<&F8Zcx4oB~zAULOeUPXe@q7V~Pp4>Dm`TXCg|0RI&^a za<(_OfG_F61C=DR28hX>sjCiIOK^_owZ1I+0y;Jq0sfkF6kPUKXb5G)bSp_XZ64|k g$rvbYo-7(mc(&B)I#1yh{bK&VFP>U}hZ0%-0Wy5J=l}o! literal 3904 zcmb_fU279T6zvbvc2j*2-W6ucUwu?GB&30gfx|m|*X}kdlC?UMV2XC>#YJz!f`S|@HIowYM-;=@L z(Xf9!NC`GUh%K^HLJ{Gyi&?Q(G>yBq?)s!xz>j^&eebfc;(Z$kJN}b3KlIL1!1LN* z0n~TC`3rQ8T-$ z8dNe{F{wZjhd9Tdu*{wyrx{z@8|7Bf+A8zmw-n)w)?`{Juz~8EUFQ6v1xla|-3K7B zprEkI^-<3hcF|p?3$Uc7Gr*6VV>I}D+&@T;4wIM9$IVf|X+ByK_)=E(s%q;dMa`ow zU!^-N@TAC-Ds^_(L*(djM0`(@)|uk>Hj27KTqOMDiUn5aVq4{L$z1Bb^o zv*M~Uow{5DqHYgiA=}rm6Gqx*h_ImSsV0}&TM6vZPB+ecp1<;q#f3030W~}xxIB+s z(upByh==ol9`{>C=ZR;|h-g7(=sR(TCRU^AQq}zXCu{mze<-Avrm0S zF#IL)_MadZRIP8&v%t{GgFUklEXnD=)r+J-JH$6gzTe3|DWBAU}iUN*<3 z*1GHZZQ$0y^?8Z%OOrWeRL$kqX~7EgBtfS)?)h~{4A)IPi!av{jYUr{He`7VjMvXa zCkQ7CG5wKwkjPPMEdnFrxWcZT*+W#gsy%#48ZI9SqB>SRI`j6RY$?q=npAZ4qEX~4 zmRSrU)fGZOr{_UT~w7 E0E5^c&j0`b delta 85 zcmZ3*xQS7fiGhK^+r=uzrNGc2D77Fz%rNHV!ky1&uY0n4@$&_ZF)oG%#Z?m( CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) - D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B03基础物料仓库\testDll.exe + D:\D10V1W\项目代码\D10SZKaiXiYa\B03基础物料仓库\testDll.exe @@ -157,9 +157,6 @@
frmProductInfoInPut
- -
frmBSPrtOutList
-
frmBSPrtMachStkList
@@ -182,9 +179,6 @@
frmPrtMachInfoInPut
- -
frmBSPrtStkList
-
frmBSPrtDyeInList
diff --git a/B03基础物料仓库/ProductStk.dproj.local b/B03基础物料仓库/ProductStk.dproj.local index b3811b7..a933589 100644 --- a/B03基础物料仓库/ProductStk.dproj.local +++ b/B03基础物料仓库/ProductStk.dproj.local @@ -1,2 +1,16 @@  - + + + 2026/05/18 14:30:37.530,D:\D10V1W\项目代码\D10SZKaiXiYa\B03基础物料仓库\U_BSPrtStkSummary.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\B03基础物料仓库\U_BSPrtStkList.pas + 2026/05/18 14:30:37.530,D:\D10V1W\项目代码\D10SZKaiXiYa\B03基础物料仓库\U_BSPrtStkSummary.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\B03基础物料仓库\U_BSPrtStkList.dfm + 2026/05/18 14:35:07.246,D:\D10V1W\项目代码\D10SZKaiXiYa\B03基础物料仓库\U_BSPrtStkSummary.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\B03基础物料仓库\U_BSPrtOutList.dfm + 2026/05/18 14:35:07.246,D:\D10V1W\项目代码\D10SZKaiXiYa\B03基础物料仓库\U_BSPrtStkSummary.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\B03基础物料仓库\U_BSPrtOutList.pas + 2026/05/18 16:44:00.543,D:\D10V1W\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSummary.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\B03基础物料仓库\U_BSPrtStkSummary.pas + 2026/05/18 16:44:00.543,D:\D10V1W\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSummary.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\B03基础物料仓库\U_BSPrtStkSummary.dfm + 2026/05/18 16:44:39.327,D:\D10V1W\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSummary.pas= + 2026/05/18 17:07:45.872,=D:\D10V1W\项目代码\D10SZKaiXiYa\B03基础物料仓库\U_BSPrtStkSummary.pas + 2026/05/18 17:10:46.919,D:\D10V1W\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnStkSummary.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\B03基础物料仓库\U_BSPrtStkSummary.dfm + 2026/05/18 17:10:46.919,D:\D10V1W\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnStkSummary.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\B03基础物料仓库\U_BSPrtStkSummary.pas + 2026/05/18 17:11:41.550,D:\D10V1W\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnStkSummary.pas= + + diff --git a/B03基础物料仓库/ProductStk.identcache b/B03基础物料仓库/ProductStk.identcache index 95f861cadca7c9cb7b84a02943b50c0794d64624..1a8d0bb8a797fa070217225d2cdb416059535bfe 100644 GIT binary patch literal 4081 zcmcInU60a06y@jm6)ahwd|N0iWxLR9VR1`qzW#pmZaTTRzPivl{j#dKzBtCJek%#cUAl#h44_|)?zrCIQie%XLeWZ^p zO#O~y+Q>-jpyYwg(wI>`V(6KiYk9yE&XbqZ$q%jOA`2^MNa#?-W|}WY-8y{{`A8=8 zEDb6oJe^=*61^m72KLC1G6ie4YsqNb3Vd<)SNiZ_a(GLZN)&QvlLt33)6St6!Gc+H z`Dq3nIf{u5@s@ccnSnFlszFx5bteH{H9#487-F-tt3r&{TCz*1VLywEId^H=lDR?x z=8h!S0AzPDJG(Tan>_q z;b6_XC!Ru=$~8>0m>pnWG|eb|=?imNVriH{-A2qKW@3rO{Fl)Hn~F>5O3&jWyU1Ne zKdo*@wra5*WsITjb2mYZZ5WT}p=l40d4k+@LADgFVp|TPW59E}5)G>GhFyD6;lJx> zw1feK`MWmUp}1P>5@m4LeYmdJ`tt*q7?r^DZL8vW>5@NKcQzX3SxexSo}C5k2stYL z4+)!Z*N|CuGBx3Wd~cnCQQL#};0?33wCqPq2VmVt0FQqrPp2OR)y1AiY|2Ja+6uXC z1k`SAzlm%lQD^m$w&8;3@PxETWg literal 4471 zcmb_g%Wl&^6wL=ga41NKT^sk2;v`m_q_nbBP3<8W)gD`Z2*RpJY*-h8fCW@+fCWn= z8u2$NQU8LO(6|}sZv#GZtgkvoO5ULuu`dX^vAXy*0c@|gMQ7vJo`QU^m8)) zI{os>)@xe)@(ChO$v(0-w6%-R=hL&3>6`C=-+h>jPcP0-?cSjoCHe?A=(E5eaZ(LY z%&KNTmb&r{YNmzynpi(fk38bkG~2~78Bo^V28ywc5@Zm1oNulx9=5FIOh-EU_ z-80NIa)vCoOb=1O31-=km@5&Q*m5Z{n=!K-==(d^3zbW8)*Fvh<`k&EH4%I^n@oz% zi|vTG^)yZbAJC2huLN%DB;~vUQFn{f6ue?agchu_bXD-wG|-4S0nScC@9ftyK{hGiyCbm~wqglV0cr$jz579b5}R4VgpDj%v_NmlTwA zSEQwAJbu$^(6D$%D~);~uA$Cuam!k`ZkT95=m3b>m31IX@@<^xp2rQA*TGUQ2VQW5 zygrKZCrigymaok55SeP0i)68?xp%U~4PT>_2~Dzl)YRw8twACCDx(K>@XCo>3^p^$ zmLA{~mApWjY>Lq%-$B=nFBqJ^C+b7&Kra=Aj6(xeW+sRgRbdY`ehaDO81E7vdc~D^ o5N!Hvr;adGwZzqlKl%_I0jge^133S$EW@It>V{GFg$VoOAF98`!T - + diff --git a/B03基础物料仓库/U_BSPrtInList.pas b/B03基础物料仓库/U_BSPrtInList.pas index 3a33735..165e0be 100644 --- a/B03基础物料仓库/U_BSPrtInList.pas +++ b/B03基础物料仓库/U_BSPrtInList.pas @@ -13,7 +13,8 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore, cxDateUtils, cxMaskEdit, - dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar; + dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar, + dxSkinWXI; type TfrmBSPrtInList = class(TfrmBaseList) diff --git a/B03基础物料仓库/U_BSPrtOutList.dfm b/B03基础物料仓库/U_BSPrtOutList.dfm index e53ae36..7f9b4df 100644 --- a/B03基础物料仓库/U_BSPrtOutList.dfm +++ b/B03基础物料仓库/U_BSPrtOutList.dfm @@ -217,6 +217,7 @@ inherited frmBSPrtOutList: TfrmBSPrtOutList Height = 438 Align = alClient TabOrder = 2 + ExplicitTop = 107 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/B03基础物料仓库/U_BSPrtOutList.pas b/B03基础物料仓库/U_BSPrtOutList.pas index 8d33804..07352fc 100644 --- a/B03基础物料仓库/U_BSPrtOutList.pas +++ b/B03基础物料仓库/U_BSPrtOutList.pas @@ -13,7 +13,8 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore, cxDateUtils, cxMaskEdit, - dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar; + dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar, + dxSkinWXI; type TfrmBSPrtOutList = class(TfrmBaseList) diff --git a/B03基础物料仓库/U_BSPrtStkList.dfm b/B03基础物料仓库/U_BSPrtStkList.dfm index 9cc2fe9..ce87aa9 100644 --- a/B03基础物料仓库/U_BSPrtStkList.dfm +++ b/B03基础物料仓库/U_BSPrtStkList.dfm @@ -6,7 +6,6 @@ inherited frmBSPrtStkList: TfrmBSPrtStkList ClientWidth = 1400 Font.Height = -16 Position = poDefault - ExplicitLeft = -549 ExplicitWidth = 1416 ExplicitHeight = 615 PixelsPerInch = 96 @@ -143,7 +142,6 @@ inherited frmBSPrtStkList: TfrmBSPrtStkList Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitHeight = 401 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/B03基础物料仓库/U_BSPrtStkList.pas b/B03基础物料仓库/U_BSPrtStkList.pas index f276a93..7de579c 100644 --- a/B03基础物料仓库/U_BSPrtStkList.pas +++ b/B03基础物料仓库/U_BSPrtStkList.pas @@ -13,7 +13,8 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, - dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar; + dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar, + dxSkinWXI; type TfrmBSPrtStkList = class(TfrmBaseList) diff --git a/B03基础物料仓库/U_BSPrtStkSummary.dfm b/B03基础物料仓库/U_BSPrtStkSummary.dfm new file mode 100644 index 0000000..1abf7cf --- /dev/null +++ b/B03基础物料仓库/U_BSPrtStkSummary.dfm @@ -0,0 +1,412 @@ +inherited frmBSPrtStkSummary: TfrmBSPrtStkSummary + Left = 65 + Top = 98 + Caption = #20986#24211#21015#34920 + ClientHeight = 544 + ClientWidth = 1193 + Font.Height = -16 + Position = poScreenCenter + ExplicitWidth = 1209 + ExplicitHeight = 583 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1193 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_ProductStk.cxImageList_bar + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 0 + Visible = False + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 30 + Width = 1193 + Height = 51 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 3 + Visible = False + object Label1: TLabel + Left = 732 + Top = 6 + Width = 64 + Height = 21 + Caption = #26597#35810#26102#38388 + Visible = False + end + object Label2: TLabel + Left = 940 + Top = 10 + Width = 16 + Height = 21 + Caption = #33267 + Visible = False + end + object Label3: TLabel + Left = 288 + Top = 11 + Width = 64 + Height = 21 + Caption = #20135#21697#21517#31216 + end + object Label8: TLabel + Left = 34 + Top = 10 + Width = 64 + Height = 21 + Caption = #20135#21697#32534#21495 + end + object P_Name: TcxTextEdit + Tag = 2 + Left = 378 + Top = 6 + TabOrder = 0 + Width = 150 + end + object P_Code: TcxTextEdit + Tag = 2 + Left = 112 + Top = 6 + TabOrder = 1 + Width = 150 + end + object BegDate: TcxDateEdit + Left = 790 + Top = 6 + Properties.ShowTime = False + TabOrder = 2 + Visible = False + Width = 120 + end + object EndDate: TcxDateEdit + Left = 974 + Top = 6 + Properties.ShowTime = False + TabOrder = 3 + Visible = False + Width = 120 + end + end + inherited cxProgressBar2: TcxProgressBar + Left = 337 + Top = 226 + ExplicitLeft = 337 + ExplicitTop = 226 + ExplicitHeight = 29 + end + object cxGrid1: TcxGrid [4] + Left = 0 + Top = 81 + Width = 1193 + Height = 463 + Align = alClient + TabOrder = 4 + ExplicitTop = 107 + ExplicitHeight = 438 + object tv1: TcxGridDBBandedTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = tv1SQJYQty + end + item + Kind = skSum + Column = tv1BQRKQty + end + item + Kind = skSum + Column = tv1BQCKQty + end + item + Kind = skSum + Column = tv1BQJYQty + end> + DataController.Summary.SummaryGroups = <> + OptionsView.Footer = True + OptionsView.GroupByBox = False + Bands = < + item + Caption = 'M'#227' s'#7843'n ph'#7849'm' + end + item + Caption = 'T'#234'n s'#7843'n ph'#7849'm' + end + item + Caption = #272'VT' + end + item + Caption = 'T'#7891'n kho '#273#7847'u k'#7923 + end + item + Caption = 'Nh'#7853'p kho' + end + item + Caption = 'Xu'#7845't kho' + end + item + Caption = 'T'#7891'n kho Cu'#7889'i k'#7923 + end> + object tv1P_Name: TcxGridDBBandedColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'P_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object tv1QtyUnit: TcxGridDBBandedColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object tv1SQJYQty: TcxGridDBBandedColumn + Caption = #26399#21021#24211#23384 + DataBinding.FieldName = 'SQJYQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object tv1BQRKQty: TcxGridDBBandedColumn + Caption = #26412#26376#20837#24211 + DataBinding.FieldName = 'BQRKQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 4 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object tv1BQCKQty: TcxGridDBBandedColumn + Caption = #26412#26376#20986#24211 + DataBinding.FieldName = 'BQCKQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 5 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object tv1BQJYQty: TcxGridDBBandedColumn + Caption = #26399#26411#24211#23384 + DataBinding.FieldName = 'BQJYQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 6 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object tv1P_Code: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'P_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = tv1 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_ProductStk.ADOLink + Left = 265 + Top = 176 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_ProductStk.ADOLink + Left = 169 + Top = 177 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_ProductStk.ADOLink + Parameters = <> + Left = 944 + Top = 264 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_ProductStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 128 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_ProductStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 288 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 1104 + Top = 168 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 296 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/B03基础物料仓库/U_BSPrtStkSummary.pas b/B03基础物料仓库/U_BSPrtStkSummary.pas new file mode 100644 index 0000000..fb8956d --- /dev/null +++ b/B03基础物料仓库/U_BSPrtStkSummary.pas @@ -0,0 +1,209 @@ +unit U_BSPrtStkSummary; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, + dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore, cxDateUtils, cxMaskEdit, + dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar, + dxSkinWXI; + +type + TfrmBSPrtStkSummary = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Label3: TLabel; + Label8: TLabel; + P_Name: TcxTextEdit; + P_Code: TcxTextEdit; + ToolButton1: TToolButton; + BegDate: TcxDateEdit; + EndDate: TcxDateEdit; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + tv1: TcxGridDBBandedTableView; + tv1P_Name: TcxGridDBBandedColumn; + tv1QtyUnit: TcxGridDBBandedColumn; + tv1SQJYQty: TcxGridDBBandedColumn; + tv1BQRKQty: TcxGridDBBandedColumn; + tv1BQCKQty: TcxGridDBBandedColumn; + tv1BQJYQty: TcxGridDBBandedColumn; + tv1P_Code: TcxGridDBBandedColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure SPNameChange(Sender: TObject); + procedure BPIOIDChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure P_specChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + canshu1, FStkName, canshu3: string; + FFSPID: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_RTFun, U_BSPrtOutEdit, U_LabelPrint; + +{$R *.dfm} + +procedure TfrmBSPrtStkSummary.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmBSPrtStkSummary.FormCreate(Sender: TObject); +begin + inherited; + canshu1 := Trim(self.fParameters1); + FStkName := Trim(self.fParameters2); + canshu3 := Trim(self.fParameters3); + EndDate.Date := SGetServerDate(ADOQueryTemp); + BegDate.Date := EndDate.Date - 90; +end; + +procedure TfrmBSPrtStkSummary.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + SQL.Add('exec P_BS_PrtStkSummary '); + SQL.Add(' @stkname=' + QuotedStr(Trim(FStkName))); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_Main); + SInitCDSData(ADOQueryMain, CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmBSPrtStkSummary.TBRafreshClick(Sender: TObject); +begin +// BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmBSPrtStkSummary.ToolButton1Click(Sender: TObject); +begin + ReadCxBandedGrid(trim(Self.Caption) + tv1.Name, Tv1, 'ϲֿ'); + +end; + +procedure TfrmBSPrtStkSummary.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmBSPrtStkSummary.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmBSPrtStkSummary.FormShow(Sender: TObject); +begin + inherited; + ReadCxBandedGrid(trim(Self.Caption) + tv1.Name, Tv1, 'ϲֿ'); + InitGrid(); +end; + +procedure TfrmBSPrtStkSummary.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel(FStkName + 'б', cxGrid1); +end; + +procedure TfrmBSPrtStkSummary.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_Main); + SInitCDSData(ADOQueryMain, CDS_Main); + end; +end; + +procedure TfrmBSPrtStkSummary.SPNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmBSPrtStkSummary.BPIOIDChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmBSPrtStkSummary.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main, True); +end; + +procedure TfrmBSPrtStkSummary.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main, False); +end; + +procedure TfrmBSPrtStkSummary.P_specChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmBSPrtStkSummary.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +end. + diff --git a/B03基础物料仓库/U_DataLink.dfm b/B03基础物料仓库/U_DataLink.dfm index 095398c..8a506b8 100644 --- a/B03基础物料仓库/U_DataLink.dfm +++ b/B03基础物料仓库/U_DataLink.dfm @@ -4,6 +4,11 @@ inherited DataLink_ProductStk: TDataLink_ProductStk Height = 349 Width = 482 inherited cxEditStyleController1: TcxEditStyleController + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + StyleReadOnly.LookAndFeel.SkinName = '' PixelsPerInch = 96 end inherited cxImageList_bar: TcxImageList diff --git a/B03基础物料仓库/U_DataLink.pas b/B03基础物料仓库/U_DataLink.pas index 2ef6505..fd61102 100644 --- a/B03基础物料仓库/U_DataLink.pas +++ b/B03基础物料仓库/U_DataLink.pas @@ -7,7 +7,7 @@ uses Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, System.ImageList, U_BaseDataLink, cxLocalization, cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm, dxSkinsCore, dxSkinsDefaultPainters, dxCore, - dxLayoutLookAndFeels; + dxLayoutLookAndFeels, dxSkinWXI; type TMyThread = class(TThread) diff --git a/B03基础物料仓库/U_GetDllForm.pas b/B03基础物料仓库/U_GetDllForm.pas index 60336d4..9acbdad 100644 --- a/B03基础物料仓库/U_GetDllForm.pas +++ b/B03基础物料仓库/U_GetDllForm.pas @@ -18,7 +18,7 @@ uses U_DataLink, U_iniParam, U_ProductInfoList, U_BSPrtMachInList, U_PrtMachInfoList, U_BSPrtMachOutList, U_BSPrtMachStkList, U_PrtDyeInfoList, U_BSPrtDyeInList, U_BSPrtDyeOutList, U_BSPrtDyeStkList, U_BSPrtInList, - U_BSPrtOutList, U_BSPrtStkList; + U_BSPrtOutList, U_BSPrtStkList,U_BSPrtStkSummary; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -177,6 +177,18 @@ begin end; end; + 133: //ͨϻܿ + begin + with TfrmBSPrtStkSummary.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // + begin + fFormID := FormID; + FormStyle := mstyle; + WindowState := mstate; + BorderStyle := mborderstyle; + mnewHandle := Handle; + end; + end; + 200: //Ⱦ϶ begin with TfrmPrtDyeInfoList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // diff --git a/B03基础物料仓库/U_ProductInfoList.pas b/B03基础物料仓库/U_ProductInfoList.pas index 87dc026..75d61c5 100644 --- a/B03基础物料仓库/U_ProductInfoList.pas +++ b/B03基础物料仓库/U_ProductInfoList.pas @@ -13,7 +13,7 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, cxContainer, dxSkinsCore, dxSkinsDefaultPainters, - dxScrollbarAnnotations, cxProgressBar; + dxScrollbarAnnotations, cxProgressBar, dxSkinWXI; type TfrmProductInfoList = class(TfrmBaseList) diff --git a/B03基础物料仓库/testDll.identcache b/B03基础物料仓库/testDll.identcache index 93998ffa602922f49207e04449a4fc71086f7b0f..c0ce7bfe2d23e173b5dd1278d0176f87fdd2d45e 100644 GIT binary patch delta 39 lcmdnQxQdaFiGhK^-Nh=##n2$kFnnT`;Y4RiE>|Q04* - + diff --git a/E04梭织坯布仓库/TatClothStk.dpr b/E04梭织坯布仓库/TatClothStk.dpr index 082806c..d26e9c6 100644 --- a/E04梭织坯布仓库/TatClothStk.dpr +++ b/E04梭织坯布仓库/TatClothStk.dpr @@ -43,10 +43,10 @@ uses U_TatClothInList_ZDDY in 'U_TatClothInList_ZDDY.pas' {frmTatClothInList_ZDDY}, uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', U_TradeSalesContractSel in '..\T00óͨô\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel}, - U_TatClothStkList in 'U_TatClothStkList.pas' {frmTatClothStkList}, U_TatClothStkSel in 'U_TatClothStkSel.pas' {frmTatClothStkSel}, U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, - U_AttachmentUpload in '..\A00ͨô\U_AttachmentUpload.pas' {frmAttachmentUpload}; + U_AttachmentUpload in '..\A00ͨô\U_AttachmentUpload.pas' {frmAttachmentUpload}, + U_TatClothStkSummary in 'U_TatClothStkSummary.pas' {frmTatClothStkSummary}; {$R *.res} diff --git a/E04梭织坯布仓库/TatClothStk.dproj b/E04梭织坯布仓库/TatClothStk.dproj index f632044..4b58649 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj +++ b/E04梭织坯布仓库/TatClothStk.dproj @@ -80,7 +80,7 @@ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) - D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E04梭织坯布仓库\testDll.exe + D:\D10V1W\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\testDll.exe @@ -177,10 +177,6 @@
frmTradeSalesContractSel
dfm - -
frmTatClothStkList
- dfm -
frmTatClothStkSel
@@ -193,6 +189,10 @@
frmAttachmentUpload
dfm + +
frmTatClothStkSummary
+ dfm +
Cfg_2 Base diff --git a/E04梭织坯布仓库/TatClothStk.dproj.local b/E04梭织坯布仓库/TatClothStk.dproj.local index f4596f9..cf479e9 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj.local +++ b/E04梭织坯布仓库/TatClothStk.dproj.local @@ -1,96 +1,99 @@  - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.559,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList_ZDDY.pas - 1899-12-30 00:00:00.000.025,D:\Dp10RepoV1\项目代码\花蝴蝶\B03基础物料仓库\U_ProductInfoInPut.pas= - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.456,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899-12-30 00:00:00.000.268,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList_Sel.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.181,=D:\Dp10Repo\项目代码\路尚\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas - 1899-12-30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.dfm - 1899-12-30 00:00:00.000.541,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.618,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessListSel.pas - 1899-12-30 00:00:00.000.744,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessInput.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm - 1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm - 1899-12-30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas - 1899-12-30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_TatClothInfoInput.pas - 1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm - 1899-12-30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas - 1899-12-30 00:00:00.000.280,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRSel.pas - 1899-12-30 00:00:00.000.338,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_WBSpecSel.pas - 1899-12-30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas - 1899-12-30 00:00:00.000.390,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas - 1899-12-30 00:00:00.000.500,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899-12-30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.dfm - 1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm - 1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas - 1899-12-30 00:00:00.000.627,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899-12-30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas - 1899-12-30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas= - 1899-12-30 00:00:00.000.862,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsinput.pas - 1899-12-30 00:00:00.000.877,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList.pas - 1899-12-30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas= - 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas= - 1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas - 1899-12-30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas - 1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas - 1899-12-30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas - 1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas= - 1899-12-30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas - 1899-12-30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\路尚\B03基础物料仓库\U_ProductInfoInPut.pas - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas= - 1899-12-30 00:00:00.000.526,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas - 1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas - 1899-12-30 00:00:00.000.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.pas - 1899-12-30 00:00:00.000.754,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas= - 1899-12-30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.pas - 1899-12-30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.pas - 1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm - 1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm - 1899-12-30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj - 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.326,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas - 1899-12-30 00:00:00.000.435,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.139,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsSel.pas - 1899-12-30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.202,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas - 1899-12-30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas= - 1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas - 1899-12-30 00:00:00.000.410,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas= - 1899-12-30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas - 1899-12-30 00:00:00.000.590,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas= + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm + 1899/12/30 00:00:00.000.181,=D:\Dp10Repo\项目代码\路尚\B02基础纱线仓库\U_YarnInfoInPut.pas + 1899/12/30 00:00:00.000.268,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList_Sel.pas + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_TatClothInfoInput.pas + 1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas + 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas= + 1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm + 1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm + 1899/12/30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.pas + 1899/12/30 00:00:00.000.456,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.559,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList_ZDDY.pas + 1899/12/30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj + 1899/12/30 00:00:00.000.025,D:\Dp10RepoV1\项目代码\花蝴蝶\B03基础物料仓库\U_ProductInfoInPut.pas= + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.627,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.390,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas + 1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas + 1899/12/30 00:00:00.000.280,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRSel.pas + 1899/12/30 00:00:00.000.338,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_WBSpecSel.pas + 1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm + 1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas + 1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas + 1899/12/30 00:00:00.000.500,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899/12/30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.pas + 1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm + 1899/12/30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas + 1899/12/30 00:00:00.000.862,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsinput.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899/12/30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas + 1899/12/30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.877,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList.pas + 1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas= + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.dfm + 1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas= + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas= + 1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas + 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.dfm + 1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas + 1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas + 1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas + 1899/12/30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas + 1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.526,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas + 1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\路尚\B03基础物料仓库\U_ProductInfoInPut.pas + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899/12/30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas= + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.326,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899/12/30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas + 1899/12/30 00:00:00.000.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.pas + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.744,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessInput.pas + 1899/12/30 00:00:00.000.618,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessListSel.pas + 1899/12/30 00:00:00.000.541,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.410,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas= + 1899/12/30 00:00:00.000.202,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas + 1899/12/30 00:00:00.000.435,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas + 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm + 1899/12/30 00:00:00.000.139,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsSel.pas + 1899/12/30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj + 1899/12/30 00:00:00.000.754,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas= + 1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas= + 1899/12/30 00:00:00.000.590,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas= + 1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas + 2026/05/18 16:36:56.055,D:\D10V1W\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSummary.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList.pas + 2026/05/18 16:36:56.055,D:\D10V1W\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSummary.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList.dfm + 2026/05/18 16:45:06.070,=D:\D10V1W\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSummary.pas @@ -134,7 +137,7 @@ - + @@ -172,9 +175,9 @@ - - + + diff --git a/E04梭织坯布仓库/TatClothStk.identcache b/E04梭织坯布仓库/TatClothStk.identcache index aefac970ce6157d39829223f2ddf34a5525cce6c..5c8524fd708fccbd7b50d0f8f68f42acf6a4e341 100644 GIT binary patch literal 3220 zcmb_eU2D@&7~aouC^eN`dABv~+O4)_>Bm|EV2a@YfaP?C^E);&brj<@k4q+}O}u zXlT&l@wS%3Tc;ElT^nLrb1es$JnU)&J5$hv9@@u@%)aGxfK>;CkGeZA%6PO%keTs4 z>ew02<72Z?Y_jliVTzywtp~u>AmtIOa)|dP?}owPa6J4p=^q8hgW&m7mg8j|_nay; zx)>RrKzmj02YfBhDOU)>F~&=3khNJ2dk_jJO4%c;C>M6-Ovmh8u>cmp=4CS9P%fnn zhTntXpIMh^yP55Yh3-WEOYTIORD9b8q{lN` z(&SA*Z~^Z*0)gr>gcllT+UQ7RASuJo(L~)5@Rn>&@vhl~RJE)et0XV563G$wO9Nrk zc^HOWjB`HtT8SczDu93(qdW5$g$`B$1x17pcsAuIaCs}1eJUC^*UB`B@D*3W=*f8W zQ_nHULJ33zd|~s8Qk(05u=YjJW2&g<3!T@zu)OBe`-jc3lqZ7_0cTAV+YWP&ozR}bog(F*_`y;kj_DgTVU*<}nUW132c2Cj zf+=%TJtR_2`rs3sXHq+P;nZew8q71o3f+#xO!C}LRbaI%Hu3aE5B&>pPf&t?(J#Vu literal 3381 zcmb_eU279T6z$&;v~Fr2#J4n?Hfhr|WRvEDg)rTnHbXZv%kC^%pIR#VDnw8e(dvUD zSP?{Og7{~WuKgFzwq{{wC)v$MU?DH}%)RHHd+xopw6s)HALy!`Qp(UKyD9zZ?3e%M ze9-^szdzB{l;S?#0;rA}K+h_xmmj|R{b$3s--Z{bgMN3|>+0231<;H|XgiM!$fd2O zsy3Ew;4_)r8^_>66D&q78@(M{;01I(&k11=mFT;_wv zQ<_#*hVOd*+3}$FY1lpS&(HklPZ{`sKKDr;+a48j+e{9xTphpmUwrnzyd3-vdKCg| z&=O%+dDv*lHH1y_aGf}v8x}->Iu9^M*%fHCF*009mW_oyQgVm^T~|tRG3hH=MY$OY zfoL`qB@19l0Wspxnn~wPqlXgs#F?iRQ5*4FXs3cCov|<_gZKr2jNH= zv7Q^aZ2=tZcvQXKJR%Q?$9>%P-hfoKtl$|D`W|0!lw#x2hJ(zE=Tg$ixULw#!N*TS zSZz(Sp&^lNVm(FOjoH2F88nagi3Io#pKP?)VBbqu#SFUWKN<9Y>g(*D2~LOwyIKP{ zc-A5hEV2izUEqklyg!B>&idJTK{~d>b}AxRVvHIOGF}klv^u&p*)(KL6d9%%{HZpp z%mHHXlV8d#e;NMveEf{qVRyl@X*=QZ&Hf}Fn+eRTWy#n~DtPQ4LuD diff --git a/E04梭织坯布仓库/U_GetDllForm.pas b/E04梭织坯布仓库/U_GetDllForm.pas index 9a02765..408d220 100644 --- a/E04梭织坯布仓库/U_GetDllForm.pas +++ b/E04梭织坯布仓库/U_GetDllForm.pas @@ -17,7 +17,7 @@ implementation uses U_DataLink, U_iniParam, U_TatClothInEdit, U_TatClothInList, U_TatDRList, U_TatClothDROutEdit, U_TatClothOutEdit, U_TatClothOutList, U_TatClothStkList, - U_TatClothInList_ZDDY; + U_TatClothInList_ZDDY,U_TatClothStkSummary; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -221,6 +221,18 @@ begin end; end; + 444: //б + begin + with TfrmTatClothStkSummary.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // + begin + fFormID := FormID; + FormStyle := mstyle; + WindowState := mstate; + BorderStyle := mborderstyle; + mnewHandle := Handle; + end; + end; + 10000: begin for i := 0 to application.MainForm.MDIChildCount - 1 do diff --git a/E04梭织坯布仓库/U_TatClothOutList.dfm b/E04梭织坯布仓库/U_TatClothOutList.dfm index 5ac1942..7c9e02d 100644 --- a/E04梭织坯布仓库/U_TatClothOutList.dfm +++ b/E04梭织坯布仓库/U_TatClothOutList.dfm @@ -325,8 +325,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList BorderStyle = cxcbsNone PopupMenu = PM_2 TabOrder = 1 - ExplicitLeft = 3 - ExplicitTop = 101 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E04梭织坯布仓库/U_TatClothOutList.pas b/E04梭织坯布仓库/U_TatClothOutList.pas index 76b7dff..63066b7 100644 --- a/E04梭织坯布仓库/U_TatClothOutList.pas +++ b/E04梭织坯布仓库/U_TatClothOutList.pas @@ -14,7 +14,7 @@ uses cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, System.StrUtils, cxContainer, dxCore, cxDateUtils, cxMaskEdit, dxScrollbarAnnotations, cxProgressBar, dxSkinsCore, - dxSkinsDefaultPainters; + dxSkinsDefaultPainters, dxSkinWXI; type TfrmTatClothOutList = class(TfrmBaseList) diff --git a/E04梭织坯布仓库/U_TatClothStkList.dfm b/E04梭织坯布仓库/U_TatClothStkList.dfm index aabddf6..6724939 100644 --- a/E04梭织坯布仓库/U_TatClothStkList.dfm +++ b/E04梭织坯布仓库/U_TatClothStkList.dfm @@ -86,7 +86,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList Properties.CustomButtons.Buttons = <> Properties.Style = 5 OnChange = cxPageControl1Change - ExplicitTop = 36 ClientRectBottom = 570 ClientRectRight = 1540 ClientRectTop = 32 @@ -281,8 +280,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList BorderStyle = cxcbsNone PopupMenu = PM_2 TabOrder = 1 - ExplicitLeft = -3 - ExplicitTop = 81 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -793,7 +790,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList BorderStyle = cxcbsNone PopupMenu = PM_1 TabOrder = 2 - ExplicitTop = 133 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E04梭织坯布仓库/U_TatClothStkSummary.dfm b/E04梭织坯布仓库/U_TatClothStkSummary.dfm new file mode 100644 index 0000000..5f5d6d6 --- /dev/null +++ b/E04梭织坯布仓库/U_TatClothStkSummary.dfm @@ -0,0 +1,413 @@ +inherited frmTatClothStkSummary: TfrmTatClothStkSummary + Left = 65 + Top = 98 + Caption = #20986#24211#21015#34920 + ClientHeight = 544 + ClientWidth = 1193 + Font.Height = -16 + Position = poScreenCenter + ExplicitWidth = 1209 + ExplicitHeight = 583 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1193 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatClothStk.cxImageList_bar + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 0 + Visible = False + OnClick = TBFindClick + end + object TBExport: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton1: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 30 + Width = 1193 + Height = 51 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 3 + Visible = False + ExplicitTop = 18 + object Label1: TLabel + Left = 732 + Top = 6 + Width = 64 + Height = 21 + Caption = #26597#35810#26102#38388 + Visible = False + end + object Label2: TLabel + Left = 940 + Top = 10 + Width = 16 + Height = 21 + Caption = #33267 + Visible = False + end + object Label3: TLabel + Left = 288 + Top = 11 + Width = 64 + Height = 21 + Caption = #20135#21697#21517#31216 + end + object Label8: TLabel + Left = 34 + Top = 10 + Width = 64 + Height = 21 + Caption = #20135#21697#32534#21495 + end + object P_Name: TcxTextEdit + Tag = 2 + Left = 378 + Top = 6 + TabOrder = 0 + Width = 150 + end + object P_Code: TcxTextEdit + Tag = 2 + Left = 112 + Top = 6 + TabOrder = 1 + Width = 150 + end + object BegDate: TcxDateEdit + Left = 790 + Top = 6 + Properties.ShowTime = False + TabOrder = 2 + Visible = False + Width = 120 + end + object EndDate: TcxDateEdit + Left = 974 + Top = 6 + Properties.ShowTime = False + TabOrder = 3 + Visible = False + Width = 120 + end + end + inherited cxProgressBar2: TcxProgressBar + Left = 337 + Top = 226 + ExplicitLeft = 337 + ExplicitTop = 226 + ExplicitHeight = 29 + end + object cxGrid1: TcxGrid [4] + Left = 0 + Top = 81 + Width = 1193 + Height = 463 + Align = alClient + TabOrder = 4 + ExplicitTop = 69 + ExplicitHeight = 475 + object tv1: TcxGridDBBandedTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = tv1SQJYQty + end + item + Kind = skSum + Column = tv1BQRKQty + end + item + Kind = skSum + Column = tv1BQCKQty + end + item + Kind = skSum + Column = tv1BQJYQty + end> + DataController.Summary.SummaryGroups = <> + OptionsView.Footer = True + OptionsView.GroupByBox = False + Bands = < + item + Caption = 'M'#227' s'#7843'n ph'#7849'm' + end + item + Caption = 'T'#234'n s'#7843'n ph'#7849'm' + end + item + Caption = #272'VT' + end + item + Caption = 'T'#7891'n kho '#273#7847'u k'#7923 + end + item + Caption = 'Nh'#7853'p kho' + end + item + Caption = 'Xu'#7845't kho' + end + item + Caption = 'T'#7891'n kho Cu'#7889'i k'#7923 + end> + object tv1C_Name: TcxGridDBBandedColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object tv1QtyUnit: TcxGridDBBandedColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object tv1SQJYQty: TcxGridDBBandedColumn + Caption = #26399#21021#24211#23384 + DataBinding.FieldName = 'SQJYQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object tv1BQRKQty: TcxGridDBBandedColumn + Caption = #26412#26376#20837#24211 + DataBinding.FieldName = 'BQRKQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 4 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object tv1BQCKQty: TcxGridDBBandedColumn + Caption = #26412#26376#20986#24211 + DataBinding.FieldName = 'BQCKQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 5 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object tv1BQJYQty: TcxGridDBBandedColumn + Caption = #26399#26411#24211#23384 + DataBinding.FieldName = 'BQJYQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 6 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object tv1C_Code: TcxGridDBBandedColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 200 + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = tv1 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 265 + Top = 176 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 169 + Top = 177 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Parameters = <> + Left = 944 + Top = 264 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 128 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1040 + Top = 288 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 920 + Top = 152 + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 1104 + Top = 168 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 952 + Top = 152 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 360 + Top = 232 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 424 + Top = 232 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 392 + Top = 232 + end + object RMDBHZ: TRMDBDataSet + Visible = True + DataSet = CDS_HZ + Left = 296 + Top = 232 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 232 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 456 + Top = 232 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/E04梭织坯布仓库/U_TatClothStkSummary.pas b/E04梭织坯布仓库/U_TatClothStkSummary.pas new file mode 100644 index 0000000..69f4cc2 --- /dev/null +++ b/E04梭织坯布仓库/U_TatClothStkSummary.pas @@ -0,0 +1,208 @@ +unit U_TatClothStkSummary; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, + dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore, cxDateUtils, cxMaskEdit, + dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar, + dxSkinWXI; + +type + TfrmTatClothStkSummary = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + Label1: TLabel; + Label2: TLabel; + CDS_Main: TClientDataSet; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + RMDBHZ: TRMDBDataSet; + CDS_HZ: TClientDataSet; + CDS_PRT: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + Label3: TLabel; + Label8: TLabel; + P_Name: TcxTextEdit; + P_Code: TcxTextEdit; + ToolButton1: TToolButton; + BegDate: TcxDateEdit; + EndDate: TcxDateEdit; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + tv1: TcxGridDBBandedTableView; + tv1C_Name: TcxGridDBBandedColumn; + tv1QtyUnit: TcxGridDBBandedColumn; + tv1SQJYQty: TcxGridDBBandedColumn; + tv1BQRKQty: TcxGridDBBandedColumn; + tv1BQCKQty: TcxGridDBBandedColumn; + tv1BQJYQty: TcxGridDBBandedColumn; + tv1C_Code: TcxGridDBBandedColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure SPNameChange(Sender: TObject); + procedure BPIOIDChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure P_specChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + canshu1, FStkName, canshu3: string; + FFSPID: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint; + +{$R *.dfm} + +procedure TfrmTatClothStkSummary.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmTatClothStkSummary.FormCreate(Sender: TObject); +begin + inherited; + canshu1 := Trim(self.fParameters1); + FStkName := Trim(self.fParameters2); + canshu3 := Trim(self.fParameters3); + EndDate.Date := SGetServerDate(ADOQueryTemp); + BegDate.Date := EndDate.Date - 90; +end; + +procedure TfrmTatClothStkSummary.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + SQL.Clear; + SQL.Add('exec P_Tat_ClothStkSummary'); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_Main); + SInitCDSData(ADOQueryMain, CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmTatClothStkSummary.TBRafreshClick(Sender: TObject); +begin +// BegDate.SetFocus; + InitGrid(); +end; + +procedure TfrmTatClothStkSummary.ToolButton1Click(Sender: TObject); +begin + ReadCxBandedGrid(trim(Self.Caption) + tv1.Name, Tv1, 'ֿ'); + +end; + +procedure TfrmTatClothStkSummary.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmTatClothStkSummary.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTatClothStkSummary.FormShow(Sender: TObject); +begin + inherited; + ReadCxBandedGrid(trim(Self.Caption) + tv1.Name, Tv1, 'ֿ'); + InitGrid(); +end; + +procedure TfrmTatClothStkSummary.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel('б', cxGrid1); +end; + +procedure TfrmTatClothStkSummary.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_Main); + SInitCDSData(ADOQueryMain, CDS_Main); + end; +end; + +procedure TfrmTatClothStkSummary.SPNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTatClothStkSummary.BPIOIDChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTatClothStkSummary.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main, True); +end; + +procedure TfrmTatClothStkSummary.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main, False); +end; + +procedure TfrmTatClothStkSummary.P_specChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmTatClothStkSummary.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +end. + diff --git a/E04梭织坯布仓库/testDll.identcache b/E04梭织坯布仓库/testDll.identcache index 00d0c560485e9d9a8db527e50ee1700f9a2d319c..38f415cc73ea176c850faa29b0acda5f8c170e1d 100644 GIT binary patch delta 77 zcmdnQxQbDciGhK^)x|2t#n2$kFg)hv!ky1&uY0n4@$&_ZAhF=6iPdrwoyBF{@vAWh E0CIaD%K!iX delta 85 zcmZ3*xQS7fiGhK^)5R*rrNGc2D77Fz%rNHV!ky1&uY0n4@$&_ZF)oG%#Z?m(O%=Tf KE0UWyQ4#=uS|d{c