From 361cc63c9365df1f5898faf3f115313c02f3ab37 Mon Sep 17 00:00:00 2001 From: "LAPTOP-8NOV8MVQ\\cai" Date: Fri, 6 Feb 2026 17:32:18 +0800 Subject: [PATCH] 17.32 --- A09财务通用管理/Financial.dproj.local | 8 +-- A09财务通用管理/Financial.identcache | Bin 3561 -> 3561 bytes A09财务通用管理/U_PayableBatchInput.dfm | 33 ++++++++++- A09财务通用管理/U_PayableBatchInput.pas | 71 +++++++++++++++++++++++- A09财务通用管理/U_PayableList.dfm | 7 +-- 5 files changed, 108 insertions(+), 11 deletions(-) diff --git a/A09财务通用管理/Financial.dproj.local b/A09财务通用管理/Financial.dproj.local index 8bef073..981981b 100644 --- a/A09财务通用管理/Financial.dproj.local +++ b/A09财务通用管理/Financial.dproj.local @@ -8,12 +8,12 @@ 1899/12/30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas 1899/12/30 00:00:00.000.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.pas 1899/12/30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.pas 1899/12/30 00:00:00.000.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.pas 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899/12/30 00:00:00.000.885,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ExpenseList.pas 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas @@ -36,9 +36,9 @@ 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.pas - 1899/12/30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas 1899/12/30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.pas 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 1899/12/30 00:00:00.000.765,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowTotalList.pas diff --git a/A09财务通用管理/Financial.identcache b/A09财务通用管理/Financial.identcache index 46c57bf0097f19f80372c30e945944840944f8b3..9bed0d0a446a6df32a35d26eb1acb1d7603d8530 100644 GIT binary patch delta 58 zcmaDU{Ze|ujmcr$Nt^W<<5(uYU@e+_iYH-n6q_&0B<`@uy{yrb|1n!n{>*)S;*Idh OTD*>vUvNnP>HPr8?ia=Y delta 88 zcmaDU{Ze|ujmcF!;hU`(<5(suFlkR-z$`Y|k6UW;4A!E}S!}*6lmD|gP8Q;on7o}U rY;qin{NxWjN|PlS6(@7DSWjNeeSPu)M#ssv99)w_*+ju=vw7R diff --git a/A09财务通用管理/U_PayableBatchInput.dfm b/A09财务通用管理/U_PayableBatchInput.dfm index 9227c81..f8947e0 100644 --- a/A09财务通用管理/U_PayableBatchInput.dfm +++ b/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 diff --git a/A09财务通用管理/U_PayableBatchInput.pas b/A09财务通用管理/U_PayableBatchInput.pas index c2299b5..18a5379 100644 --- a/A09财务通用管理/U_PayableBatchInput.pas +++ b/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. diff --git a/A09财务通用管理/U_PayableList.dfm b/A09财务通用管理/U_PayableList.dfm index 494a69b..9c31387 100644 --- a/A09财务通用管理/U_PayableList.dfm +++ b/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 - Top = 304 + Left = 408 + Top = 288 object N1: TMenuItem Caption = #20840#36873 OnClick = N1Click