Group_99/D10SZKaiXiYa
9
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

财务

Browse Source
This commit is contained in:
funa 2026-05-28 17:28:47 +08:00
parent 84207f3f51
commit 0b725ddbdb
15 changed files with 144 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,17 +3,17 @@
<Transactions>
<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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.979,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutInPut.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm</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.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm</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.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
@ -35,16 +35,16 @@
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.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.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.765,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowTotalList.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.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.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.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.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.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.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>

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

Binary file not shown.

2
A09财务通用管理/U_CustStatement.pas
View File

@ -16,7 +16,7 @@ uses
dxBarBuiltInMenu, cxPC, dxDateRanges,
U_BaseList, Vcl.Menus, Vcl.Clipbrd, DateUtils, cxContainer, dxCore,
cxDateUtils, cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters,
dxScrollbarAnnotations, cxProgressBar;
dxScrollbarAnnotations, cxProgressBar, dxSkinWXI;
type
TfrmCustStatement = class(TfrmBaseList)

2
A09财务通用管理/U_FinTradePlanSel.dfm
View File

@ -70,7 +70,6 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
ExplicitTop = 44
object Label3: TLabel
Left = 39
Top = 10
@ -233,7 +232,6 @@ inherited frmFinTradePlanSel: TfrmFinTradePlanSel
Height = 546
Align = alClient
TabOrder = 2
ExplicitLeft = -8
object Tv1: TcxGridDBTableView
OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <>

3
A09财务通用管理/U_FinTradePlanSel.pas
View File

@ -11,7 +11,8 @@ uses
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxCheckBox,
cxCalendar, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations;
cxCalendar, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations,
dxSkinWXI;
type
TfrmFinTradePlanSel = class(TfrmBaseHelp)

22
A09财务通用管理/U_FinTradeSalesContractSel.dfm
View File

@ -130,6 +130,7 @@ inherited frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel
TabOrder = 2
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -171,6 +172,7 @@ inherited frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel
object TV1Column7: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
@ -179,36 +181,42 @@ inherited frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel
object TV1Column1: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object TV1Column6: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 88
end
object TV1Column5: TcxGridDBColumn
Caption = #32463#33829#21333#20301
DataBinding.FieldName = 'SellName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object TV1Column3: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'BuyName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object TV1Column4: TcxGridDBColumn
Caption = #20013#38388#21830
DataBinding.FieldName = 'MiddleName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object v1Column5: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
@ -216,6 +224,7 @@ inherited frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel
object TV1Column2: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
@ -223,6 +232,7 @@ inherited frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel
object VC_SCSCode: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -237,6 +247,7 @@ inherited frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel
object cxGridDBColumn2: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
@ -244,6 +255,7 @@ inherited frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel
object cxGridDBColumn3: TcxGridDBColumn
Caption = #20135#21697#33521#25991#21517
DataBinding.FieldName = 'C_EName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -258,6 +270,7 @@ inherited frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel
object cxGridDBColumn4: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
@ -265,6 +278,7 @@ inherited frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel
object cxGridDBColumn5: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
@ -272,6 +286,7 @@ inherited frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel
object cxGridDBColumn6: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 57
@ -279,6 +294,7 @@ inherited frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel
object cxGridDBColumn7: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
@ -286,6 +302,7 @@ inherited frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel
object cxGridDBColumn8: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -300,6 +317,7 @@ inherited frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel
object v1Column6: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -313,6 +331,7 @@ inherited frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel
object v1Column7: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -326,6 +345,7 @@ inherited frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'ConQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -334,6 +354,7 @@ inherited frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'ConUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
@ -347,6 +368,7 @@ inherited frmFinTradeSalesContractSel: TfrmFinTradeSalesContractSel
object v1Column2: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'ConSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70

3
A09财务通用管理/U_FinTradeSalesContractSel.pas
View File

@ -11,7 +11,8 @@ uses
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit,
cxDropDownEdit, cxCheckBox, Vcl.Menus;
cxDropDownEdit, cxCheckBox, Vcl.Menus, dxSkinsCore, dxSkinWXI,
dxScrollbarAnnotations;
type
TfrmFinTradeSalesContractSel = class(TfrmBaseHelp)

27
A09财务通用管理/U_GETableBatchInput.dfm
View File

@ -96,7 +96,6 @@ inherited frmGetableBatchInput: TfrmGetableBatchInput
Align = alClient
PopupMenu = PM_1
TabOrder = 1
ExplicitTop = 36
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -118,6 +117,7 @@ inherited frmGetableBatchInput: TfrmGetableBatchInput
Kind = skSum
end
item
Format = '#,###.##'
Kind = skSum
Column = Tv1TaxInclude
end
@ -129,6 +129,7 @@ inherited frmGetableBatchInput: TfrmGetableBatchInput
Kind = skSum
end
item
Format = '#,###.##'
Kind = skSum
Column = Tv1Tax
end>
@ -217,6 +218,13 @@ inherited frmGetableBatchInput: TfrmGetableBatchInput
Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1ConNoPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 112
end
@ -297,6 +305,13 @@ inherited frmGetableBatchInput: TfrmGetableBatchInput
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1QtyUnitPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 63
end
@ -318,7 +333,8 @@ inherited frmGetableBatchInput: TfrmGetableBatchInput
Caption = #19981#21547#31246#21333#20215
DataBinding.FieldName = 'NoTaxPrice'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
Properties.OnEditValueChanged = Tv1TaxRatePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 99
@ -327,6 +343,8 @@ inherited frmGetableBatchInput: TfrmGetableBatchInput
Caption = #19981#21547#31246#37329#39069
DataBinding.FieldName = 'NoTaxInclude'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter
Width = 123
end
@ -343,7 +361,8 @@ inherited frmGetableBatchInput: TfrmGetableBatchInput
Caption = #31246#39069
DataBinding.FieldName = 'Tax'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter
Width = 85
end
@ -351,6 +370,8 @@ inherited frmGetableBatchInput: TfrmGetableBatchInput
Caption = #21547#31246#37329#39069
DataBinding.FieldName = 'TaxInclude'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter
Width = 96
end

66
A09财务通用管理/U_GETableBatchInput.pas
View File

@ -85,6 +85,10 @@ type
procedure Tv1CurrencyPropertiesChange(Sender: TObject);
procedure Tv1TaxRatePropertiesEditValueChanged(Sender: TObject);
procedure TV1OurCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1QtyUnitPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure Tv1ConNoPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
private
{ Private declarations }
function SaveData(): Boolean;
@ -102,7 +106,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_FinTradePlanSel,
U_FinPurchasePlanSel;
U_FinPurchasePlanSel,U_FinTradeSalesContractSel;
{$R *.dfm}
@ -273,6 +277,8 @@ begin
CDS_1.FieldByName('FFTime').Value := SGetServerDateTime(ADOQueryCmd);
CDS_1.FieldByName('ReconciliationDate').Value := SGetServerDate(ADOQueryCmd);
CDS_1.FieldByName('OurCoName').Value := 'DESHINE VIETNAM CO., LTD';
CDS_1.FieldByName('ourShuiNo').Value := '1102083046';
CDS_1.FieldByName('QtyUnit').Value := 'M';
CDS_1.FieldByName('SSel').Value := False;
CDS_1.Post;
end;
@ -502,6 +508,39 @@ begin
end;
procedure TfrmGetableBatchInput.Tv1ConNoPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
inherited;
try
frmFinTradeSalesContractSel := TfrmFinTradeSalesContractSel.Create(Application);
with frmFinTradeSalesContractSel do
begin
if ShowModal = 1 then
begin
with Self.CDS_1 do
begin
if not (State in [dsEdit, dsInsert]) then
Edit;
FieldByName('ConNo').AsString := Trim(CDS_1.FieldByName('ConNo').AsString);
FieldByName('ConMId').AsString := Trim(CDS_1.FieldByName('ConMId').AsString);
FieldByName('ConSId').AsString := Trim(CDS_1.FieldByName('ConSId').AsString);
FieldByName('BuyConNo').AsString := Trim(CDS_1.fieldbyname('BuyConNo').AsString);
FieldByName('BuyConMID').AsString := Trim(CDS_1.fieldbyname('FROMCPMID').AsString);
FieldByName('BuyConSID').AsString := Trim(CDS_1.fieldbyname('FROMCPSID').AsString);
Post;
end;
end;
end;
finally
frmFinTradeSalesContractSel.Free;
end;
end;
procedure TfrmGetableBatchInput.Tv1CurrencyPropertiesChange(Sender: TObject);
var
mvalue, FFieldName: string;
@ -633,6 +672,7 @@ begin
// end;
end;
procedure TfrmGetableBatchInput.Tv1OppCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
@ -664,6 +704,8 @@ begin
begin
with frmFinTradePlanSel.CDS_1 do
begin
if not (Self.CDS_1.State in [dsEdit, dsInsert]) then
Self.CDS_1.Edit;
//²É¹ºµ¥
self.CDS_1.FieldByName('PurNo').value := null;
self.CDS_1.FieldByName('PurMID').value := null;
@ -802,6 +844,28 @@ begin
end;
end;
procedure TfrmGetableBatchInput.Tv1QtyUnitPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'QtyUnit2';
flagname := 'µ¥Î»';
if ShowModal = 1 then
begin
Self.CDS_1.Edit;
Self.CDS_1.FieldByName('QtyUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
Self.CDS_1.Post;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmGetableBatchInput.Tv1TaxRatePropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;

4
A09财务通用管理/U_InvoiceOutSel.dfm
View File

@ -321,8 +321,8 @@ object frmInvoiceOutSel: TfrmInvoiceOutSel
Properties.Style = 11
Properties.TabIndex = 0
Properties.Tabs.Strings = (
' '#26410#30003#35831' '
' '#24050#30003#35831' '
' '#26410#25910#27454' '
' '#24050#25910#27454' '
' '#20840#37096' ')
LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change

9
A09财务通用管理/U_InvoiceOutSel.pas
View File

@ -293,6 +293,10 @@ end;
procedure TfrmInvoiceOutSel.TbsselClick(Sender: TObject);
begin
if cxTabControl1.TabIndex <> 0 then
begin
Exit;
end;
if CDS_Invoice.IsEmpty then
begin
Exit;
@ -314,6 +318,7 @@ begin
end;
Enddate.Date := SGetServerDate(ADOQueryTmp);
begdate.Date := Enddate.Date - 30;
Tbssel.Visible := (cxTabControl1.TabIndex = 0);
initGrid();
end;
@ -607,6 +612,10 @@ end;
procedure TfrmInvoiceOutSel.Tv1DblClick(Sender: TObject);
begin
if cxTabControl1.TabIndex <> 0 then
begin
Exit;
end;
ModalResult := 1;
end;

1
A09财务通用管理/U_ReceivableInput.dfm
View File

@ -34,7 +34,6 @@ object frmReceivableInput: TfrmReceivableInput
ParentColor = False
ShowCaptions = True
TabOrder = 0
ExplicitTop = -6
object ToolButton3: TToolButton
Left = 0
Top = 0

2
A09财务通用管理/U_ReceivableInput.pas
View File

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

8
A09财务通用管理/U_ReceivableList.dfm
View File

@ -7,6 +7,7 @@ inherited frmReceivableList: TfrmReceivableList
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
ExplicitLeft = -181
ExplicitWidth = 1556
ExplicitHeight = 629
PixelsPerInch = 96
@ -320,6 +321,7 @@ inherited frmReceivableList: TfrmReceivableList
Kind = skSum
end
item
Format = '#,###.##'
Kind = skSum
Column = Tv1TaxInclude
end
@ -502,6 +504,8 @@ inherited frmReceivableList: TfrmReceivableList
Caption = #19981#21547#31246#21333#20215
DataBinding.FieldName = 'NoTaxPrice'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter
Width = 99
end
@ -516,6 +520,8 @@ inherited frmReceivableList: TfrmReceivableList
Caption = #31246#39069
DataBinding.FieldName = 'Tax'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter
Width = 71
end
@ -523,6 +529,8 @@ inherited frmReceivableList: TfrmReceivableList
Caption = #21547#31246#37329#39069
DataBinding.FieldName = 'TaxInclude'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 96

3
A09财务通用管理/U_ReceivableList.pas
View File

@ -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
TfrmReceivableList = class(TfrmBaseList)