Group_01/D10SZKaiXiYa
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

17.32

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2026-02-06 17:32:18 +08:00
parent d1e294bc4b
commit 361cc63c93
5 changed files with 108 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

BIN
A09财务通用管理/Financial.identcache
View File

Binary file not shown.

33
A09财务通用管理/U_PayableBatchInput.dfm
View File

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

71
A09财务通用管理/U_PayableBatchInput.pas
View File

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

7
A09财务通用管理/U_PayableList.dfm
View File

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