财务

A09财务通用管理/Financial.dpr

@@ -48,7 +48,9 @@ uses
   U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas',
   uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
   U_GETableBatchInput in 'U_GETableBatchInput.pas' {frmGetableBatchInput},
-  U_FinPurchasePlanSel in 'U_FinPurchasePlanSel.pas' {frmFinPurchasePlanSel};
+  U_FinPurchasePlanSel in 'U_FinPurchasePlanSel.pas' {frmFinPurchasePlanSel},
+  U_CollectInput2 in 'U_CollectInput2.pas' {frmCollectInput2},
+  U_InvoiceOutSel in 'U_InvoiceOutSel.pas' {frmInvoiceOutSel};
 
 {$R *.res}
 

A09财务通用管理/Financial.dproj

@@ -225,6 +225,14 @@
             <Form>frmFinPurchasePlanSel</Form>
             <FormType>dfm</FormType>
         </DCCReference>
+        <DCCReference Include="U_CollectInput2.pas">
+            <Form>frmCollectInput2</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="U_InvoiceOutSel.pas">
+            <Form>frmInvoiceOutSel</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

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

@@ -8,14 +8,14 @@
     <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.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.292,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_FinPurchasePlanSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.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.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.453,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayInput.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.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj</Transaction>
     <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
@@ -23,42 +23,48 @@
     <Transaction>1899/12/30 00:00:00.000.772,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.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.806,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.052,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CollectList.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.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.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.052,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CollectList.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.pas</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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.765,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowTotalList.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.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.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.453,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayInput.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.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.595,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.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.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.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.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
+    <Transaction>2026/05/22 14:41:58.210,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.pas</Transaction>
+    <Transaction>2026/05/22 14:42:09.263,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectInput2.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.dfm</Transaction>
+    <Transaction>2026/05/22 14:42:09.263,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectInput2.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.pas</Transaction>
+    <Transaction>2026/05/22 15:10:32.542,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.pas</Transaction>
+    <Transaction>2026/05/22 15:10:56.683,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.pas</Transaction>
+    <Transaction>2026/05/22 15:10:56.683,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.dfm</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="..\..\D10SZKaiXiYa"/>
@@ -143,5 +149,9 @@
     <File Path="U_FinPurchasePlanSel.dfm"/>
     <File Path="U_GETableBatchInput.pas"/>
     <File Path="U_GETableBatchInput.dfm"/>
+    <File Path="U_CollectInput2.pas"/>
+    <File Path="U_CollectInput2.dfm"/>
+    <File Path="U_InvoiceOutSel.pas"/>
+    <File Path="U_InvoiceOutSel.dfm"/>
   </ProjectSortOrder>
 </BorlandProject>

A09财务通用管理/U_CollectInput.dfm

@@ -192,6 +192,7 @@ object frmCollectInput: TfrmCollectInput
       OnBtnDnClick = PayMentBtnDnClick
     end
     object OurCoName: TBtnEditC
+      Tag = 2
       Left = 110
       Top = 14
       Width = 150

A09财务通用管理/U_CollectInput.pas

@@ -15,7 +15,7 @@ uses
   cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
   cxNavigator,   dxDateRanges,
   dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit, dxSkinsCore,
-  dxSkinsDefaultPainters;
+  dxSkinsDefaultPainters, dxSkinWXI;
 
 type
   TfrmCollectInput = class(TForm)

A09财务通用管理/U_CollectInput2.dfm

@@ -0,0 +1,386 @@
+object frmCollectInput2: TfrmCollectInput2
+  Left = 261
+  Top = 149
+  Caption = #25910#27454#30331#35760
+  ClientHeight = 416
+  ClientWidth = 884
+  Color = clWhite
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -16
+  Font.Name = #24494#36719#38597#40657
+  Font.Style = []
+  OldCreateOrder = True
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 21
+  object ToolBar1: TToolBar
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 884
+    Height = 38
+    AutoSize = True
+    ButtonHeight = 38
+    ButtonWidth = 75
+    Caption = 'ToolBar1'
+    Color = clWhite
+    DisabledImages = DataLink_Financial.ImageList_new32
+    Images = DataLink_Financial.ImageList_new32
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    ExplicitWidth = 1194
+    object ToolButton3: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 16
+      OnClick = ToolButton3Click
+    end
+    object TBClose: TToolButton
+      Left = 79
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object ScrollBox1: TScrollBox
+    Left = 0
+    Top = 38
+    Width = 884
+    Height = 378
+    Align = alClient
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    BorderStyle = bsNone
+    Color = clWhite
+    Ctl3D = False
+    ParentColor = False
+    ParentCtl3D = False
+    TabOrder = 1
+    OnClick = ScrollBox1Click
+    ExplicitLeft = -8
+    ExplicitTop = -42
+    ExplicitHeight = 538
+    object Label7: TLabel
+      Left = 84
+      Top = 276
+      Width = 64
+      Height = 21
+      Caption = #20132#26131#38468#35328
+    end
+    object Label2: TLabel
+      Left = 84
+      Top = 86
+      Width = 64
+      Height = 21
+      Caption = #23545#26041#31246#21495
+    end
+    object Label3: TLabel
+      Left = 84
+      Top = 141
+      Width = 64
+      Height = 21
+      Caption = #25910#27454#38134#34892
+    end
+    object Label5: TLabel
+      Left = 439
+      Top = 141
+      Width = 64
+      Height = 21
+      Caption = #25910#27454#36134#21495
+    end
+    object Label6: TLabel
+      Left = 84
+      Top = 194
+      Width = 64
+      Height = 21
+      Caption = #25910#27454#37329#39069
+    end
+    object Label8: TLabel
+      Left = 440
+      Top = 86
+      Width = 64
+      Height = 21
+      Caption = #23545#26041#21333#20301
+    end
+    object Label13: TLabel
+      Left = 84
+      Top = 36
+      Width = 64
+      Height = 21
+      Caption = #25910#27454#26085#26399
+    end
+    object Label15: TLabel
+      Left = 440
+      Top = 36
+      Width = 48
+      Height = 21
+      Caption = #21457#31080#21495
+    end
+    object Note: TMemo
+      Tag = 2
+      Left = 200
+      Top = 252
+      Width = 561
+      Height = 85
+      ScrollBars = ssVertical
+      TabOrder = 0
+    end
+    object Currency: TcxComboBox
+      Tag = 2
+      Left = 437
+      Top = 189
+      Properties.Items.Strings = (
+        'CNY'
+        'USD'
+        'VND')
+      TabOrder = 1
+      Text = 'CNY'
+      Width = 66
+    end
+    object oppShuiNo: TcxTextEdit
+      Tag = 2
+      Left = 200
+      Top = 81
+      Properties.OnChange = TaxNumberPropertiesChange
+      TabOrder = 2
+      Width = 200
+    end
+    object Amount: TcxTextEdit
+      Tag = 2
+      Left = 200
+      Top = 189
+      Properties.OnEditValueChanged = AmountPropertiesEditValueChanged
+      TabOrder = 3
+      Width = 200
+    end
+    object OurBankCardNo: TcxTextEdit
+      Tag = 2
+      Left = 541
+      Top = 136
+      TabOrder = 4
+      Width = 200
+    end
+    object OurBankName: TcxButtonEdit
+      Tag = 2
+      Left = 200
+      Top = 136
+      Hint = 'OurBankName/'#25910#27454#38134#34892
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = OurBankNamePropertiesButtonClick
+      TabOrder = 5
+      Width = 200
+    end
+    object OppCoName: TcxButtonEdit
+      Tag = 2
+      Left = 541
+      Top = 81
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      TabOrder = 6
+      Width = 200
+    end
+    object FFTime: TcxDateEdit
+      Tag = 2
+      Left = 200
+      Top = 31
+      TabOrder = 7
+      Width = 200
+    end
+    object Panel1: TPanel
+      Left = 760
+      Top = 64
+      Width = 113
+      Height = 129
+      TabOrder = 8
+      Visible = False
+      object cxGrid1: TcxGrid
+        Left = 1
+        Top = 1
+        Width = 111
+        Height = 127
+        Align = alClient
+        TabOrder = 0
+        ExplicitLeft = -7
+        ExplicitTop = -47
+        ExplicitWidth = 327
+        ExplicitHeight = 199
+        object Tv1: TcxGridDBTableView
+          OnDblClick = Tv1DblClick
+          Navigator.Buttons.CustomButtons = <>
+          ScrollbarAnnotations.CustomAnnotations = <>
+          DataController.DataSource = DS_1
+          DataController.Summary.DefaultGroupSummaryItems = <>
+          DataController.Summary.FooterSummaryItems = <>
+          DataController.Summary.SummaryGroups = <>
+          OptionsView.GroupByBox = False
+          object Tv1CoName: TcxGridDBColumn
+            Caption = #21333#20301#21517#31216
+            DataBinding.FieldName = 'CoName'
+            DataBinding.IsNullValueType = True
+            HeaderAlignmentHorz = taCenter
+            Options.Editing = False
+            Width = 98
+          end
+          object Tv1BankName: TcxGridDBColumn
+            Caption = #25910#27454#38134#34892#21517#31216
+            DataBinding.FieldName = 'BankName'
+            DataBinding.IsNullValueType = True
+            HeaderAlignmentHorz = taCenter
+            Options.Editing = False
+            Width = 130
+          end
+          object Tv1BankNo: TcxGridDBColumn
+            Caption = #25910#27454#38134#34892#36134#21495
+            DataBinding.FieldName = 'BankNo'
+            DataBinding.IsNullValueType = True
+            HeaderAlignmentHorz = taCenter
+            Options.Editing = False
+            Width = 127
+          end
+          object Tv1ShuiNo: TcxGridDBColumn
+            Caption = #31246#21495
+            DataBinding.FieldName = 'ShuiNo'
+            DataBinding.IsNullValueType = True
+            HeaderAlignmentHorz = taCenter
+            Options.Editing = False
+            Width = 77
+          end
+        end
+        object cxGrid1Level1: TcxGridLevel
+          GridView = Tv1
+        end
+      end
+    end
+    object IVNo: TcxButtonEdit
+      Tag = 2
+      Left = 541
+      Top = 31
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick
+      TabOrder = 9
+      Width = 200
+    end
+    object FFID: TEdit
+      Tag = 2
+      Left = 744
+      Top = 368
+      Width = 121
+      Height = 27
+      TabOrder = 10
+      Visible = False
+    end
+    object cxLabel1: TcxLabel
+      Left = 94
+      Top = 368
+      Caption = #25105#26041#21333#20301
+      Visible = False
+    end
+    object OurCoName: TcxButtonEdit
+      Tag = 2
+      Left = 200
+      Top = 365
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      TabOrder = 12
+      Visible = False
+      Width = 200
+    end
+    object OppParentCoName: TcxButtonEdit
+      Tag = 2
+      Left = 541
+      Top = 365
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      TabOrder = 13
+      Visible = False
+      Width = 197
+    end
+    object cxLabel2: TcxLabel
+      Left = 437
+      Top = 365
+      Caption = #19978#32423#21333#20301
+      Visible = False
+    end
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_Financial.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 867
+    Top = 160
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_Financial.ADOLink
+    Parameters = <>
+    Left = 926
+    Top = 80
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_Financial.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 853
+    Top = 49
+  end
+  object DS_1: TDataSource
+    DataSet = CDS_1
+    Left = 640
+    Top = 24
+  end
+  object CDS_1: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 728
+    Top = 30
+  end
+  object PM_1: TPopupMenu
+    Left = 590
+    Top = 398
+    object N1: TMenuItem
+      Caption = #22797#21046
+      OnClick = N1Click
+    end
+  end
+  object GPM_1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 662
+    Top = 398
+  end
+  object cxLookAndFeelController1: TcxLookAndFeelController
+    Kind = lfFlat
+    NativeStyle = False
+    ScrollbarMode = sbmClassic
+    ScrollMode = scmSmooth
+    SkinName = 'WXI'
+    Left = 392
+    Top = 326
+  end
+end

A09财务通用管理/U_CollectInput2.pas

@@ -0,0 +1,449 @@
+unit U_CollectInput2;
+
+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, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
+  cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer,
+  cxCurrencyEdit, dxSkinsCore, dxSkinsDefaultPainters, dxCore, cxDateUtils,
+  dxScrollbarAnnotations, Vcl.Menus, Clipbrd, dxCoreGraphics, dxSkinWXI, cxLabel;
+
+type
+  TfrmCollectInput2 = class(TForm)
+    ToolBar1: TToolBar;
+    TBClose: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ToolButton3: TToolButton;
+    ScrollBox1: TScrollBox;
+    Label7: TLabel;
+    Note: TMemo;
+    Currency: TcxComboBox;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label5: TLabel;
+    Amount: TcxTextEdit;
+    Label6: TLabel;
+    Label8: TLabel;
+    OurBankCardNo: TcxTextEdit;
+    OurBankName: TcxButtonEdit;
+    OppCoName: TcxButtonEdit;
+    FFTime: TcxDateEdit;
+    Label13: TLabel;
+    Panel1: TPanel;
+    Tv1: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid1: TcxGrid;
+    DS_1: TDataSource;
+    CDS_1: TClientDataSet;
+    Tv1CoName: TcxGridDBColumn;
+    Tv1BankName: TcxGridDBColumn;
+    Tv1BankNo: TcxGridDBColumn;
+    Tv1ShuiNo: TcxGridDBColumn;
+    PM_1: TPopupMenu;
+    GPM_1: TcxGridPopupMenu;
+    N1: TMenuItem;
+    Label15: TLabel;
+    IVNo: TcxButtonEdit;
+    oppShuiNo: TcxTextEdit;
+    FFID: TEdit;
+    cxLookAndFeelController1: TcxLookAndFeelController;
+    cxLabel1: TcxLabel;
+    OurCoName: TcxButtonEdit;
+    OppParentCoName: TcxButtonEdit;
+    cxLabel2: TcxLabel;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure OppCoNameBtnUpClick(Sender: TObject);
+    procedure OurBankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+    procedure AmountPropertiesEditValueChanged(Sender: TObject);
+    procedure TaxNumberPropertiesChange(Sender: TObject);
+    procedure Tv1DblClick(Sender: TObject);
+    procedure ScrollBox1Click(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+    procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+  private
+    { Private declarations }
+    procedure InitGrid();
+    function SaveData(): Boolean;
+    procedure InitGrid2();
+  public
+    { Public declarations }
+    FFFID: string;
+    FoppShuiNoChange: string;
+  end;
+
+var
+  frmCollectInput2: TfrmCollectInput2;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_BankSel, U_FinTradePlanSel,
+  U_FinTradeSalesContractSel, U_ZDYBankSel, U_InvoiceOutSel;
+
+{$R *.dfm}
+
+procedure TfrmCollectInput2.InitGrid();
+var
+  nAmount: Double;
+begin
+  try
+
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered := False;
+      Close;
+      SQL.Clear;
+      sql.Add(' select * from Finance_Flow where FFID=''' + Trim(FFFID) + '''');
+      Open;
+    end;
+    if not ADOQueryMain.IsEmpty then
+    begin
+      SCSHData(ADOQueryMain, ScrollBox1, 2);
+      if ADOQueryMain.FieldByName('Amount').AsString <> '' then
+      begin
+        nAmount := ADOQueryMain.FieldByName('Amount').AsFloat;
+        Amount.Text := FormatFloat('#,##0.00', nAmount);
+      end;
+    end
+    else
+    begin
+      FFTime.Date := SGetServerDateTime(ADOQueryTemp);
+    end;
+
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmCollectInput2.InitGrid2();
+begin
+
+  try
+    ADOQueryCmd.DisableControls;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select A.* from BS_Company A where 1=1 ');
+      sql.Add(' and A.CoType=''供应商'' ');
+      SQL.Add(' and ShuiNo like ''%' + oppShuiNo.Text + '%'' ');
+      Open;
+    end;
+
+    SCreateCDS(ADOQueryCmd, CDS_1);
+    SInitCDSData(ADOQueryCmd, CDS_1);
+  finally
+    ADOQueryCmd.EnableControls;
+    TV1.DataController.Filter.Clear;
+  end;
+end;
+
+procedure TfrmCollectInput2.N1Click(Sender: TObject);
+begin
+  Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
+end;
+
+procedure TfrmCollectInput2.OppCoNameBtnUpClick(Sender: TObject);
+begin
+
+  try
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag := 'OppCoName';
+      flagname := '对方单位';
+      if ShowModal = 1 then
+      begin
+        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmCollectInput2.OurBankNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+var
+  fsj: string;
+  FWZ: Integer;
+begin
+  fsj := Trim(TcxButtonEdit(Sender).Hint);
+  FWZ := Pos('/', fsj); //先英文再中文
+  try
+    frmZDYBankSel := TfrmZDYBankSel.Create(Application);
+    with frmZDYBankSel do
+    begin
+      MainType := '财务银行';
+      flag := Copy(fsj, 1, FWZ - 1);
+      flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+      if ShowModal = 1 then
+      begin
+        OurBankName.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+        OurBankCardNo.Text := Trim(ClientDataSet1.fieldbyname('note').AsString);
+      end;
+    end;
+  finally
+    frmZDYBankSel.Free;
+  end;
+end;
+
+procedure TfrmCollectInput2.FormDestroy(Sender: TObject);
+begin
+  frmCollectInput2 := nil;
+end;
+
+procedure TfrmCollectInput2.AmountPropertiesEditValueChanged(Sender: TObject);
+var
+  n: Double;
+  CleanText: string;
+  DecimalPos: Integer;
+  DecimalDigits: Integer;
+  FormatStr: string;
+  CaretPos: Integer;
+  TextBeforeCaret: string;
+begin
+  CaretPos := Amount.SelStart;
+  TextBeforeCaret := Copy(Amount.Text, 1, CaretPos);
+
+  CleanText := StringReplace(Amount.Text, ',', '', [rfReplaceAll]);
+
+  if TryStrToFloat(CleanText, n) then
+  begin
+    Amount.Properties.OnEditValueChanged := nil;
+    try
+      DecimalPos := Pos('.', CleanText);
+      if DecimalPos > 0 then
+        DecimalDigits := Length(CleanText) - DecimalPos
+      else
+        DecimalDigits := 0;
+
+      if DecimalDigits = 0 then
+        FormatStr := '#,##0'
+      else
+        FormatStr := '#,##0.' + StringOfChar('0', DecimalDigits);
+
+      Amount.Text := FormatFloat(FormatStr, n);
+
+      if CaretPos > 0 then
+      begin
+        CaretPos := Length(TextBeforeCaret) + (StringReplace(Copy(Amount.Text, 1, Length(TextBeforeCaret)), ',', '', [rfReplaceAll]).Length - TextBeforeCaret.Length);
+        if CaretPos <= Length(Amount.Text) then
+          Amount.SelStart := CaretPos;
+      end;
+    finally
+      Amount.Properties.OnEditValueChanged := AmountPropertiesEditValueChanged;
+    end;
+  end;
+end;
+
+procedure TfrmCollectInput2.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+var
+  CurrentAmount: Double;
+  TaxAmount: Double;
+begin
+  try
+    frmInvoiceOutSel := TfrmInvoiceOutSel.Create(Application);
+    with frmInvoiceOutSel do
+    begin
+      if ShowModal = 1 then
+      begin
+        FoppShuiNoChange := '0';
+        Self.IVNo.Text := '';
+
+        Self.IVNo.Properties.LookupItems.Text := '';
+        Self.Amount.Text := '0';
+
+        while CDS_Invoice.Locate('SSel', true, []) do
+        begin
+
+          with frmInvoiceOutSel.CDS_Invoice do
+          begin
+            CurrentAmount := StrToFloatDef(StringReplace(Self.Amount.Text, ',', '', [rfReplaceAll]), 0);
+            TaxAmount := FieldByName('TaxAmount').AsFloat;
+            if Self.IVNo.Text = '' then
+            begin
+              Self.IVNo.Text := frmInvoiceOutSel.CDS_Invoice.FieldByName('IVNo').AsString;
+              Self.IVNo.Properties.LookupItems.Text := frmInvoiceOutSel.CDS_Invoice.FieldByName('IVID').AsString;
+              Self.Amount.Text := FormatFloat('#,##0.00', TaxAmount);
+            end
+            else
+            begin
+              Self.IVNo.Text := Trim(Self.IVNo.Text) + ',' + Trim(frmInvoiceOutSel.CDS_Invoice.FieldByName('IVNo').AsString);
+              Self.IVNo.Properties.LookupItems.Text := trim(Self.IVNo.Properties.LookupItems.Text) + ',' + Trim(frmInvoiceOutSel.CDS_Invoice.FieldByName('IVID').AsString);
+              Self.Amount.Text := FormatFloat('#,##0.00', CurrentAmount + TaxAmount);
+            end;
+
+            Self.OppCoName.Text := frmInvoiceOutSel.CDS_Invoice.FieldByName('Supplier').AsString;
+            Self.OppCoName.Properties.LookupItems.Text := frmInvoiceOutSel.CDS_Invoice.FieldByName('CoCode').AsString;
+            Self.oppShuiNo.Text := trim(frmInvoiceOutSel.CDS_Invoice.FieldByName('SupplierShuiNo').AsString);
+
+            Self.Currency.Text := frmInvoiceOutSel.CDS_Invoice.FieldByName('Currency').AsString;
+
+            OurBankName.Text := Trim(frmInvoiceOutSel.CDS_Invoice.fieldbyname('BankDeposit').AsString);
+            OurBankCardNo.Text := Trim(frmInvoiceOutSel.CDS_Invoice.fieldbyname('BankCardNo').AsString);
+
+          end;
+          CDS_Invoice.Delete;
+        end;
+
+        FoppShuiNoChange := '1';
+      end;
+    end;
+  finally
+    frmInvoiceOutSel.Free;
+  end;
+end;
+
+procedure TfrmCollectInput2.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+
+  Action := caFree;
+end;
+
+procedure TfrmCollectInput2.TaxNumberPropertiesChange(Sender: TObject);
+begin
+  if FoppShuiNoChange <> '0' then
+  begin
+    InitGrid2();
+    Panel1.Visible := True;
+  end;
+
+end;
+
+procedure TfrmCollectInput2.TBCloseClick(Sender: TObject);
+begin
+
+  close;
+end;
+
+procedure TfrmCollectInput2.FormShow(Sender: TObject);
+begin
+  InitGrid();
+  Panel1.Visible := False;
+end;
+
+procedure TfrmCollectInput2.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+function TfrmCollectInput2.SaveData(): Boolean;
+var
+  MaxId, MaxSubId, FCoCode, FCCID: string;
+  CleanAmount: string;
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    if Trim(FFFID) = '' then
+    begin
+      if not GetLSNo(ADOQueryCmd, MaxId, 'SK', 'Finance_Flow', 4, 1) then
+        raise Exception.Create('取最大号失败！');
+    end
+    else
+    begin
+      MaxId := Trim(FFFID);
+    end;
+
+    FFID.Text := MaxId;
+    CleanAmount := StringReplace(Amount.Text, ',', '', [rfReplaceAll]);
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from Finance_Flow where FFID=''' + Trim(FFFID) + '''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if Trim(FFFID) = '' then
+      begin
+        Append;
+        FieldByName('FillId').Value := Trim(DCode);
+        FieldByName('Filler').Value := Trim(DName);
+        FieldByName('Filltime').Value := SGetServerDateTime(ADOQueryTemp);
+        FieldByName('FFFlag').Value := '应收收';
+        FieldByName('FFType').Value := '收款登记';
+        FieldByName('status').Value := '0';
+        FieldByName('FFQtyFlag').Value := -1;
+      end
+      else
+      begin
+        Edit;
+        FieldByName('EditId').Value := Trim(DCode);
+        FieldByName('Editer').Value := Trim(DName);
+        FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
+      end;
+      FieldByName('OppCoNo').Value := trim(OppCoName.Properties.LookupItems.Text);
+      FieldByName('IVID').Value := trim(IVNO.Properties.LookupItems.Text);
+      if CleanAmount <> '' then
+        FieldByName('Amount').AsFloat := StrToFloatDef(CleanAmount, 0);
+
+      RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 2);
+      Post;
+    end;
+
+    ADOQueryCmd.Connection.CommitTrans;
+    FCCID := Trim(MaxSubId);
+    Result := True;
+  except
+    Result := false;
+    ADOQueryCmd.Connection.RollbackTrans;
+    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+  end;
+end;
+
+procedure TfrmCollectInput2.ScrollBox1Click(Sender: TObject);
+begin
+  Panel1.Visible := False;
+end;
+
+procedure TfrmCollectInput2.ToolButton3Click(Sender: TObject);
+begin
+  ToolBar1.SetFocus;
+  if Trim(OppCoName.Text) = '' then
+  begin
+    Application.MessageBox('对方单位不能为空!', '提示', 0);
+    Exit;
+  end;
+
+  if Trim(Currency.Text) = '' then
+  begin
+    Application.MessageBox('币种不能为空!', '提示', 0);
+    Exit;
+  end;
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功!', '提示', 0);
+    ModalResult := 1;
+  end;
+end;
+
+procedure TfrmCollectInput2.Tv1DblClick(Sender: TObject);
+begin
+  OppCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
+  OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
+  oppShuiNo.Text := Trim(CDS_1.fieldbyname('ShuiNo').AsString);
+
+  Panel1.Visible := false;
+end;
+
+end.
+

A09财务通用管理/U_CollectList.pas

@@ -16,7 +16,7 @@ uses
   cxNavigator, dxBarBuiltInMenu,  
   dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, cxContainer, dxCore,
   cxDateUtils, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations,
-  cxProgressBar;
+  cxProgressBar, dxSkinWXI;
 
 type
   TfrmCollectList = class(TfrmBaseList)
@@ -115,7 +115,7 @@ type
 implementation
 
 uses
-  U_DataLink, U_RTFun, U_CollectInput, U_ZDYHelp, U_CollectWriteOff,
+  U_DataLink, U_RTFun, U_CollectInput2, U_CollectInput, U_ZDYHelp, U_CollectWriteOff,
   U_CollectWriteOffList, U_AttachmentUpload, U_CollectImport;
 
 {$R *.dfm}
@@ -467,8 +467,8 @@ procedure TfrmCollectList.btnAddClick(Sender: TObject);
 begin
 
   try
-    frmCollectInput := TfrmCollectInput.Create(Application);
+    frmCollectInput2 := TfrmCollectInput2.Create(Application);
-    with frmCollectInput do
+    with frmCollectInput2 do
     begin
       FFFID := '';
       if ShowModal = 1 then
@@ -477,7 +477,7 @@ begin
       end;
     end;
   finally
-    frmCollectInput.Free;
+    frmCollectInput2.Free;
   end;
 end;
 
@@ -532,8 +532,8 @@ begin
   end;
 
   try
-    frmCollectInput := TfrmCollectInput.Create(Application);
+    frmCollectInput2 := TfrmCollectInput2.Create(Application);
-    with frmCollectInput do
+    with frmCollectInput2 do
     begin
       FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
       if ShowModal = 1 then
@@ -542,7 +542,7 @@ begin
       end;
     end;
   finally
-    frmCollectInput.Free;
+    frmCollectInput2.Free;
   end;
 end;
 

A09财务通用管理/U_ExpenseInput.dfm

@@ -267,7 +267,7 @@ object frmExpenseInput: TfrmExpenseInput
     object FFID: TcxTextEdit
       Tag = 2
       Left = 200
-      Top = 35
+      Top = 31
       Properties.ReadOnly = True
       TabOrder = 9
       Width = 200

A09财务通用管理/U_ExpenseInput.pas

@@ -133,7 +133,7 @@ begin
       if ADOQueryMain.FieldByName('Amount').AsString <> '' then
       begin
         nAmount := ADOQueryMain.FieldByName('Amount').AsFloat;
-        Amount.Text := FormatFloat('#,##0', nAmount);
+        Amount.Text := FormatFloat('#,##0.00', nAmount);
       end;
     end
     else
@@ -449,14 +449,14 @@ begin
             begin
               Self.IVNo.Text := frmInvoiceSel.CDS_Invoice.FieldByName('IVNo').AsString;
               Self.IVNo.Properties.LookupItems.Text := frmInvoiceSel.CDS_Invoice.FieldByName('IVID').AsString;
-              Self.Amount.Text := FormatFloat('#,##0', TaxAmount);
+              Self.Amount.Text := FormatFloat('#,##0.00', TaxAmount);
 //              Self.Amount.Text := frmInvoiceSel.CDS_Invoice.FieldByName('TaxAmount').AsString;
             end
             else
             begin
               Self.IVNo.Text := Trim(Self.IVNo.Text) + ',' + Trim(frmInvoiceSel.CDS_Invoice.FieldByName('IVNo').AsString);
               Self.IVNo.Properties.LookupItems.Text := trim(Self.IVNo.Properties.LookupItems.Text) + ',' + Trim(frmInvoiceSel.CDS_Invoice.FieldByName('IVID').AsString);
-              Self.Amount.Text := FormatFloat('#,##0', CurrentAmount + TaxAmount);
+              Self.Amount.Text := FormatFloat('#,##0.00', CurrentAmount + TaxAmount);
 //              Self.Amount.Text := FloatToStr(strtofloatdef(Self.Amount.Text, 0) + frmInvoiceSel.CDS_Invoice.FieldByName('TaxAmount').asfloat);
             end;
 

A09财务通用管理/U_ExpenseList.dfm

@@ -390,6 +390,8 @@ inherited frmExpenseList: TfrmExpenseList
         Caption = #37329#39069
         DataBinding.FieldName = 'Amount'
         DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxCurrencyEditProperties'
+        Properties.DisplayFormat = '#,##0.00'
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 90

A09财务通用管理/U_ExpenseList.pas

@@ -15,7 +15,8 @@ uses
   cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
   cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, Vcl.Menus,
   Vcl.Clipbrd, cxContainer, dxCore, cxDateUtils, dxSkinsCore,
-  dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar, dxSkinWXI;
+  dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar, dxSkinWXI,
+  cxCurrencyEdit;
 
 type
   TfrmExpenseList = class(TfrmBaseList)
@@ -120,6 +121,9 @@ type
     procedure btnReChk2Click(Sender: TObject);
     procedure TbFPClick(Sender: TObject);
   private
+    FPayOurBankName: TcxButtonEdit;
+    FPayOurBankCardNo: TcxTextEdit;
+    procedure OurBankNameButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure InitGrid();
     procedure SetStatus();
   public
@@ -130,9 +134,29 @@ implementation
 
 uses
   U_DataLink, U_RTFun, U_ExpenseInput, U_ZDYHelp, U_AttachmentUpload,
-  U_LabelPrint, U_InvoiceSel, U_FKandFPUpload;
+  U_LabelPrint, U_InvoiceSel, U_ZDYBankSel, U_FKandFPUpload;
 
 {$R *.dfm}
+procedure TfrmExpenseList.OurBankNameButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYBankSel := TfrmZDYBankSel.Create(Application);
+    with frmZDYBankSel do
+    begin
+      MainType := '财务银行';
+      flag := 'OurBankName';
+      flagname := '付款账号';
+      if ShowModal = 1 then
+      begin
+        FPayOurBankName.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+        FPayOurBankCardNo.Text := Trim(ClientDataSet1.fieldbyname('note').AsString);
+      end;
+    end;
+  finally
+    frmZDYBankSel.Free;
+  end;
+end;
+
 procedure TfrmExpenseList.SetStatus();
 begin
 
@@ -406,8 +430,6 @@ var
   btnOK, btnCancel: TButton;
   lblDate, lblBankSlip: TLabel;
   BankSlipCode: string;
-
-  cxOurBankName, cxOurBankCardNo: TcxTextEdit;
   lblOurBankName, lblOurBankCardNo: TLabel;
   OurBankName, OurBankCardNo: string;
 begin
@@ -474,12 +496,20 @@ begin
     lblOurBankName.Left := 20;
     lblOurBankName.Top := 63;
 
-    cxOurBankName := TcxTextEdit.Create(DateForm);
+    lblOurBankName := TLabel.Create(DateForm);
-    cxOurBankName.Parent := DateForm;
+    lblOurBankName.Parent := DateForm;
-    cxOurBankName.Left := 120;
+    lblOurBankName.Caption := '付款账号:';
-    cxOurBankName.Top := 58;
+    lblOurBankName.Left := 20;
-    cxOurBankName.Width := 200;
+    lblOurBankName.Top := 63;
-    cxOurBankName.Text := OurBankName;
+
+    FPayOurBankName := TcxButtonEdit.Create(DateForm);  // 使用成员变量
+    FPayOurBankName.Parent := DateForm;
+    FPayOurBankName.Left := 120;
+    FPayOurBankName.Top := 58;
+    FPayOurBankName.Width := 200;
+    FPayOurBankName.Text := OurBankName;
+    FPayOurBankName.Properties.Buttons[0].Kind := bkEllipsis;
+    FPayOurBankName.Properties.OnButtonClick := OurBankNameButtonClick;
     // ====== 新增结束 ======
 
     // ====== 新增：付款银行 ======
@@ -489,12 +519,12 @@ begin
     lblOurBankCardNo.Left := 20;
     lblOurBankCardNo.Top := 103;
 
-    cxOurBankCardNo := TcxTextEdit.Create(DateForm);
+    FPayOurBankCardNo := TcxTextEdit.Create(DateForm);  // 使用成员变量
-    cxOurBankCardNo.Parent := DateForm;
+    FPayOurBankCardNo.Parent := DateForm;
-    cxOurBankCardNo.Left := 120;
+    FPayOurBankCardNo.Left := 120;
-    cxOurBankCardNo.Top := 98;
+    FPayOurBankCardNo.Top := 98;
-    cxOurBankCardNo.Width := 200;
+    FPayOurBankCardNo.Width := 200;
-    cxOurBankCardNo.Text := OurBankCardNo;
+    FPayOurBankCardNo.Text := OurBankCardNo;
 
     // 创建银行水单编码标签
     lblBankSlip := TLabel.Create(DateForm);
@@ -538,8 +568,8 @@ begin
       SelectedDate := Trunc(cxDateEdit.Date); // 取日期部分
       BankSlipCode := Trim(cxTextEdit.Text);
 
-      OurBankName := Trim(cxOurBankName.Text);
+      OurBankName := Trim(FPayOurBankName.Text);
-      OurBankCardNo := Trim(cxOurBankCardNo.Text);
+      OurBankCardNo := Trim(FPayOurBankCardNo.Text);
 
       // 验证输入
       if BankSlipCode = '' then

A09财务通用管理/U_InvoiceOutList.dfm

@@ -19,7 +19,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
     Height = 30
     AutoSize = True
     ButtonHeight = 30
-    ButtonWidth = 95
+    ButtonWidth = 115
     Caption = 'ToolBar1'
     Color = clWhite
     DisabledImages = DataLink_Financial.cxImageList_bar
@@ -37,7 +37,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
       OnClick = TBRafreshClick
     end
     object ToolButton2: TToolButton
-      Left = 63
+      Left = 71
       Top = 0
       AutoSize = True
       Caption = #36807#28388
@@ -45,7 +45,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
       OnClick = ToolButton2Click
     end
     object TADD: TToolButton
-      Left = 126
+      Left = 142
       Top = 0
       AutoSize = True
       Caption = #26032#22686
@@ -53,7 +53,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
       OnClick = TADDClick
     end
     object TUPDATE: TToolButton
-      Left = 189
+      Left = 213
       Top = 0
       AutoSize = True
       Caption = #20462#25913
@@ -61,7 +61,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
       OnClick = TUPDATEClick
     end
     object TBDEL: TToolButton
-      Left = 252
+      Left = 284
       Top = 0
       AutoSize = True
       Caption = #21024#38500
@@ -69,7 +69,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
       OnClick = TBDELClick
     end
     object TSel: TToolButton
-      Left = 315
+      Left = 355
       Top = 0
       AutoSize = True
       Caption = #26597#30475
@@ -77,7 +77,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
       OnClick = TSelClick
     end
     object TCHK: TToolButton
-      Left = 378
+      Left = 426
       Top = 0
       AutoSize = True
       Caption = #23457#26680
@@ -85,7 +85,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
       OnClick = TCHKClick
     end
     object TNOCHK: TToolButton
-      Left = 441
+      Left = 497
       Top = 0
       AutoSize = True
       Caption = #25764#38144#23457#26680
@@ -93,7 +93,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
       OnClick = TNOCHKClick
     end
     object ToolButton4: TToolButton
-      Left = 528
+      Left = 600
       Top = 0
       AutoSize = True
       Caption = #25171#21360
@@ -102,7 +102,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
       OnClick = ToolButton4Click
     end
     object ToolButton5: TToolButton
-      Left = 591
+      Left = 671
       Top = 0
       AutoSize = True
       Caption = #38468#20214
@@ -110,7 +110,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
       OnClick = ToolButton5Click
     end
     object ToolButton1: TToolButton
-      Left = 654
+      Left = 742
       Top = 0
       AutoSize = True
       Caption = #23548#20986
@@ -118,7 +118,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
       OnClick = ToolButton1Click
     end
     object ToolButton3: TToolButton
-      Left = 717
+      Left = 813
       Top = 0
       AutoSize = True
       Caption = #20445#23384#26684#24335
@@ -126,7 +126,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
       OnClick = ToolButton3Click
     end
     object ToolButton6: TToolButton
-      Left = 804
+      Left = 916
       Top = 0
       AutoSize = True
       Caption = #20851#32852#24212#25910#27454
@@ -134,7 +134,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
       OnClick = ToolButton6Click
     end
     object TBClose: TToolButton
-      Left = 903
+      Left = 1035
       Top = 0
       AutoSize = True
       Caption = #20851#38381
@@ -282,7 +282,6 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 5
-    ExplicitTop = 132
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       Navigator.Buttons.Delete.Enabled = False

A09财务通用管理/U_InvoiceOutList.pas

@@ -15,7 +15,8 @@ uses
   cxTextEdit, cxDropDownEdit, cxPC, RM_e_Xls, Menus, cxLookAndFeels,
   cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList,
   Vcl.Clipbrd, cxContainer, dxCore, cxDateUtils, dxSkinsCore,
-  dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar, cxCurrencyEdit;
+  dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar, cxCurrencyEdit,
+  dxSkinWXI;
 
 type
   TfrmInvoiceOutList = class(TfrmBaseList)
@@ -191,7 +192,7 @@ begin
       SQL.Clear;
       sql.Add(' select A.*   ');
       sql.Add(',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''ÏúÏƱ'' and X.WBID=A.IVNo)>0 THEN 1 ELSE 0 END) AS BIT)');
-
+      sql.Add(',checkStatus=CASE WHEN isnull(A.Status,''0'')=''0'' THEN ''δÉóºË'' WHEN A.Status=''9'' THEN ''ÒÑÉóºË'' ELSE '''' END');
       sql.Add('  from Finance_Invoice A ');
       sql.add(' where A.IVDate>=''' + formatdatetime('yyyy-MM-dd', begdate.Date) + ''' ');
       sql.Add(' and A.IVDate<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');

A09财务通用管理/U_InvoiceOutSel.dfm

@@ -0,0 +1,411 @@
+object frmInvoiceOutSel: TfrmInvoiceOutSel
+  Left = 484
+  Top = 189
+  Caption = #38144#39033#21457#31080#36873#25321
+  ClientHeight = 504
+  ClientWidth = 1530
+  Color = clWhite
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -16
+  Font.Name = #24494#36719#38597#40657
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poDesktopCenter
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 21
+  object ToolBar1: TToolBar
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1530
+    Height = 30
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 99
+    Caption = 'ToolBar1'
+    DisabledImages = DataLink_Financial.cxImageList_bar
+    Images = DataLink_Financial.cxImageList_bar
+    List = True
+    ShowCaptions = True
+    TabOrder = 0
+    object TSave: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 16
+      Visible = False
+      OnClick = TSaveClick
+    end
+    object ToolButton6: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 8
+      OnClick = ToolButton6Click
+    end
+    object ToolButton1: TToolButton
+      Left = 142
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 2
+      Visible = False
+      OnClick = ToolButton1Click
+    end
+    object ToolButton5: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
+      Caption = #24212#20184#27454
+      ImageIndex = 2
+      Visible = False
+      OnClick = ToolButton5Click
+    end
+    object ToolButton2: TToolButton
+      Left = 300
+      Top = 0
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 6
+      Visible = False
+      OnClick = ToolButton2Click
+    end
+    object ToolButton4: TToolButton
+      Left = 371
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20837
+      ImageIndex = 18
+      Visible = False
+      OnClick = ToolButton4Click
+    end
+    object Tbssel: TToolButton
+      Left = 442
+      Top = 0
+      AutoSize = True
+      Caption = #36873#25321
+      ImageIndex = 12
+      OnClick = TbsselClick
+    end
+    object ToolButton3: TToolButton
+      Left = 513
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = ToolButton3Click
+    end
+    object TBClose: TToolButton
+      Left = 616
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 124
+    Width = 1530
+    Height = 380
+    Align = alClient
+    TabOrder = 1
+    object Tv1: TcxGridDBTableView
+      OnDblClick = Tv1DblClick
+      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 = Tv1Amount
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = Tv1TaxAmount
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.Indicator = True
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'ssel'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Width = 67
+      end
+      object Tv1IVNo: TcxGridDBColumn
+        Caption = #21457#31080#21495#30721
+        DataBinding.FieldName = 'IVNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 77
+      end
+      object Tv1BGDNum: TcxGridDBColumn
+        Caption = #25253#20851#21333#21495#30721
+        DataBinding.FieldName = 'BGDNum'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 120
+      end
+      object Tv1IVDate: TcxGridDBColumn
+        Caption = #21457#31080#26085#26399
+        DataBinding.FieldName = 'IVDate'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxDateEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 77
+      end
+      object Tv1SupplierShuiNo: TcxGridDBColumn
+        Caption = #20379#24212#21830#31246#21495
+        DataBinding.FieldName = 'SupplierShuiNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 103
+      end
+      object Tv1Supplier: TcxGridDBColumn
+        Caption = #20379#24212#21830#21517#31216
+        DataBinding.FieldName = 'Supplier'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = Tv1SupplierPropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 109
+      end
+      object Tv1OurShuiNo: TcxGridDBColumn
+        Caption = #25105#26041#31246#21495
+        DataBinding.FieldName = 'OurShuiNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 114
+      end
+      object Tv1OurCoName: TcxGridDBColumn
+        Caption = #25105#26041#21333#20301
+        DataBinding.FieldName = 'OurCoName'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = ButtonEdit
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 130
+      end
+      object Tv1Currency: TcxGridDBColumn
+        Caption = #24065#31181
+        DataBinding.FieldName = 'Currency'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsFixedList
+        Properties.Items.Strings = (
+          'CNY'
+          'USD'
+          'EUR')
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 85
+      end
+      object Tv1Price: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxCurrencyEditProperties'
+        Properties.DecimalPlaces = 2
+        Properties.DisplayFormat = '#,##0.00'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 93
+      end
+      object Tv1Amount: TcxGridDBColumn
+        Caption = #24635#37329#39069#26410#21547#31246
+        DataBinding.FieldName = 'Amount'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxCurrencyEditProperties'
+        Properties.DecimalPlaces = 2
+        Properties.DisplayFormat = '#,##0.00'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 111
+      end
+      object Tv1TaxFee: TcxGridDBColumn
+        Caption = #31246#37329
+        DataBinding.FieldName = 'TaxFee'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxCurrencyEditProperties'
+        Properties.DecimalPlaces = 2
+        Properties.DisplayFormat = '#,##0.00'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 65
+      end
+      object Tv1TaxAmount: TcxGridDBColumn
+        Caption = #24635#37329#39069#24050#21547#31246
+        DataBinding.FieldName = 'TaxAmount'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxCurrencyEditProperties'
+        Properties.DecimalPlaces = 2
+        Properties.DisplayFormat = '#,##0.00'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 114
+      end
+      object Tv1BillCycle: TcxGridDBColumn
+        Caption = #36134#26399
+        DataBinding.FieldName = 'BillCycle'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
+      object Tv1fromFlow: TcxGridDBColumn
+        Caption = #24212#20184#27454#20027#38190
+        DataBinding.FieldName = 'fromFlow'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 120
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxTabControl1: TcxTabControl
+    Left = 0
+    Top = 95
+    Width = 1530
+    Height = 29
+    Align = alTop
+    TabOrder = 2
+    Properties.CustomButtons.Buttons = <>
+    Properties.Style = 11
+    Properties.TabIndex = 0
+    Properties.Tabs.Strings = (
+      '  '#26410#30003#35831'  '
+      '  '#24050#30003#35831'  '
+      '  '#20840#37096'  ')
+    LookAndFeel.Kind = lfUltraFlat
+    OnChange = cxTabControl1Change
+    ClientRectRight = 0
+    ClientRectTop = 0
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 30
+    Width = 1530
+    Height = 65
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clWhite
+    ParentBackground = False
+    TabOrder = 3
+    object Label1: TLabel
+      Left = 67
+      Top = 37
+      Width = 16
+      Height = 21
+      Caption = #33267
+    end
+    object Label4: TLabel
+      Left = 17
+      Top = 6
+      Width = 64
+      Height = 21
+      Caption = #26597#35810#26085#26399
+    end
+    object begdate: TcxDateEdit
+      Left = 87
+      Top = 2
+      Properties.ShowTime = False
+      TabOrder = 0
+      Width = 120
+    end
+    object Enddate: TcxDateEdit
+      Left = 87
+      Top = 30
+      Properties.ShowTime = False
+      TabOrder = 1
+      Width = 120
+    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
+  object CDS_LM: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 528
+    Top = 200
+  end
+  object OpenDialog1: TOpenDialog
+    Left = 370
+    Top = 162
+  end
+end

A09财务通用管理/U_InvoiceOutSel.pas

@@ -0,0 +1,835 @@
+unit U_InvoiceOutSel;
+
+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,
+  dxDateRanges, dxBarBuiltInMenu, ComObj, dxSkinsCore, dxSkinsDefaultPainters,
+  dxScrollbarAnnotations, cxPC, cxContainer, dxCore, cxDateUtils, cxCheckBox,
+  cxMaskEdit, dxSkinWXI, cxCurrencyEdit;
+
+type
+  TfrmInvoiceOutSel = class(TForm)
+    DataSource1: TDataSource;
+    CDS_Invoice: TClientDataSet;
+    GPM_1: TcxGridPopupMenu;
+    ToolBar1: TToolBar;
+    TSave: TToolButton;
+    TBClose: TToolButton;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    Tv1Price: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    ADOQueryTmp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    Tv1TaxAmount: TcxGridDBColumn;
+    Tv1TaxFee: TcxGridDBColumn;
+    Tv1IVNo: TcxGridDBColumn;
+    Tv1IVDate: TcxGridDBColumn;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    ToolButton3: TToolButton;
+    Tv1Currency: TcxGridDBColumn;
+    ToolButton4: TToolButton;
+    CDS_LM: TClientDataSet;
+    OpenDialog1: TOpenDialog;
+    Tv1BGDNum: TcxGridDBColumn;
+    Tv1SupplierShuiNo: TcxGridDBColumn;
+    Tv1Supplier: TcxGridDBColumn;
+    Tv1OurShuiNo: TcxGridDBColumn;
+    Tv1OurCoName: TcxGridDBColumn;
+    Tv1BillCycle: TcxGridDBColumn;
+    ToolButton5: TToolButton;
+    Tv1fromFlow: TcxGridDBColumn;
+    Tbssel: TToolButton;
+    cxTabControl1: TcxTabControl;
+    Panel1: TPanel;
+    Label1: TLabel;
+    begdate: TcxDateEdit;
+    Enddate: TcxDateEdit;
+    ToolButton6: TToolButton;
+    Label4: TLabel;
+    Tv1Column1: 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 v1QtyPropertiesEditValueChanged(Sender: TObject);
+    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 ToolButton4Click(Sender: TObject);
+    procedure Tv1SupplierPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+    procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer);
+    procedure Tv1AmountPropertiesEditValueChanged(Sender: TObject);
+    procedure ToolButton5Click(Sender: TObject);
+    procedure TbsselClick(Sender: TObject);
+    procedure Tv1DblClick(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure ToolButton6Click(Sender: TObject);
+  private
+    procedure initGrid();
+    procedure SaveDate();
+    procedure SaveFlowInvoice();
+    { Private declarations }
+  public
+    FIVID: string;
+    fInvoiceFlag: string;
+    { Public declarations }
+  end;
+
+var
+  frmInvoiceOutSel: TfrmInvoiceOutSel;
+
+implementation
+
+uses
+  U_RTFun, U_ZDYHelp, U_CompanySel, U_dataLink, U_PayableSel;
+{$R *.dfm}
+
+//procedure TfrmInvoiceInInPut.SaveFlowInvoice();
+//var
+//  sl: TStringList;
+//  i: Integer;
+//begin
+//  with CDS_Invoice do
+//  begin
+//    first;
+//    while not eof do
+//    begin
+//      if fieldbyname('IVID').AsString <> '' then
+//      begin
+//        with ADOQueryCmd do
+//        begin
+//          close;
+//          sql.Clear;
+//          sql.add('delete from Finance_FlowInvoice where IVID=' + quotedstr(Trim(CDS_Invoice.fieldbyname('IVID').AsString)));
+//          ExecSQL;
+//        end;
+//
+//        with ADOQueryCmd do
+//        begin
+//          close;
+//          sql.Clear;
+//          sql.add('exec P_InsertFinanceFlowInvoice @IVID=' + quotedstr(Trim(CDS_Invoice.fieldbyname('IVID').AsString)));
+//          sql.Add(' ,@fffIDs=' + quotedstr(Trim(CDS_Invoice.fieldbyname('fromFlow').AsString)) );
+//          ExecSQL;
+//        end;
+//
+//
+//      end;
+//      CDS_Invoice.Next;
+//    end;
+//  end;
+//end;
+
+procedure TfrmInvoiceOutSel.SaveFlowInvoice();
+begin
+  if CDS_Invoice.IsEmpty then
+    Exit;
+
+  // 开始事务（假设使用ADO事务）
+  ADOQueryCmd.Connection.BeginTrans;
+  try
+    CDS_Invoice.DisableControls;
+    CDS_Invoice.First;
+
+    while not CDS_Invoice.Eof do
+    begin
+      if Trim(CDS_Invoice.FieldByName('IVID').AsString) <> '' then
+      begin
+        // 使用参数化查询
+        with ADOQueryCmd do
+        begin
+          Close;
+          SQL.Text := 'delete from Finance_FlowInvoice where IVID = :IVID';
+          Parameters.ParamByName('IVID').Value := Trim(CDS_Invoice.FieldByName('IVID').AsString);
+          ExecSQL;
+
+          Close;
+          SQL.Text := 'exec P_InsertFinanceFlowInvoice @IVID = :IVID, @fffIDs = :fffIDs';
+          Parameters.ParamByName('IVID').Value := Trim(CDS_Invoice.FieldByName('IVID').AsString);
+          Parameters.ParamByName('fffIDs').Value := Trim(CDS_Invoice.FieldByName('fromFlow').AsString);
+//          ShowMessage(sql.Text);
+          ExecSQL;
+        end;
+      end;
+
+      CDS_Invoice.Next;  // 移动到下一条记录
+    end;
+
+    CDS_Invoice.EnableControls;
+    ADOQueryCmd.Connection.CommitTrans;  // 提交事务
+//    ShowMessage('保存成功！');
+  except
+    ADOQueryCmd.Connection.RollbackTrans;  // 出错回滚
+    raise;  // 重新抛出异常
+
+  end;
+end;
+
+procedure TfrmInvoiceOutSel.SaveDate();
+var
+  MaxNo: string;
+begin
+  ADOQueryCmd.Connection.BeginTrans;
+  try
+    with CDS_Invoice do
+    begin
+      first;
+      while not eof do
+      begin
+        if fieldbyname('IVID').AsString = '' then
+        begin
+          if GetLSNo(ADOQueryTmp, MaxNo, 'IJ', 'Finance_Invoice', 4, 1) = False then
+            raise Exception.Create('取最大号失败！');
+        end
+        else
+          MaxNo := CDS_Invoice.fieldbyname('IVID').AsString;
+
+        with ADOQueryCmd do
+        begin
+          close;
+          sql.Clear;
+          sql.add('select * from Finance_Invoice where IVID=' + 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_Invoice', 0);
+        ADOQueryCmd.fieldbyname('IVID').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('SupplierShuiNo').Value := Trim(CDS_Invoice.fieldbyname('SupplierShuiNo').AsString);
+        ADOQueryCmd.fieldbyname('OurCoNo').Value := trim(CDS_Invoice.FieldByName('OurCoNo').AsString);
+        ADOQueryCmd.fieldbyname('PayDate').Value := trim(CDS_Invoice.FieldByName('PayDate').AsString);
+
+        ADOQueryCmd.Post;
+        CDS_Invoice.Edit;
+        CDS_Invoice.FieldByName('IVId').Value := MaxNo;
+        CDS_Invoice.Post;
+        next;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    application.MessageBox('保存成功！', '提示');
+
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+  end;
+end;
+
+procedure TfrmInvoiceOutSel.initGrid();
+begin
+  with ADOQueryTmp do
+  begin
+    close;
+    sql.Clear;
+    sql.Add('select A.*,B.BankName,B.BankNo,B.CoCode,C.BankDeposit,C.BankCardNo  from Finance_Invoice A ');
+
+    sql.add(' left join BS_Company B on  A.SupplierNo = B.CoCode ');
+    SQL.Add(' LEFT JOIN (');
+    SQL.Add('   SELECT *, ROW_NUMBER() OVER (PARTITION BY GSTT ORDER BY (SELECT NULL)) AS rn');
+    SQL.Add('   FROM BS_Bank');
+    SQL.Add(' ) C ON A.OurCoName = C.GSTT AND C.rn = 1');
+
+    sql.add(' where isnull(A.Status,''0'')=''9'' ');
+
+    if cxTabControl1.TabIndex = 1 then
+    begin
+      sql.Add(' and A.ivdate>=''' + FormatDateTime('yyyy-MM-dd', begdate.Date) + ''' ');
+      sql.Add(' and A.ivdate<''' + FormatDateTime('yyyy-MM-dd', Enddate.Date + 1) + ''' ');
+    end;
+    if cxTabControl1.TabIndex = 0 then
+    begin
+      sql.add(' and not exists (select 1 from Finance_Flow X where X.IVID = A.IVID) ');
+    end;
+    if cxTabControl1.TabIndex = 1 then
+    begin
+      sql.add(' and  exists (select 1 from Finance_Flow X where X.IVID = A.IVID) ');
+    end;
+
+    sql.Add(' and IVFlag=''销项'' ');
+
+    open;
+  end;
+
+  SCreateCDS(ADOQueryTmp, CDS_Invoice);
+  SInitCDSData(ADOQueryTmp, CDS_Invoice);
+end;
+
+procedure TfrmInvoiceOutSel.TBCloseClick(Sender: TObject);
+begin
+
+  Close;
+end;
+
+procedure TfrmInvoiceOutSel.TbsselClick(Sender: TObject);
+begin
+  if CDS_Invoice.IsEmpty then
+  begin
+    Exit;
+  end;
+  ModalResult := 1;
+end;
+
+procedure TfrmInvoiceOutSel.FormShow(Sender: TObject);
+begin
+  ReadCxGrid(Self.Caption + 'TV1', 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;
+  Enddate.Date := SGetServerDate(ADOQueryTmp);
+  begdate.Date := Enddate.Date - 30;
+  initGrid();
+end;
+
+procedure TfrmInvoiceOutSel.TSaveClick(Sender: TObject);
+begin
+
+  if CDS_Invoice.Locate('IVNo', null, []) then
+  begin
+    application.MessageBox('发票号不能为空', '提示');
+    exit;
+  end;
+  if CDS_Invoice.Locate('OurCoName', null, []) then
+  begin
+    application.MessageBox('我方单位不能为空', '提示');
+    exit;
+  end;
+  if not CDS_Invoice.FieldByName('IVDate').isnull then
+  begin
+    if CDS_Invoice.FieldByName('BillCycle').asstring <> '' then
+    begin
+      CDS_Invoice.Edit;
+      CDS_Invoice.FieldByName('PayDate').AsDateTime := CDS_Invoice.FieldByName('IVDate').AsDateTime + StrToIntDef(Trim(CDS_Invoice.FieldByName('BillCycle').AsString), 0);
+      CDS_Invoice.Post;
+    end
+    else
+    begin
+      CDS_Invoice.Edit;
+      CDS_Invoice.FieldByName('PayDate').Value := CDS_Invoice.FieldByName('IVDate').Value;
+      CDS_Invoice.Post;
+    end;
+  end;
+
+  SaveDate();
+  SaveFlowInvoice();
+  Modalresult := 1;
+end;
+
+procedure TfrmInvoiceOutSel.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('P_CodeName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+        Self.CDS_Invoice.FieldByName('P_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+  //self.tv1.Controller.EditingController.ShowEdit();
+end;
+
+procedure TfrmInvoiceOutSel.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 TfrmInvoiceOutSel.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 TfrmInvoiceOutSel.v1QtyPropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue, FFieldName: string;
+  FQty, FPrice, FAmount, Ftax, FtaxAmount: 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;
+//    FtaxAmount := FieldbyName('taxAmount').AsFloat;
+//    Ftax := FieldbyName('tax').AsFloat;
+//  end;
+//  if FQty <> 0 then
+//  begin
+//    FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)]));
+//    FPrice := strtofloat(format('%.2f', [FAmount / FQty]));
+//  end
+//  else
+//  begin
+//    FPrice := 0;
+//    FAmount := strtofloat(format('%.2f', [FtaxAmount / (1 + Ftax / 100)]));
+//  end;
+//
+//  with CDS_Invoice do
+//  begin
+//    Edit;
+//    FieldByName('Price').Value := FPrice;
+//    FieldByName('Amount').Value := FAmount;
+//    FieldByName('TaxFee').Value := FtaxAmount - FAmount;
+//    Post;
+//  end;
+//  tv1.Controller.EditingController.ShowEdit();
+
+end;
+
+procedure TfrmInvoiceOutSel.cxTabControl1Change(Sender: TObject);
+begin
+  if cxTabControl1.TabIndex = 0 then
+  begin
+    Tbssel.visible := True;
+  end
+  else
+  begin
+    Tbssel.visible := false;
+  end;
+  initGrid();
+end;
+
+procedure TfrmInvoiceOutSel.FormDestroy(Sender: TObject);
+begin
+  frmInvoiceOutSel := nil;
+end;
+
+procedure TfrmInvoiceOutSel.Tv1AmountPropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue, FFieldName: string;
+  mAmount, mTaxFee, mTaxAmount: Double;
+begin
+  mvalue := TcxTextEdit(Sender).EditingText;
+  if Trim(mvalue) = '' then
+  begin
+    mvalue := '0';
+  end;
+  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+
+  with CDS_Invoice do
+  begin
+    Edit;
+    FieldByName(FFieldName).Value := StrToFloat(Trim(mvalue));
+    Post;
+//    ShowMessage(Fieldbyname('TaxRate').AsString);
+    if Fieldbyname('Amount').AsString <> '' then
+    begin
+      mAmount := Fieldbyname('Amount').AsFloat;
+    end
+    else
+    begin
+      mAmount := 0;
+    end;
+
+    if Fieldbyname('TaxFee').AsString <> '' then
+    begin
+      mTaxFee := Fieldbyname('TaxFee').AsFloat;
+    end
+    else
+    begin
+      mTaxFee := 0;
+    end;
+
+  end;
+
+  mTaxAmount := RoundFloat(mAmount + mTaxFee, 2);
+
+  with CDS_Invoice do
+  begin
+    Edit;
+    FieldByName('Amount').Value := mAmount;
+//    FieldByName('ConPrice').Value := FConPrice;
+    FieldByName('TaxFee').Value := mTaxFee;
+    FieldByName('TaxAmount').Value := mTaxAmount;
+    Post;
+  end;
+  tv1.Controller.EditingController.ShowEdit();
+
+end;
+
+procedure TfrmInvoiceOutSel.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 TfrmInvoiceOutSel.Tv1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag := 'InvoiceType';
+      flagname := '发票类型';
+      if ShowModal = 1 then
+      begin
+        Self.CDS_Invoice.Edit;
+        Self.CDS_Invoice.FieldByName('IVType').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmInvoiceOutSel.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 TfrmInvoiceOutSel.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 TfrmInvoiceOutSel.Tv1DblClick(Sender: TObject);
+begin
+  ModalResult := 1;
+end;
+
+procedure TfrmInvoiceOutSel.ButtonEdit(Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmCompanySel := TfrmCompanySel.Create(Application);
+    with frmCompanySel do
+    begin
+      FCoType := '我司';
+      if ShowModal = 1 then
+      begin
+        CDS_Invoice.Edit;
+        CDS_Invoice.FieldByName('OurCoName').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
+        CDS_Invoice.FieldByName('OurShuiNo').Value := Trim(CDS_1.fieldbyname('ShuiNo').AsString);
+        CDS_Invoice.FieldByName('OurCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
+        CDS_Invoice.Post;
+      end;
+    end;
+  finally
+    frmCompanySel.Free;
+  end;
+end;
+
+procedure TfrmInvoiceOutSel.Tv1SupplierPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmCompanySel := TfrmCompanySel.Create(Application);
+    with frmCompanySel do
+    begin
+      FCoType := '供应商';
+      if ShowModal = 1 then
+      begin
+        CDS_Invoice.Edit;
+        CDS_Invoice.FieldByName('Supplier').Value := Trim(CDS_1.fieldbyname('CoName').AsString);
+        CDS_Invoice.FieldByName('SupplierShuiNo').Value := Trim(CDS_1.fieldbyname('ShuiNo').AsString);
+        CDS_Invoice.FieldByName('SupplierNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
+
+        CDS_Invoice.FieldByName('BillCycle').Value := Trim(CDS_1.fieldbyname('BillCycle').AsString);
+        CDS_Invoice.Post;
+      end;
+    end;
+  finally
+    frmCompanySel.Free;
+  end;
+end;
+
+procedure TfrmInvoiceOutSel.ToolButton1Click(Sender: TObject);
+begin
+  CDS_Invoice.Append;
+  CDS_Invoice.FieldByName('IVDate').Value := now();
+  CDS_Invoice.FieldByName('IVType').Value := '进项发票';
+  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 TfrmInvoiceOutSel.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_Invoice where IvID=''' + trim(CDS_Invoice.fieldbyname('IvID').asstring) + ''' ');
+    execsql;
+  end;
+  CDS_Invoice.delete;
+end;
+
+procedure TfrmInvoiceOutSel.ToolButton3Click(Sender: TObject);
+begin
+  WriteCxGrid(Self.Caption + 'TV1', Tv1, '财务管理');
+end;
+
+procedure TfrmInvoiceOutSel.ToolButton4Click(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_Invoice do
+      begin
+        Append;
+        CDS_LM.First;
+        while not CDS_LM.Eof do
+        begin
+          if CDS_LM.FieldByName('LXH').AsInteger > 0 then
+            CDS_Invoice.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value;
+          CDS_LM.Next;
+        end;
+//        CDS_Invoice.fieldbyname('OurCoNo').Value := '91330602MA2JTEXX4B';
+//        CDS_Invoice.fieldbyname('OurCoName').Value := '圆中圆';
+//        CDS_Invoice.FieldByName('Currency').Value := 'CNY';
+        Post;
+      end;
+    end;
+    WorkBook.Close;
+    excelApp.Quit;
+    excelApp := Unassigned;
+    WorkBook := Unassigned;
+  except
+    WorkBook.Close;
+    excelApp.Quit;
+    excelApp := Unassigned;
+    WorkBook := Unassigned;
+    exit;
+  end;
+
+end;
+
+procedure TfrmInvoiceOutSel.ToolButton5Click(Sender: TObject);
+begin
+  try
+    frmPayableSel := TfrmPayableSel.Create(Application);
+    with frmPayableSel do
+    begin
+      if ShowModal = 1 then
+      begin
+//        frmPayableSel.CDS_1.first;
+        CDS_1.Locate('ssel', True, []);
+        with frmPayableSel.CDS_1 do
+        begin
+          self.CDS_Invoice.Append;
+
+          Self.CDS_Invoice.FieldByName('Supplier').value := frmPayableSel.CDS_1.FieldByName('OppCoName').AsString;
+          Self.CDS_Invoice.FieldByName('SupplierNo').value := frmPayableSel.CDS_1.FieldByName('OppCoNo').AsString;
+          Self.CDS_Invoice.FieldByName('SupplierShuiNo').value := frmPayableSel.CDS_1.FieldByName('oppShuiNo').AsString;
+          Self.CDS_Invoice.FieldByName('OurCoName').value := frmPayableSel.CDS_1.FieldByName('OurCoName').AsString;
+          Self.CDS_Invoice.FieldByName('OurCoNo').value := frmPayableSel.CDS_1.FieldByName('OurCoNo').AsString;
+          Self.CDS_Invoice.FieldByName('OurShuiNo').value := frmPayableSel.CDS_1.FieldByName('ourShuiNo').AsString;
+
+          Self.CDS_Invoice.FieldByName('Currency').value := frmPayableSel.CDS_1.FieldByName('Currency').AsString;
+          if frmPayableSel.CDS_1.FieldByName('NoTaxPrice').AsString <> '' then
+          begin
+            Self.CDS_Invoice.FieldByName('Price').value := frmPayableSel.CDS_1.FieldByName('NoTaxPrice').AsString;
+          end
+          else
+          begin
+            Self.CDS_Invoice.FieldByName('Price').value := 0;
+          end;
+
+          Self.CDS_Invoice.FieldByName('Amount').value := frmPayableSel.FNoTaxInclude;
+          Self.CDS_Invoice.FieldByName('TaxFee').value := frmPayableSel.FTax;
+          Self.CDS_Invoice.FieldByName('TaxAmount').value := frmPayableSel.FTaxInclude;
+          self.CDS_Invoice.FieldByName('fromFlow').Value := frmPayableSel.FFFIDs;
+          Self.CDS_Invoice.post;
+        end;
+      end;
+    end;
+  finally
+    frmPayableSel.Free;
+  end;
+end;
+
+procedure TfrmInvoiceOutSel.ToolButton6Click(Sender: TObject);
+begin
+  initGrid();
+end;
+
+end.
+

A09财务通用管理/U_InvoiceSel.dfm

@@ -250,8 +250,8 @@ object frmInvoiceSel: TfrmInvoiceSel
         DataBinding.FieldName = 'Price'
         DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxCurrencyEditProperties'
-        Properties.DecimalPlaces = 0
+        Properties.DecimalPlaces = 2
-        Properties.DisplayFormat = '#,##0'
+        Properties.DisplayFormat = '#,##0.00'
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 93
@@ -261,8 +261,8 @@ object frmInvoiceSel: TfrmInvoiceSel
         DataBinding.FieldName = 'Amount'
         DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxCurrencyEditProperties'
-        Properties.DecimalPlaces = 0
+        Properties.DecimalPlaces = 2
-        Properties.DisplayFormat = '#,##0'
+        Properties.DisplayFormat = '#,##0.00'
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 111
@@ -272,8 +272,8 @@ object frmInvoiceSel: TfrmInvoiceSel
         DataBinding.FieldName = 'TaxFee'
         DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxCurrencyEditProperties'
-        Properties.DecimalPlaces = 0
+        Properties.DecimalPlaces = 2
-        Properties.DisplayFormat = '#,##0'
+        Properties.DisplayFormat = '#,##0.00'
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 65
@@ -283,8 +283,8 @@ object frmInvoiceSel: TfrmInvoiceSel
         DataBinding.FieldName = 'TaxAmount'
         DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxCurrencyEditProperties'
-        Properties.DecimalPlaces = 0
+        Properties.DecimalPlaces = 2
-        Properties.DisplayFormat = '#,##0'
+        Properties.DisplayFormat = '#,##0.00'
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 114