diff --git a/A02基础产品管理/ClothInfo.identcache b/A02基础产品管理/ClothInfo.identcache index e0dc4fe..5a15f02 100644 Binary files a/A02基础产品管理/ClothInfo.identcache and b/A02基础产品管理/ClothInfo.identcache differ diff --git a/A02基础产品管理/testDll.identcache b/A02基础产品管理/testDll.identcache index 429d489..7272b4d 100644 Binary files a/A02基础产品管理/testDll.identcache and b/A02基础产品管理/testDll.identcache differ diff --git a/A09财务通用管理/Financial.dpr b/A09财务通用管理/Financial.dpr index 5f506c8..7fe4fd2 100644 --- a/A09财务通用管理/Financial.dpr +++ b/A09财务通用管理/Financial.dpr @@ -21,8 +21,6 @@ uses U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, U_ClothInfoSel in '..\A00ͨô\U_ClothInfoSel.pas' {frmClothInfoSel}, U_EmployeeSel in '..\A00ͨô\U_EmployeeSel.pas' {frmEmployeeSel}, - U_InvoiceInInPut in 'U_InvoiceInInPut.pas' {frmInvoiceInInPut}, - U_InvoiceInList in 'U_InvoiceInList.pas' {frmInvoiceInList}, U_BankSel in '..\A00ͨô\U_BankSel.pas' {frmBankSel}, U_AttachmentUpload in '..\A00ͨô\U_AttachmentUpload.pas' {frmAttachmentUpload}, U_FtyStatement in 'U_FtyStatement.pas' {frmFtyStatement}, @@ -32,7 +30,10 @@ uses U_CompanySel in 'U_CompanySel.pas' {frmCompanySel}, U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, U_OtherPayableList in 'U_OtherPayableList.pas' {frmOtherPayableList}, - U_OtherPayableInput in 'U_OtherPayableInput.pas' {frmOtherPayableInput}; + U_OtherPayableInput in 'U_OtherPayableInput.pas' {frmOtherPayableInput}, + U_handPayableList in 'U_handPayableList.pas' {frmhandPayableList}, + U_HandPayableInPut in 'U_HandPayableInPut.pas' {frmHandPayableInPut}, + U_HandPayableImport in 'U_HandPayableImport.pas' {frmHandPayableImport}; {$R *.res} diff --git a/A09财务通用管理/Financial.dproj b/A09财务通用管理/Financial.dproj index 288e29d..790c266 100644 --- a/A09财务通用管理/Financial.dproj +++ b/A09财务通用管理/Financial.dproj @@ -165,14 +165,6 @@
frmEmployeeSel
dfm - -
frmInvoiceInInPut
- dfm - - -
frmInvoiceInList
- dfm -
frmBankSel
dfm @@ -214,6 +206,18 @@
frmOtherPayableInput
dfm + +
frmhandPayableList
+ dfm + + +
frmHandPayableInPut
+ dfm + + +
frmHandPayableImport
+ dfm + Cfg_2 Base diff --git a/A09财务通用管理/Financial.dproj.local b/A09财务通用管理/Financial.dproj.local index 4d33077..30c9616 100644 --- a/A09财务通用管理/Financial.dproj.local +++ b/A09财务通用管理/Financial.dproj.local @@ -1,48 +1,53 @@  - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899-12-30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899-12-30 00:00:00.000.487,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableInput.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899-12-30 00:00:00.000.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899-12-30 00:00:00.000.753,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 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.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj - 1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas - 1899-12-30 00:00:00.000.040,=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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 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.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.pas - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.927,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableList.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas + 1899-12-30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas + 1899-12-30 00:00:00.000.927,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableList.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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_LablePrint.pas=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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 2024-08-06 09:44:01.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.pas + 2024-08-06 09:44:01.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.dfm + 2024-08-06 09:44:58.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.dfm + 2024-08-06 09:44:58.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.pas + 2024-08-06 14:37:23.095,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableImport.pas @@ -93,6 +98,8 @@ + + @@ -102,8 +109,6 @@ - - @@ -115,10 +120,6 @@ - - - - @@ -127,5 +128,11 @@ + + + + + + diff --git a/A09财务通用管理/Financial.identcache b/A09财务通用管理/Financial.identcache index d9e13fa..cf63bb0 100644 Binary files a/A09财务通用管理/Financial.identcache and b/A09财务通用管理/Financial.identcache differ diff --git a/A09财务通用管理/U_CollectInput.dfm b/A09财务通用管理/U_CollectInput.dfm index 550f8da..6525da0 100644 --- a/A09财务通用管理/U_CollectInput.dfm +++ b/A09财务通用管理/U_CollectInput.dfm @@ -71,8 +71,6 @@ object frmCollectInput: TfrmCollectInput ParentCtl3D = False ParentFont = False TabOrder = 1 - ExplicitLeft = -1 - ExplicitTop = 39 object Label2: TLabel Left = 245 Top = 20 @@ -390,7 +388,7 @@ object frmCollectInput: TfrmCollectInput BevelInner = bvNone Date = 40916.000000000000000000 Format = 'yyyy-MM-dd' - Time = 0.670856296288548000 + Time = 0.670856296288548100 TabOrder = 9 end object OrderNo: TBtnEditC diff --git a/A09财务通用管理/U_CollectInput.pas b/A09财务通用管理/U_CollectInput.pas index 8edbbe0..64c313f 100644 --- a/A09财务通用管理/U_CollectInput.pas +++ b/A09财务通用管理/U_CollectInput.pas @@ -14,7 +14,7 @@ uses IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, - dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit; + dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit, dxSkinWXI; type TfrmCollectInput = class(TForm) diff --git a/A09财务通用管理/U_CollectList.dfm b/A09财务通用管理/U_CollectList.dfm index a34fbc8..7b9bba8 100644 --- a/A09财务通用管理/U_CollectList.dfm +++ b/A09财务通用管理/U_CollectList.dfm @@ -274,11 +274,11 @@ inherited frmCollectList: TfrmCollectList Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitLeft = 1 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -319,6 +319,7 @@ inherited frmCollectList: TfrmCollectList object Tv1Column22: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True HeaderAlignmentHorz = taCenter @@ -328,6 +329,7 @@ inherited frmCollectList: TfrmCollectList Tag = 7 Caption = #26085#26399 DataBinding.FieldName = 'FFTime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False @@ -338,6 +340,7 @@ inherited frmCollectList: TfrmCollectList object v2Column2: TcxGridDBColumn Caption = #25105#26041#21333#20301 DataBinding.FieldName = 'OurCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 78 @@ -345,6 +348,7 @@ inherited frmCollectList: TfrmCollectList object v2FactoryName: TcxGridDBColumn Caption = #23545#26041#21333#20301 DataBinding.FieldName = 'OppCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 73 @@ -352,6 +356,7 @@ inherited frmCollectList: TfrmCollectList object Tv1Column8: TcxGridDBColumn Caption = #19994#21153#21592 DataBinding.FieldName = 'Saleser' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 57 end @@ -359,6 +364,7 @@ inherited frmCollectList: TfrmCollectList Tag = 7 Caption = #19978#32423#21333#20301 DataBinding.FieldName = 'OppParentCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 82 @@ -366,6 +372,7 @@ inherited frmCollectList: TfrmCollectList object Tv1Column1: TcxGridDBColumn Caption = #25105#26041#36134#25143 DataBinding.FieldName = 'OurBankName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -373,6 +380,7 @@ inherited frmCollectList: TfrmCollectList object Tv1Column2: TcxGridDBColumn Caption = #23545#26041#36134#25143 DataBinding.FieldName = 'OppBankName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 74 @@ -380,6 +388,7 @@ inherited frmCollectList: TfrmCollectList object Tv1Column3: TcxGridDBColumn Caption = #20184#27454#26041#24335 DataBinding.FieldName = 'PayMent' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 69 @@ -387,6 +396,7 @@ inherited frmCollectList: TfrmCollectList object Tv1Column19: TcxGridDBColumn Caption = #21512#21516#21495 DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -394,6 +404,7 @@ inherited frmCollectList: TfrmCollectList object Tv1Column20: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 75 @@ -401,12 +412,14 @@ inherited frmCollectList: TfrmCollectList object Tv1Column21: TcxGridDBColumn Caption = #23458#25143#21333#21495 DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 74 end object Tv1Column4: TcxGridDBColumn Caption = #25688#35201 DataBinding.FieldName = 'FFAbstract' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 72 @@ -414,6 +427,7 @@ inherited frmCollectList: TfrmCollectList object Tv1Column17: TcxGridDBColumn Caption = #37329#39069 DataBinding.FieldName = 'Amount' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -421,6 +435,7 @@ inherited frmCollectList: TfrmCollectList object Tv1Column18: TcxGridDBColumn Caption = #24065#31181 DataBinding.FieldName = 'Currency' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -428,18 +443,21 @@ inherited frmCollectList: TfrmCollectList object Tv1Column5: TcxGridDBColumn Caption = #26680#38144#37329#39069 DataBinding.FieldName = 'FFWoAmount' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False end object Tv1Column6: TcxGridDBColumn Caption = #27719#29575 DataBinding.FieldName = 'ExchangeRate' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 47 end object Tv1Column7: TcxGridDBColumn Caption = #25171#27454#37329#39069 DataBinding.FieldName = 'DKAmount' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end end diff --git a/A09财务通用管理/U_CollectList.pas b/A09财务通用管理/U_CollectList.pas index 4139451..7341cdd 100644 --- a/A09财务通用管理/U_CollectList.pas +++ b/A09财务通用管理/U_CollectList.pas @@ -14,7 +14,8 @@ uses IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, - dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd; + dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, dxSkinWXI, + dxScrollbarAnnotations; type TfrmCollectList = class(TfrmBaseList) diff --git a/A09财务通用管理/U_DataLink.dfm b/A09财务通用管理/U_DataLink.dfm index b5006a2..5ad3b4d 100644 --- a/A09财务通用管理/U_DataLink.dfm +++ b/A09财务通用管理/U_DataLink.dfm @@ -1,4 +1,5 @@ inherited DataLink_Financial: TDataLink_Financial + OldCreateOrder = True OnDestroy = DataModuleDestroy Height = 349 Width = 482 diff --git a/A09财务通用管理/U_FtyStatement.dfm b/A09财务通用管理/U_FtyStatement.dfm index b82ab2e..6288d7b 100644 --- a/A09财务通用管理/U_FtyStatement.dfm +++ b/A09财务通用管理/U_FtyStatement.dfm @@ -164,6 +164,7 @@ inherited frmFtyStatement: TfrmFtyStatement Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_HZ DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -263,6 +264,7 @@ inherited frmFtyStatement: TfrmFtyStatement object v2Column6: TcxGridDBColumn Caption = #23545#26041#21333#20301 DataBinding.FieldName = 'OppCoName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -272,6 +274,7 @@ inherited frmFtyStatement: TfrmFtyStatement object v2Column5: TcxGridDBColumn Caption = #19978#26399#27424#27454 DataBinding.FieldName = 'SQJYAmount' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -281,6 +284,7 @@ inherited frmFtyStatement: TfrmFtyStatement object v2Column1: TcxGridDBColumn Caption = #26412#26399#24212#20184 DataBinding.FieldName = 'BQYFAmount' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -290,6 +294,7 @@ inherited frmFtyStatement: TfrmFtyStatement object v2Column2: TcxGridDBColumn Caption = #26412#26399#20184#27454 DataBinding.FieldName = 'BQFKAmount' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -299,6 +304,7 @@ inherited frmFtyStatement: TfrmFtyStatement object v2Column3: TcxGridDBColumn Caption = #26412#26399#27424#27454 DataBinding.FieldName = 'BQJYAmount' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -308,12 +314,14 @@ inherited frmFtyStatement: TfrmFtyStatement object Tv2Column5: TcxGridDBColumn Caption = #19978#26399#27424#31080 DataBinding.FieldName = 'SQWKTaxAmount' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 77 end object Tv2Column2: TcxGridDBColumn Caption = #26412#26399#24320#31080 DataBinding.FieldName = 'BQYKTaxAmount' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 77 @@ -321,6 +329,7 @@ inherited frmFtyStatement: TfrmFtyStatement object Tv2Column1: TcxGridDBColumn Caption = #26412#26399#27424#31080 DataBinding.FieldName = 'BQWKTaxAmount' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 77 @@ -328,6 +337,7 @@ inherited frmFtyStatement: TfrmFtyStatement object Tv2Column6: TcxGridDBColumn Caption = #26412#26399#38656#24320#31080 DataBinding.FieldName = 'BQXKTaxAmount' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 77 end @@ -351,7 +361,7 @@ inherited frmFtyStatement: TfrmFtyStatement TabOrder = 3 Properties.CustomButtons.Buttons = <> Properties.Style = 2 - Properties.TabIndex = 0 + Properties.TabIndex = 1 Properties.Tabs.Strings = ( ' USD ' ' CNY ') diff --git a/A09财务通用管理/U_FtyStatement.pas b/A09财务通用管理/U_FtyStatement.pas index 923bb94..9df219b 100644 --- a/A09财务通用管理/U_FtyStatement.pas +++ b/A09财务通用管理/U_FtyStatement.pas @@ -14,7 +14,8 @@ uses IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, cxPC, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, - U_BaseList, Vcl.Menus, Vcl.Clipbrd, DateUtils; + U_BaseList, Vcl.Menus, Vcl.Clipbrd, DateUtils, dxSkinWXI, + dxScrollbarAnnotations; type TfrmFtyStatement = class(TfrmBaseList) diff --git a/A09财务通用管理/U_GetDllForm.pas b/A09财务通用管理/U_GetDllForm.pas index 474db64..4d5c364 100644 --- a/A09财务通用管理/U_GetDllForm.pas +++ b/A09财务通用管理/U_GetDllForm.pas @@ -18,7 +18,7 @@ uses U_DataLink, U_iniParam, U_ReceivableList, U_CollectList, U_InvoiceOutList, U_CustStatement, U_CustStatementWriteOff, U_BankFlowList, U_BankFlowTotalList, U_PayableList, U_PayList, U_FtyStatement, U_InvoiceInList, U_ExpenseList, - U_OtherPayableList; + U_OtherPayableList,U_handPayableList; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -78,7 +78,7 @@ begin pswd := 'rightsoft@5740'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; - Parameters1:=''; + Parameters1 := ''; end else begin @@ -211,6 +211,18 @@ begin end; end; + 213: //ֹõǼ + begin + with TfrmhandPayableList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // + begin + fFormID := FormID; + FormStyle := mstyle; + WindowState := mstate; + BorderStyle := mborderstyle; + mnewHandle := Handle; + end; + end; + 221: //Ǽ begin with TfrmPayList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // diff --git a/A09财务通用管理/U_HandPayableImport.dfm b/A09财务通用管理/U_HandPayableImport.dfm new file mode 100644 index 0000000..192e963 --- /dev/null +++ b/A09财务通用管理/U_HandPayableImport.dfm @@ -0,0 +1,273 @@ +inherited frmHandPayableImport: TfrmHandPayableImport + Left = 189 + Top = 138 + Caption = #25163#24037#36153#29992#23548#20837 + ClientHeight = 562 + ClientWidth = 1333 + Color = clWhite + Font.Height = -13 + Position = poMainFormCenter + ExplicitWidth = 1349 + ExplicitHeight = 601 + PixelsPerInch = 107 + TextHeight = 16 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1333 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = ImageList_new32 + HotImages = DataLink_Financial.ImageList_new32 + Images = DataLink_Financial.ImageList_new32 + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object ToolButton5: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #36873#25321#25991#20214 + ImageIndex = 12 + OnClick = ToolButton5Click + end + object ToolButton3: TToolButton + Left = 166 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 14 + OnClick = ToolButton3Click + end + object ToolButton2: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #20445#23384#25968#25454 + ImageIndex = 16 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 332 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 427 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid [1] + Left = 0 + Top = 38 + Width = 1333 + Height = 524 + Align = alClient + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + ExplicitLeft = 104 + ExplicitTop = -210 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.GroupByBox = False + Styles.IncSearch = DataLink_Financial.SHuangSe + Styles.Header = DataLink_Financial.Default + Styles.Inactive = DataLink_Financial.SHuangSe + Styles.Selection = DataLink_Financial.SHuangSe + object Tv1Column11: TcxGridDBColumn + Caption = #27969#27700#21495 + DataBinding.FieldName = 'FFID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 78 + end + object Tv1Column1: TcxGridDBColumn + Caption = #21457#29983#26085#26399 + DataBinding.FieldName = 'FFTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object Tv1Column3: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'OurCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 76 + end + object Tv1Column5: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OurOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 105 + end + object Tv1Column6: TcxGridDBColumn + Caption = #35745#21010#21333#21495 + DataBinding.FieldName = 'OrderNO' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column7: TcxGridDBColumn + Caption = #25688#35201 + DataBinding.FieldName = 'FFAbstract' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column8: TcxGridDBColumn + Caption = #36153#29992#31867#21035 + DataBinding.FieldName = 'FFAbstractDL' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column9: TcxGridDBColumn + Caption = #25903#20986#20107#30001 + DataBinding.FieldName = 'SubExpend' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column12: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Amount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column2: TcxGridDBColumn + Caption = #35777#26126#20154 + DataBinding.FieldName = 'Certifier' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 56 + end + object Tv1Column4: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 79 + end + object Tv1Column10: TcxGridDBColumn + Caption = #32463#25163#20154 + DataBinding.FieldName = 'handler' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_Financial.ADOLink + Left = 121 + Top = 160 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_Financial.ADOLink + Left = 249 + Top = 161 + end + inherited ImageList_new32: TImageList + Left = 528 + Top = 144 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 853 + Top = 201 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_Financial.ADOLink + Parameters = <> + Left = 941 + Top = 209 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_Financial.ADOLink + Parameters = <> + Left = 741 + Top = 209 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 648 + Top = 328 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 795 + Top = 323 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 720 + Top = 328 + end + object cxStyleRepository1: TcxStyleRepository + Left = 760 + Top = 72 + PixelsPerInch = 96 + object cxStyle1: TcxStyle + AssignedValues = [svTextColor] + TextColor = clRed + end + end + object OpenDialog1: TOpenDialog + Left = 226 + Top = 290 + end + object CDS_LM: TClientDataSet + Aggregates = <> + Params = <> + Left = 560 + Top = 328 + end +end diff --git a/A09财务通用管理/U_HandPayableImport.pas b/A09财务通用管理/U_HandPayableImport.pas new file mode 100644 index 0000000..3d760bb --- /dev/null +++ b/A09财务通用管理/U_HandPayableImport.pas @@ -0,0 +1,282 @@ +unit U_HandPayableImport; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, + cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, + cxTextEdit, cxDropDownEdit, cxPC, U_BaseHelp, cxLookAndFeels, + cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, + dxDateRanges, dxBarBuiltInMenu, ComObj, U_BaseList, System.ImageList, + Vcl.ImgList, dxSkinWXI, dxScrollbarAnnotations; + +type + TfrmHandPayableImport = class(TfrmBaseHelp) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + GPM_1: TcxGridPopupMenu; + DS_1: TDataSource; + CDS_1: TClientDataSet; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + OpenDialog1: TOpenDialog; + ToolButton5: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + Tv1Column1: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + CDS_LM: TClientDataSet; + ToolButton3: TToolButton; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column12: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column11: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + public + { Public declarations } + FCTID: string; + end; + +var + frmHandPayableImport: TfrmHandPayableImport; + +implementation + +uses + U_DataLink, U_RTFun; + +{$R *.dfm} + +procedure TfrmHandPayableImport.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add(' select * from Finance_Flow where 2= 1 '); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmHandPayableImport.FormDestroy(Sender: TObject); +begin + inherited; + frmHandPayableImport := nil; +end; + +procedure TfrmHandPayableImport.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := cafree; + +end; + +procedure TfrmHandPayableImport.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmHandPayableImport.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(self.Caption, Tv1, 'ֹù'); + with CDS_LM do + begin + FieldDefs.Clear; + FieldDefs.Add('LXH', ftInteger, 0); + FieldDefs.Add('lCode', ftString, 40); + FieldDefs.Add('LName', ftString, 40); + close; + CreateDataSet; + end; + InitGrid(); +end; + +procedure TfrmHandPayableImport.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmHandPayableImport.ToolButton1Click(Sender: TObject); +begin + WriteCxGrid(self.Caption, Tv1, 'Ʒ'); +end; + +procedure TfrmHandPayableImport.ToolButton2Click(Sender: TObject); +begin + try + ADOQueryCmd.Connection.BeginTrans; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not eof do + begin + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select top 1 * from Finance_Flow where FFID=' + quotedstr(Trim(CDS_1.fieldbyname('FFID').AsString))); + open; + end; + if not ADOQueryCmd.IsEmpty then + raise Exception.Create(PChar('ˮţ' + Trim(ADOQueryCmd.fieldbyname('FFID').AsString) + ' ظ')); + + with ADOQueryCmd do + begin + + Append; + FieldByName('Fillid').Value := Trim(Dcode); + FieldByName('Filler').Value := Trim(DName); + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Bs_Cloth_Info', 0); +// FieldByName('BCIID').Value := Trim(CDS_1.fieldbyname('C_Code').AsString); + FieldByName('FFType').Value := 'ֹõǼ'; + Post; + end; + + Next; + end; + end; + + CDS_1.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; +end; + +procedure TfrmHandPayableImport.ToolButton3Click(Sender: TObject); +begin + CDS_1.Delete; +end; + +procedure TfrmHandPayableImport.ToolButton5Click(Sender: TObject); +var + excelApp, WorkBook: Variant; + i, j, k, LX, ExcelRowCount: integer; + maxId, FCPID, FCPName, t1, t2, t3, FFID: string; +begin + + try + excelApp := CreateOleObject('Excel.Application'); + openDialog1.Filter := '*.CSV;*.xls'; + if opendialog1.Execute then + begin + WorkBook := excelApp.WorkBooks.Open(OpenDialog1.FileName); + end + else + exit; + excelApp.Visible := false; + ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count; + except + application.MessageBox('EXCEL', 'Ϣ', MB_ICONERROR); + exit; + end; + + CDS_LM.EmptyDataSet; + + for j := 0 to Tv1.ColumnCount - 1 do + begin + with CDS_LM do + begin + Append; + FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName); + FieldByName('LName').Value := trim(Tv1.Columns[j].Caption); + Post; + end; + end; + + try + for i := 1 to 50 do + begin + if trim(WorkBook.WorkSheets[1].Cells[1, i].value) = '' then + continue; + if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[1, i].value), []) then + begin + with CDS_LM do + begin + Edit; + FieldByName('LXH').Value := i; + Post; + end; + end; + end; + except + application.MessageBox('', 'Ϣ', MB_ICONERROR); + exit; + end; + + try + for i := 2 to ExcelRowCount do + begin + with CDS_1 do + begin + Append; + CDS_LM.First; + while not CDS_LM.Eof do + begin + if CDS_LM.FieldByName('LXH').AsInteger > 0 then + CDS_1.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value; + CDS_LM.Next; + end; + Post; + end; + end; + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + except + WorkBook.Close; + excelApp.Quit; + excelApp := Unassigned; + WorkBook := Unassigned; + exit; + end; + +end; + +end. + diff --git a/A09财务通用管理/U_HandPayableInPut.dfm b/A09财务通用管理/U_HandPayableInPut.dfm new file mode 100644 index 0000000..eae48f0 --- /dev/null +++ b/A09财务通用管理/U_HandPayableInPut.dfm @@ -0,0 +1,265 @@ +object frmHandPayableInPut: TfrmHandPayableInPut + Left = 484 + Top = 189 + Caption = #25163#24037#36153#29992#24405#20837 + ClientHeight = 504 + ClientWidth = 1530 + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poDesktopCenter + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Tag = 1 + Left = 0 + Top = 0 + Width = 1530 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + DisabledImages = DataLink_Financial.ImageList_new32 + Images = DataLink_Financial.ImageList_new32 + List = True + ShowCaptions = True + TabOrder = 0 + object TSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 16 + OnClick = TSaveClick + end + object ToolButton1: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 2 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 6 + OnClick = ToolButton2Click + end + object ToolButton3: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 308 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 38 + Width = 1530 + Height = 466 + Align = alClient + TabOrder = 1 + ExplicitTop = 44 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v1Money + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.GoToNextCellOnEnter = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Footer = DataLink_Financial.Default + Styles.Header = DataLink_Financial.Default + object Tv1Column5: TcxGridDBColumn + Caption = #21457#29983#26085#26399 + DataBinding.FieldName = 'FFTime' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column2: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'OurCoName' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = Tv1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Styles.Header = DataLink_Financial.FontBlue + Width = 82 + end + object Tv1Column4: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OurOrdNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 77 + end + object Tv1Column1: TcxGridDBColumn + Caption = #35745#21010#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = Tv1Column1PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 95 + end + object Tv1Column3: TcxGridDBColumn + Caption = #25688#35201 + DataBinding.FieldName = 'FFAbstract' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = Tv1Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column3: TcxGridDBColumn + Caption = #36153#29992#31867#21035 + DataBinding.FieldName = 'FFAbstractDL' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = v1Column3PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column4: TcxGridDBColumn + Caption = #25903#20986#20107#30001 + DataBinding.FieldName = 'SubExpend' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Money: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Amount' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column5: TcxGridDBColumn + Caption = #35777#26126#20154 + DataBinding.FieldName = 'Certifier' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 53 + end + object Tv1Column7: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object Tv1Column8: TcxGridDBColumn + Caption = #32463#25163#20154 + DataBinding.FieldName = 'handler' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 54 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object DataSource1: TDataSource + DataSet = CDS_Invoice + Left = 516 + Top = 280 + end + object CDS_Invoice: TClientDataSet + Aggregates = <> + Params = <> + Left = 384 + Top = 268 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 280 + Top = 112 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_Financial.ADOLink + Parameters = <> + Left = 96 + Top = 116 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_Financial.ADOLink + Parameters = <> + Left = 180 + Top = 116 + end +end diff --git a/A09财务通用管理/U_HandPayableInPut.pas b/A09财务通用管理/U_HandPayableInPut.pas new file mode 100644 index 0000000..a0079c2 --- /dev/null +++ b/A09财务通用管理/U_HandPayableInPut.pas @@ -0,0 +1,452 @@ +unit U_HandPayableInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter, + cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, + DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit, + cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar, + dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, dxSkinWXI, + dxScrollbarAnnotations; + +type + TfrmHandPayableInPut = class(TForm) + DataSource1: TDataSource; + CDS_Invoice: TClientDataSet; + GPM_1: TcxGridPopupMenu; + ToolBar1: TToolBar; + TSave: TToolButton; + TBClose: TToolButton; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + ADOQueryTmp: TADOQuery; + ADOQueryCmd: TADOQuery; + v1Column3: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + ToolButton3: TToolButton; + Tv1Column8: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TSaveClick(Sender: TObject); + procedure v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1P_SpecPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + + procedure FormDestroy(Sender: TObject); + procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Tv1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Tv1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + private + procedure initGrid(); + procedure SaveDate(); + { Private declarations } + public + FFID: string; + fInvoiceFlag, PState: string; + { Public declarations } + end; + +var + frmHandPayableInPut: TfrmHandPayableInPut; + +implementation + +uses + U_RTFun, U_ZDYHelp, U_CompanySel, U_dataLink, U_ClothInfoSel, U_TradePlanSel; +{$R *.dfm} + +procedure TfrmHandPayableInPut.SaveDate(); +var + MaxNo: string; +begin + ADOQueryCmd.Connection.BeginTrans; + try + with CDS_Invoice do + begin + first; + while not eof do + begin + if fieldbyname('FFID').AsString = '' then + begin + if GetLSNo(ADOQueryTmp, MaxNo, 'SG', 'Finance_Flow', 4, 1) = False then + raise Exception.Create('取最大号失败！'); + end + else + MaxNo := CDS_Invoice.fieldbyname('FFID').AsString; + + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.add('select * from Finance_Flow where FFID=' + quotedstr(Trim(MaxNo))); + open; + end; + if ADOQueryCmd.IsEmpty then + begin + ADOQueryCmd.append; + ADOQueryCmd.FieldByName('FillId').Value := Trim(DCode); + ADOQueryCmd.FieldByName('Filler').Value := Trim(DName); + ADOQueryCmd.FieldByName('status').Value := '0'; + end + else + begin + ADOQueryCmd.edit; + ADOQueryCmd.FieldByName('EditId').Value := Trim(DCode); + ADOQueryCmd.FieldByName('Editer').Value := Trim(DName); + ADOQueryCmd.FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTmp); + end; + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Invoice, 'Finance_Flow', 0); + ADOQueryCmd.fieldbyname('FFID').Value := MaxNo; +// ADOQueryCmd.fieldbyname('IVFlag').Value := '进项'; +// ADOQueryCmd.fieldbyname('OppCoNo').Value := trim(CDS_Invoice.FieldByName('OppCoNo').AsString); +// ADOQueryCmd.fieldbyname('OppParentCoNo').Value := trim(CDS_Invoice.FieldByName('OppParentCoNo').AsString); + ADOQueryCmd.fieldbyname('OurCoNo').Value := trim(CDS_Invoice.FieldByName('OurCoNo').AsString); + ADOQueryCmd.fieldbyname('FFType').Value := '手工费用登记'; + ADOQueryCmd.Post; + next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + application.MessageBox('保存成功！', '提示'); + Modalresult := 1; + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); + end; +end; + +procedure TfrmHandPayableInPut.initGrid(); +begin + with ADOQueryTmp do + begin + close; + sql.Clear; + if PState = '复制' then + begin + sql.Add('select '''' FFID,* from Finance_Flow where FFID=''' + trim(FFID) + ''''); + end + else + begin + sql.Add('select 0 Amount,* from Finance_Flow where FFID=''' + trim(FFID) + ''''); + end; + sql.add(' and isnull(status,''0'')=''0'''); +// showmessage(sql.text); + open; + end; + + SCreateCDS(ADOQueryTmp, CDS_Invoice); + SInitCDSData(ADOQueryTmp, CDS_Invoice); +end; + +procedure TfrmHandPayableInPut.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmHandPayableInPut.FormShow(Sender: TObject); +begin + ReadCxGrid(Self.Caption, Tv1, '财务管理'); + + initGrid(); +end; + +procedure TfrmHandPayableInPut.TSaveClick(Sender: TObject); +begin + +// if CDS_Invoice.Locate('IVNo', null, []) then +// begin +// application.MessageBox('发票号不能为空', '提示'); +// exit; +// end; +// if CDS_Invoice.Locate('IVType', null, []) then +// begin +// application.MessageBox('发票类型不能为空', '提示'); +// exit; +// end; +// if CDS_Invoice.Locate('OurCoName', null, []) then +// begin +// application.MessageBox('我方单位不能为空', '提示'); +// exit; +// end; +// if CDS_Invoice.Locate('OppCoName', null, []) then +// begin +// application.MessageBox('对方单位不能为空', '提示'); +// exit; +// end; + SaveDate(); +end; + +procedure TfrmHandPayableInPut.v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'FFAbstractDL'; + flagname := '费用类别'; + if ShowModal = 1 then + begin + Self.CDS_Invoice.Edit; + Self.CDS_Invoice.FieldByName('FFAbstractDL').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); +// Self.CDS_Invoice.FieldByName('F_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; + + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmHandPayableInPut.v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'MPRTCodeName'; + flagname := '产品名称'; + if ShowModal = 1 then + begin + Self.CDS_Invoice.Edit; + Self.CDS_Invoice.FieldByName('F_Name').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.CDS_Invoice.FieldByName('F_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; + + tv1.Controller.EditingController.ShowEdit(); +end; + +procedure TfrmHandPayableInPut.v1P_SpecPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'P_Spec'; + flagname := '成品规格'; + if ShowModal = 1 then + begin + Self.CDS_Invoice.Edit; + Self.CDS_Invoice.FieldByName('P_Spec').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmHandPayableInPut.v1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'QtyUnit'; + flagname := '数量单位'; + if ShowModal = 1 then + begin + Self.CDS_Invoice.Edit; + Self.CDS_Invoice.FieldByName('QtyUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + + +procedure TfrmHandPayableInPut.FormDestroy(Sender: TObject); +begin + frmHandPayableInPut := nil; +end; + +procedure TfrmHandPayableInPut.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmTradePlanSel := TfrmTradePlanSel.Create(Application); + with frmTradePlanSel do + begin +// FMainID := MainID.Text; + if ShowModal = 1 then + begin + Self.CDS_Invoice.Edit; + Self.CDS_Invoice.FieldByName('OrderNo').Value := CDS_1.fieldbyname('OrderNo').value; + Self.CDS_Invoice.FieldByName('OurCoName').Value := Trim(CDS_1.fieldbyname('OurCoName').AsString); + Self.CDS_Invoice.FieldByName('OurCoNo').Value := Trim(CDS_1.fieldbyname('OurCoNo').AsString); +// + end; + end; + finally + frmTradePlanSel.Free; + end; +end; + +procedure TfrmHandPayableInPut.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := '我司'; + if ShowModal = 1 then + begin + + Self.CDS_Invoice.Edit; + Self.CDS_Invoice.FieldByName('OurCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); + Self.CDS_Invoice.FieldByName('OurCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + + end; + end; + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmHandPayableInPut.Tv1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + MainType := '手工费用'; + flag := 'FFAbstract'; + flagname := '摘要'; + if ShowModal = 1 then + begin + Self.CDS_Invoice.Edit; + Self.CDS_Invoice.FieldByName('FFAbstract').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmHandPayableInPut.Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := '供应商'; + if ShowModal = 1 then + begin + Self.CDS_Invoice.Edit; + Self.CDS_Invoice.FieldByName('OppCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); + Self.CDS_Invoice.FieldByName('OppCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + Self.CDS_Invoice.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); + Self.CDS_Invoice.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmHandPayableInPut.Tv1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := '供应商'; + if ShowModal = 1 then + begin + Self.CDS_Invoice.Edit; + Self.CDS_Invoice.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString); + Self.CDS_Invoice.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + finally + frmCompanySel.Free; + end; +end; + +procedure TfrmHandPayableInPut.ToolButton1Click(Sender: TObject); +begin + if CDS_Invoice.IsEmpty = False then + begin + CopyAddRowCDS(CDS_Invoice); + with CDS_Invoice do + begin + Edit; + FieldByName('FFID').Value := null; + post; + end; + end + else + begin + with CDS_Invoice do + begin + Append; + FieldByName('FFTime').Value := now(); +// FieldByName('QtyUnit').Value := 'Kg'; + FieldByName('Amount').Value := 0; + Post; + end; + end; + +// CDS_Invoice.append; +// CDS_Invoice.FieldByName('IVDate').Value := now(); +// CDS_Invoice.FieldByName('QtyUnit').Value := 'Kg'; +// CDS_Invoice.FieldByName('Amount').Value := 0; +// CDS_Invoice.FieldByName('Qty').Value := 0; +// CDS_Invoice.FieldByName('tax').Value := 0; +// CDS_Invoice.FieldByName('TaxFee').Value := 0; +// CDS_Invoice.FieldByName('taxAmount').Value := 0; +// CDS_Invoice.FieldByName('Price').Value := 0; +// CDS_Invoice.FieldByName('tax').Value := 13; +// CDS_Invoice.FieldByName('Currency').Value := 'CNY'; +// CDS_Invoice.Post; + +end; + +procedure TfrmHandPayableInPut.ToolButton2Click(Sender: TObject); +begin + if CDS_Invoice.IsEmpty then + exit; + if application.MessageBox('确定要删除吗', '提示', 1) = 2 then + exit; + with ADOQueryTmp do + begin + close; + sql.clear; + sql.add('delete from Finance_Flow where FFID=''' + trim(CDS_Invoice.fieldbyname('FFID').asstring) + ''' '); + execsql; + end; + CDS_Invoice.delete; +end; + +procedure TfrmHandPayableInPut.ToolButton3Click(Sender: TObject); +begin + WriteCxGrid(Self.Caption, Tv1, '财务管理'); +end; + +end. + diff --git a/A09财务通用管理/U_OtherPayableInput.dfm b/A09财务通用管理/U_OtherPayableInput.dfm index ac15e10..96a2bee 100644 --- a/A09财务通用管理/U_OtherPayableInput.dfm +++ b/A09财务通用管理/U_OtherPayableInput.dfm @@ -596,8 +596,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput Width = 140 end object OrderNo: TBtnEditC - Left = 301 - Top = 47 + Left = 302 + Top = 51 Width = 140 Height = 20 Font.Charset = GB2312_CHARSET @@ -625,8 +625,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput OnBtnDnClick = PayMentBtnDnClick end object FFAbstract: TBtnEditC - Left = 513 - Top = 47 + Left = 514 + Top = 52 Width = 140 Height = 20 Hint = 'FFAbstract/'#25688#35201 diff --git a/A09财务通用管理/U_OtherPayableInput.pas b/A09财务通用管理/U_OtherPayableInput.pas index 4621496..ae6b854 100644 --- a/A09财务通用管理/U_OtherPayableInput.pas +++ b/A09财务通用管理/U_OtherPayableInput.pas @@ -280,7 +280,7 @@ begin frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - MainType := 'Ӧ'; + MainType := 'Ӧ'; flag := Copy(fsj, 1, FWZ - 1); flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); if ShowModal = 1 then diff --git a/A09财务通用管理/U_PayInput.pas b/A09财务通用管理/U_PayInput.pas index 96676dc..4f9dea7 100644 --- a/A09财务通用管理/U_PayInput.pas +++ b/A09财务通用管理/U_PayInput.pas @@ -265,23 +265,23 @@ var fsj: string; FWZ: Integer; begin -// fsj := Trim(TEdit(Sender).Hint); -// FWZ := Pos('/', fsj); -// try -// frmZDYHelp := TfrmZDYHelp.Create(Application); -// with frmZDYHelp do -// begin -// MainType := ''; -// flag := Copy(fsj, 1, FWZ - 1); -// flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); -// if ShowModal = 1 then -// begin -// TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); -// end; -// end; -// finally -// frmZDYHelp.Free; -// end; + fsj := Trim(TEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + MainType := ''; + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; end; procedure TfrmPayInput.FFAbstractDLBtnUpClick(Sender: TObject); diff --git a/A09财务通用管理/U_PayList.dfm b/A09财务通用管理/U_PayList.dfm index eaf897a..61c2941 100644 --- a/A09财务通用管理/U_PayList.dfm +++ b/A09财务通用管理/U_PayList.dfm @@ -282,8 +282,6 @@ inherited frmPayList: TfrmPayList Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitLeft = -64 - ExplicitTop = 144 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -509,7 +507,7 @@ inherited frmPayList: TfrmPayList TabOrder = 3 Properties.CustomButtons.Buttons = <> Properties.Style = 2 - Properties.TabIndex = 0 + Properties.TabIndex = 2 Properties.Tabs.Strings = ( #26410#23457#26680 #24050#23457#26680 diff --git a/A09财务通用管理/U_PayList.pas b/A09财务通用管理/U_PayList.pas index bb2c1de..320ecee 100644 --- a/A09财务通用管理/U_PayList.pas +++ b/A09财务通用管理/U_PayList.pas @@ -236,11 +236,11 @@ begin end; 1: begin - sql.Add(' and isnull(status,''0'')=''9'' '); + sql.Add(' and isnull(status,''0'')=''1'' '); end; 2: begin - sql.Add(' and isnull(status,''0'')=''10'' '); + sql.Add(' and isnull(status,''0'')=''9'' '); end; end; if CheckBox1.Checked then @@ -503,9 +503,10 @@ begin begin Close; sql.Clear; - sql.Add(' exec P_Fin_Flow_SetStatus '); + sql.Add(' exec P_Fin_Flow_SetStatus_1 '); sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); sql.Add(',@Operation='''' '); + Sql.Add(',@SetDate=''' + FormatDateTime('yyyy-MM-dd', Setdate1.DateTime) + ''' '); Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); Sql.Add(',@DName=' + quotedstr(Trim(DName))); open; @@ -730,9 +731,10 @@ begin begin Close; sql.Clear; - sql.Add(' exec P_Fin_Flow_SetStatus '); + sql.Add(' exec P_Fin_Flow_SetStatus_1 '); sql.Add(' @FFIDS=' + QuotedStr(FFFIDS)); sql.Add(',@Operation='''' '); + Sql.Add(',@SetDate=''' + FormatDateTime('yyyy-MM-dd', Setdate2.DateTime) + ''' '); Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); Sql.Add(',@DName=' + quotedstr(Trim(DName))); open; diff --git a/A09财务通用管理/U_PayableInput.pas b/A09财务通用管理/U_PayableInput.pas index d9b2510..3ccaccf 100644 --- a/A09财务通用管理/U_PayableInput.pas +++ b/A09财务通用管理/U_PayableInput.pas @@ -282,7 +282,7 @@ begin frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin -// MainType := 'Ӧ'; + MainType := 'Ӧ'; flag := Copy(fsj, 1, FWZ - 1); flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); if ShowModal = 1 then diff --git a/A09财务通用管理/U_ReceivableInput.dfm b/A09财务通用管理/U_ReceivableInput.dfm index 4149162..058190f 100644 --- a/A09财务通用管理/U_ReceivableInput.dfm +++ b/A09财务通用管理/U_ReceivableInput.dfm @@ -72,7 +72,6 @@ object frmReceivableInput: TfrmReceivableInput ParentFont = False TabOrder = 1 OnClick = ScrollBox1Click - ExplicitLeft = 1 object Label2: TLabel Left = 245 Top = 20 diff --git a/A09财务通用管理/U_ReceivableInput.pas b/A09财务通用管理/U_ReceivableInput.pas index 8f8fa12..e578bb4 100644 --- a/A09财务通用管理/U_ReceivableInput.pas +++ b/A09财务通用管理/U_ReceivableInput.pas @@ -14,7 +14,7 @@ uses IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, - dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit; + dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit, dxSkinWXI; type TfrmReceivableInput = class(TForm) diff --git a/A09财务通用管理/U_ReceivableList.dfm b/A09财务通用管理/U_ReceivableList.dfm index b0abbca..28f6bce 100644 --- a/A09财务通用管理/U_ReceivableList.dfm +++ b/A09财务通用管理/U_ReceivableList.dfm @@ -274,7 +274,6 @@ inherited frmReceivableList: TfrmReceivableList Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitTop = 142 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False diff --git a/A09财务通用管理/U_handPayableList.dfm b/A09财务通用管理/U_handPayableList.dfm new file mode 100644 index 0000000..3270202 --- /dev/null +++ b/A09财务通用管理/U_handPayableList.dfm @@ -0,0 +1,524 @@ +inherited frmhandPayableList: TfrmhandPayableList + Left = 308 + Top = 202 + Caption = #25163#24037#36153#29992#30331#35760 + ClientHeight = 626 + ClientWidth = 1540 + FormStyle = fsMDIChild + Visible = True + ExplicitWidth = 1556 + ExplicitHeight = 665 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clWhite + DisabledImages = DataLink_Financial.ImageList_new32 + Images = DataLink_Financial.ImageList_new32 + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + ExplicitTop = 3 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 0 + OnClick = ToolButton2Click + end + object TADD: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 9 + OnClick = TADDClick + end + object TUPDATE: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20462#25913 + ImageIndex = 3 + OnClick = TUPDATEClick + end + object ToolButton5: TToolButton + Left = 284 + Top = 0 + AutoSize = True + Caption = #22797#21046 + ImageIndex = 13 + OnClick = ToolButton5Click + end + object TBDEL: TToolButton + Left = 355 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + OnClick = TBDELClick + end + object TSel: TToolButton + Left = 426 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 4 + OnClick = TSelClick + end + object TCHK: TToolButton + Left = 497 + Top = 0 + AutoSize = True + Caption = #23457#26680 + ImageIndex = 12 + OnClick = TCHKClick + end + object TNOCHK: TToolButton + Left = 568 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 11 + OnClick = TNOCHKClick + end + object ToolButton4: TToolButton + Left = 663 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + Visible = False + OnClick = ToolButton4Click + end + object ToolButton1: TToolButton + Left = 734 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 805 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 900 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + object ToolButton6: TToolButton + Left = 971 + Top = 0 + AutoSize = True + Caption = #23548#20837 + ImageIndex = 17 + OnClick = ToolButton6Click + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1540 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + ExplicitTop = 32 + object Label2: TLabel + Left = 40 + Top = 13 + Width = 52 + Height = 12 + Caption = #21457#31080#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 74 + Top = 37 + Width = 30 + Height = 12 + Caption = '-----' + end + object Label5: TLabel + Left = 214 + Top = 14 + Width = 52 + Height = 12 + Caption = #23545#26041#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label1: TLabel + Left = 210 + Top = 40 + Width = 52 + Height = 12 + Caption = #25105#26041#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object begdate: TDateTimePicker + Left = 94 + Top = 9 + Width = 97 + Height = 20 + Date = 41256.000000000000000000 + Time = 0.918237847232376200 + TabOrder = 0 + end + object Enddate: TDateTimePicker + Left = 94 + Top = 33 + Width = 97 + Height = 20 + Date = 41256.000000000000000000 + Time = 0.918237847232376200 + TabOrder = 2 + end + object FactoryName: TEdit + Tag = 2 + Left = 266 + Top = 10 + Width = 89 + Height = 20 + TabOrder = 1 + Visible = False + OnChange = IVNoChange + end + object SYRName: TEdit + Tag = 2 + Left = 266 + Top = 36 + Width = 89 + Height = 20 + TabOrder = 3 + Visible = False + OnChange = IVNoChange + end + end + object cxGrid1: TcxGrid [2] + Left = 0 + Top = 127 + Width = 1540 + Height = 499 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 3 + ExplicitTop = 199 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_Invoice + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column15 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Footer = DataLink_Financial.Default + Styles.Header = DataLink_Financial.Default + object v1Column3: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + HeaderAlignmentHorz = taCenter + Width = 49 + end + object Tv1Column2: TcxGridDBColumn + Caption = #27969#27700#21495 + DataBinding.FieldName = 'FFID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 68 + end + object v1InvoiceDate: TcxGridDBColumn + Caption = #21457#29983#26085#26399 + DataBinding.FieldName = 'FFTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object v1Column2: TcxGridDBColumn + Caption = #20844#21496#25260#22836 + DataBinding.FieldName = 'OurCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Header = DataLink_Financial.FontBlue + Width = 83 + end + object v1Column12: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OurOrdNo' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 57 + end + object v1Column13: TcxGridDBColumn + Caption = #35745#21010#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 63 + end + object v1Column14: TcxGridDBColumn + Caption = #25688#35201 + DataBinding.FieldName = 'FFAbstract' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 44 + end + object v1Column17: TcxGridDBColumn + Caption = #36153#29992#31867#21035 + DataBinding.FieldName = 'FFAbstractDL' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 64 + end + object v1Column18: TcxGridDBColumn + Caption = #25903#20986#20107#30001 + DataBinding.FieldName = 'SubExpend' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + end + object v1Column15: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Amount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 54 + end + object v1Column19: TcxGridDBColumn + Caption = #35777#26126#20154 + DataBinding.FieldName = 'Certifier' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + end + object v1note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 114 + end + object Tv1Column1: TcxGridDBColumn + Caption = #32463#25163#20154 + DataBinding.FieldName = 'handler' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object cxTabControl1: TcxTabControl [3] + Left = 0 + Top = 105 + Width = 1540 + Height = 22 + Align = alTop + TabOrder = 2 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 22 + ClientRectRight = 1540 + ClientRectTop = 19 + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_Financial.ADOLink + Left = 161 + Top = 264 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_Financial.ADOLink + Left = 161 + Top = 201 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_Financial.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 351 + Top = 187 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_Financial.ADOLink + Parameters = <> + Left = 388 + Top = 187 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_Financial.ADOLink + Parameters = <> + Left = 417 + Top = 189 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 468 + Top = 268 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryTemp + Left = 432 + Top = 268 + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 440 + Top = 324 + end + object DS_Invoice: TDataSource + DataSet = CDS_Invoice + Left = 527 + Top = 323 + end + object CDS_Invoice: TClientDataSet + Aggregates = <> + Params = <> + Left = 488 + Top = 324 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 504 + Top = 268 + end + object PopupMenu1: TPopupMenu + Left = 388 + Top = 324 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046 + OnClick = N3Click + end + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_Financial.ADOLink + Parameters = <> + Left = 381 + Top = 269 + end +end diff --git a/A09财务通用管理/U_handPayableList.pas b/A09财务通用管理/U_handPayableList.pas new file mode 100644 index 0000000..42b5dc5 --- /dev/null +++ b/A09财务通用管理/U_handPayableList.pas @@ -0,0 +1,569 @@ +unit U_handPayableList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, + cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, + cxTextEdit, cxDropDownEdit, cxPC, RM_e_Xls, Menus, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, U_BaseList, Vcl.Clipbrd, dxSkinWXI, + dxScrollbarAnnotations; + +type + TfrmhandPayableList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + RM1: TRMGridReport; + RMDB_Main: TRMDBDataSet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGridLevel1: TcxGridLevel; + Label2: TLabel; + Label6: TLabel; + begdate: TDateTimePicker; + Enddate: TDateTimePicker; + cxGridPopupMenu2: TcxGridPopupMenu; + DS_Invoice: TDataSource; + CDS_Invoice: TClientDataSet; + TADD: TToolButton; + TUPDATE: TToolButton; + TBDEL: TToolButton; + v1InvoiceDate: TcxGridDBColumn; + v1note: TcxGridDBColumn; + Label5: TLabel; + FactoryName: TEdit; + TCHK: TToolButton; + TNOCHK: TToolButton; + cxTabControl1: TcxTabControl; + TSel: TToolButton; + v1Column2: TcxGridDBColumn; + RMXLSExport1: TRMXLSExport; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ToolButton4: TToolButton; + v1Column3: TcxGridDBColumn; + ADOQueryPrint: TADOQuery; + Label1: TLabel; + SYRName: TEdit; + v1Column12: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column14: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column17: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column19: TcxGridDBColumn; + ToolButton3: TToolButton; + N3: TMenuItem; + ToolButton5: TToolButton; + Tv1Column1: TcxGridDBColumn; + ToolButton6: TToolButton; + Tv1Column2: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure IVNoChange(Sender: TObject); + procedure TADDClick(Sender: TObject); + procedure TUPDATEClick(Sender: TObject); + procedure TBDELClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure TCHKClick(Sender: TObject); + procedure TNOCHKClick(Sender: TObject); + procedure TSelClick(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure v1Column14PropertiesEditValueChanged(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + private + { Private declarations } + + procedure InitGrid(); + procedure SetStatus(); + public + FZKType, canshu1, canshu2: string; + { Public declarations } + end; + +//var +// frmInvoiceXX: TfrmInvoiceXX; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_InvoiceInInPut, U_HandPayableInPut,U_HandPayableImport; + +{$R *.dfm} + +procedure TfrmhandPayableList.SetStatus(); +begin + tchk.Visible := false; + tnochk.Visible := false; + TUPDATE.Visible := false; + tbdel.Visible := false; + + if trim(DParameters1) <> 'Ȩ' then + begin + case cxTabControl1.TabIndex of + 0: + begin + TUPDATE.Visible := true; + tbdel.Visible := true; + TCHK.Visible := true; + end; + 1: + begin + tnochk.Visible := true; + + end; + 2: + begin + end; + end; + end + else + begin + case cxTabControl1.TabIndex of + 0: + begin + tchk.Visible := true; + TUPDATE.Visible := true; + tbdel.Visible := true; + TCHK.Visible := true; + end; + 1: + begin + tnochk.Visible := true; + + end; + 2: + begin + end; + end; + end; + +end; + +procedure TfrmhandPayableList.InitGrid(); +begin + try + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add(' select A.* from Finance_Flow A '); + sql.add(' where A.FFTime>=''' + formatdatetime('yyyy-MM-dd', begdate.datetime) + ''' '); + sql.Add(' and A.FFTime<''' + formatdateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' '); + sql.Add(' and A.FFType=''ֹõǼ'' '); + case cxTabControl1.TabIndex of + 0: + begin + sql.add(' and isnull(A.Status,''0'')=''0'''); + end; + 1: + begin + sql.add(' and A.Status=''9'''); + end; + end; + + Open; + end; + SCreateCDS(ADOQueryMain, CDS_Invoice); + SInitCDSData(ADOQueryMain, CDS_Invoice); + finally + TV1.DataController.Filter.Clear; + end; +end; + +procedure TfrmhandPayableList.FormDestroy(Sender: TObject); +begin + inherited; +// frmInvoiceXX := nil; +end; + +procedure TfrmhandPayableList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmhandPayableList.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmhandPayableList.FormShow(Sender: TObject); +begin + inherited; + ReadCxGrid(self.Caption, Tv1, ''); + Enddate.DateTime := SGetServerDate(ADOQueryTemp); + begdate.DateTime := Enddate.DateTime - 30; + + SetStatus(); + InitGrid(); +end; + +procedure TfrmhandPayableList.TBRafreshClick(Sender: TObject); +begin + begdate.SetFocus; + InitGrid(); +end; + +procedure TfrmhandPayableList.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_Invoice); + SInitCDSData(ADOQueryMain, CDS_Invoice); + end; +end; + +procedure TfrmhandPayableList.ToolButton3Click(Sender: TObject); +begin + WriteCxGrid(self.Caption, Tv1, ''); +end; + +procedure TfrmhandPayableList.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(self.Caption, cxgrid1); +end; + +procedure TfrmhandPayableList.IVNoChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmhandPayableList.TADDClick(Sender: TObject); +begin + frmHandPayableInPut := TfrmHandPayableInPut.Create(self); + with frmHandPayableInPut do + begin + FFID := ''; +// FZKType := Self.FZKType; + + if showmodal = 1 then + begin + initGrid(); + end; + free; + end; + +end; + +procedure TfrmhandPayableList.TUPDATEClick(Sender: TObject); +begin + frmHandPayableInPut := TfrmHandPayableInPut.Create(self); + with frmHandPayableInPut do + begin +// IvNo.Enabled := False; + FFID := trim(Self.CDS_Invoice.fieldbyname('FFID').asstring); + + if showmodal = 1 then + begin + Self.initGrid(); + end; + free; + end; + +end; + +procedure TfrmhandPayableList.TBDELClick(Sender: TObject); +begin + if CDS_Invoice.IsEmpty then + exit; + if application.MessageBox('ȷҪɾ', 'ʾ', 1) = 2 then + exit; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.add('delete from Finance_Flow where FFID=''' + trim(CDS_Invoice.fieldbyname('FFID').asstring) + ''' '); + +// sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); +// sql.Add(' ' + quotedstr(trim(DName))); +// sql.Add(',getdate() '); +// sql.Add(',' + quotedstr(trim(self.Caption))); +// sql.Add(',' + quotedstr(trim('ֹɾ'))); +// sql.Add(',' + quotedstr(trim('Ʊţ' + trim(CDS_Invoice.FieldByName('ivNo').AsString)))); +// sql.Add(',' + quotedstr(trim('ɹ'))); +// sql.Add(')'); + execsql; + end; + ADOQueryCmd.Connection.CommitTrans; + CDS_Invoice.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + end; + +end; + +procedure TfrmhandPayableList.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + initGrid(); +end; + +procedure TfrmhandPayableList.TCHKClick(Sender: TObject); +begin + if CDS_Invoice.IsEmpty then + exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.add('update Finance_Flow set Chker=''' + trim(DName) + ''',Chktime=getdate(),status=''9'' '); + sql.add('where FFType=''ֹõǼ'' and FFID=''' + trim(CDS_Invoice.fieldbyname('FFID').asstring) + ''' '); + + execsql; + end; + application.MessageBox('˳ɹ', 'ʾ'); + CDS_Invoice.delete; + except + ; + application.MessageBox('ʧ', 'ʾ'); + end; +end; + +procedure TfrmhandPayableList.TNOCHKClick(Sender: TObject); +begin + if CDS_Invoice.IsEmpty then + exit; + + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.add('update Finance_Flow set Chker=null,Chktime=null,status=''0'' '); + sql.add('where FFType=''ֹõǼ'' and FFID=''' + trim(CDS_Invoice.fieldbyname('FFID').asstring) + ''' '); + + execsql; + end; + application.MessageBox('ɹ', 'ʾ'); + CDS_Invoice.delete; + except + application.MessageBox('ʧ', 'ʾ'); + end; +end; + +procedure TfrmhandPayableList.TSelClick(Sender: TObject); +begin + frmHandPayableInPut := TfrmHandPayableInPut.Create(self); + with frmHandPayableInPut do + begin + TSave.Visible := False; + FFID := trim(Self.CDS_Invoice.fieldbyname('FFID').asstring); + if showmodal = 1 then + begin + + end; + end; +end; + +procedure TfrmhandPayableList.FormCreate(Sender: TObject); +begin + inherited; + canshu1 := trim(DParameters1); +end; + +procedure TfrmhandPayableList.N1Click(Sender: TObject); +begin + SelOKNo(CDS_Invoice, True); + +end; + +procedure TfrmhandPayableList.N2Click(Sender: TObject); +begin + SelOKNo(CDS_Invoice, false); +end; + +procedure TfrmhandPayableList.N3Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_Invoice.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmhandPayableList.ToolButton4Click(Sender: TObject); +var + fPrintFile: string; + Porderno, LBName, SYRName: string; + i, j: Integer; + OrderKg: Double; +begin + if CDS_Invoice.IsEmpty then + Exit; + if CDS_Invoice.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ', 'ʾ', 0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete TBSubID where DName=''' + Trim(DCode) + ''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('SELECT * FROM TBSubID where 1=2 '); + open; + end; + CDS_Invoice.DisableControls; + try + ADOQueryCmd.Connection.BeginTrans; + with CDS_Invoice do + begin + First; + while not Eof do + begin + if Fieldbyname('Ssel').AsBoolean then + begin + ADOQueryCmd.append; + ADOQueryCmd.fieldbyname('SubId').Value := Trim(CDS_Invoice.fieldbyname('InvoiceNo').AsString); + ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode); + ADOQueryCmd.post; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + except + ADOQueryCmd.Connection.RollbackTrans; + end; + CDS_Invoice.EnableControls; + + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.Add('exec P_View_FPTJ ' + quotedstr(Trim(DCode))); + Open; + end; + ExportFtErpFile('Ʊб.rmf', ADOQueryTemp); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\Ʊб.rmf'; + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); +// RMVariables['SYRName']:=Trim(SYRName); + RM1.ShowReport; + end + else + begin + Application.MessageBox(PChar('ûReport\Ʊб.rmf'), 'ʾ', 0); + end; +end; + +procedure TfrmhandPayableList.ToolButton5Click(Sender: TObject); +begin + frmHandPayableInPut := TfrmHandPayableInPut.Create(self); + with frmHandPayableInPut do + begin +// IvNo.Enabled := False; + FFID := trim(Self.CDS_Invoice.fieldbyname('FFID').asstring); + PState:=''; + if showmodal = 1 then + begin + Self.initGrid(); + end; + free; + end; + +end; + +procedure TfrmhandPayableList.ToolButton6Click(Sender: TObject); +begin + try + frmHandPayableImport := TfrmHandPayableImport.Create(Application); + with frmHandPayableImport do + begin +// FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString); + if ShowModal = 1 then + begin + Self.InitGrid(); + end; + end; + finally + frmHandPayableImport.Free; + end; + +end; + +procedure TfrmhandPayableList.v1Column14PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; + FQty, FPrice, FMoney, Ftax, FtaxMoney: double; +begin + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + mvalue := TcxTextEdit(Sender).EditingText; + if Trim(mvalue) = '' then + begin + mvalue := '0'; + end; + with CDS_Invoice do + begin + Edit; + FieldByName(FFieldName).Value := Trim(mvalue); + Post; + FQty := FieldbyName('Qty').AsFloat; + FtaxMoney := FieldbyName('taxMoney').AsFloat; + Ftax := FieldbyName('tax').AsFloat; + end; + if FQty <> 0 then + begin + + FMoney := strtofloat(format('%.2f', [FtaxMoney / (1 + Ftax / 100)])); + FPrice := strtofloat(format('%.2f', [FMoney / FQty])); + end + else + begin + FPrice := 0; + FMoney := strtofloat(format('%.2f', [FtaxMoney / (1 + Ftax / 100)])); + end; + + with CDS_Invoice do + begin + Edit; + FieldByName('Price').Value := FPrice; + FieldByName('Money').Value := FMoney; + FieldByName('TaxFee').Value := FtaxMoney - FMoney; + Post; + end; + tv1.Controller.EditingController.ShowEdit(); + +end; + +end. + diff --git a/T04贸易明细仓库/TradeClothStk.identcache b/T04贸易明细仓库/TradeClothStk.identcache index bf6b483..fb48c02 100644 Binary files a/T04贸易明细仓库/TradeClothStk.identcache and b/T04贸易明细仓库/TradeClothStk.identcache differ diff --git a/T04贸易明细仓库/testDll.identcache b/T04贸易明细仓库/testDll.identcache index 3c2d024..9052b54 100644 Binary files a/T04贸易明细仓库/testDll.identcache and b/T04贸易明细仓库/testDll.identcache differ