11

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}
 

A09财务通用管理/Financial.dproj

@@ -165,14 +165,6 @@
             <Form>frmEmployeeSel</Form>
             <FormType>dfm</FormType>
         </DCCReference>
-        <DCCReference Include="U_InvoiceInInPut.pas">
-            <Form>frmInvoiceInInPut</Form>
-            <FormType>dfm</FormType>
-        </DCCReference>
-        <DCCReference Include="U_InvoiceInList.pas">
-            <Form>frmInvoiceInList</Form>
-            <FormType>dfm</FormType>
-        </DCCReference>
         <DCCReference Include="..\A00通用窗体\U_BankSel.pas">
             <Form>frmBankSel</Form>
             <FormType>dfm</FormType>
@@ -214,6 +206,18 @@
             <Form>frmOtherPayableInput</Form>
             <FormType>dfm</FormType>
         </DCCReference>
+        <DCCReference Include="U_handPayableList.pas">
+            <Form>frmhandPayableList</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="U_HandPayableInPut.pas">
+            <Form>frmHandPayableInPut</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="U_HandPayableImport.pas">
+            <Form>frmHandPayableImport</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

A09财务通用管理/Financial.dproj.local

@@ -1,48 +1,53 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.487,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.715,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.753,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.dfm=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.927,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.927,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
+    <Transaction>2024-08-06 09:44:01.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.pas</Transaction>
+    <Transaction>2024-08-06 09:44:01.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.dfm</Transaction>
+    <Transaction>2024-08-06 09:44:58.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.dfm</Transaction>
+    <Transaction>2024-08-06 09:44:58.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.pas</Transaction>
+    <Transaction>2024-08-06 14:37:23.095,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableImport.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="android-support-v4.dex.jar"/>
@@ -93,6 +98,8 @@
     <File Path="D:\Dp10Repo"/>
     <File Path="..\..\..\public10"/>
     <File Path="..\..\..\public10\design"/>
+    <File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
+    <File Path="..\..\..\public10\design\U_BaseDataLink.dfm"/>
     <File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
     <File Path="..\..\..\public10\design\U_BaseHelp.dfm"/>
     <File Path="..\..\..\public10\design\U_BaseInput.pas"/>
@@ -102,8 +109,6 @@
     <File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
     <File Path="..\..\..\public10\design\U_globalVar.pas"/>
     <File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
-    <File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
-    <File Path="..\..\..\public10\design\U_BaseDataLink.dfm"/>
     <File Path="..\..\..\public10\ThreeFun"/>
     <File Path="..\..\..\public10\ThreeFun\Form"/>
     <File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
@@ -115,10 +120,6 @@
     <File Path="U_DataLink.dfm"/>
     <File Path="U_GetDllForm.pas"/>
     <File Path="U_iniParam.pas"/>
-    <File Path="U_InvoiceInList.pas"/>
-    <File Path="U_InvoiceInList.dfm"/>
-    <File Path="U_InvoiceInInPut.pas"/>
-    <File Path="U_InvoiceInInPut.dfm"/>
     <File Path="U_FtyStatement.pas"/>
     <File Path="U_FtyStatement.dfm"/>
     <File Path="U_CompanySel.pas"/>
@@ -127,5 +128,11 @@
     <File Path="U_OtherPayableList.dfm"/>
     <File Path="U_OtherPayableInput.pas"/>
     <File Path="U_OtherPayableInput.dfm"/>
+    <File Path="U_handPayableList.pas"/>
+    <File Path="U_handPayableList.dfm"/>
+    <File Path="U_HandPayableInPut.pas"/>
+    <File Path="U_HandPayableInPut.dfm"/>
+    <File Path="U_HandPayableImport.pas"/>
+    <File Path="U_HandPayableImport.dfm"/>
   </ProjectSortOrder>
 </BorlandProject>

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

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)

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

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)

A09财务通用管理/U_DataLink.dfm

@@ -1,4 +1,5 @@
 inherited DataLink_Financial: TDataLink_Financial
+  OldCreateOrder = True
   OnDestroy = DataModuleDestroy
   Height = 349
   Width = 482

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            ')

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)

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       //

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

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.
+

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

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.
+

A09财务通用管理/U_OtherPayableInput.dfm

@@ -596,8 +596,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput
       Width = 140
     end
     object OrderNo: TBtnEditC
-      Left = 301
+      Left = 302
-      Top = 47
+      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
+      Left = 514
-      Top = 47
+      Top = 52
       Width = 140
       Height = 20
       Hint = 'FFAbstract/'#25688#35201

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

A09财务通用管理/U_PayInput.pas

@@ -265,23 +265,23 @@ var
   fsj: string;
   FWZ: Integer;
 begin
-//  fsj := Trim(TEdit(Sender).Hint);
+  fsj := Trim(TEdit(Sender).Hint);
-//  FWZ := Pos('/', fsj);
+  FWZ := Pos('/', fsj);
-//  try
+  try
-//    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
-//    with frmZDYHelp do
+    with frmZDYHelp do
-//    begin
+    begin
-//      MainType := '¸¶¿î';
+      MainType := '¸¶¿î';
-//      flag := Copy(fsj, 1, FWZ - 1);
+      flag := Copy(fsj, 1, FWZ - 1);
-//      flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+      flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
-//      if ShowModal = 1 then
+      if ShowModal = 1 then
-//      begin
+      begin
-//        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
-//      end;
+      end;
-//    end;
+    end;
-//  finally
+  finally
-//    frmZDYHelp.Free;
+    frmZDYHelp.Free;
-//  end;
+  end;
 end;
 
 procedure TfrmPayInput.FFAbstractDLBtnUpClick(Sender: TObject);

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

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;

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

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

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)

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

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

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.
+