diff --git a/A09财务通用管理/Financial.dproj.local b/A09财务通用管理/Financial.dproj.local index 6f7fb91..ab5a195 100644 --- a/A09财务通用管理/Financial.dproj.local +++ b/A09财务通用管理/Financial.dproj.local @@ -1,69 +1,69 @@  + 1899-12-30 00:00:00.000.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm 1899-12-30 00:00:00.000.349,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_PictureUpload.pas 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas 1899-12-30 00:00:00.000.318,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_ProductInfoSel.pas 1899-12-30 00:00:00.000.927,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableList.pas - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.dfm - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.pas - 1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas - 1899-12-30 00:00:00.000.753,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas - 1899-12-30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas - 1899-12-30 00:00:00.000.715,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.dfm - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm - 1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm + 1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm + 1899-12-30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj + 1899-12-30 00:00:00.000.654,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableInPut.pas + 1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.552,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas= - 1899-12-30 00:00:00.000.402,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas + 1899-12-30 00:00:00.000.753,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.715,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas + 1899-12-30 00:00:00.000.110,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableList.dfm + 1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.dfm 1899-12-30 00:00:00.000.095,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableImport.pas - 1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas - 1899-12-30 00:00:00.000.654,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas - 1899-12-30 00:00:00.000.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.pas - 1899-12-30 00:00:00.000.110,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas - 1899-12-30 00:00:00.000.110,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm - 1899-12-30 00:00:00.000.061,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.pas - 1899-12-30 00:00:00.000.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899-12-30 00:00:00.000.552,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas= + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.pas + 1899-12-30 00:00:00.000.402,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas + 1899-12-30 00:00:00.000.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas + 1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.860,=D:\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxList.pas + 1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.pas + 1899-12-30 00:00:00.000.061,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.pas + 1899-12-30 00:00:00.000.072,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_FinFileUp.pas 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.654,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm 1899-12-30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.dfm=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.072,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_FinFileUp.pas - 1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.646,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_PayableEdit.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.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.dfm - 1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.110,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableList.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas - 1899-12-30 00:00:00.000.433,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_FtyFileUp.pas - 1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm - 1899-12-30 00:00:00.000.860,=D:\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxList.pas - 1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxInput.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.654,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_ClaimsableInPut.dfm + 1899-12-30 00:00:00.000.646,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_PayableEdit.pas + 1899-12-30 00:00:00.000.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.dfm 1899-12-30 00:00:00.000.487,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableInput.pas + 1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas + 1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\D10zzbiaoqi\A09财务通用管理\U_TaxInput.pas + 1899-12-30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.433,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_FtyFileUp.pas diff --git a/A09财务通用管理/U_PayableList.pas b/A09财务通用管理/U_PayableList.pas index 33618f4..d41ea85 100644 --- a/A09财务通用管理/U_PayableList.pas +++ b/A09财务通用管理/U_PayableList.pas @@ -207,7 +207,7 @@ begin end; sql.Add(WSql); sql.Add('Order By FFTime,OppCoName,OrderNo'); - ShowMessage(sql.text) ; + //ShowMessage(sql.text) ; Open; end; SCreateCDS(ADOQueryMain, CDS_1); diff --git a/A09财务通用管理/U_ReceivableInput.dfm b/A09财务通用管理/U_ReceivableInput.dfm index e3e46e3..738ff27 100644 --- a/A09财务通用管理/U_ReceivableInput.dfm +++ b/A09财务通用管理/U_ReceivableInput.dfm @@ -470,8 +470,8 @@ object frmReceivableInput: TfrmReceivableInput OnBtnDnClick = PayMentBtnDnClick end object OppCoName: TBtnEditC - Left = 299 - Top = 17 + Left = 303 + Top = 21 Width = 140 Height = 20 Font.Charset = GB2312_CHARSET @@ -634,7 +634,7 @@ object frmReceivableInput: TfrmReceivableInput Width = 140 end object OrderNo: TBtnEditC - Left = 298 + Left = 302 Top = 47 Width = 140 Height = 20 diff --git a/A09财务通用管理/U_TaxInput.dfm b/A09财务通用管理/U_TaxInput.dfm index e72bc18..602d4ff 100644 --- a/A09财务通用管理/U_TaxInput.dfm +++ b/A09财务通用管理/U_TaxInput.dfm @@ -2,8 +2,8 @@ object frmTaxInput: TfrmTaxInput Left = 261 Top = 149 Caption = #31246#36153#30331#35760 - ClientHeight = 325 - ClientWidth = 1144 + ClientHeight = 280 + ClientWidth = 1135 Color = clWhite Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -22,7 +22,7 @@ object frmTaxInput: TfrmTaxInput Tag = 1 Left = 0 Top = 0 - Width = 1144 + Width = 1135 Height = 38 AutoSize = True ButtonHeight = 38 @@ -55,8 +55,8 @@ object frmTaxInput: TfrmTaxInput object ScrollBox1: TScrollBox Left = 0 Top = 38 - Width = 1144 - Height = 287 + Width = 1135 + Height = 242 Align = alClient BevelInner = bvNone BevelOuter = bvNone @@ -72,10 +72,9 @@ object frmTaxInput: TfrmTaxInput ParentCtl3D = False ParentFont = False TabOrder = 1 - ExplicitHeight = 281 object Label7: TLabel Left = 30 - Top = 207 + Top = 163 Width = 41 Height = 15 Caption = #22791' '#27880 @@ -88,7 +87,7 @@ object frmTaxInput: TfrmTaxInput end object Label1: TLabel Left = 30 - Top = 31 + Top = 6 Width = 52 Height = 15 Caption = #32463#33829#21333#20301 @@ -101,7 +100,7 @@ object frmTaxInput: TfrmTaxInput end object Label2: TLabel Left = 261 - Top = 31 + Top = 6 Width = 52 Height = 15 Caption = #35745#21010#21333#21495 @@ -114,7 +113,7 @@ object frmTaxInput: TfrmTaxInput end object Label3: TLabel Left = 482 - Top = 31 + Top = 6 Width = 26 Height = 15 Caption = #23458#25143 @@ -127,7 +126,7 @@ object frmTaxInput: TfrmTaxInput end object Label4: TLabel Left = 715 - Top = 31 + Top = 6 Width = 52 Height = 15 Caption = #20135#21697#21517#31216 @@ -140,7 +139,7 @@ object frmTaxInput: TfrmTaxInput end object Label5: TLabel Left = 917 - Top = 31 + Top = 6 Width = 39 Height = 15 Caption = #19994#21153#21592 @@ -153,7 +152,7 @@ object frmTaxInput: TfrmTaxInput end object Label6: TLabel Left = 30 - Top = 63 + Top = 38 Width = 78 Height = 15 Caption = #22806#24065#26680#38144#37329#39069 @@ -166,7 +165,7 @@ object frmTaxInput: TfrmTaxInput end object Label8: TLabel Left = 262 - Top = 62 + Top = 37 Width = 52 Height = 15 Caption = #26680#38144#27719#29575 @@ -179,7 +178,7 @@ object frmTaxInput: TfrmTaxInput end object Label9: TLabel Left = 482 - Top = 63 + Top = 38 Width = 91 Height = 15 Caption = #20154#27665#24065#26680#38144#37329#39069 @@ -192,7 +191,7 @@ object frmTaxInput: TfrmTaxInput end object Label10: TLabel Left = 715 - Top = 63 + Top = 38 Width = 52 Height = 15 Caption = #26159#21542#21547#31246 @@ -205,7 +204,7 @@ object frmTaxInput: TfrmTaxInput end object Label11: TLabel Left = 917 - Top = 62 + Top = 37 Width = 52 Height = 15 Caption = #21046#21333#26085#26399 @@ -218,7 +217,7 @@ object frmTaxInput: TfrmTaxInput end object Label12: TLabel Left = 31 - Top = 91 + Top = 66 Width = 78 Height = 15 Caption = #22806#24065#23454#26680#21333#20301 @@ -231,7 +230,7 @@ object frmTaxInput: TfrmTaxInput end object Label13: TLabel Left = 261 - Top = 92 + Top = 67 Width = 78 Height = 15 Caption = #22806#24065#23454#26680#27719#29575 @@ -244,7 +243,7 @@ object frmTaxInput: TfrmTaxInput end object Label14: TLabel Left = 482 - Top = 92 + Top = 67 Width = 91 Height = 15 Caption = #20154#27665#24065#23454#25910#37329#39069 @@ -257,7 +256,7 @@ object frmTaxInput: TfrmTaxInput end object Label15: TLabel Left = 715 - Top = 92 + Top = 67 Width = 52 Height = 15 Caption = #36864#31246#25910#30410 @@ -270,7 +269,7 @@ object frmTaxInput: TfrmTaxInput end object Label16: TLabel Left = 917 - Top = 91 + Top = 66 Width = 78 Height = 15 Caption = #25104#21697#24320#31080#37329#39069 @@ -283,7 +282,7 @@ object frmTaxInput: TfrmTaxInput end object Label17: TLabel Left = 31 - Top = 124 + Top = 99 Width = 52 Height = 15 Caption = #22269#22320#31246#29575 @@ -296,7 +295,7 @@ object frmTaxInput: TfrmTaxInput end object Label18: TLabel Left = 261 - Top = 124 + Top = 99 Width = 52 Height = 15 Caption = #22686#20540#31246#29575 @@ -309,7 +308,7 @@ object frmTaxInput: TfrmTaxInput end object Label19: TLabel Left = 482 - Top = 124 + Top = 99 Width = 52 Height = 15 Caption = #20854#20182#31246#29575 @@ -322,7 +321,7 @@ object frmTaxInput: TfrmTaxInput end object Label22: TLabel Left = 31 - Top = 150 + Top = 125 Width = 87 Height = 15 Caption = #22806#24065#25910#30410'(RMB)' @@ -335,7 +334,7 @@ object frmTaxInput: TfrmTaxInput end object Label23: TLabel Left = 261 - Top = 150 + Top = 125 Width = 78 Height = 15 Caption = #36864#31246#29702#35770#25910#30410 @@ -348,7 +347,7 @@ object frmTaxInput: TfrmTaxInput end object Label24: TLabel Left = 482 - Top = 152 + Top = 127 Width = 39 Height = 15 Caption = #22269#22320#31246 @@ -361,7 +360,7 @@ object frmTaxInput: TfrmTaxInput end object Label25: TLabel Left = 715 - Top = 153 + Top = 128 Width = 52 Height = 15 Caption = #20854#20182#31246#36153 @@ -374,7 +373,7 @@ object frmTaxInput: TfrmTaxInput end object Note: TMemo Left = 93 - Top = 199 + Top = 155 Width = 1020 Height = 57 ScrollBars = ssVertical @@ -382,91 +381,91 @@ object frmTaxInput: TfrmTaxInput end object CBusiness_unit: TEdit Left = 129 - Top = 31 + Top = 6 Width = 121 Height = 18 TabOrder = 1 end object CCustomer: TEdit Left = 577 - Top = 30 + Top = 5 Width = 121 Height = 18 TabOrder = 2 end object CC_Name: TEdit Left = 775 - Top = 30 + Top = 5 Width = 121 Height = 18 TabOrder = 3 end object Csalesman: TEdit Left = 1001 - Top = 30 + Top = 5 Width = 121 Height = 18 TabOrder = 4 end object C_WBHXJE: TEdit Left = 128 - Top = 62 + Top = 37 Width = 121 Height = 18 TabOrder = 5 end object C_HXrate: TEdit Left = 346 - Top = 62 + Top = 37 Width = 121 Height = 18 TabOrder = 6 end object C_RMBHXJE: TEdit Left = 579 - Top = 62 + Top = 37 Width = 121 Height = 18 TabOrder = 7 end object SFHS: TEdit Left = 775 - Top = 62 + Top = 37 Width = 121 Height = 18 TabOrder = 8 end object CWBSHJE: TEdit Left = 128 - Top = 91 + Top = 66 Width = 121 Height = 18 TabOrder = 9 end object CWBSHrate: TEdit Left = 346 - Top = 91 + Top = 66 Width = 121 Height = 18 TabOrder = 10 end object CRMBSSJE: TEdit Left = 579 - Top = 92 + Top = 67 Width = 121 Height = 18 TabOrder = 11 end object CTSSY: TEdit Left = 775 - Top = 91 + Top = 66 Width = 121 Height = 18 TabOrder = 12 end object CCPKPJE: TEdit Left = 1002 - Top = 91 + Top = 66 Width = 121 Height = 18 TabOrder = 13 @@ -474,7 +473,7 @@ object frmTaxInput: TfrmTaxInput end object CGDSL: TEdit Left = 128 - Top = 121 + Top = 96 Width = 121 Height = 18 TabOrder = 14 @@ -482,7 +481,7 @@ object frmTaxInput: TfrmTaxInput end object CRate: TEdit Left = 346 - Top = 121 + Top = 96 Width = 121 Height = 18 TabOrder = 15 @@ -490,7 +489,7 @@ object frmTaxInput: TfrmTaxInput end object COrtherRate: TEdit Left = 579 - Top = 124 + Top = 99 Width = 121 Height = 18 TabOrder = 16 @@ -498,35 +497,35 @@ object frmTaxInput: TfrmTaxInput end object CWBSY: TEdit Left = 128 - Top = 150 + Top = 125 Width = 121 Height = 18 TabOrder = 17 end object TSLLSY: TEdit Left = 346 - Top = 150 + Top = 125 Width = 121 Height = 18 TabOrder = 18 end object GDS: TEdit Left = 578 - Top = 152 + Top = 127 Width = 121 Height = 18 TabOrder = 19 end object COrderSF: TEdit Left = 773 - Top = 152 + Top = 127 Width = 121 Height = 18 TabOrder = 20 end object CZDDate: TDateTimePicker Left = 1004 - Top = 61 + Top = 36 Width = 121 Height = 20 BevelInner = bvNone @@ -537,7 +536,7 @@ object frmTaxInput: TfrmTaxInput end object COrderNo: TBtnEditC Left = 346 - Top = 30 + Top = 5 Width = 121 Height = 20 Font.Charset = GB2312_CHARSET diff --git a/A09财务通用管理/U_TaxInput.pas b/A09财务通用管理/U_TaxInput.pas index 898b19a..350d8ad 100644 --- a/A09财务通用管理/U_TaxInput.pas +++ b/A09财务通用管理/U_TaxInput.pas @@ -332,13 +332,29 @@ begin begin if ShowModal = 1 then begin - CBusiness_unit.Text := Trim(CDS_1.fieldbyname('OppCoName').AsString); + CBusiness_unit.Text := Trim(CDS_1.fieldbyname('OurCoName').AsString); COrderNo.Text := Trim(CDS_1.fieldbyname('OrderNo').AsString); - CCustomer.Text := Trim(CDS_1.fieldbyname('BuyConNo').AsString); - CC_Name.Text := Trim(CDS_1.fieldbyname('F_Name').AsString); - CZDDate.Date := CDS_1.fieldbyname('FFTime').AsDateTime; - C_WBHXJE.Text := Trim(CDS_1.fieldbyname('TotalUSD').AsString); - C_RMBHXJE.Text := Trim(CDS_1.fieldbyname('TotalCNY').AsString); + CCustomer.Text := Trim(CDS_1.fieldbyname('CustName').AsString); + CC_Name.Text := Trim(CDS_1.fieldbyname('C_Name').AsString); + CZDDate.Date := CDS_1.fieldbyname('OrdDate').AsDateTime; + C_WBHXJE.Text := Trim(CDS_1.fieldbyname('SumUSD').AsString); + C_RMBHXJE.Text := Trim(CDS_1.fieldbyname('SumCNY').AsString); + C_HXrate.Text := Trim(CDS_1.fieldbyname('HXHV').AsString); + with ADOQueryTemp do + begin + close; + sql.Clear; + sql.Add(' SELECT STUFF('); + sql.Add(' (SELECT '','' + CAST(CAST(A.WoJHExchangeRate AS DECIMAL(18, 2)) AS VARCHAR)'); + sql.Add(' FROM Finance_WriteOff A'); + sql.Add(' INNER JOIN Finance_Flow B ON A.FromId = B.FFID'); + sql.Add(' INNER JOIN Finance_Flow C ON A.ToId = C.FFID'); + sql.Add(' WHERE C.OrderNo = ' + quotedstr(COrderNo.Text)); + sql.Add(' FOR XML PATH('''')),'); + sql.Add('1, 1, '''') AS WoJHExchangeRates'); + open; + end; + C_HXrate.Text := ADOQueryTemp.FieldByName('WoJHExchangeRates').AsString; end; end; finally diff --git a/A09财务通用管理/U_TaxList.dfm b/A09财务通用管理/U_TaxList.dfm index 4b289a3..196f031 100644 --- a/A09财务通用管理/U_TaxList.dfm +++ b/A09财务通用管理/U_TaxList.dfm @@ -258,7 +258,7 @@ inherited frmTaxList: TfrmTaxList Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitTop = 87 + ExplicitTop = 73 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False diff --git a/A09财务通用管理/U_TaxList.pas b/A09财务通用管理/U_TaxList.pas index eae7f75..3292ca3 100644 --- a/A09财务通用管理/U_TaxList.pas +++ b/A09财务通用管理/U_TaxList.pas @@ -229,54 +229,116 @@ begin Close; end; +//procedure TfrmTaxList.btnDelClick(Sender: TObject); +//var +// FFFIDS: 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; +// while CDS_1.Locate('SSel', True, []) do +// begin +// FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('CostMID').AsString) + ','; +// CDS_1.Delete; +// end; +// EnableControls; +// end; +// +// try +// ADOQueryCmd.Connection.BeginTrans; +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add(' exec P_Fin_Flow_Del '); +// sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); +// Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); +// Sql.Add(',@DName=' + quotedstr(Trim(DName))); +// open; +// end; +// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then +// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); +// ADOQueryCmd.Connection.CommitTrans; +// application.MessageBox('ɾɹ', 'ʾ'); +// except +// ADOQueryCmd.Connection.RollbackTrans; +// application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); +// InitGrid(); +// end; +// +//end; + procedure TfrmTaxList.btnDelClick(Sender: TObject); var FFFIDS: string; + SQL: string; + bSuccess: Boolean; + IDs: TStringList; + i: Integer; begin if CDS_1.IsEmpty then - exit; + Exit; if not CDS_1.Locate('SSel', True, []) then begin - application.MessageBox('ѡ', 'ʾ'); + Application.MessageBox('ѡ', 'ʾ', MB_OK); Exit; end; - with CDS_1 do begin DisableControls; - while CDS_1.Locate('SSel', True, []) do - begin - FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('CostMID').AsString) + ','; - CDS_1.Delete; + try + while Locate('SSel', True, []) do + begin + FFFIDS := FFFIDS + QuotedStr(Trim(FieldByName('CostMID').AsString)) + ','; + Delete; + end; + finally + EnableControls; end; - EnableControls; end; + if (FFFIDS <> '') and (FFFIDS[Length(FFFIDS)] = ',') then + Delete(FFFIDS, Length(FFFIDS), 1); + if FFFIDS = '' then + Exit; + bSuccess := False; try ADOQueryCmd.Connection.BeginTrans; - with ADOQueryCmd do - begin - Close; - sql.Clear; - sql.Add(' exec P_Fin_Flow_Del '); - sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); - Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); - Sql.Add(',@DName=' + quotedstr(Trim(DName))); - open; + try + SQL := 'DELETE FROM Costing_Table WHERE CostMID IN (' + FFFIDS + ')'; + ADOQueryCmd.SQL.Text := SQL; + ADOQueryCmd.ExecSQL; + + ADOQueryCmd.Connection.CommitTrans; + bSuccess := True; + InitGrid(); + except + ADOQueryCmd.Connection.RollbackTrans; + raise; end; - if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then - raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); - ADOQueryCmd.Connection.CommitTrans; - application.MessageBox('ɾɹ', 'ʾ'); except - ADOQueryCmd.Connection.RollbackTrans; - application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); - InitGrid(); + on E: Exception do + begin + Application.MessageBox(PChar('ɾʧ: ' + E.Message), 'ʾϢ', MB_ICONERROR); + InitGrid(); + end; end; + if bSuccess then + Application.MessageBox('ɾɹ', 'ʾ', MB_OK); end; + procedure TfrmTaxList.FormShow(Sender: TObject); begin inherited; @@ -284,7 +346,9 @@ begin Enddate.DateTime := SGetServerDate(ADOQueryTemp); SetDate1.DateTime := SGetServerDate(ADOQueryTemp); SetDate2.DateTime := SGetServerDate(ADOQueryTemp); - begdate.DateTime := Enddate.DateTime - 91; + //begdate.DateTime := Enddate.DateTime - 91; + EndDate.DateTime := SGetServerDate(ADOQueryTemp); + BegDate.DateTime := SGetServerDate(ADOQueryTemp)-91; FAuthority := self.fParameters1; SetStatus(); InitGrid(); @@ -716,8 +780,8 @@ begin frmTaxInput := TfrmTaxInput.Create(Application); with frmTaxInput do begin -// FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); -// PState := ''; + FFFID := Trim(SELF.CDS_1.fieldbyname('CostMID').AsString); + PState := ''; if ShowModal = 1 then begin InitGrid(); @@ -782,29 +846,29 @@ end; procedure TfrmTaxList.btnEditClick(Sender: TObject); begin - try - with ADOQueryCmd do - begin - Close; - sql.Clear; - sql.Add(' exec P_Fin_Flow_Judge '); - sql.Add(' @FFIDS=' + QuotedStr(Trim(SELF.CDS_1.fieldbyname('FFID').AsString))); - Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); - Sql.Add(',@DName=' + quotedstr(Trim(DName))); - open; - end; - if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then - raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); - except - application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); - Exit; - end; +// try +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add(' exec P_Fin_Flow_Judge '); +// sql.Add(' @FFIDS=' + QuotedStr(Trim(SELF.CDS_1.fieldbyname('FFID').AsString))); +// Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); +// Sql.Add(',@DName=' + quotedstr(Trim(DName))); +// open; +// end; +// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then +// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); +// except +// application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); +// Exit; +// end; try frmTaxInput := TfrmTaxInput.Create(Application); with frmTaxInput do begin - FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); + FFFID := Trim(SELF.CDS_1.fieldbyname('CostMID').AsString); if ShowModal = 1 then begin InitGrid(); diff --git a/A09财务通用管理/U_TaxSel.dfm b/A09财务通用管理/U_TaxSel.dfm index d50f241..67b8dd5 100644 --- a/A09财务通用管理/U_TaxSel.dfm +++ b/A09财务通用管理/U_TaxSel.dfm @@ -73,18 +73,18 @@ inherited frmTaxSel: TfrmTaxSel object Label1: TLabel Left = 18 Top = 17 - Width = 24 + Width = 48 Height = 12 - Caption = #21517#31216 + Caption = #35745#21010#21333#21495 end - object CoName: TEdit + object OrderNo: TEdit Tag = 2 - Left = 53 + Left = 71 Top = 12 Width = 169 Height = 20 TabOrder = 0 - OnChange = CoNameChange + OnChange = OrderNoChange end end object cxGrid2: TcxGrid [2] @@ -94,7 +94,8 @@ inherited frmTaxSel: TfrmTaxSel Height = 476 Align = alClient TabOrder = 2 - ExplicitTop = 88 + ExplicitLeft = 8 + ExplicitTop = 76 object Tv1: TcxGridDBTableView OnDblClick = TV1DblClick Navigator.Buttons.CustomButtons = <> @@ -159,7 +160,7 @@ inherited frmTaxSel: TfrmTaxSel end object Tv1Column1: TcxGridDBColumn Caption = #32463#33829#21333#20301 - DataBinding.FieldName = 'OppCoName' + DataBinding.FieldName = 'OurCoName' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 78 @@ -167,7 +168,7 @@ inherited frmTaxSel: TfrmTaxSel object v2Column1: TcxGridDBColumn Tag = 2 Caption = #23458#25143 - DataBinding.FieldName = 'BuyConNo' + DataBinding.FieldName = 'CustName' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < @@ -178,10 +179,16 @@ inherited frmTaxSel: TfrmTaxSel HeaderAlignmentHorz = taCenter Width = 85 end + object Tv1Column3: TcxGridDBColumn + Caption = #26159#21542#21547#31246 + DataBinding.FieldName = 'ISTax' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end object v1Column8: TcxGridDBColumn Tag = 2 Caption = #20135#21697#21517#31216 - DataBinding.FieldName = 'F_Name' + DataBinding.FieldName = 'C_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter @@ -207,13 +214,19 @@ inherited frmTaxSel: TfrmTaxSel end object Tv1Column4: TcxGridDBColumn Caption = #21046#21333#26085#26399 - DataBinding.FieldName = 'FFTime' + DataBinding.FieldName = 'OrdDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + object Tv1Column6: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Saleser' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object v1Column9: TcxGridDBColumn Caption = #32654#37329#26680#38144#37329#39069 - DataBinding.FieldName = 'TotalUSD' + DataBinding.FieldName = 'SumUSD' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 90 @@ -230,20 +243,16 @@ inherited frmTaxSel: TfrmTaxSel object v1Column12: TcxGridDBColumn Tag = 2 Caption = #20154#27665#24065#26680#38144#37329#39069 - DataBinding.FieldName = 'TotalCNY' + DataBinding.FieldName = 'SumCNY' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 90 end - object Tv1Column3: TcxGridDBColumn - Caption = #26159#21542#21547#31246 - DataBinding.FieldName = 'SFHS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - end object Tv1Column5: TcxGridDBColumn + Caption = #26680#38144#27719#29575 DataBinding.FieldName = 'HXHV' DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter end end object cxGrid2Level1: TcxGridLevel diff --git a/A09财务通用管理/U_TaxSel.pas b/A09财务通用管理/U_TaxSel.pas index cc9d03f..0ebbdae 100644 --- a/A09财务通用管理/U_TaxSel.pas +++ b/A09财务通用管理/U_TaxSel.pas @@ -27,7 +27,7 @@ type ADOConnection1: TADOConnection; Panel1: TPanel; Label1: TLabel; - CoName: TEdit; + OrderNo: TEdit; GPM_1: TcxGridPopupMenu; ImageList1: TImageList; ThreeColorBase: TcxStyleRepository; @@ -61,6 +61,7 @@ type Tv1Column3: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); @@ -69,7 +70,7 @@ type procedure TBSaveClick(Sender: TObject); procedure TV1DblClick(Sender: TObject); procedure TBCloseClick(Sender: TObject); - procedure CoNameChange(Sender: TObject); + procedure OrderNoChange(Sender: TObject); private procedure InitGrid(); { Private declarations } @@ -105,7 +106,7 @@ begin end; end; -procedure TfrmTaxSel.CoNameChange(Sender: TObject); +procedure TfrmTaxSel.OrderNoChange(Sender: TObject); begin if ADOQueryMain.Active then begin @@ -119,7 +120,7 @@ end; procedure TfrmTaxSel.FormClose(Sender: TObject; var Action: TCloseAction); begin - CoName.SetFocus; +// OrderNo.SetFocus; Action := cahide; end; @@ -132,19 +133,21 @@ begin begin Close; sql.Clear; - sql.Add('SELECT '); - sql.Add(' OrderNo,OppCoName,BuyConNo,F_Name,FFTime,'); - sql.Add(' SUM(CASE WHEN Currency = ''CNY'' THEN Amount ELSE 0 END) AS TotalCNY,'); - sql.Add(' SUM(CASE WHEN Currency = ''USD'' THEN Amount ELSE 0 END) AS TotalUSD'); - - SQL.add('( SELECT STUFF((SELECT '','' + CAST(H.WoJhExchangeRate AS VARCHAR) FROM V_HXHL H WHERE H.OrderNo = F.OrderNo FOR XML PATH('''')), 1, 1, '''') ) as HXHV'); - sql.Add('FROM '); - sql.Add(' Finance_Flow'); - sql.Add('where FFFlag = ''Ӧ'' '); - sql.Add('GROUP BY '); - sql.Add(' OrderNo,OppCoName,BuyConNo,F_Name,FFTime'); - sql.Add('ORDER BY '); - sql.Add(' OrderNo'); +// sql.Add('SELECT '); +// sql.Add(' OrderNo,OppCoName,BuyConNo,F_Name,FFTime,'); +// sql.Add(' SUM(CASE WHEN Currency = ''CNY'' THEN Amount ELSE 0 END) AS TotalCNY,'); +// sql.Add(' SUM(CASE WHEN Currency = ''USD'' THEN Amount ELSE 0 END) AS TotalUSD,'); +// +// SQL.add('( SELECT STUFF((SELECT '','' + CAST(H.WoJhExchangeRate AS VARCHAR) FROM V_HXHL H WHERE H.OrderNo = F.OrderNo FOR XML PATH('''')), 1, 1, '''') ) as HXHV'); +// sql.Add('FROM '); +// sql.Add(' Finance_Flow F'); +// sql.Add('where FFFlag = ''Ӧ'' '); +// sql.Add('GROUP BY '); +// sql.Add(' OrderNo,OppCoName,BuyConNo,F_Name,FFTime'); +// sql.Add('ORDER BY '); +// sql.Add(' OrderNo'); +// ShowMessage(SQL.text); + sql.Add('select * from V_Tax'); Open; end; @@ -209,7 +212,7 @@ end; procedure TfrmTaxSel.ToolButton1Click(Sender: TObject); begin - CoName.SetFocus; +// CoName.SetFocus; ModalResult := 1; end; diff --git a/B01基础合同管理/Contract.dproj.local b/B01基础合同管理/Contract.dproj.local index 210db90..612b436 100644 --- a/B01基础合同管理/Contract.dproj.local +++ b/B01基础合同管理/Contract.dproj.local @@ -1,87 +1,87 @@  - 1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.289,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas= - 1899/12/30 00:00:00.000.618,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas - 1899/12/30 00:00:00.000.514,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899/12/30 00:00:00.000.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.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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas= - 1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_Img.dfm=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm - 1899/12/30 00:00:00.000.872,=D:\Dp10Repo\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.114,=D:\Dp10Repo\项目代码\骉骐\B01基础合同管理\U_ContractList.pas - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm - 1899/12/30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas - 1899/12/30 00:00:00.000.415,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.dfm - 1899/12/30 00:00:00.000.700,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_QMFileUp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.dfm - 1899/12/30 00:00:00.000.322,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BaoguanInPut.pas - 1899/12/30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas - 1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= - 1899/12/30 00:00:00.000.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas= - 1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899/12/30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.428,=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.348,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.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899/12/30 00:00:00.000.700,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_QMFileUp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.pas - 1899/12/30 00:00:00.000.217,=D:\Dp10Repo\项目代码\骉骐\B01基础合同管理\U_SalesConInPutCopy.pas - 1899/12/30 00:00:00.000.929,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.pas - 1899/12/30 00:00:00.000.415,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.345,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.063,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas= - 1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_Img.pas=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.609,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BaoguanList.pas - 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.802,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.dfm=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm - 1899/12/30 00:00:00.000.514,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.dfm=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm - 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.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.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.514,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.dfm + 1899-12-30 00:00:00.000.802,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.dfm + 1899-12-30 00:00:00.000.621,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_Img.dfm + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.929,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.pas + 1899-12-30 00:00:00.000.700,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_QMFileUp.pas + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.415,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.dfm=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.dfm + 1899-12-30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas= + 1899-12-30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899-12-30 00:00:00.000.609,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BaoguanList.pas + 1899-12-30 00:00:00.000.114,=D:\Dp10Repo\项目代码\骉骐\B01基础合同管理\U_ContractList.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.621,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_Img.pas + 1899-12-30 00:00:00.000.063,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.345,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.514,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas + 1899-12-30 00:00:00.000.564,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.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.872,=D:\Dp10Repo\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.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm + 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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas= + 1899-12-30 00:00:00.000.217,=D:\Dp10Repo\项目代码\骉骐\B01基础合同管理\U_SalesConInPutCopy.pas + 1899-12-30 00:00:00.000.802,D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.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.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.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.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.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.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm + 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm + 1899-12-30 00:00:00.000.700,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BGZFileUp.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_QMFileUp.dfm + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm + 1899-12-30 00:00:00.000.618,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas + 1899-12-30 00:00:00.000.289,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas= + 1899-12-30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.415,D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_ZDYHelp_KH.pas=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas= + 1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\U_BaoguanInPut.pas + 1899-12-30 00:00:00.000.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= + 1899-12-30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas + 1899-12-30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas= diff --git a/B01基础合同管理/Contract.identcache b/B01基础合同管理/Contract.identcache index 5f98609..7459668 100644 Binary files a/B01基础合同管理/Contract.identcache and b/B01基础合同管理/Contract.identcache differ diff --git a/B01基础合同管理/Contract.res b/B01基础合同管理/Contract.res index d89f1dd..4f1dabf 100644 Binary files a/B01基础合同管理/Contract.res and b/B01基础合同管理/Contract.res differ diff --git a/B01基础合同管理/ProjectGroup1.groupproj.local b/B01基础合同管理/ProjectGroup1.groupproj.local index bd6e5a6..c0c6ae0 100644 --- a/B01基础合同管理/ProjectGroup1.groupproj.local +++ b/B01基础合同管理/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/B01基础合同管理/testDll.res b/B01基础合同管理/testDll.res index 2465ca0..e116c48 100644 Binary files a/B01基础合同管理/testDll.res and b/B01基础合同管理/testDll.res differ diff --git a/T01贸易生产计划/TradePlan.dproj.local b/T01贸易生产计划/TradePlan.dproj.local index bdc7155..5012e49 100644 --- a/T01贸易生产计划/TradePlan.dproj.local +++ b/T01贸易生产计划/TradePlan.dproj.local @@ -1,53 +1,53 @@  - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas - 1899/12/30 00:00:00.000.305,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfitDetails.pas - 1899/12/30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.pas - 1899/12/30 00:00:00.000.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas - 1899/12/30 00:00:00.000.983,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.672,D:\Dp10Repo\public10\design\U_BaseDataLink.pas= - 1899/12/30 00:00:00.000.833,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas - 1899/12/30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm - 1899/12/30 00:00:00.000.926,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanScheduleDetail.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899/12/30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.497,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_ZDYHelp_P.pas - 1899/12/30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas - 1899/12/30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.dfm - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm - 1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas + 1899-12-30 00:00:00.000.305,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfitDetails.pas + 1899-12-30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.pas + 1899-12-30 00:00:00.000.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas + 1899-12-30 00:00:00.000.983,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.672,D:\Dp10Repo\public10\design\U_BaseDataLink.pas= + 1899-12-30 00:00:00.000.833,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas + 1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.497,=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_ZDYHelp_P.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.357,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanProfit.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm + 1899-12-30 00:00:00.000.926,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanScheduleDetail.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas + 1899-12-30 00:00:00.000.617,D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_PlanTecList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\U_TradePlanMulFtyList.dfm + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm + 1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas diff --git a/T01贸易生产计划/U_PlanProfit.dfm b/T01贸易生产计划/U_PlanProfit.dfm index a6ea426..8468f0e 100644 --- a/T01贸易生产计划/U_PlanProfit.dfm +++ b/T01贸易生产计划/U_PlanProfit.dfm @@ -557,6 +557,18 @@ inherited frmPlanProfit: TfrmPlanProfit DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end + object Tv1Column9: TcxGridDBColumn + Caption = #23454#38469#31246#25910 + DataBinding.FieldName = 'SJSS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + object Tv1Column17: TcxGridDBColumn + Caption = #31246#25910#25903#20986 + DataBinding.FieldName = 'SFZC' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/T01贸易生产计划/U_PlanProfit.pas b/T01贸易生产计划/U_PlanProfit.pas index 9129f40..4c57e47 100644 --- a/T01贸易生产计划/U_PlanProfit.pas +++ b/T01贸易生产计划/U_PlanProfit.pas @@ -102,6 +102,8 @@ type Tv1Column8: TcxGridDBColumn; cxTabControl1: TcxTabControl; ADOQuery1: TADOQuery; + Tv1Column9: TcxGridDBColumn; + Tv1Column17: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -379,7 +381,7 @@ end; // sql.add(' ' + STRwhere); // // sql.add(' order by filltime desc'); -//// ShowMessage(SQL.Text); +// ShowMessage(SQL.Text); // Open; // end; // @@ -1143,3 +1145,30 @@ end; end. + + + + + +// * _ooOoo_ +// * o8888888o +// * 88" . "88 +// * (| -_- |) +// * O\ = /O +// * ____/`---'\____ +// * . ' \\| |// `. +// * / \\||| : |||// \ +// * / _||||| -:- |||||- \ +// * | | \\\ - /// | | +// * | \_| ''\---/'' | | +// * \ .-\__ `-` ___/-. / +// * ___`. .' /--.--\ `. . __ +// * ."" '< `.___\_<|>_/___.' >'"". +// * | | : `- \`.;`\ _ /`;.`/ - ` : | | +// * \ \ `-. \_ __\ /__ _/ .-` / / +// * ======`-.____`-.___\_____/___.-`____.-'====== +// * `=---=' +// * +// * ............................................. + + diff --git a/T01贸易生产计划/U_PlanProfitDetails.dfm b/T01贸易生产计划/U_PlanProfitDetails.dfm index ea02de8..434190e 100644 --- a/T01贸易生产计划/U_PlanProfitDetails.dfm +++ b/T01贸易生产计划/U_PlanProfitDetails.dfm @@ -140,18 +140,20 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails end end object cxGrid1: TcxGrid [2] - Left = 0 + Left = 546 Top = 84 - Width = 981 + Width = 435 Height = 292 - Align = alClient + Align = alRight TabOrder = 2 + ExplicitLeft = 544 + ExplicitTop = 79 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Visible = False ScrollbarAnnotations.CustomAnnotations = <> - DataController.DataSource = DS_HZ + DataController.DataSource = DataSource2 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -457,6 +459,23 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails HeaderAlignmentHorz = taCenter Width = 69 end + object Tv1Column22: TcxGridDBColumn + DataBinding.FieldName = 'FFFlag' + DataBinding.IsNullValueType = True + Visible = False + end + object Tv1Column31: TcxGridDBColumn + Caption = #22269#22320#31246 + DataBinding.FieldName = 'DDD' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + object Tv1Column32: TcxGridDBColumn + Caption = #20854#20182#31246#36153 + DataBinding.FieldName = 'EEE' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end end object cxGridLevel1: TcxGridLevel GridView = Tv1 @@ -647,8 +666,6 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails Height = 194 Align = alClient TabOrder = 1 - ExplicitLeft = 551 - ExplicitTop = 6 object TV3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -807,10 +824,367 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails Width = 8 Height = 194 HotZoneClassName = 'TcxMediaPlayer9Style' - ExplicitLeft = 495 - ExplicitTop = 6 end end + object cxGrid4: TcxGrid [4] + Left = 0 + Top = 84 + Width = 538 + Height = 292 + Align = alClient + TabOrder = 4 + object TV4: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_HZ + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn27 + end + item + Kind = skSum + Column = cxGridDBColumn30 + end + item + Kind = skSum + Column = cxGridDBColumn31 + end + item + Kind = skSum + Column = cxGridDBColumn33 + end + item + Kind = skSum + Column = cxGridDBColumn26 + end + item + Kind = skSum + Column = cxGridDBColumn35 + end + item + Kind = skSum + Column = cxGridDBColumn25 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.IncSearch = DataLink_TradePlan.SHuangSe + Styles.Footer = DataLink_TradePlan.Default + Styles.Header = DataLink_TradePlan.Default + Styles.Inactive = DataLink_TradePlan.SHuangSe + Styles.Selection = DataLink_TradePlan.SHuangSe + object cxGridDBColumn1: TcxGridDBColumn + Tag = 7 + Caption = #21457#29983#26085#26399 + DataBinding.FieldName = 'FFTime' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #24212#25910#26085#26399 + DataBinding.FieldName = 'YSDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 79 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #23545#36134#26085#26399 + DataBinding.FieldName = 'ReconciliationDate' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'FFType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #25105#26041#21333#20301 + DataBinding.FieldName = 'OurCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #23545#26041#21333#20301 + DataBinding.FieldName = 'OppCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 76 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Saleser' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 57 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 7 + Caption = #19978#32423#21333#20301 + DataBinding.FieldName = 'OppParentCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #20215#26684#26415#35821 + DataBinding.FieldName = 'PayMent' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #25688#35201 + DataBinding.FieldName = 'FFAbstract' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #35745#21010#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #23458#25143#21333#21495 + DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 74 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'F_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'F_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'F_Pattern' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'F_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'F_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'F_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'F_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #21253#25968 + DataBinding.FieldName = 'PacketNum' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn27: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn29: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn30: TcxGridDBColumn + Caption = #20854#20182#36153 + DataBinding.FieldName = 'OtherFee' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn31: TcxGridDBColumn + Caption = #20943#20813 + DataBinding.FieldName = 'Deduction' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn32: TcxGridDBColumn + Caption = #20323#37329 + DataBinding.FieldName = 'YJ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 58 + end + object cxGridDBColumn33: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Amount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn34: TcxGridDBColumn + Caption = #24065#31181 + DataBinding.FieldName = 'Currency' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn35: TcxGridDBColumn + Caption = #26680#38144#37329#39069 + DataBinding.FieldName = 'FFWoAmount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + end + object cxGridDBColumn36: TcxGridDBColumn + Caption = #26469#28304 + DataBinding.FieldName = 'FromID1' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object cxGridDBColumn37: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 92 + end + object cxGridDBColumn38: TcxGridDBColumn + Caption = #33337#26399 + DataBinding.FieldName = 'SailingSchedule' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 69 + end + object TV4Column1: TcxGridDBColumn + DataBinding.FieldName = 'FFFlag' + DataBinding.IsNullValueType = True + Visible = False + end + object TV4Column2: TcxGridDBColumn + Caption = #22806#24065#25910#30410'RMB' + DataBinding.FieldName = 'AAA' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object TV4Column3: TcxGridDBColumn + Caption = #20154#27665#24065#23454#25910#37329#39069 + DataBinding.FieldName = 'BBB' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object TV4Column4: TcxGridDBColumn + Caption = #36864#31246#25910#30410 + DataBinding.FieldName = 'CCC' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + end + object cxGridLevel4: TcxGridLevel + GridView = TV4 + end + end + object cxSplitter2: TcxSplitter [5] + Left = 538 + Top = 84 + Width = 8 + Height = 292 + HotZoneClassName = 'TcxMediaPlayer9Style' + Control = cxGrid1 + ExplicitLeft = 544 + ExplicitTop = 90 + end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_TradePlan.ADOLink Left = 81 @@ -857,8 +1231,8 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False - Left = 386 - Top = 321 + Left = 370 + Top = 145 ReportData = {} end object RMDB_Main: TRMDBDataSet @@ -925,8 +1299,8 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails end object DS_3: TDataSource DataSet = CDS_3 - Left = 604 - Top = 425 + Left = 596 + Top = 465 end object CDS_3: TClientDataSet Aggregates = <> @@ -934,4 +1308,27 @@ inherited frmPlanProfitDetails: TfrmPlanProfitDetails Left = 592 Top = 400 end + object DataSource1: TDataSource + DataSet = CDS_3 + Left = 740 + Top = 449 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 672 + Top = 152 + end + object DataSource2: TDataSource + DataSet = ClientDataSet1 + Left = 764 + Top = 169 + end + object ADOQuery5: TADOQuery + Connection = DataLink_TradePlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 638 + Top = 228 + end end diff --git a/T01贸易生产计划/U_PlanProfitDetails.pas b/T01贸易生产计划/U_PlanProfitDetails.pas index 3a74849..c2dd975 100644 --- a/T01贸易生产计划/U_PlanProfitDetails.pas +++ b/T01贸易生产计划/U_PlanProfitDetails.pas @@ -118,6 +118,54 @@ type cxSplitter1: TcxSplitter; TV2Column7: TcxGridDBColumn; TV3Column3: TcxGridDBColumn; + cxGrid4: TcxGrid; + TV4: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + cxGridDBColumn30: TcxGridDBColumn; + cxGridDBColumn31: TcxGridDBColumn; + cxGridDBColumn32: TcxGridDBColumn; + cxGridDBColumn33: TcxGridDBColumn; + cxGridDBColumn34: TcxGridDBColumn; + cxGridDBColumn35: TcxGridDBColumn; + cxGridDBColumn36: TcxGridDBColumn; + cxGridDBColumn37: TcxGridDBColumn; + cxGridDBColumn38: TcxGridDBColumn; + cxGridLevel4: TcxGridLevel; + cxSplitter2: TcxSplitter; + DataSource1: TDataSource; + TV4Column1: TcxGridDBColumn; + Tv1Column22: TcxGridDBColumn; + ClientDataSet1: TClientDataSet; + DataSource2: TDataSource; + ADOQuery5: TADOQuery; + TV4Column2: TcxGridDBColumn; + TV4Column3: TcxGridDBColumn; + TV4Column4: TcxGridDBColumn; + Tv1Column31: TcxGridDBColumn; + Tv1Column32: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); @@ -131,6 +179,7 @@ type private { Private declarations } procedure InitGrid(); + procedure InitYFFGrid(); procedure InitZD(); public fmanage, FZKType, FOrderNo, FMainID: string; @@ -162,18 +211,61 @@ begin // sql.Add(',SSAmount=(Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end)-ISNULL(A.SXFAmount,0)'); // sql.Add(',SSCNYAmount=((Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end) '); // sql.Add('-ISNULL(A.SXFAmount,0))*ISNULL((Case when Currency=''CNY'' then 1 else A.JHExchangeRate end),1)'); + + sql.Add(',AAA = ISNULL((select CWBSY from Costing_Table where COrderNo = A.OrderNo), 0),'); + sql.Add('BBB = ISNULL((select CRMBSSJE from Costing_Table where COrderNo = A.OrderNo), 0),'); + sql.Add('CCC = ISNULL((select CTSSY from Costing_Table where COrderNo = A.OrderNo), 0)'); + + + SQL.Add(',BuyConNO=ISNULL(A.BuyConNo,(select TOP 1 BuyConNo from Trade_Plan_Sub X where X.MainID=A.OrdMainId ))'); SQL.Add(',A.*,Saleser=(select Top 1 Saleser from BS_Company X where X.CoAbbrName=A.OppCoName)'); sql.Add(' from Finance_Flow A where A.OrderNo= ' + QuotedStr(Trim(FOrderNo))); -// sql.Add(' and ISNULL(A.FFTime,A.SQDate)>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); + sql.Add(' and FFFlag = ''应收收'' '); // sql.Add(' and ISNULL(A.FFTime,A.SQDate)<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); -// ShowMessage(sql.text); + //ShowMessage(sql.text); Open; end; SCreateCDS(ADOQueryMain, CDS_HZ); SInitCDSData(ADOQueryMain, CDS_HZ); finally ADOQueryMain.EnableControls; + TV4.DataController.Filter.Clear; + end; +// ToolButton2.Click; +end; + +procedure TfrmPlanProfitDetails.InitYFFGrid(); +begin + try + ADOQuery5.DisableControls; + with ADOQuery5 do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add('Select Amount=(Case when ISNULL(A.RegType,'''')=''付款'' then -1*Amount else Amount end)'); +// sql.Add(',SSAmount=(Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end)-ISNULL(A.SXFAmount,0)'); +// sql.Add(',SSCNYAmount=((Case when ISNULL(A.RegType,'''')=''收款'' then -1*Amount else Amount end) '); +// sql.Add('-ISNULL(A.SXFAmount,0))*ISNULL((Case when Currency=''CNY'' then 1 else A.JHExchangeRate end),1)'); + + sql.Add(',DDD = ISNULL((select GDS from Costing_Table where COrderNo = A.OrderNo), 0),'); + sql.Add('EEE = ISNULL((select COrderSF from Costing_Table where COrderNo = A.OrderNo), 0),'); + + + SQL.Add('BuyConNO=ISNULL(A.BuyConNo,(select TOP 1 BuyConNo from Trade_Plan_Sub X where X.MainID=A.OrdMainId ))'); + SQL.Add(',A.*,Saleser=(select Top 1 Saleser from BS_Company X where X.CoAbbrName=A.OppCoName)'); + sql.Add(' from Finance_Flow A where A.OrderNo= ' + QuotedStr(Trim(FOrderNo))); + sql.Add(' and FFFlag = ''应付付'' '); +// sql.Add(' and ISNULL(A.FFTime,A.SQDate)>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); +// sql.Add(' and ISNULL(A.FFTime,A.SQDate)<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); + //ShowMessage(sql.text); + Open; + end; + SCreateCDS(ADOQuery5, ClientDataSet1); + SInitCDSData(ADOQuery5, ClientDataSet1); + finally + ADOQuery5.EnableControls; TV1.DataController.Filter.Clear; end; // ToolButton2.Click; @@ -270,12 +362,14 @@ begin //// begdate.DateTime := StartOfTheMonth(Enddate.DateTime); // begdate.DateTime := EndDate.DateTime - 365; InitGrid(); + InitYFFGrid(); InItZD(); end; procedure TfrmPlanProfitDetails.TBRafreshClick(Sender: TObject); begin InitGrid(); + InitYFFGrid(); InitZD(); end; @@ -348,6 +442,7 @@ end; procedure TfrmPlanProfitDetails.cxTabControl1Change(Sender: TObject); begin InitGrid(); + InitYFFGrid(); end; end. diff --git a/T01贸易生产计划/U_TradePlanList.dfm b/T01贸易生产计划/U_TradePlanList.dfm index 7bbdd9f..24632ad 100644 --- a/T01贸易生产计划/U_TradePlanList.dfm +++ b/T01贸易生产计划/U_TradePlanList.dfm @@ -7,7 +7,6 @@ inherited frmTradePlanList: TfrmTradePlanList FormStyle = fsMDIChild Position = poScreenCenter Visible = True - ExplicitLeft = -375 ExplicitWidth = 1556 ExplicitHeight = 799 PixelsPerInch = 96 @@ -38,12 +37,12 @@ inherited frmTradePlanList: TfrmTradePlanList Left = 0 Top = 0 AutoSize = True - Caption = #21047#26032'aaa' + Caption = #21047#26032 ImageIndex = 1 OnClick = TBRafreshClick end object TBAdd: TToolButton - Left = 89 + Left = 71 Top = 0 AutoSize = True Caption = #26032#22686 @@ -51,7 +50,7 @@ inherited frmTradePlanList: TfrmTradePlanList OnClick = TBAddClick end object btnCopy: TToolButton - Left = 160 + Left = 142 Top = 0 AutoSize = True Caption = #22797#21046 @@ -59,7 +58,7 @@ inherited frmTradePlanList: TfrmTradePlanList OnClick = btnCopyClick end object TBEdit: TToolButton - Left = 231 + Left = 213 Top = 0 AutoSize = True Caption = #20462#25913 @@ -67,7 +66,7 @@ inherited frmTradePlanList: TfrmTradePlanList OnClick = TBEditClick end object TBDel: TToolButton - Left = 302 + Left = 284 Top = 0 AutoSize = True Caption = #21024#38500 @@ -75,7 +74,7 @@ inherited frmTradePlanList: TfrmTradePlanList OnClick = TBDelClick end object ToolButton1: TToolButton - Left = 373 + Left = 355 Top = 0 AutoSize = True Caption = #25171#21367#35774#32622 @@ -83,7 +82,7 @@ inherited frmTradePlanList: TfrmTradePlanList OnClick = ToolButton1Click end object TBPrint: TToolButton - Left = 468 + Left = 450 Top = 0 AutoSize = True Caption = #25171#21360 @@ -91,7 +90,7 @@ inherited frmTradePlanList: TfrmTradePlanList OnClick = TBPrintClick end object TBCK: TToolButton - Left = 539 + Left = 521 Top = 0 AutoSize = True Caption = #26597#30475 @@ -99,7 +98,7 @@ inherited frmTradePlanList: TfrmTradePlanList OnClick = TBCKClick end object ToolButton3: TToolButton - Left = 610 + Left = 592 Top = 0 AutoSize = True Caption = #21253#35013#34917#24405 @@ -107,7 +106,7 @@ inherited frmTradePlanList: TfrmTradePlanList OnClick = ToolButton3Click end object ToolButton9: TToolButton - Left = 705 + Left = 687 Top = 0 AutoSize = True Caption = #25253#20851#36164#26009#34917#24405 @@ -115,14 +114,14 @@ inherited frmTradePlanList: TfrmTradePlanList OnClick = ToolButton9Click end object ToolButton11: TToolButton - Left = 824 + Left = 806 Top = 0 Caption = #23548#20986 ImageIndex = 20 OnClick = ToolButton11Click end object ToolButton4: TToolButton - Left = 939 + Left = 921 Top = 0 AutoSize = True Caption = #38468#20214 @@ -130,104 +129,105 @@ inherited frmTradePlanList: TfrmTradePlanList OnClick = ToolButton4Click end object TBTJ: TToolButton - Left = 1010 + Left = 992 Top = 0 AutoSize = True Caption = #25552#20132 ImageIndex = 12 + Wrap = True OnClick = TBTJClick end object TBTJCX: TToolButton - Left = 1081 - Top = 0 + Left = 0 + Top = 38 AutoSize = True Caption = #25552#20132#25764#38144 ImageIndex = 11 OnClick = TBTJCXClick end object Tchk: TToolButton - Left = 1176 - Top = 0 + Left = 95 + Top = 38 AutoSize = True Caption = #23457#26680 ImageIndex = 12 OnClick = TchkClick end object Tnochk: TToolButton - Left = 1247 - Top = 0 + Left = 166 + Top = 38 AutoSize = True Caption = #25764#38144#23457#26680 ImageIndex = 11 OnClick = TnochkClick end object ToolButton7: TToolButton - Left = 1342 - Top = 0 + Left = 261 + Top = 38 AutoSize = True Caption = #26242#23384 ImageIndex = 8 OnClick = ToolButton7Click end object ToolButton8: TToolButton - Left = 1413 - Top = 0 + Left = 332 + Top = 38 AutoSize = True Caption = #21462#28040#26242#23384 ImageIndex = 9 OnClick = ToolButton8Click end object ToolButton5: TToolButton - Left = 1508 - Top = 0 + Left = 427 + Top = 38 AutoSize = True Caption = #29983#20135#23436#25104 ImageIndex = 12 OnClick = ToolButton5Click end object ToolButton6: TToolButton - Left = 1603 - Top = 0 + Left = 522 + Top = 38 AutoSize = True Caption = #29983#20135#23436#25104#25764#38144 ImageIndex = 11 OnClick = ToolButton6Click end object TWC: TToolButton - Left = 1722 - Top = 0 + Left = 641 + Top = 38 AutoSize = True Caption = #23436#25104 ImageIndex = 12 OnClick = TWCClick end object TNowc: TToolButton - Left = 1793 - Top = 0 + Left = 712 + Top = 38 AutoSize = True Caption = #25764#38144#23436#25104 ImageIndex = 11 OnClick = TNowcClick end object ToolButton2: TToolButton - Left = 1888 - Top = 0 + Left = 807 + Top = 38 AutoSize = True Caption = #20445#23384#26684#24335 ImageIndex = 16 OnClick = ToolButton2Click end object TBClose: TToolButton - Left = 1983 - Top = 0 + Left = 902 + Top = 38 AutoSize = True Caption = #20851#38381 ImageIndex = 7 OnClick = TBCloseClick end object ToolButton10: TToolButton - Left = 2054 - Top = 0 + Left = 973 + Top = 38 Caption = 'ToolButton10' ImageIndex = 8 Visible = False diff --git a/T03贸易布匹检验/TradeInsp.dproj.local b/T03贸易布匹检验/TradeInsp.dproj.local index 346096c..36218ea 100644 --- a/T03贸易布匹检验/TradeInsp.dproj.local +++ b/T03贸易布匹检验/TradeInsp.dproj.local @@ -33,11 +33,11 @@ 1899-12-30 00:00:00.000.888,=D:\Dp10Repo\项目代码\D10myBiaoqi\T03贸易布匹检验\U_ProcessTypeEdit.pas 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.174,=D:\Dp10Repo\项目代码\骉骐\T03贸易布匹检验\U_TradeClothWaitPack.pas 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas diff --git a/T03贸易布匹检验/U_TradeClothDefectiveList.dfm b/T03贸易布匹检验/U_TradeClothDefectiveList.dfm index d7feb1a..cbdb6c0 100644 --- a/T03贸易布匹检验/U_TradeClothDefectiveList.dfm +++ b/T03贸易布匹检验/U_TradeClothDefectiveList.dfm @@ -265,7 +265,7 @@ inherited frmTradeClothDefectiveList: TfrmTradeClothDefectiveList end object v1Column9: TcxGridDBColumn Caption = #30133#28857#25968#37327 - DataBinding.FieldName = 'CIFNumber' + DataBinding.FieldName = 'CIFnum' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False diff --git a/T03贸易布匹检验/U_TradeClothInspList.dfm b/T03贸易布匹检验/U_TradeClothInspList.dfm index a8a164c..bb9ed2b 100644 --- a/T03贸易布匹检验/U_TradeClothInspList.dfm +++ b/T03贸易布匹检验/U_TradeClothInspList.dfm @@ -127,8 +127,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList ParentFont = False PopupMenu = PM_1 TabOrder = 3 - ExplicitLeft = 8 - ExplicitTop = 133 + ExplicitTop = 136 object Tv1: TcxGridDBTableView OnMouseUp = Tv1MouseUp Navigator.Buttons.CustomButtons = <> @@ -271,7 +270,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList end object v1Column9: TcxGridDBColumn Caption = #30133#28857#25968#37327 - DataBinding.FieldName = 'CIFNumber' + DataBinding.FieldName = 'CIFNum' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False @@ -287,7 +286,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList end object Tv1Column9: TcxGridDBColumn Caption = #30133#28857#22791#27880 - DataBinding.FieldName = 'FwNote' + DataBinding.FieldName = 'FFwNote' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 108 diff --git a/T03贸易布匹检验/U_TradeInspEdit.dfm b/T03贸易布匹检验/U_TradeInspEdit.dfm index 797ecb6..74aa72f 100644 --- a/T03贸易布匹检验/U_TradeInspEdit.dfm +++ b/T03贸易布匹检验/U_TradeInspEdit.dfm @@ -286,7 +286,10 @@ object frmTradeInspEdit: TfrmTradeInspEdit end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False - OptionsSelection.CellSelect = False + OptionsData.Appending = True + OptionsSelection.MultiSelect = True + OptionsSelection.CellMultiSelect = True + OptionsSelection.InvertSelect = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Footer = DataLink_TradeInsp.Default @@ -310,8 +313,14 @@ object frmTradeInspEdit: TfrmTradeInspEdit Caption = #30133#28857#21517#31216 DataBinding.FieldName = 'CIFName' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = ButtonEdit HeaderAlignmentHorz = taCenter - Options.Focusing = False Options.Sorting = False Width = 111 end @@ -320,7 +329,7 @@ object frmTradeInspEdit: TfrmTradeInspEdit DataBinding.FieldName = 'CIFbeg' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = cxGridDBColumn3PropertiesEditValueChanged + Properties.OnEditValueChanged = tv2CDWZPropertiesEditValueChanged HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Sorting = False @@ -330,6 +339,8 @@ object frmTradeInspEdit: TfrmTradeInspEdit Caption = #20301#32622#27490 DataBinding.FieldName = 'CIFend' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = cxGridDBColumn3PropertiesEditValueChanged HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Width = 79 @@ -363,7 +374,6 @@ object frmTradeInspEdit: TfrmTradeInspEdit DataBinding.FieldName = 'CIFPoints' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False Width = 73 end object cxGridDBColumn9: TcxGridDBColumn @@ -371,7 +381,6 @@ object frmTradeInspEdit: TfrmTradeInspEdit DataBinding.FieldName = 'CIFNumber' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Options.Editing = False Width = 69 end object TV1Column2: TcxGridDBColumn diff --git a/T03贸易布匹检验/U_TradeInspEdit.pas b/T03贸易布匹检验/U_TradeInspEdit.pas index fd9c06b..0dd1886 100644 --- a/T03贸易布匹检验/U_TradeInspEdit.pas +++ b/T03贸易布匹检验/U_TradeInspEdit.pas @@ -85,6 +85,8 @@ type procedure ToolButton4Click(Sender: TObject); procedure cxGridDBColumn3PropertiesEditValueChanged(Sender: TObject); procedure TV1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ButtonEdit(Sender: TObject; + AButtonIndex: Integer); private { Private declarations } function SaveData(): Boolean; @@ -153,6 +155,51 @@ begin end; +procedure TfrmTradeInspEdit.ButtonEdit(Sender: TObject; AButtonIndex: Integer); +//begin +// try +// frmZDYHelp := TfrmZDYHelp.Create(Application); +// with frmZDYHelp do +// begin +// flag := 'CIFName'; +// flagname := 'õ'; +// fnote := True; +// V1Note.Caption := 'Ӣ'; +// if ShowModal = 1 then +// begin +// Order_MJ.Edit; +// Order_MJ.fieldbyname('CIFName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); +// Order_MJ.Post; +// end; +// end; +// finally +// frmZDYHelp.Free; +// end; +// +//end; +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'WFBCD'; + flagname := 'õ'; + fnote := True; + V1Note.Caption := 'Ӣ'; + if ShowModal = 1 then + begin + Order_MJ.Edit; + Order_MJ.fieldbyname('CIFName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Order_MJ.Post; + end; + end; + finally + frmZDYHelp.Free; + end; + +end; + + procedure TfrmTradeInspEdit.cxGridDBColumn3PropertiesEditValueChanged(Sender: TObject); var mvalue, CIFbeg, CIFEnd: string; @@ -179,7 +226,7 @@ begin with Order_MJ do begin Edit; - FieldByName('CDQty').Value := StrToFloat(CIFEnd) - StrToFloat(CIFbeg); + FieldByName('CIFQty').Value := StrToFloat(CIFEnd) - StrToFloat(CIFbeg); Post; end; end diff --git a/T03贸易布匹检验/U_TradeMachInsp.dfm b/T03贸易布匹检验/U_TradeMachInsp.dfm index 0374893..17632a1 100644 --- a/T03贸易布匹检验/U_TradeMachInsp.dfm +++ b/T03贸易布匹检验/U_TradeMachInsp.dfm @@ -7,6 +7,7 @@ FormStyle = fsMDIChild Position = poScreenCenter Visible = True + ExplicitLeft = -689 ExplicitWidth = 1556 ExplicitHeight = 809 PixelsPerInch = 96 @@ -2081,6 +2082,8 @@ Height = 461 Align = alClient TabOrder = 0 + ExplicitLeft = 0 + ExplicitTop = 109 object Tv3: TcxGridDBTableView OnMouseDown = Tv3MouseDown Navigator.Buttons.CustomButtons = <> @@ -2514,31 +2517,31 @@ ImageIndex = 3 OnClick = ToolButton6Click end - object ToolButton4: TToolButton + object ToolButton7: TToolButton Left = 71 Top = 38 AutoSize = True - Caption = #30133#28857#31649#29702 - ImageIndex = 2 - Wrap = True - OnClick = ToolButton4Click - end - object ToolButton7: TToolButton - Left = 0 - Top = 76 - AutoSize = True Caption = #20445#23384#26684#24335 ImageIndex = 16 + Wrap = True OnClick = ToolButton7Click end object ToolButton8: TToolButton - Left = 95 + Left = 0 Top = 76 AutoSize = True Caption = #20851#38381 ImageIndex = 7 OnClick = ToolButton8Click end + object ToolButton4: TToolButton + Left = 71 + Top = 76 + AutoSize = True + Caption = #30133#28857#31649#29702 + ImageIndex = 2 + OnClick = ToolButton4Click + end end end object Panel3: TPanel [4]