diff --git a/A00通用窗体/U_SalesContractCPSel.dfm b/A00通用窗体/U_SalesContractCPSel.dfm index fb4a235..8074705 100644 --- a/A00通用窗体/U_SalesContractCPSel.dfm +++ b/A00通用窗体/U_SalesContractCPSel.dfm @@ -10,7 +10,6 @@ inherited frmSalesContractCPSel: TfrmSalesContractCPSel Font.Name = #23435#20307 Position = poScreenCenter OnClose = FormClose - ExplicitLeft = -689 ExplicitWidth = 1556 ExplicitHeight = 633 PixelsPerInch = 96 @@ -71,8 +70,7 @@ inherited frmSalesContractCPSel: TfrmSalesContractCPSel BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 - ExplicitLeft = 8 - ExplicitTop = 32 + ExplicitTop = 44 object Label1: TLabel Left = 18 Top = 15 @@ -234,7 +232,7 @@ inherited frmSalesContractCPSel: TfrmSalesContractCPSel DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 70 + Width = 75 end object cxGridDBColumn4: TcxGridDBColumn Caption = #25104#20998 diff --git a/A00通用窗体/U_SalesContractCPSel.pas b/A00通用窗体/U_SalesContractCPSel.pas index 314e365..cb1ef89 100644 --- a/A00通用窗体/U_SalesContractCPSel.pas +++ b/A00通用窗体/U_SalesContractCPSel.pas @@ -149,9 +149,16 @@ begin begin Close; sql.Clear; - sql.Add('select A.*,B.*,C.C_FinishLatitudeDensity,C.C_FinishLongitudeDensity from CP_Contract_Main A inner join CP_Contract_SUB B on A.ConMId=B.ConMId '); - sql.Add(' and isnull(A.status,''0'')=''9'''); - sql.Add(' left join Bs_Cloth_Info C on B.C_Code=C.C_Code '); + sql.Add('select A.*,B.* '); +// SQL.Add(' ,B.ConMId,B.ConSId,B.FromConNo,B.FromConMId,B.FromConSId '); +// SQL.Add(' ,B.SerialNo,B.BCIID,B.ConQty,B.ConUnit,B.ConPrice,B.ConTotalAmount'); +// SQL.Add(' ,B.JHDate,B.YDZ,B.ConSNote,B.CP_CODE,B.CP_NAME '); +// SQL.Add(' ,C.C_Code,C.C_Name,C.C_Spec,C.C_Composition,C.C_Color,C.C_ColorNo,C.C_Pattern '); +// SQL.Add(' ,C.C_StyleNo,C.C_FinishLongitudeDensity,C.C_FinishLatitudeDensity'); +// SQL.Add(' ,C.C_Width,C.C_GramWeight'); +// SQL.Add(' ,AttName=(select top 1 FileName from TP_File X where X.WBID = B.BCIID ORDER BY FillTime )'); + sql.Add(' from CP_Contract_Main A inner join CP_Contract_SUB B on (A.ConMId=B.ConMId and isnull(A.status,''0'')=''9'') '); +// sql.Add(' left join Bs_Cloth_Info C on B.BCIID=C.BCIID '); Open; end; // SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); diff --git a/A00通用窗体/U_TatClothInfoSel.dfm b/A00通用窗体/U_TatClothInfoSel.dfm index f8190e0..1fd4c96 100644 --- a/A00通用窗体/U_TatClothInfoSel.dfm +++ b/A00通用窗体/U_TatClothInfoSel.dfm @@ -10,7 +10,6 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel Font.Name = #23435#20307 Position = poScreenCenter OnClose = FormClose - ExplicitLeft = -634 ExplicitWidth = 1501 ExplicitHeight = 673 PixelsPerInch = 96 @@ -112,6 +111,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel Height = 508 Align = alClient TabOrder = 0 + ExplicitLeft = 6 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick Navigator.Buttons.CustomButtons = <> @@ -268,6 +268,14 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel HeaderAlignmentHorz = taCenter Width = 80 end + object Tv1BCIID: TcxGridDBColumn + Caption = #20135#21697#20027#38190 + DataBinding.FieldName = 'BCIID' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Width = 80 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/A00通用窗体/U_TatClothInfoSel.pas b/A00通用窗体/U_TatClothInfoSel.pas index 2e35070..eb22d15 100644 --- a/A00通用窗体/U_TatClothInfoSel.pas +++ b/A00通用窗体/U_TatClothInfoSel.pas @@ -83,6 +83,7 @@ type Tv1Column15: TcxGridDBColumn; Tv1C_FinishLatitudeDensity: TcxGridDBColumn; Tv1C_FinishLongitudeDensity: TcxGridDBColumn; + Tv1BCIID: TcxGridDBColumn; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); diff --git a/A00通用窗体/U_WBSpecSel.dfm b/A00通用窗体/U_WBSpecSel.dfm index 53172d1..92dd937 100644 --- a/A00通用窗体/U_WBSpecSel.dfm +++ b/A00通用窗体/U_WBSpecSel.dfm @@ -127,7 +127,6 @@ inherited frmWBSpecSel: TfrmWBSpecSel Height = 484 Align = alClient TabOrder = 2 - ExplicitTop = 80 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/A00通用窗体/U_WBSpecSel.pas b/A00通用窗体/U_WBSpecSel.pas index 57e865a..cfe052a 100644 --- a/A00通用窗体/U_WBSpecSel.pas +++ b/A00通用窗体/U_WBSpecSel.pas @@ -89,6 +89,7 @@ type { Private declarations } public FSTKName, FAuthority, FYType: string; + fWB_TYPE : string; { Public declarations } end; @@ -148,8 +149,8 @@ begin sql.Add(' from Tat_WB_Spec A'); SQL.Add(' where 1=1'); sql.Add(' and isnull(ISSizing,'''')='''' '); -// if Trim(FYType) <> '' then -// sql.Add(' where Y_Type=' + QuotedStr(FYType)); + if Trim(fWB_TYPE) <> '' then + sql.Add(' and WB_TYPE=' + QuotedStr(fWB_TYPE)); Open; end; SCreateCDS(ADOQueryMain, CDS_1); diff --git a/A00通用窗体/U_YarnInfoSel.dfm b/A00通用窗体/U_YarnInfoSel.dfm index 1a2fa68..e791efc 100644 --- a/A00通用窗体/U_YarnInfoSel.dfm +++ b/A00通用窗体/U_YarnInfoSel.dfm @@ -79,7 +79,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 - ExplicitTop = 36 object Label1: TLabel Left = 216 Top = 10 @@ -119,6 +118,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel Align = alClient PopupMenu = PM_1 TabOrder = 2 + ExplicitTop = 69 object Tv1: TcxGridDBTableView OnDblClick = TV1DblClick Navigator.Buttons.CustomButtons = <> @@ -144,7 +144,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsView.GroupByBox = False - object Tv1Column1: TcxGridDBColumn + object Tv1SSEL: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSEL' DataBinding.IsNullValueType = True @@ -153,14 +153,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel HeaderAlignmentHorz = taCenter Width = 46 end - object Tv1Column4: TcxGridDBColumn - Caption = #32534#21495 - DataBinding.FieldName = 'Y_Code' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 127 - end object v1SPName: TcxGridDBColumn Tag = 2 Caption = #21697#21517 @@ -170,40 +162,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel Options.Editing = False Width = 101 end - object v1Column18: TcxGridDBColumn - Caption = #37319#36141#21152#24037#21512#21516#21495 - DataBinding.FieldName = 'ConNo' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.ReadOnly = True - Visible = False - HeaderAlignmentHorz = taCenter - Options.Editing = False - VisibleForCustomization = False - Width = 106 - end - object v1Column15: TcxGridDBColumn - Tag = 2 - Caption = #21697#29260 - DataBinding.FieldName = 'SXPinPai' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Visible = False - HeaderAlignmentHorz = taCenter - Options.Editing = False - VisibleForCustomization = False - Width = 103 - end object v1QtyUnit: TcxGridDBColumn Tag = 2 Caption = #25104#20998 @@ -213,46 +171,14 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel Options.Editing = False Width = 96 end - object Tv1Column2: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'Y_Color' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 71 - end - object v1Column1: TcxGridDBColumn - Tag = 2 - Caption = #25209#21495 - DataBinding.FieldName = 'BatchNo' - DataBinding.IsNullValueType = True - Visible = False - HeaderAlignmentHorz = taCenter - Options.Editing = False - VisibleForCustomization = False - Width = 92 - end - object v1Column10: TcxGridDBColumn - Tag = 2 - Caption = #36816#36153 - DataBinding.FieldName = 'YunFei' - DataBinding.IsNullValueType = True - Visible = False - HeaderAlignmentHorz = taCenter - Options.Editing = False - VisibleForCustomization = False - Width = 68 - end - object v1Column3: TcxGridDBColumn - Tag = 2 + object Tv1Denier: TcxGridDBColumn Caption = #20998#29305'(Dtex)' DataBinding.FieldName = 'Denier' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 102 + Width = 80 end - object Tv1Column7: TcxGridDBColumn + object Tv1ZS: TcxGridDBColumn Caption = #25903#25968 DataBinding.FieldName = 'ZS' DataBinding.IsNullValueType = True @@ -260,14 +186,28 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel Options.Editing = False Width = 100 end - object Tv1Column5: TcxGridDBColumn + object Tv1FF: TcxGridDBColumn Caption = #32442#27861 DataBinding.FieldName = 'FF' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False Width = 80 end + object Tv1Y_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object Tv1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 103 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/A00通用窗体/U_YarnInfoSel.pas b/A00通用窗体/U_YarnInfoSel.pas index b93c7b3..b5b0550 100644 --- a/A00通用窗体/U_YarnInfoSel.pas +++ b/A00通用窗体/U_YarnInfoSel.pas @@ -33,13 +33,8 @@ type ImageList1: TImageList; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; - v1Column18: TcxGridDBColumn; - v1Column15: TcxGridDBColumn; v1SPName: TcxGridDBColumn; - v1Column1: TcxGridDBColumn; v1QtyUnit: TcxGridDBColumn; - v1Column10: TcxGridDBColumn; - v1Column3: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; ThreeColorBase: TcxStyleRepository; SHuangSe: TcxStyle; @@ -56,19 +51,20 @@ type handBlack: TcxStyle; cxBlue: TcxStyle; SHuangSeCu: TcxStyle; - Tv1Column1: TcxGridDBColumn; - Tv1Column2: TcxGridDBColumn; + Tv1SSEL: TcxGridDBColumn; + Tv1Y_Color: TcxGridDBColumn; PM_1: TPopupMenu; N1: TMenuItem; N2: TMenuItem; cxImageList_bar: TcxImageList; ToolButton2: TToolButton; - Tv1Column4: TcxGridDBColumn; Label2: TLabel; Y_Code: TcxTextEdit; - Tv1Column5: TcxGridDBColumn; ToolButton3: TToolButton; - Tv1Column7: TcxGridDBColumn; + Tv1ZS: TcxGridDBColumn; + Tv1Denier: TcxGridDBColumn; + Tv1FF: TcxGridDBColumn; + Tv1Note: TcxGridDBColumn; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); diff --git a/A01基础公司管理/Company.dproj.local b/A01基础公司管理/Company.dproj.local index 2fe6bdd..09c6e3f 100644 --- a/A01基础公司管理/Company.dproj.local +++ b/A01基础公司管理/Company.dproj.local @@ -2,43 +2,43 @@ 1899/12/30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.dfm - 1899/12/30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.pas + 1899/12/30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.pas + 1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas 1899/12/30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas - 1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm + 1899/12/30 00:00:00.000.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.pas 1899/12/30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899/12/30 00:00:00.000.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.pas - 1899/12/30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.pas - 1899/12/30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.pas + 1899/12/30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas + 1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas 1899/12/30 00:00:00.000.387,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_ZDYHelp.pas 1899/12/30 00:00:00.000.175,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899/12/30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.dfm 1899/12/30 00:00:00.000.692,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm 1899/12/30 00:00:00.000.829,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_EmployeeInPut.pas - 1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas - 1899/12/30 00:00:00.000.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.dfm 1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas= - 1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm - 1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas - 1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas - 1899/12/30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas + 1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm + 1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm 1899/12/30 00:00:00.000.069,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas - 1899/12/30 00:00:00.000.385,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.pas - 1899/12/30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas - 1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm 1899/12/30 00:00:00.000.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899/12/30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.dfm - 1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas - 1899/12/30 00:00:00.000.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.pas 1899/12/30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas + 1899/12/30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.dfm 1899/12/30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas= - 1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm + 1899/12/30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas + 1899/12/30 00:00:00.000.385,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas + 1899/12/30 00:00:00.000.213,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeList.dfm + 1899/12/30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.227,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXInPut.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_EmployeeInPut.pas + 1899/12/30 00:00:00.000.990,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_CustomerInput.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A01基础公司管理\U_BankInput.dfm + 1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm + 1899/12/30 00:00:00.000.086,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.dfm + 1899/12/30 00:00:00.000.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.pas + 1899/12/30 00:00:00.000.762,D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_LXDept.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A01基础公司管理\U_SYDept.pas 2025/09/16 11:02:56.000.629,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A01基础公司管理\U_SupplierImport.pas diff --git a/A01基础公司管理/Company.identcache b/A01基础公司管理/Company.identcache index 8dd4a52..11a8dc4 100644 Binary files a/A01基础公司管理/Company.identcache and b/A01基础公司管理/Company.identcache differ diff --git a/A02基础产品管理/ClothInfo.dproj.local b/A02基础产品管理/ClothInfo.dproj.local index bb66a3f..c5fa7fa 100644 --- a/A02基础产品管理/ClothInfo.dproj.local +++ b/A02基础产品管理/ClothInfo.dproj.local @@ -1,79 +1,79 @@  - 1899/12/30 00:00:00.000.074,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas - 1899/12/30 00:00:00.000.208,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\JDAESExtend.pas 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.dfm - 1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.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.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas - 1899/12/30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas - 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm - 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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj - 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.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm 1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.208,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\JDAESExtend.pas + 1899/12/30 00:00:00.000.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.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.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas + 1899/12/30 00:00:00.000.074,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas 1899/12/30 00:00:00.000.536,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899/12/30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas + 1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.pas + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.pas + 1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.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.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.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas 1899/12/30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas + 1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas 1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas 1899/12/30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas 1899/12/30 00:00:00.000.346,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas 1899/12/30 00:00:00.000.441,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfo.pas 1899/12/30 00:00:00.000.337,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.dfm 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.pas - 1899/12/30 00:00:00.000.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.pas - 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899/12/30 00:00:00.000.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.155,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\ElAES.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.pas + 1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm 1899/12/30 00:00:00.000.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.pas + 1899/12/30 00:00:00.000.155,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\ElAES.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas - 1899/12/30 00:00:00.000.944,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\U_HttpFun.pas - 1899/12/30 00:00:00.000.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas - 1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas - 1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.pas - 1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas - 1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas - 1899/12/30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm + 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj + 1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas + 1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.dfm + 1899/12/30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas + 1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.pas + 1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.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.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas 1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas + 1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas 1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm - 1899/12/30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.pas - 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.082,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.082,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas + 1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.dfm + 1899/12/30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas + 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas + 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.pas + 1899/12/30 00:00:00.000.944,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\U_HttpFun.pas + 1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas= + 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm + 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm 2025/08/28 09:29:23.000.693,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas 2025/09/24 11:07:38.000.652,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_log.pas 2025/09/24 12:20:14.000.487,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_LogInput.pas diff --git a/B01基础合同管理/Contract.dproj.local b/B01基础合同管理/Contract.dproj.local index 252d762..83e6426 100644 --- a/B01基础合同管理/Contract.dproj.local +++ b/B01基础合同管理/Contract.dproj.local @@ -1,87 +1,87 @@  - 1899/12/30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas= 1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.422,=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.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.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas= 1899/12/30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.pas 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899/12/30 00:00:00.000.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.pas 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas + 1899/12/30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas= 1899/12/30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas - 1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas - 1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm + 1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas + 1899/12/30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899/12/30 00:00:00.000.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas= - 1899/12/30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas= - 1899/12/30 00:00:00.000.441,=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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm 1899/12/30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas 1899/12/30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas= - 1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas - 1899/12/30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas - 1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas - 1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm + 1899/12/30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas + 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas 1899/12/30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas 1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas 1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas + 1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899/12/30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas + 1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm 1899/12/30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas - 1899/12/30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.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.709,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.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas + 1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.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.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899/12/30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= + 1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas + 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas + 1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899/12/30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\U_finishSalesConInput.pas 1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= - 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm - 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.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm - 1899/12/30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas= - 1899/12/30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas + 1899/12/30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= 1899/12/30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas= + 1899/12/30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm - 1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm + 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.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas - 1899/12/30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas= - 1899/12/30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas + 1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas + 1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm 1899/12/30 00:00:00.000.284,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractCPSel.pas 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm + 1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm - 1899/12/30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\U_finishSalesConInput.pas + 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm + 1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm + 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas= + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas= 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899/12/30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas= - 1899/12/30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas diff --git a/B01基础合同管理/Contract.identcache b/B01基础合同管理/Contract.identcache index a982143..772d6b1 100644 Binary files a/B01基础合同管理/Contract.identcache and b/B01基础合同管理/Contract.identcache differ diff --git a/B01基础合同管理/U_SalesConInPut.dfm b/B01基础合同管理/U_SalesConInPut.dfm index 2914dd0..073f337 100644 --- a/B01基础合同管理/U_SalesConInPut.dfm +++ b/B01基础合同管理/U_SalesConInPut.dfm @@ -10,7 +10,6 @@ inherited frmSalesConInPut: TfrmSalesConInPut OldCreateOrder = True Position = poScreenCenter WindowState = wsMaximized - ExplicitLeft = -251 ExplicitWidth = 1522 ExplicitHeight = 787 PixelsPerInch = 96 @@ -32,6 +31,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut ParentColor = False ShowCaptions = True TabOrder = 0 + ExplicitTop = 1 object TBSave: TToolButton Left = 0 Top = 0 @@ -87,7 +87,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut Caption = #19994#21153#21592#65306 end object Label10: TLabel - Left = 40 + Left = 38 Top = 10 Width = 64 Height = 21 @@ -101,7 +101,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut Caption = #23458#25143#65306 end object Label20: TLabel - Left = 40 + Left = 38 Top = 45 Width = 80 Height = 21 @@ -130,7 +130,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut Caption = #20013#38388#21830#65306 end object Label27: TLabel - Left = 40 + Left = 38 Top = 225 Width = 80 Height = 21 @@ -172,21 +172,21 @@ inherited frmSalesConInPut: TfrmSalesConInPut Caption = #20323#37329#27604#20363#65306 end object Label11: TLabel - Left = 40 + Left = 38 Top = 190 Width = 80 Height = 21 Caption = #20184#27454#26041#24335#65306 end object Label12: TLabel - Left = 40 + Left = 38 Top = 154 Width = 80 Height = 21 Caption = #36816#36755#26041#24335#65306 end object Label4: TLabel - Left = 40 + Left = 38 Top = 302 Width = 80 Height = 21 @@ -200,7 +200,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut Caption = #20215#26684#26415#35821#65306 end object Label8: TLabel - Left = 40 + Left = 38 Top = 339 Width = 80 Height = 21 @@ -231,7 +231,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut Visible = False end object Label23: TLabel - Left = 40 + Left = 38 Top = 118 Width = 80 Height = 21 @@ -268,7 +268,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut Caption = #24067#21305#31867#22411#65306 end object Label18: TLabel - Left = 40 + Left = 38 Top = 81 Width = 80 Height = 21 @@ -303,7 +303,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut Caption = #21345#21495#65306 end object Label31: TLabel - Left = 44 + Left = 42 Top = 264 Width = 80 Height = 21 @@ -332,7 +332,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object ConNo: TcxTextEdit Tag = 2 - Left = 114 + Left = 112 Top = 7 TabOrder = 0 Text = #33258#21160#29983#25104 @@ -449,7 +449,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object PackNote: TcxButtonEdit Tag = 2 - Left = 114 + Left = 112 Top = 333 Hint = 'PackNote/'#21253#35013#35201#27714 Properties.Buttons = < @@ -465,7 +465,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object Sellname: TcxButtonEdit Tag = 2 - Left = 114 + Left = 112 Top = 42 Properties.Buttons = < item @@ -497,7 +497,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object ShipMent: TcxButtonEdit Tag = 2 - Left = 114 + Left = 112 Top = 148 Hint = 'ShipMent/'#36816#36755#26041#24335 Properties.Buttons = < @@ -545,7 +545,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object Payment: TcxButtonEdit Tag = 2 - Left = 114 + Left = 112 Top = 184 Hint = 'Payment/'#20184#27454#26041#24335 Properties.Buttons = < @@ -594,7 +594,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object ShippingSample: TcxButtonEdit Tag = 2 - Left = 114 + Left = 112 Top = 296 Hint = 'ShippingSample/'#33337#26679#35201#27714 Properties.Buttons = < @@ -627,7 +627,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object ConType: TcxComboBox Tag = 2 - Left = 114 + Left = 112 Top = 112 Properties.DropDownListStyle = lsEditFixedList Properties.Items.Strings = ( @@ -670,7 +670,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object IsTax: TcxComboBox Tag = 2 - Left = 114 + Left = 112 Top = 221 Properties.Items.Strings = ( #26159 @@ -693,7 +693,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object GFDZ: TcxTextEdit Tag = 2 - Left = 114 + Left = 112 Top = 77 TabOrder = 29 Width = 489 @@ -738,7 +738,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut end object YHDZ: TcxTextEdit Tag = 2 - Left = 114 + Left = 112 Top = 261 TabOrder = 34 OnKeyPress = ExchangeRateKeyPress @@ -801,6 +801,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut ParentFont = False ShowCaptions = True TabOrder = 2 + ExplicitTop = 407 object ToolButton4: TToolButton Left = 0 Top = 0 @@ -843,6 +844,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut BorderStyle = cxcbsNone PopupMenu = pm_sub TabOrder = 3 + ExplicitTop = 437 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -921,6 +923,14 @@ inherited frmSalesConInPut: TfrmSalesConInPut HeaderAlignmentHorz = taCenter Width = 79 end + object Tv1BCIID: TcxGridDBColumn + Caption = #20135#21697#20027#38190 + DataBinding.FieldName = 'BCIID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end object v1Column4: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' @@ -1146,7 +1156,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut Properties.DecimalPlaces = 0 Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter - Width = 70 + Width = 91 end object Tv1Column12: TcxGridDBColumn Caption = #25237#22383#31995#25968 diff --git a/B01基础合同管理/U_SalesConInPut.pas b/B01基础合同管理/U_SalesConInPut.pas index 3da3f12..5c1a1b5 100644 --- a/B01基础合同管理/U_SalesConInPut.pas +++ b/B01基础合同管理/U_SalesConInPut.pas @@ -149,6 +149,7 @@ type Label35: TLabel; InspScore: TcxTextEdit; InspStandard: TcxButtonEdit; + Tv1BCIID: TcxGridDBColumn; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -386,7 +387,6 @@ end; procedure TfrmSalesConInPut.TBCloseClick(Sender: TObject); begin - Close; end; @@ -400,10 +400,19 @@ begin begin Close; SQL.Clear; - sql.Add(' select * from BS_Contract_Sub '); - sql.Add('where ConMId=''' + Trim(FConMId) + ''''); + sql.Add(' select A.ConMId,A.ConSId,A.FROMCPMID,A.FROMCPSID '); + sql.Add(' ,A.SerialNo,A.BCIID,A.ConQty,A.ConUnit,A.ConPrice,A.ConTotalAmount '); + SQL.Add(' ,A.TaxRate,A.Tax,A.TaxInclude,A.JHDate,A.YDZ,A.ConSNote,A.CP_CODE,A.CP_NAME '); + sql.add(' ,A.CP_QTY,A.CP_TPXS '); + SQL.Add(' ,B.C_Code,B.C_Name,B.C_Spec,B.C_Composition,B.C_Color,B.C_ColorNo,B.C_Pattern '); + SQL.Add(' ,B.C_StyleNo,B.C_FinishLongitudeDensity,B.C_FinishLatitudeDensity'); + SQL.Add(' ,B.C_Width,B.C_GramWeight'); + SQL.Add(' ,AttName=(select top 1 FileName from TP_File X where X.WBID = A.BCIID ORDER BY FillTime )'); + SQL.Add(' from BS_Contract_Sub A'); + SQL.Add(' left join BS_Cloth_info B on A.BCIID = B.BCIID '); + sql.Add(' where A.ConMId=''' + Trim(FConMId) + ''''); // sql.Add(' and ConSID = ''CS251011001'' '); - sql.Add(' order by SerialNo '); + sql.Add(' order by A.SerialNo '); Open; end; SCreateCDS(ADOTemp, Order_Sub); @@ -425,10 +434,19 @@ begin begin Close; SQL.Clear; - sql.Add(' select * from BS_Contract_Sub '); - sql.Add('where ConMId=''' + Trim(FConMId) + ''''); + sql.Add(' select A.ConMId,A.ConSId,A.FROMCPMID,A.FROMCPSID '); + sql.Add(' ,A.SerialNo,A.BCIID,A.ConQty,A.ConUnit,A.ConPrice,A.ConTotalAmount '); + SQL.Add(' ,A.TaxRate,A.Tax,A.TaxInclude,A.JHDate,A.YDZ,A.ConSNote,A.CP_CODE,A.CP_NAME '); + sql.add(' ,A.CP_QTY,A.CP_TPXS '); + SQL.Add(' ,B.C_Code,B.C_Name,B.C_Spec,B.C_Composition,B.C_Color,B.C_ColorNo,B.C_Pattern '); + SQL.Add(' ,B.C_StyleNo,B.C_FinishLongitudeDensity,B.C_FinishLatitudeDensity'); + SQL.Add(' ,B.C_Width,B.C_GramWeight'); + SQL.Add(' ,AttName=(select top 1 FileName from TP_File X where X.WBID = A.BCIID ORDER BY FillTime )'); + SQL.Add(' from BS_Contract_Sub A'); + SQL.Add(' left join BS_Cloth_info B on A.BCIID = B.BCIID '); + sql.Add(' where A.ConMId=''' + Trim(FConMId) + ''''); // sql.Add(' and ConSID = ''CS251011001'' '); - sql.Add(' order by SerialNo '); + sql.Add(' order by A.SerialNo '); Open; end; SCreateCDS(ADOCmd, Order_Sub); @@ -1021,7 +1039,7 @@ begin FieldByName('SSEL').Value := FALSE; FieldByName('SerialNo').Value := i; FieldByName('ConSId').Value := maxno; - FieldByName('C_Color').Value := ''; +// FieldByName('C_Color').Value := ''; FieldByName('ConQty').Value := null; FieldByName('ConUnit').Value := 'M'; Post; @@ -1112,28 +1130,26 @@ begin begin append; - Order_Sub.fieldbyname('C_Code').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').asstring; - Order_Sub.fieldbyname('C_Name').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').asstring; + Order_Sub.fieldbyname('BCIID').Value := frmTatClothInfoSel.CDS_1.fieldbyname('BCIID').asstring; + Order_Sub.fieldbyname('C_Code').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_Code').Value; + Order_Sub.fieldbyname('C_Name').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_Code').Value; + Order_Sub.fieldbyname('C_Spec').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_Spec').Value; + Order_Sub.fieldbyname('C_Composition').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_Composition').Value; + Order_Sub.fieldbyname('C_Color').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_Color').Value; + Order_Sub.fieldbyname('C_ColorNo').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_ColorNo').Value; + Order_Sub.fieldbyname('C_Pattern').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_Pattern').Value; + Order_Sub.fieldbyname('C_StyleNo').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_StyleNo').Value; + Order_Sub.fieldbyname('C_FinishLongitudeDensity').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_FinishLongitudeDensity').Value; + Order_Sub.fieldbyname('C_FinishLatitudeDensity').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_FinishLatitudeDensity').Value; + Order_Sub.fieldbyname('C_Width').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_Width').Value; + Order_Sub.fieldbyname('C_GramWeight').Value := frmTatClothInfoSel.CDS_1.FieldByName('C_GramWeight').Value; - Order_Sub.fieldbyname('C_Spec').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Spec').asstring; - Order_Sub.fieldbyname('C_Composition').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Composition').asstring; - - Order_Sub.fieldbyname('C_Color').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Color').asstring; - Order_Sub.fieldbyname('C_ColorNo').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_ColorNo').asstring; - - Order_Sub.fieldbyname('C_Pattern').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Pattern').asstring; - Order_Sub.fieldbyname('C_StyleNo').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_StyleNo').asstring; - - Order_Sub.fieldbyname('C_Width').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Width').asstring; - Order_Sub.fieldbyname('C_GramWeight').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_GramWeight').asstring; - Order_Sub.fieldbyname('BBNO').Value := frmTatClothInfoSel.CDS_1.fieldbyname('BBNO').asstring; - - FieldByName('SSEL').Value := FALSE; - FieldByName('SerialNo').Value := i; - FieldByName('ConSId').Value := maxno; - FieldByName('ConQty').Value := null; - FieldByName('ConTotalAmount').Value := null; - FieldByName('ConUnit').Value := 'M'; + Order_Sub.FieldByName('SSEL').Value := FALSE; + Order_Sub.FieldByName('SerialNo').Value := i; + Order_Sub.FieldByName('ConSId').Value := maxno; + Order_Sub.FieldByName('ConQty').Value := null; + Order_Sub.FieldByName('ConTotalAmount').Value := null; + Order_Sub.FieldByName('ConUnit').Value := 'M'; end; end; Next; @@ -1186,42 +1202,72 @@ begin begin append; +// Order_Sub.fieldbyname('BCIID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('BCIID').asstring; +// Order_Sub.fieldbyname('ConQty').Value := frmSalesContractCPSel.CDS_1.fieldbyname('ConQty').asstring; +// Order_Sub.fieldbyname('ConPrice').Value := frmSalesContractCPSel.CDS_1.fieldbyname('ConPrice').asstring; +// Order_Sub.fieldbyname('ConTotalAmount').Value := frmSalesContractCPSel.CDS_1.fieldbyname('ConTotalAmount').asstring; +// Order_Sub.fieldbyname('TaxRate').Value := frmSalesContractCPSel.CDS_1.fieldbyname('TaxRate').asstring; +// Order_Sub.fieldbyname('Tax').Value := frmSalesContractCPSel.CDS_1.fieldbyname('Tax').asstring; +// Order_Sub.fieldbyname('TaxInclude').Value := frmSalesContractCPSel.CDS_1.fieldbyname('TaxInclude').asstring; +// Order_Sub.fieldbyname('JHDate').Value := frmSalesContractCPSel.CDS_1.fieldbyname('JHDate').asstring; + Order_Sub.fieldbyname('YDZ').Value := frmSalesContractCPSel.CDS_1.fieldbyname('YDZ').asstring; +// Order_Sub.fieldbyname('ConSNote').Value := frmSalesContractCPSel.CDS_1.fieldbyname('ConSNote').asstring; Order_Sub.fieldbyname('CP_Code').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Code').asstring; Order_Sub.fieldbyname('CP_Name').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Name').asstring; Order_Sub.fieldbyname('FROMCPSID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CONSID').asstring; Order_Sub.fieldbyname('FROMCPMID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CONMID').asstring; +// Order_Sub.FieldByName('CP_QTY').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CP_QTY').ASFLOAT; +// Order_Sub.FieldByName('CP_TPXS').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CP_TPXS').ASFLOAT; - Order_Sub.fieldbyname('C_Width').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Width').asstring; - Order_Sub.fieldbyname('C_GramWeight').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_GramWeight').asstring; - Order_Sub.fieldbyname('C_FinishLongitudeDensity').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_FinishLongitudeDensity').asstring; - Order_Sub.fieldbyname('C_FinishLatitudeDensity').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_FinishLatitudeDensity').asstring; Order_Sub.fieldbyname('ConUnit').Value := 'M'; - FieldByName('SSEL').Value := FALSE; - FieldByName('SerialNo').Value := i; - FieldByName('ConSId').Value := maxno; - FieldByName('CP_QTY').Value := frmSalesContractCPSel.CDS_1.fieldbyname('ConQty').ASFLOAT; + Order_Sub.FieldByName('SSEL').Value := FALSE; + Order_Sub.FieldByName('SerialNo').Value := i; + Order_Sub.FieldByName('ConSId').Value := maxno; + end; + with ADOQueryCmd do begin close; SQL.Clear; - SQL.Add(' select top(1) * from BS_Contract_Sub where CP_Code = ' + QuotedStr(Trim(Order_Sub.fieldbyname('CP_Code').AsString))); -// ShowMessage(sql.Text); + sql.Add(' select top(1) A.ConMId,A.ConSId,A.FROMCPMID,A.FROMCPSID '); + sql.Add(' ,A.SerialNo,A.BCIID,A.ConQty,A.ConUnit,A.ConPrice,A.ConTotalAmount '); + SQL.Add(' ,A.TaxRate,A.Tax,A.TaxInclude,A.JHDate,A.YDZ,A.ConSNote,A.CP_CODE,A.CP_NAME '); + sql.add(' ,A.CP_QTY,A.CP_TPXS '); + SQL.Add(' ,B.C_Code,B.C_Name,B.C_Spec,B.C_Composition,B.C_Color,B.C_ColorNo,B.C_Pattern '); + SQL.Add(' ,B.C_StyleNo,B.C_FinishLongitudeDensity,B.C_FinishLatitudeDensity'); + SQL.Add(' ,B.C_Width,B.C_GramWeight'); + SQL.Add(' ,AttName=(select top 1 FileName from TP_File X where X.WBID = A.BCIID ORDER BY FillTime )'); + SQL.Add(' from BS_Contract_Sub A'); + SQL.Add(' left join BS_Cloth_info B on A.BCIID = B.BCIID '); + SQL.Add(' where CP_Code = ' + QuotedStr(Trim(frmSalesContractCPSel.CDS_1.fieldbyname('C_Code').asstring))); + ShowMessage(sql.Text); Open; end; + + Order_Sub.fieldbyname('ConQty').Value := ADOQueryCmd.fieldbyname('ConQty').Value; + Order_Sub.fieldbyname('ConPrice').Value := ADOQueryCmd.fieldbyname('ConPrice').Value; + Order_Sub.fieldbyname('ConTotalAmount').Value := ADOQueryCmd.fieldbyname('ConTotalAmount').Value; + Order_Sub.fieldbyname('TaxRate').Value := ADOQueryCmd.fieldbyname('TaxRate').Value; + Order_Sub.fieldbyname('Tax').Value := ADOQueryCmd.fieldbyname('Tax').Value; + Order_Sub.fieldbyname('TaxInclude').Value := ADOQueryCmd.fieldbyname('TaxInclude').Value; + Order_Sub.fieldbyname('CP_QTY').Value := ADOQueryCmd.fieldbyname('CP_QTY').Value; + Order_Sub.fieldbyname('CP_TPXS').Value := ADOQueryCmd.fieldbyname('CP_TPXS').Value; + Order_Sub.fieldbyname('C_Code').Value := ADOQueryCmd.FieldByName('C_Code').Value; - Order_Sub.fieldbyname('C_Name').Value := ADOQueryCmd.FieldByName('C_Code').Value; + Order_Sub.fieldbyname('C_Name').Value := ADOQueryCmd.FieldByName('C_Name').Value; Order_Sub.fieldbyname('C_Spec').Value := ADOQueryCmd.FieldByName('C_Spec').Value; Order_Sub.fieldbyname('C_Composition').Value := ADOQueryCmd.FieldByName('C_Composition').Value; Order_Sub.fieldbyname('C_Color').Value := ADOQueryCmd.FieldByName('C_Color').Value; Order_Sub.fieldbyname('C_ColorNo').Value := ADOQueryCmd.FieldByName('C_ColorNo').Value; Order_Sub.fieldbyname('C_Pattern').Value := ADOQueryCmd.FieldByName('C_Pattern').Value; Order_Sub.fieldbyname('C_StyleNo').Value := ADOQueryCmd.FieldByName('C_StyleNo').Value; - -// Order_Sub.fieldbyname('C_FinishLatitudeDensity').Value := ADOQueryCmd.FieldByName('C_FinishLatitudeDensity').Value; -// Order_Sub.fieldbyname('C_FinishLongitudeDensity').Value := ADOQueryCmd.FieldByName('C_FinishLongitudeDensity').Value; - + Order_Sub.fieldbyname('C_FinishLongitudeDensity').Value := ADOQueryCmd.FieldByName('C_FinishLongitudeDensity').Value; + Order_Sub.fieldbyname('C_FinishLatitudeDensity').Value := ADOQueryCmd.FieldByName('C_FinishLatitudeDensity').Value; + Order_Sub.fieldbyname('C_Width').Value := ADOQueryCmd.FieldByName('C_Width').Value; + Order_Sub.fieldbyname('C_GramWeight').Value := ADOQueryCmd.FieldByName('C_GramWeight').Value; + Order_Sub.fieldbyname('AttName').Value := ADOQueryCmd.FieldByName('AttName').Value; end; Next; i := i + 1; @@ -1497,6 +1543,7 @@ begin if showmodal = 1 then begin Order_Sub.Edit; + Order_Sub.fieldbyname('BCIID').Value := frmTatClothInfoSel.CDS_1.fieldbyname('BCIID').asstring; Order_Sub.fieldbyname('C_Code').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').asstring; Order_Sub.fieldbyname('C_Name').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').asstring; diff --git a/B01基础合同管理/U_SalesContractList.pas b/B01基础合同管理/U_SalesContractList.pas index 4fa3c66..9e25563 100644 --- a/B01基础合同管理/U_SalesContractList.pas +++ b/B01基础合同管理/U_SalesContractList.pas @@ -236,8 +236,17 @@ begin begin close; sql.Clear; - sql.Add('select * from BS_Contract_sub A '); - sql.Add('where ConMID =' + quotedstr((CDS_1.fieldbyname('ConMID').AsString))); + sql.Add(' select A.SerialNo,A.BCIID,A.ConQty,A.ConUnit,A.ConPrice,A.ConTotalAmount '); + SQL.Add(' ,A.TaxRate,A.Tax,A.TaxInclude,A.JHDate,A.YDZ,A.ConSNote,A.CP_CODE,A.CP_NAME '); + sql.add(' ,A.CP_QTY,A.CP_TPXS '); + SQL.Add(' ,B.C_Code,B.C_Name,B.C_Spec,B.C_Composition,B.C_Color,B.C_ColorNo,B.C_Pattern '); + SQL.Add(' ,B.C_StyleNo,B.C_FinishLongitudeDensity,B.C_FinishLatitudeDensity'); + SQL.Add(' ,B.C_Width,B.C_GramWeight'); + SQL.Add(' ,AttName=(select top 1 FileName from TP_File X where X.WBID = A.BCIID ORDER BY FillTime )'); + SQL.Add(' from BS_Contract_Sub A'); + SQL.Add(' left join BS_Cloth_info B on A.BCIID = B.BCIID '); + sql.Add('where A.ConMID =' + quotedstr((CDS_1.fieldbyname('ConMID').AsString))); + sql.Add(' order by A.SerialNo '); open; end; SCreateCDS(ADOQueryTemp, CDS_2); diff --git a/B01基础合同管理/U_TatSCTLLIST.dfm b/B01基础合同管理/U_TatSCTLLIST.dfm index 8d6927d..1ee72cb 100644 --- a/B01基础合同管理/U_TatSCTLLIST.dfm +++ b/B01基础合同管理/U_TatSCTLLIST.dfm @@ -6,7 +6,8 @@ inherited frmSCTLLIST: TfrmSCTLLIST ClientWidth = 1540 Font.Height = -16 Position = poScreenCenter - ExplicitLeft = -607 + ExplicitLeft = -522 + ExplicitTop = -63 ExplicitWidth = 1556 ExplicitHeight = 688 PixelsPerInch = 96 @@ -155,7 +156,6 @@ inherited frmSCTLLIST: TfrmSCTLLIST Align = alClient PopupMenu = PopupMenu1 TabOrder = 4 - ExplicitTop = 115 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -272,7 +272,7 @@ inherited frmSCTLLIST: TfrmSCTLLIST Width = 107 end object Tv1JSQty: TcxGridDBColumn - Caption = #32463#32433#24635#37325#37327 + Caption = #32463#32433#24635#29992#37327#21512#35745 DataBinding.FieldName = 'JSQty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter @@ -280,7 +280,7 @@ inherited frmSCTLLIST: TfrmSCTLLIST Width = 137 end object Tv1WSQty: TcxGridDBColumn - Caption = #32428#32433#24635#37325#37327 + Caption = #32428#32433#24635#29992#37327#21512#35745 DataBinding.FieldName = 'WSQty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter @@ -376,7 +376,6 @@ inherited frmSCTLLIST: TfrmSCTLLIST Height = 181 Align = alClient TabOrder = 1 - ExplicitLeft = -2 object Tv3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/B01基础合同管理/U_TatSCTLLIST.pas b/B01基础合同管理/U_TatSCTLLIST.pas index 623042e..b2c9e0c 100644 --- a/B01基础合同管理/U_TatSCTLLIST.pas +++ b/B01基础合同管理/U_TatSCTLLIST.pas @@ -179,9 +179,9 @@ begin Close; sql.Clear; sql.Add('SELECT *'); - sql.Add(',JSQty = ( select ISNULL(SUM(X.MeterQty), 0) * A.zsqty/100 from BS_Cloth_Yarn X inner join Bs_Cloth_Info Y on Y.BCIID=X.BCIID '); + sql.Add(',JSQty = ( select ISNULL(SUM(X.MeterQty), 0) * A.Conqty/100 from BS_Cloth_Yarn X inner join Bs_Cloth_Info Y on Y.BCIID=X.BCIID '); sql.Add(' where X.YRType=''˿'' and Y.C_Code=A.C_Code group by X.BCIID )'); - sql.Add(',WSQty = ( select ISNULL(SUM(X.MeterQty), 0) * A.zsqty/100 from BS_Cloth_Yarn X inner join Bs_Cloth_Info Y on Y.BCIID=X.BCIID '); + sql.Add(',WSQty = ( select ISNULL(SUM(X.MeterQty), 0) * A.Conqty/100 from BS_Cloth_Yarn X inner join Bs_Cloth_Info Y on Y.BCIID=X.BCIID '); sql.Add(' where X.YRType=''γ˿'' and Y.C_Code=A.C_Code group by X.BCIID )'); sql.Add(' FROM V_CON_TL A'); SQL.Add('WHERE ConDate>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date))); @@ -199,19 +199,19 @@ end; procedure TfrmSCTLLIST.InitClothYarn(MC_Code: string); var - zsqtyValue: string; + ConqtyValue: string; begin - zsqtyValue := CDS_1.FieldByName('zsqty').AsString; - if zsqtyValue = '' then - zsqtyValue := '0'; + ConqtyValue := CDS_1.FieldByName('Conqty').AsString; + if ConqtyValue = '' then + ConqtyValue := '0'; with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) '); - SQL.Add(' ,allYarn=A.MeterQty*ISNULL(' + zsqtyValue + ',0)/100'); + SQL.Add(' ,allYarn=A.MeterQty*ISNULL(' + ConqtyValue + ',0)/100'); sql.Add(' from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID'); sql.Add(' where A.YRType=''˿'' and B.C_Code=''' + Trim(MC_Code) + ''''); Open; @@ -225,7 +225,7 @@ begin Close; sql.Clear; sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30))'); - SQL.Add(' ,allYarn=A.MeterQty*ISNULL(' + zsqtyValue + ',0)/100'); + SQL.Add(' ,allYarn=A.MeterQty*ISNULL(' + ConqtyValue + ',0)/100'); sql.Add(' from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID'); sql.Add(' where A.YRType=''γ˿'' and B.C_Code=''' + Trim(MC_Code) + ''''); // ShowMessage(SQL.Text); diff --git a/B01基础合同管理/U_finishSalesContractList.dfm b/B01基础合同管理/U_finishSalesContractList.dfm index be0ea08..9c68b9f 100644 --- a/B01基础合同管理/U_finishSalesContractList.dfm +++ b/B01基础合同管理/U_finishSalesContractList.dfm @@ -7,7 +7,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList Font.Height = -16 FormStyle = fsMDIChild Visible = True - ExplicitLeft = -550 + ExplicitLeft = -689 ExplicitWidth = 1556 ExplicitHeight = 810 PixelsPerInch = 96 @@ -203,8 +203,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList Align = alClient PopupMenu = pm1 TabOrder = 3 - ExplicitLeft = -1 - ExplicitTop = 152 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -556,8 +554,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList Align = alLeft BorderStyle = cxcbsNone TabOrder = 0 - ExplicitLeft = 0 - ExplicitTop = -4 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -753,6 +749,8 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList Height = 268 Align = alClient TabOrder = 1 + ExplicitLeft = 906 + ExplicitTop = -4 object Tv3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/B01基础合同管理/U_finishSalesContractList.pas b/B01基础合同管理/U_finishSalesContractList.pas index bcd8c6d..1ff0ff5 100644 --- a/B01基础合同管理/U_finishSalesContractList.pas +++ b/B01基础合同管理/U_finishSalesContractList.pas @@ -281,6 +281,23 @@ begin TBAdd.Enabled := true; TBPrint.Enabled := True; panel2.Visible := True; + + Tv1C_Code.Visible := False; + Tv1C_Name.Visible := False; + Tv1C_Composition.Visible := False; + Tv1C_Spec.Visible := False; + Tv1density.Visible := False; + Tv1C_Width.Visible := False; + Tv1C_WidthUnit.Visible := False; + Tv1ConQty.Visible := False; + Tv1ConUnit.Visible := False; + Tv1ShaZhi.Visible := False; + Tv1C_Color.Visible := False; + Tv1SampleTime.Visible := False; + Tv1ConPrice.Visible := False; + Tv1Currency.Visible := False; + Tv1ConTotalAmount.Visible := False; + case cxTabControl1.TabIndex of 0: begin @@ -314,6 +331,24 @@ begin TBAdd.Enabled := true; panel2.Visible := True; TBPrint.Enabled := True; + + + Tv1C_Code.Visible := False; + Tv1C_Name.Visible := False; + Tv1C_Composition.Visible := False; + Tv1C_Spec.Visible := False; + Tv1density.Visible := False; + Tv1C_Width.Visible := False; + Tv1C_WidthUnit.Visible := False; + Tv1ConQty.Visible := False; + Tv1ConUnit.Visible := False; + Tv1ShaZhi.Visible := False; + Tv1C_Color.Visible := False; + Tv1SampleTime.Visible := False; + Tv1ConPrice.Visible := False; + Tv1Currency.Visible := False; + Tv1ConTotalAmount.Visible := False; + case cxTabControl1.TabIndex of 0: begin diff --git a/B02基础纱线仓库/U_YarnInList.dfm b/B02基础纱线仓库/U_YarnInList.dfm index d8cb858..2113a45 100644 --- a/B02基础纱线仓库/U_YarnInList.dfm +++ b/B02基础纱线仓库/U_YarnInList.dfm @@ -158,7 +158,6 @@ inherited frmYarnInList: TfrmYarnInList Color = clWhite ParentBackground = False TabOrder = 3 - ExplicitTop = 36 object Label3: TLabel Left = 248 Top = 46 @@ -341,7 +340,7 @@ inherited frmYarnInList: TfrmYarnInList ActivePage = TabSheet1 Align = alClient TabOrder = 4 - ExplicitTop = 143 + ExplicitTop = 154 object TabSheet1: TTabSheet Caption = #27491#24120#25968#25454 object cxGrid1: TcxGrid @@ -352,9 +351,6 @@ inherited frmYarnInList: TfrmYarnInList Align = alClient PopupMenu = PopupMenu1 TabOrder = 0 - ExplicitTop = 506 - ExplicitWidth = 1540 - ExplicitHeight = 136 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -672,9 +668,6 @@ inherited frmYarnInList: TfrmYarnInList Align = alClient PopupMenu = PopupMenu1 TabOrder = 0 - ExplicitTop = 506 - ExplicitWidth = 1540 - ExplicitHeight = 136 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/B02基础纱线仓库/U_YarnInfoInPut.dfm b/B02基础纱线仓库/U_YarnInfoInPut.dfm index ff72252..7a046e3 100644 --- a/B02基础纱线仓库/U_YarnInfoInPut.dfm +++ b/B02基础纱线仓库/U_YarnInfoInPut.dfm @@ -33,7 +33,6 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut ParentFont = False ShowCaptions = True TabOrder = 0 - ExplicitTop = -6 object TBSave: TToolButton Left = 0 Top = 0 diff --git a/B02基础纱线仓库/U_YarnInfoInPut.pas b/B02基础纱线仓库/U_YarnInfoInPut.pas index 542dd21..4c2b891 100644 --- a/B02基础纱线仓库/U_YarnInfoInPut.pas +++ b/B02基础纱线仓库/U_YarnInfoInPut.pas @@ -87,6 +87,7 @@ type function SaveData(): Boolean; procedure UpdateYarnName; procedure initCFGrid(); + function CheckBL(): Boolean; public { Public declarations } FBYIID, FSTKName: string; @@ -496,6 +497,11 @@ begin Exit; end; end; + + if not CheckBL() then + begin + Exit; + end; if SaveData() then begin Application.MessageBox('ɹ!', 'ʾ', 0); @@ -516,6 +522,14 @@ begin try // ԽַתΪ fValue := StrToFloat(s); +// if fValue < 0 then +// begin +// s := '0'; +// end; +// if fValue > 100 then +// begin +// s := '100'; +// end; // ʽΪλСӰٷֺ // Tv1.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%'; Tv1.Controller.FocusedColumn.EditValue := s + '%'; @@ -545,6 +559,45 @@ begin end; end; +function TfrmYarnInfoInPut.CheckBL(): Boolean; +var + mBL: Double; + msubBL: Double; +begin + Result := False; + msubBL := 0; + CDS_1.First; + while not CDS_1.Eof do + begin + // һд봦Ƴ%Ųת + if not TryStrToFloat(StringReplace(CDS_1.FieldByName('BL').AsString, '%', '', [rfReplaceAll]), mBL) then + begin + ShowMessage(' ' + CDS_1.FieldByName('DH').AsString + ' ʽ'); + Exit; + end + else + begin + msubBL := msubBL + mBL; + end; + + if (mBL <= 0) or (mBL > 100) then + begin + ShowMessage(' ' + CDS_1.FieldByName('DH').AsString + ' 0-100% ֮'); + Exit; + end; + + CDS_1.Next; + end; + + if msubBL > 100 then + begin + ShowMessage('֮ͱ 0-100% ֮'); + Exit; + end; + + Result := True; +end; + procedure TfrmYarnInfoInPut.Y_NameClick(Sender: TObject); begin Y_Composition.Style.Color := clMoneyGreen; diff --git a/B02基础纱线仓库/YarnStk.dproj.local b/B02基础纱线仓库/YarnStk.dproj.local index f2c78c1..e396f62 100644 --- a/B02基础纱线仓库/YarnStk.dproj.local +++ b/B02基础纱线仓库/YarnStk.dproj.local @@ -1,98 +1,98 @@  - 1899/12/30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899/12/30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas 1899/12/30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.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.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.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.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.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.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas - 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.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas - 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.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm - 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.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas - 1899/12/30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas - 1899/12/30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm - 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.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas - 1899/12/30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 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.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas - 1899/12/30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.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.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.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm + 1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.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.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm + 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.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas + 1899/12/30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas= 1899/12/30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.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.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.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.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.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas + 1899/12/30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas + 1899/12/30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.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.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas + 1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas + 1899/12/30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas + 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.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm + 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.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.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.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.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.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas 1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.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.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.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas - 1899/12/30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas - 1899/12/30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.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.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas + 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.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm 1899/12/30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.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.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 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.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm + 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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 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.802,=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.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas 1899/12/30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.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.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm - 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.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.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.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.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.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.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.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 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.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas + 1899/12/30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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 2025/09/02 12:38:38.000.487,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_TatPlanMachInput.pas 2025/09/02 12:42:57.000.345,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_WBSpecSel.pas diff --git a/B02基础纱线仓库/YarnStk.identcache b/B02基础纱线仓库/YarnStk.identcache index f13bbb2..0ec69bc 100644 Binary files a/B02基础纱线仓库/YarnStk.identcache and b/B02基础纱线仓库/YarnStk.identcache differ diff --git a/B04采购计划管理/PurchasePlan.dproj.local b/B04采购计划管理/PurchasePlan.dproj.local index 182886e..39af536 100644 --- a/B04采购计划管理/PurchasePlan.dproj.local +++ b/B04采购计划管理/PurchasePlan.dproj.local @@ -32,16 +32,16 @@ 1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899/12/30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas + 1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj 1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas 1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.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.931,=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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas + 1899/12/30 00:00:00.000.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas 1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm @@ -50,9 +50,9 @@ 1899/12/30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas 1899/12/30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas= 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj 1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas + 1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas + 1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas 1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas 1899/12/30 00:00:00.000.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= diff --git a/B04采购计划管理/U_YarnPurchasePlanList.dfm b/B04采购计划管理/U_YarnPurchasePlanList.dfm index 4f1835d..a3061b4 100644 --- a/B04采购计划管理/U_YarnPurchasePlanList.dfm +++ b/B04采购计划管理/U_YarnPurchasePlanList.dfm @@ -157,16 +157,24 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList ImageIndex = 11 OnClick = TnoqxClick end - object ToolButton7: TToolButton + object Tbdelete: TToolButton Left = 689 Top = 30 AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + OnClick = TbdeleteClick + end + object ToolButton7: TToolButton + Left = 760 + Top = 30 + AutoSize = True Caption = #20445#23384#26684#24335 ImageIndex = 16 OnClick = ToolButton7Click end object TBClose: TToolButton - Left = 792 + Left = 863 Top = 30 AutoSize = True Caption = #20851#38381 @@ -616,7 +624,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList TabOrder = 2 Properties.CustomButtons.Buttons = <> Properties.Style = 9 - Properties.TabIndex = 0 + Properties.TabIndex = 4 Properties.Tabs.Strings = ( #26410#25552#20132 #24050#25552#20132 @@ -625,6 +633,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList #24050#21462#28040 #20840#37096) OnChange = cxTabControl1Change + ExplicitTop = 134 ClientRectRight = 0 ClientRectTop = 0 end diff --git a/B04采购计划管理/U_YarnPurchasePlanList.pas b/B04采购计划管理/U_YarnPurchasePlanList.pas index baaeb5d..3e138dc 100644 --- a/B04采购计划管理/U_YarnPurchasePlanList.pas +++ b/B04采购计划管理/U_YarnPurchasePlanList.pas @@ -137,6 +137,7 @@ type Tv1currency: TcxGridDBColumn; Tv1SDlyDate: TcxGridDBColumn; Tv1SNote: TcxGridDBColumn; + Tbdelete: TToolButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -174,6 +175,7 @@ type procedure N6Click(Sender: TObject); procedure PurNoPropertiesChange(Sender: TObject); procedure TextEdit(Sender: TObject); + procedure TbdeleteClick(Sender: TObject); private fFlileFlag: string; procedure InitGrid(); @@ -281,6 +283,7 @@ begin btnCXTijiao.Enabled := False; btnWC.Enabled := False; btnWCCX.Enabled := False; + Tbdelete.Enabled := False; if Trim(FAuthority) = '¼' then begin ToolButton2.Enabled := true; @@ -310,6 +313,7 @@ begin 4: begin TNoqx.Enabled := True; + Tbdelete.Enabled := True; end; end; end; @@ -344,6 +348,7 @@ begin 4: begin TNoqx.Enabled := true; + Tbdelete.Enabled := True; end; end; end; @@ -379,6 +384,7 @@ begin 4: begin TNoqx.Enabled := true; + Tbdelete.Enabled := True; end; end; end; @@ -414,6 +420,7 @@ begin 4: begin TNoqx.Enabled := true; + Tbdelete.Enabled := True; end; end; end; @@ -450,6 +457,93 @@ begin Close; end; +procedure TfrmYarnPurchasePlanList.TbdeleteClick(Sender: TObject); +var + mPurMIds: TStringList; + i: Integer; +begin + if CDS_1.IsEmpty then + Exit; + + // ռѡеID + mPurMIds := TStringList.Create; + try + CDS_1.DisableControls; + try + CDS_1.First; + while not CDS_1.Eof do + begin + if CDS_1.FieldByName('SSel').AsBoolean then + begin + mPurMIds.Add(QuotedStr(CDS_1.FieldByName('PurMId').AsString)); + end; + CDS_1.Next; + end; + finally + CDS_1.EnableControls; + end; + + if mPurMIds.Count = 0 then + begin + ShowMessage('ûѡݣ'); + Exit; + end; + + // ʹȷһ + ADOQueryCmd.Connection.BeginTrans; + try + with ADOQueryCmd do + begin + // ɾ + SQL.Text := 'update Pur_YarnPlan_Main set Deler = ' + QuotedStr(Trim(DName)) + ' ,Deltime = ' + + QuotedStr(FormatDateTime('yyyy-mm-dd hh:nn:ss', SGetServerDateTime(ADOQueryTemp))) + + ' where PurMId IN ('+ string.Join(',', mPurMIds.ToStringArray) + ')'; + ExecSQL; + SQL.Text := 'update Pur_YarnPlan_Sub set Deler = ' + QuotedStr(Trim(DName)) + + ' ,Deltime = ' + QuotedStr(FormatDateTime('yyyy-mm-dd hh:nn:ss', SGetServerDateTime(ADOQueryTemp))) + + ' where PurMId IN ('+ string.Join(',', mPurMIds.ToStringArray) + ')'; + ExecSQL; + //뱸ݱ + SQL.Text := 'insert into Pur_YarnPlan_Main_Del select * from Pur_YarnPlan_Main ' + + ' where PurMId IN ('+ string.Join(',', mPurMIds.ToStringArray) + ')'; +// showMessage(SQL.Text); + ExecSQL; + + SQL.Text := 'insert into Pur_YarnPlan_Sub_Del select * from Pur_YarnPlan_Sub ' + + ' where PurMId IN ('+ string.Join(',', mPurMIds.ToStringArray) + ')'; + ExecSQL; + // ɾӱ + SQL.Text := 'DELETE FROM Pur_YarnPlan_Main WHERE PurMId IN (' + string.Join(',', mPurMIds.ToStringArray) + ')'; + ExecSQL; + SQL.Text := 'DELETE FROM Pur_YarnPlan_Sub WHERE PurMId IN (' + string.Join(',', mPurMIds.ToStringArray) + ')'; + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + + // CDSƳɾļ¼ + CDS_1.Filtered := False; + for i := 0 to mPurMIds.Count - 1 do + begin + if CDS_1.Locate('PurMId', mPurMIds[i], []) then + CDS_1.Delete; + end; + + ShowMessageFmt('ɹɾ %d ¼', [mPurMIds.Count]); + InitGrid(); + except + on E: Exception do + begin + ADOQueryCmd.Connection.RollbackTrans; + raise Exception.Create('ɾʧܣ' + E.Message); + end; + end; + + finally + mPurMIds.Free; + end; +end; + procedure TfrmYarnPurchasePlanList.InitGrid(); var SqlStr: string; diff --git a/B04采购计划管理/U_YarnPurchasePlanPut.dfm b/B04采购计划管理/U_YarnPurchasePlanPut.dfm index ba9b940..2aa01c8 100644 --- a/B04采购计划管理/U_YarnPurchasePlanPut.dfm +++ b/B04采购计划管理/U_YarnPurchasePlanPut.dfm @@ -123,6 +123,8 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut Align = alClient BorderStyle = cxcbsNone TabOrder = 2 + ExplicitLeft = -6 + ExplicitTop = 192 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -268,19 +270,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut Options.Editing = False Width = 70 end - object Tv1Column1: TcxGridDBColumn - Caption = #25467#24230 - DataBinding.FieldName = 'ND' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxComboBoxProperties' - Properties.Items.Strings = ( - 'A' - 'B' - 'C') - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 95 - end object Tv1Column5: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'Y_Color' @@ -424,6 +413,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut ParentColor = False ParentCtl3D = False TabOrder = 3 + ExplicitTop = 24 object lbl5: TLabel Left = 32 Top = 50 diff --git a/B04采购计划管理/U_YarnPurchasePlanPut.pas b/B04采购计划管理/U_YarnPurchasePlanPut.pas index 5f5744a..43d07c4 100644 --- a/B04采购计划管理/U_YarnPurchasePlanPut.pas +++ b/B04采购计划管理/U_YarnPurchasePlanPut.pas @@ -75,7 +75,6 @@ type TV2Column3: TcxGridDBColumn; cxGridLevel2: TcxGridLevel; TV2Column4: TcxGridDBColumn; - Tv1Column1: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn; Label1: TLabel; StkName: TcxButtonEdit; @@ -127,8 +126,7 @@ type procedure ToolButton5Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject); procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); - procedure Tv1TaxRatePropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure Tv1TaxRatePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column4PropertiesChange(Sender: TObject); private FLeft, FTop: Integer; @@ -652,7 +650,8 @@ begin sql.Add(' select xx=dbo.GetPinYin(' + quotedstr(Sellname.Text) + ')'); Open; end; - PurNo.Text := 'HHD' + MPurNo + trim(ADOTemp.FieldByName('xx').AsString); +// PurNo.Text := 'HHD' + MPurNo + trim(ADOTemp.FieldByName('xx').AsString); + PurNo.Text := 'HHD' + MPurNo; end; end else @@ -860,14 +859,14 @@ begin FieldByName('C_Degree').Value := 'ɴ'; FieldByName('Y_Code').Value := CDS_1.fieldbyname('Y_Code').value; FieldByName('Y_Name').Value := CDS_1.fieldbyname('Y_Name').value; - FieldByName('Y_Spec').Value := CDS_1.fieldbyname('Y_Spec').value; +// FieldByName('Y_Spec').Value := CDS_1.fieldbyname('Y_Spec').value; FieldByName('Y_Composition').Value := CDS_1.fieldbyname('Y_Composition').value; FieldByName('Denier').Value := CDS_1.fieldbyname('Denier').value; FieldByName('ZS').Value := CDS_1.fieldbyname('ZS').value; FieldByName('FF').Value := CDS_1.fieldbyname('FF').value; - FieldByName('ND').Value := Cds_1.FieldByName('ND').Value; +// FieldByName('ND').Value := Cds_1.FieldByName('ND').Value; FieldByName('Y_Color').Value := Cds_1.FieldByName('Y_Color').Value; @@ -1027,14 +1026,14 @@ begin FieldByName('C_Degree').Value := 'ɴ'; FieldByName('Y_Code').Value := CDS_1.fieldbyname('Y_Code').value; FieldByName('Y_Name').Value := CDS_1.fieldbyname('Y_Name').value; - FieldByName('Y_Spec').Value := CDS_1.fieldbyname('Y_Spec').value; +// FieldByName('Y_Spec').Value := CDS_1.fieldbyname('Y_Spec').value; FieldByName('Y_Composition').Value := CDS_1.fieldbyname('Y_Composition').value; FieldByName('Y_Color').Value := Cds_1.FieldByName('Y_Color').Value; FieldByName('Denier').Value := CDS_1.fieldbyname('TestDenier').value; FieldByName('ZS').Value := CDS_1.fieldbyname('Z_Number').value; FieldByName('Y_Color').Value := CDS_1.fieldbyname('Y_Color').value; FieldByName('FF').Value := CDS_1.fieldbyname('FF').value; - FieldByName('ND').Value := Cds_1.FieldByName('ND').Value; +// FieldByName('ND').Value := Cds_1.FieldByName('ND').Value; FieldByName('Qty').Value := Cds_1.FieldByName('SXQty').Value; FieldByName('Price').Value := 0; @@ -1057,9 +1056,18 @@ end; procedure TfrmYarnPurchasePlanPut.ToolButton6Click(Sender: TObject); var i: Integer; + maxno: string; begin inherited; - i := Order_Sub.RecordCount + 1; + + if GetLSNo(ADOCmd, maxno, 'PS', 'Pur_YarnPlan_Sub', 4, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + i := Order_Sub.RecordCount + 1; //ǰdatasetжм¼ + try frmGKManageSel := TfrmGKManageSel.Create(Application); with frmGKManageSel do @@ -1079,6 +1087,7 @@ begin append; FieldByName('SSEL').Value := False; FieldByName('SerialNo').Value := i; + FieldByName('PurSId').Value := maxno + INTTOSTR(i); // FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); // FieldByName('StkCoNo').Value := 'ֿ'; // FieldByName('StkCoName').Value := 'ֿ'; @@ -1089,6 +1098,7 @@ begin FieldByName('C_Degree').Value := ''; end; end; + i := i + 1; next; end; @@ -1148,7 +1158,7 @@ procedure TfrmYarnPurchasePlanPut.Tv1Column4PropertiesChange(Sender: TObject); begin inherited; // if Order_Sub.FieldByName('currency').value = 'VND' then - if TcxTextEdit(Sender).EditingText = 'VND' then + if TcxTextEdit(Sender).EditingText = 'VND' then begin (Tv1Price.Properties as TcxCurrencyEditProperties).DisplayFormat := ''; @@ -1181,7 +1191,6 @@ begin (Tv1Tax.Properties as TcxCurrencyEditProperties).DisplayFormat := '0.00'; (Tv1TaxInclude.Properties as TcxCurrencyEditProperties).DisplayFormat := '0.00'; - (Tv1Price.Properties as TcxCurrencyEditProperties).DecimalPlaces := 2; (Tv1Amount.Properties as TcxCurrencyEditProperties).DecimalPlaces := 2; (Tv1Tax.Properties as TcxCurrencyEditProperties).DecimalPlaces := 2; @@ -1228,8 +1237,7 @@ begin Label4.Caption := ':' + Trim(ADOQuery1.fieldbyname('piece').AsString); end; -procedure TfrmYarnPurchasePlanPut.Tv1TaxRatePropertiesButtonClick( - Sender: TObject; AButtonIndex: Integer); +procedure TfrmYarnPurchasePlanPut.Tv1TaxRatePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try frmZDYHelp := TfrmZDYHelp.Create(Application); diff --git a/E00梭织通用窗体/U_TatPlanSel.dfm b/E00梭织通用窗体/U_TatPlanSel.dfm index e76242e..7fb652a 100644 --- a/E00梭织通用窗体/U_TatPlanSel.dfm +++ b/E00梭织通用窗体/U_TatPlanSel.dfm @@ -4902,8 +4902,8 @@ inherited frmTatPlanSel: TfrmTatPlanSel 000000000000} end object cxStyleRepository1: TcxStyleRepository - Left = 504 - Top = 144 + Left = 520 + Top = 128 PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svFont] diff --git a/E01梭织生产计划/TatPlan.dproj.local b/E01梭织生产计划/TatPlan.dproj.local index aa279dd..8bf4905 100644 --- a/E01梭织生产计划/TatPlan.dproj.local +++ b/E01梭织生产计划/TatPlan.dproj.local @@ -1,82 +1,82 @@  - 1899/12/30 00:00:00.000.555,=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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm 1899/12/30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm + 1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas= - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas + 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm + 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas 1899/12/30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas - 1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj - 1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.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.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.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm + 1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas 1899/12/30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas= - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas - 1899/12/30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas - 1899/12/30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas + 1899/12/30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas - 1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas + 1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm + 1899/12/30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas + 1899/12/30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas 1899/12/30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas - 1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas - 1899/12/30 00:00:00.000.613,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas - 1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas + 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas + 1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm + 1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm + 1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas 1899/12/30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas + 1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj + 1899/12/30 00:00:00.000.613,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas 1899/12/30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas 1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas - 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm - 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas + 1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899/12/30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas + 1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas 1899/12/30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas - 1899/12/30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899/12/30 00:00:00.000.556,=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.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm + 1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.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.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas 1899/12/30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas - 1899/12/30 00:00:00.000.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas - 1899/12/30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm + 1899/12/30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas + 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas + 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm + 1899/12/30 00:00:00.000.467,=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.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas - 1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm - 1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas - 1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm - 1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.dfm - 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.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas + 1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm + 1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.dfm + 1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm + 1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas + 1899/12/30 00:00:00.000.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 2025/10/13 10:49:44.000.724,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_YarnStkSel.pas 2025/11/26 15:57:54.000.998,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas diff --git a/E01梭织生产计划/TatPlan.identcache b/E01梭织生产计划/TatPlan.identcache index 0d0dbf4..aab348c 100644 Binary files a/E01梭织生产计划/TatPlan.identcache and b/E01梭织生产计划/TatPlan.identcache differ diff --git a/E01梭织生产计划/U_TatPlanCard1.dfm b/E01梭织生产计划/U_TatPlanCard1.dfm index 313866d..4c07b4a 100644 --- a/E01梭织生产计划/U_TatPlanCard1.dfm +++ b/E01梭织生产计划/U_TatPlanCard1.dfm @@ -243,6 +243,8 @@ inherited frmTatPlanCard1: TfrmTatPlanCard1 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 + LookAndFeel.NativeStyle = False + ExplicitTop = 155 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E01梭织生产计划/U_TatPlanInPut.dfm b/E01梭织生产计划/U_TatPlanInPut.dfm index bbfb92e..9f072b7 100644 --- a/E01梭织生产计划/U_TatPlanInPut.dfm +++ b/E01梭织生产计划/U_TatPlanInPut.dfm @@ -9,7 +9,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Font.Height = -13 Position = poScreenCenter WindowState = wsMaximized - ExplicitTop = -184 ExplicitWidth = 1556 ExplicitHeight = 884 PixelsPerInch = 96 @@ -73,6 +72,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Ctl3D = False ParentCtl3D = False TabOrder = 1 + ExplicitTop = 36 object Label2: TLabel Left = 922 Top = 5 @@ -127,7 +127,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Top = 44 Width = 78 Height = 19 - Caption = #38754#26009#21512#21516#21495#65306 + Caption = #22383#24067#21512#21516#21495#65306 end object Label3: TLabel Left = 11 @@ -457,7 +457,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Height = 19 Caption = #31576#40831 Font.Charset = ANSI_CHARSET - Font.Color = clBtnShadow + Font.Color = clHighlight Font.Height = -13 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -470,7 +470,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Height = 19 Caption = #26681'/'#31576#40831 Font.Charset = ANSI_CHARSET - Font.Color = clAppWorkSpace + Font.Color = clHighlight Font.Height = -13 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -483,7 +483,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Height = 19 Caption = #31576#40831 Font.Charset = ANSI_CHARSET - Font.Color = clAppWorkSpace + Font.Color = clHighlight Font.Height = -13 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -496,7 +496,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Height = 19 Caption = #26681 Font.Charset = ANSI_CHARSET - Font.Color = clAppWorkSpace + Font.Color = clHighlight Font.Height = -13 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -504,12 +504,12 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut end object Label44: TLabel Left = 601 - Top = 267 + Top = 266 Width = 45 Height = 19 Caption = #26681'/'#31576#40831 Font.Charset = ANSI_CHARSET - Font.Color = clAppWorkSpace + Font.Color = clHighlight Font.Height = -13 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -522,7 +522,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Height = 19 Caption = #40831'/2'#33521#23544 Font.Charset = ANSI_CHARSET - Font.Color = clAppWorkSpace + Font.Color = clHighlight Font.Height = -13 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -535,7 +535,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Height = 19 Caption = #26681'/'#33521#23544 Font.Charset = ANSI_CHARSET - Font.Color = clAppWorkSpace + Font.Color = clHighlight Font.Height = -13 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -548,7 +548,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Height = 19 Caption = #26681'/'#33521#23544 Font.Charset = ANSI_CHARSET - Font.Color = clAppWorkSpace + Font.Color = clHighlight Font.Height = -13 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -659,6 +659,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Top = 346 ParentColor = True ParentFont = False + Properties.ReadOnly = True Style.Font.Charset = ANSI_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -16 @@ -674,6 +675,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 445 Top = 78 ParentColor = True + Properties.ReadOnly = True TabOrder = 11 Width = 150 end @@ -682,6 +684,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 766 Top = 191 ParentColor = True + Properties.ReadOnly = True TabOrder = 12 Width = 150 end @@ -690,6 +693,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 117 Top = 153 ParentColor = True + Properties.ReadOnly = True TabOrder = 13 Width = 150 end @@ -698,6 +702,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 445 Top = 228 ParentColor = True + Properties.ReadOnly = True TabOrder = 14 Width = 149 end @@ -706,6 +711,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 445 Top = 153 ParentColor = True + Properties.ReadOnly = True TabOrder = 15 Width = 150 end @@ -714,6 +720,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 986 Top = 153 ParentColor = True + Properties.ReadOnly = True Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged TabOrder = 16 OnExit = C_ReedWidthExit @@ -741,6 +748,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Top = 191 Enabled = False ParentColor = True + Properties.ReadOnly = True TabOrder = 18 Width = 150 end @@ -749,6 +757,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 766 Top = 115 ParentColor = True + Properties.ReadOnly = True TabOrder = 19 Width = 150 end @@ -757,6 +766,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 986 Top = 115 ParentColor = True + Properties.ReadOnly = True TabOrder = 20 Width = 150 end @@ -765,6 +775,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 117 Top = 115 ParentColor = True + Properties.ReadOnly = True TabOrder = 21 Width = 150 end @@ -773,6 +784,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 445 Top = 115 ParentColor = True + Properties.ReadOnly = True TabOrder = 22 Width = 150 end @@ -781,6 +793,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 986 Top = 78 ParentColor = True + Properties.ReadOnly = True TabOrder = 23 Width = 150 end @@ -789,6 +802,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 766 Top = 78 ParentColor = True + Properties.ReadOnly = True TabOrder = 24 Width = 150 end @@ -799,6 +813,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Properties.Items.Strings = ( #8220 'CM') + Properties.ReadOnly = False TabOrder = 25 Text = #8220 Width = 63 @@ -808,6 +823,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 766 Top = 153 ParentColor = True + Properties.ReadOnly = True TabOrder = 26 Width = 95 end @@ -826,6 +842,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 117 Top = 228 ParentColor = True + Properties.ReadOnly = True TabOrder = 28 Width = 150 end @@ -834,6 +851,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 766 Top = 228 ParentColor = True + Properties.ReadOnly = True Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged TabOrder = 29 OnExit = C_ReedWidthExit @@ -844,6 +862,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 986 Top = 229 ParentColor = True + Properties.ReadOnly = True TabOrder = 30 Width = 103 end @@ -852,6 +871,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 117 Top = 265 ParentColor = True + Properties.ReadOnly = True TabOrder = 31 Width = 150 end @@ -860,6 +880,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 445 Top = 265 ParentColor = True + Properties.ReadOnly = True TabOrder = 32 Width = 150 end @@ -868,6 +889,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 766 Top = 265 ParentColor = True + Properties.ReadOnly = True TabOrder = 33 Width = 371 end @@ -876,6 +898,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 117 Top = 303 ParentColor = True + Properties.ReadOnly = True TabOrder = 34 Width = 150 end @@ -884,6 +907,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 445 Top = 303 ParentColor = True + Properties.ReadOnly = False TabOrder = 35 Width = 150 end @@ -892,6 +916,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 766 Top = 303 ParentColor = True + Properties.ReadOnly = True TabOrder = 36 Width = 150 end @@ -900,6 +925,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 987 Top = 300 ParentColor = True + Properties.ReadOnly = True TabOrder = 37 Width = 150 end @@ -910,6 +936,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Properties.Items.Strings = ( #8220 'CM') + Properties.ReadOnly = False TabOrder = 38 Text = #8220 Width = 63 @@ -921,6 +948,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Properties.Items.Strings = ( 'GSM' 'MM') + Properties.ReadOnly = True TabOrder = 39 Width = 150 end @@ -943,6 +971,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object ZS: TcxTextEdit Left = 1210 Top = 5 + Properties.ReadOnly = True Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged TabOrder = 41 OnKeyPress = ConNoKeyPress @@ -953,6 +982,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 1265 Top = 263 ParentColor = True + Properties.ReadOnly = True TabOrder = 42 Width = 95 end @@ -961,6 +991,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 1265 Top = 230 ParentColor = True + Properties.ReadOnly = True TabOrder = 43 Width = 95 end @@ -1098,6 +1129,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut DataBinding.FieldName = 'Y_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Options.Moving = False Options.Sorting = False Width = 100 @@ -1107,6 +1139,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut DataBinding.FieldName = 'Y_Composition' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object cxGridDBColumn8: TcxGridDBColumn @@ -1114,6 +1147,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut DataBinding.FieldName = 'Y_Color' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 100 end object TV1Column6: TcxGridDBColumn @@ -1123,7 +1157,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter - Width = 96 + Options.Editing = False + Width = 97 end object TV1Column14: TcxGridDBColumn Caption = #25903#25968 @@ -1132,6 +1167,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 71 end object TV1Column1: TcxGridDBColumn @@ -1168,6 +1204,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 90 end object TV1Column8: TcxGridDBColumn @@ -1325,6 +1362,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut DataBinding.FieldName = 'Y_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Options.Moving = False Options.Sorting = False Width = 100 @@ -1334,6 +1372,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut DataBinding.FieldName = 'Y_Composition' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object v2Column6: TcxGridDBColumn @@ -1341,6 +1380,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut DataBinding.FieldName = 'Y_Color' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 100 end object Tv2Column6: TcxGridDBColumn @@ -1349,6 +1389,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 91 end object Tv2Column14: TcxGridDBColumn @@ -1358,6 +1399,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 88 end object Tv2Column1: TcxGridDBColumn @@ -1386,6 +1428,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 90 end object Tv2Column11: TcxGridDBColumn @@ -1657,8 +1700,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object Qry_ImgHX: TADOQuery Connection = DataLink_TatPlan.ADOLink Parameters = <> - Left = 610 - Top = 304 + Left = 626 + Top = 336 end object DS_ImgHX: TDataSource DataSet = Qry_ImgHX diff --git a/E01梭织生产计划/U_TatPlanInPut.pas b/E01梭织生产计划/U_TatPlanInPut.pas index 31fc7e5..5c3ff10 100644 --- a/E01梭织生产计划/U_TatPlanInPut.pas +++ b/E01梭织生产计划/U_TatPlanInPut.pas @@ -312,6 +312,7 @@ begin sql.Clear; sql.Add('select A.* from Bs_Cloth_Info A'); sql.Add(' where A.C_Code=''' + Trim(MC_Code) + ''''); +// showMessage(sql.text); Open; end; ConNo.tag := 9; @@ -319,8 +320,12 @@ begin OrdQty.tag := 9; ConMId.tag := 9; ConSId.tag := 9; +// showMessage(C_GramWeight.text); SCSHData(ADOQueryTemp, ScrollBox1, 2); + +// showMessage(C_GramWeight.text); + ZS.Text := ADOQueryTemp.FieldByName('ZS').AsString; attname1.Text := ADOQueryTemp.fieldbyname('attname1').AsString; attname2.Text := ADOQueryTemp.fieldbyname('attname2').AsString; @@ -1603,8 +1608,8 @@ begin FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value; FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value; - - FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value; + FieldByName('Z_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value; +// FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value; FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value; FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value; FieldByName('YarnFactor').Value := 0.059; @@ -1803,34 +1808,34 @@ var ErrCode: Integer; IsInch: Boolean; begin - C_GramWeight.SetFocus; - - if Tv1.DataController.Summary.FooterSummaryValues[0] <> NULL then - begin - SumJS := IfThen(VarIsNull(Tv1.DataController.Summary.FooterSummaryValues[0]), 0, Tv1.DataController.Summary.FooterSummaryValues[0]); - - end; - if Tv2.DataController.Summary.FooterSummaryValues[0] <> NULL then - begin - SumWS := IfThen(VarIsNull(Tv2.DataController.Summary.FooterSummaryValues[0]), 0, Tv2.DataController.Summary.FooterSummaryValues[0]); - end; - - IsInch := ContainsText(C_ReedWidth.Text, '"'); - Val(Trim(StringReplace(C_ReedWidth.Text, '"', '', [rfReplaceAll, rfIgnoreCase])), ReedWidthValue, ErrCode); - if (ErrCode = 0) and (ReedWidthValue > 0) then - begin - if IsInch then - begin - C_GramWeight.Text := FloatToStr(roundfloat(((SumJS + SumWS) / ReedWidthValue * 2.54 * 100), 0)); - end - else - begin - C_GramWeight.Text := FloatToStr(roundfloat(((SumJS + SumWS) / ReedWidthValue * 100), 0)); - end; - - end - else - C_GramWeight.Text := '0.00'; +// C_GramWeight.SetFocus; +// +// if Tv1.DataController.Summary.FooterSummaryValues[0] <> NULL then +// begin +// SumJS := IfThen(VarIsNull(Tv1.DataController.Summary.FooterSummaryValues[0]), 0, Tv1.DataController.Summary.FooterSummaryValues[0]); +// +// end; +// if Tv2.DataController.Summary.FooterSummaryValues[0] <> NULL then +// begin +// SumWS := IfThen(VarIsNull(Tv2.DataController.Summary.FooterSummaryValues[0]), 0, Tv2.DataController.Summary.FooterSummaryValues[0]); +// end; +// +// IsInch := ContainsText(C_ReedWidth.Text, '"'); +// Val(Trim(StringReplace(C_ReedWidth.Text, '"', '', [rfReplaceAll, rfIgnoreCase])), ReedWidthValue, ErrCode); +// if (ErrCode = 0) and (ReedWidthValue > 0) then +// begin +// if IsInch then +// begin +// C_GramWeight.Text := FloatToStr(roundfloat(((SumJS + SumWS) / ReedWidthValue * 2.54 * 100), 0)); +// end +// else +// begin +// C_GramWeight.Text := FloatToStr(roundfloat(((SumJS + SumWS) / ReedWidthValue * 100), 0)); +// end; +// +// end +// else +// C_GramWeight.Text := '0.00'; end; procedure TfrmTatPlanInPut.cxGridDBColumn4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); @@ -1879,8 +1884,8 @@ begin FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value; FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value; - - FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value; + FieldByName('Z_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value; +// FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value; FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value; FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value; FieldByName('YarnFactor').Value := 0.059; @@ -1933,12 +1938,13 @@ begin Self.C_YarnQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').AsString); Self.C_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString); Self.C_ReedWidth.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString); - DCRQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('DCRQTY').AsString); - C_KCQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('C_KCQTY').AsString); - WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString); - BSQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('BSQTY').AsString); - GKBH.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('GKBH').AsString); - + Self.DCRQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('DCRQTY').AsString); + Self.C_KCQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('C_KCQTY').AsString); + Self.WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString); + Self.BSQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('BSQTY').AsString); + Self.GKBH.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('GKBH').AsString); + Self.WB_YarnKCQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnKCQty').AsString); + Self.BCRFQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('BCRFQty').AsString); Self.Y_Note_PLJ.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnArrNote').AsString); with ADOQuery1 do diff --git a/E01梭织生产计划/U_TatPlanJTSCLIST.dfm b/E01梭织生产计划/U_TatPlanJTSCLIST.dfm index 28f13ef..4b69ad0 100644 --- a/E01梭织生产计划/U_TatPlanJTSCLIST.dfm +++ b/E01梭织生产计划/U_TatPlanJTSCLIST.dfm @@ -33,6 +33,8 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST ParentFont = False ShowCaptions = True TabOrder = 2 + ExplicitLeft = 1 + ExplicitTop = -6 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -77,6 +79,8 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST Color = clWhite ParentBackground = False TabOrder = 3 + ExplicitLeft = -1 + ExplicitTop = 24 object Label5: TLabel Left = 20 Top = 21 @@ -113,7 +117,7 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST Height = 516 Align = alClient TabOrder = 4 - Properties.ActivePage = cxTabSheet3 + Properties.ActivePage = cxTabSheet1 Properties.CustomButtons.Buttons = <> OnChange = cxPageControl1Change ClientRectBottom = 515 @@ -215,12 +219,12 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST Width = 100 end object v3Column16: TcxGridDBColumn - Caption = #32463#36724#31859#25968 + Caption = #23454#38469#32463#36724#31859#25968 DataBinding.FieldName = 'JZMS2' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 84 + Width = 122 end object Tv1Column5: TcxGridDBColumn Caption = #19978#36724#26102#38388 @@ -247,7 +251,49 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 100 + Width = 141 + end + object Tv1ConNo: TcxGridDBColumn + Caption = #22383#24067#21512#21516#21495 + DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 105 + end + object Tv1C_Name: TcxGridDBColumn + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1C_Composition: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 88 + end + object Tv1YarnZS: TcxGridDBColumn + Caption = #32433#25903 + DataBinding.FieldName = 'YarnZS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 86 + end + object Tv1Density: TcxGridDBColumn + Caption = #23494#24230 + DataBinding.FieldName = 'Density' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 86 + end + object Tv1C_Width: TcxGridDBColumn + Caption = #22383#24067#38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 99 end end object cxGridLevel2: TcxGridLevel @@ -266,7 +312,6 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST Align = alClient PopupMenu = PopupMenu1 TabOrder = 0 - ExplicitLeft = -1 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -364,7 +409,6 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST Align = alClient PopupMenu = PopupMenu1 TabOrder = 0 - ExplicitLeft = -1 object Tv3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -445,6 +489,55 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST Options.Editing = False Width = 115 end + object Tv3C_Code: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 91 + end + object Tv3C_Name: TcxGridDBColumn + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 94 + end + object Tv3dayqty: TcxGridDBColumn + Caption = #26085#20135#37327 + DataBinding.FieldName = 'dayqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 84 + end + object Tv3C_Composition: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object Tv3YarnZS: TcxGridDBColumn + Caption = #32433#25903 + DataBinding.FieldName = 'YarnZS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv3Density: TcxGridDBColumn + Caption = #23494#24230 + DataBinding.FieldName = 'Density' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv3C_Width: TcxGridDBColumn + Caption = #22383#24067#38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 96 + end end object cxGridLevel3: TcxGridLevel GridView = Tv3 diff --git a/E01梭织生产计划/U_TatPlanJTSCLIST.pas b/E01梭织生产计划/U_TatPlanJTSCLIST.pas index 6c1bdd8..9bdb982 100644 --- a/E01梭织生产计划/U_TatPlanJTSCLIST.pas +++ b/E01梭织生产计划/U_TatPlanJTSCLIST.pas @@ -76,6 +76,19 @@ type cxGridDBColumn11: TcxGridDBColumn; cxGridDBColumn12: TcxGridDBColumn; cxGridLevel3: TcxGridLevel; + Tv1C_Name: TcxGridDBColumn; + Tv1C_Composition: TcxGridDBColumn; + Tv1C_Width: TcxGridDBColumn; + Tv1Density: TcxGridDBColumn; + Tv1YarnZS: TcxGridDBColumn; + Tv1ConNo: TcxGridDBColumn; + Tv3C_Code: TcxGridDBColumn; + Tv3dayqty: TcxGridDBColumn; + Tv3C_Composition: TcxGridDBColumn; + Tv3C_Name: TcxGridDBColumn; + Tv3C_Width: TcxGridDBColumn; + Tv3YarnZS: TcxGridDBColumn; + Tv3Density: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject); diff --git a/E01梭织生产计划/U_TatPlanList.dfm b/E01梭织生产计划/U_TatPlanList.dfm index 150b0be..ac3bd50 100644 --- a/E01梭织生产计划/U_TatPlanList.dfm +++ b/E01梭织生产计划/U_TatPlanList.dfm @@ -314,6 +314,7 @@ inherited frmTatPlanList: TfrmTatPlanList Height = 444 Align = alClient TabOrder = 2 + ExplicitLeft = -6 ExplicitTop = 146 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> @@ -537,7 +538,7 @@ inherited frmTatPlanList: TfrmTatPlanList Width = 70 end object Tv1Column11: TcxGridDBColumn - Caption = #19978#26426#38376#24133 + Caption = #22383#24067#38376#24133 DataBinding.FieldName = 'C_Width' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter @@ -619,6 +620,7 @@ inherited frmTatPlanList: TfrmTatPlanList #24050#32467#26463 #20840#37096) OnChange = cxTabControl1Change + ExplicitTop = 109 ClientRectRight = 0 ClientRectTop = 0 end diff --git a/E01梭织生产计划/U_TatPlanMachInput.dfm b/E01梭织生产计划/U_TatPlanMachInput.dfm index 3ffc910..a9b46cb 100644 --- a/E01梭织生产计划/U_TatPlanMachInput.dfm +++ b/E01梭织生产计划/U_TatPlanMachInput.dfm @@ -4,7 +4,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput Anchors = [] Caption = #20219#21153#26032#22686 ClientHeight = 653 - ClientWidth = 1022 + ClientWidth = 1046 Color = clWhite Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -19,7 +19,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1022 + Width = 1046 Height = 30 AutoSize = True ButtonHeight = 30 @@ -32,7 +32,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput ParentColor = False ShowCaptions = True TabOrder = 0 - ExplicitTop = -6 + ExplicitWidth = 1022 object ToolButton1: TToolButton Left = 0 Top = 0 @@ -61,7 +61,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput object ScrollBox1: TScrollBox Left = 0 Top = 30 - Width = 1022 + Width = 1046 Height = 623 Align = alClient BevelInner = bvNone @@ -71,7 +71,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput ParentColor = False ParentCtl3D = False TabOrder = 1 - ExplicitTop = 36 + ExplicitWidth = 1022 object Label1: TLabel Left = 455 Top = 55 @@ -440,13 +440,11 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput object cxGrid3: TcxGrid Left = 0 Top = 368 - Width = 1020 + Width = 1044 Height = 253 Align = alBottom TabOrder = 15 - ExplicitLeft = -3 - ExplicitTop = 417 - ExplicitWidth = 1003 + ExplicitWidth = 1020 object Tv3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -514,9 +512,9 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput HeaderAlignmentHorz = taCenter Width = 100 end - object Tv2Column6: TcxGridDBColumn - Caption = #20998#29305'(Dtex)' - DataBinding.FieldName = 'TestDenier' + object Tv2Z_Number: TcxGridDBColumn + Caption = #25903#25968 + DataBinding.FieldName = 'Z_Number' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter diff --git a/E01梭织生产计划/U_TatPlanMachInput.pas b/E01梭织生产计划/U_TatPlanMachInput.pas index 3e85e8b..77c4107 100644 --- a/E01梭织生产计划/U_TatPlanMachInput.pas +++ b/E01梭织生产计划/U_TatPlanMachInput.pas @@ -74,7 +74,7 @@ type cxGridDBColumn3: TcxGridDBColumn; Tv2Y_Composition: TcxGridDBColumn; v2Column6: TcxGridDBColumn; - Tv2Column6: TcxGridDBColumn; + Tv2Z_Number: TcxGridDBColumn; Tv2Column12: TcxGridDBColumn; cxGridLevel3: TcxGridLevel; Tv3BatchNO: TcxGridDBColumn; @@ -633,7 +633,7 @@ begin FieldByName('BatchNO').Value := self.ADOQueryCmd.fieldbyname('BatchNO').Value; - FieldByName('TestDenier').Value := self.ADOQueryCmd.fieldbyname('Denier').Value; + FieldByName('Z_Number').Value := self.ADOQueryCmd.fieldbyname('Z_Number').Value; // FieldByName('FF').Value := self.ADOQueryCmd.fieldbyname('FF').Value; // FieldByName('ND').Value := self.ADOQueryCmd.fieldbyname('ND').Value; diff --git a/E01梭织生产计划/U_TatPlanMachList.dfm b/E01梭织生产计划/U_TatPlanMachList.dfm index d377fcc..8db8d5c 100644 --- a/E01梭织生产计划/U_TatPlanMachList.dfm +++ b/E01梭织生产计划/U_TatPlanMachList.dfm @@ -215,6 +215,8 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList Align = alClient PopupMenu = PM_1 TabOrder = 2 + ExplicitLeft = -5 + ExplicitTop = 146 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -385,6 +387,23 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1WbNo: TcxGridDBColumn + Caption = #36724#21495 + DataBinding.FieldName = 'WbNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1KKGroup: TcxGridDBColumn + Caption = #32452#21495 + DataBinding.FieldName = 'KKGroup' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1Column13: TcxGridDBColumn @@ -393,6 +412,7 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False Width = 88 end object Tv1Column14: TcxGridDBColumn @@ -401,6 +421,7 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False Width = 70 end end diff --git a/E01梭织生产计划/U_TatPlanMachList.pas b/E01梭织生产计划/U_TatPlanMachList.pas index 64c46a5..eb9a0d0 100644 --- a/E01梭织生产计划/U_TatPlanMachList.pas +++ b/E01梭织生产计划/U_TatPlanMachList.pas @@ -95,6 +95,8 @@ type Tv1Column14: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn; ToolButton7: TToolButton; + Tv1WbNo: TcxGridDBColumn; + Tv1KKGroup: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormDestroy(Sender: TObject); procedure P_CodeNameChange(Sender: TObject); diff --git a/E01梭织生产计划/U_TatPlanPSYLLIST.dfm b/E01梭织生产计划/U_TatPlanPSYLLIST.dfm index 08ce5ba..08e9643 100644 --- a/E01梭织生产计划/U_TatPlanPSYLLIST.dfm +++ b/E01梭织生产计划/U_TatPlanPSYLLIST.dfm @@ -3,10 +3,10 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST Top = 76 Caption = #26426#21488#32428#32433#29992#37327#32479#35745 ClientHeight = 577 - ClientWidth = 1113 + ClientWidth = 1125 Font.Height = -16 Position = poScreenCenter - ExplicitWidth = 1129 + ExplicitWidth = 1141 ExplicitHeight = 616 PixelsPerInch = 96 TextHeight = 21 @@ -14,7 +14,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST Tag = 1 Left = 0 Top = 0 - Width = 1113 + Width = 1125 Height = 30 AutoSize = True ButtonHeight = 30 @@ -69,7 +69,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST object Panel1: TPanel [1] Left = 0 Top = 30 - Width = 1113 + Width = 1125 Height = 51 Align = alTop BevelInner = bvRaised @@ -109,7 +109,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST object cxPageControl1: TcxPageControl [4] Left = 0 Top = 81 - Width = 1113 + Width = 1125 Height = 496 Align = alClient TabOrder = 4 @@ -118,7 +118,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST ExplicitTop = 82 ClientRectBottom = 495 ClientRectLeft = 1 - ClientRectRight = 1112 + ClientRectRight = 1124 ClientRectTop = 29 object cxTabSheet1: TcxTabSheet Caption = ' '#27719#24635' ' @@ -126,7 +126,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST object cxGrid1: TcxGrid Left = 0 Top = 0 - Width = 1111 + Width = 1123 Height = 466 Align = alClient PopupMenu = PopupMenu1 @@ -173,13 +173,13 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST Width = 52 end object v3Column1: TcxGridDBColumn - Caption = #21512#21516#21495 + Caption = #22383#24067#21512#21516#21495 DataBinding.FieldName = 'conno' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False - Width = 80 + Width = 120 end object Tv1Column9: TcxGridDBColumn Caption = #32433#32447#21517#31216 @@ -213,7 +213,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False - Width = 124 + Width = 143 end object Tv1Column4: TcxGridDBColumn Caption = #24050#39046#29992#25968#37327'KG' @@ -223,6 +223,27 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST Options.Editing = False Width = 117 end + object Tv1realJSYL: TcxGridDBColumn + Caption = #23454#38469#32463#32433#38271#24230 + DataBinding.FieldName = 'realJSYL' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 137 + end + object Tv1realWSYL: TcxGridDBColumn + Caption = #23454#38469#32428#32433#29992#37327'KG' + DataBinding.FieldName = 'realWSYL' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 138 + end + object Tv1RemainQty: TcxGridDBColumn + Caption = #21097#20313#25968#37327 + DataBinding.FieldName = 'RemainQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 112 + end end object cxGridLevel2: TcxGridLevel GridView = Tv1 @@ -235,7 +256,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST object cxGrid2: TcxGrid Left = 0 Top = 0 - Width = 1111 + Width = 1123 Height = 466 Align = alClient PopupMenu = PopupMenu1 @@ -243,7 +264,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> - DataController.DataSource = DS_1 + DataController.DataSource = DS_2 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -289,13 +310,13 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST Width = 80 end object TV2conno: TcxGridDBColumn - Caption = #21512#21516#21495 + Caption = #22383#24067#21512#21516#21495 DataBinding.FieldName = 'conno' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False - Width = 80 + Width = 117 end object TV2Y_Name: TcxGridDBColumn Caption = #32433#32447#21517#31216 @@ -346,6 +367,22 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST Options.Editing = False Width = 117 end + object TV2realJSYL: TcxGridDBColumn + Caption = #23454#38469#32463#32433#38271#24230 + DataBinding.FieldName = 'realJSYL' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 156 + end + object TV2realWSYL: TcxGridDBColumn + Caption = #23454#38469#32428#32433#29992#37327'KG' + DataBinding.FieldName = 'realWSYL' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 153 + end end object cxGridLevel1: TcxGridLevel GridView = TV2 @@ -403,7 +440,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST object CDS_1: TClientDataSet Aggregates = <> Params = <> - Left = 472 + Left = 456 Top = 364 end object PopupMenu1: TPopupMenu @@ -434,4 +471,11 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST Left = 296 Top = 448 end + object cxStyleRepository1: TcxStyleRepository + PixelsPerInch = 96 + object cxStyle1: TcxStyle + AssignedValues = [svTextColor] + TextColor = clBlue + end + end end diff --git a/E01梭织生产计划/U_TatPlanPSYLLIST.pas b/E01梭织生产计划/U_TatPlanPSYLLIST.pas index 96fa44d..03c9fbf 100644 --- a/E01梭织生产计划/U_TatPlanPSYLLIST.pas +++ b/E01梭织生产计划/U_TatPlanPSYLLIST.pas @@ -64,6 +64,13 @@ type cxGridLevel1: TcxGridLevel; TV2mcno: TcxGridDBColumn; TV2DAYQTY: TcxGridDBColumn; + TV2realJSYL: TcxGridDBColumn; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + TV2realWSYL: TcxGridDBColumn; + Tv1realJSYL: TcxGridDBColumn; + Tv1realWSYL: TcxGridDBColumn; + Tv1RemainQty: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -83,6 +90,7 @@ type FInt, PFInt: Integer; FFMainID, BPFlag: string; procedure InitGrid(); + procedure InitGrid2(); { Private declarations } public canshu1: string; @@ -117,8 +125,11 @@ begin begin Close; sql.Clear; - sql.Add('SELECT * FROM V_TAT_PSYL '); + sql.Add('SELECT conno,max(Y_Name) as Y_Name,max(BatchNo) as BatchNo,sum(DAYYL) as DAYYL,sum(zqty) as zqty,sum(LYQTY) as LYQTY '); + sql.Add(' ,sum(realJSYL) as realJSYL,sum(realWSYL) as realWSYL'); + sql.Add(', (sum(realWSYL)-sum(LYQTY)) as RemainQty'); + sql.add(' FROM V_TAT_PSYL group By conno '); Open; end; SCreateCDS(ADOQueryMain, CDS_1); @@ -128,6 +139,25 @@ begin end; end; +procedure TfrmTatPlanPSYLLIST.InitGrid2(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('SELECT * FROM V_TAT_PSYL '); + + Open; + end; + SCreateCDS(ADOQueryMain, CDS_2); + SInitCDSData(ADOQueryMain, CDS_2); + finally + ADOQueryMain.EnableControls; + end; +end; + procedure TfrmTatPlanPSYLLIST.N1Click(Sender: TObject); begin SelOKNo(cds_1, true) @@ -141,6 +171,7 @@ end; procedure TfrmTatPlanPSYLLIST.TBRafreshClick(Sender: TObject); begin InitGrid(); + InitGrid2(); end; procedure TfrmTatPlanPSYLLIST.ToolButton1Click(Sender: TObject); @@ -299,6 +330,7 @@ begin ReadCxGrid(trim(self.Caption) + '1', Tv1, ''); InitGrid(); + InitGrid2(); end; procedure TfrmTatPlanPSYLLIST.ConNoPropertiesChange(Sender: TObject); diff --git a/E02梭织经轴仓库/U_DataLink.dfm b/E02梭织经轴仓库/U_DataLink.dfm index 24bc3de..24a2538 100644 --- a/E02梭织经轴仓库/U_DataLink.dfm +++ b/E02梭织经轴仓库/U_DataLink.dfm @@ -15,6 +15,14 @@ inherited DataLink_WarpBeamStk: TDataLink_WarpBeamStk end inherited ThreeColorBase: TcxStyleRepository PixelsPerInch = 96 + inherited grid_head_blue: TcxStyle + Font.Height = -13 + Font.Style = [fsBold] + TextColor = clBlue + end + inherited grid_head_red: TcxStyle + Font.Height = -12 + end end inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList inherited dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel diff --git a/E02梭织经轴仓库/U_GetDllForm.pas b/E02梭织经轴仓库/U_GetDllForm.pas index c55330c..adac417 100644 --- a/E02梭织经轴仓库/U_GetDllForm.pas +++ b/E02梭织经轴仓库/U_GetDllForm.pas @@ -1,4 +1,3 @@ - unit U_GetDllForm; interface @@ -21,7 +20,9 @@ uses U_EmptyBeamInList, U_EmptyBeamOutList, U_EmptyBeamStkList, U_TatWBOutputList, U_TatWBOutputList1, U_WarpBeamQianList, U_TatWBOutputList_CZ, U_TatWBOutputList_SZ, U_TatWBOutputList_JT, U_TatWBOutputList_XB, - U_TatWBOutputList_XZ, U_TatOutputList1, U_TatWBPlan,U_TatWBNeedList; + U_TatWBOutputList_XZ, U_TatOutputList1, U_TatWBPlan, U_TatWBNeedList, + U_TatWBPlanZJZK,U_WBNeedHTList; + ///////////////////////////////////////////////////////////////// @@ -181,9 +182,21 @@ begin end; end; +// 113: //Ῠ +// begin +// with TfrmTatWBPlanCard.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; + 113: //Ῠ begin - with TfrmTatWBPlanCard.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do + with TfrmTatWBPlanZJZK.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do begin fFormID := FormID; FormStyle := mstyle; @@ -228,6 +241,17 @@ begin mnewHandle := Handle; end; end; + 132: //ͳƣͬ + begin + with TfrmWBNeedHTList.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; 211: // begin diff --git a/E02梭织经轴仓库/U_LogInput.dfm b/E02梭织经轴仓库/U_LogInput.dfm index 5113ff8..6c0369d 100644 --- a/E02梭织经轴仓库/U_LogInput.dfm +++ b/E02梭织经轴仓库/U_LogInput.dfm @@ -2,7 +2,7 @@ inherited frmLogInput: TfrmLogInput Left = 206 Top = 106 BorderIcons = [] - Caption = #25972#32463#24037#33402#26085#24535 + Caption = #20462#25913#26085#24535#35760#24405 ClientHeight = 536 ClientWidth = 1074 Color = clWhite @@ -96,6 +96,7 @@ inherited frmLogInput: TfrmLogInput Color = clWhite ParentBackground = False TabOrder = 1 + ExplicitTop = 24 object Label4: TLabel Left = 17 Top = 10 @@ -121,6 +122,7 @@ inherited frmLogInput: TfrmLogInput Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 + ExplicitTop = 71 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick Navigator.Buttons.CustomButtons = <> @@ -163,12 +165,12 @@ inherited frmLogInput: TfrmLogInput DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsView.GroupByBox = False - object Tv1C_Code: TcxGridDBColumn + object Tv1Acction: TcxGridDBColumn Caption = #25972#32463#24037#33402#32534#21495 DataBinding.FieldName = 'Acction' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 137 + Width = 153 end object Tv1Column1: TcxGridDBColumn Caption = #20462#25913#26085#26399 diff --git a/E02梭织经轴仓库/U_LogInput.pas b/E02梭织经轴仓库/U_LogInput.pas index 3b67125..c87485c 100644 --- a/E02梭织经轴仓库/U_LogInput.pas +++ b/E02梭织经轴仓库/U_LogInput.pas @@ -43,7 +43,7 @@ type Tv1Column1: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; - Tv1C_Code: TcxGridDBColumn; + Tv1Acction: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -62,9 +62,11 @@ type private canshu1, FSTKName, canshu3: string; procedure InitGrid(); + procedure SetStatus(); { Private declarations } public - fWB_Code,fFlag: string; + fWB_Code, fFlag, flogFlag: string; + { Public declarations } end; @@ -92,20 +94,35 @@ begin canshu3 := Trim(DParameters3); end; +procedure TfrmLogInput.SetStatus(); +begin + if flogFlag = 'Ϣ޸' then + begin + Tv1Acction.Caption := 'ձ'; + end + else if flogFlag = 'ƻϢ޸' then + begin + Tv1Acction.Caption := 'ƻ'; + end + else if flogFlag = 'ɴƻϢ޸' then + begin + Tv1Acction.Caption := 'ɴƻ'; + end; + +end; + procedure TfrmLogInput.InitGrid(); begin try ADOQueryMain.DisableControls; - - with ADOQueryMain do begin Filtered := False; Close; sql.Clear; sql.Add(' select * from sy_sysLog '); - sql.Add(' where Model = ' + QuotedStr(Trim('Ϣ޸'))); + sql.Add(' where Model = ' + QuotedStr(flogFlag)); if fFlag = '޸' then begin SQL.Add(' and 1=2') @@ -183,7 +200,7 @@ begin else Edit; RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'SY_sysLog', 0); - FieldByName('Model').Value := 'Ϣ޸'; + FieldByName('Model').Value := flogFlag; FieldByName('Result').Value := 'ɹ'; Post; end; @@ -196,7 +213,7 @@ end; procedure TfrmLogInput.TbSaveFormatClick(Sender: TObject); begin - WriteCxGrid(Self.Caption, Tv1, '־'); + WriteCxGrid(Self.Caption, Tv1, '޸־¼'); end; procedure TfrmLogInput.TbAddClick(Sender: TObject); @@ -268,7 +285,7 @@ end; procedure TfrmLogInput.FormShow(Sender: TObject); begin inherited; - ReadCxGrid(Self.Caption, Tv1, '־'); + ReadCxGrid(Self.Caption, Tv1, '޸־¼'); InitGrid(); if fFlag = '鿴' then begin @@ -276,7 +293,7 @@ begin TbDel.Visible := False; TbSave.Visible := false; end - else if fFlag = '޸' then + else if fFlag = '޸' then begin TBRafresh.Visible := False; TBFind.Visible := False; diff --git a/E02梭织经轴仓库/U_TatWBCardInPut2.dfm b/E02梭织经轴仓库/U_TatWBCardInPut2.dfm index 2e12dfb..b265455 100644 --- a/E02梭织经轴仓库/U_TatWBCardInPut2.dfm +++ b/E02梭织经轴仓库/U_TatWBCardInPut2.dfm @@ -154,6 +154,24 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 HeaderAlignmentHorz = taCenter Width = 114 end + object TV2XZZJ: TcxGridDBColumn + Caption = #25972#32463 + DataBinding.FieldName = 'XZZJ' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object TV2XZSJ: TcxGridDBColumn + Caption = #19978#27974 + DataBinding.FieldName = 'XZSJ' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 70 + end object TV2Column1: TcxGridDBColumn Caption = #25972#32463#21152#24037#37319#36141#32534#21495 DataBinding.FieldName = 'WBFtyNo' @@ -162,6 +180,19 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Options.Editing = False Width = 118 end + object TV2JZSJ: TcxGridDBColumn + Caption = #19978#27974 + DataBinding.FieldName = 'JZSJ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + object TV2JZSZ: TcxGridDBColumn + Caption = #19978#36724 + DataBinding.FieldName = 'JZSZ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object TV2Column5: TcxGridDBColumn Caption = #25972#32463#21152#24037#37319#36141#21333#20301 DataBinding.FieldName = 'WBFtyName' @@ -298,8 +329,6 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Height = 137 Align = alTop TabOrder = 2 - ExplicitLeft = 6 - ExplicitTop = 25 object Label2: TLabel Left = 263 Top = 102 @@ -1068,6 +1097,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 345 Top = 54 ParentColor = True + Properties.ReadOnly = True TabOrder = 2 Width = 120 end @@ -1076,6 +1106,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 106 Top = 181 ParentColor = True + Properties.ReadOnly = True TabOrder = 3 Width = 120 end @@ -1084,6 +1115,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 106 Top = 223 ParentColor = True + Properties.ReadOnly = True TabOrder = 4 Width = 120 end @@ -1092,6 +1124,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 345 Top = 434 ParentColor = True + Properties.ReadOnly = True TabOrder = 5 Width = 76 end @@ -1100,6 +1133,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 345 Top = 181 ParentColor = True + Properties.ReadOnly = True TabOrder = 6 Width = 120 end @@ -1108,6 +1142,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 345 Top = 223 ParentColor = True + Properties.ReadOnly = True TabOrder = 7 Width = 120 end @@ -1160,6 +1195,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Default = True Kind = bkEllipsis end> + Properties.ReadOnly = True Properties.OnButtonClick = GKBHPropertiesButtonClick TabOrder = 11 Width = 120 @@ -1178,6 +1214,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 106 Top = 139 ParentColor = True + Properties.ReadOnly = True TabOrder = 13 Width = 120 end @@ -1186,6 +1223,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 106 Top = 265 ParentColor = True + Properties.ReadOnly = True TabOrder = 14 Width = 120 end @@ -1194,6 +1232,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 106 Top = 307 ParentColor = True + Properties.ReadOnly = True TabOrder = 15 Width = 120 end @@ -1202,6 +1241,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 345 Top = 265 ParentColor = True + Properties.ReadOnly = True TabOrder = 16 Width = 120 end @@ -1210,6 +1250,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 345 Top = 307 ParentColor = True + Properties.ReadOnly = True TabOrder = 17 Width = 120 end @@ -1218,6 +1259,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 106 Top = 392 ParentColor = True + Properties.ReadOnly = True TabOrder = 18 Width = 79 end @@ -1226,6 +1268,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 345 Top = 392 ParentColor = True + Properties.ReadOnly = True TabOrder = 19 Width = 76 end @@ -1234,6 +1277,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 106 Top = 434 ParentColor = True + Properties.ReadOnly = True TabOrder = 20 Width = 79 end @@ -1242,6 +1286,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 105 Top = 476 ParentColor = True + Properties.ReadOnly = True TabOrder = 21 Width = 382 end @@ -1250,6 +1295,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 345 Top = 139 ParentColor = True + Properties.ReadOnly = True TabOrder = 22 Width = 120 end @@ -1257,6 +1303,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 345 Top = 565 ParentColor = True + Properties.ReadOnly = True TabOrder = 23 Width = 120 end @@ -1264,6 +1311,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 106 Top = 565 ParentColor = True + Properties.ReadOnly = True TabOrder = 24 Width = 120 end @@ -1272,6 +1320,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 106 Top = 520 ParentColor = True + Properties.ReadOnly = True TabOrder = 25 Width = 79 end @@ -1280,6 +1329,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Left = 354 Top = 520 ParentColor = True + Properties.ReadOnly = True TabOrder = 26 Width = 67 end diff --git a/E02梭织经轴仓库/U_TatWBCardInPut2.pas b/E02梭织经轴仓库/U_TatWBCardInPut2.pas index cb6afab..ed6feab 100644 --- a/E02梭织经轴仓库/U_TatWBCardInPut2.pas +++ b/E02梭织经轴仓库/U_TatWBCardInPut2.pas @@ -168,6 +168,10 @@ type Timer1: TTimer; Group: TcxTextEdit; Label55: TLabel; + TV2XZZJ: TcxGridDBColumn; + TV2XZSJ: TcxGridDBColumn; + TV2JZSJ: TcxGridDBColumn; + TV2JZSZ: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); procedure N2Click(Sender: TObject); @@ -346,10 +350,15 @@ begin Close; sql.Clear; sql.Add('select A.* '); + sql.Add(',cast((CASE WHEN EXISTS (SELECT 1 from Tat_WB_IO WHERE WBCID=A.WBCID AND StkName='''' AND ioFlag='''' AND ioType='''' ) THEN 1 ELSE 0 END) as bit) AS XZZJ'); + sql.Add(',cast((CASE WHEN EXISTS (SELECT 1 from Tat_WB_IO WHERE WBCID=A.WBCID AND StkName='''' AND ioFlag='''' AND ioType=''ӹ'' ) THEN 1 ELSE 0 END) as bit) AS XZSJ'); +// sql.Add(', cast(1 as bit) SJ'); + sql.Add(',cast((CASE WHEN EXISTS (SELECT 1 from Tat_Plan_OutPut WHERE PCID=A.WBCID AND GlideName=''Ͻ'' ) THEN 1 ELSE 0 END) as bit) AS JZSJ'); + sql.Add(',cast((CASE WHEN EXISTS (SELECT 1 from Tat_Plan_OutPut WHERE PCID=A.WBCID AND GlideName='''' ) THEN 1 ELSE 0 END) as bit) AS JZSZ'); sql.Add('from Tat_WB_Card A '); sql.Add('where isnull(Status,''0'')<>''-1'' and TWPId=' + quotedstr(Trim(FTWPId))); SQL.Add('AND WB_TYPE=' + quotedstr(Trim(FWB_Type))); - +// ShowMessage(SQL.Text); Open; end; SCreateCDS(ADOQueryTemp, CDS_Card); @@ -449,7 +458,7 @@ begin frmWBSpecSel := TfrmWBSpecSel.Create(Application); with frmWBSpecSel do begin - + fWB_TYPE := ''; if ShowModal = 1 then begin Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString); @@ -554,8 +563,17 @@ begin begin Group.Visible := True; Label55.Visible := True; + + TV2XZZJ.Visible := False; + TV2XZSJ.Visible := False; + end + else + begin + TV2JZSZ.Visible := False; + TV2JZSJ.Visible := False; end; + end; procedure TfrmTatWBCardInPut2.GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); @@ -695,7 +713,8 @@ begin sql.Add(',' + Quotedstr(Trim(WB_Name.Text))); if FWB_Type = 'ϡ' then begin - if (i = MCardQty) and (Z_ZHOUSHU2.Text <> '') and (Z_ZHOUSHU2.Text <> '0') then +// if (i = MCardQty) and (Z_ZHOUSHU2.Text <> '') and (Z_ZHOUSHU2.Text <> '0') then + if (i > StrToInt(Z_ZHOUSHU1.Text) ) and (Z_ZHOUSHU2.Text <> '') and (Z_ZHOUSHU2.Text <> '0') then begin sql.Add(',' + (Trim(Z_FJGENSHU.Text))); sql.Add(',' + (Trim(Z_SJKESHU2.Text))); diff --git a/E02梭织经轴仓库/U_TatWBNeedList.dfm b/E02梭织经轴仓库/U_TatWBNeedList.dfm index 611d0f2..e1bcacf 100644 --- a/E02梭织经轴仓库/U_TatWBNeedList.dfm +++ b/E02梭织经轴仓库/U_TatWBNeedList.dfm @@ -162,6 +162,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 + ExplicitTop = 115 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -266,7 +267,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList HeaderAlignmentHorz = taCenter Styles.Content = cxStyle1 Styles.Header = cxStyle1 - Width = 121 + Width = 124 end end object cxGrid1Level1: TcxGridLevel diff --git a/E02梭织经轴仓库/U_TatWBPlan.dfm b/E02梭织经轴仓库/U_TatWBPlan.dfm index 9e1a7f6..31a3444 100644 --- a/E02梭织经轴仓库/U_TatWBPlan.dfm +++ b/E02梭织经轴仓库/U_TatWBPlan.dfm @@ -6,7 +6,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan ClientWidth = 1540 Font.Height = -16 Position = poScreenCenter - ExplicitLeft = -689 ExplicitWidth = 1556 ExplicitHeight = 691 PixelsPerInch = 96 @@ -19,7 +18,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan Height = 38 AutoSize = True ButtonHeight = 38 - ButtonWidth = 91 + ButtonWidth = 115 Caption = 'ToolBar1' Color = clSkyBlue DisabledImages = DataLink_WarpBeamStk.ImageList_new32 @@ -34,6 +33,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan ParentFont = False ShowCaptions = True TabOrder = 5 + ExplicitTop = 4 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -130,16 +130,24 @@ inherited frmTatWBPlan: TfrmTatWBPlan ImageIndex = 20 OnClick = TBExportClick end - object ToolButton1: TToolButton + object TbLogLook: TToolButton Left = 900 Top = 0 AutoSize = True + Caption = #20462#25913#26085#24535#26597#30475 + ImageIndex = 8 + OnClick = TbLogLookClick + end + object ToolButton1: TToolButton + Left = 1019 + Top = 0 + AutoSize = True Caption = #20445#23384#26684#24335 ImageIndex = 16 OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 995 + Left = 1114 Top = 0 AutoSize = True Caption = #20851#38381 @@ -158,6 +166,8 @@ inherited frmTatWBPlan: TfrmTatWBPlan Color = clWhite ParentBackground = False TabOrder = 6 + ExplicitLeft = -1 + ExplicitTop = 44 object Label1: TLabel Left = 18 Top = 14 @@ -230,7 +240,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan object cxGrid1: TcxGrid [2] Left = 0 Top = 111 - Width = 974 + Width = 829 Height = 541 Align = alLeft TabOrder = 2 @@ -332,6 +342,27 @@ inherited frmTatWBPlan: TfrmTatWBPlan HeaderAlignmentHorz = taCenter Width = 71 end + object v1Column21: TcxGridDBColumn + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 92 + end + object Tv1C_CODE: TcxGridDBColumn + Caption = #22383#24067#32534#21495 + DataBinding.FieldName = 'C_CODE' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 87 + end + object Tv1WB_Name: TcxGridDBColumn + Caption = #32463#36724#24037#33402#21517#31216 + DataBinding.FieldName = 'WB_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 128 + end object v1Column19: TcxGridDBColumn Caption = #20132#36135#26085#26399 DataBinding.FieldName = 'DlyDate' @@ -342,26 +373,19 @@ inherited frmTatWBPlan: TfrmTatWBPlan HeaderAlignmentHorz = taCenter Width = 82 end - object v1Column21: TcxGridDBColumn - Caption = #21697#21517 - DataBinding.FieldName = 'C_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 92 - end object v1Column2: TcxGridDBColumn Caption = #24635#32463#26681#25968 DataBinding.FieldName = 'WB_YarnQty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 73 + Width = 85 end object v1Column6: TcxGridDBColumn Caption = #24635#31859#25968 DataBinding.FieldName = 'WB_YarnTotalLen' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 59 + Width = 68 end object v1PRTOrderQty: TcxGridDBColumn Caption = #39044#35745#36724#25968 @@ -370,12 +394,26 @@ inherited frmTatWBPlan: TfrmTatWBPlan HeaderAlignmentHorz = taCenter Width = 92 end + object Tv1WB_Qty_YJJZZS: TcxGridDBColumn + Caption = #35745#21010#31232#36724#20010#25968 + DataBinding.FieldName = 'WB_Qty_YJJZZS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 123 + end + object Tv1WB_Qty: TcxGridDBColumn + Caption = #35745#21010#32455#36724#25968 + DataBinding.FieldName = 'WB_Qty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 96 + end object v1Column7: TcxGridDBColumn Caption = #39044#35745#27974#26009#25104#26412 DataBinding.FieldName = 'SizingAgentCost' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 98 + Width = 122 end object v1Column4: TcxGridDBColumn Caption = #22791#27880 @@ -417,9 +455,9 @@ inherited frmTatWBPlan: TfrmTatWBPlan ClientRectTop = 30 end object Panel2: TPanel [4] - Left = 974 + Left = 829 Top = 111 - Width = 566 + Width = 711 Height = 541 Align = alClient Caption = 'Panel2' @@ -427,11 +465,13 @@ inherited frmTatWBPlan: TfrmTatWBPlan object cxGrid2: TcxGrid Left = 1 Top = 67 - Width = 564 + Width = 709 Height = 233 Align = alClient PopupMenu = PM_1 TabOrder = 0 + ExplicitLeft = -7 + ExplicitTop = 61 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -496,13 +536,12 @@ inherited frmTatWBPlan: TfrmTatWBPlan Options.Editing = False Width = 77 end - object TV1Column5: TcxGridDBColumn - Caption = #21697#21517 - DataBinding.FieldName = 'WB_Spec' + object TV2Group: TcxGridDBColumn + Caption = #32452#21495 + DataBinding.FieldName = 'Group' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 71 + Width = 80 end object V2Column3: TcxGridDBColumn Caption = #25972#32463#38271#24230 @@ -520,6 +559,20 @@ inherited frmTatWBPlan: TfrmTatWBPlan Options.Editing = False Width = 65 end + object TV2XZZJ: TcxGridDBColumn + Caption = #25972#32463 + DataBinding.FieldName = 'XZZJ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV2XZSJ: TcxGridDBColumn + Caption = #19978#27974 + DataBinding.FieldName = 'XZSJ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object TV1Column3: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' @@ -527,6 +580,22 @@ inherited frmTatWBPlan: TfrmTatWBPlan HeaderAlignmentHorz = taCenter Width = 146 end + object TV2JZSJ: TcxGridDBColumn + Caption = #19978#27974 + DataBinding.FieldName = 'JZSJ' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV2JZSZ: TcxGridDBColumn + Caption = #19978#36724 + DataBinding.FieldName = 'JZSZ' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Width = 80 + end end object cxGridLevel1: TcxGridLevel GridView = TV2 @@ -536,7 +605,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan Tag = 1 Left = 1 Top = 1 - Width = 564 + Width = 709 Height = 38 AutoSize = True ButtonHeight = 38 @@ -591,7 +660,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan object cxTabControl2: TcxTabControl Left = 1 Top = 39 - Width = 564 + Width = 709 Height = 28 Align = alTop Font.Charset = GB2312_CHARSET @@ -603,19 +672,21 @@ inherited frmTatWBPlan: TfrmTatWBPlan TabOrder = 2 Properties.CustomButtons.Buttons = <> Properties.Style = 6 - Properties.TabIndex = 1 + Properties.TabIndex = 0 Properties.Tabs.Strings = ( #31232#36724 #27974#36724) OnChange = cxTabControl2Change + ExplicitLeft = 6 + ExplicitTop = 33 ClientRectBottom = 30 - ClientRectRight = 564 + ClientRectRight = 709 ClientRectTop = 30 end object cxGrid3: TcxGrid Left = 1 Top = 300 - Width = 564 + Width = 709 Height = 240 Align = alBottom TabOrder = 3 diff --git a/E02梭织经轴仓库/U_TatWBPlan.pas b/E02梭织经轴仓库/U_TatWBPlan.pas index a2cf56c..6fd2c5d 100644 --- a/E02梭织经轴仓库/U_TatWBPlan.pas +++ b/E02梭织经轴仓库/U_TatWBPlan.pas @@ -66,7 +66,6 @@ type TV2: TcxGridDBTableView; cxGridDBColumn1: TcxGridDBColumn; V2Column4: TcxGridDBColumn; - TV1Column5: TcxGridDBColumn; V2Column3: TcxGridDBColumn; cxGridDBColumn15: TcxGridDBColumn; TV1Column3: TcxGridDBColumn; @@ -107,6 +106,16 @@ type frxBarCodeObject1: TfrxBarCodeObject; frxRichObject1: TfrxRichObject; frxOLEObject1: TfrxOLEObject; + Tv1WB_Name: TcxGridDBColumn; + Tv1WB_Qty_YJJZZS: TcxGridDBColumn; + Tv1WB_Qty: TcxGridDBColumn; + Tv1C_CODE: TcxGridDBColumn; + TV2XZZJ: TcxGridDBColumn; + TV2XZSJ: TcxGridDBColumn; + TV2Group: TcxGridDBColumn; + TV2JZSJ: TcxGridDBColumn; + TV2JZSZ: TcxGridDBColumn; + TbLogLook: TToolButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBFindClick(Sender: TObject); @@ -139,6 +148,7 @@ type procedure N5Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject); + procedure TbLogLookClick(Sender: TObject); private FInt, PFInt: Integer; @@ -159,7 +169,7 @@ implementation uses U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatWBPlanInPut, - U_TatWBCardInPut2, U_RPFun; //U_TatWBPlanCardInPut + U_TatWBCardInPut2, U_RPFun,U_LogInput; //U_TatWBPlanCardInPut {$R *.dfm} @@ -170,6 +180,11 @@ begin Close; sql.Clear; sql.Add('select A.* '); + sql.Add(',cast((CASE WHEN EXISTS (SELECT 1 from Tat_WB_IO WHERE WBCID=A.WBCID AND StkName='''' AND ioFlag='''' AND ioType='''' ) THEN 1 ELSE 0 END) as bit) AS XZZJ'); + sql.Add(',cast((CASE WHEN EXISTS (SELECT 1 from Tat_WB_IO WHERE WBCID=A.WBCID AND StkName='''' AND ioFlag='''' AND ioType=''ӹ'' ) THEN 1 ELSE 0 END) as bit) AS XZSJ'); + + sql.Add(',cast((CASE WHEN EXISTS (SELECT 1 from Tat_Plan_OutPut WHERE PCID=A.WBCID AND GlideName=''Ͻ'' ) THEN 1 ELSE 0 END) as bit) AS JZSJ'); + sql.Add(',cast((CASE WHEN EXISTS (SELECT 1 from Tat_Plan_OutPut WHERE PCID=A.WBCID AND GlideName='''' ) THEN 1 ELSE 0 END) as bit) AS JZSZ'); sql.Add(' from Tat_WB_Card A '); sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString))); case cxTabControl2.TabIndex of @@ -291,6 +306,7 @@ begin sql.Add('select A.* '); sql.Add(' from Tat_WB_Plan A '); sql.Add('where 1=1 '); + sql.Add(' and EXISTS (SELECT * FROM Tat_WB_Spec X where X.WB_Code = A.WB_Code and X.WB_TYPE = '''' )'); case cxTabControl1.TabIndex of 0: begin @@ -350,6 +366,22 @@ begin SInitCDSData(ADOQueryMain, CDS_1); end; +procedure TfrmTatWBPlan.TbLogLookClick(Sender: TObject); +begin + frmLogInput := TfrmLogInput.Create(Application); + with frmLogInput do + begin + fWB_Code := Self.CDS_1.FieldByName('TWPId').AsString; + fFlag := '鿴'; + flogFlag := 'ɴƻϢ޸'; + if ShowModal = 1 then + begin + + end; + end; + +end; + procedure TfrmTatWBPlan.TBNoEndClick(Sender: TObject); begin if CDS_1.IsEmpty then @@ -871,7 +903,29 @@ end; procedure TfrmTatWBPlan.cxTabControl2Change(Sender: TObject); begin + + case cxTabControl2.TabIndex of + 0: + begin + TV2XZZJ.Visible := True; + TV2XZSJ.Visible := True; + + TV2JZSJ.Visible := False; + TV2JZSZ.Visible := False; + end; + 1: + begin + TV2XZZJ.Visible := False; + TV2XZSJ.Visible := False; + + TV2JZSJ.Visible := True; + TV2JZSZ.Visible := True; + end; + + end; + InitCard(); + end; procedure TfrmTatWBPlan.C_NameKeyPress(Sender: TObject; var Key: Char); diff --git a/E02梭织经轴仓库/U_TatWBPlanCard.dfm b/E02梭织经轴仓库/U_TatWBPlanCard.dfm index b764fed..5b0667a 100644 --- a/E02梭织经轴仓库/U_TatWBPlanCard.dfm +++ b/E02梭织经轴仓库/U_TatWBPlanCard.dfm @@ -18,7 +18,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 107 + ButtonWidth = 131 Caption = 'ToolBar1' DisabledImages = DataLink_WarpBeamStk.cxImageList_bar Images = DataLink_WarpBeamStk.cxImageList_bar @@ -34,7 +34,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard OnClick = TBRafreshClick end object ToolButton5: TToolButton - Left = 63 + Left = 71 Top = 0 AutoSize = True Caption = #26032#22686 @@ -42,7 +42,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard OnClick = ToolButton5Click end object ToolButton6: TToolButton - Left = 126 + Left = 142 Top = 0 AutoSize = True Caption = #20462#25913 @@ -50,7 +50,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard OnClick = ToolButton6Click end object ToolButton3: TToolButton - Left = 189 + Left = 213 Top = 0 AutoSize = True Caption = #36724#21345#21024#38500 @@ -58,7 +58,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard OnClick = ToolButton3Click end object ToolButton4: TToolButton - Left = 276 + Left = 316 Top = 0 AutoSize = True Caption = #25972#32463#35745#21010#25171#21360 @@ -66,7 +66,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard OnClick = ToolButton4Click end object ToolButton1: TToolButton - Left = 387 + Left = 451 Top = 0 AutoSize = True Caption = #36724#21345#39044#35272 @@ -74,7 +74,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard OnClick = ToolButton1Click end object ToolButton7: TToolButton - Left = 474 + Left = 554 Top = 0 AutoSize = True Caption = #36724#21345#25171#21360 @@ -82,7 +82,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard OnClick = ToolButton7Click end object ToolButton2: TToolButton - Left = 561 + Left = 657 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -90,7 +90,7 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard OnClick = ToolButton2Click end object TBClose: TToolButton - Left = 648 + Left = 760 Top = 0 AutoSize = True Caption = #20851#38381 @@ -622,6 +622,8 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard Align = alClient PopupMenu = PopupMenu1 TabOrder = 4 + ExplicitLeft = 732 + ExplicitTop = 107 object Tv4: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -797,6 +799,8 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard Align = alBottom TabOrder = 5 Visible = False + ExplicitLeft = -1 + ExplicitTop = 512 object TabSheet1: TTabSheet Caption = #25972#32463#25195#25551#35760#24405 object cxGrid3: TcxGrid diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.dfm b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm index a54dc59..00efb77 100644 --- a/E02梭织经轴仓库/U_TatWBPlanInPut.dfm +++ b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm @@ -393,11 +393,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut TabOrder = 2 OnDblClick = gynoDblClick object Label3: TLabel - Left = 756 - Top = 14 - Width = 48 + Left = 708 + Top = 8 + Width = 80 Height = 21 - Caption = #21697#21517#65306 + Caption = #22383#24067#21517#31216#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -16 @@ -420,7 +420,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut end object Label47: TLabel Left = 521 - Top = 16 + Top = 8 Width = 48 Height = 21 Caption = #23458#25143#65306 @@ -738,11 +738,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut ParentFont = False end object Label10: TLabel - Left = 940 - Top = 14 - Width = 48 + Left = 921 + Top = 8 + Width = 80 Height = 21 - Caption = #32534#21495#65306 + Caption = #22383#24067#32534#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -16 @@ -920,8 +920,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut ParentFont = False end object C_NAME: TEdit - Left = 807 - Top = 8 + Left = 788 + Top = 5 Width = 120 Height = 27 Font.Charset = GB2312_CHARSET @@ -1297,7 +1297,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Width = 120 end object CustName: TcxButtonEdit - Left = 627 + Left = 579 Top = 5 ParentFont = False Properties.Buttons = < @@ -1335,8 +1335,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Width = 120 end object C_CODE: TEdit - Left = 991 - Top = 8 + Left = 999 + Top = 5 Width = 120 Height = 27 Font.Charset = GB2312_CHARSET diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.pas b/E02梭织经轴仓库/U_TatWBPlanInPut.pas index beb9fb9..c29255f 100644 --- a/E02梭织经轴仓库/U_TatWBPlanInPut.pas +++ b/E02梭织经轴仓库/U_TatWBPlanInPut.pas @@ -169,7 +169,7 @@ implementation uses U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_YarnInfoSel, U_TatPlanSel2, - U_WBSpecSel, U_GKManageSel, U_WeaveSel, U_YarnStkSel; + U_WBSpecSel, U_GKManageSel, U_WeaveSel, U_YarnStkSel,U_LogInput; {$R *.dfm} @@ -354,6 +354,32 @@ var begin try ADOQueryCmd.Connection.BeginTrans; + + + try + if FTWPId <> '' then + begin + + frmLogInput := TfrmLogInput.Create(Application); + with frmLogInput do + begin + fWB_Code := Self.TWPId.Text; + flogFlag := 'ɴƻϢ޸';//־Modelֶ + fFlag := '޸'; + + if ShowModal = 1 then + begin + + end; + end; + + end; + finally + frmLogInput.Free; + end; + + + if Trim(FTWPId) = '' then begin if GetLSNo(ADOQueryCmd, maxno, 'JS', 'Tat_WB_Plan', 4, 1) = False then @@ -675,7 +701,7 @@ begin frmWBSpecSel := TfrmWBSpecSel.Create(Application); with frmWBSpecSel do begin - + fWB_TYPE := ''; if ShowModal = 1 then begin diff --git a/E02梭织经轴仓库/U_TatWBPlanZJZK.dfm b/E02梭织经轴仓库/U_TatWBPlanZJZK.dfm new file mode 100644 index 0000000..5ad835d --- /dev/null +++ b/E02梭织经轴仓库/U_TatWBPlanZJZK.dfm @@ -0,0 +1,1046 @@ +inherited frmTatWBPlanZJZK: TfrmTatWBPlanZJZK + Left = 249 + Top = 194 + Caption = #25972#32463#36724#21345#23433#25490 + ClientHeight = 652 + ClientWidth = 1540 + Font.Height = -16 + Position = poScreenCenter + ExplicitLeft = -689 + ExplicitWidth = 1556 + ExplicitHeight = 691 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 115 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_WarpBeamStk.ImageList_new32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_WarpBeamStk.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 5 + 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 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 9 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 3 + OnClick = TBEditClick + end + object TBPrint: TToolButton + Left = 284 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + OnClick = TBPrintClick + end + object TBView: TToolButton + Left = 355 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 4 + OnClick = TBViewClick + end + object TBDel: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + OnClick = TBDelClick + end + object btnChk: TToolButton + Left = 497 + Top = 0 + AutoSize = True + Caption = #24320#22987 + ImageIndex = 20 + OnClick = btnChkClick + end + object btnReChk: TToolButton + Left = 568 + Top = 0 + AutoSize = True + Caption = #25764#38144#24320#22987 + ImageIndex = 11 + OnClick = btnReChkClick + end + object TBEnd: TToolButton + Left = 663 + Top = 0 + AutoSize = True + Caption = #32467#26463 + ImageIndex = 20 + OnClick = TBEndClick + end + object TBNoEnd: TToolButton + Left = 734 + Top = 0 + AutoSize = True + Caption = #25764#38144#32467#26463 + ImageIndex = 11 + OnClick = TBNoEndClick + end + object TBExport: TToolButton + Left = 829 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object TbLogLook: TToolButton + Left = 900 + Top = 0 + AutoSize = True + Caption = #20462#25913#26085#24535#26597#30475 + ImageIndex = 8 + OnClick = TbLogLookClick + end + object ToolButton1: TToolButton + Left = 1019 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 1114 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1540 + Height = 45 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 6 + object Label1: TLabel + Left = 18 + Top = 14 + Width = 64 + Height = 21 + Caption = #30331#35760#26085#26399 + end + object Label2: TLabel + Left = 202 + Top = 14 + Width = 21 + Height = 21 + Caption = '---' + end + object Label7: TLabel + Left = 341 + Top = 14 + Width = 32 + Height = 21 + Caption = #23458#25143 + end + object Label3: TLabel + Left = 491 + Top = 14 + Width = 48 + Height = 21 + Caption = #32463#35268#26684 + end + object BegDate: TDateTimePicker + Left = 86 + Top = 10 + Width = 112 + Height = 29 + Date = 44378.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.464742650459811600 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 227 + Top = 10 + Width = 110 + Height = 29 + Date = 40675.000000000000000000 + Format = 'yyyy-MM-dd' + Time = 0.464761099538009100 + TabOrder = 1 + end + object CustName: TEdit + Tag = 2 + Left = 377 + Top = 10 + Width = 110 + Height = 29 + TabOrder = 2 + OnChange = ConNoChange + OnKeyPress = CustNameKeyPress + end + object WB_Spec: TEdit + Tag = 2 + Left = 543 + Top = 10 + Width = 110 + Height = 29 + TabOrder = 3 + OnChange = ConNoChange + OnKeyPress = CustNameKeyPress + end + end + object cxGrid1: TcxGrid [2] + Left = 0 + Top = 111 + Width = 974 + Height = 541 + Align = alLeft + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + Column = v1Column6 + end + item + Kind = skSum + Column = v1Column6 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column6 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsSelection.CellSelect = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object Tv1Column2: TcxGridDBColumn + Caption = #35745#21010#21333#21495 + DataBinding.FieldName = 'TWPId' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1Column31: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 87 + end + object v1Column5: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'FillTIme' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end + object v1Column19: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v1Column21: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v1Column2: TcxGridDBColumn + Caption = #24635#32463#26681#25968 + DataBinding.FieldName = 'WB_YarnQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 88 + end + object v1Column6: TcxGridDBColumn + Caption = #24635#31859#25968 + DataBinding.FieldName = 'WB_YarnTotalLen' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #39044#35745#36724#25968 + DataBinding.FieldName = 'WB_Qty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 92 + end + object v1Column7: TcxGridDBColumn + Caption = #39044#35745#27974#26009#25104#26412 + DataBinding.FieldName = 'SizingAgentCost' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 122 + end + object v1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'OrdNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl [3] + Left = 0 + Top = 83 + Width = 1540 + Height = 28 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 3 + Properties.CustomButtons.Buttons = <> + Properties.Style = 6 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #24453#24320#22987 + #24050#24320#22987 + #24050#32467#26463 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 30 + ClientRectRight = 1540 + ClientRectTop = 30 + end + object Panel2: TPanel [4] + Left = 974 + Top = 111 + Width = 566 + Height = 541 + Align = alClient + Caption = 'Panel2' + TabOrder = 4 + object ToolBar2: TToolBar + Tag = 1 + Left = 1 + Top = 1 + Width = 564 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_WarpBeamStk.ImageList_new32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_WarpBeamStk.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object ToolButton2: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #24320#21345 + ImageIndex = 2 + OnClick = ToolButton2Click + end + object ToolButton4: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #25171#21360#39044#35272 + ImageIndex = 21 + OnClick = ToolButton4Click + end + object ToolButton5: TToolButton + Left = 166 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + OnClick = ToolButton5Click + end + object ToolButton3: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 0 + OnClick = ToolButton3Click + end + end + object cxGrid4: TcxGrid + Left = 1 + Top = 39 + Width = 564 + Height = 501 + Align = alClient + TabOrder = 1 + object Tv4: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn43 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object Tv4Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object Tv4Column2: TcxGridDBColumn + Caption = #32463#36724#31867#22411 + DataBinding.FieldName = 'WB_ProcessType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #36724#21345#21495 + DataBinding.FieldName = 'WBCID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #25972#32463#26426#21495 + DataBinding.FieldName = 'WB_MachNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object cxGridDBColumn37: TcxGridDBColumn + Caption = #25972#32463#24037 + DataBinding.FieldName = 'WB_Macher' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object cxGridDBColumn38: TcxGridDBColumn + Caption = #24320#21345#26102#38388 + DataBinding.FieldName = 'Filltime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object cxGridDBColumn39: TcxGridDBColumn + Caption = #32463#36724#31867#22411 + DataBinding.FieldName = 'WB_ProcessType' + DataBinding.IsNullValueType = True + Width = 80 + end + object cxGridDBColumn40: TcxGridDBColumn + Caption = #30424#22836#35268#26684 + DataBinding.FieldName = 'WBType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object cxGridDBColumn41: TcxGridDBColumn + Caption = #25152#23646#21333#20301#21517#31216 + DataBinding.FieldName = 'WBBelongCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 132 + end + object cxGridDBColumn42: TcxGridDBColumn + Caption = #21152#24037#37319#36141#21333#20301 + DataBinding.FieldName = 'WBFtyName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 142 + end + object cxGridDBColumn43: TcxGridDBColumn + Caption = #25972#32463#38271#24230 + DataBinding.FieldName = 'WB_YarnLen' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object cxGridDBColumn44: TcxGridDBColumn + Caption = #30424#22836#25152#23646 + DataBinding.FieldName = 'WBBelong' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 105 + end + object Tv4Column3: TcxGridDBColumn + Caption = #21152#24037#31867#22411 + DataBinding.Expression = #1'jgType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object cxGridDBColumn35: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 146 + end + end + object cxGridLevel4: TcxGridLevel + GridView = Tv4 + end + end + object cxGrid2: TcxGrid + Left = 1 + Top = 39 + Width = 564 + Height = 501 + Align = alClient + TabOrder = 2 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn11 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #32463#36724#31867#22411 + DataBinding.FieldName = 'WB_ProcessType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #36724#21345#21495 + DataBinding.FieldName = 'WBCID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25972#32463#26426#21495 + DataBinding.FieldName = 'WB_MachNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 96 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25972#32463#24037 + DataBinding.FieldName = 'WB_Macher' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #24320#21345#26102#38388 + DataBinding.FieldName = 'Filltime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #32463#36724#31867#22411 + DataBinding.FieldName = 'WB_ProcessType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #30424#22836#35268#26684 + DataBinding.FieldName = 'WBType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #25152#23646#21333#20301#21517#31216 + DataBinding.FieldName = 'WBBelongCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 132 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21152#24037#37319#36141#21333#20301 + DataBinding.FieldName = 'WBFtyName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 142 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #25972#32463#38271#24230 + DataBinding.FieldName = 'WB_YarnLen' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #30424#22836#25152#23646 + DataBinding.FieldName = 'WBBelong' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 105 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #21152#24037#31867#22411 + DataBinding.Expression = #1'jgType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 146 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + inherited cxProgressBar2: TcxProgressBar + Left = 280 + Top = 224 + ExplicitLeft = 280 + ExplicitTop = 224 + ExplicitHeight = 29 + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Left = 214 + Top = 216 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Left = 89 + Top = 217 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 525 + Top = 318 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Parameters = <> + Left = 503 + Top = 190 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 399 + Top = 194 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 605 + Top = 191 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 650 + Top = 319 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 584 + Top = 318 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 646 + Top = 423 + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 585 + Top = 422 + end + object GPM_2: TcxGridPopupMenu + PopupMenus = <> + Left = 531 + Top = 423 + end + object DS_3: TDataSource + DataSet = CDS_3 + Left = 644 + Top = 514 + end + object CDS_3: TClientDataSet + Aggregates = <> + Params = <> + Left = 590 + Top = 512 + end + object GPM_3: TcxGridPopupMenu + PopupMenus = <> + Left = 533 + Top = 516 + end + object ADO_2: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 440 + Top = 425 + end + object ADO_3: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 445 + Top = 512 + end + object PM_1: TPopupMenu + Left = 777 + Top = 304 + object N5: TMenuItem + Caption = #20840#36873 + OnClick = N5Click + end + object N6: TMenuItem + Caption = #20840#24323 + OnClick = N6Click + end + end + object frxXLSExport1: TfrxXLSExport + UseFileCache = True + ShowProgress = True + OverwritePrompt = False + DataOnly = False + ExportEMF = True + AsText = False + Background = True + FastExport = True + PageBreaks = True + EmptyLines = True + SuppressPageHeadersFooters = False + Left = 877 + Top = 429 + end + object frxXLSXExport1: TfrxXLSXExport + UseFileCache = True + ShowProgress = True + OverwritePrompt = False + DataOnly = False + ChunkSize = 0 + OpenAfterExport = False + PictureType = gpPNG + Left = 796 + Top = 429 + end + object frxPPTXExport1: TfrxPPTXExport + UseFileCache = True + ShowProgress = True + OverwritePrompt = False + DataOnly = False + OpenAfterExport = False + PictureType = gpPNG + Left = 777 + Top = 364 + end + object frxReportTableObject1: TfrxReportTableObject + Left = 865 + Top = 348 + end + object frxReport1: TfrxReport + Version = '6.9.12' + DataSet = fRMDB_1 + DataSetName = 'frxDBDataset1' + DotMatrixReport = False + IniFile = '\Software\Fast Reports' + PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick, pbCopy, pbSelection] + PreviewOptions.Zoom = 1.000000000000000000 + PrintOptions.Printer = 'Default' + PrintOptions.PrintOnSheet = 0 + ReportOptions.CreateDate = 45471.682319444440000000 + ReportOptions.LastChange = 45471.682319444440000000 + ScriptLanguage = 'PascalScript' + ScriptText.Strings = ( + 'begin' + '' + 'end.') + ShowProgress = False + Left = 841 + Top = 289 + Datasets = <> + Variables = <> + Style = <> + object Data: TfrxDataPage + Height = 1000.000000000000000000 + Width = 1000.000000000000000000 + end + object Page1: TfrxReportPage + PaperWidth = 70.000000000000000000 + PaperHeight = 50.000000000000000000 + PaperSize = 256 + LeftMargin = 10.000000000000000000 + RightMargin = 10.000000000000000000 + TopMargin = 10.000000000000000000 + BottomMargin = 10.000000000000000000 + Frame.Typ = [] + MirrorMode = [] + end + end + object fRMDB_1: TfrxDBDataset + UserName = 'frxDBDataset1' + CloseDataSource = False + BCDToCurrency = False + Left = 882 + Top = 251 + end + object frxBarCodeObject1: TfrxBarCodeObject + Left = 1025 + Top = 284 + end + object frxRichObject1: TfrxRichObject + Left = 985 + Top = 356 + end + object frxOLEObject1: TfrxOLEObject + Left = 945 + Top = 412 + end +end diff --git a/E02梭织经轴仓库/U_TatWBPlanZJZK.pas b/E02梭织经轴仓库/U_TatWBPlanZJZK.pas new file mode 100644 index 0000000..75aa1b0 --- /dev/null +++ b/E02梭织经轴仓库/U_TatWBPlanZJZK.pas @@ -0,0 +1,902 @@ +unit U_TatWBPlanZJZK; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class, + RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, + cxPC, cxCheckBox, dxScrollbarAnnotations, Vcl.Menus, cxContainer, + cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White, + dxSkinSharpPlus, dxSkinWXI, frxOLE, frxRich, frxBarcode, frxClass, frxDBSet, + frxTableObject, frxExportPPTX, frxExportXLSX, frxExportBaseDialog, + frxExportXLS; + +type + TfrmTatWBPlanZJZK = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBDel: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + Label1: TLabel; + Label2: TLabel; + GPM_1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + TBExport: TToolButton; + CDS_1: TClientDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column2: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + v1Column6: TcxGridDBColumn; + v1Column7: TcxGridDBColumn; + TBView: TToolButton; + v1Column19: TcxGridDBColumn; + v1Column21: TcxGridDBColumn; + v1Column31: TcxGridDBColumn; + CustName: TEdit; + Label7: TLabel; + cxTabControl1: TcxTabControl; + Tv1Column2: TcxGridDBColumn; + TBEnd: TToolButton; + TBNoEnd: TToolButton; + ToolButton1: TToolButton; + btnChk: TToolButton; + btnReChk: TToolButton; + Panel2: TPanel; + ToolBar2: TToolBar; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + DS_2: TDataSource; + CDS_2: TClientDataSet; + GPM_2: TcxGridPopupMenu; + Label3: TLabel; + WB_Spec: TEdit; + ToolButton4: TToolButton; + DS_3: TDataSource; + CDS_3: TClientDataSet; + GPM_3: TcxGridPopupMenu; + ADO_2: TADOQuery; + ADO_3: TADOQuery; + PM_1: TPopupMenu; + N5: TMenuItem; + N6: TMenuItem; + ToolButton5: TToolButton; + frxXLSExport1: TfrxXLSExport; + frxXLSXExport1: TfrxXLSXExport; + frxPPTXExport1: TfrxPPTXExport; + frxReportTableObject1: TfrxReportTableObject; + frxReport1: TfrxReport; + fRMDB_1: TfrxDBDataset; + frxBarCodeObject1: TfrxBarCodeObject; + frxRichObject1: TfrxRichObject; + frxOLEObject1: TfrxOLEObject; + cxGrid4: TcxGrid; + Tv4: TcxGridDBTableView; + Tv4Column1: TcxGridDBColumn; + Tv4Column2: TcxGridDBColumn; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridDBColumn37: TcxGridDBColumn; + cxGridDBColumn38: TcxGridDBColumn; + cxGridDBColumn39: TcxGridDBColumn; + cxGridDBColumn40: TcxGridDBColumn; + cxGridDBColumn41: TcxGridDBColumn; + cxGridDBColumn42: TcxGridDBColumn; + cxGridDBColumn43: TcxGridDBColumn; + cxGridDBColumn44: TcxGridDBColumn; + Tv4Column3: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + TbLogLook: TToolButton; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBViewClick(Sender: TObject); + procedure OrdTypeChange(Sender: TObject); + procedure C_CodeKeyPress(Sender: TObject; var Key: Char); + procedure BatchNoHZKeyPress(Sender: TObject; var Key: Char); + procedure CustNameKeyPress(Sender: TObject; var Key: Char); + procedure C_NameKeyPress(Sender: TObject; var Key: Char); + procedure cxTabControl1Change(Sender: TObject); + procedure TBEndClick(Sender: TObject); + procedure TBNoEndClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure btnChkClick(Sender: TObject); + procedure btnReChkClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure cxTabControl2Change(Sender: TObject); + procedure TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure ToolButton3Click(Sender: TObject); + procedure N5Click(Sender: TObject); + procedure N6Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure TbLogLookClick(Sender: TObject); + + private + FInt, PFInt: Integer; + procedure InitGrid(); + procedure InitCard(); + procedure InitCardYarn(); + procedure InitForm(); +// procedure PrintCar(MPCID: string); + function DelData(): Boolean; + procedure InitButton(); + { Private declarations } + public + canshu1, FCheJian: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatWBPlanInPut,U_TatWBCardInPut, + U_TatWBPlanZJZKInPut,U_TatWBPlanZJZKKaiKa , + U_TatWBCardInPut2, U_RPFun,U_LogInput; //U_TatWBPlanCardInPut + +{$R *.dfm} + +procedure TfrmTatWBPlanZJZK.InitCard(); +begin + with ADO_2 do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from Tat_WB_Card A '); + sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString))); + sql.Add(' and WB_Type <> '''' and WB_Type <> ''ϡ'' '); + Open; + end; + SCreateCDS(ADO_2, CDS_2); + SInitCDSData(ADO_2, CDS_2); +end; + +procedure TfrmTatWBPlanZJZK.InitCardYarn(); +begin + + with ADO_3 do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from Tat_WB_Card_Yarn A '); + sql.Add('where WBCID=' + quotedstr(trim(CDS_2.fieldbyname('WBCID').AsString))); + + Open; + end; + SCreateCDS(ADO_3, CDS_3); + SInitCDSData(ADO_3, CDS_3); +end; + +procedure TfrmTatWBPlanZJZK.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmTatWBPlanZJZK.InitButton(); +begin + + TBAdd.Enabled := False; + TBEdit.Enabled := False; + TBDel.Enabled := False; + TBEnd.Enabled := False; + TBNoEnd.Enabled := False; + btnChk.Enabled := False; + btnReChk.Enabled := False; + if Trim(canshu1) = '¼' then + begin + case cxTabControl1.TabIndex of + 0: + begin + TBAdd.Enabled := true; + TBDel.Enabled := true; + TBEdit.Enabled := true; + btnChk.Enabled := true; + + end; + 1: + begin + TBAdd.Enabled := true; + TBEnd.Enabled := true; + TBEdit.Enabled := true; + btnReChk.Enabled := true; + end; + 2: + begin + TBNoEnd.Enabled := true; + end; + end; + end; + + if Trim(canshu1) = '' then + begin + case cxTabControl1.TabIndex of + 0: + begin + TBAdd.Enabled := true; + TBDel.Enabled := true; + TBEdit.Enabled := true; + btnChk.Enabled := true; + end; + 1: + begin + TBAdd.Enabled := true; + TBEnd.Enabled := true; + TBEdit.Enabled := true; + btnReChk.Enabled := true; + end; + 2: + begin + TBNoEnd.Enabled := true; + end; + end; + end; + +end; + +procedure TfrmTatWBPlanZJZK.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmTatWBPlanZJZK.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add(' from Tat_WB_Plan A '); + sql.Add('where 1=1 '); + sql.Add(' and EXISTS (SELECT * FROM Tat_WB_Spec X where X.WB_Code = A.WB_Code and X.WB_TYPE = '''' )'); + case cxTabControl1.TabIndex of + 0: + begin + sql.Add('and isnull(Status,''0'') =''0'' '); + end; + 1: + begin + sql.Add('and isnull(Status,''0'') =''9'' '); + end; + 2: + begin + sql.Add('and isnull(Status,''0'') =''10'' '); + sql.Add(' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''''); + sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + ''''); + end; + end; + + sql.add('order by A.FILLTIME DESC'); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmTatWBPlanZJZK.N5Click(Sender: TObject); +begin + SelOKNo(CDS_2, True); +end; + +procedure TfrmTatWBPlanZJZK.N6Click(Sender: TObject); +begin + SelOKNo(CDS_2, False); +end; + +procedure TfrmTatWBPlanZJZK.InitForm(); +begin + ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ῠ'); + ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'Ῠ'); +// ReadCxGrid(trim(self.Caption) + 'Tv3', Tv3, ''); + BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 30; + EndDate.DateTime := SGetServerDate(ADOQueryTemp); + InitButton(); + InitGrid(); +end; + +procedure TfrmTatWBPlanZJZK.TBFindClick(Sender: TObject); +begin + TBRafresh.Click; + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); +end; + +procedure TfrmTatWBPlanZJZK.TbLogLookClick(Sender: TObject); +begin + frmLogInput := TfrmLogInput.Create(Application); + with frmLogInput do + begin + fWB_Code := Self.CDS_1.FieldByName('TWPId').AsString; + fFlag := '鿴'; + flogFlag := 'ƻϢ޸'; + if ShowModal = 1 then + begin + + end; + end; + +end; + +procedure TfrmTatWBPlanZJZK.TBNoEndClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Tat_WB_Plan SET status=''0'',Comper=null,Comptime=null '); + sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString))); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim(''))); + sql.Add(',' + quotedstr(trim('ƻţ' + trim(CDS_1.FieldByName('TWPId').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTatWBPlanZJZK.TBEditClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ɴƻ޸'))); + sql.Add(',' + quotedstr(trim('ƻţ' + trim(CDS_1.FieldByName('TWPId').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + + try + frmTatWBPlanInPut := TfrmTatWBPlanInPut.Create(Application); + with frmTatWBPlanInPut do + begin + PState := 1; + FTWPId := Trim(Self.CDS_1.fieldbyname('TWPId').AsString); + if ShowModal = 1 then + begin + InitGrid(); + Self.CDS_1.Locate('TWPId', frmTatWBPlanInPut.FTWPId, []); + end; + end; + finally + frmTatWBPlanInPut.Free; + end; +end; + +procedure TfrmTatWBPlanZJZK.TBEndClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Tat_WB_Plan SET status=''10'' ,Comper=''' + trim(DName) + ''',Comptime=getdate() '); + sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString))); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim(''))); + sql.Add(',' + quotedstr(trim('ƻţ' + trim(CDS_1.FieldByName('TWPId').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTatWBPlanZJZK.TBDelClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + with ADOQueryTemp do + begin + Close; + sql.Clear; + SQL.Add('select A.*'); + sql.Add('from Tat_WB_CARD A'); + sql.Add(' where A.WBCNO=''' + Trim(CDS_1.fieldbyname('TWPId').AsString) + ''''); + Open; + end; + if ADOQueryTemp.IsEmpty = False then + begin + Application.MessageBox('Ѳݲɾ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if DelData() then + begin + CDS_1.Delete; + end; +end; + +function TfrmTatWBPlanZJZK.DelData(): Boolean; +begin + try + Result := false; + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Tat_WB_Plan where TWPId=''' + Trim(CDS_1.fieldbyname('TWPId').AsString) + ''''); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ɾ'))); + sql.Add(',' + quotedstr(trim('ƻţ' + trim(CDS_1.FieldByName('TWPId').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result := False; + Application.MessageBox('ɾ쳣', 'ʾ', 0); + end; +end; + +procedure TfrmTatWBPlanZJZK.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel('', cxGrid1); +end; + +procedure TfrmTatWBPlanZJZK.TBPrintClick(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + WSql := Trim(CDS_1.fieldbyname('TWPId').AsString); + + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TatWBPlan'; + FFiltration1 := WSql; + FFiltration2 := WSql; + FFiltration3 := WSql; + if ShowModal = 1 then + begin +// Self.InitGrid(); + end; + end; + finally + frmLabelPrint.Free; + end; + +end; + +procedure TfrmTatWBPlanZJZK.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTatWBPlanZJZK.TBAddClick(Sender: TObject); +begin + try + frmTatWBPlanZJZKInPut := TfrmTatWBPlanZJZKInPut.Create(Application); + with frmTatWBPlanZJZKInPut do + begin + PState := 0; + FTWPId := ''; + FSubId := ''; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmTatWBPlanZJZKInPut.Free; + end; +end; + +procedure TfrmTatWBPlanZJZK.ConNoChange(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); +end; + +procedure TfrmTatWBPlanZJZK.FormShow(Sender: TObject); +begin + inherited; + canshu1 := Self.fParameters1; + InitForm(); + +end; + +procedure TfrmTatWBPlanZJZK.TBViewClick(Sender: TObject); +begin + try + frmTatWBPlanInPut := TfrmTatWBPlanInPut.Create(Application); + with frmTatWBPlanInPut do + begin + PState := 1; + FTWPId := Trim(Self.CDS_1.fieldbyname('TWPId').AsString); + TBSave.Visible := False; + ToolBar3.Visible := False; + ScrollBox1.Enabled := False; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTatWBPlanInPut.Free; + end; +end; + +procedure TfrmTatWBPlanZJZK.ToolButton1Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ῠ'); + WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'Ῠ'); +// WriteCxGrid(trim(self.Caption) + 'Tv3', Tv3, ''); +end; + +procedure TfrmTatWBPlanZJZK.ToolButton2Click(Sender: TObject); +begin + + try + frmTatWBPlanZJZKKaiKa := TfrmTatWBPlanZJZKKaiKa.Create(Application); + with frmTatWBPlanZJZKKaiKa do + begin + FTWPId := Trim(self.CDS_1.fieldbyname('TWPId').AsString); + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmTatWBPlanZJZKKaiKa.Free; + end; +end; + +procedure TfrmTatWBPlanZJZK.ToolButton3Click(Sender: TObject); +var + rtvalues: TArray; +begin + if CDS_2.IsEmpty then + Exit; + Tv2.OnFocusedRecordChanged := nil; + if CDS_2.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + rtvalues := SelCDSKey(CDS_2, ['WBCID']); + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + Sql.Clear; + Sql.Add('exec P_TatWB_Card_Del '); + Sql.Add('@WBCIDS=' + quotedstr(Trim(rtvalues[0]))); + Sql.Add(',@DCode=' + Quotedstr(DCode)); + Sql.Add(',@DName=' + Quotedstr(DName)); + Open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + begin + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + end; + ADOQueryCmd.Connection.CommitTrans; + InitCard(); + application.MessageBox('ɾɹ', 'ʾϢ'); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; +end; + +procedure TfrmTatWBPlanZJZK.ToolButton4Click(Sender: TObject); +var + RTValues: TArray; +begin + if CDS_2.IsEmpty then + Exit; + + RTValues := SelCDSKey(CDS_2, ['WBCID']); + + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FPreviewPrint := False; +// case cxTabControl2.TabIndex of +// 0: +// begin +// FLMType := 'TatWBCard1'; +// end; +// 1: +// begin +// FLMType := 'TatWBCard2'; +// end; +// end; + FFiltration1 := RTValues[0]; + if ShowModal = 1 then + begin +// Self.InitGrid(); +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add('update Tat_WB_Card '); +// sql.Add(' set PRTer=' + quotedstr(DName)); +// sql.Add(', PRTCount=PRTCount+1'); +// sql.Add(', PRTDate=getdate()'); +// sql.Add(' where WBCID in (' + WSql + ')'); +// ExecSQL; +// end; + end; + end; + finally + frmLabelPrint.Free; + end; + +end; + +procedure TfrmTatWBPlanZJZK.ToolButton5Click(Sender: TObject); +var + i: integer; + MPCID: string; + MPrintJson: string; +begin + + if CDS_2.IsEmpty then + Exit; + if CDS_2.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + i := 0; + with CDS_2 do + begin + DisableControls; + First; + while not Eof do + begin + if Fieldbyname('Ssel').AsBoolean then + begin + if i = 0 then + MPCID := trim(CDS_2.fieldbyname('WBCID').AsString); +// PrintCar(trim(CDS_2.fieldbyname('PCID').AsString)); + MPrintJson := '{ "LBName": "ϽῨ","IsPreview": false, "PrtArgs": [ {"SqlStr": "EXEC P_TatWB_JZCard_Prt @Filtration=' + QuotedStr(MPCID) + ' " }, {"SqlStr": "EXEC P_TatWB_JZCard_Prt2 @Filtration=' + QuotedStr(MPCID) + '" } ] }'; +// ShowMessage(MPrintJson); + FunPrintRmf(Application, PChar(DConString), PChar(MPrintJson)); + i := i + 1; + end; + Next; + end; + EnableControls; + end; + SelOKNoFiler(Tv2, False); + CDS_2.Locate('WBCID', MPCID, []); +end; + +procedure TfrmTatWBPlanZJZK.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + InitCard(); +end; + +procedure TfrmTatWBPlanZJZK.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + InitCardYarn(); +end; + +procedure TfrmTatWBPlanZJZK.btnChkClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Tat_WB_Plan SET status=''9'',chker=''' + trim(DName) + ''',Chktime=getdate() '); + sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString))); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ʼ'))); + sql.Add(',' + quotedstr(trim('ƻţ' + trim(CDS_1.FieldByName('TWPId').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + application.MessageBox('ʼɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ʼʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTatWBPlanZJZK.btnReChkClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + exit; + + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Tat_WB_Plan SET status=''0'',chker=null,Chktime=null '); + sql.Add('where TWPId=' + quotedstr(trim(CDS_1.fieldbyname('TWPId').AsString))); + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ʼ'))); + sql.Add(',' + quotedstr(trim('ƻţ' + trim(CDS_1.FieldByName('TWPId').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + execsql; + end; + TBRafresh.Click; + except + application.MessageBox('ƻʼʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTatWBPlanZJZK.OrdTypeChange(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmTatWBPlanZJZK.C_CodeKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + TBRafresh.Click(); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); +end; + +procedure TfrmTatWBPlanZJZK.BatchNoHZKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + TBRafresh.Click(); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); +end; + +procedure TfrmTatWBPlanZJZK.CustNameKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + TBRafresh.Click(); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); +end; + +procedure TfrmTatWBPlanZJZK.cxTabControl1Change(Sender: TObject); +begin + InitButton(); + InitGrid(); +end; + +procedure TfrmTatWBPlanZJZK.cxTabControl2Change(Sender: TObject); +begin + InitCard(); +end; + +procedure TfrmTatWBPlanZJZK.C_NameKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + TBRafresh.Click(); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); +end; + +end. + diff --git a/E02梭织经轴仓库/U_TatWBPlanZJZKInPut.dfm b/E02梭织经轴仓库/U_TatWBPlanZJZKInPut.dfm new file mode 100644 index 0000000..1a24383 --- /dev/null +++ b/E02梭织经轴仓库/U_TatWBPlanZJZKInPut.dfm @@ -0,0 +1,1238 @@ +inherited frmTatWBPlanZJZKInPut: TfrmTatWBPlanZJZKInPut + Left = 212 + Top = 14 + Caption = #25972#32463#35745#21010#24405#20837 + ClientHeight = 763 + ClientWidth = 1049 + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Name = #23435#20307 + Position = poScreenCenter + WindowState = wsMaximized + ExplicitWidth = 1065 + ExplicitHeight = 802 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1049 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + DisabledImages = DataLink_WarpBeamStk.ImageList_new32 + EdgeInner = esNone + EdgeOuter = esNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_WarpBeamStk.ImageList_new32 + List = True + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 16 + OnClick = TBSaveClick + end + object ToolButton8: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + end + object TBClose: TToolButton + Left = 166 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel2: TPanel [1] + Left = 0 + Top = 441 + Width = 1049 + Height = 322 + Align = alClient + TabOrder = 1 + object cxPageControl1: TcxPageControl + Left = 1 + Top = 36 + Width = 1047 + Height = 285 + Align = alClient + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [] + ParentBackground = False + ParentColor = False + ParentFont = False + TabOrder = 0 + Visible = False + Properties.CustomButtons.Buttons = <> + Properties.Style = 6 + ClientRectBottom = 285 + ClientRectRight = 1047 + ClientRectTop = 0 + end + object Panel5: TPanel + Left = 1 + Top = 1 + Width = 1047 + Height = 35 + Align = alTop + TabOrder = 1 + Visible = False + object Panel6: TPanel + Left = 1 + Top = 1 + Width = 184 + Height = 33 + Align = alLeft + TabOrder = 0 + object Label21: TLabel + Left = 37 + Top = 7 + Width = 84 + Height = 20 + Caption = #32463#32433#37197#27604 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object ToolBar3: TToolBar + Tag = 1 + Left = 185 + Top = 1 + Width = 142 + Height = 33 + Align = alLeft + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 75 + Caption = 'ToolBar1' + Color = clWhite + DisabledImages = DataLink_WarpBeamStk.ImageList_new32 + EdgeInner = esNone + EdgeOuter = esNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_WarpBeamStk.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 1 + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 2 + OnClick = ToolButton3Click + end + object ToolButton4: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 6 + OnClick = ToolButton4Click + end + end + end + object cxGrid1: TcxGrid + Left = 1 + Top = 36 + Width = 1047 + Height = 285 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column18: TcxGridDBColumn + Caption = #37319#36141#21152#24037#21512#21516#21495 + DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 106 + end + object v1Column15: TcxGridDBColumn + Caption = #21697#29260 + DataBinding.FieldName = 'SXPinPai' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 103 + end + object Tv1Column2: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'Y_Code' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 94 + end + object v1SPName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'Y_Name' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v1SPSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'Y_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 116 + end + object v1Column10: TcxGridDBColumn + Caption = #36816#36153 + DataBinding.FieldName = 'YunFei' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 68 + end + object Tv1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column8: TcxGridDBColumn + Caption = #25903#25968 + DataBinding.FieldName = 'ZS' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv1Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv1Column7: TcxGridDBColumn + Caption = #20998#29305'(Dtex)' + DataBinding.FieldName = 'Denier' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv1Column6: TcxGridDBColumn + Caption = #20840#24133#26681#25968 + DataBinding.FieldName = 'QFYARNQTY' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv1Column6PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column9: TcxGridDBColumn + Caption = #30334#31859#32463#38271#29992#37327'KG' + DataBinding.FieldName = 'MeterQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column1: TcxGridDBColumn + Caption = #32433#32447#25209#21495 + DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ButtonEdit + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 92 + end + object Tv1dbNumber: TcxGridDBColumn + Caption = #27599#21253#20010#25968 + DataBinding.FieldName = 'dbNumber' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1Column3: TcxGridDBColumn + Caption = #31570#37325'KG' + DataBinding.FieldName = 'TZQTY' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 79 + end + object Tv1Column4: TcxGridDBColumn + Caption = #35745#21010#24635#29992#37327'KG' + DataBinding.FieldName = 'JHYLQTY' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 95 + end + object Tv1Supplier: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'Supplier' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1IOTime: TcxGridDBColumn + Caption = #32433#32447#20837#24211#26102#38388 + DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 120 + end + object v1Column12: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 118 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object ScrollBox1: TScrollBox [2] + Left = 0 + Top = 38 + Width = 1049 + Height = 403 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + Ctl3D = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentCtl3D = False + ParentFont = False + TabOrder = 2 + OnDblClick = gynoDblClick + object Label3: TLabel + Left = 25 + Top = 70 + Width = 48 + Height = 21 + Caption = #21697#21517#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label14: TLabel + Left = 25 + Top = 152 + Width = 112 + Height = 21 + Caption = #32463#36724#24037#33402#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label47: TLabel + Left = 638 + Top = 30 + Width = 48 + Height = 21 + Caption = #23458#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label2: TLabel + Left = 638 + Top = 70 + Width = 112 + Height = 21 + Caption = #35746#21333#32463#32433#38271#24230#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label4: TLabel + Left = 316 + Top = 111 + Width = 96 + Height = 21 + Caption = #35745#21010#32455#36724#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label6: TLabel + Left = 25 + Top = 111 + Width = 112 + Height = 21 + Caption = #35745#21010#32455#36724#32463#38271#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label13: TLabel + Left = 25 + Top = 30 + Width = 80 + Height = 21 + Caption = #35745#21010#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 316 + Top = 30 + Width = 80 + Height = 21 + Caption = #32455#36896#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label17: TLabel + Left = 316 + Top = 152 + Width = 112 + Height = 21 + Caption = #32463#36724#24037#33402#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label18: TLabel + Left = 638 + Top = 273 + Width = 80 + Height = 21 + Caption = #24635#32463#26681#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label20: TLabel + Left = 25 + Top = 232 + Width = 80 + Height = 21 + Caption = #38050#31576#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label22: TLabel + Left = 316 + Top = 232 + Width = 48 + Height = 21 + Caption = #31576#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label7: TLabel + Left = 316 + Top = 192 + Width = 112 + Height = 21 + Caption = #32433#26550#25346#32433#39063#25968#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label26: TLabel + Left = 25 + Top = 192 + Width = 112 + Height = 21 + Caption = #32433#26550#26368#22823#39063#25968#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label27: TLabel + Left = 638 + Top = 152 + Width = 48 + Height = 21 + Caption = #26465#25968#65306 + end + object Label28: TLabel + Left = 638 + Top = 233 + Width = 64 + Height = 21 + Caption = #31576#40831#25968#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label29: TLabel + Left = 25 + Top = 354 + Width = 48 + Height = 21 + Caption = #31576#24133#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label30: TLabel + Left = 316 + Top = 354 + Width = 96 + Height = 21 + Caption = #36793#32433#24635#26681#25968#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label31: TLabel + Left = 25 + Top = 273 + Width = 64 + Height = 21 + Caption = #36793#32433#25968#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label32: TLabel + Left = 316 + Top = 273 + Width = 80 + Height = 21 + Caption = #22320#31359#20837#27861#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label10: TLabel + Left = 316 + Top = 70 + Width = 48 + Height = 21 + Caption = #32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label19: TLabel + Left = 259 + Top = 109 + Width = 16 + Height = 21 + Caption = 'M' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label24: TLabel + Left = 576 + Top = 111 + Width = 16 + Height = 21 + Caption = #20010 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label33: TLabel + Left = 25 + Top = 314 + Width = 80 + Height = 21 + Caption = #36793#31359#20837#27861#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label34: TLabel + Left = 316 + Top = 314 + Width = 128 + Height = 21 + Caption = #36793#32433#21333#36793#31576#40831#25968#65306 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label35: TLabel + Left = 200 + Top = 310 + Width = 54 + Height = 19 + Caption = #26681'/'#31576#40831 + Font.Charset = DEFAULT_CHARSET + Font.Color = clHighlight + Font.Height = -16 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end + object Label37: TLabel + Left = 529 + Top = 229 + Width = 63 + Height = 19 + Caption = #40831'/2'#33521#23544 + Font.Charset = DEFAULT_CHARSET + Font.Color = clHighlight + Font.Height = -16 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end + object Label38: TLabel + Left = 210 + Top = 354 + Width = 6 + Height = 19 + Caption = #8216#8217 + Font.Charset = DEFAULT_CHARSET + Font.Color = clHighlight + Font.Height = -16 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end + object Label39: TLabel + Left = 526 + Top = 268 + Width = 54 + Height = 19 + Caption = #26681'/'#31576#40831 + Font.Charset = DEFAULT_CHARSET + Font.Color = clHighlight + Font.Height = -16 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end + object Label40: TLabel + Left = 200 + Top = 269 + Width = 16 + Height = 19 + Caption = #26681 + Font.Charset = DEFAULT_CHARSET + Font.Color = clHighlight + Font.Height = -16 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end + object Label41: TLabel + Left = 840 + Top = 228 + Width = 32 + Height = 19 + Caption = #31576#40831 + Font.Charset = DEFAULT_CHARSET + Font.Color = clHighlight + Font.Height = -16 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end + object Label42: TLabel + Left = 518 + Top = 309 + Width = 32 + Height = 19 + Caption = #31576#40831 + Font.Charset = DEFAULT_CHARSET + Font.Color = clHighlight + Font.Height = -16 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end + object Label1: TLabel + Left = 638 + Top = 192 + Width = 48 + Height = 21 + Caption = #20313#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object C_NAME: TEdit + Left = 133 + Top = 68 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 0 + OnDblClick = gynoDblClick + OnKeyPress = ConNoKeyPress + end + object WB_Code: TBtnEditC + Left = 133 + Top = 145 + Width = 120 + Height = 30 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + ReadOnly = True + TabOrder = 1 + OnDblClick = gynoDblClick + OnBtnUpClick = WB_CodeBtnUpClick + OnBtnDnClick = CustNameBtnDnClick + end + object WB_YarnTotalLen: TEdit + Left = 756 + Top = 71 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 2 + OnDblClick = gynoDblClick + OnExit = WB_YarnTotalLenExit + OnKeyPress = ConNoKeyPress + end + object WB_Qty: TEdit + Left = 442 + Top = 110 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 3 + OnDblClick = gynoDblClick + OnKeyPress = ConNoKeyPress + end + object WB_YarnLen: TEdit + Left = 133 + Top = 107 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 4 + OnDblClick = gynoDblClick + OnKeyPress = ConNoKeyPress + end + object TWPId: TEdit + Left = 133 + Top = 30 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + ReadOnly = True + TabOrder = 5 + OnDblClick = gynoDblClick + OnKeyPress = ConNoKeyPress + end + object WB_Name: TEdit + Left = 442 + Top = 148 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 6 + OnDblClick = gynoDblClick + OnKeyPress = ConNoKeyPress + end + object WB_YarnQty: TEdit + Left = 756 + Top = 264 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 7 + OnExit = WB_YarnQtyExit + OnKeyPress = ConNoKeyPress + end + object WB_ReedNo: TEdit + Left = 442 + Top = 226 + Width = 78 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 8 + OnDblClick = gynoDblClick + OnKeyPress = ConNoKeyPress + end + object C_KCQTY: TcxTextEdit + Left = 756 + Top = 224 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 9 + Width = 78 + end + object WB_Width: TcxTextEdit + Left = 133 + Top = 346 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 10 + Width = 74 + end + object WB_ReedNote: TcxTextEdit + Left = 442 + Top = 346 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 11 + Width = 434 + end + object BSQTY: TcxTextEdit + Left = 133 + Top = 265 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 12 + Width = 61 + end + object DCRQTY: TcxTextEdit + Left = 442 + Top = 264 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 13 + Width = 78 + end + object Z_SJKESHU1: TEdit + Left = 442 + Top = 187 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 14 + OnDblClick = gynoDblClick + OnKeyPress = ConNoKeyPress + end + object Z_BINGSHU: TEdit + Left = 756 + Top = 148 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 15 + OnExit = WB_YarnQtyExit + OnKeyPress = ConNoKeyPress + end + object Z_MAXKESHU: TEdit + Left = 133 + Top = 186 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 16 + Text = '480' + OnExit = WB_YarnQtyExit + OnKeyPress = ConNoKeyPress + end + object GKBH: TcxButtonEdit + Left = 133 + Top = 225 + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 17 + Width = 120 + end + object CustName: TcxButtonEdit + Left = 756 + Top = 30 + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 18 + Width = 120 + end + object gyno: TcxButtonEdit + Left = 442 + Top = 30 + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = gynoPropertiesButtonClick + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 19 + Width = 120 + end + object C_CODE: TEdit + Left = 442 + Top = 71 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 20 + OnDblClick = gynoDblClick + OnKeyPress = ConNoKeyPress + end + object BCRFQty: TcxTextEdit + Left = 133 + Top = 306 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 21 + Width = 61 + end + object WB_YarnKCQty: TcxTextEdit + Left = 442 + Top = 305 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 22 + Width = 70 + end + object F_yushu: TEdit + Left = 756 + Top = 186 + Width = 120 + Height = 27 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + TabOrder = 23 + OnDblClick = gynoDblClick + OnKeyPress = ConNoKeyPress + end + end + inherited ADOQueryBaseCmd: TADOQuery + Left = 969 + Top = 56 + end + inherited ADOQueryBaseTemp: TADOQuery + Left = 1225 + Top = 193 + end + inherited ImageList_new32: TImageList + Left = 1120 + Top = 256 + end + inherited cxImageList_bar: TcxImageList + FormatVersion = 1 + Left = 856 + Top = 201 + DesignInfo = 13173592 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1218 + Top = 337 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Parameters = <> + Left = 1298 + Top = 137 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 1259 + Top = 330 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 1260 + Top = 297 + end + object ADOQuery1: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1227 + Top = 296 + end +end diff --git a/E02梭织经轴仓库/U_TatWBPlanZJZKInPut.pas b/E02梭织经轴仓库/U_TatWBPlanZJZKInPut.pas new file mode 100644 index 0000000..556839b --- /dev/null +++ b/E02梭织经轴仓库/U_TatWBPlanZJZKInPut.pas @@ -0,0 +1,986 @@ +unit U_TatWBPlanZJZKInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo, + cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, + StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxDropDownEdit, + StrUtils, cxPC, ShellAPI, cxCalendar, Math, cxLookAndFeels, + cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, dxDateRanges, + U_BaseInput, System.ImageList, Vcl.ImgList, Vcl.Menus, dxScrollbarAnnotations, + cxImageList, dxSkinsCore, dxSkinOffice2013White, dxSkinSharpPlus, + dxSkinsDefaultPainters, dxSkinWXI; + +type + TfrmTatWBPlanZJZKInPut = class(TfrmBaseInput) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ToolButton8: TToolButton; + Panel2: TPanel; + cxPageControl1: TcxPageControl; + Panel5: TPanel; + Panel6: TPanel; + Label21: TLabel; + ToolBar3: TToolBar; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + CDS_1: TClientDataSet; + DS_1: TDataSource; + ScrollBox1: TScrollBox; + Label3: TLabel; + Label14: TLabel; + Label47: TLabel; + Label2: TLabel; + Label4: TLabel; + Label6: TLabel; + C_NAME: TEdit; + WB_Code: TBtnEditC; + WB_YarnTotalLen: TEdit; + WB_Qty: TEdit; + WB_YarnLen: TEdit; + Label13: TLabel; + TWPId: TEdit; + Label15: TLabel; + Label17: TLabel; + WB_Name: TEdit; + Label18: TLabel; + WB_YarnQty: TEdit; + Label20: TLabel; + Label22: TLabel; + WB_ReedNo: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column18: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + v1SPName: TcxGridDBColumn; + v1SPSpec: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ADOQuery1: TADOQuery; + Label7: TLabel; + Label26: TLabel; + Label27: TLabel; + Label28: TLabel; + Label29: TLabel; + C_KCQTY: TcxTextEdit; + WB_Width: TcxTextEdit; + Label30: TLabel; + Label31: TLabel; + Label32: TLabel; + WB_ReedNote: TcxTextEdit; + BSQTY: TcxTextEdit; + DCRQTY: TcxTextEdit; + Z_SJKESHU1: TEdit; + Z_BINGSHU: TEdit; + Z_MAXKESHU: TEdit; + GKBH: TcxButtonEdit; + CustName: TcxButtonEdit; + gyno: TcxButtonEdit; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Label10: TLabel; + C_CODE: TEdit; + Label19: TLabel; + Label24: TLabel; + Tv1dbNumber: TcxGridDBColumn; + Label33: TLabel; + Label34: TLabel; + BCRFQty: TcxTextEdit; + WB_YarnKCQty: TcxTextEdit; + Label35: TLabel; + Label37: TLabel; + Label38: TLabel; + Label39: TLabel; + Label40: TLabel; + Label41: TLabel; + Label42: TLabel; + Tv1Supplier: TcxGridDBColumn; + Tv1IOTime: TcxGridDBColumn; + Label1: TLabel; + F_yushu: TEdit; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure C_CodeKeyPress(Sender: TObject; var Key: Char); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure MCTypeBtnUpClick(Sender: TObject); + procedure CustNameBtnUpClick(Sender: TObject); + procedure CustNameBtnDnClick(Sender: TObject); + + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure WB_CodeBtnUpClick(Sender: TObject); + procedure gkbhBtnUpClick(Sender: TObject); + procedure gynoDblClick(Sender: TObject); + procedure Tv1Column7PropertiesEditValueChanged(Sender: TObject); + procedure WB_YarnQtyExit(Sender: TObject); + procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure gynoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + + procedure Tv1Column6PropertiesEditValueChanged(Sender: TObject); + procedure WB_YarnTotalLenExit(Sender: TObject); + procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer); + private + procedure InitData(); + function SaveData(): Boolean; + procedure JSJS(); + { Private declarations } + public + PState, FCopyInt: Integer; + FConNo, FTWPId, FSubId: string; + { Public declarations } + end; + +var + frmTatWBPlanZJZKInPut: TfrmTatWBPlanZJZKInPut; + newh: hwnd; + +implementation + +uses + U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_YarnInfoSel, U_TatPlanSel2, + U_WBSpecSel, U_GKManageSel, U_WeaveSel, U_YarnStkSel, U_LogInput; + +{$R *.dfm} + +procedure TfrmTatWBPlanZJZKInPut.TBCloseClick(Sender: TObject); +begin + ModalResult := 1; +end; + +procedure TfrmTatWBPlanZJZKInPut.InitData(); +var + PBNO, PBFlag: string; +begin + if PState = 1 then + begin + + end; + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from Tat_WB_Plan A where A.TWPId=''' + Trim(FTWPId) + ''''); + Open; + end; + SCSHData(ADOQueryTemp, ScrollBox1, 0); + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* from Tat_WB_Plan_Yarn A '); + sql.Add(' where YRType=''ᾭ˿'' and A.TWPId=''' + Trim(FTWPId) + ''''); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_1); + SInitCDSData(ADOQueryTemp, CDS_1); + + if FCopyInt = 1 then + begin + FConNo := ''; + FTWPId := ''; + FSubId := ''; + end; +end; + +procedure TfrmTatWBPlanZJZKInPut.FormShow(Sender: TObject); +begin + InitData(); +end; + +procedure TfrmTatWBPlanZJZKInPut.gkbhBtnUpClick(Sender: TObject); +begin + try + frmGKManageSel := tfrmGKManageSel.Create(Application); + with frmGKManageSel do + begin + + if ShowModal = 1 then + begin + SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString; + SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString; + end; + end; + finally + frmGKManageSel.Free; + end; +end; + +procedure TfrmTatWBPlanZJZKInPut.gynoDblClick(Sender: TObject); +begin + inherited; + TcxButtonEdit(Sender).Text := ''; +end; + +procedure TfrmTatWBPlanZJZKInPut.gynoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmWeaveSel := TfrmWeaveSel.Create(Application); + with frmWeaveSel do + begin + FISSJ := ''; + if ShowModal = 1 then + begin + Self.GYNo.Text := CDS_1.FieldByName('OrderNo').asstring; +// Self.GYNo.Properties.LookupItems.Text := CDS_1.FieldByName('Subid').asstring; + Self.CustName.Text := CDS_1.FieldByName('CustName').asstring; + + Self.WB_Code.Text := CDS_1.FieldByName('WB_Code').asstring; + Self.C_NAME.Text := CDS_1.FieldByName('C_NAME').asstring; + + Self.C_CODE.Text := CDS_1.FieldByName('C_CODE').asstring; + + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from Tat_WB_Spec A'); + sql.Add(' where WB_Code=''' + trim(WB_Code.Text) + ''' '); + Open; + end; + + Self.WB_YarnTotalLen.Text := Trim(CDS_1.fieldbyname('ORDQTY2').AsString); + + Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').AsString); + Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString); + + Self.WB_YarnQty.Text := ADOQueryTemp.fieldbyname('WB_YarnQty').asstring; + Self.Z_BINGSHU.Text := ADOQueryTemp.fieldbyname('Z_BINGSHU').asstring; + + Self.Z_MAXKESHU.Text := ADOQueryTemp.fieldbyname('Z_MAXKESHU').asstring; + Self.Z_SJKESHU1.Text := ADOQueryTemp.fieldbyname('Z_SJKESHU1').asstring; + + Self.F_YUSHU.Text := ADOQueryTemp.fieldbyname('F_YUSHU').asstring; + + Self.gkbh.Text := Trim(ADOQueryTemp.fieldbyname('gkbh').AsString); + Self.WB_Width.Text := Trim(ADOQueryTemp.fieldbyname('WB_Width').AsString); + Self.C_KCQTY.Text := Trim(ADOQueryTemp.fieldbyname('C_KCQTY').AsString); + Self.WB_ReedNo.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNo').AsString); + Self.WB_ReedNote.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNote').AsString); + Self.BSQTY.Text := Trim(ADOQueryTemp.fieldbyname('BSQTY').AsString); + Self.DCRQTY.Text := Trim(ADOQueryTemp.fieldbyname('DCRQTY').AsString); + + Self.WB_YarnKCQty.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnKCQty').AsString); + Self.BCRFQty.Text := Trim(ADOQueryTemp.fieldbyname('BCRFQty').AsString); + + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add(' select A.* from Tat_Plan_Yarn A '); + sql.Add(' where YRType=''˿'' AND ISNULL(Y_CODE,'''')<>'''' and A.MainId=''' + Trim(CDS_1.fieldbyname('MAINID').AsString) + ''''); + sql.Add(' Order by RowNo '); + Open; + end; + self.CDS_1.EmptyDataSet; + self.ADOQuery1.First; + + while not ADOQuery1.eof do + begin + with self.CDS_1 do + begin + APpend; + FieldByName('RowNo').Value := ADOQuery1.fieldbyname('RowNo').Value; + + FieldByName('Y_Code').Value := ADOQuery1.fieldbyname('Y_Code').Value; + FieldByName('Y_Name').Value := ADOQuery1.fieldbyname('Y_Name').Value; + + FieldByName('Y_Color').Value := ADOQuery1.fieldbyname('Y_Color').Value; + FieldByName('Y_Spec').Value := ADOQuery1.fieldbyname('Y_Spec').Value; + + FieldByName('ZS').Value := ADOQuery1.fieldbyname('Z_Number').Value; + FieldByName('QFYARNQTY').Value := ADOQuery1.fieldbyname('QFYARNQTY').Value; + FieldByName('MeterQty').Value := ADOQuery1.fieldbyname('MeterQty').Value; + +// FieldByName('TZQTY').Value := ADOQuery1.fieldbyname('TZQTY').Value; +// FieldByName('JHYLQTY').Value := ADOQuery1.fieldbyname('JHYLQTY').Value; + + FieldByName('YarnQty').Value := ADOQuery1.fieldbyname('YarnQty').Value; + + FieldByName('Denier').Value := ADOQuery1.fieldbyname('Denier').Value; + +// FieldByName('NOTE').Value := ADOQuery1.fieldbyname('NOTE').Value; + + Post; + end; + + ADOQuery1.next; + end; + end; + end; + finally + frmWeaveSel.Free; + end; + WB_YarnTotalLenExit(Sender); +end; + +function TfrmTatWBPlanZJZKInPut.SaveData(): Boolean; +var + maxno, maxsubno, maxpbno, maxpzno, maxsjno: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + + try + if FTWPId <> '' then + begin + + frmLogInput := TfrmLogInput.Create(Application); + with frmLogInput do + begin + fWB_Code := Self.TWPId.Text; + flogFlag := 'ƻϢ޸';//־Modelֶ + fFlag := '޸'; + + if ShowModal = 1 then + begin + + end; + end; + + end; + finally + frmLogInput.Free; + end; + + if Trim(FTWPId) = '' then + begin + if GetLSNo(ADOQueryCmd, maxno, 'JS', 'Tat_WB_Plan', 4, 1) = False then + raise Exception.Create('ˮ쳣'); + TWPId.Text := maxno; + end + else + begin + maxno := Trim(FTWPId); + end; +////////////////////////// ////////////////////////// + with ADOQueryCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from Tat_WB_Plan where TWPId=''' + Trim(FTWPId) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FTWPId) = '' then + begin + Append; + FieldByName('Filler').Value := Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('TWPId').Value := Trim(maxno); + RTSetsavedata(ADOQueryCmd, 'Tat_WB_Plan', ScrollBox1, 0); + Post; + end; +////////////////////////// ////////////////////////// + +////////////////////////// 澭˿ȱ ////////////////////////// + with CDS_1 do + begin + First; + while not Eof do + begin + if Trim(CDS_1.fieldbyname('YRId').AsString) = '' then + begin + if GetLSNo(ADOQueryTemp, maxpbno, 'WY', 'Tat_WB_Plan_Yarn', 4, 1) = False then + raise Exception.Create('ȡˮʧܣ'); + end + else + begin + maxpbno := Trim(CDS_1.fieldbyname('YRId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Tat_WB_Plan_Yarn where '); + sql.Add(' YRId=''' + Trim(maxpbno) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_1.fieldbyname('YRId').AsString) = '' then + begin + Append; + FieldByName('Filler').Value := Trim(DName); + FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp); + end + else + begin + Edit; + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('YRType').Value := 'ᾭ˿'; + FieldByName('TWPId').Value := Trim(maxno); + FieldByName('YRId').Value := Trim(maxpbno); + RTSetsavedataCDS(ADOQueryCmd, Tv1, CDS_1, 'Tat_WB_Plan_Yarn', 0); + Post; + end; + CDS_1.Edit; + CDS_1.FieldByName('TWPId').Value := Trim(maxno); + CDS_1.FieldByName('YRId').Value := Trim(maxpbno); + + Next; + end; + end; +////////////////////////// 澭˿ȱ ////////////////////////// + + + ADOQueryCmd.Connection.CommitTrans; + FTWPId := Trim(maxno); + FSubId := Trim(maxsubno); + Result := True; + except + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + + end; +end; + +procedure TfrmTatWBPlanZJZKInPut.TBSaveClick(Sender: TObject); +var + FReal: Double; + maxConNo: string; +begin + ToolBar1.SetFocus(); + if Trim(CustName.Text) = '' then + begin + Application.MessageBox('ͻΪ!', 'ʾ', 0); + Exit; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ', 'ʾ', 0); + ModalResult := 1; + end; +end; + +procedure TfrmTatWBPlanZJZKInPut.ToolButton3Click(Sender: TObject); +begin + try + frmYarnInfoSel := TfrmYarnInfoSel.Create(Application); + with frmYarnInfoSel do + begin + if ShowModal = 1 then + begin + with self.CDS_1 do + begin + Append; + FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').Value; + FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').Value; + FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value; + FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value; + FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value; + + FieldByName('ZS').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value; + FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value; + FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value; + FieldByName('NOTE').Value := frmYarnInfoSel.CDS_1.fieldbyname('NOTE').Value; + Post; + end; + + end; + end; + finally + frmYarnInfoSel.Free; + end; +end; + +procedure TfrmTatWBPlanZJZKInPut.ToolButton4Click(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + if Trim(CDS_1.fieldbyname('YRId').AsString) <> '' then + begin + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete Tat_WB_Plan_Yarn where YRId=''' + Trim(CDS_1.fieldbyname('YRId').AsString) + ''''); + ExecSQL; + end; + end; + CDS_1.Delete; +end; + +procedure TfrmTatWBPlanZJZKInPut.Tv1Column6PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; + ZS, ZGS, zms: double; +begin + + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + + with CDS_1 do + begin + Edit; + FieldByName(FFieldName).Value := mvalue; + Post; + zms := StrToFloatDef(WB_YarnTotalLen.Text, 0); + if FieldByName('QFYARNQTY').Value = null then + begin + ZGS := 0; //QUANFU + end + else + begin + ZGS := FieldByName('QFYARNQTY').Value; //ȫ + end; + + if FieldByName('ZS').Value = null then + begin + ZS := 0; //ѭ + end + else + begin + ZS := FieldByName('ZS').Value; //ѭ + end; + + end; + if ZS <> 0 then + begin + with CDS_1 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2); + FieldByName('JHYLQTY').Value := roundfloat(ZGS * 0.059 / ZS * 1.08 / 100 * zms, 2); + Post; + end; + end; +end; + +procedure TfrmTatWBPlanZJZKInPut.Tv1Column7PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; + GS, ZGS, MF, DS, WM, TW, SUNHAO: double; +begin + + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + + with CDS_1 do + begin + Edit; + FieldByName(FFieldName).Value := mvalue; + Post; + + if FieldByName('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; + + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; + +// if FieldByName('SH').Value = null then +// begin +// SUNHAO := 0; // +// end +// else +// begin +// SUNHAO := FieldByName('SH').Value; // +// end; + + if FieldByName('Denier').Value = null then + begin + DS := 0; //D + end + else + begin + DS := FieldByName('Denier').Value; //D + end; + + TW := strtofloatdef(WB_YarnQty.text, 0); //ͷ + end; + if ZGS <> 0 then + begin + with CDS_1 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); + Post; + end; + end; +end; + +procedure TfrmTatWBPlanZJZKInPut.ButtonEdit(Sender: TObject; AButtonIndex: Integer); +begin + try + frmYarnStkSel := TfrmYarnStkSel.Create(Application); + with frmYarnStkSel do + begin +// FstkName := Self.FstkName; + if ShowModal = 1 then + begin + frmYarnStkSel.CDS_Main.DisableControls; + with frmYarnStkSel.CDS_Main do + begin + + with Self.CDS_1 do + begin + Edit; + FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value; + FieldByName('TZQTY').Value := frmYarnStkSel.CDS_Main.fieldbyname('singleWeight').Value; + FieldByName('dbNumber').Value := frmYarnStkSel.CDS_Main.fieldbyname('dbNumber').Value; + FieldByName('IoTime').Value := frmYarnStkSel.CDS_Main.fieldbyname('IoTime').Value; + FieldByName('Supplier').Value := frmYarnStkSel.CDS_Main.fieldbyname('Supplier').Value; + Post; + end; + end; + frmYarnStkSel.CDS_Main.EnableControls; + end; + end; + finally + frmYarnStkSel.Free; + end; + +end; + +procedure TfrmTatWBPlanZJZKInPut.WB_CodeBtnUpClick(Sender: TObject); +begin + try + frmWBSpecSel := TfrmWBSpecSel.Create(Application); + with frmWBSpecSel do + begin + fWB_TYPE := ''; + if ShowModal = 1 then + begin + + Self.WB_Code.Text := Trim(CDS_1.fieldbyname('WB_Code').AsString); + Self.WB_Name.Text := Trim(CDS_1.fieldbyname('WB_Name').AsString); + + Self.WB_YarnQty.Text := CDS_1.fieldbyname('WB_YarnQty').asstring; + Self.Z_BINGSHU.Text := CDS_1.fieldbyname('Z_BINGSHU').asstring; + + Self.Z_MAXKESHU.Text := CDS_1.fieldbyname('Z_MAXKESHU').asstring; + Self.Z_SJKESHU1.Text := CDS_1.fieldbyname('Z_SJKESHU1').asstring; + + Self.gkbh.Text := Trim(CDS_1.fieldbyname('gkbh').AsString); + Self.WB_Width.Text := Trim(CDS_1.fieldbyname('WB_Width').AsString); + Self.C_KCQTY.Text := Trim(CDS_1.fieldbyname('C_KCQTY').AsString); + Self.WB_ReedNo.Text := Trim(CDS_1.fieldbyname('WB_ReedNo').AsString); + Self.WB_ReedNote.Text := Trim(CDS_1.fieldbyname('WB_ReedNote').AsString); + Self.BSQTY.Text := Trim(CDS_1.fieldbyname('BSQTY').AsString); + Self.DCRQTY.Text := Trim(CDS_1.fieldbyname('DCRQTY').AsString); + + Self.WB_YarnKCQty.Text := Trim(CDS_1.fieldbyname('WB_YarnKCQty').AsString); + Self.BCRFQty.Text := Trim(CDS_1.fieldbyname('BCRFQty').AsString); + end; + end; + finally + frmWBSpecSel.Free; + end; +end; + +procedure TfrmTatWBPlanZJZKInPut.WB_YarnQtyExit(Sender: TObject); +var + GS, ZGS, MF, DS, WM, TW: double; +begin + if CDS_1.IsEmpty then + exit; + with CDS_1 do + begin + DisableControls; + first; + while not eof do + begin + + with CDS_1 do + begin + + if FieldByName('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; + + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; + + MF := strtofloatdef(WB_Width.text, 0); //ط + + TW := strtofloatdef(WB_YarnQty.text, 0); //ͷ + + if FieldByName('Denier').Value = null then + begin + DS := 0; //D + end + else + begin + DS := FieldByName('Denier').Value; //D + end; + + // WM := strtofloatdef(WB_YarnDensity.text, 0); //γ + end; + if ZGS <> 0 then + begin + with CDS_1 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); + Post; + end; + end; + next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmTatWBPlanZJZKInPut.WB_YarnTotalLenExit(Sender: TObject); +var + ZS, ZGS, zms: double; +begin + with CDS_1 do + begin + DisableControls; + first; + while not eof do + begin + + with CDS_1 do + begin + + zms := StrToFloatDef(WB_YarnTotalLen.Text, 0); + if FieldByName('QFYARNQTY').Value = null then + begin + ZGS := 0; //QUANFU + end + else + begin + ZGS := FieldByName('QFYARNQTY').Value; //ȫ + end; + + if FieldByName('ZS').Value = null then + begin + ZS := 0; //ѭ + end + else + begin + ZS := FieldByName('ZS').Value; //ѭ + end; + + end; + if ZS <> 0 then + begin + with CDS_1 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2); + FieldByName('JHYLQTY').Value := roundfloat(ZGS * 0.059 / ZS * 1.08 / 100 * zms, 2); + Post; + end; + end; + next; + + end; + First; + EnableControls; + end; +end; + +procedure TfrmTatWBPlanZJZKInPut.C_CodeKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + Key := #0; + SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmTatWBPlanZJZKInPut.MCTypeBtnUpClick(Sender: TObject); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TBtnEditC(Sender).Hint); + + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + + if ShowModal = 1 then + begin + TBtnEditC(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; + +end; + +procedure TfrmTatWBPlanZJZKInPut.JSJS(); +var + GS, ZGS, MF, DS, WM, TW: double; +begin + if CDS_1.IsEmpty then + exit; + with CDS_1 do + begin + DisableControls; + first; + while not eof do + begin + + with CDS_1 do + begin + + if FieldByName('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; + + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; + + MF := strtofloatdef(WB_Width.text, 0); //ط + + TW := strtofloatdef(WB_YarnQty.text, 0); //ͷ + + if FieldByName('TestDenier').Value = null then + begin + DS := 0; //D + end + else + begin + DS := FieldByName('TestDenier').Value; //D + end; + +// WM := strtofloatdef(WB_YarnDensity.text, 0); //γ + end; + if ZGS <> 0 then + begin + with CDS_1 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); + Post; + end; + end; + next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmTatWBPlanZJZKInPut.ConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + Key := #0; + SelectNext(ActiveControl as TWinControl, True, True); + + end; +end; + +procedure TfrmTatWBPlanZJZKInPut.CustNameBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).TxtCode := ''; + TBtnEditC(Sender).Text := ''; +end; + +procedure TfrmTatWBPlanZJZKInPut.CustNameBtnUpClick(Sender: TObject); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'ͻ'; + if ShowModal = 1 then + begin +// CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); + CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + finally + frmCompanySel.Free; + end; + +end; + +procedure TfrmTatWBPlanZJZKInPut.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'ͻ'; + if ShowModal = 1 then + begin +// CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); + CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + finally + frmCompanySel.Free; + end; +end; + +end. + diff --git a/E02梭织经轴仓库/U_TatWBPlanZJZKKaiKa.dfm b/E02梭织经轴仓库/U_TatWBPlanZJZKKaiKa.dfm new file mode 100644 index 0000000..eef8706 --- /dev/null +++ b/E02梭织经轴仓库/U_TatWBPlanZJZKKaiKa.dfm @@ -0,0 +1,1561 @@ +inherited frmTatWBPlanZJZKKaiKa: TfrmTatWBPlanZJZKKaiKa + Left = -35 + Top = 98 + Caption = #32463#36724#35745#21010 + ClientHeight = 772 + ClientWidth = 1540 + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Height = -16 + Position = poMainFormCenter + OnClose = FormClose + ExplicitWidth = 1556 + ExplicitHeight = 811 + PixelsPerInch = 96 + TextHeight = 21 + object Panel2: TPanel [0] + Left = 0 + Top = 0 + Width = 1540 + Height = 772 + Align = alClient + TabOrder = 0 + object Panel4: TPanel + Left = 521 + Top = 1 + Width = 1018 + Height = 770 + Align = alClient + TabOrder = 0 + object cxGrid2: TcxGrid + Left = 1 + Top = 251 + Width = 1016 + Height = 518 + Align = alClient + TabOrder = 0 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_Card + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object cxGridDBColumn1: TcxGridDBColumn + Tag = 9 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object TV2Column18: TcxGridDBColumn + Caption = #32463#36724#31867#22411 + DataBinding.FieldName = 'WB_ProcessType' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #26412#21378#25972#32463 + #22806#21378#25972#32463 + #25972#32463#37319#36141) + HeaderAlignmentHorz = taCenter + Width = 122 + end + object V2Column3: TcxGridDBColumn + Caption = #25972#32463#26426#21495 + DataBinding.FieldName = 'WB_MachNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 103 + end + object TV2Column9: TcxGridDBColumn + Caption = #36724#21345#21495 + DataBinding.FieldName = 'WBCID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 114 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #25972#32463#24037 + DataBinding.FieldName = 'WB_Macher' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 112 + end + object TV2Column4: TcxGridDBColumn + Caption = #25972#32463#38271#24230 + DataBinding.FieldName = 'WB_YarnLen' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 122 + end + object TV2Column2: TcxGridDBColumn + Caption = #30424#22836#31867#22411 + DataBinding.FieldName = 'WBType' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = TV2Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 114 + end + object TV2Column1: TcxGridDBColumn + Caption = #25972#32463#21152#24037#37319#36141#32534#21495 + DataBinding.FieldName = 'WBFtyNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 118 + end + object TV2Column5: TcxGridDBColumn + Caption = #25972#32463#21152#24037#37319#36141#21333#20301 + DataBinding.FieldName = 'WBFtyName' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = TV2Column5PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 153 + end + object TV2Column3: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object TV2Column6: TcxGridDBColumn + Caption = #30424#22836#25152#23646 + DataBinding.FieldName = 'WBBelong' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #26412#21378 + #21152#24037#25143) + HeaderAlignmentHorz = taCenter + Width = 66 + end + object TV2Column7: TcxGridDBColumn + Caption = #25152#23646#21333#20301#32534#21495 + DataBinding.FieldName = 'WBBelongCoNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object TV2Column8: TcxGridDBColumn + Caption = #25152#23646#21333#20301#21517#31216 + DataBinding.FieldName = 'WBBelongCoName' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = TV2Column8PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 66 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object ToolBar1: TToolBar + Tag = 1 + Left = 1 + Top = 1 + Width = 1016 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 99 + Caption = 'ToolBar1' + DisabledImages = DataLink_WarpBeamStk.cxImageList_bar + EdgeInner = esNone + EdgeOuter = esNone + Images = DataLink_WarpBeamStk.cxImageList_bar + List = True + ShowCaptions = True + TabOrder = 1 + object ToolButton1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #20445#23384#20462#25913 + ImageIndex = 16 + OnClick = ToolButton3Click + end + object TBSave: TToolButton + Left = 174 + Top = 0 + AutoSize = True + Caption = #24320#21345 + ImageIndex = 16 + OnClick = TBSaveClick + end + object ToolButton8: TToolButton + Left = 245 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + OnClick = ToolButton8Click + end + object ToolButton2: TToolButton + Left = 316 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 419 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel3: TPanel + Left = 1 + Top = 31 + Width = 1016 + Height = 220 + Align = alTop + TabOrder = 2 + object Label2: TLabel + Left = 263 + Top = 102 + Width = 41 + Height = 21 + Caption = #36724#25968'1' + end + object Label6: TLabel + Left = 384 + Top = 102 + Width = 41 + Height = 21 + Caption = #38271#24230'1' + end + object Label10: TLabel + Left = 32 + Top = 102 + Width = 73 + Height = 21 + Caption = #30424#22836#31867#22411'1' + end + object Label24: TLabel + Left = 263 + Top = 142 + Width = 41 + Height = 21 + Caption = #36724#25968'2' + end + object Label25: TLabel + Left = 32 + Top = 142 + Width = 73 + Height = 21 + Caption = #30424#22836#31867#22411'2' + end + object Label26: TLabel + Left = 263 + Top = 182 + Width = 41 + Height = 21 + Caption = #36724#25968'3' + end + object Label27: TLabel + Left = 32 + Top = 182 + Width = 73 + Height = 21 + Caption = #30424#22836#31867#22411'3' + end + object Label28: TLabel + Left = 384 + Top = 142 + Width = 41 + Height = 21 + Caption = #38271#24230'2' + end + object Label29: TLabel + Left = 384 + Top = 182 + Width = 41 + Height = 21 + Caption = #38271#24230'3' + end + object Label4: TLabel + Left = 32 + Top = 56 + Width = 32 + Height = 21 + Caption = #22791#27880 + Color = clWhite + ParentColor = False + end + object Label21: TLabel + Left = 32 + Top = 12 + Width = 64 + Height = 21 + Caption = #32463#36724#31867#22411 + end + object Label30: TLabel + Left = 254 + Top = 12 + Width = 128 + Height = 21 + Caption = #25972#32463#21152#24037#37319#36141#21333#20301 + end + object Label9: TLabel + Left = 762 + Top = 12 + Width = 48 + Height = 21 + Caption = #25972#32463#24037 + end + object Label3: TLabel + Left = 540 + Top = 12 + Width = 64 + Height = 21 + Caption = #25972#32463#26426#21495 + end + object Label31: TLabel + Left = 524 + Top = 102 + Width = 41 + Height = 21 + Caption = #30424#22836'1' + end + object Label32: TLabel + Left = 661 + Top = 102 + Width = 41 + Height = 21 + Caption = #25152#23646'1' + end + object Label33: TLabel + Left = 524 + Top = 142 + Width = 41 + Height = 21 + Caption = #30424#22836'1' + end + object Label34: TLabel + Left = 661 + Top = 142 + Width = 41 + Height = 21 + Caption = #25152#23646'1' + end + object Label35: TLabel + Left = 524 + Top = 182 + Width = 41 + Height = 21 + Caption = #30424#22836'1' + end + object Label36: TLabel + Left = 661 + Top = 182 + Width = 41 + Height = 21 + Caption = #25152#23646'1' + end + object WBType1: TcxButtonEdit + Tag = 2 + Left = 109 + Top = 96 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = WBNoPropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 0 + Width = 150 + end + object WB_YarnLen1: TcxTextEdit + Tag = 99 + Left = 429 + Top = 96 + ParentColor = True + TabOrder = 1 + Width = 91 + end + object edtCardQty1: TcxTextEdit + Tag = 99 + Left = 308 + Top = 96 + ParentColor = True + TabOrder = 2 + Width = 72 + end + object WBType2: TcxButtonEdit + Tag = 2 + Left = 109 + Top = 136 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = WBNoPropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 3 + Width = 150 + end + object edtCardQty2: TcxTextEdit + Tag = 99 + Left = 308 + Top = 136 + ParentColor = True + TabOrder = 4 + Width = 72 + end + object WBType3: TcxButtonEdit + Tag = 2 + Left = 109 + Top = 176 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = WBNoPropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 5 + Width = 150 + end + object edtCardQty3: TcxTextEdit + Tag = 99 + Left = 308 + Top = 176 + ParentColor = True + TabOrder = 6 + Width = 72 + end + object WB_YarnLen2: TcxTextEdit + Tag = 99 + Left = 429 + Top = 136 + ParentColor = True + TabOrder = 7 + Width = 91 + end + object WB_YarnLen3: TcxTextEdit + Tag = 99 + Left = 429 + Top = 176 + ParentColor = True + TabOrder = 8 + Width = 91 + end + object Note: TcxMemo + Tag = 2 + Left = 109 + Top = 48 + TabOrder = 9 + Height = 37 + Width = 830 + end + object WB_ProcessType: TcxComboBox + Tag = 2 + Left = 98 + Top = 6 + Properties.Items.Strings = ( + #26412#21378#25972#32463 + #22806#21378#25972#32463 + #25972#32463#37319#36141) + TabOrder = 10 + Text = #26412#21378#25972#32463 + Width = 150 + end + object WBFtyName: TcxButtonEdit + Tag = 2 + Left = 386 + Top = 6 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 11 + OnDblClick = WBFtyNameDblClick + Width = 150 + end + object WB_MachNo: TcxButtonEdit + Tag = 2 + Left = 608 + Top = 6 + Hint = 'WB_MachNo/'#25972#32463#26426 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = WB_MachNoPropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 12 + Width = 150 + end + object WB_Macher: TcxButtonEdit + Tag = 2 + Left = 814 + Top = 6 + Hint = 'WB_Macher/'#25190#32463#24037 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = WB_MachNoPropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 13 + Width = 150 + end + object WBBelong1: TcxComboBox + Tag = 2 + Left = 569 + Top = 96 + Properties.Items.Strings = ( + #26412#21378 + #21152#24037#25143) + TabOrder = 14 + Text = #26412#21378 + Width = 88 + end + object WBBelongCoName1: TcxButtonEdit + Tag = 2 + Left = 706 + Top = 96 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 15 + Text = #26412#21378 + OnDblClick = WBFtyNameDblClick + Width = 150 + end + object WBBelong2: TcxComboBox + Tag = 2 + Left = 569 + Top = 136 + Properties.Items.Strings = ( + #26412#21378 + #21152#24037#25143) + TabOrder = 16 + Text = #26412#21378 + Width = 88 + end + object WBBelongCoName2: TcxButtonEdit + Tag = 2 + Left = 706 + Top = 136 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 17 + Text = #26412#21378 + OnDblClick = WBFtyNameDblClick + Width = 150 + end + object WBBelong3: TcxComboBox + Tag = 2 + Left = 569 + Top = 176 + Properties.Items.Strings = ( + #26412#21378 + #21152#24037#25143) + TabOrder = 18 + Text = #26412#21378 + Width = 88 + end + object WBBelongCoName3: TcxButtonEdit + Tag = 2 + Left = 706 + Top = 176 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 19 + Text = #26412#21378 + OnDblClick = WBFtyNameDblClick + Width = 150 + end + end + end + object Panel1: TPanel + Tag = 2 + Left = 1 + Top = 1 + Width = 520 + Height = 770 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label7: TLabel + Left = 12 + Top = 140 + Width = 96 + Height = 21 + Caption = #25972#32463#24037#33402#32534#21495 + end + object Label1: TLabel + Left = 12 + Top = 18 + Width = 96 + Height = 21 + Caption = #25972#32463#20219#21153#21333#21495 + end + object Label5: TLabel + Left = 237 + Top = 138 + Width = 96 + Height = 21 + Caption = #25972#32463#24037#33402#21517#31216 + end + object Label11: TLabel + Left = 12 + Top = 181 + Width = 64 + Height = 21 + Caption = #24635#32463#26681#25968 + end + object Label38: TLabel + Left = 12 + Top = 59 + Width = 64 + Height = 21 + Caption = #32455#36896#21333#21495 + end + object Label47: TLabel + Left = 237 + Top = 56 + Width = 32 + Height = 21 + Caption = #23458#25143 + end + object Label14: TLabel + Left = 237 + Top = 385 + Width = 32 + Height = 21 + Caption = #31576#24133 + end + object Label20: TLabel + Left = 237 + Top = 303 + Width = 32 + Height = 21 + Caption = #31576#21495 + end + object Label39: TLabel + Left = 12 + Top = 304 + Width = 64 + Height = 21 + Caption = #38050#31576#32534#21495 + end + object Label22: TLabel + Left = 12 + Top = 344 + Width = 48 + Height = 21 + Caption = #36793#32433#25968 + end + object Label23: TLabel + Left = 237 + Top = 344 + Width = 64 + Height = 21 + Caption = #22320#31359#20837#25968 + end + object Label37: TLabel + Left = 12 + Top = 385 + Width = 48 + Height = 21 + Caption = #31576#40831#25968 + end + object Label41: TLabel + Left = 12 + Top = 426 + Width = 80 + Height = 21 + Caption = #36793#32433#24635#26681#25968 + end + object Label12: TLabel + Left = 12 + Top = 222 + Width = 96 + Height = 21 + Caption = #32433#39550#26368#22823#39063#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label13: TLabel + Left = 12 + Top = 263 + Width = 32 + Height = 21 + Caption = #26465#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 237 + Top = 221 + Width = 64 + Height = 21 + Caption = #19978#26550#39063#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label16: TLabel + Left = 237 + Top = 262 + Width = 32 + Height = 21 + Caption = #20313#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label17: TLabel + Left = 237 + Top = 97 + Width = 64 + Height = 21 + Caption = #20135#21697#32534#21495 + end + object Label19: TLabel + Left = 237 + Top = 179 + Width = 64 + Height = 21 + Caption = #29983#20135#31867#22411 + end + object Label18: TLabel + Left = 237 + Top = 15 + Width = 64 + Height = 21 + Caption = #25490#21333#26085#26399 + end + object Label40: TLabel + Left = 9 + Top = 499 + Width = 96 + Height = 21 + Caption = #35746#21333#32463#32433#38271#24230 + end + object Label42: TLabel + Left = 236 + Top = 461 + Width = 112 + Height = 21 + Caption = #36793#32433#21333#36793#31576#40831#25968 + end + object Label43: TLabel + Left = 12 + Top = 464 + Width = 64 + Height = 21 + Caption = #36793#31359#20837#27861 + end + object Label44: TLabel + Left = 191 + Top = 347 + Width = 12 + Height = 13 + Caption = #26681 + Font.Charset = DEFAULT_CHARSET + Font.Color = clGrayText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end + object Label45: TLabel + Left = 191 + Top = 467 + Width = 40 + Height = 13 + Caption = #26681'/'#31576#40831 + Font.Charset = DEFAULT_CHARSET + Font.Color = clGrayText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end + object Label46: TLabel + Left = 427 + Top = 467 + Width = 24 + Height = 13 + Caption = #31576#40831 + Font.Charset = DEFAULT_CHARSET + Font.Color = clGrayText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end + object Label48: TLabel + Left = 191 + Top = 387 + Width = 24 + Height = 13 + Caption = #31576#40831 + Font.Charset = DEFAULT_CHARSET + Font.Color = clGrayText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end + object Label49: TLabel + Left = 427 + Top = 347 + Width = 40 + Height = 13 + Caption = #26681'/'#31576#40831 + Font.Charset = DEFAULT_CHARSET + Font.Color = clGrayText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end + object Label50: TLabel + Left = 427 + Top = 307 + Width = 46 + Height = 13 + Caption = #40831'/2'#33521#23544 + Font.Charset = DEFAULT_CHARSET + Font.Color = clGrayText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end + object Label51: TLabel + Left = 427 + Top = 387 + Width = 6 + Height = 16 + Caption = #8216#8217 + Font.Charset = DEFAULT_CHARSET + Font.Color = clGrayText + Font.Height = -13 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end + object TWPId: TcxTextEdit + Tag = 1 + Left = 106 + Top = 12 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 0 + Width = 120 + end + object WB_Code: TcxButtonEdit + Tag = 1 + Left = 106 + Top = 134 + ParentColor = True + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = WB_CodePropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 1 + Width = 120 + end + object WB_Name: TcxTextEdit + Tag = 1 + Left = 339 + Top = 130 + ParentColor = True + TabOrder = 2 + Width = 120 + end + object WB_YarnQty: TcxTextEdit + Tag = 1 + Left = 106 + Top = 175 + ParentColor = True + TabOrder = 3 + Width = 120 + end + object cxGrid3: TcxGrid + Left = 2 + Top = 528 + Width = 516 + Height = 240 + Align = alBottom + TabOrder = 4 + object TV3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column18: TcxGridDBColumn + Caption = #37319#36141#21152#24037#21512#21516#21495 + DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = False + Width = 106 + end + object v1Column15: TcxGridDBColumn + Caption = #21697#29260 + DataBinding.FieldName = 'SXPinPai' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = False + Width = 103 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #34892#21495 + DataBinding.FieldName = 'RowNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 51 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'Y_Code' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object v1SPName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'Y_Name' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 101 + end + object v1SPSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'Y_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 116 + end + object v1Column1: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = False + Width = 92 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #36816#36153 + DataBinding.FieldName = 'YunFei' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = False + Width = 68 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column3: TcxGridDBColumn + Caption = #26681#25968 + DataBinding.FieldName = 'YarnQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 49 + end + object TV3Column1: TcxGridDBColumn + Caption = #24490#29615#26681#25968 + DataBinding.FieldName = 'CycleYarnQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object TV3ZS: TcxGridDBColumn + Caption = #25903#25968 + DataBinding.FieldName = 'ZS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV3BatchNO: TcxGridDBColumn + Caption = #32433#32447#25209#21495 + DataBinding.FieldName = 'BatchNO' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = TV3BatchNOPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 90 + end + object TV3dbNumber: TcxGridDBColumn + Caption = #27599#21253#39063#25968 + DataBinding.FieldName = 'dbNumber' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV3Column2: TcxGridDBColumn + Caption = #21333#20010#31570#37325 + DataBinding.FieldName = 'singleWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object TV3Supplier: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'Supplier' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV3IOTime: TcxGridDBColumn + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 46 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TV3 + end + end + object GYNo: TcxButtonEdit + Tag = 1 + Left = 106 + Top = 53 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = GYNoPropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 5 + OnDblClick = GYNoDblClick + Width = 120 + end + object CustName: TcxButtonEdit + Tag = 1 + Left = 338 + Top = 54 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = CustNamePropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 6 + OnDblClick = GYNoDblClick + Width = 120 + end + object WB_Width: TcxTextEdit + Tag = 1 + Left = 338 + Top = 378 + ParentColor = True + TabOrder = 7 + Width = 83 + end + object WB_ReedNo: TcxTextEdit + Tag = 1 + Left = 338 + Top = 297 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 8 + Width = 83 + end + object GKBH: TcxButtonEdit + Tag = 1 + Left = 106 + Top = 298 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = GKBHPropertiesButtonClick + TabOrder = 9 + Width = 120 + end + object BSQTY: TcxTextEdit + Tag = 1 + Left = 106 + Top = 338 + ParentColor = True + TabOrder = 10 + Width = 79 + end + object DCRQTY: TcxTextEdit + Tag = 1 + Left = 338 + Top = 338 + ParentColor = True + TabOrder = 11 + Width = 83 + end + object C_KCQTY: TcxTextEdit + Tag = 1 + Left = 106 + Top = 379 + ParentColor = True + TabOrder = 12 + Width = 79 + end + object WB_ReedNote: TcxTextEdit + Tag = 1 + Left = 106 + Top = 420 + ParentColor = True + TabOrder = 13 + Width = 315 + end + object F_MAXKESHU: TcxTextEdit + Tag = 2 + Left = 106 + Top = 216 + ParentColor = True + TabOrder = 14 + Text = '640' + Width = 120 + end + object F_YarnStripQty: TcxTextEdit + Tag = 100 + Left = 106 + Top = 257 + ParentColor = True + TabOrder = 15 + Width = 120 + end + object F_SJKESHU: TcxTextEdit + Tag = 100 + Left = 338 + Top = 216 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 16 + Width = 120 + end + object F_YUSHU: TcxTextEdit + Tag = 100 + Left = 338 + Top = 257 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 17 + Width = 120 + end + object C_CODE: TcxTextEdit + Tag = 1 + Left = 338 + Top = 95 + ParentColor = True + TabOrder = 18 + Width = 120 + end + object WB_TYPE: TcxTextEdit + Tag = 8 + Left = 338 + Top = 176 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 19 + Text = #32463#36724 + Width = 120 + end + object BegDate: TcxDateEdit + Tag = 100 + Left = 338 + Top = 10 + AutoSize = False + Properties.ImmediatePost = True + Properties.ShowTime = False + TabOrder = 20 + Height = 33 + Width = 120 + end + object ordqty: TcxTextEdit + Tag = 100 + Left = 111 + Top = 493 + ParentColor = True + TabOrder = 21 + Width = 120 + end + object WB_YarnKCQty: TcxTextEdit + Tag = 1 + Left = 354 + Top = 458 + ParentColor = True + TabOrder = 22 + Width = 67 + end + object BCRFQty: TcxTextEdit + Tag = 1 + Left = 106 + Top = 458 + ParentColor = True + TabOrder = 23 + Width = 79 + end + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Left = 777 + Top = 355 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Left = 945 + Top = 474 + end + inherited ImageList_new32: TImageList + Left = 1352 + Top = 308 + end + inherited cxImageList_bar: TcxImageList + FormatVersion = 1 + Left = 628 + Top = 330 + DesignInfo = 21627508 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Parameters = <> + Left = 1015 + Top = 363 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1091 + Top = 446 + 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 = RMDB_1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 584 + Top = 395 + ReportData = {} + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 669 + Top = 390 + end + object RMDB_1: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 1023 + Top = 529 + end + object DS_Card: TDataSource + DataSet = CDS_Card + Left = 623 + Top = 507 + end + object CDS_Card: TClientDataSet + Aggregates = <> + Params = <> + Left = 658 + Top = 476 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 1175 + Top = 278 + end + object PopupMenu1: TPopupMenu + Left = 854 + Top = 426 + object N2: TMenuItem + Caption = #20840#36873 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #20840#24323 + OnClick = N3Click + end + end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 845 + Top = 472 + end + object PM_1: TPopupMenu + Left = 772 + Top = 508 + object N1: TMenuItem + Caption = #21024#38500 + end + end + object DS_3: TDataSource + DataSet = CDS_3 + Left = 910 + Top = 616 + end + object GPM_3: TcxGridPopupMenu + PopupMenus = <> + Left = 844 + Top = 620 + end + object CDS_3: TClientDataSet + Aggregates = <> + Params = <> + Left = 767 + Top = 622 + end + object ADO_3: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 702 + Top = 621 + end +end diff --git a/E02梭织经轴仓库/U_TatWBPlanZJZKKaiKa.pas b/E02梭织经轴仓库/U_TatWBPlanZJZKKaiKa.pas new file mode 100644 index 0000000..59353d6 --- /dev/null +++ b/E02梭织经轴仓库/U_TatWBPlanZJZKKaiKa.pas @@ -0,0 +1,1059 @@ +unit U_TatWBPlanZJZKKaiKa; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class, + RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, cxPC, + Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, + dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList, cxContainer, + cxMaskEdit, cxDropDownEdit, cxRichEdit, cxMemo, dxScrollbarAnnotations, + dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White, + dxSkinSharpPlus, dxSkinWXI, dxCore, cxDateUtils; + +type + TfrmTatWBPlanZJZKKaiKa = class(TfrmBaseInput) + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + RM1: TRMGridReport; + RMXLSExport1: TRMXLSExport; + RMDB_1: TRMDBDataSet; + Panel2: TPanel; + DS_Card: TDataSource; + CDS_Card: TClientDataSet; + ADOQueryPrint: TADOQuery; + PopupMenu1: TPopupMenu; + N2: TMenuItem; + N3: TMenuItem; + Panel4: TPanel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + TV2Column4: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + TV2Column3: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ToolBar1: TToolBar; + TBSave: TToolButton; + ToolButton1: TToolButton; + ToolButton8: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + GPM_2: TcxGridPopupMenu; + Label7: TLabel; + Label1: TLabel; + PM_1: TPopupMenu; + N1: TMenuItem; + TWPId: TcxTextEdit; + WB_Code: TcxButtonEdit; + Label5: TLabel; + WB_Name: TcxTextEdit; + Label11: TLabel; + WB_YarnQty: TcxTextEdit; + TV2Column2: TcxGridDBColumn; + DS_3: TDataSource; + GPM_3: TcxGridPopupMenu; + CDS_3: TClientDataSet; + ADO_3: TADOQuery; + TV2Column18: TcxGridDBColumn; + ToolButton3: TToolButton; + TV2Column1: TcxGridDBColumn; + TV2Column5: TcxGridDBColumn; + Panel3: TPanel; + Label2: TLabel; + Label6: TLabel; + Label10: TLabel; + Label24: TLabel; + Label25: TLabel; + Label26: TLabel; + Label27: TLabel; + Label28: TLabel; + Label29: TLabel; + WBType1: TcxButtonEdit; + WB_YarnLen1: TcxTextEdit; + edtCardQty1: TcxTextEdit; + WBType2: TcxButtonEdit; + edtCardQty2: TcxTextEdit; + WBType3: TcxButtonEdit; + edtCardQty3: TcxTextEdit; + WB_YarnLen2: TcxTextEdit; + WB_YarnLen3: TcxTextEdit; + Label4: TLabel; + Note: TcxMemo; + Label21: TLabel; + Label30: TLabel; + WB_ProcessType: TcxComboBox; + WBFtyName: TcxButtonEdit; + Label9: TLabel; + Label3: TLabel; + WB_MachNo: TcxButtonEdit; + WB_Macher: TcxButtonEdit; + cxGrid3: TcxGrid; + TV3: TcxGridDBTableView; + v1Column18: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + v1SPName: TcxGridDBColumn; + v1SPSpec: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + Label31: TLabel; + WBBelong1: TcxComboBox; + Label32: TLabel; + WBBelongCoName1: TcxButtonEdit; + Label33: TLabel; + WBBelong2: TcxComboBox; + Label34: TLabel; + WBBelongCoName2: TcxButtonEdit; + Label35: TLabel; + WBBelong3: TcxComboBox; + Label36: TLabel; + WBBelongCoName3: TcxButtonEdit; + TV2Column6: TcxGridDBColumn; + TV2Column7: TcxGridDBColumn; + TV2Column8: TcxGridDBColumn; + TV2Column9: TcxGridDBColumn; + TV3Column1: TcxGridDBColumn; + Label38: TLabel; + GYNo: TcxButtonEdit; + Label47: TLabel; + CustName: TcxButtonEdit; + Label14: TLabel; + Label20: TLabel; + Label39: TLabel; + WB_Width: TcxTextEdit; + WB_ReedNo: TcxTextEdit; + GKBH: TcxButtonEdit; + Label22: TLabel; + Label23: TLabel; + BSQTY: TcxTextEdit; + DCRQTY: TcxTextEdit; + Label37: TLabel; + C_KCQTY: TcxTextEdit; + Label41: TLabel; + WB_ReedNote: TcxTextEdit; + Label12: TLabel; + Label13: TLabel; + Label15: TLabel; + Label16: TLabel; + F_MAXKESHU: TcxTextEdit; + F_YarnStripQty: TcxTextEdit; + F_SJKESHU: TcxTextEdit; + F_YUSHU: TcxTextEdit; + Label17: TLabel; + C_CODE: TcxTextEdit; + Label19: TLabel; + WB_TYPE: TcxTextEdit; + BegDate: TcxDateEdit; + Label18: TLabel; + Label40: TLabel; + ordqty: TcxTextEdit; + TV3ZS: TcxGridDBColumn; + TV3BatchNO: TcxGridDBColumn; + TV3dbNumber: TcxGridDBColumn; + TV3Column2: TcxGridDBColumn; + Label42: TLabel; + WB_YarnKCQty: TcxTextEdit; + Label43: TLabel; + BCRFQty: TcxTextEdit; + Label44: TLabel; + Label45: TLabel; + Label46: TLabel; + Label48: TLabel; + Label49: TLabel; + Label50: TLabel; + Label51: TLabel; + TV3Supplier: TcxGridDBColumn; + TV3IOTime: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormShow(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure WBNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure WB_MachNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure TBSaveClick(Sender: TObject); + procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure WBFtyNameDblClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure TV2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure TV2Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure TV2Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure GYNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure GYNoDblClick(Sender: TObject); + procedure GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure TV3BatchNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + private + function TestData(): Boolean; + procedure PrtDate(MWBCID: string); + procedure InitCard(); + procedure InitCardGrop(); + procedure InitCard3(); + procedure KaiKa(MWBType, MWBBelong, MWBBelongCoNo, MWBBelongCoName: string; MCardQty: Integer; MWB_YarnLen: Double); + { Private declarations } + public + FTWPId: string; + + { Public declarations } + end; + +var + frmTatWBPlanZJZKKaiKa: TfrmTatWBPlanZJZKKaiKa; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_WBTatPlanSel, U_WBSpecSel, + U_WarpBeamInfoSel, U_WBTypeSel, U_CompanySel, U_TatGYSel, U_GKManageSel, + U_TatPlanSel2, U_WeaveSel, U_YarnStkSel; + +{$R *.dfm} procedure TfrmTatWBPlanZJZKKaiKa.InitCard3(); +begin + with ADO_3 do + begin + Close; + sql.Clear; + sql.Add(' select A.* from Tat_WB_Formula A inner join Tat_WB_Spec B on A.WBSID=B.WBSID '); + sql.Add(' where WB_Code=''' + Trim(WB_Code.Text) + ''''); + Open; + end; + SCreateCDS(ADO_3, CDS_3); + SInitCDSData(ADO_3, CDS_3); +end; + +procedure TfrmTatWBPlanZJZKKaiKa.InitCardGrop(); +begin + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from Tat_WB_Plan A where A.TWPId=''' + Trim(FTWPId) + ''''); + Open; + end; + + SCSHData(ADOQueryTemp, Panel1, 1); + GYNo.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('GYSubid').AsString); + CustName.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('CustNo').AsString); +// WBFtyName.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('WBFtyNo').AsString); + +end; + +function TfrmTatWBPlanZJZKKaiKa.TestData(): Boolean; +begin + try + + if Trim(FTWPId) = '' then + begin + if GetLSNo(ADOQueryTemp, FTWPId, 'QJ', 'Tat_WB_Card', 3, 1) = False then + begin + raise Exception.Create('Ǩʧ!'); + end; + TWPId.Text := FTWPId; + end; + if Trim(WB_ProcessType.Text) = '' then + begin +// if Trim(WB_Macher.Text) = '' then +// raise Exception.Create('ǤλΪգ'); + end; + if trim(WB_Code.Text) = '' then + raise Exception.Create('ŲΪգ'); +// if StrToIntDef(edtCardQty.Text, 0) = 0 then +// raise Exception.Create('Ϊգ'); + + if trim(WB_ProcessType.Text) <> '' then + if trim(WBFtyName.Text) = '' then + raise Exception.Create('ӹɹλΪգ'); + + if StrToIntDef(WB_YarnQty.Text, 0) = 0 then + raise Exception.Create('ͷƲΪգ'); +// if Trim(WB_YarnArr.Text) = '' then +// raise Exception.Create('ŲΪգ'); +// if Trim(WB_Len.Text) = '' then +// raise Exception.Create('᳤Ϊգ'); +// if StrToIntDef(WB_YarnLen.Text, 0) = 0 then +// raise Exception.Create('ȲΪգ'); + if Trim(WB_ProcessType.Text) = '' then + begin +// if Trim(WB_MachNo.Text) = '' then +// raise Exception.Create('ǨΪգ'); + end; + +// if StrToIntDef(WB_ClothPiece.Text, 0) = 0 then +// WB_ClothPiece.Text := '0'; + if Trim(WB_Type.Text) = '' then + raise Exception.Create('ͲΪգ'); + Result := True; + except + Result := false; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; +end; + +procedure TfrmTatWBPlanZJZKKaiKa.InitCard(); +begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* '); + sql.Add('from Tat_WB_Card A '); + sql.Add('where isnull(Status,''0'')<>''-1'' and WBCNO=' + quotedstr(Trim(FTWPId))); + + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_Card); + SInitCDSData(ADOQueryTemp, CDS_Card); +end; + +procedure TfrmTatWBPlanZJZKKaiKa.PrtDate(MWBCID: string); +var + fPrintFile, FFCYID: string; + DPS, i, j: Integer; +begin + + ExportFtErpFile('Ῠǩ.rmf', ADOQueryTemp); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\Ῠǩ.rmf'; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update Tat_WB_Card set PrtFlag=PrtFlag+1 '); + sql.Add(' where WBCID=' + quotedstr(MWBCID)); + ExecSQL; + end; + + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('select A.*,B.*,D.* '); + sql.Add(' from PD_Plan_Main A inner join PD_Plan_Sub B on A.Mainid=B.MainId'); + sql.Add(' inner join Tat_WB_Card_MS C on C.Subid=B.Subid '); + sql.Add(' inner join Tat_WB_Card D on C.WBCID=D.WBCID '); + sql.Add(' where D.WBCID=' + quotedstr(MWBCID)); +// ShowMessage(SQL.Text); + Open; + end; + +// with ADOQueryTemp do +// begin +// Close; +// sql.Clear; +// sql.Add('select Y.* from PD_Plan_Yarn Y INNER JOIN Tat_WB_Card_MS M ON M.MainId=Y.MainId where Y.PYType=''˿'' and M.WBCID=' + Quotedstr(Trim(MWBCID))); +// Open; +// end; +// SCreateCDS(ADOQueryTemp, CDS_PJS); +// SInitCDSData(ADOQueryTemp, CDS_PJS); +// +// with ADOQueryTemp do +// begin +// Close; +// sql.Clear; +// sql.Add('select Y.* from PD_Plan_Yarn Y INNER JOIN Tat_WB_Card_MS M ON M.MainId=Y.MainId where Y.PYType=''γ˿'' and M.WBCID=' + Quotedstr(Trim(MWBCID))); +// Open; +// end; +// SCreateCDS(ADOQueryTemp, CDS_PWS); +// SInitCDSData(ADOQueryTemp, CDS_PWS); + + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + RM1.DefaultCopies := 1; + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + Exit; + end; + +end; + +procedure TfrmTatWBPlanZJZKKaiKa.WBFtyNameDblClick(Sender: TObject); +begin + self.WBFtyName.Properties.LookupItems.Text := ''; + self.WBFtyName.Text := ''; +end; + +procedure TfrmTatWBPlanZJZKKaiKa.WBNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmWBTypeSel := TfrmWBTypeSel.Create(Application); + with frmWBTypeSel do + begin + if ShowModal = 1 then + begin + TcxTextEdit(Sender).Text := Trim(frmWBTypeSel.CDS_Main.fieldbyname('WBType').AsString); + end; + end; + finally + frmWBTypeSel.Free; + end; +end; + +procedure TfrmTatWBPlanZJZKKaiKa.WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmWBSpecSel := TfrmWBSpecSel.Create(Application); + with frmWBSpecSel do + begin + fWB_TYPE := ''; + if ShowModal = 1 then + begin + Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString); + Self.WB_Name.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString); + Self.WB_YarnQty.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').value; + + Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString); + + Self.WB_YarnKCQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnKCQty').AsString); + Self.BCRFQty.Text := frmWBSpecSel.CDS_1.fieldbyname('BCRFQty').value; + Self.InitCard3(); + end; + end; + finally + frmWBSpecSel.Free; + end; +end; + +procedure TfrmTatWBPlanZJZKKaiKa.WB_MachNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TcxButtonEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin +// MainType := 'SalesCon'; + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmTatWBPlanZJZKKaiKa.CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + inherited; + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'ͻ'; + if ShowModal = 1 then + begin + CustName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); + CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmTatWBPlanZJZKKaiKa.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'Ӧ'; + if ShowModal = 1 then + begin + tcxbuttonedit(Sender).Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); + tcxbuttonedit(Sender).Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmTatWBPlanZJZKKaiKa.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmTatWBPlanZJZKKaiKa.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(Trim(self.Caption) + 'Tv3', Tv3, 'Ῠ'); + ReadCxGrid(Trim(self.Caption) + 'Tv2', Tv2, 'Ῠ'); + InitCardGrop(); + InitCard(); + + InitCard3(); +end; + +procedure TfrmTatWBPlanZJZKKaiKa.GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmGKManageSel := tfrmGKManageSel.Create(Application); + with frmGKManageSel do + begin + + if ShowModal = 1 then + begin + SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString; + SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString; + end; + end; + finally + frmGKManageSel.Free; + end; +end; + +procedure TfrmTatWBPlanZJZKKaiKa.GYNoDblClick(Sender: TObject); +begin + inherited; + TcxButtonEdit(Sender).Properties.LookupItems.Text := ''; + TcxButtonEdit(Sender).Text := ''; +end; + +procedure TfrmTatWBPlanZJZKKaiKa.GYNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + inherited; + try + frmWeaveSel := TfrmWeaveSel.Create(Application); + with frmWeaveSel do + begin + FISSJ := ''; + if ShowModal = 1 then + begin + Self.GYNo.Text := CDS_1.FieldByName('OrderNo').asstring; + Self.GYNo.Properties.LookupItems.Text := CDS_1.FieldByName('Subid').asstring; + Self.CustName.Text := CDS_1.FieldByName('CustName').asstring; + + Self.WB_Code.Text := CDS_1.FieldByName('WB_Code').asstring; +// Self.CONNO.Text := Trim(CDS_1.fieldbyname('CONNO').AsString); + Self.C_CODE.Text := Trim(CDS_1.fieldbyname('C_CODE').AsString); + Self.BegDate.Date := CDS_1.fieldbyname('ORDDATE').AsDateTime; + Self.ordqty.Text := Trim(CDS_1.fieldbyname('ordqty2').AsString); + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' select A.* '); + sql.Add(' from Tat_WB_Spec A'); + sql.Add(' where WB_Code=''' + trim(WB_Code.Text) + ''' '); + Open; + end; + + Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').AsString); + Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString); + Self.WB_YarnQty.Text := ADOQueryTemp.fieldbyname('WB_YarnQty').asstring; + + Self.F_MAXKESHU.Text := ADOQueryTemp.fieldbyname('F_MAXKESHU').asstring; + Self.F_SJKESHU.Text := ADOQueryTemp.fieldbyname('F_SJKESHU').asstring; + Self.F_YarnStripQty.Text := ADOQueryTemp.fieldbyname('F_YarnStripQty').asstring; + Self.F_YUSHU.Text := ADOQueryTemp.fieldbyname('F_YUSHU').asstring; + Self.GKBH.Text := ADOQueryTemp.fieldbyname('GKBH').asstring; + Self.BSQTY.Text := ADOQueryTemp.fieldbyname('BSQTY').asstring; + Self.DCRQTY.Text := ADOQueryTemp.fieldbyname('DCRQTY').asstring; + Self.C_KCQTY.Text := ADOQueryTemp.fieldbyname('C_KCQTY').asstring; + + Self.WB_Width.Text := Trim(ADOQueryTemp.fieldbyname('WB_Width').AsString); + Self.WB_ReedNo.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNo').AsString); + Self.WB_ReedNote.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNote').AsString); + + Self.Note.Text := Trim(ADOQueryTemp.fieldbyname('Note').AsString); + Self.InitCard3(); + + end; + end; + finally + frmWeaveSel.Free; + end; +end; + +procedure TfrmTatWBPlanZJZKKaiKa.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Card, True); +end; + +procedure TfrmTatWBPlanZJZKKaiKa.N3Click(Sender: TObject); +begin + SelOKNo(CDS_Card, False); +end; + +procedure TfrmTatWBPlanZJZKKaiKa.TBCloseClick(Sender: TObject); +begin + ModalResult := 1; +end; + +procedure TfrmTatWBPlanZJZKKaiKa.TBSaveClick(Sender: TObject); +begin + if TestData() = false then + exit; + + KaiKa(WBType1.Text, WBBelong1.Text, WBBelongCoName1.Properties.LookupItems.Text, WBBelongCoName1.Text, StrToIntdef(edtCardQty1.Text, 0), StrToFloatdef(WB_YarnLen1.Text, 0)); + KaiKa(WBType2.Text, WBBelong2.Text, WBBelongCoName2.Properties.LookupItems.Text, WBBelongCoName2.Text, StrToIntdef(edtCardQty2.Text, 0), StrToFloatdef(WB_YarnLen2.Text, 0)); + KaiKa(WBType3.Text, WBBelong3.Text, WBBelongCoName3.Properties.LookupItems.Text, WBBelongCoName3.Text, StrToIntdef(edtCardQty3.Text, 0), StrToFloatdef(WB_YarnLen3.Text, 0)); +end; + +procedure TfrmTatWBPlanZJZKKaiKa.KaiKa(MWBType, MWBBelong, MWBBelongCoNo, MWBBelongCoName: string; MCardQty: Integer; MWB_YarnLen: Double); +var + MWBCID: string; + i, j: integer; + fDate: string; + fMonth: string; +begin + if MCardQty = 0 then + EXIT; + + try + ADOQueryCmd.Connection.BeginTrans; + + fDate := FormatDateTime('yy', SGetServerDate(ADOQueryTemp)); + fMonth := FormatDateTime('mm', SGetServerDate(ADOQueryTemp)); + + with ADOQueryCmd do + begin + Close; + sql.Clear; + ////////////////// Ῠ ////////////////////// + sql.Add(' insert into Tat_WB_Card(WBCNO,TWPId,WBCID,WBType,WB_ProcessType,WB_Code,WB_Name,WB_YarnQty,WB_YARNARR,WB_YarnLen,WB_Macher,WB_MachNo,WB_Type,Note,FillId,Filler'); + sql.Add(' ,WB_Width,WB_ReedNo,WB_ReedNote,WBFtyNo,WBFtyName,WBBelong,WBBelongCoNo,WBBelongCoName '); + sql.Add(' ,GYSubid,GYNo,CustNo,CustName,GKBH,C_CODE'); + SQL.Add(' ,BSQTY,DCRQTY,C_KCQTY'); + SQL.Add(' ,BegDate,F_SJKESHU,F_YarnStripQty,F_YUSHU,ordqty'); + sql.Add(' ) values'); + for i := 1 to MCardQty do + begin + if GetLSNo(ADOQueryTemp, MWBCID, 'JZ' + fDate + fMonth, 'Tat_WB_Card', 3, 0) = False then + begin + raise Exception.Create('ȡƱˮʧ!'); + end; + + if i > 1 then + sql.Add(','); + sql.Add(' (' + Quotedstr(Trim(TWPId.Text))); + sql.Add(',' + Quotedstr(Trim(TWPId.Text))); + sql.Add(',' + Quotedstr(Trim(MWBCID))); + sql.Add(',' + Quotedstr(Trim(MWBType))); + sql.Add(',' + Quotedstr(Trim(WB_ProcessType.Text))); + sql.Add(',' + Quotedstr(Trim(WB_Code.Text))); + sql.Add(',' + Quotedstr(Trim(WB_Name.Text))); + sql.Add(',' + (Trim(WB_YarnQty.Text))); + + if F_SJKESHU.Text <> '' then + begin + sql.Add(',' + (Trim(F_SJKESHU.Text))); + end + else + begin + sql.Add(',0'); + end; + + + sql.Add(',' + FloatToStr(MWB_YarnLen)); + sql.Add(',' + Quotedstr(Trim(WB_Macher.Text))); + sql.Add(',' + Quotedstr(Trim(WB_MachNo.Text))); + sql.Add(',' + Quotedstr(Trim(WB_Type.Text))); + sql.Add(',' + Quotedstr(Trim(Note.Text))); + sql.Add(',' + Quotedstr(Trim(DCode))); + sql.Add(',' + Quotedstr(Trim(DName))); + sql.Add(',' + Quotedstr(Trim(WB_Width.Text))); + sql.Add(',' + Quotedstr(Trim(WB_ReedNo.Text))); + sql.Add(',' + Quotedstr(Trim(WB_ReedNote.Text))); + sql.Add(',' + Quotedstr(Trim(WBFtyName.Properties.LookupItems.Text))); + sql.Add(',' + Quotedstr(Trim(WBFtyName.Text))); + sql.Add(',' + Quotedstr(Trim(MWBBelong))); + sql.Add(',' + Quotedstr(Trim(MWBBelongCoNo))); + sql.Add(',' + Quotedstr(Trim(MWBBelongCoName))); + sql.Add(',' + Quotedstr(Trim(GYNo.Properties.LookupItems.Text)));//GYSubid + sql.Add(',' + Quotedstr(Trim(GYNo.Text))); + sql.Add(',' + Quotedstr(Trim(CustName.Properties.LookupItems.Text))); + sql.Add(',' + Quotedstr(Trim(CustName.Text))); + sql.Add(',' + Quotedstr(Trim(GKBH.Text))); + + sql.Add(',' + Quotedstr(Trim(C_CODE.Text))); + + if BSQTY.Text <> '' then + begin + sql.Add(',' + (Trim(BSQTY.Text))); + end + else + begin + sql.Add(',0'); + end; + + if DCRQTY.Text <> '' then + begin + sql.Add(',' + (Trim(DCRQTY.Text))); + end + else + begin + sql.Add(',0'); + end; + + sql.Add(',' + Quotedstr(Trim(C_KCQTY.Text))); + + sql.Add(',' + Quotedstr(Trim(BegDate.Text))); + + if F_SJKESHU.Text <> '' then + begin + sql.Add(',' + (Trim(F_SJKESHU.Text))); + end + else + begin + sql.Add(',0'); + end; + + if F_YarnStripQty.Text <> '' then + begin + sql.Add(',' + (Trim(F_YarnStripQty.Text))); + end + else + begin + sql.Add(',0'); + end; + + if F_YUSHU.Text <> '' then + begin + sql.Add(',' + (Trim(F_YUSHU.Text))); + end + else + begin + sql.Add(',0'); + end; + + if ordqty.Text <> '' then + begin + sql.Add(',' + (Trim(ordqty.Text))); + end + else + begin + sql.Add(',0'); + end; + sql.Add(' )'); +// ShowMessage(sql.Text); + end; + + ExecSQL; + end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from V_Tat_WB_CardGrop A where A.WBCNO=''' + Trim(FTWPId) + ''''); + Open; + end; + if ADOQueryTemp.RecordCount > 1 then + raise Exception.Create('ƻϢܱ!'); + + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; + InitCard(); +end; + +procedure TfrmTatWBPlanZJZKKaiKa.ToolButton1Click(Sender: TObject); +var + WSql: string; +begin + + if CDS_Card.IsEmpty then + Exit; + if CDS_Card.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + + WSql := ''; + CDS_Card.DisableControls; + + with CDS_Card do + begin + First; + while not Eof do + begin + if CDS_Card.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + QuotedStr(Trim(CDS_Card.fieldbyname('WBCID').AsString)); + end + else + begin + WSql := QuotedStr(Trim(CDS_Card.fieldbyname('WBCID').AsString)); + end; + end; + Next; + end; + end; + + CDS_Card.Locate('SSel', True, []); + CDS_Card.EnableControls; + + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FPreviewPrint := False; + FLMType := 'TatWBCard'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update Tat_WB_Card '); + sql.Add(' set PRTer=' + quotedstr(DName)); + sql.Add(', PRTCount=PRTCount+1'); + sql.Add(', PRTDate=getdate()'); + sql.Add(' where WBCID in (' + WSql + ')'); + ExecSQL; + end; + end; + end; + finally + frmLabelPrint.Free; + end; + +end; + +procedure TfrmTatWBPlanZJZKKaiKa.ToolButton2Click(Sender: TObject); +begin + WriteCxGrid(Trim(self.Caption) + 'Tv3', Tv3, 'Ῠ'); + WriteCxGrid(Trim(self.Caption) + 'Tv2', Tv2, 'Ῠ'); +end; + +procedure TfrmTatWBPlanZJZKKaiKa.ToolButton3Click(Sender: TObject); +begin + Note.SetFocus; + try + CDS_Card.DisableControls; + CDS_Card.First; + while not CDS_Card.Eof do + begin + ADOQueryCmd.Connection.BeginTrans; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('select * from Tat_WB_Card A'); + sql.Add('where WBCID=''' + trim(CDS_Card.fieldbyname('WBCID').AsString) + ''''); + open; + edit; + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); + RTSetsavedata(ADOQueryCmd, 'Tat_WB_Card', Panel1, 1); + RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_Card, 'Tat_WB_Card', 0); + post; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + raise Exception.Create(PChar(Exception(ExceptObject).Message)); + end; + CDS_Card.Next; + end; + CDS_Card.EnableControls; + except + CDS_Card.EnableControls; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; +end; + +procedure TfrmTatWBPlanZJZKKaiKa.ToolButton8Click(Sender: TObject); +var + WSql: string; +begin + if CDS_Card.IsEmpty then + Exit; + if CDS_Card.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + + WSql := ''; + CDS_Card.DisableControls; + + while CDS_Card.Locate('SSel', True, []) do + begin + if CDS_Card.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + (Trim(CDS_Card.fieldbyname('WBCID').AsString)); + end + else + begin + WSql := (Trim(CDS_Card.fieldbyname('WBCID').AsString)); + end; + end; + CDS_Card.Delete; + end; + CDS_Card.EnableControls; + + try + ADOQueryCmd.Connection.BeginTrans; +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add('insert into Knit_Need_Up(UOperation,UType,UDataId) values('''',''ɾ'',' + quotedstr(MCIIDS) + ') '); +// ExecSQL; +// end; + with ADOQueryCmd do + begin + Close; + Sql.Clear; + Sql.Add('exec P_TatWB_Card_Del '); + Sql.Add('@WBCIDS=' + quotedstr(Trim(WSql))); + Sql.Add(',@DCode=' + Quotedstr(DCode)); + Sql.Add(',@DName=' + Quotedstr(DName)); + Open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + begin + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + end; + ADOQueryCmd.Connection.CommitTrans; + + application.MessageBox('ɾɹ', 'ʾϢ'); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; +end; + +procedure TfrmTatWBPlanZJZKKaiKa.TV2Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmWBTypeSel := TfrmWBTypeSel.Create(Application); + with frmWBTypeSel do + begin + if ShowModal = 1 then + begin + with CDS_Card do + begin + Edit; + FieldByName('WBType').Value := Trim(frmWBTypeSel.CDS_Main.fieldbyname('WBType').AsString); + Post; + end; + end; + end; + finally + frmWBTypeSel.Free; + end; +end; + +procedure TfrmTatWBPlanZJZKKaiKa.TV2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'Ӧ'; + if ShowModal = 1 then + begin + with CDS_Card do + begin + Edit; + FieldByName('WBFtyNo').Value := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); + FieldByName('WBFtyName').Value := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); + Post; + end; + end; + end; + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmTatWBPlanZJZKKaiKa.TV2Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'Ӧ'; + if ShowModal = 1 then + begin + with CDS_Card do + begin + Edit; + FieldByName('WBBelongCoNo').Value := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); + FieldByName('WBBelongCoName').Value := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); + Post; + end; + end; + end; + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmTatWBPlanZJZKKaiKa.TV3BatchNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmYarnStkSel := TfrmYarnStkSel.Create(Application); + with frmYarnStkSel do + begin +// FstkName := Self.FstkName; + if ShowModal = 1 then + begin + frmYarnStkSel.CDS_Main.DisableControls; + with frmYarnStkSel.CDS_Main do + begin + + with Self.CDS_3 do + begin + Edit; + FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value; + FieldByName('singleWeight').Value := frmYarnStkSel.CDS_Main.fieldbyname('singleWeight').Value; + FieldByName('dbNumber').Value := frmYarnStkSel.CDS_Main.fieldbyname('dbNumber').Value; + FieldByName('Supplier').Value := frmYarnStkSel.CDS_Main.fieldbyname('Supplier').Value; + FieldByName('IOTime').Value := frmYarnStkSel.CDS_Main.fieldbyname('IOTime').Value; + Post; + end; + end; + frmYarnStkSel.CDS_Main.EnableControls; + end; + end; + finally + frmYarnStkSel.Free; + end; + +end; + +end. + diff --git a/E02梭织经轴仓库/U_WBNeedHTList.dfm b/E02梭织经轴仓库/U_WBNeedHTList.dfm new file mode 100644 index 0000000..7dca154 --- /dev/null +++ b/E02梭织经轴仓库/U_WBNeedHTList.dfm @@ -0,0 +1,329 @@ +inherited frmWBNeedHTList: TfrmWBNeedHTList + Left = 105 + Top = 131 + Caption = #32463#36724#38656#27714#21512#21516 + ClientHeight = 667 + ClientWidth = 1540 + Font.Height = -16 + Position = poMainFormCenter + ExplicitWidth = 1556 + ExplicitHeight = 706 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 105 + Caption = 'ToolBar1' + Color = clWhite + Images = DataLink_WarpBeamStk.cxImageList_bar + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 2 + ExplicitLeft = 1 + 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 = #23548#20986'Excel' + ImageIndex = 20 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 251 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 354 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 30 + Width = 1540 + Height = 43 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 3 + ExplicitLeft = 8 + ExplicitTop = 25 + object Label3: TLabel + Left = 268 + Top = 10 + Width = 64 + Height = 21 + Caption = #20135#21697#21517#31216 + end + object Label4: TLabel + Left = 28 + Top = 10 + Width = 80 + Height = 21 + Caption = #22383#24067#21512#21516#21495 + end + object C_Name: TcxTextEdit + Tag = 2 + Left = 338 + Top = 6 + Properties.OnChange = FromCoNamePropertiesChange + TabOrder = 0 + Width = 150 + end + object ConNo: TcxTextEdit + Tag = 2 + Left = 114 + Top = 6 + Properties.OnChange = FromCoNamePropertiesChange + TabOrder = 1 + Width = 150 + end + end + inherited cxProgressBar2: TcxProgressBar + ExplicitHeight = 29 + end + object Panel2: TPanel [4] + Left = 0 + Top = 73 + Width = 1540 + Height = 594 + Align = alClient + TabOrder = 4 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 1538 + Height = 592 + Align = alClient + PopupMenu = PM_1 + TabOrder = 0 + ExplicitLeft = 2 + ExplicitTop = -2 + object TV1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsView.GroupByBox = False + object TV1ConNo: TcxGridDBColumn + Caption = #22383#24067#21512#21516#21495 + DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 116 + end + object TV1C_Code: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 84 + end + object TV1C_Name: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 85 + end + object TV1C_Composition: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object TV1YarnZS: TcxGridDBColumn + Caption = #32433#25903 + DataBinding.FieldName = 'YarnZS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 87 + end + object TV1Density: TcxGridDBColumn + Caption = #23494#24230 + DataBinding.FieldName = 'Density' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 96 + end + object TV1C_Width: TcxGridDBColumn + Caption = #22383#24067#38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 112 + end + object TV1OrdQty: TcxGridDBColumn + Caption = #21512#21516#25968#37327 + DataBinding.FieldName = 'OrdQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 80 + end + object TV1WB_Code: TcxGridDBColumn + Caption = #25972#32463#24037#33402#32534#21495 + DataBinding.FieldName = 'WB_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 114 + end + object TV1WB_Name: TcxGridDBColumn + Caption = #25972#32463#24037#33402#21517#31216 + DataBinding.FieldName = 'WB_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 114 + end + object TV1WB_YarnQty: TcxGridDBColumn + Caption = #24635#22836#20221 + DataBinding.FieldName = 'WB_YarnQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 68 + end + object TV1WB_ReedNo: TcxGridDBColumn + Caption = #31576#21495 + DataBinding.FieldName = 'WB_ReedNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 57 + end + object TV1WB_Width: TcxGridDBColumn + Caption = #32463#36724#38376#24133 + DataBinding.FieldName = 'WB_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 82 + end + object TV1ArrangeQTY: TcxGridDBColumn + Caption = #24050#23433#25490#25968#37327 + DataBinding.FieldName = 'ArrangeQTY' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle1 + Width = 148 + end + object TV1KCQTY: TcxGridDBColumn + Caption = #23454#38469#23436#25104#25968#37327 + DataBinding.FieldName = 'KCQTY' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WarpBeamStk.grid_head_blue + Width = 135 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = TV1 + end + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Left = 313 + Top = 128 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Left = 209 + Top = 129 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + Parameters = <> + Left = 480 + Top = 128 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 568 + Top = 128 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_WarpBeamStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 408 + Top = 128 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 144 + Top = 280 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 536 + Top = 240 + end + object PM_1: TPopupMenu + Left = 472 + Top = 208 + object N1: TMenuItem + Caption = #22797#21046 + OnClick = N1Click + end + end + object cxStyleRepository1: TcxStyleRepository + PixelsPerInch = 96 + object cxStyle1: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #24494#36719#38597#40657 + Font.Style = [fsBold] + TextColor = clRed + end + object cxStyle2: TcxStyle + AssignedValues = [svTextColor] + TextColor = clMenuHighlight + end + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 144 + Top = 208 + end +end diff --git a/E02梭织经轴仓库/U_WBNeedHTList.pas b/E02梭织经轴仓库/U_WBNeedHTList.pas new file mode 100644 index 0000000..d3ef172 --- /dev/null +++ b/E02梭织经轴仓库/U_WBNeedHTList.pas @@ -0,0 +1,232 @@ +unit U_WBNeedHTList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, Clipbrd, + 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, cxNavigator, dxDateRanges, + dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxSkinsCore, + dxSkinsDefaultPainters, cxProgressBar, cxGroupBox; + +type + TfrmWBNeedHTList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + PM_1: TPopupMenu; + Label3: TLabel; + Label4: TLabel; + C_Name: TcxTextEdit; + ConNo: TcxTextEdit; + ToolButton2: TToolButton; + Panel2: TPanel; + TV1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + TV1ConNo: TcxGridDBColumn; + TV1C_Code: TcxGridDBColumn; + TV1C_Name: TcxGridDBColumn; + TV1C_Composition: TcxGridDBColumn; + TV1YarnZS: TcxGridDBColumn; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + CDS_1: TClientDataSet; + TV1Density: TcxGridDBColumn; + TV1C_Width: TcxGridDBColumn; + N1: TMenuItem; + ToolButton1: TToolButton; + TV1OrdQty: TcxGridDBColumn; + TV1WB_Code: TcxGridDBColumn; + TV1WB_Name: TcxGridDBColumn; + TV1WB_YarnQty: TcxGridDBColumn; + TV1WB_ReedNo: TcxGridDBColumn; + TV1WB_Width: TcxGridDBColumn; + TV1KCQTY: TcxGridDBColumn; + TV1ArrangeQTY: 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 SXBatchNOChange(Sender: TObject); + procedure FromCoNameChange(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure FormCreate(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure FromCoNamePropertiesChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + private + canshu1, FStkName, canshu3: string; + procedure InitGrid(); + { Private declarations } + public + FWB_Code: string; + { Public declarations } + end; + +var + frmWBNeedHTList: TfrmWBNeedHTList; + +implementation + +uses + U_DataLink, U_RTFun; + +{$R *.dfm} + +procedure TfrmWBNeedHTList.FormDestroy(Sender: TObject); +begin + inherited; + frmWBNeedHTList := nil; +end; + +procedure TfrmWBNeedHTList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmWBNeedHTList.FormCreate(Sender: TObject); +begin + inherited; + canshu1 := Trim(self.fParameters1); + FStkName := Trim(self.fParameters2); + canshu3 := Trim(self.fParameters3); +end; + +procedure TfrmWBNeedHTList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add(' select A.ConNo, C_Name, C_Code '); + sql.Add(' ,C_Width'); + sql.Add(',C_Composition, Density '); + sql.Add(', YarnZS'); + sql.Add(',sum(A.OrdQty) as OrdQty, WB_Code'); + sql.Add(', WB_Name, WB_YarnQty'); + sql.Add(', WB_ReedNo, WB_Width'); + sql.Add(',sum(A.KCQTY) as KCQTY'); + sql.Add(',sum(A.ArrangeQTY) as ArrangeQTY'); + SQL.ADD('from V_WBNeedHTLook A '); +// SQL.Add('WHERE WB_Code=' + QuotedStr(FWB_Code)); + SQL.Add('group BY ConNo,C_Name,C_Code,C_Width,C_Composition,Density'); + SQL.Add(',YarnZS,WB_Code,WB_Name,WB_YarnQty,WB_ReedNo,WB_Width'); +// sql.Add(' where A.STKName ='''' and A.IOFlag ='''' and A.WBNo like ''%JZ%'' and isnull(CLFlag,0)=0 '); +// sql.Add(' and not EXISTS (select * from Tat_WB_IO X where X.STKName ='''' and X.IOFlag ='''' and A.WBNO =X.WBNO) '); +// ShowMessage(Sql.text); + Open; + end; + + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmWBNeedHTList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + +end; + +procedure TfrmWBNeedHTList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmWBNeedHTList.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmWBNeedHTList.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(trim(Self.Caption), Tv1, 'ͬ'); + InitGrid(); +end; + +procedure TfrmWBNeedHTList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + end; +end; + +procedure TfrmWBNeedHTList.MPRTCodeNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWBNeedHTList.N1Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmWBNeedHTList.SXBatchNOChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWBNeedHTList.FromCoNameChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWBNeedHTList.FromCoNamePropertiesChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmWBNeedHTList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel(self.Caption, cxGrid1); +end; + +procedure TfrmWBNeedHTList.ToolButton2Click(Sender: TObject); +begin + + WriteCxGrid(trim(Self.Caption), Tv1, 'ͬ'); +end; + +procedure TfrmWBNeedHTList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + ModalResult := 1; +end; + +end. + diff --git a/E02梭织经轴仓库/U_WBNeedLook.dfm b/E02梭织经轴仓库/U_WBNeedLook.dfm index cfcfb9b..8160da6 100644 --- a/E02梭织经轴仓库/U_WBNeedLook.dfm +++ b/E02梭织经轴仓库/U_WBNeedLook.dfm @@ -26,6 +26,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook ParentColor = False ShowCaptions = True TabOrder = 2 + ExplicitLeft = 1 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -71,6 +72,8 @@ inherited frmWBNeedLook: TfrmWBNeedLook Color = clWhite ParentBackground = False TabOrder = 3 + ExplicitLeft = -1 + ExplicitTop = 25 object Label3: TLabel Left = 268 Top = 10 @@ -119,6 +122,8 @@ inherited frmWBNeedLook: TfrmWBNeedLook Height = 592 Align = alClient TabOrder = 0 + ExplicitLeft = -1 + ExplicitTop = -2 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -227,6 +232,8 @@ inherited frmWBNeedLook: TfrmWBNeedLook Height = 268 Align = alClient TabOrder = 0 + ExplicitLeft = 4 + ExplicitTop = 22 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E02梭织经轴仓库/U_WBSpecInPut.dfm b/E02梭织经轴仓库/U_WBSpecInPut.dfm index 1b324bb..a5bc558 100644 --- a/E02梭织经轴仓库/U_WBSpecInPut.dfm +++ b/E02梭织经轴仓库/U_WBSpecInPut.dfm @@ -6,19 +6,19 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut ClientWidth = 1174 Color = clWhite Font.Charset = DEFAULT_CHARSET + Font.Color = clHotLight Font.Height = -11 Font.Name = 'Tahoma' Position = poMainFormCenter - ExplicitTop = -309 ExplicitWidth = 1190 ExplicitHeight = 884 PixelsPerInch = 96 TextHeight = 13 object cxGrid1: TcxGrid [0] Left = 0 - Top = 519 + Top = 631 Width = 1174 - Height = 326 + Height = 214 Align = alClient PopupMenu = PopupMenu1 TabOrder = 0 @@ -98,6 +98,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Properties.ReadOnly = True Properties.OnButtonClick = Tv1Column2PropertiesButtonClick HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WarpBeamStk.grid_head_blue Width = 94 end object v1SPName: TcxGridDBColumn @@ -113,6 +114,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Properties.ReadOnly = False Properties.OnButtonClick = Tv1Column2PropertiesButtonClick HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 101 end object Tv1Y_Composition: TcxGridDBColumn @@ -147,6 +149,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut DataBinding.FieldName = 'Y_Color' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 70 end object Tv1Column7: TcxGridDBColumn @@ -156,6 +159,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 100 end object Tv1Column8: TcxGridDBColumn @@ -165,6 +169,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = Tv1Column8PropertiesEditValueChanged HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 100 end object Tv1FF: TcxGridDBColumn @@ -172,6 +177,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut DataBinding.FieldName = 'FF' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1YarnFactor: TcxGridDBColumn @@ -182,6 +188,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Properties.ReadOnly = True Properties.OnEditValueChanged = Tv1Column8PropertiesEditValueChanged HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object v1Column3: TcxGridDBColumn @@ -208,6 +215,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut DataBinding.FieldName = 'MeterQty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_WarpBeamStk.grid_head_red Width = 116 end object Tv1Column6: TcxGridDBColumn @@ -217,6 +226,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = Tv1Column8PropertiesEditValueChanged HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_WarpBeamStk.grid_head_blue Width = 80 end object v1Column12: TcxGridDBColumn @@ -284,20 +294,21 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Left = 0 Top = 30 Width = 1174 - Height = 459 + Height = 571 Align = alTop BevelInner = bvNone BevelOuter = bvNone BorderStyle = bsNone Ctl3D = False Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText + Font.Color = clHotLight Font.Height = -16 - Font.Name = 'Tahoma' + Font.Name = #24494#36719#38597#40657 Font.Style = [] ParentCtl3D = False ParentFont = False TabOrder = 2 + ExplicitTop = 24 object Label3: TLabel Left = 11 Top = 17 @@ -318,7 +329,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Height = 21 Caption = #24635#32463#26681#25968 Font.Charset = ANSI_CHARSET - Font.Color = clWindowText + Font.Color = clBlue Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -331,20 +342,20 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Height = 21 Caption = #25972#32463#24037#33402#21517#31216 Font.Charset = ANSI_CHARSET - Font.Color = clWindowText + Font.Color = clRed Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] ParentFont = False end object Label2: TLabel - Left = 560 + Left = 575 Top = 358 Width = 80 Height = 21 Caption = #36793#32433#24635#26681#25968 Font.Charset = ANSI_CHARSET - Font.Color = clWindowText + Font.Color = clBlue Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -377,7 +388,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut ParentFont = False end object Label12: TLabel - Left = 284 + Left = 286 Top = 320 Width = 48 Height = 21 @@ -393,8 +404,14 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Left = 974 Top = 106 Width = 64 - Height = 19 + Height = 21 Caption = #26159#21542#19978#27974 + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False Visible = False end object Label19: TLabel @@ -404,7 +421,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Height = 21 Caption = #38050#31576#32534#21495 Font.Charset = ANSI_CHARSET - Font.Color = clWindowText + Font.Color = clBlue Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -417,14 +434,14 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Height = 21 Caption = #25972#32463#31867#22411 Font.Charset = ANSI_CHARSET - Font.Color = clWindowText + Font.Color = clBlue Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] ParentFont = False end object Label4: TLabel - Left = 560 + Left = 575 Top = 320 Width = 32 Height = 21 @@ -437,13 +454,13 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut ParentFont = False end object Label24: TLabel - Left = 284 + Left = 286 Top = 355 Width = 64 Height = 21 Caption = #22320#31359#20837#27861 Font.Charset = ANSI_CHARSET - Font.Color = clWindowText + Font.Color = clBlue Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -451,7 +468,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object Label29: TLabel Left = 3 - Top = 429 + Top = 432 Width = 454 Height = 21 Caption = #27880' '#32463#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#20840#24133#26681#25968' * '#32433#32447#31995#25968' / '#25903#25968#65288'S'#65289 @@ -463,13 +480,13 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut ParentFont = False end object Label25: TLabel - Left = 287 + Left = 289 Top = 394 Width = 112 Height = 21 Caption = #36793#32433#21333#36793#31576#40831#25968 Font.Charset = ANSI_CHARSET - Font.Color = clWindowText + Font.Color = clBlue Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -482,14 +499,14 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Height = 21 Caption = #36793#31359#20837#27861 Font.Charset = ANSI_CHARSET - Font.Color = clWindowText + Font.Color = clBlue Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] ParentFont = False end object Label27: TLabel - Left = 511 + Left = 513 Top = 400 Width = 32 Height = 19 @@ -528,7 +545,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut ParentFont = False end object Label31: TLabel - Left = 511 + Left = 513 Top = 323 Width = 32 Height = 19 @@ -541,7 +558,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut ParentFont = False end object Label32: TLabel - Left = 761 + Left = 776 Top = 320 Width = 6 Height = 19 @@ -567,7 +584,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut ParentFont = False end object Label34: TLabel - Left = 509 + Left = 511 Top = 362 Width = 54 Height = 19 @@ -580,13 +597,13 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut ParentFont = False end object Label35: TLabel - Left = 560 + Left = 575 Top = 394 Width = 32 Height = 21 Caption = #22791#27880 Font.Charset = ANSI_CHARSET - Font.Color = clWindowText + Font.Color = clBlue Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -599,7 +616,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Height = 21 Caption = #22383#24067#31181#31867 Font.Charset = ANSI_CHARSET - Font.Color = clWindowText + Font.Color = clBlue Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -612,7 +629,85 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Height = 21 Caption = #22383#24067#38376#24133 Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText + Font.Color = clBlue + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label38: TLabel + Left = 1063 + Top = 48 + Width = 64 + Height = 21 + Caption = #33258#21160#35745#31639 + Font.Charset = DEFAULT_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label39: TLabel + Left = 1063 + Top = 17 + Width = 64 + Height = 21 + Caption = #25163#21160#36755#20837 + Font.Charset = DEFAULT_CHARSET + Font.Color = clHotLight + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label40: TLabel + Left = 3 + Top = 459 + Width = 289 + Height = 21 + Caption = #36793#32433#25968' = '#36793#32433#21333#36793#31576#40831#25968' * '#36793#31359#20837#27861' * 2' + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label41: TLabel + Left = 3 + Top = 486 + Width = 477 + Height = 21 + Caption = #31576#40831#25968'= '#36793#32433#21333#36793#31576#40831#25968' * 2 + '#65288' '#24635#32463#26681#25968' - '#36793#32433#25968' '#65289'/ '#22320#31359#20837#27861 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label42: TLabel + Left = 3 + Top = 513 + Width = 187 + Height = 21 + Caption = #31576#24133' = '#31576#40831#25968' * 2 / '#31576#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label43: TLabel + Left = 0 + Top = 540 + Width = 636 + Height = 21 + Caption = #25972#32463#24037#33402#21517#31216' = '#32463#32433#20195#21495' + '#32463#32433#25903#25968' + '#22383#24067#38376#24133' + '#22383#24067#31181#31867#20195#21495#65288#33394#32455#24067' A '#12289#22383#24067' B'#65289 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -657,6 +752,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Top = 11 ParentColor = True ParentFont = False + Properties.ReadOnly = True Style.Font.Charset = ANSI_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -16 @@ -668,7 +764,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object WB_ReedNote: TcxTextEdit Tag = 2 - Left = 648 + Left = 663 Top = 355 ParentColor = True ParentFont = False @@ -716,7 +812,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object C_KCQTY: TcxTextEdit Tag = 2 - Left = 397 + Left = 399 Top = 316 ParentColor = True ParentFont = False @@ -785,7 +881,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object WB_Width: TcxTextEdit Tag = 2 - Left = 648 + Left = 663 Top = 316 ParentColor = True ParentFont = False @@ -801,7 +897,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object cxGroupBox1: TcxGroupBox Left = 3 - Top = 98 + Top = 91 Caption = #20998#26465 ParentFont = False Style.Font.Charset = ANSI_CHARSET @@ -833,7 +929,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Height = 21 Caption = #26465#25968 Font.Charset = ANSI_CHARSET - Font.Color = clBlack + Font.Color = clRed Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -846,7 +942,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Height = 21 Caption = #19978#26550#39063#25968 Font.Charset = ANSI_CHARSET - Font.Color = clBlack + Font.Color = clRed Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -859,7 +955,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Height = 21 Caption = #20313#25968 Font.Charset = ANSI_CHARSET - Font.Color = clBlack + Font.Color = clRed Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -880,6 +976,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Left = 110 Top = 74 ParentColor = True + Properties.ReadOnly = True TabOrder = 1 OnExit = WB_YarnQtyExit Width = 150 @@ -907,7 +1004,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object cxGroupBox2: TcxGroupBox Left = 0 - Top = 90 + Top = 91 Caption = #25972#27974#24182 ParentFont = False Style.Font.Charset = ANSI_CHARSET @@ -939,7 +1036,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Height = 21 Caption = #20998#32478 Font.Charset = ANSI_CHARSET - Font.Color = clBlack + Font.Color = clBlue Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -952,7 +1049,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Height = 21 Caption = #20998#32478#26681#25968 Font.Charset = ANSI_CHARSET - Font.Color = clBlack + Font.Color = clRed Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -964,6 +1061,12 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Width = 32 Height = 21 Caption = #24182#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clRed + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False end object Label17: TLabel Left = 8 @@ -972,7 +1075,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Height = 21 Caption = #32433#26550#25346#32433#39063#25968 Font.Charset = ANSI_CHARSET - Font.Color = clBlack + Font.Color = clRed Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -985,7 +1088,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Height = 21 Caption = #31232#36724#25968 Font.Charset = ANSI_CHARSET - Font.Color = clBlack + Font.Color = clRed Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -998,7 +1101,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Height = 21 Caption = #32433#26550#25346#32433#39063#25968 Font.Charset = ANSI_CHARSET - Font.Color = clBlack + Font.Color = clRed Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -1011,7 +1114,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Height = 21 Caption = #31232#36724#25968 Font.Charset = ANSI_CHARSET - Font.Color = clBlack + Font.Color = clRed Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] @@ -1022,6 +1125,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Left = 110 Top = 29 ParentColor = True + Properties.ReadOnly = True TabOrder = 0 Text = '480' OnExit = WB_YarnQtyExit @@ -1041,7 +1145,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Left = 397 Top = 67 ParentColor = True - Properties.ReadOnly = False + Properties.ReadOnly = True TabOrder = 2 Width = 150 end @@ -1050,7 +1154,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Left = 630 Top = 67 ParentColor = True - Properties.ReadOnly = False + Properties.ReadOnly = True TabOrder = 3 Width = 150 end @@ -1059,6 +1163,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Left = 110 Top = 105 ParentColor = True + Properties.ReadOnly = True TabOrder = 4 Width = 150 end @@ -1067,6 +1172,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Left = 397 Top = 105 ParentColor = True + Properties.ReadOnly = True TabOrder = 5 Width = 150 end @@ -1075,6 +1181,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Left = 110 Top = 143 ParentColor = True + Properties.ReadOnly = True TabOrder = 6 Width = 150 end @@ -1083,13 +1190,14 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Left = 397 Top = 143 ParentColor = True + Properties.ReadOnly = True TabOrder = 7 Width = 150 end end object DCRQTY: TcxTextEdit Tag = 2 - Left = 397 + Left = 399 Top = 355 ParentColor = True ParentFont = False @@ -1105,7 +1213,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object WB_YarnKCQty: TcxTextEdit Tag = 2 - Left = 403 + Left = 405 Top = 394 ParentColor = True ParentFont = False @@ -1137,7 +1245,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object note: TcxTextEdit Tag = 2 - Left = 648 + Left = 663 Top = 391 ParentColor = True ParentFont = False @@ -1188,11 +1296,35 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Text = #8220 Width = 51 end + object Panel1: TPanel + Left = 993 + Top = 46 + Width = 64 + Height = 23 + Color = clRed + ParentBackground = False + TabOrder = 20 + end + object Panel2: TPanel + Left = 993 + Top = 17 + Width = 64 + Height = 23 + Color = clHotLight + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentBackground = False + ParentFont = False + TabOrder = 21 + end end object ToolBar2: TToolBar [3] Tag = 1 Left = 0 - Top = 489 + Top = 601 Width = 1174 Height = 30 AutoSize = True @@ -1241,7 +1373,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Top = 601 end inherited ImageList_new32: TImageList - Left = 170 + Left = 162 Top = 587 end inherited cxImageList_bar: TcxImageList diff --git a/E02梭织经轴仓库/U_WBSpecInPut.pas b/E02梭织经轴仓库/U_WBSpecInPut.pas index b4881c0..430cbb8 100644 --- a/E02梭织经轴仓库/U_WBSpecInPut.pas +++ b/E02梭织经轴仓库/U_WBSpecInPut.pas @@ -125,6 +125,14 @@ type Label37: TLabel; C_Width: TcxTextEdit; MFDW: TcxComboBox; + Panel1: TPanel; + Panel2: TPanel; + Label38: TLabel; + Label39: TLabel; + Label40: TLabel; + Label41: TLabel; + Label42: TLabel; + Label43: TLabel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBAddClick(Sender: TObject); procedure TBCloseClick(Sender: TObject); @@ -485,7 +493,9 @@ begin with frmLogInput do begin fWB_Code := Self.WB_Code.Text; + flogFlag := 'Ϣ޸';//־Modelֶ fFlag := '޸'; + if ShowModal = 1 then begin diff --git a/E02梭织经轴仓库/U_WBSpecList.dfm b/E02梭织经轴仓库/U_WBSpecList.dfm index 9205cc0..4130d2a 100644 --- a/E02梭织经轴仓库/U_WBSpecList.dfm +++ b/E02梭织经轴仓库/U_WBSpecList.dfm @@ -81,15 +81,16 @@ inherited frmWBSpecList: TfrmWBSpecList ImageIndex = 20 OnClick = TBExportClick end - object ToolButton3: TToolButton + object TbLogLook: TToolButton Left = 497 Top = 0 + AutoSize = True Caption = #20462#25913#26085#24535#26597#30475 ImageIndex = 8 - OnClick = ToolButton3Click + OnClick = TbLogLookClick end object ToolButton1: TToolButton - Left = 628 + Left = 632 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -97,7 +98,7 @@ inherited frmWBSpecList: TfrmWBSpecList OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 731 + Left = 735 Top = 0 AutoSize = True Caption = #20851#38381 @@ -194,7 +195,7 @@ inherited frmWBSpecList: TfrmWBSpecList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 196 + Width = 168 end object Tv1Column7: TcxGridDBColumn Caption = #25972#32463#31867#22411 @@ -210,7 +211,7 @@ inherited frmWBSpecList: TfrmWBSpecList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 66 + Width = 86 end object Tv1Column12: TcxGridDBColumn Caption = #31576#21495 @@ -242,7 +243,7 @@ inherited frmWBSpecList: TfrmWBSpecList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 66 + Width = 98 end object v1Column8: TcxGridDBColumn Tag = 2 @@ -252,7 +253,7 @@ inherited frmWBSpecList: TfrmWBSpecList HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Editing = False - Width = 66 + Width = 102 end end object cxGrid1Level1: TcxGridLevel diff --git a/E02梭织经轴仓库/U_WBSpecList.pas b/E02梭织经轴仓库/U_WBSpecList.pas index a60075b..4f6f7e7 100644 --- a/E02梭织经轴仓库/U_WBSpecList.pas +++ b/E02梭织经轴仓库/U_WBSpecList.pas @@ -76,7 +76,7 @@ type ToolButton2: TToolButton; TV2Column5: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn; - ToolButton3: TToolButton; + TbLogLook: TToolButton; TV2FF: TcxGridDBColumn; TV2YarnFactor: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); @@ -97,7 +97,7 @@ type procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure WB_CodePropertiesChange(Sender: TObject); procedure ToolButton2Click(Sender: TObject); - procedure ToolButton3Click(Sender: TObject); + procedure TbLogLookClick(Sender: TObject); private canshu1, FSTKName, canshu3: string; procedure InitGrid(); @@ -180,13 +180,14 @@ begin end; end; -procedure TfrmWBSpecList.ToolButton3Click(Sender: TObject); +procedure TfrmWBSpecList.TbLogLookClick(Sender: TObject); begin frmLogInput := TfrmLogInput.Create(Application); with frmLogInput do begin - fWB_Code := CDS_Main.FieldByName('WB_Code').AsString; + fWB_Code := Self.CDS_Main.FieldByName('WB_Code').AsString; fFlag := '鿴'; + flogFlag := 'Ϣ޸'; if ShowModal = 1 then begin diff --git a/E02梭织经轴仓库/U_WeaveSel.dfm b/E02梭织经轴仓库/U_WeaveSel.dfm index b59382d..31b4ab4 100644 --- a/E02梭织经轴仓库/U_WeaveSel.dfm +++ b/E02梭织经轴仓库/U_WeaveSel.dfm @@ -64,6 +64,7 @@ inherited frmWeaveSel: TfrmWeaveSel BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 + ExplicitTop = 32 object Label3: TLabel Left = 15 Top = 7 @@ -169,6 +170,7 @@ inherited frmWeaveSel: TfrmWeaveSel #24050#23433#25490 #20840#37096) OnChange = cxTabControl1Change + ExplicitTop = 99 ClientRectBottom = 545 ClientRectLeft = 1 ClientRectRight = 1539 diff --git a/E02梭织经轴仓库/WarpBeamStk.dpr b/E02梭织经轴仓库/WarpBeamStk.dpr index 254eea4..2111599 100644 --- a/E02梭织经轴仓库/WarpBeamStk.dpr +++ b/E02梭织经轴仓库/WarpBeamStk.dpr @@ -74,7 +74,11 @@ uses U_Tat_WB_InPut in 'U_Tat_WB_InPut.pas' {frmTat_WB_InPut}, U_TatYarnSel in '..\E00֯ͨô\U_TatYarnSel.pas' {frmTatYarnSel}, U_YarnCFInfoSel in '..\B02ɴֿ߲\U_YarnCFInfoSel.pas' {frmYarnCFInfoSel}, - U_LogInput in 'U_LogInput.pas' {frmLogInput}; + U_LogInput in 'U_LogInput.pas' {frmLogInput}, + U_TatWBPlanZJZKInPut in 'U_TatWBPlanZJZKInPut.pas' {frmTatWBPlanZJZKInPut}, + U_TatWBPlanZJZKKaiKa in 'U_TatWBPlanZJZKKaiKa.pas' {frmTatWBPlanZJZKKaiKa}, + U_TatWBPlanZJZK in 'U_TatWBPlanZJZK.pas' {frmTatWBPlanZJZK}, + U_WBNeedHTList in 'U_WBNeedHTList.pas' {frmWBNeedHTList}; {$R *.res} diff --git a/E02梭织经轴仓库/WarpBeamStk.dproj b/E02梭织经轴仓库/WarpBeamStk.dproj index b25c23c..0e48133 100644 --- a/E02梭织经轴仓库/WarpBeamStk.dproj +++ b/E02梭织经轴仓库/WarpBeamStk.dproj @@ -315,6 +315,22 @@
frmLogInput
dfm + +
frmTatWBPlanZJZKInPut
+ dfm + + +
frmTatWBPlanZJZKKaiKa
+ dfm + + +
frmTatWBPlanZJZK
+ dfm + + +
frmWBNeedHTList
+ dfm + Cfg_2 Base diff --git a/E02梭织经轴仓库/WarpBeamStk.dproj.local b/E02梭织经轴仓库/WarpBeamStk.dproj.local index c9759cd..68ad403 100644 --- a/E02梭织经轴仓库/WarpBeamStk.dproj.local +++ b/E02梭织经轴仓库/WarpBeamStk.dproj.local @@ -137,28 +137,41 @@ + + + + + + + + - 1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm - 1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm - 1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas= + 1899/12/30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas + 1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas 1899/12/30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas - 1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas + 1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas + 1899/12/30 00:00:00.000.024,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WeaveSel.pas + 1899/12/30 00:00:00.000.416,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatYarnSel.pas + 1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm + 1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas 1899/12/30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas + 1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm + 1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas + 1899/12/30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas= + 1899/12/30 00:00:00.000.108,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlan.pas + 1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas + 1899/12/30 00:00:00.000.215,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_Tat_WB_InPut.pas + 1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm + 1899/12/30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas 1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas 1899/12/30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas - 1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas - 1899/12/30 00:00:00.000.108,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlan.pas - 1899/12/30 00:00:00.000.215,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_Tat_WB_InPut.pas - 1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm - 1899/12/30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas - 1899/12/30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas - 1899/12/30 00:00:00.000.416,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatYarnSel.pas - 1899/12/30 00:00:00.000.024,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WeaveSel.pas 2025/11/15 16:39:54.000.378,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas 2025/11/15 17:02:40.000.598,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_LogInput.pas + 2025/12/12 14:33:26.000.162,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlanZJZKInPut.pas + 2025/12/12 14:51:55.000.373,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlanZJZKKaiKa.pas + 2025/12/12 14:57:30.000.192,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_TatWBPlanZJZK.pas + 2025/12/23 09:36:15.000.210,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WBNeedHTLook.pas + 2025/12/25 16:38:57.000.020,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_WBNeedHTList.pas diff --git a/E02梭织经轴仓库/WarpBeamStk.identcache b/E02梭织经轴仓库/WarpBeamStk.identcache index 3ef6b37..15b57d8 100644 Binary files a/E02梭织经轴仓库/WarpBeamStk.identcache and b/E02梭织经轴仓库/WarpBeamStk.identcache differ diff --git a/E02梭织经轴仓库/testDll.identcache b/E02梭织经轴仓库/testDll.identcache index 8e8dad4..5f7d627 100644 Binary files a/E02梭织经轴仓库/testDll.identcache and b/E02梭织经轴仓库/testDll.identcache differ diff --git a/E04梭织坯布仓库/TatClothStk.dproj.local b/E04梭织坯布仓库/TatClothStk.dproj.local index 48bcc47..b67c96e 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj.local +++ b/E04梭织坯布仓库/TatClothStk.dproj.local @@ -1,95 +1,95 @@  - 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.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.630,=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.316,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_TatClothInfoInput.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 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.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj + 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.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.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.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.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\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm - 1899/12/30 00:00:00.000.500,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 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.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.456,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 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.630,=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.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.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.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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.dfm + 1899/12/30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.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.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj - 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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.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.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas + 1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.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.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 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.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.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.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas= - 1899/12/30 00:00:00.000.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.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.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm - 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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.754,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas= + 1899/12/30 00:00:00.000.326,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.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.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.435,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.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.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.202,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.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.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.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.590,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas= diff --git a/E04梭织坯布仓库/TatClothStk.identcache b/E04梭织坯布仓库/TatClothStk.identcache index 0c8550e..832e104 100644 Binary files a/E04梭织坯布仓库/TatClothStk.identcache and b/E04梭织坯布仓库/TatClothStk.identcache differ diff --git a/T00贸易通用窗体/U_TradeSalesContractSel.dfm b/T00贸易通用窗体/U_TradeSalesContractSel.dfm index cef8a7d..490caee 100644 --- a/T00贸易通用窗体/U_TradeSalesContractSel.dfm +++ b/T00贸易通用窗体/U_TradeSalesContractSel.dfm @@ -301,7 +301,7 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel Width = 70 end object v1Column6: TcxGridDBColumn - Caption = #19978#26426#38376#24133 + Caption = #22383#24067#38376#24133 DataBinding.FieldName = 'C_Width' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties'