From 585aedd9d72313fc60a66309b8e312f7206feb4b Mon Sep 17 00:00:00 2001 From: "LAPTOP-8NOV8MVQ\\cai" Date: Tue, 9 Dec 2025 17:30:17 +0800 Subject: [PATCH] 12.9 --- A00通用窗体/U_SalesContract_SXSel.dfm | 55 +- A00通用窗体/U_SalesContract_SXSel.pas | 3 - A00通用窗体/U_YarnInfoSel.dfm | 108 +- A00通用窗体/U_YarnInfoSel.pas | 10 - A00通用窗体/U_YarnPurchasePlanSel.dfm | 1 - A00通用窗体/U_YarnPurchasePlanSel.pas | 1 + A02基础产品管理/ClothInfo.dproj.local | 112 +- A02基础产品管理/ClothInfo.identcache | Bin 4357 -> 4357 bytes A02基础产品管理/U_TatClothInfo.dfm | 2 +- A02基础产品管理/U_TatClothInfoInput.dfm | 68 +- A02基础产品管理/U_TatClothInfoInput.pas | 241 +++-- B01基础合同管理/Contract.dproj.local | 106 +- B01基础合同管理/Contract.identcache | Bin 2705 -> 2705 bytes B01基础合同管理/U_GetDllForm.pas | 4 +- B01基础合同管理/U_SalesContractList.dfm | 4 +- B01基础合同管理/U_SalesContractList.pas | 60 +- B01基础合同管理/U_TatSCTLLIST.dfm | 78 +- B01基础合同管理/U_TatSCTLLIST.pas | 43 +- B01基础合同管理/U_finishSalesContractList.dfm | 113 +- B01基础合同管理/U_finishSalesContractList.pas | 58 +- B01基础合同管理/testDll.dproj | 53 +- B01基础合同管理/testDll.skincfg | 5 + B02基础纱线仓库/U_YarnCFInfoSel.dfm | 4 +- B02基础纱线仓库/U_YarnCFInfoSel.pas | 33 +- B02基础纱线仓库/U_YarnInEdit.dfm | 2 - B02基础纱线仓库/U_YarnInEdit.pas | 1 + B02基础纱线仓库/U_YarnInList.dfm | 999 ++++++++++++------ B02基础纱线仓库/U_YarnInList.pas | 140 ++- B02基础纱线仓库/U_YarnInfoInPut.dfm | 1 + B02基础纱线仓库/U_YarnInfoInPut.pas | 19 +- B02基础纱线仓库/U_YarnInfoList.dfm | 1 + B02基础纱线仓库/YarnStk.dproj.local | 148 +-- B02基础纱线仓库/YarnStk.identcache | Bin 3802 -> 3802 bytes B04采购计划管理/PurchasePlan.dpr | 3 +- B04采购计划管理/PurchasePlan.dproj | 4 + B04采购计划管理/PurchasePlan.dproj.local | 107 +- B04采购计划管理/PurchasePlan.identcache | Bin 3036 -> 3130 bytes B04采购计划管理/U_GetDllForm.pas | 1 + B04采购计划管理/U_YarnPurchasePlanList.dfm | 143 ++- B04采购计划管理/U_YarnPurchasePlanList.pas | 75 +- E01梭织生产计划/TatPlan.dpr | 3 +- E01梭织生产计划/TatPlan.dproj | 4 + E01梭织生产计划/TatPlan.dproj.local | 109 +- E01梭织生产计划/TatPlan.identcache | Bin 3409 -> 3503 bytes E01梭织生产计划/U_TatPlanInPut.dfm | 30 +- E01梭织生产计划/U_TatPlanInPut.pas | 48 +- E01梭织生产计划/U_TatPlanJTSCLIST.dfm | 117 +- E01梭织生产计划/U_TatPlanJTSCLIST.pas | 32 +- E01梭织生产计划/U_TatPlanList.dfm | 1 + E01梭织生产计划/U_TatPlanMachInput.dfm | 105 +- E01梭织生产计划/U_TatPlanMachInput.pas | 193 +++- E02梭织经轴仓库/U_GetDllForm.pas | 1 + E02梭织经轴仓库/U_LogInput.pas | 15 +- E02梭织经轴仓库/U_TatWBCardInPut.dfm | 21 +- E02梭织经轴仓库/U_TatWBCardInPut2.dfm | 34 +- E02梭织经轴仓库/U_TatWBCardInPut2.pas | 65 +- E02梭织经轴仓库/U_TatWBPlanInPut.dfm | 1 - E02梭织经轴仓库/U_TatWBPlanInPut.pas | 3 + E02梭织经轴仓库/U_WBSpecInPut.dfm | 207 ++-- E02梭织经轴仓库/U_WBSpecInPut.pas | 120 ++- E02梭织经轴仓库/U_WBSpecList.dfm | 20 +- E02梭织经轴仓库/U_WBSpecList.pas | 5 +- E02梭织经轴仓库/WarpBeamStk.dproj.local | 18 +- E02梭织经轴仓库/WarpBeamStk.identcache | Bin 5942 -> 5942 bytes E02梭织经轴仓库/testDll.identcache | Bin 178 -> 178 bytes E03梭织坯布检验/TatInsp.dproj.local | 74 +- E03梭织坯布检验/TatInsp.identcache | Bin 2043 -> 2043 bytes E03梭织坯布检验/TatInspLogin.dproj.local | 4 +- E03梭织坯布检验/U_GetDllForm.pas | 2 +- E03梭织坯布检验/U_TatClothInspList.dfm | 767 +++++++------- E03梭织坯布检验/U_TatClothInspList.pas | 144 ++- E04梭织坯布仓库/TatClothStk.dproj.local | 178 ++-- E04梭织坯布仓库/TatClothStk.identcache | Bin 3381 -> 3381 bytes T00贸易通用窗体/U_TradeSalesContractSel.dfm | 59 +- T00贸易通用窗体/U_TradeSalesContractSel.pas | 4 - 75 files changed, 3300 insertions(+), 1890 deletions(-) create mode 100644 B01基础合同管理/testDll.skincfg diff --git a/A00通用窗体/U_SalesContract_SXSel.dfm b/A00通用窗体/U_SalesContract_SXSel.dfm index d392fb8..99f2638 100644 --- a/A00通用窗体/U_SalesContract_SXSel.dfm +++ b/A00通用窗体/U_SalesContract_SXSel.dfm @@ -67,28 +67,28 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel object Label1: TLabel Left = 18 Top = 15 - Width = 36 + Width = 60 Height = 17 - Caption = #21512#21516#21495 + Caption = #22383#24067#21512#21516#21495 end object Label2: TLabel - Left = 451 - Top = 15 + Left = 496 + Top = 14 Width = 48 Height = 17 Caption = #20135#21697#21517#31216 end object Label3: TLabel - Left = 242 - Top = 15 + Left = 281 + Top = 14 Width = 24 Height = 17 Caption = #23458#25143 end object ConNo: TEdit Tag = 2 - Left = 64 - Top = 11 + Left = 103 + Top = 10 Width = 169 Height = 25 TabOrder = 0 @@ -96,8 +96,8 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel end object C_Name: TEdit Tag = 2 - Left = 514 - Top = 11 + Left = 564 + Top = 10 Width = 169 Height = 25 TabOrder = 1 @@ -105,8 +105,8 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel end object BuyName: TEdit Tag = 2 - Left = 277 - Top = 11 + Left = 322 + Top = 10 Width = 169 Height = 25 TabOrder = 2 @@ -122,6 +122,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel BorderStyle = cxcbsNone PopupMenu = PM_1 TabOrder = 2 + ExplicitTop = 79 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -173,7 +174,7 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel Width = 41 end object TV1Column1: TcxGridDBColumn - Caption = #21512#21516#21495 + Caption = #22383#24067#21512#21516#21495 DataBinding.FieldName = 'ConNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter @@ -181,27 +182,11 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel Width = 88 end object TV1Column6: TcxGridDBColumn - Caption = #23458#25143#21333#21495 + Caption = #38754#26009#21512#21516#21495 DataBinding.FieldName = 'BuyConNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 88 - end - object TV1Column5: TcxGridDBColumn - Caption = #32463#33829#21333#20301 - DataBinding.FieldName = 'SellName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 88 - end - object TV1Column3: TcxGridDBColumn - Caption = #23458#25143 - DataBinding.FieldName = 'BuyName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 88 + Width = 98 end object TV1Column4: TcxGridDBColumn Caption = #20013#38388#21830 @@ -422,14 +407,6 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel HeaderAlignmentHorz = taCenter Width = 88 end - object TV1Column12: TcxGridDBColumn - Caption = #25467#24230 - DataBinding.FieldName = 'ND' - DataBinding.IsNullValueType = True - GroupSummaryAlignment = taCenter - HeaderAlignmentHorz = taCenter - Width = 88 - end object TV1Column15: TcxGridDBColumn Caption = #32433#32447#29992#37327'KG' DataBinding.FieldName = 'SXQty' diff --git a/A00通用窗体/U_SalesContract_SXSel.pas b/A00通用窗体/U_SalesContract_SXSel.pas index 8775958..6132a05 100644 --- a/A00通用窗体/U_SalesContract_SXSel.pas +++ b/A00通用窗体/U_SalesContract_SXSel.pas @@ -51,9 +51,7 @@ type cxGridLevel1: TcxGridLevel; TV1Column1: TcxGridDBColumn; TV1Column2: TcxGridDBColumn; - TV1Column3: TcxGridDBColumn; TV1Column4: TcxGridDBColumn; - TV1Column5: TcxGridDBColumn; TV1Column6: TcxGridDBColumn; ThreeColorBase: TcxStyleRepository; SHuangSe: TcxStyle; @@ -81,7 +79,6 @@ type TV1Column9: TcxGridDBColumn; TV1Column10: TcxGridDBColumn; TV1Column11: TcxGridDBColumn; - TV1Column12: TcxGridDBColumn; TV1Column13: TcxGridDBColumn; TV1Column14: TcxGridDBColumn; N3: TMenuItem; diff --git a/A00通用窗体/U_YarnInfoSel.dfm b/A00通用窗体/U_YarnInfoSel.dfm index fb8b35b..1a2fa68 100644 --- a/A00通用窗体/U_YarnInfoSel.dfm +++ b/A00通用窗体/U_YarnInfoSel.dfm @@ -79,12 +79,13 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 + ExplicitTop = 36 object Label1: TLabel Left = 216 Top = 10 Width = 32 Height = 21 - Caption = #21517#31216 + Caption = #21697#21517 end object Label2: TLabel Left = 7 @@ -118,7 +119,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel Align = alClient PopupMenu = PM_1 TabOrder = 2 - ExplicitTop = 69 object Tv1: TcxGridDBTableView OnDblClick = TV1DblClick Navigator.Buttons.CustomButtons = <> @@ -204,15 +204,22 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel VisibleForCustomization = False Width = 103 end - object v1SPSpec: TcxGridDBColumn + object v1QtyUnit: TcxGridDBColumn Tag = 2 - Caption = #35268#26684 - DataBinding.FieldName = 'Y_Spec' + Caption = #25104#20998 + DataBinding.FieldName = 'Y_Composition' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - HeaderGlyphAlignmentHorz = taCenter Options.Editing = False - Width = 116 + 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 @@ -225,15 +232,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel VisibleForCustomization = False Width = 92 end - object v1QtyUnit: TcxGridDBColumn - Tag = 2 - Caption = #25104#20998 - DataBinding.FieldName = 'Y_Composition' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 96 - end object v1Column10: TcxGridDBColumn Tag = 2 Caption = #36816#36153 @@ -245,21 +243,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel VisibleForCustomization = False Width = 68 end - object Tv1Column2: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'Y_Color' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 71 - end - object Tv1SXCBH: TcxGridDBColumn - Caption = #32433#32447#21378#32534#21495 - DataBinding.FieldName = 'SXCBH' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 90 - end object v1Column3: TcxGridDBColumn Tag = 2 Caption = #20998#29305'(Dtex)' @@ -269,13 +252,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel Options.Editing = False Width = 102 end - object Tv1SXCPM: TcxGridDBColumn - Caption = #32433#32447#21378#21697#21517 - DataBinding.FieldName = 'SXCPM' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 90 - end object Tv1Column7: TcxGridDBColumn Caption = #25903#25968 DataBinding.FieldName = 'ZS' @@ -292,62 +268,6 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel Options.Editing = False Width = 80 end - object Tv1YarnFactor: TcxGridDBColumn - Caption = #32433#32447#31995#25968 - DataBinding.FieldName = 'YarnFactor' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column6: TcxGridDBColumn - Caption = #25467#24230 - DataBinding.FieldName = 'ND' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object v1Column12: TcxGridDBColumn - Tag = 2 - Caption = #22791#27880 - DataBinding.FieldName = 'Note' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 118 - end - object Tv1Column3: TcxGridDBColumn - Caption = #31867#22411 - DataBinding.FieldName = 'Y_Type' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column8: TcxGridDBColumn - Caption = #26631#26679#26085#26399 - DataBinding.FieldName = 'BYDate' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv1Column9: TcxGridDBColumn - Caption = #21378#23478 - DataBinding.FieldName = 'CJ' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv1Column10: TcxGridDBColumn - Caption = #29702#35770#25439#32791 - DataBinding.FieldName = 'LLSH' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/A00通用窗体/U_YarnInfoSel.pas b/A00通用窗体/U_YarnInfoSel.pas index 5437e06..b93c7b3 100644 --- a/A00通用窗体/U_YarnInfoSel.pas +++ b/A00通用窗体/U_YarnInfoSel.pas @@ -36,12 +36,10 @@ type v1Column18: TcxGridDBColumn; v1Column15: TcxGridDBColumn; v1SPName: TcxGridDBColumn; - v1SPSpec: TcxGridDBColumn; v1Column1: TcxGridDBColumn; v1QtyUnit: TcxGridDBColumn; v1Column10: TcxGridDBColumn; v1Column3: TcxGridDBColumn; - v1Column12: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; ThreeColorBase: TcxStyleRepository; SHuangSe: TcxStyle; @@ -64,21 +62,13 @@ type N1: TMenuItem; N2: TMenuItem; cxImageList_bar: TcxImageList; - Tv1Column3: TcxGridDBColumn; ToolButton2: TToolButton; Tv1Column4: TcxGridDBColumn; Label2: TLabel; Y_Code: TcxTextEdit; Tv1Column5: TcxGridDBColumn; - Tv1Column6: TcxGridDBColumn; ToolButton3: TToolButton; Tv1Column7: TcxGridDBColumn; - Tv1Column8: TcxGridDBColumn; - Tv1Column9: TcxGridDBColumn; - Tv1Column10: TcxGridDBColumn; - Tv1YarnFactor: TcxGridDBColumn; - Tv1SXCBH: TcxGridDBColumn; - Tv1SXCPM: TcxGridDBColumn; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); diff --git a/A00通用窗体/U_YarnPurchasePlanSel.dfm b/A00通用窗体/U_YarnPurchasePlanSel.dfm index 5beb3e6..643301c 100644 --- a/A00通用窗体/U_YarnPurchasePlanSel.dfm +++ b/A00通用窗体/U_YarnPurchasePlanSel.dfm @@ -238,7 +238,6 @@ inherited frmYarnPurchasePlanSel: TfrmYarnPurchasePlanSel Align = alClient PopupMenu = PM_1 TabOrder = 2 - ExplicitTop = 147 object Tv1: TcxGridDBTableView OnDblClick = TV1DblClick Navigator.Buttons.CustomButtons = <> diff --git a/A00通用窗体/U_YarnPurchasePlanSel.pas b/A00通用窗体/U_YarnPurchasePlanSel.pas index c5c7e8d..ba33864 100644 --- a/A00通用窗体/U_YarnPurchasePlanSel.pas +++ b/A00通用窗体/U_YarnPurchasePlanSel.pas @@ -194,6 +194,7 @@ begin sql.Add(' from Pur_YarnPlan_Main A'); sql.Add(' inner join Pur_YarnPlan_sub B on A.PurMId=B.PurMId'); sql.Add(' where isnull(LX,'''') <> ''֯쵥'' and isnull(A.status,''0'')=''9'''); + sql.Add(' and isnull(C_Degree,'''') = ''ɴ'' '); sql.add(' and A.PurDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''''); sql.Add(' and A.PurDate<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''''); case cxTabControl1.TabIndex of diff --git a/A02基础产品管理/ClothInfo.dproj.local b/A02基础产品管理/ClothInfo.dproj.local index daec9bc..bb66a3f 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.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm + 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.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.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.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.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.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.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.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm 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.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.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.pas 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.993,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ReportImgSet.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.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.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.pas 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 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.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.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.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.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.187,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.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.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.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.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899/12/30 00:00:00.000.493,=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/A02基础产品管理/ClothInfo.identcache b/A02基础产品管理/ClothInfo.identcache index ca6c00293363396f6dc2d7a6fbe010317ddd7511..714e90e6c9f71cccf0a8dba920f78cf28c7883a4 100644 GIT binary patch delta 44 zcmZowYE|0c#WVR1kNjjIKKqF=5|b0yI5!{WF<_kR#S<}k2B-Gq1Ka|ed-y7u07|e9 AaR2}S delta 40 wcmZowYE|0c#WVRQZ^XnHiOmOiEEy+vGs;iS Properties.Style = 9 ClientRectBottom = 312 @@ -885,6 +901,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput object cxTabSheet1: TcxTabSheet Caption = #32463#19997#32452#21512 ImageIndex = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object GroupBox1: TGroupBox Left = 931 Top = 0 @@ -989,6 +1008,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput end> Properties.ReadOnly = True Properties.OnButtonClick = cxGridDBColumn3PropertiesButtonClick + Properties.OnEditValueChanged = cxGridDBColumn3PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 100 end @@ -1001,9 +1021,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Options.Sorting = False Width = 100 end - object TV1Column13: TcxGridDBColumn - Caption = #35268#26684 - DataBinding.FieldName = 'Y_Spec' + object TV1Y_Composition: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'Y_Composition' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 @@ -1024,6 +1044,13 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput HeaderAlignmentHorz = taCenter Width = 96 end + object TV1FF: TcxGridDBColumn + Caption = #32442#27861 + DataBinding.FieldName = 'FF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object TV1Column14: TcxGridDBColumn Caption = #25903#25968 DataBinding.FieldName = 'Z_Number' @@ -1215,9 +1242,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput Options.Sorting = False Width = 100 end - object Tv2Column13: TcxGridDBColumn - Caption = #35268#26684 - DataBinding.FieldName = 'Y_Spec' + object Tv2Y_Composition: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'Y_Composition' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 @@ -1237,6 +1264,13 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput HeaderAlignmentHorz = taCenter Width = 91 end + object Tv2FF: TcxGridDBColumn + Caption = #32442#27861 + DataBinding.FieldName = 'FF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object Tv2Column14: TcxGridDBColumn Caption = #25903#25968 DataBinding.FieldName = 'Z_Number' @@ -1278,6 +1312,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput DataBinding.FieldName = 'Y_Loss' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True HeaderAlignmentHorz = taCenter Width = 80 end @@ -1311,6 +1346,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput object cxTabSheet3: TcxTabSheet Caption = #36215#32508#27861 ImageIndex = 3 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object Panel5: TPanel Left = 0 Top = 0 @@ -1368,6 +1406,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput object cxTabSheet4: TcxTabSheet Caption = #31359#32508#27861 ImageIndex = 3 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object Panel3: TPanel Left = 0 Top = 0 @@ -1433,6 +1474,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput object cxTabSheet5: TcxTabSheet Caption = #31359#31576#27861 ImageIndex = 3 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object CKF: TMemo Tag = 2 Left = 0 diff --git a/A02基础产品管理/U_TatClothInfoInput.pas b/A02基础产品管理/U_TatClothInfoInput.pas index b196485..9b497a3 100644 --- a/A02基础产品管理/U_TatClothInfoInput.pas +++ b/A02基础产品管理/U_TatClothInfoInput.pas @@ -119,8 +119,6 @@ type Label17: TLabel; C_Composition: TcxTextEdit; Tv2Column12: TcxGridDBColumn; - TV1Column13: TcxGridDBColumn; - Tv2Column13: TcxGridDBColumn; ADOQuery1: TADOQuery; ADOQueryTemp2: TADOQuery; PM_1: TPopupMenu; @@ -190,6 +188,12 @@ type Label41: TLabel; Label42: TLabel; Label43: TLabel; + C_Kind: TcxComboBox; + Label37: TLabel; + Tv2Y_Composition: TcxGridDBColumn; + Tv2FF: TcxGridDBColumn; + TV1Y_Composition: TcxGridDBColumn; + TV1FF: TcxGridDBColumn; procedure FormShow(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure ToolButton1Click(Sender: TObject); @@ -224,6 +228,7 @@ type procedure attname2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TV1Column10PropertiesEditValueChanged(Sender: TObject); procedure C_ReedWidthExit(Sender: TObject); + procedure cxGridDBColumn3PropertiesEditValueChanged(Sender: TObject); private canshu1: string; Fint: Integer; @@ -233,6 +238,7 @@ type procedure JSWS(); //γ˿ procedure JSKZ(); // function SaveData(): Boolean; + procedure UpdateC_Code(); { Private declarations } public FBCIID, FCTID, JSGG, WSGG, FC_Spec: string; @@ -315,6 +321,12 @@ begin end; SCreateCDS(ADOQueryTemp, CDS_2); SInitCDSData(ADOQueryTemp, CDS_2); + if FBCIID <> '' then + begin + CDS_2.Edit; + CDS_2.FieldByName('Y_Loss').Value := 4.2; + CDS_2.Post; + end; with ADOQueryTemp do begin @@ -392,6 +404,7 @@ begin begin Append; FieldByName('RowNo').Value := 'A'; + FieldByName('Y_Loss').Value := 4.2; Post; Append; FieldByName('RowNo').Value := 'B'; @@ -628,6 +641,7 @@ end; procedure TfrmTatClothInfoInput.MFDWPropertiesEditValueChanged(Sender: TObject); begin JSKZ(); + UpdateC_Code(); end; procedure TfrmTatClothInfoInput.N1Click(Sender: TObject); @@ -775,6 +789,85 @@ begin Close; end; +procedure TfrmTatClothInfoInput.UpdateC_Code(); +var + mJSDH, mZS, mC_Kind: string; + mC_Code: string; +begin + if FBCIID = '' then + begin + CDS_1.First; + while not CDS_1.Eof do + begin + if CDS_1.FieldByName('Y_Code').AsString <> '' then + begin + mZS := CDS_1.FieldByName('Z_Number').AsString + 'S'; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.add('select * from BS_Yarn_Info_CF where Y_Code = ' + quotedStr(Trim(CDS_1.FieldByName('Y_Code').AsString))); + sql.Add(' order By CFID'); + Open; + end; + ADOQueryCmd.First; + while not ADOQueryCmd.Eof do + begin + mJSDH := mJSDH + ADOQueryCmd.FieldByName('DH').AsString; + ADOQueryCmd.Next; + end; + if mC_Code = '' then + begin + mC_Code := mJSDH + '-' + mZS; + end + else + begin + mC_Code := mC_Code + '-' + mJSDH + '-' + mZS; + end; + mJSDH := ''; + + end; + CDS_1.Next; + end; + + if C_Width.Text <> '' then + begin + if mC_Code = '' then + begin + mC_Code := C_Width.Text; + end + else + begin + mC_Code := mC_Code + '-' + C_Width.Text; + end; + end; + + if C_Kind.Text <> '' then + begin + if C_Kind.Text = 'ɫ֯' then + begin + mC_Kind := 'A'; + end + else if C_Kind.Text = '' then + begin + mC_Kind := 'B'; + end; + + if mC_Code = '' then + begin + mC_Code := mC_Kind; + end + else + begin + mC_Code := mC_Code + '-' + mC_Kind; + end; + end; + + C_Code.Text := mC_Code; + end; + +end; + function TfrmTatClothInfoInput.SaveData(): Boolean; var maxId, maxpbno, maxQZID, HZYRId, JsonStr: string; @@ -1180,6 +1273,13 @@ begin Application.MessageBox('γܲΪգ', 'ʾ', 0); Exit; end; + + if WYAMI.Text = '' then + begin + Application.MessageBox('γܲΪգ', 'ʾ', 0); + Exit; + end; + if WB_Code.Text = '' then begin Application.MessageBox('ձŲΪգ', 'ʾ', 0); @@ -1360,14 +1460,14 @@ begin 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_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value; FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value; FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value; - FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value; - FieldByName('YarnFactor').Value := frmYarnInfoSel.CDS_1.fieldbyname('YarnFactor').Value; +// FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value; + FieldByName('YarnFactor').Value := 0.059; - FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').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('Z_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value; @@ -1386,6 +1486,11 @@ begin end; +procedure TfrmTatClothInfoInput.cxGridDBColumn3PropertiesEditValueChanged(Sender: TObject); +begin + UpdateC_Code(); +end; + procedure TfrmTatClothInfoInput.cxGridDBColumn4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try @@ -1497,6 +1602,7 @@ begin JSJS(); JSWS(); JSKZ(); + UpdateC_Code(); end; procedure TfrmTatClothInfoInput.C_WidthBtnDnClick(Sender: TObject); @@ -1683,7 +1789,7 @@ begin end; end; - + UpdateC_Code(); end; procedure TfrmTatClothInfoInput.TV1Column1PropertiesEditValueChanged(Sender: TObject); @@ -1760,71 +1866,79 @@ begin // mvalue := TcxTextEdit(Sender).EditingText; // FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); - - with CDS_2 do + if not CDS_2.IsEmpty then begin + CDS_2.First; + while (CDS_2.FieldByName('Y_Code').asString <> '') and (CDS_2.FieldByName('Y_Code').asString <> null) do + begin + with CDS_2 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('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; - if FieldByName('Y_loss').Value = null then - begin - fsh := 0; // - end - else - begin - fsh := FieldByName('Y_loss').Value; // - end; + if FieldByName('Y_loss').Value = null then + begin + fsh := 0; // + end + else + begin + fsh := FieldByName('Y_loss').Value; // + end; - if FieldByName('CycleYarnQty').Value = null then - begin - ZGS := 0; //ѭ - end - else - begin - ZGS := FieldByName('CycleYarnQty').Value; //ѭ - end; + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; - MF := strtofloatdef(C_ReedWidth.text, 0); //ط + MF := strtofloatdef(C_ReedWidth.text, 0); //ط - if FieldByName('Z_Number').Value = null then - begin - DS := 0; //֧ - end - else - begin - DS := FieldByName('Z_Number').Value; //֧ - end; + if FieldByName('Z_Number').Value = null then + begin + DS := 0; //֧ + end + else + begin + DS := FieldByName('Z_Number').Value; //֧ + end; - WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ + WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ - if FieldByName('YarnFactor').Value = null then - begin - mYarnFactor := 0; //ɴϵ - end - else - begin - mYarnFactor := FieldByName('YarnFactor').Value; //ɴϵ - end; - end; - if (ZGS <> 0) and (DS <> 0) then - begin - with CDS_2 do - begin - Edit; - FieldByName('MeterQty').Value := roundfloat(WM * (MF + 4.2) * mYarnFactor / DS * GS / ZGS, 2); - Post; + if FieldByName('YarnFactor').Value = null then + begin + mYarnFactor := 0; //ɴϵ + end + else + begin + mYarnFactor := FieldByName('YarnFactor').Value; //ɴϵ + end; + end; + if (ZGS <> 0) and (DS <> 0) then + begin + with CDS_2 do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(WM * (MF + 4.2) * mYarnFactor / DS * GS / ZGS, 2); + Post; + end; + end; + CDS_2.Next; end; end; + JSKZ(); end; @@ -1842,14 +1956,13 @@ begin 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('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value; - FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value; - FieldByName('YarnFactor').Value := frmYarnInfoSel.CDS_1.fieldbyname('YarnFactor').Value; +// FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').Value; + FieldByName('YarnFactor').Value := 0.059; - FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').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('Z_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value; @@ -1917,7 +2030,7 @@ begin FieldByName('Y_Name').Value := ADOQuery1.fieldbyname('Y_Name').Value; FieldByName('Y_Color').Value := ADOQuery1.fieldbyname('Y_Color').Value; - FieldByName('Y_Spec').Value := ADOQuery1.fieldbyname('Y_Spec').Value; + FieldByName('Y_Composition').Value := ADOQuery1.fieldbyname('Y_Composition').Value; FieldByName('YarnQty').Value := ADOQuery1.fieldbyname('YarnQty').Value; FieldByName('CycleYarnQty').Value := ADOQuery1.fieldbyname('CycleYarnQty').Value; diff --git a/B01基础合同管理/Contract.dproj.local b/B01基础合同管理/Contract.dproj.local index 83e6426..252d762 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.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.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.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.575,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.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas - 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.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.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas= - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.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.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.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.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.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.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.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.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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 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.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.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.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.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.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.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.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.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.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.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.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 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.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.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.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.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.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm + 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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.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.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 772d6b12bcd85824aa58c00c53c88b97479867bf..a9821433a0d4e2e5c60547d02aab1ecaba6843a5 100644 GIT binary patch delta 46 zcmV+}0MY-E6_FLNbODp#2nv&42okgB0mA~5`v*F+ssvF3ldJ(BlXL+%lj#IIvv3F@ E0+^u?jsO4v delta 38 ucmbOzI#F~(3FG9y>=v6t8UHbD?qvyNp4`r%IJtyHa`G7#>&*omicA0(84Wc6 diff --git a/B01基础合同管理/U_GetDllForm.pas b/B01基础合同管理/U_GetDllForm.pas index d693657..357ebe0 100644 --- a/B01基础合同管理/U_GetDllForm.pas +++ b/B01基础合同管理/U_GetDllForm.pas @@ -76,8 +76,8 @@ begin user := 'kaixiyasa'; pswd := 'rightsoft,.KXY@YN'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; -// Parameters1 := ''; - Parameters1 := 'ѯ'; + Parameters1 := ''; +// Parameters1 := 'ѯ'; end else begin diff --git a/B01基础合同管理/U_SalesContractList.dfm b/B01基础合同管理/U_SalesContractList.dfm index 5b6f088..ed41eb7 100644 --- a/B01基础合同管理/U_SalesContractList.dfm +++ b/B01基础合同管理/U_SalesContractList.dfm @@ -723,7 +723,7 @@ inherited frmSalesContractList: TfrmSalesContractList TabOrder = 2 Properties.CustomButtons.Buttons = <> Properties.Style = 11 - Properties.TabIndex = 2 + Properties.TabIndex = 0 Properties.Tabs.Strings = ( #26410#25552#20132 #24050#25552#20132 @@ -763,8 +763,6 @@ inherited frmSalesContractList: TfrmSalesContractList Align = alClient BorderStyle = cxcbsNone TabOrder = 0 - ExplicitLeft = 0 - ExplicitTop = -2 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/B01基础合同管理/U_SalesContractList.pas b/B01基础合同管理/U_SalesContractList.pas index cfc12ca..4fa3c66 100644 --- a/B01基础合同管理/U_SalesContractList.pas +++ b/B01基础合同管理/U_SalesContractList.pas @@ -230,20 +230,20 @@ end; procedure TfrmSalesContractList.InitSub(); begin -// if CDS_1.IsEmpty then -// exit; -// with ADOQueryTemp do -// begin -// close; -// sql.Clear; -// sql.Add('select * from BS_Contract_sub A '); -// sql.Add('where ConMID =' + quotedstr((CDS_1.fieldbyname('ConMID').AsString))); -// open; -// end; -// SCreateCDS(ADOQueryTemp, CDS_2); -// SInitCDSData(ADOQueryTemp, CDS_2); -// -// TV2.DataController.Filter.Clear; + if CDS_1.IsEmpty then + exit; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from BS_Contract_sub A '); + sql.Add('where ConMID =' + quotedstr((CDS_1.fieldbyname('ConMID').AsString))); + open; + end; + SCreateCDS(ADOQueryTemp, CDS_2); + SInitCDSData(ADOQueryTemp, CDS_2); + + TV2.DataController.Filter.Clear; end; procedure TfrmSalesContractList.N1Click(Sender: TObject); @@ -296,6 +296,7 @@ begin ToolButton2.Enabled := true; TBAdd.Enabled := true; TBPrint.Enabled := True; + panel2.Visible := True; case cxTabControl1.TabIndex of 0: begin @@ -327,6 +328,7 @@ begin ToolButton2.Enabled := true; TBAdd.Enabled := true; TBPrint.Enabled := True; + panel2.Visible := True; case cxTabControl1.TabIndex of 0: begin @@ -357,7 +359,7 @@ begin if Trim(FAuthority) = 'ѯ' then begin TBPrint.Enabled := True; - panel2.Visible := True; + end; end; @@ -419,10 +421,20 @@ begin Close; sql.Clear; - sql.Add('select AA.*,B.* from (select A.*'); - sql.Add(' from BS_Contract_Main A ) AA '); - sql.Add(' right join BS_Contract_Sub B on AA.ConMID = B.ConMID '); - sql.Add('where 1=1 ' + (WSql)); + if Trim(FAuthority) = 'ѯ' then + begin + sql.Add('select AA.*,B.* from (select A.*'); + sql.Add(' from BS_Contract_Main A ) AA '); + sql.Add(' right join BS_Contract_Sub B on AA.ConMID = B.ConMID '); + sql.Add('where 1=1 ' + (WSql)); + end + else + begin + sql.Add('select AA.* from (select A.*'); + sql.Add(' from BS_Contract_Main A ) AA '); + sql.Add('where 1=1 ' + (WSql)); + end; + sql.Add(' and AA.ConType in ('''','''') '); if Trim(FAuthority) = '¼' then @@ -528,6 +540,10 @@ procedure TfrmSalesContractList.TBRafreshClick(Sender: TObject); begin ToolBar1.SetFocus; InitGrid(); + if Trim(FAuthority) = 'ѯ' then + begin + InitSub(); + end; end; procedure TfrmSalesContractList.TBAddClick(Sender: TObject); @@ -563,6 +579,7 @@ begin SetStatus(); InitGrid(); + InitSub(); end; procedure TfrmSalesContractList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); @@ -834,7 +851,10 @@ end; procedure TfrmSalesContractList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); begin - InitSub(); + if Trim(FAuthority) <> 'ѯ' then + begin + InitSub(); + end; end; procedure TfrmSalesContractList.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); diff --git a/B01基础合同管理/U_TatSCTLLIST.dfm b/B01基础合同管理/U_TatSCTLLIST.dfm index fac7fa7..8d6927d 100644 --- a/B01基础合同管理/U_TatSCTLLIST.dfm +++ b/B01基础合同管理/U_TatSCTLLIST.dfm @@ -6,6 +6,7 @@ inherited frmSCTLLIST: TfrmSCTLLIST ClientWidth = 1540 Font.Height = -16 Position = poScreenCenter + ExplicitLeft = -607 ExplicitWidth = 1556 ExplicitHeight = 688 PixelsPerInch = 96 @@ -154,6 +155,7 @@ inherited frmSCTLLIST: TfrmSCTLLIST Align = alClient PopupMenu = PopupMenu1 TabOrder = 4 + ExplicitTop = 115 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -269,6 +271,22 @@ inherited frmSCTLLIST: TfrmSCTLLIST HeaderAlignmentHorz = taCenter Width = 107 end + object Tv1JSQty: TcxGridDBColumn + Caption = #32463#32433#24635#37325#37327 + DataBinding.FieldName = 'JSQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle2 + Width = 137 + end + object Tv1WSQty: TcxGridDBColumn + Caption = #32428#32433#24635#37325#37327 + DataBinding.FieldName = 'WSQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle2 + Width = 131 + end end object cxGridLevel2: TcxGridLevel GridView = Tv1 @@ -281,7 +299,7 @@ inherited frmSCTLLIST: TfrmSCTLLIST Height = 211 Align = alBottom TabOrder = 5 - Properties.ActivePage = cxTabSheet2 + Properties.ActivePage = cxTabSheet1 Properties.CustomButtons.Buttons = <> Properties.Style = 9 ClientRectBottom = 211 @@ -358,7 +376,8 @@ inherited frmSCTLLIST: TfrmSCTLLIST Height = 181 Align = alClient TabOrder = 1 - object cxGridDBTableView1: TcxGridDBTableView + ExplicitLeft = -2 + object Tv3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_2 @@ -412,8 +431,8 @@ inherited frmSCTLLIST: TfrmSCTLLIST Width = 100 end object TV1Column13: TcxGridDBColumn - Caption = #35268#26684 - DataBinding.FieldName = 'Y_Spec' + Caption = #25104#20998 + DataBinding.FieldName = 'Y_Composition' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 @@ -472,6 +491,14 @@ inherited frmSCTLLIST: TfrmSCTLLIST HeaderAlignmentHorz = taCenter Width = 163 end + object Tv3Y_Qty: TcxGridDBColumn + Caption = #32433#32447#24635#29992#37327'KG' + DataBinding.FieldName = 'allYarn' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle2 + Width = 146 + end object TV1Column11: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'NOTE' @@ -481,7 +508,7 @@ inherited frmSCTLLIST: TfrmSCTLLIST end end object cxGridLevel1: TcxGridLevel - GridView = cxGridDBTableView1 + GridView = Tv3 end end end @@ -664,11 +691,19 @@ inherited frmSCTLLIST: TfrmSCTLLIST HeaderAlignmentHorz = taCenter Width = 80 end + object Tv2MeterQty: TcxGridDBColumn + Caption = #30334#31859#32463#38271#37325#37327'KG' + DataBinding.FieldName = 'MeterQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 172 + end object Tv2Column8: TcxGridDBColumn Caption = #32433#32447#24635#29992#37327'KG' DataBinding.FieldName = 'allYarn' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Styles.Header = cxStyle2 Width = 151 end object Tv2Column12: TcxGridDBColumn @@ -697,9 +732,10 @@ inherited frmSCTLLIST: TfrmSCTLLIST Top = 209 end object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 PopupMenus = <> - Left = 296 - Top = 368 + Left = 264 + Top = 328 end object ADOQueryCmd: TADOQuery Connection = DataLink_Contract.ADOLink @@ -763,9 +799,10 @@ inherited frmSCTLLIST: TfrmSCTLLIST Top = 444 end object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 PopupMenus = <> - Left = 296 - Top = 448 + Left = 352 + Top = 336 end object CDS_3: TClientDataSet Aggregates = <> @@ -778,4 +815,27 @@ inherited frmSCTLLIST: TfrmSCTLLIST Left = 712 Top = 384 end + object cxStyleRepository1: TcxStyleRepository + PixelsPerInch = 96 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svTextColor] + Color = clWindowText + TextColor = clMenuHighlight + end + object cxStyle2: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = DEFAULT_CHARSET + Font.Color = clMenuHighlight + Font.Height = -11 + Font.Name = #24494#36719#38597#40657 + Font.Style = [fsBold] + TextColor = clMenuHighlight + end + end + object GPM_3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 432 + Top = 312 + end end diff --git a/B01基础合同管理/U_TatSCTLLIST.pas b/B01基础合同管理/U_TatSCTLLIST.pas index aa53ea8..623042e 100644 --- a/B01基础合同管理/U_TatSCTLLIST.pas +++ b/B01基础合同管理/U_TatSCTLLIST.pas @@ -64,7 +64,7 @@ type Panel2: TPanel; cxPageControl2: TcxPageControl; cxGrid2: TcxGrid; - cxGridDBTableView1: TcxGridDBTableView; + Tv3: TcxGridDBTableView; TV1Column7: TcxGridDBColumn; cxGridDBColumn3: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn; @@ -100,6 +100,14 @@ type cxGridLevel3: TcxGridLevel; CDS_3: TClientDataSet; DS_3: TDataSource; + Tv3Y_Qty: TcxGridDBColumn; + Tv2MeterQty: TcxGridDBColumn; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + GPM_3: TcxGridPopupMenu; + Tv1WSQty: TcxGridDBColumn; + Tv1JSQty: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -156,15 +164,26 @@ begin end; procedure TfrmSCTLLIST.InitGrid(); +var + mJSQty,mWSQty : double; begin try ADOQueryMain.DisableControls; + mJSQty := 0; + mWSQty := 0; + + with ADOQueryMain do begin Close; sql.Clear; - sql.Add('SELECT * FROM V_CON_TL '); + 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(' 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(' 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))); SQL.Add('and ConDate<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1))); // ShowMessage(SQL.Text); @@ -183,11 +202,17 @@ var zsqtyValue: string; begin + zsqtyValue := CDS_1.FieldByName('zsqty').AsString; + if zsqtyValue = '' then + zsqtyValue := '0'; + with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID'); + 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(' 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; end; @@ -195,9 +220,6 @@ begin SInitCDSData(ADOQueryTemp, CDS_2); ClearCDSColumn(CDS_2, ['YRId', 'SubId', 'MainId']); - zsqtyValue := CDS_1.FieldByName('zsqty').AsString; - if zsqtyValue = '' then - zsqtyValue := '0'; with ADOQueryTemp do begin Close; @@ -276,7 +298,9 @@ end; procedure TfrmSCTLLIST.ToolButton2Click(Sender: TObject); begin - WriteCxGrid(trim(self.Caption) + '1', Tv1, 'ͬ'); + WriteCxGrid(trim(self.Caption) + '1', Tv1, 'Ͷϼ'); + WriteCxGrid(trim(self.Caption) + '1', Tv2, 'Ͷϼ'); + WriteCxGrid(trim(self.Caption) + '1', Tv3, 'Ͷϼ'); end; @@ -376,7 +400,9 @@ procedure TfrmSCTLLIST.FormShow(Sender: TObject); begin inherited; - ReadCxGrid(trim(self.Caption) + '1', Tv1, ''); + ReadCxGrid(trim(self.Caption) + '1', Tv1, 'Ͷϼ'); + ReadCxGrid(trim(self.Caption) + '1', Tv2, 'Ͷϼ'); + ReadCxGrid(trim(self.Caption) + '1', Tv3, 'Ͷϼ'); InitGrid(); end; @@ -398,3 +424,4 @@ end; end. + diff --git a/B01基础合同管理/U_finishSalesContractList.dfm b/B01基础合同管理/U_finishSalesContractList.dfm index 8933bc9..be0ea08 100644 --- a/B01基础合同管理/U_finishSalesContractList.dfm +++ b/B01基础合同管理/U_finishSalesContractList.dfm @@ -7,6 +7,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList Font.Height = -16 FormStyle = fsMDIChild Visible = True + ExplicitLeft = -550 ExplicitWidth = 1556 ExplicitHeight = 810 PixelsPerInch = 96 @@ -202,7 +203,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList Align = alClient PopupMenu = pm1 TabOrder = 3 - ExplicitLeft = 1 + ExplicitLeft = -1 ExplicitTop = 152 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> @@ -292,6 +293,111 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList HeaderAlignmentHorz = taCenter Width = 134 end + object Tv1C_Code: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 85 + end + object Tv1C_Name: TcxGridDBColumn + Caption = #20135#21697#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 = 80 + end + object Tv1C_Spec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1density: TcxGridDBColumn + Caption = #23494#24230 + DataBinding.FieldName = 'density' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1C_Width: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1C_WidthUnit: TcxGridDBColumn + Caption = #26377#25928#38376#24133 + DataBinding.FieldName = 'C_WidthUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1ConQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'ConQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1ConUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'ConUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 76 + end + object Tv1ShaZhi: TcxGridDBColumn + Caption = #32433#25903 + DataBinding.FieldName = 'ShaZhi' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1C_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1SampleTime: TcxGridDBColumn + Caption = #26631#26679#26102#38388 + DataBinding.FieldName = 'SampleTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1ConPrice: TcxGridDBColumn + Caption = #21333#20215'('#26410#31246')' + DataBinding.FieldName = 'ConPrice' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1Currency: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'Currency' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1ConTotalAmount: TcxGridDBColumn + Caption = #37329#39069'('#19981#21547#31246')' + DataBinding.FieldName = 'ConTotalAmount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 @@ -441,6 +547,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList Align = alBottom Caption = 'Panel2' TabOrder = 5 + Visible = False object cxGrid2: TcxGrid Left = 1 Top = 1 @@ -449,7 +556,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList Align = alLeft BorderStyle = cxcbsNone TabOrder = 0 - ExplicitLeft = -5 + ExplicitLeft = 0 ExplicitTop = -4 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> @@ -578,7 +685,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList Options.Editing = False Width = 70 end - object v1OrderUnit: TcxGridDBColumn + object v1ConUnit: TcxGridDBColumn Caption = #21333#20301 DataBinding.FieldName = 'ConUnit' DataBinding.IsNullValueType = True diff --git a/B01基础合同管理/U_finishSalesContractList.pas b/B01基础合同管理/U_finishSalesContractList.pas index 7c8e57e..bcd8c6d 100644 --- a/B01基础合同管理/U_finishSalesContractList.pas +++ b/B01基础合同管理/U_finishSalesContractList.pas @@ -89,7 +89,7 @@ type cxGridDBColumn4: TcxGridDBColumn; v1Column6: TcxGridDBColumn; v1PRTOrderQty: TcxGridDBColumn; - v1OrderUnit: TcxGridDBColumn; + v1ConUnit: TcxGridDBColumn; cxGridLevel1: TcxGridLevel; Order_Sub: TClientDataSet; Tv1DlyDate: TcxGridDBColumn; @@ -115,6 +115,21 @@ type Tv1InspStandard: TcxGridDBColumn; Tv1InspScore: TcxGridDBColumn; TbDel: TToolButton; + Tv1C_Code: TcxGridDBColumn; + Tv1C_Name: TcxGridDBColumn; + Tv1C_Composition: TcxGridDBColumn; + Tv1C_Spec: TcxGridDBColumn; + Tv1density: TcxGridDBColumn; + Tv1C_Width: TcxGridDBColumn; + Tv1C_WidthUnit: TcxGridDBColumn; + Tv1ConQty: TcxGridDBColumn; + Tv1ConUnit: TcxGridDBColumn; + Tv1ShaZhi: TcxGridDBColumn; + Tv1C_Color: TcxGridDBColumn; + Tv1SampleTime: TcxGridDBColumn; + Tv1ConPrice: TcxGridDBColumn; + Tv1Currency: TcxGridDBColumn; + Tv1ConTotalAmount: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -265,6 +280,7 @@ begin ToolButton2.Enabled := true; TBAdd.Enabled := true; TBPrint.Enabled := True; + panel2.Visible := True; case cxTabControl1.TabIndex of 0: begin @@ -296,6 +312,7 @@ begin begin ToolButton2.Enabled := true; TBAdd.Enabled := true; + panel2.Visible := True; TBPrint.Enabled := True; case cxTabControl1.TabIndex of 0: @@ -328,6 +345,7 @@ begin if Trim(FAuthority) = 'ѯ' then begin TBPrint.Enabled := True; + end; end; @@ -448,9 +466,21 @@ begin Close; sql.Clear; - sql.Add('select AA.* from (select A.*'); - sql.Add(' from CP_Contract_Main A ) AA '); - sql.Add('where 1=1 ' + (WSql)); + if Trim(FAuthority) = 'ѯ' then + begin + sql.Add('select AA.*,B.* from (select A.*'); + sql.Add(' from CP_Contract_Main A ) AA '); + sql.Add(' right join CP_Contract_Sub B on AA.ConMID = B.ConMID '); + sql.Add('where 1=1 ' + (WSql)); + end + else + begin + sql.Add('select AA.* from (select A.*'); + sql.Add(' from CP_Contract_Main A ) AA '); + sql.Add('where 1=1 ' + (WSql)); + end; + + // sql.Add(' and AA.ConType in ('''','''') '); if Trim(FAuthority) = '¼' then @@ -556,6 +586,11 @@ procedure TfrmfinishSalesContractList.TBRafreshClick(Sender: TObject); begin ToolBar1.SetFocus; InitGrid(); + if Trim(FAuthority) = 'ѯ' then + begin + InitSub(); + end; + end; procedure TfrmfinishSalesContractList.TBAddClick(Sender: TObject); @@ -591,7 +626,10 @@ begin SetStatus(); InitGrid(); - InitSub(); + if Trim(FAuthority) = 'ѯ' then + begin + InitSub(); + end; end; procedure TfrmfinishSalesContractList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); @@ -880,7 +918,10 @@ end; procedure TfrmfinishSalesContractList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); begin - InitSub(); + if Trim(FAuthority) <> 'ѯ' then + begin + InitSub(); + end; end; procedure TfrmfinishSalesContractList.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); @@ -895,7 +936,6 @@ begin open; end; - if CDS_2.IsEmpty then exit; with ADOQueryCMD do @@ -909,12 +949,8 @@ begin SCreateCDS(ADOQueryCMD, CDS_3); SInitCDSData(ADOQueryCMD, CDS_3); - end; - - - procedure TfrmfinishSalesContractList.TqxClick(Sender: TObject); var MConMIDS: string; diff --git a/B01基础合同管理/testDll.dproj b/B01基础合同管理/testDll.dproj index c90a23d..ddd34e8 100644 --- a/B01基础合同管理/testDll.dproj +++ b/B01基础合同管理/testDll.dproj @@ -4,7 +4,7 @@ testDll.dpr True Debug - 38017 + 1 Application VCL 19.2 @@ -13,16 +13,6 @@ true - - true - Base - true - - - true - Base - true - true Base @@ -49,24 +39,6 @@ Base true - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - true Cfg_2 @@ -87,15 +59,8 @@ 2052 CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= - - $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png - android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar - - - $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png - - Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) Debug true CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) @@ -126,19 +91,11 @@ false true - - Debug - - - Debug - - - Debug - true PerMonitorV2 CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) + D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\testDll.exe @@ -169,10 +126,6 @@ - True - True - True - True True False diff --git a/B01基础合同管理/testDll.skincfg b/B01基础合同管理/testDll.skincfg new file mode 100644 index 0000000..c0891d9 --- /dev/null +++ b/B01基础合同管理/testDll.skincfg @@ -0,0 +1,5 @@ +[ExpressSkins] +Default=1 +ShowNotifications=1 +Enabled=1 +dxSkinsDefaultPainters=1 diff --git a/B02基础纱线仓库/U_YarnCFInfoSel.dfm b/B02基础纱线仓库/U_YarnCFInfoSel.dfm index 00390e6..05e81af 100644 --- a/B02基础纱线仓库/U_YarnCFInfoSel.dfm +++ b/B02基础纱线仓库/U_YarnCFInfoSel.dfm @@ -36,7 +36,6 @@ inherited frmYarnCFInfoSel: TfrmYarnCFInfoSel ParentFont = False ShowCaptions = True TabOrder = 0 - ExplicitTop = 6 object ToolButton1: TToolButton Left = 0 Top = 0 @@ -95,7 +94,6 @@ inherited frmYarnCFInfoSel: TfrmYarnCFInfoSel BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 - ExplicitTop = 32 object Label1: TLabel Left = 18 Top = 17 @@ -120,7 +118,7 @@ inherited frmYarnCFInfoSel: TfrmYarnCFInfoSel Height = 476 Align = alClient TabOrder = 2 - ExplicitTop = 88 + ExplicitTop = 76 object Tv1: TcxGridDBTableView OnDblClick = TV1DblClick Navigator.Buttons.CustomButtons = <> diff --git a/B02基础纱线仓库/U_YarnCFInfoSel.pas b/B02基础纱线仓库/U_YarnCFInfoSel.pas index 732bf11..e0edaea 100644 --- a/B02基础纱线仓库/U_YarnCFInfoSel.pas +++ b/B02基础纱线仓库/U_YarnCFInfoSel.pas @@ -241,14 +241,41 @@ end; procedure TfrmYarnCFInfoSel.ToolButton3Click(Sender: TObject); begin +// CDS_1.First; +// while not CDS_1.Eof do +// begin +// if CDS_1.FieldByName('SSel').AsBoolean = True then +// begin +// +// +// +// +// end; +// CDS_1.Next; // ƶһ¼ +// end; + if CDS_1.FieldByName('CFID').AsString <> '' then begin - Application.MessageBox('ѱɷֲɾ','ʾϢ',MB_OK); - exit; + if MessageDlg('ȷҪɾ¼', mtConfirmation, [mbYes, mbNo], 0) = mrYes then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add('delete from BS_Yarn_Info_CF where CFID = ' + QuotedStr(Trim(CDS_1.FieldByName('CFID').AsString))); + ExecSQL; + end; + CDS_1.Delete; + ShowMessage('ɾɹ'); + end + else + begin + Exit; + end; end else begin - CDS_1.Delete; + CDS_1.Delete; end; end; diff --git a/B02基础纱线仓库/U_YarnInEdit.dfm b/B02基础纱线仓库/U_YarnInEdit.dfm index 04adec9..995e575 100644 --- a/B02基础纱线仓库/U_YarnInEdit.dfm +++ b/B02基础纱线仓库/U_YarnInEdit.dfm @@ -9,7 +9,6 @@ inherited frmYarnInEdit: TfrmYarnInEdit Font.Height = -16 Position = poScreenCenter OnClose = FormClose - ExplicitLeft = -639 ExplicitWidth = 1556 ExplicitHeight = 618 PixelsPerInch = 96 @@ -22,7 +21,6 @@ inherited frmYarnInEdit: TfrmYarnInEdit Height = 549 Align = alClient TabOrder = 0 - ExplicitTop = 36 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/B02基础纱线仓库/U_YarnInEdit.pas b/B02基础纱线仓库/U_YarnInEdit.pas index 6215635..b0eadce 100644 --- a/B02基础纱线仓库/U_YarnInEdit.pas +++ b/B02基础纱线仓库/U_YarnInEdit.pas @@ -204,6 +204,7 @@ begin FieldByName('FromSubId').Value := CDS_Sub.fieldbyname('FromSubId').value; FieldByName('FromPurMId').Value := CDS_Sub.fieldbyname('FromPurMId').Value; FieldByName('FromPurSId').Value := CDS_Sub.fieldbyname('FromPurSId').Value; + FieldByName('FromPurNo').Value := CDS_Sub.fieldbyname('FromPurNo').Value; FieldByName('BYIOID').Value := Trim(Maxno); FieldByName('STKID').Value := Trim(Maxno); diff --git a/B02基础纱线仓库/U_YarnInList.dfm b/B02基础纱线仓库/U_YarnInList.dfm index 930cd72..d8cb858 100644 --- a/B02基础纱线仓库/U_YarnInList.dfm +++ b/B02基础纱线仓库/U_YarnInList.dfm @@ -5,7 +5,6 @@ inherited frmYarnInList: TfrmYarnInList ClientHeight = 640 ClientWidth = 1540 Font.Height = -16 - ExplicitLeft = -689 ExplicitWidth = 1556 ExplicitHeight = 679 PixelsPerInch = 96 @@ -30,7 +29,7 @@ inherited frmYarnInList: TfrmYarnInList ParentColor = False ParentFont = False ShowCaptions = True - TabOrder = 3 + TabOrder = 2 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -158,7 +157,8 @@ inherited frmYarnInList: TfrmYarnInList BevelOuter = bvLowered Color = clWhite ParentBackground = False - TabOrder = 4 + TabOrder = 3 + ExplicitTop = 36 object Label3: TLabel Left = 248 Top = 46 @@ -300,7 +300,7 @@ inherited frmYarnInList: TfrmYarnInList end object IOType: TcxComboBox Left = 96 - Top = 78 + Top = 77 Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( '' @@ -320,319 +320,6 @@ inherited frmYarnInList: TfrmYarnInList Width = 150 end end - object cxGrid1: TcxGrid [2] - Left = 0 - Top = 148 - Width = 1540 - Height = 492 - Align = alClient - PopupMenu = PopupMenu1 - TabOrder = 2 - ExplicitTop = 154 - object Tv1: TcxGridDBTableView - Navigator.Buttons.CustomButtons = <> - ScrollbarAnnotations.CustomAnnotations = <> - DataController.DataSource = DS_1 - DataController.Summary.DefaultGroupSummaryItems = < - item - Kind = skSum - Position = spFooter - end> - DataController.Summary.FooterSummaryItems = < - item - Kind = skCount - end - item - Kind = skSum - end - item - Kind = skSum - Column = v2Column6 - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end> - DataController.Summary.SummaryGroups = <> - OptionsCustomize.ColumnFiltering = False - OptionsView.Footer = True - OptionsView.GroupByBox = False - object Tv1Column9: TcxGridDBColumn - Caption = #36873#25321 - DataBinding.FieldName = 'SSEL' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' - Properties.ImmediatePost = True - HeaderAlignmentHorz = taCenter - Width = 46 - end - object v1Column6: TcxGridDBColumn - Caption = #20837#24211#21333#21495 - DataBinding.FieldName = 'BYIOID' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 83 - end - object v1Column2: TcxGridDBColumn - Tag = 2 - Caption = #20837#24211#26102#38388 - DataBinding.FieldName = 'ioTime' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxDateEditProperties' - Properties.SaveTime = False - Properties.ShowTime = False - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 93 - end - object v1Column4: TcxGridDBColumn - Tag = 2 - Caption = #20837#24211#31867#22411 - DataBinding.FieldName = 'IOType' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxComboBoxProperties' - Properties.DropDownListStyle = lsFixedList - Properties.Items.Strings = ( - #27491#24120#20837#24211 - #29983#20135#36864#22238 - #26399#21021#20837#24211) - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 88 - end - object v1Column14: TcxGridDBColumn - Tag = 2 - Caption = #26469#33258#21333#20301 - DataBinding.FieldName = 'FromCoName' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Alignment.Horz = taLeftJustify - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.ReadOnly = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 116 - end - object Tv1Column10: TcxGridDBColumn - Caption = #20379#24212#21830 - DataBinding.FieldName = 'Supplier' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 86 - end - object Tv1Column4: TcxGridDBColumn - Caption = #23384#25918#21333#20301 - DataBinding.FieldName = 'StkCoName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 91 - end - object Tv1Column12: TcxGridDBColumn - Caption = #32534#21495 - DataBinding.FieldName = 'Y_Code' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 81 - end - object v2Column1: TcxGridDBColumn - Tag = 2 - Caption = #21697#21517 - DataBinding.FieldName = 'Y_Name' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 99 - end - object Tv1Column8: TcxGridDBColumn - Caption = #31867#22411 - DataBinding.FieldName = 'Y_Type' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - end - object v1Column20: TcxGridDBColumn - Caption = #21697#29260 - DataBinding.FieldName = 'Brand' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 77 - end - object v1Column8: TcxGridDBColumn - Tag = 2 - Caption = #35268#26684 - DataBinding.FieldName = 'Y_Spec' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - HeaderGlyphAlignmentHorz = taCenter - Options.Editing = False - Width = 79 - end - object Tv1Column1: TcxGridDBColumn - Caption = #25104#20998 - DataBinding.FieldName = 'Y_Composition' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column2: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'Y_Color' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column3: TcxGridDBColumn - Caption = #29702#35770'D'#25968 - DataBinding.FieldName = 'Denier' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column11: TcxGridDBColumn - Caption = #23454#27979'D'#25968 - DataBinding.FieldName = 'TestDenier' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv1Column13: TcxGridDBColumn - Caption = #28504#36890#21495 - DataBinding.FieldName = 'Y_ColorNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 91 - end - object Tv1Column17: TcxGridDBColumn - Caption = #32442#27861 - DataBinding.FieldName = 'FF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column16: TcxGridDBColumn - Caption = #25467#24230 - DataBinding.FieldName = 'ND' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object v1Column10: TcxGridDBColumn - Caption = #25209#21495 - DataBinding.FieldName = 'BatchNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - VisibleForCustomization = False - Width = 89 - end - object Tv1Column5: TcxGridDBColumn - Caption = #31665'/'#20214 - DataBinding.FieldName = 'Piece' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 76 - end - object Tv1SXCBH: TcxGridDBColumn - Caption = #32433#32447#21378#32534#21495 - DataBinding.FieldName = 'SXCBH' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 90 - end - object Tv1SXCPM: TcxGridDBColumn - Caption = #32433#32447#21378#21697#21517 - DataBinding.FieldName = 'SXCPM' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 90 - end - object v2Column6: TcxGridDBColumn - Tag = 2 - Caption = #25968#37327 - DataBinding.FieldName = 'Qty' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 85 - end - object v1Column3: TcxGridDBColumn - Tag = 2 - Caption = #21333#20301 - DataBinding.FieldName = 'QtyUnit' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxComboBoxProperties' - Properties.DropDownListStyle = lsFixedList - Properties.Items.Strings = ( - 'Kg' - 'M') - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column12: TcxGridDBColumn - Tag = 2 - Caption = #22791#27880 - DataBinding.FieldName = 'Note' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 79 - end - object Tv1Column6: TcxGridDBColumn - Caption = #38468#20214 - DataBinding.FieldName = 'FJFlag' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 50 - end - object Tv1Column7: TcxGridDBColumn - Caption = #26159#21542#25277#26816 - DataBinding.FieldName = 'ISCJ' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - end - object cxGrid1Level1: TcxGridLevel - GridView = Tv1 - end - end inherited loadProcess: TPanel Left = 344 Top = 267 @@ -646,6 +333,655 @@ inherited frmYarnInList: TfrmYarnInList ExplicitTop = 335 ExplicitHeight = 29 end + object PageControl1: TPageControl [4] + Left = 0 + Top = 148 + Width = 1540 + Height = 492 + ActivePage = TabSheet1 + Align = alClient + TabOrder = 4 + ExplicitTop = 143 + object TabSheet1: TTabSheet + Caption = #27491#24120#25968#25454 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1532 + Height = 456 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + ExplicitTop = 506 + ExplicitWidth = 1540 + ExplicitHeight = 136 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object Tv1Column9: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSEL' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 46 + end + object v1Column6: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'BYIOID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object v1Column2: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'ioTime' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1Column4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column14: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#21333#20301 + DataBinding.FieldName = 'FromCoName' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 116 + end + object Tv1Column10: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'Supplier' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + end + object Tv1Column4: TcxGridDBColumn + Caption = #23384#25918#21333#20301 + DataBinding.FieldName = 'StkCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object Tv1Column12: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'Y_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object v2Column1: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'Y_Name' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object Tv1Column8: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'Y_Type' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column20: TcxGridDBColumn + Caption = #21697#29260 + DataBinding.FieldName = 'Brand' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object v1Column8: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'Y_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object Tv1Column1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'Y_Composition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column2: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column3: TcxGridDBColumn + Caption = #29702#35770'D'#25968 + DataBinding.FieldName = 'Denier' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column11: TcxGridDBColumn + Caption = #23454#27979'D'#25968 + DataBinding.FieldName = 'TestDenier' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object Tv1Column13: TcxGridDBColumn + Caption = #28504#36890#21495 + DataBinding.FieldName = 'Y_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object Tv1Column17: TcxGridDBColumn + Caption = #32442#27861 + DataBinding.FieldName = 'FF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column16: TcxGridDBColumn + Caption = #25467#24230 + DataBinding.FieldName = 'ND' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object v1Column10: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = False + Width = 89 + end + object Tv1Column5: TcxGridDBColumn + Caption = #31665'/'#20214 + DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object Tv1SXCBH: TcxGridDBColumn + Caption = #32433#32447#21378#32534#21495 + DataBinding.FieldName = 'SXCBH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1SXCPM: TcxGridDBColumn + Caption = #32433#32447#21378#21697#21517 + DataBinding.FieldName = 'SXCPM' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object Tv1Column6: TcxGridDBColumn + Caption = #38468#20214 + DataBinding.FieldName = 'FJFlag' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object Tv1Column7: TcxGridDBColumn + Caption = #26159#21542#25277#26816 + DataBinding.FieldName = 'ISCJ' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + object TabSheet2: TTabSheet + Caption = #20316#24223#25968#25454 + ImageIndex = 1 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1532 + Height = 456 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + ExplicitTop = 506 + ExplicitWidth = 1540 + ExplicitHeight = 136 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn24 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSEL' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 46 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20837#24211#21333#21495 + DataBinding.FieldName = 'BYIOID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 83 + end + object cxGridDBColumn3: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#26102#38388 + DataBinding.FieldName = 'ioTime' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object cxGridDBColumn4: TcxGridDBColumn + Tag = 2 + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #27491#24120#20837#24211 + #29983#20135#36864#22238 + #26399#21021#20837#24211) + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object cxGridDBColumn5: TcxGridDBColumn + Tag = 2 + Caption = #26469#33258#21333#20301 + DataBinding.FieldName = 'FromCoName' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Alignment.Horz = taLeftJustify + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 116 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'Supplier' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #23384#25918#21333#20301 + DataBinding.FieldName = 'StkCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'Y_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object cxGridDBColumn9: TcxGridDBColumn + Tag = 2 + Caption = #21697#21517 + DataBinding.FieldName = 'Y_Name' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'Y_Type' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #21697#29260 + DataBinding.FieldName = 'Brand' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 77 + end + object cxGridDBColumn12: TcxGridDBColumn + Tag = 2 + Caption = #35268#26684 + DataBinding.FieldName = 'Y_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'Y_Composition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #29702#35770'D'#25968 + DataBinding.FieldName = 'Denier' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #23454#27979'D'#25968 + DataBinding.FieldName = 'TestDenier' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #28504#36890#21495 + DataBinding.FieldName = 'Y_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #32442#27861 + DataBinding.FieldName = 'FF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #25467#24230 + DataBinding.FieldName = 'ND' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = False + Width = 89 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #31665'/'#20214 + DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #32433#32447#21378#32534#21495 + DataBinding.FieldName = 'SXCBH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #32433#32447#21378#21697#21517 + DataBinding.FieldName = 'SXCPM' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object cxGridDBColumn24: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object cxGridDBColumn25: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn26: TcxGridDBColumn + Tag = 2 + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object cxGridDBColumn27: TcxGridDBColumn + Caption = #38468#20214 + DataBinding.FieldName = 'FJFlag' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 50 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #26159#21542#25277#26816 + DataBinding.FieldName = 'ISCJ' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end + end + end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_YarnStk.ADOLink Left = 97 @@ -682,10 +1018,9 @@ inherited frmYarnInList: TfrmYarnInList Top = 400 end object GPM_1: TcxGridPopupMenu - Grid = cxGrid1 PopupMenus = <> - Left = 736 - Top = 400 + Left = 328 + Top = 320 end object CDS_Main: TClientDataSet Aggregates = <> @@ -705,4 +1040,28 @@ inherited frmYarnInList: TfrmYarnInList OnClick = N2Click end end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 440 + Top = 320 + end + object CDS_Main_Del: TClientDataSet + Aggregates = <> + Params = <> + Left = 628 + Top = 452 + end + object DS_2: TDataSource + DataSet = CDS_Main_Del + Left = 788 + Top = 468 + end + object ADOQueryMain_Del: TADOQuery + Connection = DataLink_YarnStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 480 + Top = 352 + end end diff --git a/B02基础纱线仓库/U_YarnInList.pas b/B02基础纱线仓库/U_YarnInList.pas index 8805f69..000ea9a 100644 --- a/B02基础纱线仓库/U_YarnInList.pas +++ b/B02基础纱线仓库/U_YarnInList.pas @@ -44,54 +44,92 @@ type Y_Name: TcxTextEdit; FromCoName: TcxTextEdit; Y_spec: TcxTextEdit; - cxGrid1: TcxGrid; - Tv1: TcxGridDBTableView; - v1Column6: TcxGridDBColumn; - v1Column2: TcxGridDBColumn; - v1Column4: TcxGridDBColumn; - v1Column14: TcxGridDBColumn; - v2Column1: TcxGridDBColumn; - v1Column8: TcxGridDBColumn; - v2Column6: TcxGridDBColumn; - v1Column3: TcxGridDBColumn; - v1Column12: TcxGridDBColumn; - cxGrid1Level1: TcxGridLevel; - v1Column10: TcxGridDBColumn; Label10: TLabel; BatchNo: TcxTextEdit; - v1Column20: TcxGridDBColumn; ToolButton1: TToolButton; Label6: TLabel; BYIOID: TcxTextEdit; - Tv1Column1: TcxGridDBColumn; - Tv1Column2: TcxGridDBColumn; - Tv1Column3: TcxGridDBColumn; - Tv1Column4: TcxGridDBColumn; - Tv1Column5: TcxGridDBColumn; ToolButton2: TToolButton; - Tv1Column9: TcxGridDBColumn; - Tv1Column10: TcxGridDBColumn; Label5: TLabel; Supplier: TcxTextEdit; Frame11: TfrmFrameDateSel; IOType: TcxComboBox; - Tv1Column11: TcxGridDBColumn; ToolButton3: TToolButton; ToolButton4: TToolButton; - Tv1Column8: TcxGridDBColumn; Y_Code: TcxTextEdit; Label1: TLabel; - Tv1Column12: TcxGridDBColumn; - Tv1Column13: TcxGridDBColumn; ToolButton5: TToolButton; - Tv1Column16: TcxGridDBColumn; - Tv1Column17: TcxGridDBColumn; ToolButton6: TToolButton; - Tv1Column6: TcxGridDBColumn; ToolButton7: TToolButton; - Tv1Column7: TcxGridDBColumn; - Tv1SXCPM: TcxGridDBColumn; + PageControl1: TPageControl; + TabSheet1: TTabSheet; + TabSheet2: TTabSheet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + Tv1Column9: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column12: TcxGridDBColumn; + v2Column1: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column17: TcxGridDBColumn; + Tv1Column16: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; Tv1SXCBH: TcxGridDBColumn; + Tv1SXCPM: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + cxGrid1Level1: 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; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + GPM_2: TcxGridPopupMenu; + CDS_Main_Del: TClientDataSet; + DS_2: TDataSource; + ADOQueryMain_Del: TADOQuery; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -121,6 +159,7 @@ type canshu1, FStkName, canshu3: string; procedure InitGrid(); procedure setStatus(); + procedure InitDelGrid(); { Private declarations } public @@ -189,10 +228,44 @@ begin end; end; +procedure TfrmYarnInList.InitDelGrid(); +begin + try + ADOQueryMain_Del.DisableControls; + with ADOQueryMain_Del do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add(' select A.* '); + + sql.Add(',Case when ISnull(CJDate,'''') <> '''' '); + sql.Add('then Cast(1 as bit) else Cast(0 as bit) end as ISCJ'); + + sql.Add(',Case when isnull((select count(*) from FJ_File where WBID=A.BYIOID and TFType=''ɴ'' ),0)>0 '); + sql.Add('then Cast(1 as bit) else Cast(0 as bit) end as FJFlag'); + + sql.Add(' from BS_Yarn_IO_Del A'); + sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', Frame11.BegDate.Date)) + ''''); + sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', Frame11.enddate.Date + 1)) + ''''); + sql.Add(' and isnull(StkName,'''')=''' + Trim(FStkName) + ''''); + SQL.Add(' and IOFlag='''' '); + SQL.Add(' order by IOTime desc'); + Open; + end; + SDofilter(ADOQueryMain_Del, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain_Del, CDS_Main_Del); + SInitCDSData(ADOQueryMain_Del, CDS_Main_Del); + finally + ADOQueryMain_Del.EnableControls; + end; +end; + procedure TfrmYarnInList.TBRafreshClick(Sender: TObject); begin ToolBar1.SetFocus; InitGrid(); + InitDelGrid(); end; procedure TfrmYarnInList.ToolButton1Click(Sender: TObject); @@ -410,6 +483,7 @@ begin ReadCxGrid(Self.Caption + '2', Tv1, 'ɴֿ߲'); setStatus(); InitGrid(); + InitDelGrid(); end; procedure TfrmYarnInList.TBExportClick(Sender: TObject); @@ -427,6 +501,12 @@ begin SCreateCDS(ADOQueryMain, CDS_Main); SInitCDSData(ADOQueryMain, CDS_Main); end; + if ADOQueryMain_Del.Active then + begin + SDofilter(ADOQueryMain_Del, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain_Del, CDS_Main_Del); + SInitCDSData(ADOQueryMain_Del, CDS_Main_Del); + end; end; procedure TfrmYarnInList.N1Click(Sender: TObject); diff --git a/B02基础纱线仓库/U_YarnInfoInPut.dfm b/B02基础纱线仓库/U_YarnInfoInPut.dfm index 7a046e3..ff72252 100644 --- a/B02基础纱线仓库/U_YarnInfoInPut.dfm +++ b/B02基础纱线仓库/U_YarnInfoInPut.dfm @@ -33,6 +33,7 @@ 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 e0993c9..542dd21 100644 --- a/B02基础纱线仓库/U_YarnInfoInPut.pas +++ b/B02基础纱线仓库/U_YarnInfoInPut.pas @@ -517,7 +517,24 @@ begin // ԽַתΪ fValue := StrToFloat(s); // ʽΪλСӰٷֺ - Tv1.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%'; +// Tv1.Controller.FocusedColumn.EditValue := FormatFloat('0.00', fValue) + '%'; + Tv1.Controller.FocusedColumn.EditValue := s + '%'; + Y_Composition.Text := ''; + CDS_1.First; + while not CDS_1.Eof do + begin + if Y_Composition.Text = '' then + begin + Y_Composition.Text := CDS_1.FieldByName('BL').AsString + CDS_1.FieldByName('CF').AsString; + end + else + begin + Y_Composition.Text := Y_Composition.Text + ' ' + CDS_1.FieldByName('BL').AsString + CDS_1.FieldByName('CF').AsString; + end; + + CDS_1.Next; + end; + except on E: EConvertError do begin diff --git a/B02基础纱线仓库/U_YarnInfoList.dfm b/B02基础纱线仓库/U_YarnInfoList.dfm index f30f67b..a763566 100644 --- a/B02基础纱线仓库/U_YarnInfoList.dfm +++ b/B02基础纱线仓库/U_YarnInfoList.dfm @@ -214,6 +214,7 @@ inherited frmYarnInfoList: TfrmYarnInfoList Height = 483 Align = alClient TabOrder = 2 + ExplicitTop = 71 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/B02基础纱线仓库/YarnStk.dproj.local b/B02基础纱线仓库/YarnStk.dproj.local index e396f62..f2c78c1 100644 --- a/B02基础纱线仓库/YarnStk.dproj.local +++ b/B02基础纱线仓库/YarnStk.dproj.local @@ -1,98 +1,98 @@  - 1899/12/30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas - 1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.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.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.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.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.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.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.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.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.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.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.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.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.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.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.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899/12/30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas - 1899/12/30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas + 1899/12/30 00:00:00.000.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.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm + 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.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.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.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.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.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.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.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.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.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.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.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.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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 0ec69bc2733721d4d94302fe80d4c7940f48b1d6..f13bbb284d7ad68b797038f0e0693ea09473c05b 100644 GIT binary patch delta 97 zcmV-n0G|Ka9oij`rISPjT(PCW0+WvkE0g8}&6AoAK$8mvIg_&lSd*Xy^ONogS+hZwnV(B@@&Zm%Alr3vE}z8Yv%IdGW!R&cCQo43oWw3Mc|V)PfrmGKManageSel dfm + +
frmYarnCFInfoSel
+ dfm + Cfg_2 Base diff --git a/B04采购计划管理/PurchasePlan.dproj.local b/B04采购计划管理/PurchasePlan.dproj.local index 6e0aa25..182886e 100644 --- a/B04采购计划管理/PurchasePlan.dproj.local +++ b/B04采购计划管理/PurchasePlan.dproj.local @@ -1,61 +1,62 @@  - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas - 1899/12/30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas= - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas - 1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas - 1899/12/30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas - 1899/12/30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.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.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm - 1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm - 1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas - 1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.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.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas - 1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj - 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.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas - 1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm - 1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm + 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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas + 1899/12/30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas + 1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas + 1899/12/30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899/12/30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm + 1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas + 1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas + 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm + 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.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.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.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 + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas + 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.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= + 2025/12/06 09:54:40.000.204,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas @@ -88,6 +89,8 @@ + + diff --git a/B04采购计划管理/PurchasePlan.identcache b/B04采购计划管理/PurchasePlan.identcache index 7874219285a0ffc5d7350c6f219e657f9a9aa40b..61863c9b3e347c41795f8daf85816d1560608d18 100644 GIT binary patch delta 32 ocmca3zDt5pZ6l*1*JOT9S0-n-iH+iuYq{hnCdh1#<*H`{0Gb&IP5=M^ delta 15 WcmdlbaYvj{bt9u9*X9PUU5o%Icm%-! diff --git a/B04采购计划管理/U_GetDllForm.pas b/B04采购计划管理/U_GetDllForm.pas index 726a7af..4a41308 100644 --- a/B04采购计划管理/U_GetDllForm.pas +++ b/B04采购计划管理/U_GetDllForm.pas @@ -76,6 +76,7 @@ begin pswd := 'rightsoft,.KXY@YN'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; Parameters1 := ''; +// Parameters1 := 'ѯ'; end else begin diff --git a/B04采购计划管理/U_YarnPurchasePlanList.dfm b/B04采购计划管理/U_YarnPurchasePlanList.dfm index a1bdd67..4f1835d 100644 --- a/B04采购计划管理/U_YarnPurchasePlanList.dfm +++ b/B04采购计划管理/U_YarnPurchasePlanList.dfm @@ -7,7 +7,6 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList Font.Height = -16 FormStyle = fsMDIChild Visible = True - ExplicitLeft = -513 ExplicitWidth = 1380 ExplicitHeight = 774 PixelsPerInch = 96 @@ -299,7 +298,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList Width = 78 end object Tv1Column1: TcxGridDBColumn - Caption = #31867#22411 + Caption = #37319#36141#31867#22411 DataBinding.FieldName = 'PurType' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter @@ -370,6 +369,146 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList Options.Editing = False Width = 100 end + object Tv1C_Degree: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'C_Degree' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Y_Code: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'Y_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Y_Name: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'Y_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Y_Spec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'Y_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Y_Composition: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'Y_Composition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1SXCBH: TcxGridDBColumn + Caption = #32433#32447#21378#32534#21495 + DataBinding.FieldName = 'SXCBH' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 110 + end + object Tv1Denier: TcxGridDBColumn + Caption = #20998#29305'(Dtex)' + DataBinding.FieldName = 'Denier' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 110 + end + object Tv1SXCPM: TcxGridDBColumn + Caption = #32433#32447#21378#21697#21517 + DataBinding.FieldName = 'SXCPM' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 110 + end + object Tv1ZS: TcxGridDBColumn + Caption = #25903#25968 + DataBinding.FieldName = 'ZS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1FF: TcxGridDBColumn + Caption = #32442#27861 + DataBinding.FieldName = 'FF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1ND: TcxGridDBColumn + Caption = #25467#24230 + DataBinding.FieldName = 'ND' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Y_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Qty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1QtyUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Price: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1TaxRate: TcxGridDBColumn + Caption = #31246#29575 + DataBinding.FieldName = 'TaxRate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Amount: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Amount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1currency: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'currency' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1SDlyDate: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'SDlyDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1SNote: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/B04采购计划管理/U_YarnPurchasePlanList.pas b/B04采购计划管理/U_YarnPurchasePlanList.pas index f2e8499..baaeb5d 100644 --- a/B04采购计划管理/U_YarnPurchasePlanList.pas +++ b/B04采购计划管理/U_YarnPurchasePlanList.pas @@ -117,6 +117,26 @@ type Tv2Column1: TcxGridDBColumn; Tv2Column2: TcxGridDBColumn; Tv2TaxRate: TcxGridDBColumn; + Tv1C_Degree: TcxGridDBColumn; + Tv1Y_Code: TcxGridDBColumn; + Tv1Y_Name: TcxGridDBColumn; + Tv1Y_Spec: TcxGridDBColumn; + Tv1Y_Composition: TcxGridDBColumn; + Tv1SXCBH: TcxGridDBColumn; + Tv1Denier: TcxGridDBColumn; + Tv1SXCPM: TcxGridDBColumn; + Tv1ZS: TcxGridDBColumn; + Tv1FF: TcxGridDBColumn; + Tv1ND: TcxGridDBColumn; + Tv1Y_Color: TcxGridDBColumn; + Tv1Qty: TcxGridDBColumn; + Tv1QtyUnit: TcxGridDBColumn; + Tv1Price: TcxGridDBColumn; + Tv1TaxRate: TcxGridDBColumn; + Tv1Amount: TcxGridDBColumn; + Tv1currency: TcxGridDBColumn; + Tv1SDlyDate: TcxGridDBColumn; + Tv1SNote: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -401,6 +421,7 @@ begin if Trim(FAuthority) = 'ѯ' then begin TBPrint.Enabled := True; + cxGrid2.Visible := False; end; end; @@ -434,22 +455,46 @@ var SqlStr: string; begin - SqlStr := 'select AA.* '; - SqlStr := SqlStr + ' ,Y_Name=SUBSTRING(CAST((select distinct '','' +X.Y_Name from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId for xml path('''') ) AS VARCHAR(1000)) , 2, 1000)'; - SqlStr := SqlStr + ' ,GXHZ=SUBSTRING(CAST((select distinct '','' +X.GX from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId for xml path('''') ) AS VARCHAR(1000)) , 2, 1000)'; + if Trim(FAuthority) = 'ѯ' then + begin + SqlStr := 'select AA.*,BB.* '; + SqlStr := SqlStr + ' ,Y_Name=SUBSTRING(CAST((select distinct '','' +X.Y_Name from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId for xml path('''') ) AS VARCHAR(1000)) , 2, 1000)'; + SqlStr := SqlStr + ' ,GXHZ=SUBSTRING(CAST((select distinct '','' +X.GX from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId for xml path('''') ) AS VARCHAR(1000)) , 2, 1000)'; - SqlStr := SqlStr + ' ,StkName2HZ=SUBSTRING(CAST((select distinct '','' +X.StkName2 from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId for xml path('''') ) AS VARCHAR(1000)) , 2, 1000)'; - SqlStr := SqlStr + ' ,SDlyDateHZ=SUBSTRING(CAST((select distinct '','' +cast (X.SDlyDate AS VarChar) from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId for xml path('''') ) AS VARCHAR(1000)) , 2, 1000)'; + SqlStr := SqlStr + ' ,StkName2HZ=SUBSTRING(CAST((select distinct '','' +X.StkName2 from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId for xml path('''') ) AS VARCHAR(1000)) , 2, 1000)'; + SqlStr := SqlStr + ' ,SDlyDateHZ=SUBSTRING(CAST((select distinct '','' +cast (X.SDlyDate AS VarChar) from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId for xml path('''') ) AS VARCHAR(1000)) , 2, 1000)'; - SqlStr := SqlStr + ' ,CGQty=(select sum(Qty) from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId) '; + SqlStr := SqlStr + ' ,CGQty=(select sum(Qty) from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId) '; - SqlStr := SqlStr + ' ,YDHQty=(select sum(Qty) from BS_Yarn_IO X where X.IOFlag='''' and X.FromPurNo=AA.PurNo) '; - SqlStr := SqlStr + ' ,YDHDate=(select top 1 IOTime from BS_Yarn_IO X where X.IOFlag='''' and X.FromPurNo=AA.PurNo order by IOTime desc ) '; + SqlStr := SqlStr + ' ,YDHQty=(select sum(Qty) from BS_Yarn_IO X where X.IOFlag='''' and X.FromPurNo=AA.PurNo) '; + SqlStr := SqlStr + ' ,YDHDate=(select top 1 IOTime from BS_Yarn_IO X where X.IOFlag='''' and X.FromPurNo=AA.PurNo order by IOTime desc ) '; - SqlStr := SqlStr + ' ,RKQTy=(select sum(Y.BaoQty) from BS_Yarn_IO X INNER JOIN BS_Yarn_IO_MX Y on X.BYIOID =Y.BYIOID '; - SqlStr := SqlStr + ' where X.IOFlag='''' and X.FromPurNo=AA.PurNo and isnull(StkPosition,'''') <> '''' ) '; + SqlStr := SqlStr + ' ,RKQTy=(select sum(Y.BaoQty) from BS_Yarn_IO X INNER JOIN BS_Yarn_IO_MX Y on X.BYIOID =Y.BYIOID '; + SqlStr := SqlStr + ' where X.IOFlag='''' and X.FromPurNo=AA.PurNo and isnull(StkPosition,'''') <> '''' ) '; + + SqlStr := SqlStr + ' ,YDHQty=(select sum(Qty) from BS_Yarn_IO X where X.IOFlag='''' and X.FromPurSId=BB.PurSId) '; + SqlStr := SqlStr + ' from Pur_YarnPlan_Main AA right join Pur_YarnPlan_sub BB on AA.PurMId = BB.PurMId '; + end + else + begin + SqlStr := 'select AA.* '; + SqlStr := SqlStr + ' ,Y_Name=SUBSTRING(CAST((select distinct '','' +X.Y_Name from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId for xml path('''') ) AS VARCHAR(1000)) , 2, 1000)'; + SqlStr := SqlStr + ' ,GXHZ=SUBSTRING(CAST((select distinct '','' +X.GX from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId for xml path('''') ) AS VARCHAR(1000)) , 2, 1000)'; + + SqlStr := SqlStr + ' ,StkName2HZ=SUBSTRING(CAST((select distinct '','' +X.StkName2 from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId for xml path('''') ) AS VARCHAR(1000)) , 2, 1000)'; + SqlStr := SqlStr + ' ,SDlyDateHZ=SUBSTRING(CAST((select distinct '','' +cast (X.SDlyDate AS VarChar) from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId for xml path('''') ) AS VARCHAR(1000)) , 2, 1000)'; + + SqlStr := SqlStr + ' ,CGQty=(select sum(Qty) from Pur_YarnPlan_Sub X where X.PurMId=AA.PurMId) '; + + SqlStr := SqlStr + ' ,YDHQty=(select sum(Qty) from BS_Yarn_IO X where X.IOFlag='''' and X.FromPurNo=AA.PurNo) '; + SqlStr := SqlStr + ' ,YDHDate=(select top 1 IOTime from BS_Yarn_IO X where X.IOFlag='''' and X.FromPurNo=AA.PurNo order by IOTime desc ) '; + + SqlStr := SqlStr + ' ,RKQTy=(select sum(Y.BaoQty) from BS_Yarn_IO X INNER JOIN BS_Yarn_IO_MX Y on X.BYIOID =Y.BYIOID '; + SqlStr := SqlStr + ' where X.IOFlag='''' and X.FromPurNo=AA.PurNo and isnull(StkPosition,'''') <> '''' ) '; + + SqlStr := SqlStr + ' from Pur_YarnPlan_Main AA '; + end; - SqlStr := SqlStr + ' from Pur_YarnPlan_Main AA '; SqlStr := SqlStr + ' where isnull(LX,'''') <> ''֯쵥'' and PurDate>' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)); SqlStr := SqlStr + ' and PurDate<=' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)); @@ -843,7 +888,11 @@ end; procedure TfrmYarnPurchasePlanList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); begin - InitSub(); + if Trim(FAuthority) <> 'ѯ' then + begin + InitSub(); + end; + end; procedure TfrmYarnPurchasePlanList.TextEdit(Sender: TObject); @@ -1007,7 +1056,7 @@ procedure TfrmYarnPurchasePlanList.ToolButton5Click(Sender: TObject); // begin if CDS_1.IsEmpty then begin - Application.MessageBox('ѡݣ','ʾϢ',MB_OK); + Application.MessageBox('ѡݣ', 'ʾϢ', MB_OK); Exit; end; diff --git a/E01梭织生产计划/TatPlan.dpr b/E01梭织生产计划/TatPlan.dpr index a6c5da0..c8aa7b7 100644 --- a/E01梭织生产计划/TatPlan.dpr +++ b/E01梭织生产计划/TatPlan.dpr @@ -47,7 +47,8 @@ uses U_PictureUpload in '..\A00ͨô\U_PictureUpload.pas' {frmPictureUpload}, U_GKManageSel in '..\A02Ʒ\U_GKManageSel.pas' {frmGKManageSel}, U_GKInput in 'U_GKInput.pas' {frmGKInput}, - U_YarnStkSel in 'U_YarnStkSel.pas' {frmYarnStkSel}; + U_YarnStkSel in 'U_YarnStkSel.pas' {frmYarnStkSel}, + U_YarnCFInfoSel in '..\B02ɴֿ߲\U_YarnCFInfoSel.pas' {frmYarnCFInfoSel}; {$R *.res} diff --git a/E01梭织生产计划/TatPlan.dproj b/E01梭织生产计划/TatPlan.dproj index e475e0e..5ba6e3d 100644 --- a/E01梭织生产计划/TatPlan.dproj +++ b/E01梭织生产计划/TatPlan.dproj @@ -222,6 +222,10 @@
frmYarnStkSel
dfm + +
frmYarnCFInfoSel
+ dfm + Cfg_2 Base diff --git a/E01梭织生产计划/TatPlan.dproj.local b/E01梭织生产计划/TatPlan.dproj.local index b888b69..aa279dd 100644 --- a/E01梭织生产计划/TatPlan.dproj.local +++ b/E01梭织生产计划/TatPlan.dproj.local @@ -1,84 +1,85 @@  - 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.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas - 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.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.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.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.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.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.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.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.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.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.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas= - 1899/12/30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas= + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.555,=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.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.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.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.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.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.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.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.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.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.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.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.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.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.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.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.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.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.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.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.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.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.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas - 1899/12/30 00:00:00.000.734,=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.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 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.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.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.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.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.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 @@ -112,6 +113,8 @@ + + diff --git a/E01梭织生产计划/TatPlan.identcache b/E01梭织生产计划/TatPlan.identcache index 67556c7ef79820570b399c5a71b730796d968f20..0d0dbf422aad1080d4ae3385df0dcfa818efa87a 100644 GIT binary patch delta 176 zcmca8wO*Q0dm>}>X`m$wxROH~(i#Wt@C~ zi)(TohYXXm+hjcs@yXn536t+~#7sWMtO*o01)38HWXDZ@&u$GgLmFs-{N@8(iy0?- RafO2gzw=1LE&0GG1pth#IUN81 delta 152 zcmZ24eNl>0Ya(Ox#%+;|lmD_>PoByvHF-Ug_T=-dVw2^$BsQ;SN@kqgz^OSofy;FA zYcBc82e_3s2eSl%REJJJ!jUlfGK=oydbae<3hb$jKv}NID>+RkKV!3+T*a;M1& diff --git a/E01梭织生产计划/U_TatPlanInPut.dfm b/E01梭织生产计划/U_TatPlanInPut.dfm index 7735c95..bbfb92e 100644 --- a/E01梭织生产计划/U_TatPlanInPut.dfm +++ b/E01梭织生产计划/U_TatPlanInPut.dfm @@ -9,7 +9,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Font.Height = -13 Position = poScreenCenter WindowState = wsMaximized - ExplicitLeft = -689 + ExplicitTop = -184 ExplicitWidth = 1556 ExplicitHeight = 884 PixelsPerInch = 96 @@ -125,9 +125,9 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object Label35: TLabel Left = 9 Top = 44 - Width = 52 + Width = 78 Height = 19 - Caption = #21512#21516#21495#65306 + Caption = #38754#26009#21512#21516#21495#65306 end object Label3: TLabel Left = 11 @@ -834,7 +834,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Left = 766 Top = 228 ParentColor = True - Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged + Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged TabOrder = 29 OnExit = C_ReedWidthExit Width = 76 @@ -981,9 +981,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object cxTabSheet1: TcxTabSheet Caption = #32463#19997#32452#21512 ImageIndex = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object GroupBox1: TGroupBox Left = 931 Top = 0 @@ -1105,9 +1102,9 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Options.Sorting = False Width = 100 end - object TV1Column13: TcxGridDBColumn - Caption = #35268#26684 - DataBinding.FieldName = 'Y_Spec' + object TV1Y_Composition: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'Y_Composition' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 @@ -1333,8 +1330,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Width = 100 end object Tv2Column13: TcxGridDBColumn - Caption = #35268#26684 - DataBinding.FieldName = 'Y_Spec' + Caption = #25104#20998 + DataBinding.FieldName = 'Y_Composition' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 @@ -1437,9 +1434,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object cxTabSheet3: TcxTabSheet Caption = #36215#32508#27861 ImageIndex = 3 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object Panel5: TPanel Left = 0 Top = 0 @@ -1497,9 +1491,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object cxTabSheet4: TcxTabSheet Caption = #31359#32508#27861 ImageIndex = 3 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object Panel4: TPanel Left = 0 Top = 0 @@ -1557,9 +1548,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object cxTabSheet5: TcxTabSheet Caption = #31359#31576#27861 ImageIndex = 3 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 object CKF: TMemo Tag = 2 Left = 0 diff --git a/E01梭织生产计划/U_TatPlanInPut.pas b/E01梭织生产计划/U_TatPlanInPut.pas index 763abbc..31fc7e5 100644 --- a/E01梭织生产计划/U_TatPlanInPut.pas +++ b/E01梭织生产计划/U_TatPlanInPut.pas @@ -138,7 +138,7 @@ type TV1Column7: TcxGridDBColumn; cxGridDBColumn3: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn; - TV1Column13: TcxGridDBColumn; + TV1Y_Composition: TcxGridDBColumn; cxGridDBColumn8: TcxGridDBColumn; TV1Column6: TcxGridDBColumn; TV1Column14: TcxGridDBColumn; @@ -321,6 +321,7 @@ begin ConSId.tag := 9; SCSHData(ADOQueryTemp, ScrollBox1, 2); + ZS.Text := ADOQueryTemp.FieldByName('ZS').AsString; attname1.Text := ADOQueryTemp.fieldbyname('attname1').AsString; attname2.Text := ADOQueryTemp.fieldbyname('attname2').AsString; ConNo.tag := 2; @@ -476,8 +477,29 @@ end; procedure TfrmTatPlanInPut.InitData(); var PBNO, PBFlag: string; +// i: Integer; +// // ڱе¼ +// ColumnEvents: array of TNotifyEvent; begin +// // 1. Tv2 е OnEditValueChanged ¼ +// SetLength(ColumnEvents, Tv2.ColumnCount); +// for i := 0 to Tv2.ColumnCount - 1 do +// begin +// if Assigned(Tv2.Columns[i].Properties) then +// ColumnEvents[i] := Tv2.Columns[i].Properties.OnEditValueChanged; +// end; +// +// // 2. е¼ +// for i := 0 to Tv2.ColumnCount - 1 do +// begin +// if Assigned(Tv2.Columns[i].Properties) then +// Tv2.Columns[i].Properties.OnEditValueChanged := nil; +// end; + +// Tv1.BeginUpdate; +// Tv2.BeginUpdate; + with ADOQueryMain do begin Close; @@ -627,6 +649,14 @@ begin // ScrollBox1.Enabled := False; end; InitImage(); +// for i := 0 to Tv2.ColumnCount - 1 do +// begin +// if Assigned(Tv2.Columns[i].Properties) then +// Tv2.Columns[i].Properties.OnEditValueChanged := ColumnEvents[i]; +// end; +// +// Tv1.EndUpdate; +// Tv2.EndUpdate; end; procedure TfrmTatPlanInPut.Initexcel(); @@ -1204,7 +1234,7 @@ begin with CDS_1 do begin Edit; - FieldByName('MeterQty').Value := roundfloat((1 + mZS / 100) * ZGS * mYarnFactor / mZ_Number, 2); + FieldByName('MeterQty').Value := roundfloat((1 + mZS / 100) * ZGS * 0.059 / mZ_Number, 2); Post; end; end; @@ -1410,7 +1440,7 @@ begin with CDS_2 do begin Edit; - FieldByName('MeterQty').Value := roundfloat(WM * (MF + 4.2) * mYarnFactor / DS * GS / ZGS, 2); + FieldByName('MeterQty').Value := roundfloat(WM * (MF + 4.2) * 0.059 / DS * GS / ZGS, 2); Post; end; end; @@ -1568,7 +1598,7 @@ begin 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('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value; @@ -1577,7 +1607,7 @@ begin 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 := frmYarnInfoSel.CDS_1.fieldbyname('YarnFactor').Value; + FieldByName('YarnFactor').Value := 0.059; Post; end; @@ -1844,7 +1874,7 @@ begin 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_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').Value; FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').Value; FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').Value; @@ -1853,7 +1883,7 @@ begin 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 := frmYarnInfoSel.CDS_1.fieldbyname('YarnFactor').Value; + FieldByName('YarnFactor').Value := 0.059; Post; end; @@ -1935,7 +1965,7 @@ begin FieldByName('Y_Name').Value := ADOQuery1.fieldbyname('Y_Name').Value; FieldByName('Y_Color').Value := ADOQuery1.fieldbyname('Y_Color').Value; - FieldByName('Y_Spec').Value := ADOQuery1.fieldbyname('Y_Spec').Value; + FieldByName('Y_Composition').Value := ADOQuery1.fieldbyname('Y_Composition').Value; FieldByName('YarnQty').Value := ADOQuery1.fieldbyname('YarnQty').Value; FieldByName('CycleYarnQty').Value := ADOQuery1.fieldbyname('CycleYarnQty').Value; @@ -1945,7 +1975,7 @@ begin FieldByName('FF').Value := ADOQuery1.fieldbyname('FF').Value; FieldByName('ND').Value := ADOQuery1.fieldbyname('ND').Value; - FieldByName('YarnFactor').Value := ADOQuery1.fieldbyname('YarnFactor').Value; + FieldByName('YarnFactor').Value := 0.059; Post; end; diff --git a/E01梭织生产计划/U_TatPlanJTSCLIST.dfm b/E01梭织生产计划/U_TatPlanJTSCLIST.dfm index 5209d61..28f13ef 100644 --- a/E01梭织生产计划/U_TatPlanJTSCLIST.dfm +++ b/E01梭织生产计划/U_TatPlanJTSCLIST.dfm @@ -77,8 +77,6 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST Color = clWhite ParentBackground = False TabOrder = 3 - ExplicitLeft = 1 - ExplicitTop = 24 object Label5: TLabel Left = 20 Top = 21 @@ -115,10 +113,9 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST Height = 516 Align = alClient TabOrder = 4 - Properties.ActivePage = cxTabSheet1 + Properties.ActivePage = cxTabSheet3 Properties.CustomButtons.Buttons = <> OnChange = cxPageControl1Change - ExplicitTop = 127 ClientRectBottom = 515 ClientRectLeft = 1 ClientRectRight = 1539 @@ -259,7 +256,7 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST end end object cxTabSheet2: TcxTabSheet - Caption = ' '#27719#24635' ' + Caption = ' '#27719#24635'('#26426#21488#31867#22411') ' ImageIndex = 1 object cxGrid2: TcxGrid Left = 0 @@ -269,6 +266,7 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST Align = alClient PopupMenu = PopupMenu1 TabOrder = 0 + ExplicitLeft = -1 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -355,6 +353,104 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST end end end + object cxTabSheet3: TcxTabSheet + Caption = ' '#27719#24635'('#21512#21516#21495') ' + ImageIndex = 2 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 1538 + Height = 486 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + ExplicitLeft = -1 + object Tv3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_3 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + end + item + Kind = skCount + end + item + Kind = skCount + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object cxGridDBColumn1: TcxGridDBColumn + Caption = #22383#24067#21512#21516#21495 + DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 114 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #24403#21069#31354#38386#20010#25968 + DataBinding.FieldName = 'hxgs' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 125 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #26032#23433#25490#26426#21488#20010#25968 + DataBinding.FieldName = 'APGS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 119 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = '7'#22825#31354#38386#20010#25968 + DataBinding.FieldName = 'D1' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = '15'#22825#31354#38386#20010#25968 + DataBinding.FieldName = 'D2' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 142 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = '30'#22825#31354#38386#20010#25968 + DataBinding.FieldName = 'D3' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 115 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv3 + end + end + end end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_TatPlan.ADOLink @@ -439,4 +535,15 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST Left = 296 Top = 448 end + object CDS_3: TClientDataSet + Aggregates = <> + Params = <> + Left = 657 + Top = 390 + end + object DS_3: TDataSource + DataSet = CDS_3 + Left = 729 + Top = 398 + end end diff --git a/E01梭织生产计划/U_TatPlanJTSCLIST.pas b/E01梭织生产计划/U_TatPlanJTSCLIST.pas index fefcc3a..6c1bdd8 100644 --- a/E01梭织生产计划/U_TatPlanJTSCLIST.pas +++ b/E01梭织生产计划/U_TatPlanJTSCLIST.pas @@ -64,6 +64,18 @@ type CDS_2: TClientDataSet; DS_2: TDataSource; GPM_2: TcxGridPopupMenu; + cxTabSheet3: TcxTabSheet; + CDS_3: TClientDataSet; + DS_3: TDataSource; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -129,7 +141,7 @@ begin ADOQueryMain.EnableControls; end; end - else + else if cxPageControl1.ActivePageIndex = 1 then begin try ADOQueryMain.DisableControls; @@ -146,6 +158,24 @@ begin finally ADOQueryMain.EnableControls; end; + end + else if cxPageControl1.ActivePageIndex = 2 then + begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + sql.Clear; + sql.Add('EXEC P_Tat_Plan_Mach_HTHZ '); + + Open; + end; + SCreateCDS(ADOQueryMain, CDS_3); + SInitCDSData(ADOQueryMain, CDS_3); + finally + ADOQueryMain.EnableControls; + end; end; end; diff --git a/E01梭织生产计划/U_TatPlanList.dfm b/E01梭织生产计划/U_TatPlanList.dfm index 0e6b553..150b0be 100644 --- a/E01梭织生产计划/U_TatPlanList.dfm +++ b/E01梭织生产计划/U_TatPlanList.dfm @@ -314,6 +314,7 @@ inherited frmTatPlanList: TfrmTatPlanList Height = 444 Align = alClient TabOrder = 2 + ExplicitTop = 146 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E01梭织生产计划/U_TatPlanMachInput.dfm b/E01梭织生产计划/U_TatPlanMachInput.dfm index bcdcd8d..3ffc910 100644 --- a/E01梭织生产计划/U_TatPlanMachInput.dfm +++ b/E01梭织生产计划/U_TatPlanMachInput.dfm @@ -32,7 +32,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput ParentColor = False ShowCaptions = True TabOrder = 0 - ExplicitWidth = 1011 + ExplicitTop = -6 object ToolButton1: TToolButton Left = 0 Top = 0 @@ -71,6 +71,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput ParentColor = False ParentCtl3D = False TabOrder = 1 + ExplicitTop = 36 object Label1: TLabel Left = 455 Top = 55 @@ -139,32 +140,25 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput end object Label13: TLabel Left = 22 - Top = 243 + Top = 197 Width = 80 Height = 21 Caption = #25195#25551#21382#21490#65306 end object Label15: TLabel Left = 455 - Top = 243 + Top = 197 Width = 80 Height = 21 Caption = #23433#25490#21382#21490#65306 end object Label14: TLabel - Left = 22 - Top = 207 + Left = 24 + Top = 168 Width = 48 Height = 21 Caption = #32428#23494#65306 end - object Label17: TLabel - Left = 22 - Top = 171 - Width = 80 - Height = 21 - Caption = #32428#32433#35268#26684#65306 - end object Label6: TLabel Left = 455 Top = 171 @@ -259,7 +253,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput end object cxGrid2: TcxGrid Left = 455 - Top = 270 + Top = 224 Width = 291 Height = 141 TabOrder = 7 @@ -318,7 +312,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput end object cxGrid1: TcxGrid Left = 35 - Top = 270 + Top = 224 Width = 386 Height = 142 TabOrder = 8 @@ -384,23 +378,16 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput end object C_FinishLatitudeDensity: TcxTextEdit Tag = 2 - Left = 126 - Top = 204 - TabOrder = 9 - Width = 223 - end - object C_FinishLatitudeSpec: TcxTextEdit - Tag = 2 - Left = 127 + Left = 128 Top = 165 - TabOrder = 10 + TabOrder = 9 Width = 223 end object C_FinishLatitudeBatchNo: TcxTextEdit Tag = 2 Left = 561 Top = 165 - TabOrder = 11 + TabOrder = 10 Width = 218 end object WB_Name: TcxTextEdit @@ -410,7 +397,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput ParentColor = True Properties.ReadOnly = True StyleDisabled.TextColor = clGray - TabOrder = 12 + TabOrder = 11 Width = 218 end object action: TcxComboBox @@ -420,7 +407,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput Properties.Items.Strings = ( #19978#36724 #25509#22836) - TabOrder = 13 + TabOrder = 12 Width = 218 end object PMType: TcxComboBox @@ -431,7 +418,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput #23613#26426#23433#25490 #19979#24067#25913#26426) Properties.OnChange = PMTypePropertiesChange - TabOrder = 14 + TabOrder = 13 Width = 223 end object WB_Code: TcxButtonEdit @@ -447,18 +434,19 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput Properties.ReadOnly = True Properties.OnButtonClick = WB_CodePropertiesButtonClick StyleDisabled.TextColor = clGray - TabOrder = 15 + TabOrder = 14 Width = 223 end object cxGrid3: TcxGrid Left = 0 - Top = 412 - Width = 1003 + Top = 368 + Width = 1020 Height = 253 Align = alBottom - TabOrder = 16 - ExplicitTop = 368 - ExplicitWidth = 1020 + TabOrder = 15 + ExplicitLeft = -3 + ExplicitTop = 417 + ExplicitWidth = 1003 object Tv3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -472,7 +460,6 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput DataController.Summary.FooterSummaryItems = < item Kind = skSum - Column = Tv2Column8 end> DataController.Summary.SummaryGroups = <> OptionsBehavior.FocusCellOnTab = True @@ -500,6 +487,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput Kind = bkEllipsis end> Properties.ReadOnly = True + Properties.OnButtonClick = v2Column10PropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 100 end @@ -512,9 +500,9 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput Options.Sorting = False Width = 100 end - object Tv2Column13: TcxGridDBColumn - Caption = #35268#26684 - DataBinding.FieldName = 'Y_Spec' + object Tv2Y_Composition: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'Y_Composition' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 @@ -534,38 +522,6 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput HeaderAlignmentHorz = taCenter Width = 91 end - object Tv2Column14: TcxGridDBColumn - Caption = #25903#25968 - DataBinding.FieldName = 'Z_Number' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - HeaderAlignmentHorz = taCenter - Width = 88 - end - object Tv2Column1: TcxGridDBColumn - Caption = #26681#25968 - DataBinding.FieldName = 'YarnQty' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - HeaderAlignmentHorz = taCenter - Width = 79 - end - object Tv2Column2: TcxGridDBColumn - Caption = #24490#29615#26681#25968 - DataBinding.FieldName = 'CycleYarnQty' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv2Column11: TcxGridDBColumn - Caption = #25439#32791 - DataBinding.FieldName = 'Y_Loss' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - HeaderAlignmentHorz = taCenter - Width = 80 - end object Tv3BatchNO: TcxGridDBColumn Caption = #32433#32447#25209#21495 DataBinding.FieldName = 'BatchNO' @@ -578,21 +534,14 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput end> Properties.OnButtonClick = Tv3BatchNOPropertiesButtonClick HeaderAlignmentHorz = taCenter - Width = 91 - end - object Tv2Column8: TcxGridDBColumn - Caption = #30334#31859#32463#38271#29992#37327'KG' - DataBinding.FieldName = 'MeterQty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 151 + Width = 183 end object Tv2Column12: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'note' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 80 + Width = 160 end end object cxGridLevel3: TcxGridLevel diff --git a/E01梭织生产计划/U_TatPlanMachInput.pas b/E01梭织生产计划/U_TatPlanMachInput.pas index 71849e4..3e85e8b 100644 --- a/E01梭织生产计划/U_TatPlanMachInput.pas +++ b/E01梭织生产计划/U_TatPlanMachInput.pas @@ -57,10 +57,8 @@ type TV1Column1: TcxGridDBColumn; cxGridLevel2: TcxGridLevel; Label14: TLabel; - Label17: TLabel; Label6: TLabel; C_FinishLatitudeDensity: TcxTextEdit; - C_FinishLatitudeSpec: TcxTextEdit; C_FinishLatitudeBatchNo: TcxTextEdit; Label7: TLabel; Label12: TLabel; @@ -74,14 +72,9 @@ type Tv2Column7: TcxGridDBColumn; v2Column10: TcxGridDBColumn; cxGridDBColumn3: TcxGridDBColumn; - Tv2Column13: TcxGridDBColumn; + Tv2Y_Composition: TcxGridDBColumn; v2Column6: TcxGridDBColumn; Tv2Column6: TcxGridDBColumn; - Tv2Column14: TcxGridDBColumn; - Tv2Column1: TcxGridDBColumn; - Tv2Column2: TcxGridDBColumn; - Tv2Column11: TcxGridDBColumn; - Tv2Column8: TcxGridDBColumn; Tv2Column12: TcxGridDBColumn; cxGridLevel3: TcxGridLevel; Tv3BatchNO: TcxGridDBColumn; @@ -95,7 +88,8 @@ type procedure WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure ToolButton2Click(Sender: TObject); procedure PMTypePropertiesChange(Sender: TObject); - procedure Tv3BatchNOPropertiesButtonClick(Sender: TObject; + procedure Tv3BatchNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v2Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); private canshu1, YCP, XCP: string; @@ -103,7 +97,7 @@ type procedure InitData(); function SaveData(): Boolean; function CheckData(): Boolean; - procedure InitClothYarn(MC_Code: string); + procedure InitClothYarn(); { Private declarations } public FPMID, FCYCode, FCPID, FCPNO, FCPName, FMCNo, FMCType: string; @@ -118,7 +112,8 @@ var implementation uses - U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_TatPlanSel, U_WBSpecSel,U_YarnStkSel; + U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_TatPlanSel, U_WBSpecSel, + U_YarnStkSel,U_YarnInfoSel; {$R *.dfm} @@ -178,20 +173,44 @@ begin end; -procedure TfrmTatPlanMachInput.InitClothYarn(MC_Code: string); +procedure TfrmTatPlanMachInput.InitClothYarn(); begin with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) 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) + ''''); + sql.Add('select A.* from Tat_Plan_Mach_Yarn A '); + sql.Add(' where A.PMID=''' + Trim(FPMID) + ''''); Open; end; SCreateCDS(ADOQueryTemp, CDS_3); SInitCDSData(ADOQueryTemp, CDS_3); - ClearCDSColumn(CDS_3, ['YRId', 'SubId', 'MainId']); -// +// ClearCDSColumn(CDS_3, ['YRId', 'SubId', 'MainId']); + + if FPMID = '' then + begin + with CDS_3 do + begin + Append; + FieldByName('RowNo').Value := 'A'; + Post; + Append; + FieldByName('RowNo').Value := 'B'; + Post; + Append; + FieldByName('RowNo').Value := 'C'; + Post; + Append; + FieldByName('RowNo').Value := 'D'; + Post; + Append; + FieldByName('RowNo').Value := 'E'; + Post; + Append; + FieldByName('RowNo').Value := 'F'; + Post; + end; + end; end; procedure TfrmTatPlanMachInput.FormShow(Sender: TObject); @@ -200,7 +219,7 @@ begin readCxGrid(trim(self.Caption) + 'Tv2', Tv2, ''); InitData(); - InitClothYarn(C_Code.Text); + InitClothYarn(); end; procedure TfrmTatPlanMachInput.TBCloseClick(Sender: TObject); @@ -272,6 +291,62 @@ begin raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); end; + ////////////////////////// ɴϱ ////////////////////////// + with CDS_3 do + begin + First; + while not Eof do + begin + if Trim(CDS_3.fieldbyname('YRId').AsString) = '' then + begin + if GetLSNo(ADOQueryTemp, maxpbno, 'RM', 'Tat_Plan_Mach_Yarn', 4, 1) = False then + raise Exception.Create('ȡˮʧܣ'); + + end + else + begin + maxpbno := Trim(CDS_3.fieldbyname('YRId').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Tat_Plan_Mach_Yarn where '); + sql.Add(' YRId=''' + Trim(maxpbno) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_3.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('MainId').Value := Trim(OrderNo.Text); + FieldByName('OrderNo').Value := Trim(OrderNo.Text); +// FieldByName('SubId').Value := Trim(maxsubno); + FieldByName('YRId').Value := Trim(maxpbno); + FieldByName('PMID').Value := Trim(maxId); + RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_3, 'Tat_Plan_Mach_Yarn', 0); + Post; + end; + + Next; + end; + end; +////////////////////////// ɴϱ ////////////////////////// + ////////////////////////// + + + ADOQueryCmd.Connection.CommitTrans; FPMID := maxId; Result := True; @@ -349,8 +424,7 @@ begin WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, ''); end; -procedure TfrmTatPlanMachInput.Tv3BatchNOPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmTatPlanMachInput.Tv3BatchNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try frmYarnStkSel := TfrmYarnStkSel.Create(Application); @@ -367,7 +441,6 @@ begin FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value; end; - frmYarnStkSel.CDS_Main.EnableControls; end; end; @@ -377,6 +450,43 @@ begin end; +procedure TfrmTatPlanMachInput.v2Column10PropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + try + frmYarnInfoSel := TfrmYarnInfoSel.Create(Application); + with frmYarnInfoSel do + begin + if ShowModal = 1 then + begin + with self.CDS_3 do + begin + Edit; + 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('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('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value; + FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value; + + + Post; + end; + + + end; + end; + finally + frmYarnInfoSel.Free; + end; +end; + procedure TfrmTatPlanMachInput.WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try @@ -387,6 +497,7 @@ begin begin Self.WB_Code.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString; Self.WB_Name.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString; + end; end; @@ -492,6 +603,48 @@ begin end; // Self.WB_Code.Text := ADOQueryTemp.fieldbyname('WB_Code').AsString; // Self.WB_Name.Text := ADOQueryTemp.fieldbyname('WB_Name').AsString; + + + with self.ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' select * from Tat_Plan_Yarn '); + sql.Add(' where YRType=''γ˿'' and MainId=''' + Trim(frmTatPlanSel.CDS_1.fieldbyname('MainId').AsString) + ''''); + sql.Add(' Order by RowNo '); + Open; + end; + + self.CDS_3.EmptyDataSet; + self.ADOQueryCmd.First; + + while not self.ADOQueryCmd.eof do + begin + with self.CDS_3 do + begin + APpend; + FieldByName('RowNo').Value := self.ADOQueryCmd.fieldbyname('RowNo').Value; + + FieldByName('Y_Code').Value := self.ADOQueryCmd.fieldbyname('Y_Code').Value; + FieldByName('Y_Name').Value := self.ADOQueryCmd.fieldbyname('Y_Name').Value; + + FieldByName('Y_Color').Value := self.ADOQueryCmd.fieldbyname('Y_Color').Value; + FieldByName('Y_Composition').Value := self.ADOQueryCmd.fieldbyname('Y_Composition').Value; + + FieldByName('BatchNO').Value := self.ADOQueryCmd.fieldbyname('BatchNO').Value; + + FieldByName('TestDenier').Value := self.ADOQueryCmd.fieldbyname('Denier').Value; + +// FieldByName('FF').Value := self.ADOQueryCmd.fieldbyname('FF').Value; +// FieldByName('ND').Value := self.ADOQueryCmd.fieldbyname('ND').Value; + FieldByName('note').Value := self.ADOQueryCmd.fieldbyname('note').Value; + + Post; + end; + + self.ADOQueryCmd.next; + end; + end; end; diff --git a/E02梭织经轴仓库/U_GetDllForm.pas b/E02梭织经轴仓库/U_GetDllForm.pas index 4ee251d..c55330c 100644 --- a/E02梭织经轴仓库/U_GetDllForm.pas +++ b/E02梭织经轴仓库/U_GetDllForm.pas @@ -1,3 +1,4 @@ + unit U_GetDllForm; interface diff --git a/E02梭织经轴仓库/U_LogInput.pas b/E02梭织经轴仓库/U_LogInput.pas index 7bd4034..3b67125 100644 --- a/E02梭织经轴仓库/U_LogInput.pas +++ b/E02梭织经轴仓库/U_LogInput.pas @@ -64,7 +64,7 @@ type procedure InitGrid(); { Private declarations } public - fWB_Code: string; + fWB_Code,fFlag: string; { Public declarations } end; @@ -96,6 +96,9 @@ procedure TfrmLogInput.InitGrid(); begin try ADOQueryMain.DisableControls; + + + with ADOQueryMain do begin Filtered := False; @@ -103,9 +106,13 @@ begin sql.Clear; sql.Add(' select * from sy_sysLog '); sql.Add(' where Model = ' + QuotedStr(Trim('Ϣ޸'))); - if fWB_Code <> '' then + if fFlag = '޸' then begin SQL.Add(' and 1=2') + end + else if fFlag = '鿴' then + begin + SQL.Add(' and Acction = ' + QuotedStr(Trim(fWB_Code))); end; Open; end; @@ -263,13 +270,13 @@ begin inherited; ReadCxGrid(Self.Caption, Tv1, '־'); InitGrid(); - if fWB_Code = '' then + if fFlag = '鿴' then begin TbAdd.Visible := false; TbDel.Visible := False; TbSave.Visible := false; end - else + else if fFlag = '޸' then begin TBRafresh.Visible := False; TBFind.Visible := False; diff --git a/E02梭织经轴仓库/U_TatWBCardInPut.dfm b/E02梭织经轴仓库/U_TatWBCardInPut.dfm index e1dc59a..a613a6b 100644 --- a/E02梭织经轴仓库/U_TatWBCardInPut.dfm +++ b/E02梭织经轴仓库/U_TatWBCardInPut.dfm @@ -235,16 +235,8 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut List = True ShowCaptions = True TabOrder = 1 - object TBSave: TToolButton - Left = 0 - Top = 0 - AutoSize = True - Caption = #24320#21345 - ImageIndex = 16 - OnClick = TBSaveClick - end object ToolButton1: TToolButton - Left = 71 + Left = 0 Top = 0 AutoSize = True Caption = #25171#21360 @@ -252,13 +244,21 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut OnClick = ToolButton1Click end object ToolButton3: TToolButton - Left = 142 + 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 @@ -1032,7 +1032,6 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Height = 240 Align = alBottom TabOrder = 4 - ExplicitLeft = -1 object TV3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E02梭织经轴仓库/U_TatWBCardInPut2.dfm b/E02梭织经轴仓库/U_TatWBCardInPut2.dfm index e253f35..2e12dfb 100644 --- a/E02梭织经轴仓库/U_TatWBCardInPut2.dfm +++ b/E02梭织经轴仓库/U_TatWBCardInPut2.dfm @@ -34,8 +34,6 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Height = 601 Align = alClient TabOrder = 0 - ExplicitLeft = 6 - ExplicitTop = 174 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -301,7 +299,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Align = alTop TabOrder = 2 ExplicitLeft = 6 - ExplicitTop = 37 + ExplicitTop = 25 object Label2: TLabel Left = 263 Top = 102 @@ -310,7 +308,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Caption = #36724#25968'1' end object Label6: TLabel - Left = 384 + Left = 503 Top = 102 Width = 41 Height = 21 @@ -409,14 +407,14 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Caption = #25972#32463#26426#21495 end object Label31: TLabel - Left = 524 + Left = 643 Top = 102 Width = 41 Height = 21 Caption = #30424#22836'1' end object Label32: TLabel - Left = 661 + Left = 780 Top = 102 Width = 41 Height = 21 @@ -454,6 +452,15 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Caption = #25152#23646'1' Visible = False end + object Label55: TLabel + Left = 387 + Top = 102 + Width = 32 + Height = 21 + Caption = #32452#21495 + Transparent = True + Visible = False + end object WBType1: TcxButtonEdit Tag = 2 Left = 109 @@ -472,7 +479,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 end object WB_YarnLen1: TcxTextEdit Tag = 99 - Left = 429 + Left = 548 Top = 96 ParentColor = True TabOrder = 1 @@ -563,7 +570,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 Top = 48 TabOrder = 9 Height = 37 - Width = 830 + Width = 852 end object WB_ProcessType: TcxComboBox Tag = 2 @@ -629,7 +636,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 end object WBBelong1: TcxComboBox Tag = 2 - Left = 569 + Left = 688 Top = 96 Properties.Items.Strings = ( #26412#21378 @@ -640,7 +647,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 end object WBBelongCoName1: TcxButtonEdit Tag = 2 - Left = 706 + Left = 825 Top = 96 ParentColor = True Properties.Buttons = < @@ -718,6 +725,13 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2 OnDblClick = WBFtyNameDblClick Width = 150 end + object Group: TcxTextEdit + Left = 425 + Top = 96 + TabOrder = 20 + Visible = False + Width = 73 + end end end object Panel1: TPanel diff --git a/E02梭织经轴仓库/U_TatWBCardInPut2.pas b/E02梭织经轴仓库/U_TatWBCardInPut2.pas index 9bdc1d9..cb6afab 100644 --- a/E02梭织经轴仓库/U_TatWBCardInPut2.pas +++ b/E02梭织经轴仓库/U_TatWBCardInPut2.pas @@ -166,6 +166,8 @@ type TV2Group: TcxGridDBColumn; TV2serialNo: TcxGridDBColumn; Timer1: TTimer; + Group: TcxTextEdit; + Label55: TLabel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); procedure N2Click(Sender: TObject); @@ -311,6 +313,16 @@ begin // WB_ClothPiece.Text := '0'; if Trim(WB_Type.Text) = '' then raise Exception.Create('ͲΪգ'); + + if FWB_Type = '' then + begin + if trim(group.Text) = '' then + raise Exception.Create('ŲΪգ'); + end; + + if (Trim(edtCardQty1.Text) = '') or (Trim(edtCardQty1.Text) = '0') then + raise Exception.Create('Ϊջ0'); + Result := True; except Result := false; @@ -321,7 +333,7 @@ end; procedure TfrmTatWBCardInPut2.Timer1Timer(Sender: TObject); begin // 10ʱ䵽ðť - Timer1.Enabled := False; // ʹ Timer1 tmrEnableButton + Timer1.Enabled := False; TBSave.Enabled := True; // ShowMessage('ť'); end; @@ -537,6 +549,13 @@ begin InitCard3(); WB_TYPE.Text := FWB_Type; + + if FWB_Type = '' then + begin + Group.Visible := True; + Label55.Visible := True; + end; + end; procedure TfrmTatWBCardInPut2.GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); @@ -582,7 +601,7 @@ end; procedure TfrmTatWBCardInPut2.TBSaveClick(Sender: TObject); begin - TBSave.Enabled := False; + TBSave.Enabled := False; // ʱ10ðť Timer1.Interval := 10000; // ʹ Timer1 @@ -601,7 +620,7 @@ var MWBCID: string; i, j: integer; fDate: string; - mGroup : Integer; + mGroup: string; begin if MCardQty = 0 then EXIT; @@ -614,17 +633,24 @@ begin end; end; - with ADOQueryCmd do + if FWB_Type = 'ϡ' then begin - Close; - SQL.Clear; - sql.add(' select isnull(max(A.[Group]),0) as maxGroup from Tat_WB_Card A'); - sql.add(' where A.TWPId = ' + Quotedstr(Trim(FTWPId)) ); + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.add(' select isnull(max(A.[Group]),0) as maxGroup from Tat_WB_Card A'); + sql.add(' where A.TWPId = ' + Quotedstr(Trim(FTWPId))); + sql.add(' AND A.WB_Type = ' + Quotedstr(Trim(FWB_Type))); // showMessage(SQL.Text); - Open; + Open; + end; + mGroup := intToStr(ADOQueryCmd.FieldByName('maxGroup').AsInteger + 1); + end + else if FWB_Type = '' then + begin + mGroup := Group.Text; end; - mGroup := ADOQueryCmd.FieldByName('maxGroup').AsInteger + 1; - try ADOQueryCmd.Connection.BeginTrans; @@ -780,7 +806,7 @@ begin end; sql.Add(',' + Trim(IntToStr(i))); - sql.Add(',' + Trim(IntToStr(mGroup)) ); + sql.Add(',' + Trim(mGroup)); sql.Add(' )'); end; @@ -932,10 +958,11 @@ begin edit; FieldByName('Editer').Value := Trim(DName); FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); - RTSetsavedata(ADOQueryCmd, 'Tat_WB_Card', Panel1, 1); +// 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; @@ -943,6 +970,18 @@ begin end; CDS_Card.Next; end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Tat_WB_Plan A where A.TWPId=''' + Trim(FTWPId) + ''''); + Open; + Edit; + RTSetsavedata(ADOQueryCmd, 'Tat_WB_Plan', Panel1, 1); + Post; + end; + Application.MessageBox('޸ijɹ', 'ʾϢ', MB_OK + MB_ICONINFORMATION); CDS_Card.EnableControls; except CDS_Card.EnableControls; diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.dfm b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm index 591acec..a54dc59 100644 --- a/E02梭织经轴仓库/U_TatWBPlanInPut.dfm +++ b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm @@ -392,7 +392,6 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut ParentFont = False TabOrder = 2 OnDblClick = gynoDblClick - ExplicitTop = 41 object Label3: TLabel Left = 756 Top = 14 diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.pas b/E02梭织经轴仓库/U_TatWBPlanInPut.pas index bbde7a2..beb9fb9 100644 --- a/E02梭织经轴仓库/U_TatWBPlanInPut.pas +++ b/E02梭织经轴仓库/U_TatWBPlanInPut.pas @@ -294,6 +294,9 @@ begin 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; diff --git a/E02梭织经轴仓库/U_WBSpecInPut.dfm b/E02梭织经轴仓库/U_WBSpecInPut.dfm index 3b60b85..1b324bb 100644 --- a/E02梭织经轴仓库/U_WBSpecInPut.dfm +++ b/E02梭织经轴仓库/U_WBSpecInPut.dfm @@ -9,15 +9,16 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut 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 = 471 + Top = 519 Width = 1174 - Height = 374 + Height = 326 Align = alClient PopupMenu = PopupMenu1 TabOrder = 0 @@ -114,9 +115,9 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut HeaderAlignmentHorz = taCenter Width = 101 end - object v1SPSpec: TcxGridDBColumn - Caption = #35268#26684 - DataBinding.FieldName = 'Y_Spec' + object Tv1Y_Composition: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'Y_Composition' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter @@ -157,15 +158,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut HeaderAlignmentHorz = taCenter Width = 100 end - object Tv1YarnFactor: TcxGridDBColumn - Caption = #32433#32447#31995#25968 - DataBinding.FieldName = 'YarnFactor' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = Tv1Column8PropertiesEditValueChanged - HeaderAlignmentHorz = taCenter - Width = 80 - end object Tv1Column8: TcxGridDBColumn Caption = #25903#25968 DataBinding.FieldName = 'ZS' @@ -175,6 +167,23 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut HeaderAlignmentHorz = taCenter Width = 100 end + object Tv1FF: TcxGridDBColumn + Caption = #32442#27861 + DataBinding.FieldName = 'FF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1YarnFactor: TcxGridDBColumn + Caption = #32433#32447#31995#25968 + DataBinding.FieldName = 'YarnFactor' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True + Properties.OnEditValueChanged = Tv1Column8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end object v1Column3: TcxGridDBColumn Caption = #26681#25968 DataBinding.FieldName = 'YarnQty' @@ -275,7 +284,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Left = 0 Top = 30 Width = 1174 - Height = 411 + Height = 459 Align = alTop BevelInner = bvNone BevelOuter = bvNone @@ -289,10 +298,9 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut ParentCtl3D = False ParentFont = False TabOrder = 2 - ExplicitTop = 36 object Label3: TLabel Left = 11 - Top = 11 + Top = 17 Width = 96 Height = 21 Caption = #25972#32463#24037#33402#32534#21495 @@ -304,8 +312,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut ParentFont = False end object Label8: TLabel - Left = 568 - Top = 8 + Left = 11 + Top = 58 Width = 64 Height = 21 Caption = #24635#32463#26681#25968 @@ -317,8 +325,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut ParentFont = False end object Label1: TLabel - Left = 287 - Top = 6 + Left = 277 + Top = 17 Width = 96 Height = 21 Caption = #25972#32463#24037#33402#21517#31216 @@ -331,7 +339,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object Label2: TLabel Left = 560 - Top = 312 + Top = 358 Width = 80 Height = 21 Caption = #36793#32433#24635#26681#25968 @@ -344,7 +352,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object Label5: TLabel Left = 11 - Top = 309 + Top = 355 Width = 48 Height = 21 Caption = #36793#32433#25968 @@ -357,7 +365,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object Label10: TLabel Left = 804 - Top = 274 + Top = 316 Width = 32 Height = 21 Caption = #31576#21495 @@ -370,7 +378,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object Label12: TLabel Left = 284 - Top = 274 + Top = 320 Width = 48 Height = 21 Caption = #31576#40831#25968 @@ -382,8 +390,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut ParentFont = False end object Label18: TLabel - Left = 1038 - Top = 125 + Left = 974 + Top = 106 Width = 64 Height = 19 Caption = #26159#21542#19978#27974 @@ -391,7 +399,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object Label19: TLabel Left = 6 - Top = 271 + Top = 317 Width = 64 Height = 21 Caption = #38050#31576#32534#21495 @@ -403,8 +411,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut ParentFont = False end object Label20: TLabel - Left = 806 - Top = 9 + Left = 277 + Top = 59 Width = 64 Height = 21 Caption = #25972#32463#31867#22411 @@ -417,7 +425,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object Label4: TLabel Left = 560 - Top = 274 + Top = 320 Width = 32 Height = 21 Caption = #31576#24133 @@ -430,7 +438,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object Label24: TLabel Left = 284 - Top = 309 + Top = 355 Width = 64 Height = 21 Caption = #22320#31359#20837#27861 @@ -443,7 +451,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object Label29: TLabel Left = 3 - Top = 383 + Top = 429 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 @@ -456,7 +464,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object Label25: TLabel Left = 287 - Top = 348 + Top = 394 Width = 112 Height = 21 Caption = #36793#32433#21333#36793#31576#40831#25968 @@ -469,7 +477,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object Label26: TLabel Left = 6 - Top = 348 + Top = 394 Width = 64 Height = 21 Caption = #36793#31359#20837#27861 @@ -482,7 +490,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object Label27: TLabel Left = 511 - Top = 354 + Top = 400 Width = 32 Height = 19 Caption = #31576#40831 @@ -495,7 +503,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object label28: TLabel Left = 228 - Top = 354 + Top = 400 Width = 54 Height = 19 Caption = #26681'/'#31576#40831 @@ -508,7 +516,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object Label30: TLabel Left = 228 - Top = 315 + Top = 361 Width = 16 Height = 19 Caption = #26681 @@ -521,7 +529,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object Label31: TLabel Left = 511 - Top = 277 + Top = 323 Width = 32 Height = 19 Caption = #31576#40831 @@ -534,7 +542,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object Label32: TLabel Left = 761 - Top = 278 + Top = 320 Width = 6 Height = 19 Caption = #8216#8217 @@ -547,7 +555,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object Label33: TLabel Left = 966 - Top = 277 + Top = 319 Width = 63 Height = 19 Caption = #40831'/2'#33521#23544 @@ -560,7 +568,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object Label34: TLabel Left = 509 - Top = 316 + Top = 362 Width = 54 Height = 19 Caption = #26681'/'#31576#40831 @@ -573,7 +581,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object Label35: TLabel Left = 560 - Top = 348 + Top = 394 Width = 32 Height = 21 Caption = #22791#27880 @@ -584,10 +592,36 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Font.Style = [] ParentFont = False end + object Label36: TLabel + Left = 546 + Top = 17 + Width = 64 + Height = 21 + Caption = #22383#24067#31181#31867 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label37: TLabel + Left = 710 + Top = 17 + Width = 64 + Height = 21 + Caption = #22383#24067#38376#24133 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end object WB_Code: TcxTextEdit Tag = 2 Left = 113 - Top = 5 + Top = 11 Enabled = False ParentColor = True ParentFont = False @@ -602,8 +636,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object WB_YarnQty: TcxTextEdit Tag = 2 - Left = 633 - Top = 5 + Left = 113 + Top = 55 ParentColor = True ParentFont = False Properties.OnEditValueChanged = WB_YarnQtyPropertiesEditValueChanged @@ -619,8 +653,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object WB_Name: TcxTextEdit Tag = 2 - Left = 400 - Top = 5 + Left = 379 + Top = 11 ParentColor = True ParentFont = False Style.Font.Charset = ANSI_CHARSET @@ -635,7 +669,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut object WB_ReedNote: TcxTextEdit Tag = 2 Left = 648 - Top = 309 + Top = 355 ParentColor = True ParentFont = False Style.Font.Charset = ANSI_CHARSET @@ -650,7 +684,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut object BSQTY: TcxTextEdit Tag = 2 Left = 110 - Top = 309 + Top = 355 ParentColor = True ParentFont = False Properties.ReadOnly = True @@ -666,7 +700,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut object WB_ReedNo: TcxTextEdit Tag = 2 Left = 874 - Top = 274 + Top = 316 ParentColor = True ParentFont = False Properties.ReadOnly = True @@ -683,7 +717,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut object C_KCQTY: TcxTextEdit Tag = 2 Left = 397 - Top = 270 + Top = 316 ParentColor = True ParentFont = False Properties.ReadOnly = True @@ -713,7 +747,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut object GKBH: TcxButtonEdit Tag = 2 Left = 110 - Top = 270 + Top = 316 ParentFont = False Properties.Buttons = < item @@ -732,8 +766,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object WB_TYPE: TcxComboBox Tag = 2 - Left = 876 - Top = 5 + Left = 379 + Top = 55 ParentFont = False Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -752,7 +786,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut object WB_Width: TcxTextEdit Tag = 2 Left = 648 - Top = 270 + Top = 316 ParentColor = True ParentFont = False Properties.ReadOnly = True @@ -767,7 +801,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end object cxGroupBox1: TcxGroupBox Left = 3 - Top = 52 + Top = 98 Caption = #20998#26465 ParentFont = False Style.Font.Charset = ANSI_CHARSET @@ -872,8 +906,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end end object cxGroupBox2: TcxGroupBox - Left = 3 - Top = 52 + Left = 0 + Top = 90 Caption = #25972#27974#24182 ParentFont = False Style.Font.Charset = ANSI_CHARSET @@ -1056,7 +1090,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut object DCRQTY: TcxTextEdit Tag = 2 Left = 397 - Top = 309 + Top = 355 ParentColor = True ParentFont = False Properties.OnEditValueChanged = BCRFQtyPropertiesEditValueChanged @@ -1072,7 +1106,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut object WB_YarnKCQty: TcxTextEdit Tag = 2 Left = 403 - Top = 348 + Top = 394 ParentColor = True ParentFont = False Properties.OnEditValueChanged = BCRFQtyPropertiesEditValueChanged @@ -1088,7 +1122,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut object BCRFQty: TcxTextEdit Tag = 2 Left = 110 - Top = 348 + Top = 394 ParentColor = True ParentFont = False Properties.OnEditValueChanged = BCRFQtyPropertiesEditValueChanged @@ -1104,7 +1138,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut object note: TcxTextEdit Tag = 2 Left = 648 - Top = 345 + Top = 391 ParentColor = True ParentFont = False Style.Font.Charset = ANSI_CHARSET @@ -1116,11 +1150,49 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut TabOrder = 16 Width = 373 end + object C_Kind: TcxComboBox + Tag = 2 + Left = 616 + Top = 11 + ParentFont = False + Properties.Items.Strings = ( + '' + #33394#32455#24067 + #30333#22383) + Properties.OnChange = C_KindPropertiesChange + Style.Font.Charset = DEFAULT_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 = 81 + end + object C_Width: TcxTextEdit + Tag = 2 + Left = 780 + Top = 11 + Properties.OnEditValueChanged = C_WidthPropertiesEditValueChanged + TabOrder = 18 + Width = 121 + end + object MFDW: TcxComboBox + Tag = 2 + Left = 907 + Top = 11 + Properties.Items.Strings = ( + #8220 + 'CM') + TabOrder = 19 + Text = #8220 + Width = 51 + end end object ToolBar2: TToolBar [3] Tag = 1 Left = 0 - Top = 441 + Top = 489 Width = 1174 Height = 30 AutoSize = True @@ -1174,6 +1246,9 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut end inherited cxImageList_bar: TcxImageList FormatVersion = 1 + Left = 216 + Top = 241 + DesignInfo = 15794392 end object DS_1: TDataSource DataSet = CDS_Sub @@ -1213,8 +1288,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Top = 584 end object PopupMenu1: TPopupMenu - Left = 536 - Top = 512 + Left = 496 + Top = 464 object N1: TMenuItem Caption = #28165#31354#24403#21069#21015 OnClick = N1Click diff --git a/E02梭织经轴仓库/U_WBSpecInPut.pas b/E02梭织经轴仓库/U_WBSpecInPut.pas index 1929940..b4881c0 100644 --- a/E02梭织经轴仓库/U_WBSpecInPut.pas +++ b/E02梭织经轴仓库/U_WBSpecInPut.pas @@ -31,7 +31,7 @@ type ADOQueryTemp: TADOQuery; GPM_1: TcxGridPopupMenu; v1Column12: TcxGridDBColumn; - v1SPSpec: TcxGridDBColumn; + Tv1Y_Composition: TcxGridDBColumn; v1Column1: TcxGridDBColumn; v1Column18: TcxGridDBColumn; v1Column10: TcxGridDBColumn; @@ -119,6 +119,12 @@ type Label34: TLabel; Label35: TLabel; note: TcxTextEdit; + Tv1FF: TcxGridDBColumn; + C_Kind: TcxComboBox; + Label36: TLabel; + Label37: TLabel; + C_Width: TcxTextEdit; + MFDW: TcxComboBox; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBAddClick(Sender: TObject); procedure TBCloseClick(Sender: TObject); @@ -140,6 +146,9 @@ type procedure N1Click(Sender: TObject); procedure BCRFQtyPropertiesEditValueChanged(Sender: TObject); procedure WB_ReedNoPropertiesEditValueChanged(Sender: TObject); + procedure C_KindPropertiesChange(Sender: TObject); + procedure C_WidthPropertiesEditValueChanged(Sender: TObject); + private { Private declarations } @@ -147,6 +156,8 @@ type procedure JSJS(); //㾭˿ procedure JS(); //㾭˿ + + procedure UpdateWB_Code(); public { Public declarations } FWBSID, FSTKName: string; @@ -409,6 +420,18 @@ end; +procedure TfrmWBSpecInPut.C_KindPropertiesChange(Sender: TObject); +begin + UpdateWB_Code(); + +end; + +procedure TfrmWBSpecInPut.C_WidthPropertiesEditValueChanged(Sender: TObject); +begin + + UpdateWB_Code(); +end; + procedure TfrmWBSpecInPut.FormClose(Sender: TObject; var Action: TCloseAction); begin inherited; @@ -426,15 +449,17 @@ begin begin with Self.CDS_Sub do begin - Append; + Edit; FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').value; 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_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').value; FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').value; - FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').value; +// FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').value; FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').value; + FieldByName('ZS').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').value; + FieldByName('YarnFactor').Value := 0.059; FieldByName('Y_Ratio').Value := 0; end; end; @@ -460,6 +485,7 @@ begin with frmLogInput do begin fWB_Code := Self.WB_Code.Text; + fFlag := '޸'; if ShowModal = 1 then begin @@ -610,6 +636,85 @@ begin Close; end; +procedure TfrmWBSpecInPut.UpdateWB_Code(); +var + mJSDH, mZS, mC_Kind: string; + mC_Code: string; +begin + if FWBSID = '' then + begin + CDS_Sub.First; + while not CDS_Sub.Eof do + begin + if CDS_Sub.FieldByName('Y_Code').AsString <> '' then + begin + mZS := CDS_Sub.FieldByName('ZS').AsString + 'S'; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.add('select * from BS_Yarn_Info_CF where Y_Code = ' + quotedStr(Trim(CDS_Sub.FieldByName('Y_Code').AsString))); + sql.Add(' order By CFID'); + Open; + end; + ADOQueryCmd.First; + while not ADOQueryCmd.Eof do + begin + mJSDH := mJSDH + ADOQueryCmd.FieldByName('DH').AsString; + ADOQueryCmd.Next; + end; + if mC_Code = '' then + begin + mC_Code := mJSDH + '-' + mZS; + end + else + begin + mC_Code := mC_Code + '-' + mJSDH + '-' + mZS; + end; + mJSDH := ''; + + end; + CDS_Sub.Next; + end; + + if C_Width.Text <> '' then + begin + if mC_Code = '' then + begin + mC_Code := C_Width.Text; + end + else + begin + mC_Code := mC_Code + '-' + C_Width.Text; + end; + end; + + if C_Kind.Text <> '' then + begin + if C_Kind.Text = 'ɫ֯' then + begin + mC_Kind := 'A'; + end + else if C_Kind.Text = '' then + begin + mC_Kind := 'B'; + end; + + if mC_Code = '' then + begin + mC_Code := mC_Kind; + end + else + begin + mC_Code := mC_Code + '-' + mC_Kind; + end; + end; + + WB_Name.Text := mC_Code; + end; + +end; + procedure TfrmWBSpecInPut.FormShow(Sender: TObject); var fsj: string; @@ -834,10 +939,10 @@ begin FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').value; 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_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').value; FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').value; - FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').value; +// FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').value; FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').value; FieldByName('ZS').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').value; FieldByName('YarnFactor').Value := 0.059; @@ -851,6 +956,8 @@ begin end; end; + + procedure TfrmWBSpecInPut.Tv1Column8PropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName: string; @@ -904,6 +1011,7 @@ begin Post; end; end; + UpdateWB_Code(); end; procedure TfrmWBSpecInPut.v1Column3PropertiesEditValueChanged(Sender: TObject); diff --git a/E02梭织经轴仓库/U_WBSpecList.dfm b/E02梭织经轴仓库/U_WBSpecList.dfm index 9ea0519..9205cc0 100644 --- a/E02梭织经轴仓库/U_WBSpecList.dfm +++ b/E02梭织经轴仓库/U_WBSpecList.dfm @@ -370,8 +370,8 @@ inherited frmWBSpecList: TfrmWBSpecList Width = 101 end object v1SPSpec: TcxGridDBColumn - Caption = #35268#26684 - DataBinding.FieldName = 'Y_Spec' + Caption = #25104#20998 + DataBinding.FieldName = 'Y_Composition' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter @@ -422,6 +422,20 @@ inherited frmWBSpecList: TfrmWBSpecList Options.Editing = False Width = 100 end + object TV2FF: TcxGridDBColumn + Caption = #32442#27861 + DataBinding.FieldName = 'FF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV2YarnFactor: TcxGridDBColumn + Caption = #32433#32447#31995#25968 + DataBinding.FieldName = 'YarnFactor' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object v1Column3: TcxGridDBColumn Caption = #26681#25968 DataBinding.FieldName = 'YarnQty' @@ -444,7 +458,7 @@ inherited frmWBSpecList: TfrmWBSpecList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 80 + Width = 123 end object TV2Column3: TcxGridDBColumn Caption = #20840#24133#26681#25968 diff --git a/E02梭织经轴仓库/U_WBSpecList.pas b/E02梭织经轴仓库/U_WBSpecList.pas index 78c704d..a60075b 100644 --- a/E02梭织经轴仓库/U_WBSpecList.pas +++ b/E02梭织经轴仓库/U_WBSpecList.pas @@ -77,6 +77,8 @@ type TV2Column5: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn; ToolButton3: TToolButton; + TV2FF: TcxGridDBColumn; + TV2YarnFactor: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -183,7 +185,8 @@ begin frmLogInput := TfrmLogInput.Create(Application); with frmLogInput do begin - fWB_Code := ''; + fWB_Code := CDS_Main.FieldByName('WB_Code').AsString; + fFlag := '鿴'; if ShowModal = 1 then begin diff --git a/E02梭织经轴仓库/WarpBeamStk.dproj.local b/E02梭织经轴仓库/WarpBeamStk.dproj.local index d764481..c9759cd 100644 --- a/E02梭织经轴仓库/WarpBeamStk.dproj.local +++ b/E02梭织经轴仓库/WarpBeamStk.dproj.local @@ -139,24 +139,24 @@ - 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\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.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas - 1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.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.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas - 1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas 1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas - 1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm 1899/12/30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas - 1899/12/30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm + 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.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.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.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 diff --git a/E02梭织经轴仓库/WarpBeamStk.identcache b/E02梭织经轴仓库/WarpBeamStk.identcache index 4b6af96b73f93212428233a8db3c885ab15c2097..3ef6b37317c2990448e336c02a628257cdefe10e 100644 GIT binary patch delta 129 zcmdm{w@q)trOAA}Jd+c6Bqs+kici)Ni=6BwsJOX{QJi;Toblv*E{@3wqEeH2n0+?C z<%?yS?9C}ZiA!bjRuQSqUV<%*lld6sCoAyFOnj#>xmWn< + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas 1899/12/30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.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.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas + 1899/12/30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.pas - 1899/12/30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899/12/30 00:00:00.000.514,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899/12/30 00:00:00.000.935,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas= 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm - 1899/12/30 00:00:00.000.493,=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.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj + 1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm + 1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm 1899/12/30 00:00:00.000.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas - 1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas - 1899/12/30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas + 1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.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.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899/12/30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.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.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas - 1899/12/30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj - 1899/12/30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas - 1899/12/30 00:00:00.000.897,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.dfm - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj - 1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas + 1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas + 1899/12/30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj + 1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.dfm 1899/12/30 00:00:00.000.630,=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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.897,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.pas + 1899/12/30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.pas diff --git a/E03梭织坯布检验/TatInsp.identcache b/E03梭织坯布检验/TatInsp.identcache index 2dbcb93773fb6247a7f97d3d8e8c879307257ef0..900ed84d92befd32d2dbd0c526aee05ea88d26fd 100644 GIT binary patch delta 40 vcmey(|C@iq8OF(b*p)UrGZnD_8TOMCm^3H%vx-gr!ggZvJ!b34>`YPsP~i_E delta 40 vcmey(|C@iq8OF)-ESi(gv+GPwU{l)sj - 1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj - 1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj + 1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj + 1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj diff --git a/E03梭织坯布检验/U_GetDllForm.pas b/E03梭织坯布检验/U_GetDllForm.pas index d41b71e..c790b79 100644 --- a/E03梭织坯布检验/U_GetDllForm.pas +++ b/E03梭织坯布检验/U_GetDllForm.pas @@ -72,7 +72,7 @@ begin if trim(DataBaseStr) = '' then begin server := '150.109.121.232,7781'; - dtbase := 'YSKaiXiYadata'; + dtbase := 'KaiXiYadata'; user := 'kaixiyasa'; pswd := 'rightsoft,.KXY@YN'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; diff --git a/E03梭织坯布检验/U_TatClothInspList.dfm b/E03梭织坯布检验/U_TatClothInspList.dfm index 67b98c0..124d4cc 100644 --- a/E03梭织坯布检验/U_TatClothInspList.dfm +++ b/E03梭织坯布检验/U_TatClothInspList.dfm @@ -2,14 +2,14 @@ inherited frmTatClothInspList: TfrmTatClothInspList Left = 160 Top = 87 Caption = #26816#39564#25253#21578 - ClientHeight = 582 + ClientHeight = 650 ClientWidth = 1472 Font.Height = -16 FormStyle = fsMDIChild Position = poScreenCenter Visible = True ExplicitWidth = 1488 - ExplicitHeight = 621 + ExplicitHeight = 689 PixelsPerInch = 96 TextHeight = 21 object Panel6: TPanel [0] @@ -20,7 +20,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList Align = alTop AutoSize = True BorderStyle = bsSingle - TabOrder = 3 + TabOrder = 2 DesignSize = ( 1468 24) @@ -113,333 +113,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList '10000') end end - object cxGrid1: TcxGrid [1] - Left = 0 - Top = 175 - Width = 1472 - Height = 407 - Align = alClient - BorderStyle = cxcbsNone - PopupMenu = PM_1 - TabOrder = 2 - ExplicitTop = 173 - object Tv1: TcxGridDBTableView - OnMouseUp = Tv1MouseUp - Navigator.Buttons.CustomButtons = <> - ScrollbarAnnotations.CustomAnnotations = <> - OnCellDblClick = Tv1CellDblClick - DataController.DataSource = DS_1 - DataController.Filter.AutoDataSetFilter = True - DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] - DataController.Summary.DefaultGroupSummaryItems = <> - DataController.Summary.FooterSummaryItems = < - item - Kind = skSum - Column = v1Column8 - end - item - Kind = skSum - Column = v1Column9 - end - item - Kind = skCount - Column = v1Column6 - end - item - Kind = skSum - Column = v1Column10 - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = v1Column27 - end - item - Kind = skSum - Column = v1Column28 - end - item - Kind = skSum - Column = v1Column14 - end - item - Format = #26816#39564#31995#25968'=#.##' - Kind = skAverage - end - item - Format = #25442#31639#31995#25968'=#.##' - Kind = skAverage - Column = v1MKXS - end - item - Kind = skCount - Column = v1Column23 - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end> - DataController.Summary.SummaryGroups = <> - OptionsCustomize.ColumnFiltering = False - OptionsView.Footer = True - OptionsView.GroupByBox = False - OptionsView.IndicatorWidth = 30 - OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell - object v1Column22: TcxGridDBColumn - Caption = #36873#20013 - DataBinding.FieldName = 'SSel' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' - Properties.ImmediatePost = True - Properties.NullStyle = nssUnchecked - HeaderAlignmentHorz = taCenter - Options.Sorting = False - Width = 66 - end - object v1Column21: TcxGridDBColumn - Caption = #25171#30721#26102#38388 - DataBinding.FieldName = 'FillTime' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 99 - end - object v1Column32: TcxGridDBColumn - Caption = #21512#21516#21495 - DataBinding.FieldName = 'conNO' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 109 - end - object v1Column1: TcxGridDBColumn - Caption = #32455#36896#21333#21495 - DataBinding.FieldName = 'OrderNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 120 - end - object Tv1Column4: TcxGridDBColumn - Caption = #20135#21697#32534#21495 - DataBinding.FieldName = 'C_Code' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 140 - end - object v1Column13: TcxGridDBColumn - Caption = #20135#21697#21517#31216 - DataBinding.FieldName = 'C_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 114 - end - object v1Column3: TcxGridDBColumn - Caption = #38376#24133 - DataBinding.FieldName = 'C_Width' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column5: TcxGridDBColumn - Caption = #20811#37325 - DataBinding.FieldName = 'C_GramWeight' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column4: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'C_Color' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column9: TcxGridDBColumn - Caption = #30133#28857#25968#37327 - DataBinding.FieldName = 'CDQty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 96 - end - object v1Column7: TcxGridDBColumn - Caption = #30133#28857#24773#20917 - DataBinding.FieldName = 'FlawList' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 115 - end - object v1Column17: TcxGridDBColumn - Caption = #29366#24577 - DataBinding.FieldName = 'CIIOFlag' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column18: TcxGridDBColumn - Caption = #24067#31080#21495 - DataBinding.FieldName = 'PCId' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column23: TcxGridDBColumn - Caption = #21367#21495 - DataBinding.FieldName = 'PieceNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column8: TcxGridDBColumn - Caption = #27611#37325 - DataBinding.FieldName = 'GrossWeight' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column27: TcxGridDBColumn - Caption = #30382#37325 - DataBinding.FieldName = 'Tare' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column28: TcxGridDBColumn - Caption = #20928#37325 - DataBinding.FieldName = 'NetWeight' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column10: TcxGridDBColumn - Caption = #31859#25968 - DataBinding.FieldName = 'Meter' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column10: TcxGridDBColumn - Caption = #30721#25968 - DataBinding.FieldName = 'Yardage' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column20: TcxGridDBColumn - Caption = #25171#30721#20154 - DataBinding.FieldName = 'Filler' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column14: TcxGridDBColumn - Caption = #25187#20998 - DataBinding.FieldName = 'KouFenQty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - VisibleForCustomization = False - Width = 66 - end - object v1Column12: TcxGridDBColumn - Caption = #21697#36136 - DataBinding.FieldName = 'Grade' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column42: TcxGridDBColumn - Caption = #24635#35760#24405#25968 - DataBinding.FieldName = 'TotalCount' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object v1Column6: TcxGridDBColumn - Caption = #21367#26465#30721 - DataBinding.FieldName = 'CIID' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1MKXS: TcxGridDBColumn - Caption = #25442#31639#31995#25968 - DataBinding.FieldName = 'Coefficient' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 103 - end - object v1Column46: TcxGridDBColumn - Caption = #26816#39564#26426#21488 - DataBinding.FieldName = 'CIMachNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 117 - end - object Tv1Column12: TcxGridDBColumn - Caption = #26426#21488#21495 - DataBinding.FieldName = 'Loom' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv1Column14: TcxGridDBColumn - Caption = #24067#21305#25209#21495 - DataBinding.FieldName = 'BatchNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - object Tv1Column15: TcxGridDBColumn - Caption = #32463#19997#25209#21495 - DataBinding.FieldName = 'YarnBatchNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 100 - end - end - object cxGrid1Level1: TcxGridLevel - GridView = Tv1 - end - end - object ToolBar1: TToolBar [2] + object ToolBar1: TToolBar [1] Tag = 1 Left = 0 Top = 0 @@ -460,7 +134,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList ParentColor = False ParentFont = False ShowCaptions = True - TabOrder = 5 + TabOrder = 4 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -526,7 +200,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList OnClick = TBCloseClick end end - object MovePanel2: TMovePanel [3] + object MovePanel2: TMovePanel [2] Left = 592 Top = 216 Width = 289 @@ -540,10 +214,10 @@ inherited frmTatClothInspList: TfrmTatClothInspList Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 6 + TabOrder = 5 Visible = False end - object Panel1: TPanel [4] + object Panel1: TPanel [3] Left = 0 Top = 38 Width = 1472 @@ -553,7 +227,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList BevelOuter = bvLowered Color = clWhite ParentBackground = False - TabOrder = 4 + TabOrder = 3 object Label3: TLabel Left = 219 Top = 14 @@ -565,13 +239,13 @@ inherited frmTatClothInspList: TfrmTatClothInspList object TLabel Left = 451 Top = 14 - Width = 48 + Width = 80 Height = 21 Hint = '0' - Caption = #21512#21516#21495 + Caption = #22383#24067#21512#21516#21495 end object Label7: TLabel - Left = 680 + Left = 696 Top = 14 Width = 32 Height = 21 @@ -586,21 +260,13 @@ inherited frmTatClothInspList: TfrmTatClothInspList Hint = '1' Caption = #25171#30721#20154 end - object Label10: TLabel - Left = 882 - Top = 46 - Width = 48 - Height = 21 - Hint = '1' - Caption = #21367#26465#30721 - end object Label4: TLabel - Left = 680 + Left = 696 Top = 77 Width = 32 Height = 21 Hint = '1' - Caption = #21697#36136 + Caption = #31561#32423 end object Label5: TLabel Left = 451 @@ -618,14 +284,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList Hint = '1' Caption = #29366#24577 end - object Label20: TLabel - Left = 680 - Top = 46 - Width = 32 - Height = 21 - Hint = '0' - Caption = #33457#22411 - end object Label23: TLabel Left = 219 Top = 46 @@ -635,7 +293,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList Caption = #22383#24067#32534#21495 end object Label1: TLabel - Left = 882 + Left = 910 Top = 14 Width = 48 Height = 21 @@ -643,8 +301,8 @@ inherited frmTatClothInspList: TfrmTatClothInspList Caption = #24067#31080#21495 end object Label2: TLabel - Left = 882 - Top = 78 + Left = 696 + Top = 46 Width = 48 Height = 21 Hint = '1' @@ -668,7 +326,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList Date = 44774.000000000000000000 Format = 'yyyy-MM-dd' Time = 0.464761099538009100 - TabOrder = 6 + TabOrder = 5 end object OrderNo: TEdit Tag = 2 @@ -682,33 +340,23 @@ inherited frmTatClothInspList: TfrmTatClothInspList end object conNO: TEdit Tag = 2 - Left = 518 + Left = 534 Top = 10 Width = 150 Height = 29 Hint = '0' - TabOrder = 7 + TabOrder = 6 OnKeyPress = conNOKeyPress end - object CIID: TEdit - Tag = 2 - Left = 932 - Top = 42 - Width = 150 - Height = 29 - Hint = '1' - TabOrder = 3 - OnKeyPress = KHConNOKeyPress - end object Grade: TComboBox Tag = 2 - Left = 718 + Left = 746 Top = 73 Width = 150 Height = 29 Hint = '1' Style = csDropDownList - TabOrder = 10 + TabOrder = 9 OnChange = GradeChange OnKeyPress = KHConNOKeyPress Items.Strings = ( @@ -720,7 +368,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList end object C_Name: TEdit Tag = 2 - Left = 518 + Left = 534 Top = 42 Width = 150 Height = 29 @@ -736,7 +384,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList Height = 29 Hint = '1' Style = csDropDownList - TabOrder = 9 + TabOrder = 8 OnChange = CIIOFlagChange OnKeyPress = KHConNOKeyPress Items.Strings = ( @@ -747,23 +395,23 @@ inherited frmTatClothInspList: TfrmTatClothInspList end object Filler: TComboBox Tag = 2 - Left = 518 + Left = 534 Top = 73 Width = 150 Height = 29 Hint = '1' Style = csDropDownList - TabOrder = 4 + TabOrder = 3 OnKeyPress = KHConNOKeyPress end object C_Color: TEdit Tag = 2 - Left = 718 + Left = 746 Top = 10 Width = 150 Height = 29 Hint = '0' - TabOrder = 8 + TabOrder = 7 OnKeyPress = conNOKeyPress end object IsJYTime: TCheckBox @@ -774,17 +422,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList Caption = #26816#39564#26085#26399 Checked = True State = cbChecked - TabOrder = 5 - end - object C_Pattern: TEdit - Tag = 2 - Left = 718 - Top = 42 - Width = 150 - Height = 29 - Hint = '0' - TabOrder = 11 - OnKeyPress = KHConNOKeyPress + TabOrder = 4 end object C_Code: TEdit Tag = 2 @@ -793,27 +431,27 @@ inherited frmTatClothInspList: TfrmTatClothInspList Width = 150 Height = 29 Hint = '0' - TabOrder = 12 + TabOrder = 10 OnKeyPress = KHConNOKeyPress end object PCId: TEdit Tag = 2 - Left = 932 + Left = 960 Top = 10 Width = 150 Height = 29 Hint = '0' - TabOrder = 13 + TabOrder = 11 OnKeyPress = KHConNOKeyPress end object Loom: TEdit Tag = 2 - Left = 932 - Top = 74 + Left = 746 + Top = 42 Width = 150 Height = 29 Hint = '1' - TabOrder = 14 + TabOrder = 12 OnKeyPress = KHConNOKeyPress end end @@ -830,6 +468,311 @@ inherited frmTatClothInspList: TfrmTatClothInspList ExplicitTop = 297 ExplicitHeight = 29 end + object Panel2: TPanel [6] + Left = 0 + Top = 175 + Width = 1472 + Height = 475 + Align = alClient + TabOrder = 6 + ExplicitLeft = 400 + ExplicitTop = 440 + ExplicitWidth = 185 + ExplicitHeight = 41 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 1470 + Height = 312 + Align = alTop + BorderStyle = cxcbsNone + PopupMenu = PM_1 + TabOrder = 0 + ExplicitTop = 2 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnCellDblClick = Tv1CellDblClick + OnFocusedRecordChanged = Tv1FocusedRecordChanged + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + end + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skCount + Column = v1Column23 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell + object v1Column22: TcxGridDBColumn + Caption = #36873#20013 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object v1Column21: TcxGridDBColumn + Caption = #25171#30721#26102#38388 + DataBinding.FieldName = 'FillTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object v1Column32: TcxGridDBColumn + Caption = #22383#24067#21512#21516#21495 + DataBinding.FieldName = 'conNO' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object v1Column1: TcxGridDBColumn + Caption = #32455#36896#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object Tv1Column4: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 140 + end + object v1Column13: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 114 + end + object v1Column3: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column5: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1PacketNo: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'PacketNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column23: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'PieceNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column10: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'Meter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column12: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'Grade' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column17: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'CIIOFlag' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column12: TcxGridDBColumn + Caption = #26426#21488#21495 + DataBinding.FieldName = 'Loom' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end + object v1Column18: TcxGridDBColumn + Caption = #24067#31080#21495 + DataBinding.FieldName = 'PCId' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column20: TcxGridDBColumn + Caption = #25171#30721#20154 + DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object cxGrid2: TcxGrid + Left = 1 + Top = 313 + Width = 1470 + Height = 161 + Align = alClient + TabOrder = 1 + ExplicitLeft = 2 + ExplicitTop = 319 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsView.GroupByBox = False + object Tv2FillTime: TcxGridDBColumn + Caption = #39564#24067#26102#38388 + DataBinding.FieldName = 'FillTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 106 + end + object Tv2Inspector: TcxGridDBColumn + Caption = #39564#24067#20154 + DataBinding.FieldName = 'Inspector' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv2Qty: TcxGridDBColumn + Caption = #39564#24067#25968#37327 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv2Score: TcxGridDBColumn + Caption = #25187#20998 + DataBinding.FieldName = 'Score' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv2IsQualified: TcxGridDBColumn + Caption = #26159#21542#21512#26684 + DataBinding.FieldName = 'IsQualified' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv2IsCut: TcxGridDBColumn + Caption = #26159#21542#24320#21305 + DataBinding.FieldName = 'IsCut' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv2Note: TcxGridDBColumn + Caption = #21407#22240 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGrid2Level1: TcxGridLevel + GridView = Tv2 + end + end + end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_TatInsp.ADOLink Left = 201 @@ -841,7 +784,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList Top = 225 end object GPM_1: TcxGridPopupMenu - Grid = cxGrid1 PopupMenus = <> Left = 532 Top = 320 @@ -894,22 +836,22 @@ inherited frmTatClothInspList: TfrmTatClothInspList CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False - Left = 708 - Top = 392 + Left = 836 + Top = 224 ReportData = {} end object RMDB_1: TRMDBDataSet Visible = True DataSet = ADOQueryPrint - Left = 644 - Top = 392 + Left = 780 + Top = 224 end object ADOQueryPrint: TADOQuery Connection = DataLink_TatInsp.ADOLink LockType = ltReadOnly Parameters = <> - Left = 568 - Top = 384 + Left = 704 + Top = 224 end object PM_1: TPopupMenu Left = 748 @@ -919,4 +861,21 @@ inherited frmTatClothInspList: TfrmTatClothInspList OnClick = N1Click end end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 360 + Top = 495 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 440 + Top = 511 + end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 560 + Top = 495 + end end diff --git a/E03梭织坯布检验/U_TatClothInspList.pas b/E03梭织坯布检验/U_TatClothInspList.pas index 7e6a247..47eaada 100644 --- a/E03梭织坯布检验/U_TatClothInspList.pas +++ b/E03梭织坯布检验/U_TatClothInspList.pas @@ -39,6 +39,36 @@ type ToolButton1: TToolButton; PM_1: TPopupMenu; N1: TMenuItem; + Panel6: TPanel; + Label31: TLabel; + LBCPAP: TLabel; + BTLP: TButton; + BTNP: TButton; + TCBNOR: TComboBox; + Panel1: TPanel; + Label3: TLabel; + Label7: TLabel; + Label8: TLabel; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + Label23: TLabel; + Label1: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNo: TEdit; + conNO: TEdit; + Grade: TComboBox; + C_Name: TEdit; + CIIOFlag: TComboBox; + Filler: TComboBox; + C_Color: TEdit; + IsJYTime: TCheckBox; + C_Code: TEdit; + PCId: TEdit; + Label2: TLabel; + Loom: TEdit; + Panel2: TPanel; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; v1Column22: TcxGridDBColumn; @@ -47,63 +77,31 @@ type v1Column1: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn; v1Column13: TcxGridDBColumn; - v1Column4: TcxGridDBColumn; - v1Column7: TcxGridDBColumn; - v1Column17: TcxGridDBColumn; - v1Column18: TcxGridDBColumn; - v1Column23: TcxGridDBColumn; - v1Column8: TcxGridDBColumn; - v1Column27: TcxGridDBColumn; - v1Column28: TcxGridDBColumn; - v1Column10: TcxGridDBColumn; - v1Column20: TcxGridDBColumn; - v1Column14: TcxGridDBColumn; - v1Column12: TcxGridDBColumn; - v1Column9: TcxGridDBColumn; - v1Column42: TcxGridDBColumn; - v1Column6: TcxGridDBColumn; v1Column3: TcxGridDBColumn; v1Column5: TcxGridDBColumn; - v1MKXS: TcxGridDBColumn; - v1Column46: TcxGridDBColumn; - cxGrid1Level1: TcxGridLevel; - Panel6: TPanel; - Label31: TLabel; - LBCPAP: TLabel; - BTLP: TButton; - BTNP: TButton; - TCBNOR: TComboBox; - Tv1Column10: TcxGridDBColumn; - Panel1: TPanel; - Label3: TLabel; - Label7: TLabel; - Label8: TLabel; - Label10: TLabel; - Label4: TLabel; - Label5: TLabel; - Label6: TLabel; - Label20: TLabel; - Label23: TLabel; - Label1: TLabel; - BegDate: TDateTimePicker; - EndDate: TDateTimePicker; - OrderNo: TEdit; - conNO: TEdit; - CIID: TEdit; - Grade: TComboBox; - C_Name: TEdit; - CIIOFlag: TComboBox; - Filler: TComboBox; - C_Color: TEdit; - IsJYTime: TCheckBox; - C_Pattern: TEdit; - C_Code: TEdit; - PCId: TEdit; + v1Column4: TcxGridDBColumn; + Tv1PacketNo: TcxGridDBColumn; + v1Column23: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn; - Label2: TLabel; - Loom: TEdit; - Tv1Column14: TcxGridDBColumn; - Tv1Column15: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column20: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Tv2: TcxGridDBTableView; + cxGrid2Level1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2FillTime: TcxGridDBColumn; + Tv2Inspector: TcxGridDBColumn; + Tv2Qty: TcxGridDBColumn; + Tv2Score: TcxGridDBColumn; + Tv2IsQualified: TcxGridDBColumn; + Tv2IsCut: TcxGridDBColumn; + Tv2Note: TcxGridDBColumn; + CDS_2: TClientDataSet; + DS_2: TDataSource; + GPM_2: TcxGridPopupMenu; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBCloseClick(Sender: TObject); @@ -130,6 +128,9 @@ type procedure TBExportClick(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure N1Click(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; + APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; + ANewItemRecordFocusingChanged: Boolean); private DQdate: TDateTime; FLeft, FTop: Integer; @@ -138,6 +139,7 @@ type function Savedata(): Boolean; procedure SetStatus(); procedure PrintCKMDG(MRKOrdID: string); + procedure InitSubGrid(); { Private declarations } public FFInt: Integer; @@ -176,7 +178,7 @@ end; procedure TfrmTatClothInspList.FormCreate(Sender: TObject); begin inherited; - cxgrid1.Align := alClient; +// cxgrid1.Align := alClient; DQdate := SGetServerDate(ADOQueryTemp); FWorkshop := trim(Self.fParameters3); end; @@ -255,6 +257,30 @@ begin end; end; +procedure TfrmTatClothInspList.InitSubGrid(); +begin + try + ADOQueryTemp.DisableControls; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Tat_Cloth_DeskInspect '); + sql.Add('where PCID = ' + QuotedStr(Trim( Order_Main.FieldByName('PCID').AsString ))); + + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_2); + SInitCDSData(ADOQueryTemp, CDS_2); + + finally + ADOQueryTemp.EnableControls; + + end; +end; + + procedure TfrmTatClothInspList.TBRafreshClick(Sender: TObject); begin OrderNo.SetFocus; @@ -674,5 +700,13 @@ begin end; end; +procedure TfrmTatClothInspList.Tv1FocusedRecordChanged( + Sender: TcxCustomGridTableView; APrevFocusedRecord, + AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + initSubGrid(); + +end; + end. diff --git a/E04梭织坯布仓库/TatClothStk.dproj.local b/E04梭织坯布仓库/TatClothStk.dproj.local index 6d4fd6a..48bcc47 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj.local +++ b/E04梭织坯布仓库/TatClothStk.dproj.local @@ -1,95 +1,95 @@  - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm - 1899-12-30 00:00:00.000.181,=D:\Dp10Repo\项目代码\路尚\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.456,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899-12-30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_TatClothInfoInput.pas - 1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas - 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas= - 1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm - 1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm - 1899-12-30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.pas - 1899-12-30 00:00:00.000.559,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList_ZDDY.pas - 1899-12-30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj - 1899-12-30 00:00:00.000.025,D:\Dp10RepoV1\项目代码\花蝴蝶\B03基础物料仓库\U_ProductInfoInPut.pas= - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899-12-30 00:00:00.000.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.627,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.390,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas - 1899-12-30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas - 1899-12-30 00:00:00.000.280,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRSel.pas - 1899-12-30 00:00:00.000.338,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_WBSpecSel.pas - 1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.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.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm - 1899-12-30 00:00:00.000.862,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsinput.pas - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm - 1899-12-30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas - 1899-12-30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas - 1899-12-30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas= - 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.dfm - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas= - 1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas - 1899-12-30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas - 1899-12-30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.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.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas - 1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas= - 1899-12-30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas - 1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.526,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas - 1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\路尚\B03基础物料仓库\U_ProductInfoInPut.pas - 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas= - 1899-12-30 00:00:00.000.326,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas - 1899-12-30 00:00:00.000.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.754,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas= - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\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.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.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj - 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.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm - 1899-12-30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas= - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 2025-07-03 14:12:23.000.877,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList.pas - 2025-07-12 10:29:31.000.435,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas - 2025-07-12 10:34:14.000.410,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas= - 2025-07-12 10:51:18.000.202,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas - 2025-07-12 10:53:24.000.590,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas= - 2025-07-12 10:53:58.000.993,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.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.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.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.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.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.862,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsinput.pas + 1899/12/30 00:00:00.000.877,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList.pas + 1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas= + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas + 1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas + 1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas= + 1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas + 1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\路尚\B03基础物料仓库\U_ProductInfoInPut.pas + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas= + 1899/12/30 00:00:00.000.526,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas + 1899/12/30 00:00:00.000.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.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.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.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.410,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas= diff --git a/E04梭织坯布仓库/TatClothStk.identcache b/E04梭织坯布仓库/TatClothStk.identcache index 21ef5dc4dae3648691facf99f09a018e71b08e59..0c8550efb023aead6268c9b09f85e114082d3137 100644 GIT binary patch delta 104 zcmdlgwN+|E1@q*;oY9j#S(GNvVvd-c#v?tMhtqoVC*~teKncys|9K=P+pw>jn4vlO z0khENcn)U9$+aAclesx0Cs%MsP2R@lx;cVNff1~@o6~4whT~*mpq{;)4wDtwtS9f` GsRRJE-6Ssn delta 104 zcmV-u0GI!@8nqg*cmtFA1R|6516Z@81jGW9C<;ZBjSDN0FBX%i2d @@ -193,27 +192,19 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel Width = 100 end object TV1Column1: TcxGridDBColumn - Caption = #21512#21516#21495 + Caption = #22383#24067#21512#21516#21495 DataBinding.FieldName = 'ConNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 70 + Width = 99 end object TV1Column6: TcxGridDBColumn - Caption = #23458#25143#21333#21495 + Caption = #38754#26009#21512#21516#21495 DataBinding.FieldName = 'BuyConNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 70 - end - object TV1Column5: TcxGridDBColumn - Caption = #32463#33829#21333#20301 - DataBinding.FieldName = 'SellName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 70 + Width = 96 end object TV1Column3: TcxGridDBColumn Caption = #23458#25143 @@ -223,22 +214,6 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel Options.Editing = False Width = 70 end - object TV1Column9: TcxGridDBColumn - Caption = #19994#21153#21592 - DataBinding.FieldName = 'Saleser' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object TV1Column4: TcxGridDBColumn - Caption = #20013#38388#21830 - DataBinding.FieldName = 'MiddleName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 70 - end object TV1Column2: TcxGridDBColumn Caption = #20132#36135#26085#26399 DataBinding.FieldName = 'DlyDate' @@ -270,14 +245,6 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel Options.Editing = False Width = 70 end - object TV1Column10: TcxGridDBColumn - Caption = #29256#26412#32534#21495 - DataBinding.FieldName = 'BBNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end object v1Column5: TcxGridDBColumn Caption = #35268#26684 DataBinding.FieldName = 'C_Spec' @@ -348,7 +315,7 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel Width = 70 end object v1Column7: TcxGridDBColumn - Caption = #20811#37325 + Caption = #22383#24067#20811#37325 DataBinding.FieldName = 'C_GramWeight' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' diff --git a/T00贸易通用窗体/U_TradeSalesContractSel.pas b/T00贸易通用窗体/U_TradeSalesContractSel.pas index a8558d0..ec106b2 100644 --- a/T00贸易通用窗体/U_TradeSalesContractSel.pas +++ b/T00贸易通用窗体/U_TradeSalesContractSel.pas @@ -52,8 +52,6 @@ type TV1Column1: TcxGridDBColumn; TV1Column2: TcxGridDBColumn; TV1Column3: TcxGridDBColumn; - TV1Column4: TcxGridDBColumn; - TV1Column5: TcxGridDBColumn; TV1Column6: TcxGridDBColumn; ThreeColorBase: TcxStyleRepository; SHuangSe: TcxStyle; @@ -77,8 +75,6 @@ type C_Name: TEdit; Label3: TLabel; BuyName: TEdit; - TV1Column9: TcxGridDBColumn; - TV1Column10: TcxGridDBColumn; TV1Column13: TcxGridDBColumn; cxTabControl1: TcxTabControl; procedure FormCreate(Sender: TObject);