diff --git a/B01基础合同管理/Contract.dpr b/B01基础合同管理/Contract.dpr index 2487b01..2fec5ca 100644 --- a/B01基础合同管理/Contract.dpr +++ b/B01基础合同管理/Contract.dpr @@ -37,7 +37,8 @@ uses U_PictureUpload in '..\A00ͨô\U_PictureUpload.pas' {frmPictureUpload}, FrameDateSel in '..\A00ͨ\FrameDateSel.pas' {frmFrameDateSel: TFrame}, uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', - U_BankSel in '..\A00ͨô\U_BankSel.pas' {frmBankSel}; + U_BankSel in '..\A00ͨô\U_BankSel.pas' {frmBankSel}, + U_finishSalesConInput in 'U_finishSalesConInput.pas' {frmfinishSalesConInput}; {$R *.res} diff --git a/B01基础合同管理/Contract.dproj b/B01基础合同管理/Contract.dproj index 1df65e1..cd01174 100644 --- a/B01基础合同管理/Contract.dproj +++ b/B01基础合同管理/Contract.dproj @@ -182,6 +182,10 @@
frmBankSel
dfm + +
frmfinishSalesConInput
+ dfm + Cfg_2 Base diff --git a/B01基础合同管理/Contract.dproj.local b/B01基础合同管理/Contract.dproj.local index 6006c2a..54d0887 100644 --- a/B01基础合同管理/Contract.dproj.local +++ b/B01基础合同管理/Contract.dproj.local @@ -1,85 +1,86 @@  - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas= - 1899-12-30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas - 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas - 1899-12-30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas= - 1899-12-30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas - 1899-12-30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas - 1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas - 1899-12-30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.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.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.444,=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.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.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.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.242,=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.520,=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.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.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.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm - 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.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm - 1899-12-30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= - 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.556,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.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.325,=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.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm - 1899-12-30 00:00:00.000.950,=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.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.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.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas= + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas + 1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas + 1899/12/30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas= + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm + 1899/12/30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas + 1899/12/30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas= + 1899/12/30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas + 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899/12/30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas + 1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899/12/30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas + 1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm + 1899/12/30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899/12/30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas= + 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas + 1899/12/30 00:00:00.000.519,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.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas + 1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.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.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.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.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.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas= + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 2025/08/12 14:52:54.247,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\U_finishSalesConInput.pas @@ -144,5 +145,7 @@ + + diff --git a/B01基础合同管理/Contract.identcache b/B01基础合同管理/Contract.identcache index 98955cf..c37efe0 100644 Binary files a/B01基础合同管理/Contract.identcache and b/B01基础合同管理/Contract.identcache differ diff --git a/B01基础合同管理/U_GetDllForm.pas b/B01基础合同管理/U_GetDllForm.pas index 7509c69..a1e00e4 100644 --- a/B01基础合同管理/U_GetDllForm.pas +++ b/B01基础合同管理/U_GetDllForm.pas @@ -16,7 +16,7 @@ implementation uses U_DataLink, U_iniParam, U_SalesContractList, U_PurchaseContractList, - U_SalesContractList_XT; + U_SalesContractList_XT,U_finishSalesContractList; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -136,6 +136,18 @@ begin end; end; + 112: //Ʒۺͬ + begin + with TfrmfinishSalesContractList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // + begin + fFormID := FormID; + FormStyle := mstyle; + WindowState := mstate; + BorderStyle := mborderstyle; + mnewHandle := Handle; + end; + end; + // 112: // // begin // with TfrmSalesContractList_XT.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // diff --git a/B01基础合同管理/U_SalesConInPut.pas b/B01基础合同管理/U_SalesConInPut.pas index c997ab1..50b040c 100644 --- a/B01基础合同管理/U_SalesConInPut.pas +++ b/B01基础合同管理/U_SalesConInPut.pas @@ -14,23 +14,8 @@ uses dxDateRanges, dxBarBuiltInMenu, dxDateTimeWheelPicker, dxGDIPlusClasses, Vcl.Menus, MovePanel, cxCheckBox, cxImage, cxDBEdit, Vcl.DBCtrls, U_BaseInput, System.ImageList, Vcl.ImgList, IdBaseComponent, IdComponent, IdTCPConnection, - IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - - dxSkinWXI, dxScrollbarAnnotations, + IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, + dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI, dxScrollbarAnnotations, dxCore, cxDateUtils, cxImageList, cxCurrencyEdit; type @@ -337,7 +322,6 @@ begin - // if Order_Sub.Locate('C_MF', null, []) then // raise Exception.Create('ŷΪգ'); // if Order_Sub.Locate('C_MF', '', []) then @@ -644,7 +628,7 @@ begin end; ZiMu := Trim(ADOTemp.fieldbyname('ZiMu').AsString); - if GetLSNo(ADOTemp, fconNO, fDate, 'BS_Contract_Main', 4, 0) = False then + if GetLSNo(ADOTemp, fconNO, fDate, 'BS_Contract_Main', 4, 0) = False then raise Exception.Create('ȡͬʧܣ'); // // fconNO := Copy(fconNO, 1, 4) + YueRi + Copy(fconNO, 5, 4); diff --git a/B01基础合同管理/U_finishSalesConInput.dfm b/B01基础合同管理/U_finishSalesConInput.dfm new file mode 100644 index 0000000..7b8b275 --- /dev/null +++ b/B01基础合同管理/U_finishSalesConInput.dfm @@ -0,0 +1,538 @@ +inherited frmfinishSalesConInput: TfrmfinishSalesConInput + Left = 219 + Top = 76 + Caption = #38144#21806#21512#21516#24405#20837 + ClientHeight = 748 + ClientWidth = 1518 + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Height = -16 + OldCreateOrder = True + Position = poScreenCenter + WindowState = wsMaximized + ExplicitWidth = 1534 + ExplicitHeight = 787 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1518 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 99 + Caption = 'ToolBar1' + Color = clWhite + DisabledImages = DataLink_Contract.ImageList_new32 + Images = DataLink_Contract.cxImageList_bar + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 16 + OnClick = TBSaveClick + end + object ToolButton3: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + end + object TBClose: TToolButton + Left = 174 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox [1] + Left = 0 + Top = 30 + Width = 1518 + Height = 99 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + BorderStyle = bsNone + Color = clWhite + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + object Label3: TLabel + Left = 339 + Top = 65 + Width = 80 + Height = 21 + Caption = #19979#21333#26085#26399#65306 + end + object Label10: TLabel + Left = 40 + Top = 10 + Width = 64 + Height = 21 + Caption = #21512#21516#21495#65306 + end + object Label14: TLabel + Left = 339 + Top = 10 + Width = 48 + Height = 21 + Caption = #23458#25143#65306 + end + object Label6: TLabel + Left = 715 + Top = 413 + Width = 64 + Height = 21 + Caption = #28322#30701#35013#65306 + Visible = False + end + object Label15: TLabel + Left = 356 + Top = 462 + Width = 80 + Height = 21 + Caption = #20132#26399#35828#26126#65306 + Visible = False + end + object Label16: TLabel + Left = 53 + Top = 462 + Width = 80 + Height = 21 + Caption = #20132#36135#26085#26399#65306 + Visible = False + end + object Label17: TLabel + Left = 1104 + Top = 398 + Width = 80 + Height = 21 + Caption = #33136#23553#22823#29260#65306 + Visible = False + end + object lblSalesId: TLabel + Left = 63 + Top = 410 + Width = 80 + Height = 21 + Caption = #19994#21153#32534#21495#65306 + Visible = False + end + object Label25: TLabel + Left = 276 + Top = 410 + Width = 80 + Height = 21 + Caption = #29702#21333#32534#21495#65306 + Visible = False + end + object Label1: TLabel + Left = 40 + Top = 62 + Width = 48 + Height = 21 + Caption = #20132#26399#65306 + end + object ConNo: TcxTextEdit + Tag = 2 + Left = 114 + Top = 7 + TabOrder = 0 + Text = #33258#21160#29983#25104 + Width = 200 + end + object PackSeal: TBtnEditC + Tag = 2 + Left = 1180 + Top = 394 + Width = 125 + Height = 30 + TabOrder = 1 + Visible = False + end + object DlyNote: TcxTextEdit + Tag = 2 + Left = 431 + Top = 456 + ParentFont = False + TabOrder = 2 + Visible = False + Width = 200 + end + object SalesId: TcxTextEdit + Tag = 2 + Left = 134 + Top = 404 + ParentFont = False + TabOrder = 3 + Visible = False + Width = 125 + end + object TallyId: TcxTextEdit + Tag = 2 + Left = 335 + Top = 401 + ParentFont = False + TabOrder = 4 + Visible = False + Width = 125 + end + object BuyName: TcxButtonEdit + Tag = 2 + Left = 412 + Top = 7 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Style.ButtonStyle = btsDefault + TabOrder = 5 + Width = 200 + end + object QtyNote: TcxButtonEdit + Tag = 2 + Left = 788 + Top = 407 + Hint = 'QtyNoteZW/'#28322#30701#35013 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Style.ButtonStyle = btsDefault + TabOrder = 6 + Visible = False + Width = 200 + end + object ConDate: TcxDateEdit + Tag = 2 + Left = 412 + Top = 59 + Properties.ShowTime = False + TabOrder = 7 + Width = 200 + end + object DlyDate: TcxDateEdit + Tag = 2 + Left = 114 + Top = 59 + Properties.ShowTime = False + TabOrder = 8 + Width = 200 + end + end + object ToolBar2: TToolBar [2] + Tag = 1 + Left = 0 + Top = 129 + Width = 1518 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clBtnFace + DisabledImages = DataLink_Contract.ImageList_new32 + EdgeInner = esNone + EdgeOuter = esNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_Contract.cxImageList_bar + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object ToolButton4: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #25209#37327#22686#34892 + ImageIndex = 12 + OnClick = ToolButton4Click + end + object ToolButton1: TToolButton + Left = 87 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 2 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 6 + OnClick = ToolButton2Click + end + end + object cxGrid1: TcxGrid [3] + Left = 0 + Top = 159 + Width = 1518 + Height = 589 + Align = alClient + BorderStyle = cxcbsNone + PopupMenu = pm_sub + TabOrder = 3 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.ColumnAutoWidth = True + OptionsView.Footer = True + OptionsView.GroupByBox = False + object Tv1Column7: TcxGridDBColumn + Tag = 9 + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Visible = False + HeaderAlignmentHorz = taCenter + Width = 41 + end + object v1XHNo: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'SerialNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + SortIndex = 0 + SortOrder = soAscending + Width = 55 + end + object VC_SCSCode: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Width = 79 + end + object v1Column4: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1Column1: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column5: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1density: TcxGridDBColumn + Caption = #23494#24230 + DataBinding.FieldName = 'density' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1Column6: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1C_WidthUnit: TcxGridDBColumn + Caption = #38376#24133#21333#20301 + DataBinding.FieldName = 'C_WidthUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 89 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'ConQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'ConUnit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 70 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_Contract.ADOLink + Left = 529 + Top = 0 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_Contract.ADOLink + Left = 441 + Top = 1 + end + inherited ImageList_new32: TImageList + Left = 1276 + Top = 21 + end + inherited cxImageList_bar: TcxImageList + FormatVersion = 1 + Left = 1015 + Top = 170 + DesignInfo = 11142135 + end + object ADOTemp: TADOQuery + Connection = DataLink_Contract.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 728 + Top = 65533 + end + object ADOCmd: TADOQuery + Connection = DataLink_Contract.ADOLink + Parameters = <> + Left = 632 + Top = 65533 + end + object DS_1: TDataSource + DataSet = Order_Sub + Left = 695 + Top = 395 + end + object Order_Sub: TClientDataSet + Aggregates = <> + IndexFieldNames = 'SerialNo' + Params = <> + Left = 748 + Top = 524 + end + object cxgrdpmn1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 656 + Top = 460 + end + object pm_sub: TPopupMenu + Left = 560 + Top = 472 + object N1: TMenuItem + Caption = #26222#36890#26367#25442 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20135#21697#26367#25442 + OnClick = N2Click + end + end + object DataSource1: TDataSource + DataSet = ADOQueryImage + Left = 1243 + Top = 302 + end + object ADOQueryImage: TADOQuery + Connection = DataLink_Contract.ADOLink + Parameters = <> + Left = 1248 + Top = 258 + end + object DS_ImgHX: TDataSource + DataSet = Qry_ImgHX + Left = 1268 + Top = 119 + end + object Qry_ImgHX: TADOQuery + Connection = DataLink_Contract.ADOLink + Parameters = <> + Left = 1272 + Top = 59 + end + object IdFTP1: TIdFTP + ConnectTimeout = 0 + NATKeepAlive.UseKeepAlive = False + NATKeepAlive.IdleTimeMS = 0 + NATKeepAlive.IntervalMS = 0 + ProxySettings.ProxyType = fpcmNone + ProxySettings.Port = 0 + ReadTimeout = 0 + Left = 1256 + Top = 186 + end +end diff --git a/B01基础合同管理/U_finishSalesConInput.pas b/B01基础合同管理/U_finishSalesConInput.pas new file mode 100644 index 0000000..d020231 --- /dev/null +++ b/B01基础合同管理/U_finishSalesConInput.pas @@ -0,0 +1,765 @@ +unit U_finishSalesConInput; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo, + cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, + StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, + cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, + cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, + dxDateRanges, dxBarBuiltInMenu, dxDateTimeWheelPicker, dxGDIPlusClasses, + Vcl.Menus, MovePanel, cxCheckBox, cxImage, cxDBEdit, Vcl.DBCtrls, U_BaseInput, + System.ImageList, Vcl.ImgList, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, + dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI, dxScrollbarAnnotations, + dxCore, cxDateUtils, cxImageList, cxCurrencyEdit; + +type + TfrmfinishSalesConInput = class(TfrmBaseInput) + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + ScrollBox1: TScrollBox; + Label3: TLabel; + ToolBar2: TToolBar; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + DS_1: TDataSource; + Order_Sub: TClientDataSet; + v1PRTOrderQty: TcxGridDBColumn; + Label10: TLabel; + ConNo: TcxTextEdit; + Label14: TLabel; + v1XHNo: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + Label6: TLabel; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + VC_SCSCode: TcxGridDBColumn; + cxgrdpmn1: TcxGridPopupMenu; + v1Column1: TcxGridDBColumn; + pm_sub: TPopupMenu; + N1: TMenuItem; + Tv1Column7: TcxGridDBColumn; + DataSource1: TDataSource; + ADOQueryImage: TADOQuery; + DS_ImgHX: TDataSource; + Qry_ImgHX: TADOQuery; + IdFTP1: TIdFTP; + Label15: TLabel; + Label16: TLabel; + PackSeal: TBtnEditC; + Label17: TLabel; + N2: TMenuItem; + DlyNote: TcxTextEdit; + ToolButton3: TToolButton; + lblSalesId: TLabel; + Label25: TLabel; + SalesId: TcxTextEdit; + TallyId: TcxTextEdit; + BuyName: TcxButtonEdit; + QtyNote: TcxButtonEdit; + ConDate: TcxDateEdit; + ToolButton4: TToolButton; + Label1: TLabel; + DlyDate: TcxDateEdit; + Tv1density: TcxGridDBColumn; + Tv1C_WidthUnit: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + + procedure N1Click(Sender: TObject); + procedure Pic_Image1DblClick(Sender: TObject); + + procedure N2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + private + FLeft, FTop: Integer; + fuserName, Fstatus: string; + procedure JSMoney(); + procedure InitData(); + function TestData(): Boolean; + function SaveData(): Boolean; + procedure SetXH(); + procedure LookImage(FileName: string); + { Private declarations } + public + CopyInt: Integer; + PState: string; + fFlileFlag: string; + FConMId: string; + FAuthority, FGSTT: string; + { Public declarations } + end; + +var + frmfinishSalesConInput: TfrmfinishSalesConInput; + newh: hwnd; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_ClothInfoSel, + U_PictureUpload11, U_TatClothInfoSel, U_BankSel; + +{$R *.dfm} + +procedure TfrmfinishSalesConInput.SetXH(); +var + i: Integer; +begin + with Order_Sub do + begin + First; + i := 1; + while not Eof do + begin + with Order_Sub do + begin + Edit; + FieldByName('XHNoTemp').Value := i; + Post; + end; + i := i + 1; + Next; + end; + end; + + with Order_Sub do + begin + Order_Sub.IndexFieldNames := ''; + First; + i := 1; + while not Eof do + begin + with Order_Sub do + begin + Edit; + FieldByName('SerialNo').Value := FieldByName('XHNoTemp').AsInteger; + Post; + end; + i := i + 1; + Next; + end; + Order_Sub.IndexFieldNames := 'SerialNo'; + end; + +end; + + +procedure TfrmfinishSalesConInput.JSMoney(); +var + FConQty, FConPrice, FC_Money: Double; +begin + with Order_Sub do + begin + FConQty := Fieldbyname('ConQty').AsFloat; + FConPrice := Fieldbyname('ConPrice').AsFloat; + end; + //2λС + FC_Money := RoundFloat(FConQty * FConPrice, 2); + with Order_Sub do + begin + Edit; + FieldByName('ConTotalAmount').Value := FC_Money; + Post; + end; + tv1.Controller.EditingController.ShowEdit(); +end; + +function TfrmfinishSalesConInput.TestData(): Boolean; +begin + try + if Trim(ConNo.Text) = '' then + raise Exception.Create('ͬŲΪգ'); + + if Order_Sub.Locate('C_Code', null, []) then + raise Exception.Create('ƷŲΪգ'); + if Order_Sub.Locate('C_Code', '', []) then + raise Exception.Create('ƷŲΪգ'); + if Order_Sub.Locate('C_Name', null, []) then + raise Exception.Create('ƷΪգ'); + if Order_Sub.Locate('C_Name', '', []) then + raise Exception.Create('ƷΪգ'); +// if Order_Sub.Locate('C_Color', null, []) then +// raise Exception.Create('ɫΪգ'); +// if Order_Sub.Locate('C_Color', '', []) then +// raise Exception.Create('ɫΪգ'); + + + +// if Order_Sub.Locate('C_MF', null, []) then +// raise Exception.Create('ŷΪգ'); +// if Order_Sub.Locate('C_MF', '', []) then +// raise Exception.Create('ŷΪգ'); +// if Order_Sub.Locate('C_KZ', null, []) then +// raise Exception.Create('زΪգ'); +// if Order_Sub.Locate('C_KZ', '', []) then +// raise Exception.Create('زΪգ'); + if Order_Sub.Locate('ConQty', null, []) then + raise Exception.Create('Ϊգ'); + if Order_Sub.Locate('ConQty', 0, []) then + raise Exception.Create('Ϊ0'); + if Order_Sub.Locate('ConUnit', null, []) then + raise Exception.Create('λΪգ'); + if Order_Sub.Locate('ConUnit', '', []) then + raise Exception.Create('λΪգ'); + Result := True; + except + Result := false; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; +end; + +procedure TfrmfinishSalesConInput.ToolButton1Click(Sender: TObject); // +var + i: Integer; + maxno: string; +begin + if GetLSNo(ADOCmd, maxno, 'CPCS', 'CP_Contract_Sub', 4, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + if Trim(ConNo.Text) = '' then + begin + Application.MessageBox('ͬŲΪ!', 'ʾ', 0); + Exit; + end; + i := Order_Sub.RecordCount; //ǰdatasetжм¼ + i := i + 1; + CopyAddRow(Tv1, Order_Sub); + with Order_Sub do + begin + Edit; + FieldByName('SSEL').Value := FALSE; + FieldByName('SerialNo').Value := i; + FieldByName('ConSId').Value := maxno; + FieldByName('ConQty').Value := null; + FieldByName('ConUnit').Value := 'M'; + Post; + end; + SetXH(); +end; + +procedure TfrmfinishSalesConInput.ToolButton2Click(Sender: TObject); +begin + if Order_Sub.IsEmpty then + Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + while Order_Sub.Locate('SSel', True, []) do + begin + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Trade_Plan_Sub where ConSId=''' + Trim(Order_Sub.fieldbyname('ConSId').AsString) + ''''); + open; + end; + if ADOTemp.IsEmpty = false then + begin + exit; + application.MessageBox('ϸѾ', 'ʾϢ'); + end; + if Trim(Order_Sub.fieldbyname('ConSId').AsString) <> '' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete CP_Contract_Sub where ConSId=''' + Trim(Order_Sub.fieldbyname('ConSId').AsString) + ''''); + ExecSQL; + end; + end; + Order_Sub.Delete; + end; + SetXH(); +end; + +procedure TfrmfinishSalesConInput.ToolButton4Click(Sender: TObject); +var + i: Integer; + maxno: string; + MCYNo: string; +begin + + if Trim(ConNo.Text) = '' then + begin + Application.MessageBox('ͬŲΪ!', 'ʾ', 0); + Exit; + end; + + i := Order_Sub.RecordCount; //ǰdatasetжм¼ + + + frmTatClothInfoSel := TfrmTatClothInfoSel.Create(self); + with frmTatClothInfoSel do + begin + if showmodal = 1 then + begin + + with CDS_1 do + begin + DisableControls; + First; + while not eof do + begin + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + + if GetLSNo(ADOCmd, maxno, 'CPCS', 'CP_Contract_Sub', 4, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + + with Self.Order_Sub do + begin + append; + + Order_Sub.fieldbyname('C_Code').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').asstring; + Order_Sub.fieldbyname('C_Name').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').asstring; + + Order_Sub.fieldbyname('C_Spec').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Spec').asstring; + Order_Sub.fieldbyname('C_Composition').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Composition').asstring; + + Order_Sub.fieldbyname('C_Width').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Width').asstring; +// Order_Sub.fieldbyname('BBNO').Value := frmTatClothInfoSel.CDS_1.fieldbyname('BBNO').asstring; + + FieldByName('SSEL').Value := FALSE; + FieldByName('SerialNo').Value := i; + FieldByName('ConSId').Value := maxno; + FieldByName('ConQty').Value := null; +// FieldByName('ConTotalAmount').Value := null; + FieldByName('ConUnit').Value := 'M'; + end; + end; + Next; + i := i + 1; + end; + EnableControls; + end; + + end; + free; + end; + + tv1.Controller.EditingController.ShowEdit(); + SetXH(); +end; + +procedure TfrmfinishSalesConInput.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmfinishSalesConInput.TBSaveClick(Sender: TObject); +begin + ConDate.SetFocus; + + if TestData() = false then + exit; + + if SaveData() then + begin + Application.MessageBox('ɹ', 'ʾ', 0); + end; +end; + +procedure TfrmfinishSalesConInput.InitData(); +var + maxno: string; +begin + //ˢ²ƷϢ + with ADOTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from CP_Contract_Sub '); + sql.Add('where ConMId=''' + Trim(FConMId) + ''''); + sql.Add(' order by SerialNo '); + Open; + end; + SCreateCDS(ADOTemp, Order_Sub); + SInitCDSData(ADOTemp, Order_Sub); + //ˢϢ + with ADOTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CP_Contract_Main where ConMId=''' + Trim(FConMId) + ''''); + Open; + end; + SCSHData(ADOTemp, ScrollBox1, 2); + + BuyName.Properties.LookupItems.Text := Trim(ADOTemp.FieldByName('BuyNo').AsString); + + Fstatus := Trim(ADOTemp.FieldByName('status').AsString); + + if PState = '' then + begin + ConDate.Date := SGetServerDateTime(ADOTemp); + DlyDate.Date := ConDate.Date; + ConNo.Text := 'Զ'; + + SalesID.Text := trim(DCode); + end; + + if PState = '' then + begin + + PState := ''; + FConMId := ''; + ConNo.Text := 'Զ'; + + with Order_Sub do + begin + First; + while not Eof do + begin + if GetLSNo(ADOCmd, maxno, 'CPSCS', 'CP_Contract_Sub', 4, 1) = False then + begin + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + Edit; + FieldByName('ConMId').Value := ''; + FieldByName('ConSId').Value := maxno; + Post; + Next; + end; + end; + end; + +end; + +procedure TfrmfinishSalesConInput.N1Click(Sender: TObject); +var + FValue, FFValue, FColumn, FFColumn, MHXSID: string; + MXHNO: Integer; +begin + if Fstatus = '1' then + begin + application.MessageBox('ͬˣ޷', 'ʾϢ', 0); + exit; + end; + MXHNO := Order_Sub.FieldByName('XHNo').ASInteger; + FColumn := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName; + FValue := Trim(Order_Sub.fieldbyname(FColumn).AsString); + MHXSID := Trim(Order_Sub.fieldbyname('HXSID').AsString); + with Order_Sub do + begin + DisableControls; + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean then + begin + Edit; + + if FValue = '' then + begin + Order_Sub.FieldByName(FColumn).Value := null; + end + else + begin + Order_Sub.FieldByName(FColumn).Value := FValue; + end; + if FColumn = 'C_HX' then + begin + Order_Sub.FieldByName('HXSID').Value := MHXSID; + end; + Post; + JSMoney(); + end; + Next; + end; + EnableControls; + end; + Order_Sub.Locate('XHNO', MXHNO, []); +end; + +procedure TfrmfinishSalesConInput.N2Click(Sender: TObject); +var + FValue, MC_Code, MC_Craft, MC_Name, MC_Spec, MC_CF, MC_Color, MC_MF, MC_KZ, MC_Note, MC_Unit, MGcHuaNo, MSuoLv, MC_EName: string; + MXHNO: Integer; +begin + if Fstatus = '1' then + begin + application.MessageBox('ͬˣ޷', 'ʾϢ', 0); + exit; + end; + + MXHNO := Order_Sub.FieldByName('XHNo').ASInteger; + MC_Code := Order_Sub.fieldbyname('C_Code').AsString; + MC_Craft := Order_Sub.fieldbyname('C_Craft').AsString; + MC_Name := Order_Sub.fieldbyname('C_Name').AsString; + MC_Spec := Order_Sub.fieldbyname('C_Spec').AsString; + MC_CF := Order_Sub.fieldbyname('C_CF').AsString; + MC_Color := Order_Sub.fieldbyname('C_Color').AsString; + MC_MF := Order_Sub.fieldbyname('C_MF').AsString; + MC_KZ := Order_Sub.fieldbyname('C_KZ').AsString; + MC_Note := Order_Sub.fieldbyname('C_Note').AsString; + MC_Unit := Order_Sub.fieldbyname('C_Unit').AsString; + MSuoLv := Order_Sub.fieldbyname('SuoLv').AsString; + MGcHuaNo := Order_Sub.fieldbyname('GcHuaNo').AsString; + MC_EName := Order_Sub.fieldbyname('C_EName').AsString; + + with Order_Sub do + begin + DisableControls; + First; + while not Eof do + begin + if FieldByName('SSel').AsBoolean then + begin + Edit; + Order_Sub.fieldbyname('C_Code').Value := MC_Code; + Order_Sub.fieldbyname('C_Craft').Value := MC_Craft; + Order_Sub.fieldbyname('C_Name').Value := MC_Name; + Order_Sub.fieldbyname('C_Spec').Value := MC_Spec; + Order_Sub.fieldbyname('C_CF').Value := MC_CF; + Order_Sub.fieldbyname('C_Color').Value := MC_Color; + Order_Sub.fieldbyname('C_MF').Value := MC_MF; + Order_Sub.fieldbyname('C_KZ').Value := MC_KZ; + Order_Sub.fieldbyname('C_Note').Value := MC_Note; + Order_Sub.fieldbyname('C_Unit').Value := MC_Unit; + Order_Sub.fieldbyname('SuoLv').Value := MSuoLv; + Order_Sub.fieldbyname('GcHuaNo').Value := MGcHuaNo; + Order_Sub.fieldbyname('C_EName').Value := MC_EName; + Post; + + end; + Next; + end; + EnableControls; + end; + Order_Sub.Locate('XHNO', MXHNO, []); +end; + +procedure TfrmfinishSalesConInput.Pic_Image1DblClick(Sender: TObject); +begin + if TcxDBImage(Sender).Picture.Height = 0 then + exit; + + LookImage(ADOQueryImage.fieldbyname(TcxDBImage(Sender).Hint).asstring); +end; + +procedure TfrmfinishSalesConInput.LookImage(FileName: string); +var + sFieldName: string; +begin + sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\ͼƬ鿴'; + if not DirectoryExists(pchar(sFieldName)) then + CreateDirectory(pchar(sFieldName), nil); + sFieldName := sFieldName + '\' + trim(FileName); + try + IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', 'ַ', '127.0.0.1'); + IdFTP1.Username := 'three'; + IdFTP1.Password := '641010'; + IdFTP1.Connect(); + except + ; + end; + + if IdFTP1.Connected then + begin + try + IdFTP1.Get(fFlileFlag + '\' + Trim(FileName), sFieldName, true, false); + except + Application.MessageBox('ͻͼļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + end + else + begin + Application.MessageBox('޷ļ', 'ʾ', MB_ICONWARNING); + IdFTP1.Quit; + Exit; + end; + if IdFTP1.Connected then + IdFTP1.Quit; + ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL); +end; + +procedure TfrmfinishSalesConInput.FormShow(Sender: TObject); +begin + inherited; + readCxGrid(trim(self.Caption), Tv1, 'ۺͬ'); + fFlileFlag := UserDataFlag + 'HX'; + InitData(); +end; + +function TfrmfinishSalesConInput.SaveData(): Boolean; +var + maxno, ZiMu: string; + fconNO, fmxType, fDate, YueRi: string; +begin + try + ADOCmd.Connection.BeginTrans; +//////////////// ////////////////////// + if Trim(FConMId) = '' then + begin + if GetLSNo(ADOTemp, maxno, 'CPCM', 'CP_Contract_Main', 3, 1) = False then + raise Exception.Create('ȡʧܣ'); + + fDate := FormatDateTime('yy', SGetServerDate(ADOTemp)); + YueRi := FormatDateTime('MMDD', SGetServerDate(ADOTemp)); + + if trim(ConNo.Text) = 'Զ' then + begin + + with ADOTemp do + begin + Close; + sql.Clear; + SQL.Add('select ZiMu = dbo.GetPinYin(''' + Trim(BuyName.text) + ''')'); + Open; + end; + ZiMu := Trim(ADOTemp.fieldbyname('ZiMu').AsString); + + if GetLSNo(ADOTemp, fconNO, fDate, 'CP_Contract_Main', 4, 0) = False then + raise Exception.Create('ȡͬʧܣ'); +// +//// fconNO := Copy(fconNO, 1, 4) + YueRi + Copy(fconNO, 5, 4); +// if ConType.Text = '' then +// fconNO := 'N' + fconNO +// else +// fconNO := 'W' + fconNO; + ConNo.Text := fconNO; + end; + end + else + begin + maxno := Trim(FConMId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from CP_Contract_Main where ConMId=''' + Trim(FConMId) + ''''); + Open; + end; + with ADOCmd do + begin + if Trim(FConMId) = '' then + begin + Append; + FieldByName('Filler').Value := Trim(DName); + FieldByName('status').Value := '0'; + end + else + begin + Edit; + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp); + end; + FieldByName('ConMId').Value := Trim(maxno); + RTSetsavedata(ADOCmd, 'CP_Contract_Main', ScrollBox1, 2); +// ShowMessage(self.BuyName.Properties.LookupItems[0]+'hh'); +// ShowMessage(self.Sellname.Properties.LookupItems[0]+'hh'); +// ShowMessage(self.MiddleName.Properties.LookupItems.Text+'hh'); +// if Trim(BuyName.Properties.LookupItems.text) = '' then +// begin +// FieldByName('BuyNo').Value := Trim(BuyName.Properties.LookupItems[0]); +// end +// else +// begin +// FieldByName('BuyNo').Value := Trim(BuyName.Properties.LookupItems[0]); +// end; + + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CP_Contract_Main where ConNo=''' + Trim(ConNo.Text) + ''''); + Open; + end; + if ADOCmd.RecordCount > 1 then + raise Exception.Create('ͬظ'); + + FConMId := Trim(maxno); +//////////////// ////////////////////// +/// +//////////////// ӱ ////////////////////// + with Order_Sub do + begin + First; + while not Eof do + begin + maxno := Trim(Order_Sub.fieldbyname('ConSId').AsString); + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from CP_Contract_Sub where ConSId=''' + Trim(maxno) + ''''); + Open; + end; + with ADOCmd do + begin + if ADOCmd.IsEmpty then + Append + else + Edit; + RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'CP_Contract_Sub', 0); + FieldByName('ConMId').Value := Trim(FConMId); + FieldByName('ConSId').Value := Trim(maxno); + + Post; + end; + with Order_Sub do + begin + Edit; + FieldByName('ConSId').Value := Trim(maxno); + Post; + end; + Next; + end; + end; +//////////////// ӱ ////////////////////// +/// +//////////////// ºͬ ////////////////////// +// with ADOCmd do +// begin +// close; +// sql.Clear; +// sql.Add('EXEC P_Con_Up_PiQty '); +// sql.Add('@DataID=' + quotedstr(Trim(FConMId))); +// execsql; +// end; +//////////////// ºͬ ////////////////////// + + ADOCmd.Connection.CommitTrans; + Result := True; + except + + ADOCmd.Connection.RollbackTrans; + + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + + Result := False; + end; +end; + +end. + diff --git a/B01基础合同管理/U_finishSalesContractList.dfm b/B01基础合同管理/U_finishSalesContractList.dfm new file mode 100644 index 0000000..19fa31d --- /dev/null +++ b/B01基础合同管理/U_finishSalesContractList.dfm @@ -0,0 +1,706 @@ +inherited frmfinishSalesContractList: TfrmfinishSalesContractList + Left = 246 + Top = 116 + Caption = #38144#21806#21512#21516 + ClientHeight = 771 + ClientWidth = 1540 + Font.Height = -16 + FormStyle = fsMDIChild + Visible = True + ExplicitWidth = 1556 + ExplicitHeight = 810 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 107 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_Contract.ImageList_new32 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_Contract.cxImageList_bar + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 4 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 0 + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 9 + OnClick = TBAddClick + end + object TBEdit: TToolButton + Left = 189 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 3 + OnClick = TBEditClick + end + object ToolButton2: TToolButton + Left = 252 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 13 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 315 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 4 + OnClick = ToolButton1Click + end + object ToolButton5: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #21512#21516#38468#20214 + ImageIndex = 22 + OnClick = ToolButton5Click + end + object TBPrint: TToolButton + Left = 465 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + OnClick = TBPrintClick + end + object btnTijiao: TToolButton + Left = 528 + Top = 0 + AutoSize = True + Caption = #25552#20132 + ImageIndex = 12 + OnClick = btnTijiaoClick + end + object btnCXTijiao: TToolButton + Left = 591 + Top = 0 + AutoSize = True + Caption = #25764#38144#25552#20132 + ImageIndex = 11 + OnClick = btnCXTijiaoClick + end + object tchk: TToolButton + Left = 678 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 12 + OnClick = tchkClick + end + object Tnochk: TToolButton + Left = 741 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 11 + OnClick = TnochkClick + end + object btnWC: TToolButton + Left = 828 + Top = 0 + AutoSize = True + Caption = #23436#25104 + ImageIndex = 12 + OnClick = btnWCClick + end + object btnWCCX: TToolButton + Left = 891 + Top = 0 + AutoSize = True + Caption = #25764#38144#23436#25104 + ImageIndex = 11 + OnClick = btnWCCXClick + end + object Tqx: TToolButton + Left = 978 + Top = 0 + AutoSize = True + Caption = #21512#21516#21462#28040 + ImageIndex = 14 + OnClick = TqxClick + end + object Tnoqx: TToolButton + Left = 1065 + Top = 0 + AutoSize = True + Caption = #25764#38144#21512#21516#21462#28040 + ImageIndex = 11 + OnClick = TnoqxClick + end + object ToolButton7: TToolButton + Left = 1176 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton7Click + end + object TBClose: TToolButton + Left = 1263 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid [1] + Left = 0 + Top = 157 + Width = 1540 + Height = 336 + Align = alClient + PopupMenu = pm1 + TabOrder = 3 + ExplicitTop = 159 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnCellDblClick = Tv1CellDblClick + OnCustomDrawCell = Tv1CustomDrawCell + 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> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.ColumnAutoWidth = True + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 41 + end + object v1ConNo: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 82 + end + object v1CustomerNoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'BuyName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 99 + end + object v1OrdDate: TcxGridDBColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'ConDate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 86 + end + object Tv1DlyDate: TcxGridDBColumn + Caption = #20132#26399 + DataBinding.FieldName = 'DlyDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Status: TcxGridDBColumn + Tag = 2 + DataBinding.FieldName = 'Status' + DataBinding.IsNullValueType = True + Visible = False + Width = 70 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel [2] + Left = 0 + Top = 30 + Width = 1540 + Height = 91 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 6 + object Label4: TLabel + Left = 268 + Top = 50 + Width = 32 + Height = 21 + Caption = #23458#25143 + Color = clWhite + ParentColor = False + end + object Label9: TLabel + Left = 252 + Top = 11 + Width = 48 + Height = 21 + Caption = #21512#21516#21495 + Color = clWhite + ParentColor = False + end + object Label3: TLabel + Left = 453 + Top = 11 + Width = 64 + Height = 21 + Caption = #23458#25143#21333#21495 + Color = clWhite + ParentColor = False + end + object Label7: TLabel + Left = 469 + Top = 50 + Width = 48 + Height = 21 + Caption = #20013#38388#21830 + Color = clWhite + ParentColor = False + end + object IsJYTime: TCheckBox + Left = 21 + Top = 13 + Width = 84 + Height = 17 + Caption = #19979#21333#26085#26399 + Checked = True + Color = clWhite + ParentColor = False + State = cbChecked + TabOrder = 0 + end + object EndDate: TcxDateEdit + Left = 111 + Top = 44 + TabOrder = 1 + Width = 121 + end + object ConNo: TcxTextEdit + Tag = 2 + Left = 306 + Top = 5 + Properties.OnChange = TBFindClick + TabOrder = 2 + Width = 121 + end + object BuyConNo: TcxTextEdit + Tag = 2 + Left = 523 + Top = 5 + Properties.OnChange = TBFindClick + TabOrder = 3 + Width = 121 + end + object BuyName: TcxTextEdit + Tag = 2 + Left = 306 + Top = 44 + Properties.OnChange = TBFindClick + TabOrder = 4 + Width = 121 + end + object MiddleName: TcxTextEdit + Tag = 2 + Left = 523 + Top = 44 + Properties.OnChange = TBFindClick + TabOrder = 5 + Width = 121 + end + object BegDate: TcxDateEdit + Left = 111 + Top = 5 + TabOrder = 6 + Width = 121 + end + end + object cxTabControl1: TcxTabControl [3] + Left = 0 + Top = 121 + Width = 1540 + Height = 36 + Align = alTop + TabOrder = 2 + Properties.CustomButtons.Buttons = <> + Properties.Style = 11 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #26410#25552#20132 + #24050#25552#20132 + #24050#23457#26680 + #24050#23436#25104 + #24050#21462#28040 + #20840#37096) + LookAndFeel.Kind = lfUltraFlat + OnChange = cxTabControl1Change + ExplicitLeft = -288 + ExplicitTop = 137 + ClientRectBottom = 34 + ClientRectLeft = 2 + ClientRectRight = 1538 + ClientRectTop = 30 + end + object cxSplitter1: TcxSplitter [4] + Left = 0 + Top = 493 + Width = 1540 + Height = 8 + HotZoneClassName = 'TcxMediaPlayer9Style' + AlignSplitter = salBottom + end + object Panel2: TPanel [5] + Left = 0 + Top = 501 + Width = 1540 + Height = 270 + Align = alBottom + Caption = 'Panel2' + TabOrder = 5 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 1538 + Height = 268 + Align = alClient + BorderStyle = cxcbsNone + TabOrder = 0 + ExplicitWidth = 1283 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnFocusedRecordChanged = TV2FocusedRecordChanged + DataController.DataSource = DS_2 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.ColumnAutoWidth = True + OptionsView.Footer = True + OptionsView.GroupByBox = False + object v1XHNo: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'SerialNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + SortIndex = 0 + SortOrder = soAscending + Width = 55 + end + object VC_SCSCode: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 86 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 101 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column5: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object TV2density: TcxGridDBColumn + Caption = #23494#24230 + DataBinding.FieldName = 'density' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 60 + end + object v1Column6: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object TV2C_WidthUnit: TcxGridDBColumn + Caption = #38376#24133#21333#20301 + DataBinding.FieldName = 'C_WidthUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'ConQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'ConUnit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsEditFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + end + inherited loadProcess: TPanel + Left = 296 + Top = 212 + ExplicitLeft = 296 + ExplicitTop = 212 + end + inherited cxProgressBar2: TcxProgressBar + Top = 258 + ExplicitTop = 258 + ExplicitHeight = 29 + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_Contract.ADOLink + Left = 26 + Top = 235 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_Contract.ADOLink + Left = 220 + Top = 242 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 664 + Top = 288 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_Contract.ADOLink + Parameters = <> + Left = 264 + Top = 245 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_Contract.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 170 + Top = 242 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_Contract.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 65 + Top = 235 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 744 + Top = 288 + end + object CDS_2: TClientDataSet + Aggregates = <> + IndexFieldNames = 'SerialNo' + Params = <> + Left = 456 + Top = 536 + end + object pm2: TPopupMenu + Left = 376 + Top = 544 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + object N4: TMenuItem + Caption = #22797#21046 + OnClick = N4Click + end + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 504 + Top = 544 + end + object GPM_2: TcxGridPopupMenu + PopupMenus = <> + Left = 416 + Top = 536 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 704 + Top = 288 + end + object pm1: TPopupMenu + Left = 604 + Top = 294 + object N5: TMenuItem + Caption = #20840#36873 + OnClick = N5Click + end + object N6: TMenuItem + Caption = #20840#24323 + OnClick = N6Click + end + object N3: TMenuItem + Caption = #22797#21046 + OnClick = N3Click + end + end + object ADOQueryImage: TADOQuery + Connection = DataLink_Contract.ADOLink + Parameters = <> + Left = 80 + Top = 339 + end + object DSImage: TDataSource + DataSet = ADOQuery1 + Left = 1199 + Top = 215 + end + object ADOQuery1: TADOQuery + Connection = DataLink_Contract.ADOLink + EnableBCD = False + Parameters = <> + Left = 1271 + Top = 209 + end + object Order_Sub: TClientDataSet + Aggregates = <> + IndexFieldNames = 'SerialNo' + Params = <> + Left = 748 + Top = 524 + end +end diff --git a/B01基础合同管理/U_finishSalesContractList.pas b/B01基础合同管理/U_finishSalesContractList.pas new file mode 100644 index 0000000..c90e59e --- /dev/null +++ b/B01基础合同管理/U_finishSalesContractList.pas @@ -0,0 +1,1133 @@ +unit U_finishSalesContractList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, + RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit, + cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, + dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, + U_BaseList, RM_e_Graphic, RM_e_Jpeg, RM_E_llPDF, Vcl.Clipbrd, cxContainer, + dxCore, cxDateUtils, cxMaskEdit, dxSkinOffice2013White, dxSkinSharpPlus, + dxSkinWXI, dxScrollbarAnnotations, cxImage, cxDBEdit, cxProgressBar, + cxCurrencyEdit; + +type + TfrmfinishSalesContractList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBEdit: TToolButton; + TBPrint: TToolButton; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + GPM_1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + v1OrdDate: TcxGridDBColumn; + v1ConNo: TcxGridDBColumn; + CDS_2: TClientDataSet; + v1CustomerNoName: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + v1Column4: TcxGridDBColumn; + pm2: TPopupMenu; + Panel1: TPanel; + Label4: TLabel; + Label9: TLabel; + cxTabControl1: TcxTabControl; + tchk: TToolButton; + Tnochk: TToolButton; + cxSplitter1: TcxSplitter; + DS_2: TDataSource; + Tqx: TToolButton; + Tnoqx: TToolButton; + ToolButton5: TToolButton; + GPM_2: TcxGridPopupMenu; + CDS_1: TClientDataSet; + btnTijiao: TToolButton; + btnCXTijiao: TToolButton; + Label3: TLabel; + pm1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + btnWC: TToolButton; + btnWCCX: TToolButton; + Label7: TLabel; + ADOQueryImage: TADOQuery; + IsJYTime: TCheckBox; + ToolButton7: TToolButton; + N3: TMenuItem; + N4: TMenuItem; + N5: TMenuItem; + N6: TMenuItem; + EndDate: TcxDateEdit; + ConNo: TcxTextEdit; + BuyConNo: TcxTextEdit; + BuyName: TcxTextEdit; + MiddleName: TcxTextEdit; + BegDate: TcxDateEdit; + DSImage: TDataSource; + ADOQuery1: TADOQuery; + Panel2: TPanel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + v1XHNo: TcxGridDBColumn; + VC_SCSCode: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Order_Sub: TClientDataSet; + Tv1DlyDate: TcxGridDBColumn; + TV2C_WidthUnit: TcxGridDBColumn; + TV2density: TcxGridDBColumn; + Tv1Status: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBEditClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure BuyNameChange(Sender: TObject); + procedure tchkClick(Sender: TObject); + procedure TnochkClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure TqxClick(Sender: TObject); + procedure TnoqxClick(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure btnTijiaoClick(Sender: TObject); + procedure btnCXTijiaoClick(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure btnWCClick(Sender: TObject); + procedure btnWCCXClick(Sender: TObject); + procedure ConNoKeyPress(Sender: TObject; var Key: Char); + procedure ToolButton7Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure TBPrintClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure N5Click(Sender: TObject); + procedure N6Click(Sender: TObject); + procedure TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + private + fFlileFlag: string; + procedure InitGrid(); + procedure SetStatus(); + procedure InitSub(); + procedure InitImage(); + + { Private declarations } + public + FFInt, FCloth: Integer; + FAuthority, FGSTT, FSubIdS: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_SalesConInPut, U_RTFun, U_AttachmentUpload, U_LabelPrint, + U_finishSalesConInput; + +{$R *.dfm} + +procedure TfrmfinishSalesContractList.InitImage(); +begin + + ADOQueryImage.Close; + if CDS_1.IsEmpty then + exit; + with ADOQueryImage do + begin + close; + sql.Clear; + sql.Add('select * from TP_File A'); + sql.Add('where WBID=' + quotedstr(trim(CDS_1.fieldbyname('SubId').AsString))); + sql.Add('and TFType=' + quotedstr(trim('HX'))); + open; + end; +end; + +procedure TfrmfinishSalesContractList.InitSub(); +begin + if CDS_1.IsEmpty then + exit; + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add('select * from CP_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 TfrmfinishSalesContractList.N1Click(Sender: TObject); +begin + SelOKNoFiler(Tv1, True); //ȫѡ +end; + +procedure TfrmfinishSalesContractList.N2Click(Sender: TObject); +begin + SelOKNoFiler(Tv1, False); //ȫ +end; + +procedure TfrmfinishSalesContractList.N3Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmfinishSalesContractList.N4Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmfinishSalesContractList.N5Click(Sender: TObject); +begin + SelOKNo(CDS_1, True); +end; + +procedure TfrmfinishSalesContractList.N6Click(Sender: TObject); +begin + SelOKNo(CDS_1, False); + +end; + +procedure TfrmfinishSalesContractList.SetStatus(); +begin + TBAdd.Enabled := false; + tbedit.Enabled := false; + ToolButton2.Enabled := false; + tchk.Enabled := false; + tnochk.Enabled := false; + Tqx.Enabled := false; + TNoqx.Enabled := false; + TBPrint.Enabled := False; + btnTijiao.Enabled := False; + btnCXTijiao.Enabled := False; + btnWC.Enabled := False; + btnWCCX.Enabled := False; + if Trim(FAuthority) = '¼' then + begin + ToolButton2.Enabled := true; + TBAdd.Enabled := true; + TBPrint.Enabled := True; + case cxTabControl1.TabIndex of + 0: + begin + tbedit.Enabled := true; + Tqx.Enabled := True; + btnTijiao.Enabled := True; + end; + 1: + begin + tbedit.Enabled := True; + btnCXTijiao.Enabled := True; + end; + 2: + begin + btnWC.Enabled := True; + end; + 3: + begin + btnWCCX.Enabled := True; + end; + 4: + begin + TNoqx.Enabled := True; + end; + end; + end; + if Trim(FAuthority) = '' then + begin + ToolButton2.Enabled := true; + TBAdd.Enabled := true; + TBPrint.Enabled := True; + case cxTabControl1.TabIndex of + 0: + begin + tbedit.Enabled := true; + Tqx.Enabled := true; + btnTijiao.Enabled := True; + end; + 1: + begin + btnCXTijiao.Enabled := True; + tchk.Enabled := True; + end; + 2: + begin + tnochk.Enabled := True; + btnWC.Enabled := True; + end; + 3: + begin + btnWCCX.Enabled := True; + end; + 4: + begin + TNoqx.Enabled := true; + end; + end; + end; + if Trim(FAuthority) = 'ѯ' then + begin + TBPrint.Enabled := True; + end; +end; + +procedure TfrmfinishSalesContractList.FormDestroy(Sender: TObject); +begin + inherited; +// frmContractListNX:=nil; +end; + +procedure TfrmfinishSalesContractList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmfinishSalesContractList.FormCreate(Sender: TObject); +begin + inherited; + EndDate.Date := SGetServerDate(ADOQueryTemp); + BegDate.Date := EndDate.Date - 90; + +end; + +procedure TfrmfinishSalesContractList.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmfinishSalesContractList.InitGrid(); +var + WSql: string; +begin + WSql := SGetFilters(Panel1, 1, 2); + if trim(WSql) <> '' then + begin + WSql := ' and ' + trim(WSql); + end; + + if IsJYTime.Checked then + begin + WSql := WSql + ' and ConDate>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date)); + WSql := WSql + ' and ConDate<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1)); + end + else + begin + if trim(WSql) <> '' then + WSql := ' and 1=1' + trim(WSql) + else + WSql := WSql + ' and 1=2 '; + end; + if trim(WSql) = 'and 1=2' then + Application.MessageBox('ѡƵڻ', 'ʾ', 0); + + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + + sql.Add('select AA.* from (select A.*'); + sql.Add(' from CP_Contract_Main A ) AA '); + sql.Add('where 1=1 ' + (WSql)); +// sql.Add(' and AA.ConType in ('''','''') '); + + if Trim(FAuthority) = '¼' then + begin + sql.Add(' and ( SalesId=' + quotedstr(trim(DCode)) + ' or exists (select * from [dbo].[F_Tool_SplitString](TallyId,'','') X where X.RTValue =' + quotedstr(trim(DCode)) + '))'); + end; + + case cxTabControl1.TabIndex of + 0: + begin + sql.Add(' and isnull(AA.status,''0'')=''0'''); + end; + 1: + begin + sql.Add(' and isnull(AA.status,''0'')=''1'''); + end; + 2: + begin + sql.Add(' and isnull(AA.status,''0'')=''9'''); + end; + 3: + begin + sql.Add(' and isnull(AA.status,''0'')=''10'''); + end; + 4: + begin + sql.Add(' and isnull(AA.status,''0'')=''-1'''); + end; + end; + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + + end; +end; + +procedure TfrmfinishSalesContractList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); +end; + +procedure TfrmfinishSalesContractList.TBPrintClick(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'SalesConPrint'; + FFiltration1 := QuotedStr(Trim(Self.CDS_1.fieldbyname('ConMID').AsString)); + if ShowModal = 1 then + begin +// Self.InitGrid(); + end; + end; + finally + frmLabelPrint.Free; + end; + +end; + +procedure TfrmfinishSalesContractList.TBEditClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; +// if Trim(CDS_1.fieldbyname('Filler').AsString) <> Trim(DName) then +// begin +// Application.MessageBox('ܲ˵!', 'ʾ', 0); +// Exit; +// end; + try + frmfinishSalesConInput := TfrmfinishSalesConInput.Create(Application); + with frmfinishSalesConInput do + begin + PState := '޸'; + FConMId := Trim(Self.CDS_1.fieldbyname('ConMID').AsString); + FAuthority := self.FAuthority; + FGSTT := self.FGSTT; + fFlileFlag := self.fFlileFlag; + if ShowModal = 1 then + begin + + end; + end; + finally + frmfinishSalesConInput.Free; + end; +end; + +procedure TfrmfinishSalesContractList.TBRafreshClick(Sender: TObject); +begin + ToolBar1.SetFocus; + InitGrid(); +end; + +procedure TfrmfinishSalesContractList.TBAddClick(Sender: TObject); +var + maxno: string; +begin + try + frmfinishSalesConInput := TfrmfinishSalesConInput.Create(Application); + with frmfinishSalesConInput do + begin + PState := ''; + FConMId := ''; + FAuthority := self.FAuthority; + FGSTT := self.FGSTT; + fFlileFlag := self.fFlileFlag; + if ShowModal = 1 then + begin + + end; + end; + finally + frmfinishSalesConInput.Free; + end; +end; + +procedure TfrmfinishSalesContractList.FormShow(Sender: TObject); +begin + inherited; + fFlileFlag := UserDataFlag + 'HX'; + FAuthority := self.fParameters1; + readCxGrid(trim(Self.Caption) + 'tv1', Tv1, 'ۺͬ'); + readCxGrid(trim(Self.Caption) + 'tv2', Tv2, 'ۺͬ'); + + SetStatus(); + InitGrid(); +end; + +procedure TfrmfinishSalesContractList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + if ToolButton1.Visible = False then + Exit; + ToolButton1.Click; +end; + +procedure TfrmfinishSalesContractList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmfinishSalesContractList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmfinishSalesContractList.ConNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + InitGrid(); + end; +end; + +procedure TfrmfinishSalesContractList.ToolButton1Click(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + try + frmfinishSalesConInput := TfrmfinishSalesConInput.Create(Application); + with frmfinishSalesConInput do + begin + PState := '鿴'; + FConMId := Trim(Self.CDS_1.fieldbyname('ConMID').AsString); + FGSTT := self.FGSTT; + ToolBar2.Visible := False; + TBSave.Visible := False; +// ScrollBox1.Enabled := False; + if ShowModal = 1 then + begin + + end; + end; + finally + frmfinishSalesConInput.Free; + end; +end; + +procedure TfrmfinishSalesContractList.ToolButton2Click(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + try + frmfinishSalesConInput := TfrmfinishSalesConInput.Create(Application); + with frmfinishSalesConInput do + begin + PState := ''; + FConMId := Trim(Self.CDS_1.fieldbyname('ConMID').AsString); + FAuthority := self.FAuthority; + fFlileFlag := self.fFlileFlag; + if ShowModal = 1 then + begin + + end; + end; + finally + frmfinishSalesConInput.Free; + end; +end; + +procedure TfrmfinishSalesContractList.btnWCClick(Sender: TObject); +var + MConMIDS: string; +begin + if CDS_1.IsEmpty then + exit; + if not CDS_1.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + with CDS_1 do + begin + DisableControls; + First; + MConMIDS := ''; + while not eof do + begin + if fieldbyname('SSel').AsBoolean then + begin + MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ','; + end; + next; + end; + MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1); + EnableControls; + end; + + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_CP_Contract_SetStatus '); + sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS)); + sql.Add(',@Operation='''' '); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('Ʒۺͬ'))); + sql.Add(',' + quotedstr(trim('ͬID' + trim(MConMIDS)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + application.MessageBox('ɳɹ', 'ʾ'); + InitGrid(); + except + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); + end; + +end; + +procedure TfrmfinishSalesContractList.BuyNameChange(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); +end; + +procedure TfrmfinishSalesContractList.tchkClick(Sender: TObject); +var + MConMIDS: string; +begin + if CDS_1.IsEmpty then + exit; + if not CDS_1.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + with CDS_1 do + begin + DisableControls; + First; + MConMIDS := ''; + while not eof do + begin + if fieldbyname('SSel').AsBoolean then + begin + MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ','; + end; + next; + end; + MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1); + EnableControls; + end; + + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_CP_Contract_SetStatus '); + sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS)); + sql.Add(',@Operation='''' '); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('Ʒۺͬ'))); + sql.Add(',' + quotedstr(trim('ͬID' + trim(MConMIDS)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + application.MessageBox('˳ɹ', 'ʾ'); + InitGrid(); + except + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); + end; + +end; + +procedure TfrmfinishSalesContractList.TnochkClick(Sender: TObject); +var + MConMIDS: string; +begin + if CDS_1.IsEmpty then + exit; + if not CDS_1.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + with CDS_1 do + begin + DisableControls; + First; + MConMIDS := ''; + while not eof do + begin + if fieldbyname('SSel').AsBoolean then + begin + MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ','; + end; + next; + end; + MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1); + EnableControls; + end; + + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_CP_Contract_SetStatus '); + sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS)); + sql.Add(',@Operation='''' '); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('Ʒۺͬ'))); + sql.Add(',' + quotedstr(trim('ͬID' + trim(MConMIDS)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + open; + end; + + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + application.MessageBox('˳ɹ', 'ʾ'); + InitGrid(); + except + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); + end; + +end; + +procedure TfrmfinishSalesContractList.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + TBRafresh.Click; +end; + +procedure TfrmfinishSalesContractList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + InitSub(); +end; + +procedure TfrmfinishSalesContractList.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +begin + with ADOQuery1 do + begin + close; + sql.Clear; + sql.Add('select * from TP_File A'); + sql.Add('where WBID =' + quotedstr(trim(CDS_2.fieldbyname('AttName').AsString))); +// ShowMessage(sql.text); + open; + end; +end; + +procedure TfrmfinishSalesContractList.TqxClick(Sender: TObject); +var + MConMIDS: string; +begin + if CDS_1.IsEmpty then + exit; + if not CDS_1.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + with CDS_1 do + begin + DisableControls; + First; + MConMIDS := ''; + while not eof do + begin + if fieldbyname('SSel').AsBoolean then + begin + MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ','; + end; + next; + end; + MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1); + EnableControls; + end; + + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_BS_Contract_SetStatus '); + sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS)); + sql.Add(',@Operation=''ȡ'' '); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ͬȡ'))); + sql.Add(',' + quotedstr(trim('ͬID' + trim(MConMIDS)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + application.MessageBox('ȡɹ', 'ʾ'); + InitGrid(); + except + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); + end; + +end; + +procedure TfrmfinishSalesContractList.TnoqxClick(Sender: TObject); +var + MConMIDS: string; +begin + if CDS_1.IsEmpty then + exit; + if not CDS_1.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + with CDS_1 do + begin + DisableControls; + First; + MConMIDS := ''; + while not eof do + begin + if fieldbyname('SSel').AsBoolean then + begin + MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ','; + end; + next; + end; + MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1); + EnableControls; + end; + + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ͬȡ'))); + sql.Add(',' + quotedstr(trim('ͬID' + trim(MConMIDS)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + + sql.Add(' exec P_BS_Contract_SetStatus '); + sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS)); + sql.Add(',@Operation=''ȡ'' '); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + ShowMessage(sql.Text); + open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + application.MessageBox('ȡɹ', 'ʾ'); + InitGrid(); + except + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); + end; + +end; + +procedure TfrmfinishSalesContractList.ToolButton5Click(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + try + frmAttachmentUpload := TfrmAttachmentUpload.Create(Application); + with frmAttachmentUpload do + begin + fkeyNO := Trim(Self.CDS_1.fieldbyname('ConMID').AsString); + fType := 'ͬ'; + FEditAuthority := True; + if ShowModal = 1 then + begin + + end; + end; + finally + frmAttachmentUpload.Free; + end; +end; + +procedure TfrmfinishSalesContractList.ToolButton7Click(Sender: TObject); +begin + writeCxGrid(trim(Self.Caption) + 'tv1', Tv1, 'ۺͬ'); + writeCxGrid(trim(Self.Caption) + 'tv2', Tv2, 'ۺͬ'); +end; + +procedure TfrmfinishSalesContractList.btnWCCXClick(Sender: TObject); +var + MConMIDS: string; +begin + if CDS_1.IsEmpty then + exit; + if not CDS_1.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + with CDS_1 do + begin + DisableControls; + First; + MConMIDS := ''; + while not eof do + begin + if fieldbyname('SSel').AsBoolean then + begin + MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ','; + end; + next; + end; + MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1); + EnableControls; + end; + + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_CP_Contract_SetStatus '); + sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS)); + sql.Add(',@Operation='''' '); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('Ʒۺͬ'))); + sql.Add(',' + quotedstr(trim('ͬID' + trim(MConMIDS)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + application.MessageBox('ɳɹ', 'ʾ'); + InitGrid(); + except + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); + end; + +end; + +procedure TfrmfinishSalesContractList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('status').Index] = '2' then + ACanvas.Brush.Color := clLime; +end; + +procedure TfrmfinishSalesContractList.btnTijiaoClick(Sender: TObject); +var + MConMIDS: string; +begin + if CDS_1.IsEmpty then + exit; + if not CDS_1.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; +// if Order_Sub.IsEmpty then +// raise Exception.Create('ϸΪգ'); + with CDS_1 do + begin + DisableControls; + First; + MConMIDS := ''; + while not eof do + begin + if fieldbyname('SSel').AsBoolean then + begin + MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ','; + end; + next; + end; + MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1); + EnableControls; + end; + + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_CP_Contract_SetStatus '); + sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS)); + sql.Add(',@Operation=''ύ'' '); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('Ʒۺͬύ'))); + sql.Add(',' + quotedstr(trim('ͬID' + trim(MConMIDS)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + open; + end; + + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + application.MessageBox('ύɹ', 'ʾ'); + InitGrid(); + except + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); + end; + +end; + +procedure TfrmfinishSalesContractList.btnCXTijiaoClick(Sender: TObject); +var + MConMIDS: string; +begin + if CDS_1.IsEmpty then + exit; + if not CDS_1.Locate('SSel', True, []) then + begin + application.MessageBox('ѡ', 'ʾ'); + Exit; + end; + with CDS_1 do + begin + DisableControls; + First; + MConMIDS := ''; + while not eof do + begin + if fieldbyname('SSel').AsBoolean then + begin + MConMIDS := MConMIDS + trim(fieldbyname('ConMID').AsString) + ','; + end; + next; + end; + MConMIDS := copy(MConMIDS, 1, Length(MConMIDS) - 1); + EnableControls; + end; + + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_CP_Contract_SetStatus '); + sql.Add(' @ConMIDS=' + QuotedStr(MConMIDS)); + sql.Add(',@Operation=''ύ'' '); + Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); + Sql.Add(',@DName=' + quotedstr(Trim(DName))); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('Ʒۺͬύ'))); + sql.Add(',' + quotedstr(trim('ͬID' + trim(MConMIDS)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + application.MessageBox('ύɹ', 'ʾ'); + InitGrid(); + except + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + InitGrid(); + end; + +end; + +end. +