17.32

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

@@ -8,12 +8,12 @@
     <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.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.885,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ExpenseList.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
@@ -36,9 +36,9 @@
     <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.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.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.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.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.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.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>

A09财务通用管理/U_PayableBatchInput.dfm

@@ -93,6 +93,7 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
     Width = 1406
     Height = 542
     Align = alClient
+    PopupMenu = PM_1
     TabOrder = 1
     ExplicitTop = 36
     object Tv1: TcxGridDBTableView
@@ -134,6 +135,7 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
       OptionsView.Footer = True
       OptionsView.GroupByBox = False
       object Tv1Column22: TcxGridDBColumn
+        Tag = 99
         Caption = #36873#25321
         DataBinding.FieldName = 'SSel'
         DataBinding.IsNullValueType = True
@@ -143,7 +145,6 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
         Width = 43
       end
       object Tv1FFTime: TcxGridDBColumn
-        Tag = 7
         Caption = #30331#35760#26085#26399
         DataBinding.FieldName = 'FFTime'
         DataBinding.IsNullValueType = True
@@ -172,6 +173,13 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
         Caption = #23545#26041#21333#20301
         DataBinding.FieldName = 'OppCoName'
         DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = Tv1OppCoNamePropertiesButtonClick
         HeaderAlignmentHorz = taCenter
         Width = 89
       end
@@ -179,6 +187,13 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
         Caption = #25688#35201
         DataBinding.FieldName = 'FFAbstract'
         DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = Tv1FFAbstractPropertiesButtonClick
         HeaderAlignmentHorz = taCenter
         Width = 79
       end
@@ -411,4 +426,20 @@ inherited frmPayableBatchInput: TfrmPayableBatchInput
     Left = 456
     Top = 88
   end
+  object PM_1: TPopupMenu
+    Left = 504
+    Top = 280
+    object N1: TMenuItem
+      Caption = #20840#36873
+      OnClick = N1Click
+    end
+    object N3: TMenuItem
+      Caption = #20840#24323
+      OnClick = N3Click
+    end
+    object N2: TMenuItem
+      Caption = #22797#21046
+      OnClick = N2Click
+    end
+  end
 end

A09财务通用管理/U_PayableBatchInput.pas

@@ -12,7 +12,8 @@ uses
   StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
   dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList,
   dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxImageList,
-  dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI, cxCheckBox;
+  dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI, cxCheckBox, Vcl.Menus
+  ,Clipbrd;
 
 type
   TfrmPayableBatchInput = class(TfrmBaseInput)
@@ -60,6 +61,10 @@ type
     Tv1PurNo: TcxGridDBColumn;
     Tv1FinType: TcxGridDBColumn;
     TbPurSel: TToolButton;
+    PM_1: TPopupMenu;
+    N1: TMenuItem;
+    N3: TMenuItem;
+    N2: TMenuItem;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -71,6 +76,11 @@ type
     procedure TBDelClick(Sender: TObject);
     procedure TbOrdAddClick(Sender: TObject);
     procedure TbPurSelClick(Sender: TObject);
+    procedure Tv1OppCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+    procedure Tv1FFAbstractPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+    procedure N2Click(Sender: TObject);
+    procedure N3Click(Sender: TObject);
+    procedure N1Click(Sender: TObject);
 
   private
     { Private declarations }
@@ -120,6 +130,23 @@ begin
   end;
 end;
 
+procedure TfrmPayableBatchInput.N1Click(Sender: TObject);
+begin
+  SelOKNo(CDS_1, True);
+
+end;
+
+procedure TfrmPayableBatchInput.N2Click(Sender: TObject);
+begin
+  Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
+end;
+
+procedure TfrmPayableBatchInput.N3Click(Sender: TObject);
+begin
+  SelOKNo(CDS_1, false);
+
+end;
+
 function TfrmPayableBatchInput.SaveData(): Boolean;
 var
   Maxno, MFFID: string;
@@ -176,6 +203,7 @@ begin
           FieldByName('FFID').Value := Maxno;
           FieldByName('FFFlag').Value := '壇마마';
           FieldByName('FFType').Value := '壇마운되션';
+          FieldByName('CheckStatus').Value := 'δÉóºË';
 
 
           //廉芚데뵀
@@ -433,6 +461,27 @@ begin
 
 end;
 
+procedure TfrmPayableBatchInput.Tv1FFAbstractPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag := 'FFAbstract';
+      flagname := 'ÕªÒª';
+      if ShowModal = 1 then
+      begin
+        Self.CDS_1.Edit;
+        Self.CDS_1.FieldByName('FFAbstract').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+        Self.CDS_1.Post;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+
+end;
+
 procedure TfrmPayableBatchInput.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 var
   FFSPID: string;
@@ -464,5 +513,25 @@ begin
 //  end;
 end;
 
+procedure TfrmPayableBatchInput.Tv1OppCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmCompanySel := TfrmCompanySel.Create(Application);
+    with frmCompanySel do
+    begin
+      FCoType := '¹©Ó¦ÉÌ';
+      if ShowModal = 1 then
+      begin
+        Self.CDS_1.Edit;
+        Self.CDS_1.FieldByName('OppCoName').asstring := Trim(CDS_1.fieldbyname('CoName').AsString);
+        Self.CDS_1.FieldByName('OurCoNo').asstring := Trim(CDS_1.fieldbyname('CoCode').AsString);
+        Self.CDS_1.Post;
+      end;
+    end;
+  finally
+    frmCompanySel.Free;
+  end;
+end;
+
 end.
 

A09财务通用管理/U_PayableList.dfm

@@ -144,7 +144,6 @@ inherited frmPayableList: TfrmPayableList
     Color = clWhite
     ParentBackground = False
     TabOrder = 5
-    ExplicitTop = 36
     object Label3: TLabel
       Left = 227
       Top = 8
@@ -272,7 +271,6 @@ inherited frmPayableList: TfrmPayableList
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 2
-    ExplicitTop = 133
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       Navigator.Buttons.Delete.Enabled = False
@@ -546,7 +544,6 @@ inherited frmPayableList: TfrmPayableList
       #20840#37096)
     LookAndFeel.Kind = lfUltraFlat
     OnChange = cxTabControl1Change
-    ExplicitTop = 99
     ClientRectRight = 0
     ClientRectTop = 0
   end
@@ -630,8 +627,8 @@ inherited frmPayableList: TfrmPayableList
     Top = 336
   end
   object PopupMenu1: TPopupMenu
-    Left = 776
+    Left = 408
-    Top = 304
+    Top = 288
     object N1: TMenuItem
       Caption = #20840#36873
       OnClick = N1Click