diff --git a/B02基础纱线仓库/U_GetDllForm.pas b/B02基础纱线仓库/U_GetDllForm.pas index d9d9488..6e93727 100644 --- a/B02基础纱线仓库/U_GetDllForm.pas +++ b/B02基础纱线仓库/U_GetDllForm.pas @@ -78,7 +78,7 @@ begin Parameters1 := 'ѯ'; Parameters1 := ''; - Parameters2 := 'ɴ'; + Parameters2 := ''; end else begin diff --git a/B02基础纱线仓库/U_YarnInEdit.pas b/B02基础纱线仓库/U_YarnInEdit.pas index 37757a1..379ba35 100644 --- a/B02基础纱线仓库/U_YarnInEdit.pas +++ b/B02基础纱线仓库/U_YarnInEdit.pas @@ -100,8 +100,8 @@ begin begin Edit; FieldByName('BYIOID').Value := null; - FieldByName('StkCoNo').Value := 'ֿ'; - FieldByName('StkCoName').Value := 'ֿ'; + FieldByName('StkCoNo').Value := Trim(FSTKNAME) + 'ֿ'; + FieldByName('StkCoName').Value := Trim(FSTKNAME) + 'ֿ'; post; end; end @@ -111,8 +111,8 @@ begin begin Append; FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); - FieldByName('StkCoNo').Value := 'ֿ'; - FieldByName('StkCoName').Value := 'ֿ'; + FieldByName('StkCoNo').Value := Trim(FSTKNAME) + 'ֿ'; + FieldByName('StkCoName').Value := Trim(FSTKNAME) + 'ֿ'; FieldByName('QtyUnit').Value := 'Kg'; Post; end; @@ -185,27 +185,48 @@ begin FieldByName('IOQtyFlag').Value := 1; Post; end; - with ADOQueryCmd do - begin - Close; - sql.Clear; - sql.Add('Update BS_Yarn_IO Set StkPiece=(select Sum(isnull(Piece,0)*IOQtyFlag) from BS_Yarn_IO A where A.STKID=BS_Yarn_IO.BYIOID)'); - sql.Add(',STKQty=(select Sum(isnull(Qty,0)*IOQtyFlag) from BS_Yarn_IO A where A.STKID=BS_Yarn_IO.BYIOID )'); - sql.Add('where BYIOID=''' + Trim(Maxno) + ''''); - ExecSQL; - end; +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add('Update BS_Yarn_IO Set StkPiece=(select Sum(isnull(Piece,0)*IOQtyFlag) from BS_Yarn_IO A where A.STKID=BS_Yarn_IO.BYIOID)'); +// sql.Add(',STKQty=(select Sum(isnull(Qty,0)*IOQtyFlag) from BS_Yarn_IO A where A.STKID=BS_Yarn_IO.BYIOID )'); +// sql.Add('where BYIOID=''' + Trim(Maxno) + ''''); +// ExecSQL; +// end; +// with ADOQueryTemp do +// begin +// Close; +// sql.Clear; +// sql.Add('select * from BS_Yarn_IO where BYIOID=''' + Trim(Maxno) + ''''); +// Open; +// end; +// if ADOQueryTemp.FieldByName('STKQty').Value < 0 then +// raise Exception.Create('ܱ棡'); +// +// if ADOQueryTemp.FieldByName('StkPiece').Value < 0 then +// raise Exception.Create('//ܱ棡'); with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select * from BS_Yarn_IO where BYIOID=''' + Trim(Maxno) + ''''); + sql.Add(' select FromCoName,StkCoName,Brand,Y_Name,stkqty=sum(ioqtyflag*qty),Price,QtyUnit,StkPosition '); + sql.Add(' from BS_Yarn_IO A '); + SQL.Add(' where 1=1 '); // isnull(StkQty,0)>0 + if FstkName <> '' then + begin + sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''); + end; + SQL.Add('GROUP BY FromCoName,StkCoName,Brand,Y_Name,Price,QtyUnit,StkPosition'); + SQL.Add('HAVING sum(ioqtyflag*qty)<0'); + sql.Add('order by StkCoName,Brand,Y_Name'); +// sql.Add('select * from BS_Yarn_IO where BYIOID=''' + Trim(CDS_Sub.fieldbyname('STKID').AsString) + ''''); Open; end; - if ADOQueryTemp.FieldByName('STKQty').Value < 0 then - raise Exception.Create('ܱ棡'); + if ADOQueryTemp.IsEmpty=False then - if ADOQueryTemp.FieldByName('StkPiece').Value < 0 then - raise Exception.Create('//ܱ棡'); +// if ADOQueryTemp.FieldByName('StkPiece').Value < 0 then + raise Exception.Create('ܱ棡'); with ADOQueryCmd do begin @@ -227,6 +248,7 @@ begin Result := True; except + CDS_Sub.EnableControls; Result := False; ADOQueryCmd.Connection.RollbackTrans; application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); diff --git a/B02基础纱线仓库/U_YarnOutEdit.dfm b/B02基础纱线仓库/U_YarnOutEdit.dfm index 010137a..a51b21f 100644 --- a/B02基础纱线仓库/U_YarnOutEdit.dfm +++ b/B02基础纱线仓库/U_YarnOutEdit.dfm @@ -10,6 +10,7 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit Font.Name = #23435#20307 Position = poMainFormCenter OnClose = FormClose + ExplicitLeft = -8 ExplicitWidth = 1422 ExplicitHeight = 793 PixelsPerInch = 96 @@ -50,18 +51,27 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit AutoSize = True Caption = #26032#22686 ImageIndex = 2 + Visible = False OnClick = TBAddClick end - object TBDel: TToolButton + object ToolButton2: TToolButton Left = 142 Top = 0 AutoSize = True + Caption = #26032#22686 + ImageIndex = 2 + OnClick = ToolButton2Click + end + object TBDel: TToolButton + Left = 213 + Top = 0 + AutoSize = True Caption = #21024#38500 ImageIndex = 6 OnClick = TBDelClick end object ToolButton1: TToolButton - Left = 213 + Left = 284 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -69,7 +79,7 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 308 + Left = 379 Top = 0 AutoSize = True Caption = #20851#38381 @@ -223,47 +233,6 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit Options.Editing = False Width = 97 end - object v1Column8: TcxGridDBColumn - Caption = #35268#26684 - DataBinding.FieldName = 'Y_Spec' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - HeaderGlyphAlignmentHorz = taCenter - Options.Editing = False - Width = 65 - end - object Tv1Column4: TcxGridDBColumn - Caption = #25104#20998 - DataBinding.FieldName = 'Y_Composition' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 76 - end - object Tv1Column5: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'Y_Color' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 76 - end - object Tv1Column6: TcxGridDBColumn - Caption = 'D'#25968 - DataBinding.FieldName = 'Denier' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 76 - end - object v1Column7: TcxGridDBColumn - Caption = #25209#21495 - DataBinding.FieldName = 'BatchNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 77 - end object Tv1Column11: TcxGridDBColumn Caption = #20986#21040#35745#21010#21333 DataBinding.FieldName = 'ToOrdNo' @@ -272,23 +241,6 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit Options.Editing = False Width = 89 end - object Tv1Column1: TcxGridDBColumn - Caption = #21253#25968 - DataBinding.FieldName = 'Piece' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = TextEdit - HeaderAlignmentHorz = taCenter - Width = 62 - end - object Tv1Column10: TcxGridDBColumn - Caption = #27599#21253#25968#37327 - DataBinding.FieldName = 'PieceQty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end object v2Column6: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'Qty' @@ -355,6 +307,7 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit Font.Style = [fsBold] ParentFont = False TabOrder = 2 + Visible = False Properties.ActivePage = cxTabSheet2 Properties.CustomButtons.Buttons = <> Properties.Style = 5 @@ -453,6 +406,7 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit Font.Style = [] ParentFont = False TabOrder = 1 + ExplicitLeft = -1 object TV2: TcxGridDBTableView OnDblClick = TV2DblClick Navigator.Buttons.CustomButtons = <> diff --git a/B02基础纱线仓库/U_YarnOutEdit.pas b/B02基础纱线仓库/U_YarnOutEdit.pas index 9933e53..22e2257 100644 --- a/B02基础纱线仓库/U_YarnOutEdit.pas +++ b/B02基础纱线仓库/U_YarnOutEdit.pas @@ -32,26 +32,19 @@ type v1Column2: TcxGridDBColumn; v1CRType: TcxGridDBColumn; v2Column1: TcxGridDBColumn; - v1Column8: TcxGridDBColumn; v2Column6: TcxGridDBColumn; v1Column3: TcxGridDBColumn; v1Column12: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; v1Column1: TcxGridDBColumn; v1Column5: TcxGridDBColumn; - v1Column7: TcxGridDBColumn; v1Column10: TcxGridDBColumn; ToolButton1: TToolButton; Tv1Column2: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; - Tv1Column1: TcxGridDBColumn; - Tv1Column4: TcxGridDBColumn; - Tv1Column5: TcxGridDBColumn; - Tv1Column6: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn; - Tv1Column10: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn; cxPageControl1: TcxPageControl; cxTabSheet2: TcxTabSheet; @@ -88,6 +81,7 @@ type cxGridLevel1: TcxGridLevel; TV2Column1: TcxGridDBColumn; TV2Column2: TcxGridDBColumn; + ToolButton2: TToolButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBAddClick(Sender: TObject); procedure TBCloseClick(Sender: TObject); @@ -101,6 +95,7 @@ type procedure TextEdit(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure TV2DblClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); private { Private declarations } function SaveCKData(): Boolean; @@ -116,7 +111,7 @@ var implementation uses - U_DataLink, U_RTFun, U_ZDYHelp, U_YarnStkSel, U_CompanySel; + U_DataLink, U_RTFun, U_ZDYHelp, U_YarnStkSel, U_CompanySel, U_YarnStkHZSel; {$R *.dfm} @@ -285,39 +280,49 @@ begin FieldByName('ToCoNo').Value := CDS_Sub.fieldbyname('ToCoNo').Value; Post; end; - with ADOQueryCmd do - begin - Close; - sql.Clear; - sql.Add('Update BS_Yarn_IO Set StkPiece=(select Sum(isnull(Piece,0)*IOQtyFlag) from BS_Yarn_IO A where A.STKID=BS_Yarn_IO.BYIOID)'); - sql.Add(',STKQty=(select Sum(isnull(Qty,0)*IOQtyFlag) from BS_Yarn_IO A where A.STKID=BS_Yarn_IO.BYIOID )'); - sql.Add('where BYIOID=''' + Trim(CDS_Sub.fieldbyname('STKID').AsString) + ''''); - ExecSQL; - end; +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add('Update BS_Yarn_IO Set StkPiece=(select Sum(isnull(Piece,0)*IOQtyFlag) from BS_Yarn_IO A where A.STKID=BS_Yarn_IO.BYIOID)'); +// sql.Add(',STKQty=(select Sum(isnull(Qty,0)*IOQtyFlag) from BS_Yarn_IO A where A.STKID=BS_Yarn_IO.BYIOID )'); +// sql.Add('where BYIOID=''' + Trim(CDS_Sub.fieldbyname('STKID').AsString) + ''''); +// ExecSQL; +// end; with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select * from BS_Yarn_IO where BYIOID=''' + Trim(CDS_Sub.fieldbyname('STKID').AsString) + ''''); + sql.Add(' select FromCoName,StkCoName,Brand,Y_Name,stkqty=sum(ioqtyflag*qty),Price,QtyUnit,StkPosition '); + sql.Add(' from BS_Yarn_IO A '); + SQL.Add(' where 1=1 '); // isnull(StkQty,0)>0 + if FstkName <> '' then + begin + sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''); + end; + SQL.Add('GROUP BY FromCoName,StkCoName,Brand,Y_Name,Price,QtyUnit,StkPosition'); + SQL.Add('HAVING sum(ioqtyflag*qty)<0'); + sql.Add('order by StkCoName,Brand,Y_Name'); +// sql.Add('select * from BS_Yarn_IO where BYIOID=''' + Trim(CDS_Sub.fieldbyname('STKID').AsString) + ''''); Open; end; + if ADOQueryTemp.IsEmpty = False then - if ADOQueryTemp.FieldByName('StkPiece').Value < 0 then +// if ADOQueryTemp.FieldByName('StkPiece').Value < 0 then raise Exception.Create('ܱ棡'); - if ADOQueryTemp.FieldByName('StkPiece').Value < 0 then - raise Exception.Create('//ܱ棡'); - with ADOQueryCmd do - begin - Close; - Sql.Clear; - Sql.Add('exec P_BS_Yarn_Move '); - Sql.Add(' @BYIOID=' + quotedstr(Trim(Maxno))); - Open; - end; - if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then - raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + +// with ADOQueryCmd do +// begin +// Close; +// Sql.Clear; +// Sql.Add('exec P_BS_Yarn_Move '); +// Sql.Add(' @BYIOID=' + quotedstr(Trim(Maxno))); +// Open; +// end; +// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then +// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); with ADOQueryCmd do begin @@ -338,6 +343,7 @@ begin ADOQueryCmd.Connection.CommitTrans; Result := True; except + CDS_Sub.EnableControls; Result := False; ADOQueryCmd.Connection.RollbackTrans; application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); @@ -444,6 +450,63 @@ begin WriteCxGrid(fSTKName + 'Ǽ2', Tv1, 'ϲֿ'); end; +procedure TfrmYarnOutEdit.ToolButton2Click(Sender: TObject); +begin + try + frmYarnStkHZSel := TfrmYarnStkHZSel.Create(Application); + with frmYarnStkHZSel do + begin + FstkName := Self.FstkName; + if ShowModal = 1 then + begin + frmYarnStkHZSel.CDS_Main.DisableControls; + with frmYarnStkHZSel.CDS_Main do + begin + First; + while frmYarnStkHZSel.CDS_Main.Locate('SSel', True, []) do + begin + with Self.CDS_Sub do + begin + Append; + FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); +// FieldByName('STKID').Value := frmYarnStkSel.CDS_Main.fieldbyname('BYIOID').Value; + FieldByName('IOType').Value := ''; + FieldByName('FromCoNo').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('FromCoNo').Value; //Եλ + FieldByName('FromCoName').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('FromCoName').Value; + FieldByName('StkCoNo').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('StkCoNo').Value; //ŵλ + FieldByName('StkCoName').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('StkCoName').Value; + FieldByName('ToCoNo').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('StkCoNo').Value; //λ + FieldByName('ToCoName').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('StkCoName').Value; +// + FieldByName('Brand').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('Brand').Value; + FieldByName('Y_Name').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('Y_Name').Value; +// FieldByName('Y_Spec').Value := frmYarnStkSel.CDS_Main.fieldbyname('Y_Spec').Value; +// FieldByName('Y_Composition').Value := frmYarnStkSel.CDS_Main.fieldbyname('Y_Composition').Value; +// FieldByName('Y_Color').Value := frmYarnStkSel.CDS_Main.fieldbyname('Y_Color').Value; +// FieldByName('Denier').Value := frmYarnStkSel.CDS_Main.fieldbyname('Denier').Value; +// FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value; +// +// FieldByName('Piece').Value := frmYarnStkSel.CDS_Main.fieldbyname('STKPiece').Value; +// FieldByName('PieceQty').Value := frmYarnStkSel.CDS_Main.fieldbyname('PieceQty').Value; + FieldByName('Qty').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('STKQTY').Value; + FieldByName('Price').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('Price').Value; +// + FieldByName('Amount').Value := RoundFloat(frmYarnStkHZSel.CDS_Main.fieldbyname('Price').Value * frmYarnStkHZSel.CDS_Main.fieldbyname('STKQTY').Value, 2); + FieldByName('QtyUnit').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('QtyUnit').Value; + FieldByName('StkPosition').Value := frmYarnStkHZSel.CDS_Main.fieldbyname('StkPosition').Value; + end; + frmYarnStkHZSel.CDS_Main.Delete; + end; + end; + frmYarnStkHZSel.CDS_Main.EnableControls; + end; + end; + finally + frmYarnStkHZSel.Free; + end; + +end; + procedure TfrmYarnOutEdit.TextEdit(Sender: TObject); var mvalue, FFieldName: string; diff --git a/B02基础纱线仓库/U_YarnStkHZSel.dfm b/B02基础纱线仓库/U_YarnStkHZSel.dfm new file mode 100644 index 0000000..f0cca6b --- /dev/null +++ b/B02基础纱线仓库/U_YarnStkHZSel.dfm @@ -0,0 +1,395 @@ +inherited frmYarnStkHZSel: TfrmYarnStkHZSel + Left = 105 + Top = 131 + Caption = #32433#32447#27719#24635#24211#23384#36873#25321#21015#34920 + ClientHeight = 472 + ClientWidth = 1165 + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Height = -12 + Font.Name = #23435#20307 + Position = poMainFormCenter + OnClose = FormClose + ExplicitWidth = 1181 + ExplicitHeight = 511 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1165 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_YarnStk.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 0 + Visible = False + OnClick = TBFindClick + end + object ToolButton1: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #30830#23450 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 308 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1165 + Height = 36 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label3: TLabel + Left = 181 + Top = 10 + Width = 24 + Height = 12 + Caption = #21697#21517 + end + object Label4: TLabel + Left = 35 + Top = 10 + Width = 48 + Height = 12 + Caption = #26469#33258#21333#20301 + end + object Label8: TLabel + Left = 323 + Top = 10 + Width = 24 + Height = 12 + Caption = #35268#26684 + end + object Label2: TLabel + Left = 464 + Top = 10 + Width = 36 + Height = 12 + Caption = #25209' '#21495 + end + object Y_Name: TEdit + Tag = 2 + Left = 211 + Top = 6 + Width = 100 + Height = 20 + TabOrder = 0 + OnChange = TBFindClick + end + object FromCoName: TEdit + Tag = 2 + Left = 88 + Top = 6 + Width = 78 + Height = 20 + TabOrder = 1 + OnChange = FromCoNameChange + end + object Y_Spec: TEdit + Tag = 2 + Left = 353 + Top = 6 + Width = 100 + Height = 20 + TabOrder = 2 + OnChange = TBFindClick + end + object BatchNo: TEdit + Tag = 2 + Left = 503 + Top = 6 + Width = 78 + Height = 20 + TabOrder = 3 + OnChange = FromCoNameChange + end + end + object cxGrid2: TcxGrid [2] + Left = 0 + Top = 74 + Width = 1165 + Height = 398 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + ExplicitLeft = -1 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.IncSearch = DataLink_YarnStk.SHuangSe + Styles.Header = DataLink_YarnStk.Default + Styles.Inactive = DataLink_YarnStk.SHuangSe + Styles.Selection = DataLink_YarnStk.SHuangSe + object Tv1Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#21333#20301 + DataBinding.FieldName = 'FromCoName' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 108 + end + object Tv1Column2: TcxGridDBColumn + Caption = #23384#25918#21333#20301 + DataBinding.FieldName = 'StkCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object v1Column5: TcxGridDBColumn + Caption = #21697#29260 + DataBinding.FieldName = 'Brand' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'Y_Name' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 124 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'stkqty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object Tv1Column8: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object Tv1Column6: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'StkPosition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv1 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_YarnStk.ADOLink + Left = 297 + Top = 176 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_YarnStk.ADOLink + Left = 225 + Top = 217 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_YarnStk.ADOLink + Parameters = <> + Left = 544 + Top = 136 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_YarnStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 672 + Top = 160 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_YarnStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 464 + Top = 152 + end + object DataSource1: TDataSource + DataSet = CDS_Main + Left = 576 + Top = 304 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 512 + Top = 304 + end + object CDS_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 632 + Top = 240 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 392 + Top = 312 + end + object PopupMenu1: TPopupMenu + Left = 328 + Top = 272 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end +end diff --git a/B02基础纱线仓库/U_YarnStkHZSel.pas b/B02基础纱线仓库/U_YarnStkHZSel.pas new file mode 100644 index 0000000..fb5e21b --- /dev/null +++ b/B02基础纱线仓库/U_YarnStkHZSel.pas @@ -0,0 +1,207 @@ +unit U_YarnStkHZSel; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, + cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, + cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseHelp, System.ImageList, + Vcl.ImgList, dxScrollbarAnnotations; + +type + TfrmYarnStkHZSel = class(TfrmBaseHelp) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + cxGridPopupMenu1: TcxGridPopupMenu; + CDS_Main: TClientDataSet; + CDS_HZ: TClientDataSet; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton1: TToolButton; + Label3: TLabel; + Label4: TLabel; + Label8: TLabel; + Label2: TLabel; + Y_Name: TEdit; + FromCoName: TEdit; + Y_Spec: TEdit; + BatchNo: TEdit; + ToolButton2: TToolButton; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column14: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + cxGrid2Level1: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure SXBatchNOChange(Sender: TObject); + procedure FromCoNameChange(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton2Click(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + FstkName: string; + { Public declarations } + end; + +var + frmYarnStkHZSel: TfrmYarnStkHZSel; + +implementation + +uses + U_DataLink, U_RTFun; + +{$R *.dfm} + +procedure TfrmYarnStkHZSel.FormDestroy(Sender: TObject); +begin + inherited; + frmYarnStkHZSel := nil; +end; + +procedure TfrmYarnStkHZSel.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmYarnStkHZSel.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from BS_Yarn_IO A where A.IOFlag='''' and isnull(STkQty,0)>0 '); + sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_Main); + SInitCDSData(ADOQueryMain, CDS_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmYarnStkHZSel.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmYarnStkHZSel.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmYarnStkHZSel.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmYarnStkHZSel.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(trim(self.Caption), Tv1, 'ϲֿ'); + InitGrid(); +end; + +procedure TfrmYarnStkHZSel.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 TfrmYarnStkHZSel.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmYarnStkHZSel.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Main, True); +end; + +procedure TfrmYarnStkHZSel.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Main, False); +end; + +procedure TfrmYarnStkHZSel.SXBatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmYarnStkHZSel.FromCoNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmYarnStkHZSel.ToolButton1Click(Sender: TObject); +begin + if CDS_Main.IsEmpty then + Exit; + if CDS_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + ModalResult := 1; +end; + +procedure TfrmYarnStkHZSel.ToolButton2Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption), Tv1, 'ϲֿ'); +end; + +procedure TfrmYarnStkHZSel.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult := 1; +end; + +end. + diff --git a/B02基础纱线仓库/U_YarnStkList.dfm b/B02基础纱线仓库/U_YarnStkList.dfm index a2197c0..56acb60 100644 --- a/B02基础纱线仓库/U_YarnStkList.dfm +++ b/B02基础纱线仓库/U_YarnStkList.dfm @@ -107,20 +107,6 @@ inherited frmYarnStkList: TfrmYarnStkList Height = 12 Caption = #26469#33258#21333#20301 end - object Label8: TLabel - Left = 332 - Top = 12 - Width = 24 - Height = 12 - Caption = #35268#26684 - end - object Label2: TLabel - Left = 473 - Top = 12 - Width = 36 - Height = 12 - Caption = #25209' '#21495 - end object Y_name: TEdit Tag = 2 Left = 217 @@ -139,24 +125,6 @@ inherited frmYarnStkList: TfrmYarnStkList TabOrder = 1 OnChange = FromCoNameChange end - object Y_spec: TEdit - Tag = 2 - Left = 359 - Top = 8 - Width = 100 - Height = 20 - TabOrder = 2 - OnChange = TBFindClick - end - object BatchNo: TEdit - Tag = 2 - Left = 512 - Top = 8 - Width = 78 - Height = 20 - TabOrder = 3 - OnChange = FromCoNameChange - end end object cxGrid2: TcxGrid [2] Left = 0 @@ -166,8 +134,10 @@ inherited frmYarnStkList: TfrmYarnStkList Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 + ExplicitLeft = 1 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = < item @@ -225,17 +195,11 @@ inherited frmYarnStkList: TfrmYarnStkList Styles.Header = DataLink_YarnStk.Default Styles.Inactive = DataLink_YarnStk.SHuangSe Styles.Selection = DataLink_YarnStk.SHuangSe - object v1Column6: TcxGridDBColumn - Caption = #20837#24211#26102#38388 - DataBinding.FieldName = 'IOTime' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 87 - end object v1Column14: TcxGridDBColumn Tag = 2 Caption = #26469#33258#21333#20301 DataBinding.FieldName = 'FromCoName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Buttons = < @@ -251,6 +215,7 @@ inherited frmYarnStkList: TfrmYarnStkList object Tv1Column2: TcxGridDBColumn Caption = #23384#25918#21333#20301 DataBinding.FieldName = 'StkCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 76 @@ -258,6 +223,7 @@ inherited frmYarnStkList: TfrmYarnStkList object v1Column5: TcxGridDBColumn Caption = #21697#29260 DataBinding.FieldName = 'Brand' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 90 @@ -266,6 +232,7 @@ inherited frmYarnStkList: TfrmYarnStkList Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'Y_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -276,60 +243,11 @@ inherited frmYarnStkList: TfrmYarnStkList Options.Editing = False Width = 124 end - object v1Column8: TcxGridDBColumn - Tag = 2 - Caption = #35268#26684 - DataBinding.FieldName = 'Y_Spec' - HeaderAlignmentHorz = taCenter - HeaderGlyphAlignmentHorz = taCenter - Options.Editing = False - Width = 131 - end - object Tv1Column3: TcxGridDBColumn - Caption = #25104#20998 - DataBinding.FieldName = 'Y_Composition' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 82 - end - object Tv1Column4: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'Y_Color' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 76 - end - object Tv1Column5: TcxGridDBColumn - Caption = 'D'#25968 - DataBinding.FieldName = 'Denier' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 76 - end - object v1Column10: TcxGridDBColumn - Caption = #25209#21495 - DataBinding.FieldName = 'BatchNo' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 124 - end - object Tv1Column1: TcxGridDBColumn - Caption = #24211#23384#21253#25968 - DataBinding.FieldName = 'StkPiece' - HeaderAlignmentHorz = taCenter - Width = 64 - end - object Tv1Column9: TcxGridDBColumn - Caption = #27599#21253#25968#37327 - DataBinding.FieldName = 'PieceQty' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end object v2Column6: TcxGridDBColumn Tag = 2 Caption = #24211#23384#25968#37327 DataBinding.FieldName = 'stkqty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -338,6 +256,7 @@ inherited frmYarnStkList: TfrmYarnStkList object Tv1Column8: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 @@ -346,6 +265,7 @@ inherited frmYarnStkList: TfrmYarnStkList Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -359,24 +279,11 @@ inherited frmYarnStkList: TfrmYarnStkList object Tv1Column6: TcxGridDBColumn Caption = #24211#20301 DataBinding.FieldName = 'StkPosition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 76 end - object Tv1Column7: TcxGridDBColumn - Caption = #22791#27880 - DataBinding.FieldName = 'Note' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 76 - end - object Tv1Column10: TcxGridDBColumn - Caption = #25805#20316#20154 - DataBinding.FieldName = 'Filler' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 70 - end end object cxGrid2Level1: TcxGridLevel GridView = Tv1 diff --git a/B02基础纱线仓库/U_YarnStkList.pas b/B02基础纱线仓库/U_YarnStkList.pas index f0bb908..a0b9f5a 100644 --- a/B02基础纱线仓库/U_YarnStkList.pas +++ b/B02基础纱线仓库/U_YarnStkList.pas @@ -12,7 +12,8 @@ uses cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, - cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList; + cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, + dxScrollbarAnnotations; type TfrmYarnStkList = class(TfrmBaseList) @@ -34,32 +35,18 @@ type Tv1: TcxGridDBTableView; v1Column14: TcxGridDBColumn; v2Column1: TcxGridDBColumn; - v1Column8: TcxGridDBColumn; v1Column5: TcxGridDBColumn; - v1Column10: TcxGridDBColumn; v2Column6: TcxGridDBColumn; v1Column3: TcxGridDBColumn; cxGrid2Level1: TcxGridLevel; Label3: TLabel; Label4: TLabel; - Label8: TLabel; - Label2: TLabel; Y_name: TEdit; FromCoName: TEdit; - Y_spec: TEdit; - BatchNo: TEdit; - v1Column6: TcxGridDBColumn; ToolButton2: TToolButton; - Tv1Column1: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn; - Tv1Column3: TcxGridDBColumn; - Tv1Column4: TcxGridDBColumn; - Tv1Column5: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; - Tv1Column7: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; - Tv1Column9: TcxGridDBColumn; - Tv1Column10: TcxGridDBColumn; ToolButton3: TToolButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); @@ -125,10 +112,17 @@ begin Filtered := False; Close; sql.Clear; - sql.Add(' select A.* '); + sql.Add(' select FromCoName,StkCoName,Brand,Y_Name,stkqty=sum(ioqtyflag*qty),Price,QtyUnit,StkPosition '); sql.Add(' from BS_Yarn_IO A '); - SQL.Add(' where A.IOFlag='''' and isnull(StkQty,0)>0 '); - sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''); + SQL.Add(' where 1=1 '); // isnull(StkQty,0)>0 + if FstkName <> '' then + begin + sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''); + end; + SQL.Add('GROUP BY FromCoName,StkCoName,Brand,Y_Name,Price,QtyUnit,StkPosition'); + SQL.Add('HAVING sum(ioqtyflag*qty)>0'); + sql.Add('order by StkCoName,Brand,Y_Name'); + Open; end; SCreateCDS(ADOQueryMain, CDS_Main); diff --git a/B02基础纱线仓库/YarnStk.dproj.local b/B02基础纱线仓库/YarnStk.dproj.local index 79ccee5..db6f436 100644 --- a/B02基础纱线仓库/YarnStk.dproj.local +++ b/B02基础纱线仓库/YarnStk.dproj.local @@ -1,53 +1,53 @@  - 1899-12-30 00:00:00.000.792,=D:\Dp10Repo\项目代码\共佳\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.172,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.146,D:\Dp10Repo\项目代码\共佳\A00通用窗体\U_YarnInfoSel.dfm=D:\Dp10Repo\项目代码\共佳\B02基础纱线仓库\U_PlanYarnSel.dfm + 1899-12-30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.792,=D:\Dp10Repo\项目代码\共佳\A00通用窗体\U_YarnInfoSel.pas + 1899-12-30 00:00:00.000.146,D:\Dp10Repo\项目代码\共佳\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\共佳\B02基础纱线仓库\U_PlanYarnSel.pas + 1899-12-30 00:00:00.000.311,D:\Dp10Repo\项目代码\阔禾\B02基础纱线仓库\U_YarnStkList.pas=D:\Dp10Repo\项目代码\阔禾\B02基础纱线仓库\U_YarnStkTotalList.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.146,D:\Dp10Repo\项目代码\共佳\B02基础纱线仓库\U_PlanYarnSel.pas=D:\Dp10Repo\项目代码\共佳\A00通用窗体\U_YarnInfoSel.pas 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.pas= 1899-12-30 00:00:00.000.572,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.311,D:\Dp10Repo\项目代码\阔禾\B02基础纱线仓库\U_YarnStkTotalList.dfm=D:\Dp10Repo\项目代码\阔禾\B02基础纱线仓库\U_YarnStkList.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.311,D:\Dp10Repo\项目代码\阔禾\B02基础纱线仓库\U_YarnStkList.dfm=D:\Dp10Repo\项目代码\阔禾\B02基础纱线仓库\U_YarnStkTotalList.dfm 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas 1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.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.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.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.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas 1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.146,D:\Dp10Repo\项目代码\共佳\B02基础纱线仓库\U_PlanYarnSel.dfm=D:\Dp10Repo\项目代码\共佳\A00通用窗体\U_YarnInfoSel.dfm - 1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.581,=D:\Dp10Repo\项目代码\阔和\B02基础纱线仓库\U_YarnRackList.pas - 1899-12-30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.172,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899-12-30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899-12-30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.311,D:\Dp10Repo\项目代码\阔禾\B02基础纱线仓库\U_YarnStkTotalList.pas=D:\Dp10Repo\项目代码\阔禾\B02基础纱线仓库\U_YarnStkList.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.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.581,=D:\Dp10Repo\项目代码\阔和\B02基础纱线仓库\U_YarnRackList.pas + 1899-12-30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas diff --git a/B02基础纱线仓库/YarnStk.identcache b/B02基础纱线仓库/YarnStk.identcache index aa88913..fe753ce 100644 Binary files a/B02基础纱线仓库/YarnStk.identcache and b/B02基础纱线仓库/YarnStk.identcache differ