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 46c57bf..9bed0d0 100644
Binary files a/A09财务通用管理/Financial.identcache and b/A09财务通用管理/Financial.identcache differ
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