Group_99/D10myBiaoqi
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

11

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2024-08-06 15:40:31 +08:00
parent 14f7f405a1
commit ca8a36de42
31 changed files with 2502 additions and 86 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
A02基础产品管理/ClothInfo.identcache
View File

Binary file not shown.

BIN
A02基础产品管理/testDll.identcache
View File

Binary file not shown.

7
A09财务通用管理/Financial.dpr
View File

@ -21,8 +21,6 @@ uses
U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
U_ClothInfoSel in '..\A00通用窗体\U_ClothInfoSel.pas' {frmClothInfoSel},
U_EmployeeSel in '..\A00通用窗体\U_EmployeeSel.pas' {frmEmployeeSel},
U_InvoiceInInPut in 'U_InvoiceInInPut.pas' {frmInvoiceInInPut},
U_InvoiceInList in 'U_InvoiceInList.pas' {frmInvoiceInList},
U_BankSel in '..\A00通用窗体\U_BankSel.pas' {frmBankSel},
U_AttachmentUpload in '..\A00通用窗体\U_AttachmentUpload.pas' {frmAttachmentUpload},
U_FtyStatement in 'U_FtyStatement.pas' {frmFtyStatement},
@ -32,7 +30,10 @@ uses
U_CompanySel in 'U_CompanySel.pas' {frmCompanySel},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_OtherPayableList in 'U_OtherPayableList.pas' {frmOtherPayableList},
U_OtherPayableInput in 'U_OtherPayableInput.pas' {frmOtherPayableInput};
U_OtherPayableInput in 'U_OtherPayableInput.pas' {frmOtherPayableInput},
U_handPayableList in 'U_handPayableList.pas' {frmhandPayableList},
U_HandPayableInPut in 'U_HandPayableInPut.pas' {frmHandPayableInPut},
U_HandPayableImport in 'U_HandPayableImport.pas' {frmHandPayableImport};
{$R *.res}

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

@ -165,14 +165,6 @@
<Form>frmEmployeeSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_InvoiceInInPut.pas">
<Form>frmInvoiceInInPut</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_InvoiceInList.pas">
<Form>frmInvoiceInList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_BankSel.pas">
<Form>frmBankSel</Form>
<FormType>dfm</FormType>
@ -214,6 +206,18 @@
<Form>frmOtherPayableInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_handPayableList.pas">
<Form>frmhandPayableList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_HandPayableInPut.pas">
<Form>frmHandPayableInPut</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_HandPayableImport.pas">
<Form>frmHandPayableImport</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

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

@ -1,48 +1,53 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
<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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj</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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.487,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.715,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.753,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.dfm=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.dfm</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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</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.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm</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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.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.927,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableList.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.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.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas</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.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.927,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableList.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>2024-08-06 09:44:01.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.pas</Transaction>
<Transaction>2024-08-06 09:44:01.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.dfm</Transaction>
<Transaction>2024-08-06 09:44:58.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.dfm</Transaction>
<Transaction>2024-08-06 09:44:58.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.pas</Transaction>
<Transaction>2024-08-06 14:37:23.095,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableImport.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -93,6 +98,8 @@
<File Path="D:\Dp10Repo"/>
<File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.dfm"/>
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
<File Path="..\..\..\public10\design\U_BaseHelp.dfm"/>
<File Path="..\..\..\public10\design\U_BaseInput.pas"/>
@ -102,8 +109,6 @@
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.pas"/>
<File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.dfm"/>
<File Path="..\..\..\public10\ThreeFun"/>
<File Path="..\..\..\public10\ThreeFun\Form"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
@ -115,10 +120,6 @@
<File Path="U_DataLink.dfm"/>
<File Path="U_GetDllForm.pas"/>
<File Path="U_iniParam.pas"/>
<File Path="U_InvoiceInList.pas"/>
<File Path="U_InvoiceInList.dfm"/>
<File Path="U_InvoiceInInPut.pas"/>
<File Path="U_InvoiceInInPut.dfm"/>
<File Path="U_FtyStatement.pas"/>
<File Path="U_FtyStatement.dfm"/>
<File Path="U_CompanySel.pas"/>
@ -127,5 +128,11 @@
<File Path="U_OtherPayableList.dfm"/>
<File Path="U_OtherPayableInput.pas"/>
<File Path="U_OtherPayableInput.dfm"/>
<File Path="U_handPayableList.pas"/>
<File Path="U_handPayableList.dfm"/>
<File Path="U_HandPayableInPut.pas"/>
<File Path="U_HandPayableInPut.dfm"/>
<File Path="U_HandPayableImport.pas"/>
<File Path="U_HandPayableImport.dfm"/>
</ProjectSortOrder>
</BorlandProject>

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

Binary file not shown.

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

@ -71,8 +71,6 @@ object frmCollectInput: TfrmCollectInput
ParentCtl3D = False
ParentFont = False
TabOrder = 1
ExplicitLeft = -1
ExplicitTop = 39
object Label2: TLabel
Left = 245
Top = 20
@ -390,7 +388,7 @@ object frmCollectInput: TfrmCollectInput
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548000
Time = 0.670856296288548100
TabOrder = 9
end
object OrderNo: TBtnEditC

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

@ -14,7 +14,7 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit;
dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit, dxSkinWXI;
type
TfrmCollectInput = class(TForm)

20
A09财务通用管理/U_CollectList.dfm
View File

@ -274,11 +274,11 @@ inherited frmCollectList: TfrmCollectList
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitLeft = 1
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -319,6 +319,7 @@ inherited frmCollectList: TfrmCollectList
object Tv1Column22: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
@ -328,6 +329,7 @@ inherited frmCollectList: TfrmCollectList
Tag = 7
Caption = #26085#26399
DataBinding.FieldName = 'FFTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
@ -338,6 +340,7 @@ inherited frmCollectList: TfrmCollectList
object v2Column2: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
@ -345,6 +348,7 @@ inherited frmCollectList: TfrmCollectList
object v2FactoryName: TcxGridDBColumn
Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
@ -352,6 +356,7 @@ inherited frmCollectList: TfrmCollectList
object Tv1Column8: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 57
end
@ -359,6 +364,7 @@ inherited frmCollectList: TfrmCollectList
Tag = 7
Caption = #19978#32423#21333#20301
DataBinding.FieldName = 'OppParentCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
@ -366,6 +372,7 @@ inherited frmCollectList: TfrmCollectList
object Tv1Column1: TcxGridDBColumn
Caption = #25105#26041#36134#25143
DataBinding.FieldName = 'OurBankName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -373,6 +380,7 @@ inherited frmCollectList: TfrmCollectList
object Tv1Column2: TcxGridDBColumn
Caption = #23545#26041#36134#25143
DataBinding.FieldName = 'OppBankName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
@ -380,6 +388,7 @@ inherited frmCollectList: TfrmCollectList
object Tv1Column3: TcxGridDBColumn
Caption = #20184#27454#26041#24335
DataBinding.FieldName = 'PayMent'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
@ -387,6 +396,7 @@ inherited frmCollectList: TfrmCollectList
object Tv1Column19: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -394,6 +404,7 @@ inherited frmCollectList: TfrmCollectList
object Tv1Column20: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
@ -401,12 +412,14 @@ inherited frmCollectList: TfrmCollectList
object Tv1Column21: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 74
end
object Tv1Column4: TcxGridDBColumn
Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
@ -414,6 +427,7 @@ inherited frmCollectList: TfrmCollectList
object Tv1Column17: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -421,6 +435,7 @@ inherited frmCollectList: TfrmCollectList
object Tv1Column18: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -428,18 +443,21 @@ inherited frmCollectList: TfrmCollectList
object Tv1Column5: TcxGridDBColumn
Caption = #26680#38144#37329#39069
DataBinding.FieldName = 'FFWoAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object Tv1Column6: TcxGridDBColumn
Caption = #27719#29575
DataBinding.FieldName = 'ExchangeRate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 47
end
object Tv1Column7: TcxGridDBColumn
Caption = #25171#27454#37329#39069
DataBinding.FieldName = 'DKAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
end

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

@ -14,7 +14,8 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters,
dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd;
dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, dxSkinWXI,
dxScrollbarAnnotations;
type
TfrmCollectList = class(TfrmBaseList)

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

@ -1,4 +1,5 @@
inherited DataLink_Financial: TDataLink_Financial
OldCreateOrder = True
OnDestroy = DataModuleDestroy
Height = 349
Width = 482

12
A09财务通用管理/U_FtyStatement.dfm
View File

@ -164,6 +164,7 @@ inherited frmFtyStatement: TfrmFtyStatement
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_HZ
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
@ -263,6 +264,7 @@ inherited frmFtyStatement: TfrmFtyStatement
object v2Column6: TcxGridDBColumn
Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -272,6 +274,7 @@ inherited frmFtyStatement: TfrmFtyStatement
object v2Column5: TcxGridDBColumn
Caption = #19978#26399#27424#27454
DataBinding.FieldName = 'SQJYAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -281,6 +284,7 @@ inherited frmFtyStatement: TfrmFtyStatement
object v2Column1: TcxGridDBColumn
Caption = #26412#26399#24212#20184
DataBinding.FieldName = 'BQYFAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -290,6 +294,7 @@ inherited frmFtyStatement: TfrmFtyStatement
object v2Column2: TcxGridDBColumn
Caption = #26412#26399#20184#27454
DataBinding.FieldName = 'BQFKAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -299,6 +304,7 @@ inherited frmFtyStatement: TfrmFtyStatement
object v2Column3: TcxGridDBColumn
Caption = #26412#26399#27424#27454
DataBinding.FieldName = 'BQJYAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
@ -308,12 +314,14 @@ inherited frmFtyStatement: TfrmFtyStatement
object Tv2Column5: TcxGridDBColumn
Caption = #19978#26399#27424#31080
DataBinding.FieldName = 'SQWKTaxAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv2Column2: TcxGridDBColumn
Caption = #26412#26399#24320#31080
DataBinding.FieldName = 'BQYKTaxAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
@ -321,6 +329,7 @@ inherited frmFtyStatement: TfrmFtyStatement
object Tv2Column1: TcxGridDBColumn
Caption = #26412#26399#27424#31080
DataBinding.FieldName = 'BQWKTaxAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
@ -328,6 +337,7 @@ inherited frmFtyStatement: TfrmFtyStatement
object Tv2Column6: TcxGridDBColumn
Caption = #26412#26399#38656#24320#31080
DataBinding.FieldName = 'BQXKTaxAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
@ -351,7 +361,7 @@ inherited frmFtyStatement: TfrmFtyStatement
TabOrder = 3
Properties.CustomButtons.Buttons = <>
Properties.Style = 2
Properties.TabIndex = 0
Properties.TabIndex = 1
Properties.Tabs.Strings = (
' USD '
' CNY ')

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

@ -14,7 +14,8 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, cxPC, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
U_BaseList, Vcl.Menus, Vcl.Clipbrd, DateUtils;
U_BaseList, Vcl.Menus, Vcl.Clipbrd, DateUtils, dxSkinWXI,
dxScrollbarAnnotations;
type
TfrmFtyStatement = class(TfrmBaseList)

16
A09财务通用管理/U_GetDllForm.pas
View File

@ -18,7 +18,7 @@ uses
U_DataLink, U_iniParam, U_ReceivableList, U_CollectList, U_InvoiceOutList,
U_CustStatement, U_CustStatementWriteOff, U_BankFlowList, U_BankFlowTotalList,
U_PayableList, U_PayList, U_FtyStatement, U_InvoiceInList, U_ExpenseList,
U_OtherPayableList;
U_OtherPayableList,U_handPayableList;
/////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 //
@ -78,7 +78,7 @@ begin
pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1:='管理';
Parameters1 := '管理';
end
else
begin
@ -211,6 +211,18 @@ begin
end;
end;
213: //手工费用登记
begin
with TfrmhandPayableList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
221: //付款登记
begin
with TfrmPayList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //

273
A09财务通用管理/U_HandPayableImport.dfm Normal file
View File

@ -0,0 +1,273 @@
inherited frmHandPayableImport: TfrmHandPayableImport
Left = 189
Top = 138
Caption = #25163#24037#36153#29992#23548#20837
ClientHeight = 562
ClientWidth = 1333
Color = clWhite
Font.Height = -13
Position = poMainFormCenter
ExplicitWidth = 1349
ExplicitHeight = 601
PixelsPerInch = 107
TextHeight = 16
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1333
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = ImageList_new32
HotImages = DataLink_Financial.ImageList_new32
Images = DataLink_Financial.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object ToolButton5: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36873#25321#25991#20214
ImageIndex = 12
OnClick = ToolButton5Click
end
object ToolButton3: TToolButton
Left = 166
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 14
OnClick = ToolButton3Click
end
object ToolButton2: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #20445#23384#25968#25454
ImageIndex = 16
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 332
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 427
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid [1]
Left = 0
Top = 38
Width = 1333
Height = 524
Align = alClient
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
ExplicitLeft = 104
ExplicitTop = -210
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_Financial.SHuangSe
Styles.Header = DataLink_Financial.Default
Styles.Inactive = DataLink_Financial.SHuangSe
Styles.Selection = DataLink_Financial.SHuangSe
object Tv1Column11: TcxGridDBColumn
Caption = #27969#27700#21495
DataBinding.FieldName = 'FFID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
end
object Tv1Column1: TcxGridDBColumn
Caption = #21457#29983#26085#26399
DataBinding.FieldName = 'FFTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end
object Tv1Column3: TcxGridDBColumn
Caption = #20844#21496#25260#22836
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 76
end
object Tv1Column5: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'OurOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 105
end
object Tv1Column6: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column7: TcxGridDBColumn
Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column8: TcxGridDBColumn
Caption = #36153#29992#31867#21035
DataBinding.FieldName = 'FFAbstractDL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column9: TcxGridDBColumn
Caption = #25903#20986#20107#30001
DataBinding.FieldName = 'SubExpend'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column12: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column2: TcxGridDBColumn
Caption = #35777#26126#20154
DataBinding.FieldName = 'Certifier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 56
end
object Tv1Column4: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1Column10: TcxGridDBColumn
Caption = #32463#25163#20154
DataBinding.FieldName = 'handler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 121
Top = 160
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 249
Top = 161
end
inherited ImageList_new32: TImageList
Left = 528
Top = 144
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 853
Top = 201
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 941
Top = 209
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 741
Top = 209
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 648
Top = 328
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 795
Top = 323
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 720
Top = 328
end
object cxStyleRepository1: TcxStyleRepository
Left = 760
Top = 72
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svTextColor]
TextColor = clRed
end
end
object OpenDialog1: TOpenDialog
Left = 226
Top = 290
end
object CDS_LM: TClientDataSet
Aggregates = <>
Params = <>
Left = 560
Top = 328
end
end

282
A09财务通用管理/U_HandPayableImport.pas Normal file
View File

@ -0,0 +1,282 @@
unit U_HandPayableImport;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, cxPC, U_BaseHelp, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, ComObj, U_BaseList, System.ImageList,
Vcl.ImgList, dxSkinWXI, dxScrollbarAnnotations;
type
TfrmHandPayableImport = class(TfrmBaseHelp)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
GPM_1: TcxGridPopupMenu;
DS_1: TDataSource;
CDS_1: TClientDataSet;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
OpenDialog1: TOpenDialog;
ToolButton5: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
Tv1Column1: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
CDS_LM: TClientDataSet;
ToolButton3: TToolButton;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
public
{ Public declarations }
FCTID: string;
end;
var
frmHandPayableImport: TfrmHandPayableImport;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmHandPayableImport.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add(' select * from Finance_Flow where 2= 1 ');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmHandPayableImport.FormDestroy(Sender: TObject);
begin
inherited;
frmHandPayableImport := nil;
end;
procedure TfrmHandPayableImport.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := cafree;
end;
procedure TfrmHandPayableImport.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmHandPayableImport.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(self.Caption, Tv1, '手工费用管理');
with CDS_LM do
begin
FieldDefs.Clear;
FieldDefs.Add('LXH', ftInteger, 0);
FieldDefs.Add('lCode', ftString, 40);
FieldDefs.Add('LName', ftString, 40);
close;
CreateDataSet;
end;
InitGrid();
end;
procedure TfrmHandPayableImport.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmHandPayableImport.ToolButton1Click(Sender: TObject);
begin
WriteCxGrid(self.Caption, Tv1, '样品管理');
end;
procedure TfrmHandPayableImport.ToolButton2Click(Sender: TObject);
begin
try
ADOQueryCmd.Connection.BeginTrans;
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not eof do
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select top 1 * from Finance_Flow where FFID=' + quotedstr(Trim(CDS_1.fieldbyname('FFID').AsString)));
open;
end;
if not ADOQueryCmd.IsEmpty then
raise Exception.Create(PChar('流水号：' + Trim(ADOQueryCmd.fieldbyname('FFID').AsString) + ' 重复！'));
with ADOQueryCmd do
begin
Append;
FieldByName('Fillid').Value := Trim(Dcode);
FieldByName('Filler').Value := Trim(DName);
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Bs_Cloth_Info', 0);
// FieldByName('BCIID').Value := Trim(CDS_1.fieldbyname('C_Code').AsString);
FieldByName('FFType').Value := '手工费用登记';
Post;
end;
Next;
end;
end;
CDS_1.EnableControls;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmHandPayableImport.ToolButton3Click(Sender: TObject);
begin
CDS_1.Delete;
end;
procedure TfrmHandPayableImport.ToolButton5Click(Sender: TObject);
var
excelApp, WorkBook: Variant;
i, j, k, LX, ExcelRowCount: integer;
maxId, FCPID, FCPName, t1, t2, t3, FFID: string;
begin
try
excelApp := CreateOleObject('Excel.Application');
openDialog1.Filter := '*.CSV;*.xls';
if opendialog1.Execute then
begin
WorkBook := excelApp.WorkBooks.Open(OpenDialog1.FileName);
end
else
exit;
excelApp.Visible := false;
ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;
except
application.MessageBox('加载EXCEL错误！', '错误信息', MB_ICONERROR);
exit;
end;
CDS_LM.EmptyDataSet;
for j := 0 to Tv1.ColumnCount - 1 do
begin
with CDS_LM do
begin
Append;
FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName);
FieldByName('LName').Value := trim(Tv1.Columns[j].Caption);
Post;
end;
end;
try
for i := 1 to 50 do
begin
if trim(WorkBook.WorkSheets[1].Cells[1, i].value) = '' then
continue;
if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[1, i].value), []) then
begin
with CDS_LM do
begin
Edit;
FieldByName('LXH').Value := i;
Post;
end;
end;
end;
except
application.MessageBox('加载数组错误！', '错误信息', MB_ICONERROR);
exit;
end;
try
for i := 2 to ExcelRowCount do
begin
with CDS_1 do
begin
Append;
CDS_LM.First;
while not CDS_LM.Eof do
begin
if CDS_LM.FieldByName('LXH').AsInteger > 0 then
CDS_1.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value;
CDS_LM.Next;
end;
Post;
end;
end;
WorkBook.Close;
excelApp.Quit;
excelApp := Unassigned;
WorkBook := Unassigned;
except
WorkBook.Close;
excelApp.Quit;
excelApp := Unassigned;
WorkBook := Unassigned;
exit;
end;
end;
end.

265
A09财务通用管理/U_HandPayableInPut.dfm Normal file
View File

@ -0,0 +1,265 @@
object frmHandPayableInPut: TfrmHandPayableInPut
Left = 484
Top = 189
Caption = #25163#24037#36153#29992#24405#20837
ClientHeight = 504
ClientWidth = 1530
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Tag = 1
Left = 0
Top = 0
Width = 1530
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
DisabledImages = DataLink_Financial.ImageList_new32
Images = DataLink_Financial.ImageList_new32
List = True
ShowCaptions = True
TabOrder = 0
object TSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = TSaveClick
end
object ToolButton1: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton2Click
end
object ToolButton3: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 308
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 38
Width = 1530
Height = 466
Align = alClient
TabOrder = 1
ExplicitTop = 44
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
Column = v1Money
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.Footer = DataLink_Financial.Default
Styles.Header = DataLink_Financial.Default
object Tv1Column5: TcxGridDBColumn
Caption = #21457#29983#26085#26399
DataBinding.FieldName = 'FFTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv1Column2: TcxGridDBColumn
Caption = #20844#21496#25260#22836
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column2PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_Financial.FontBlue
Width = 82
end
object Tv1Column4: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'OurOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv1Column1: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column1PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 95
end
object Tv1Column3: TcxGridDBColumn
Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column3PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 57
end
object v1Column3: TcxGridDBColumn
Caption = #36153#29992#31867#21035
DataBinding.FieldName = 'FFAbstractDL'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1Column3PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 81
end
object v1Column4: TcxGridDBColumn
Caption = #25903#20986#20107#30001
DataBinding.FieldName = 'SubExpend'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Money: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 81
end
object v1Column5: TcxGridDBColumn
Caption = #35777#26126#20154
DataBinding.FieldName = 'Certifier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 53
end
object Tv1Column7: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column8: TcxGridDBColumn
Caption = #32463#25163#20154
DataBinding.FieldName = 'handler'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Width = 54
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1
end
end
object DataSource1: TDataSource
DataSet = CDS_Invoice
Left = 516
Top = 280
end
object CDS_Invoice: TClientDataSet
Aggregates = <>
Params = <>
Left = 384
Top = 268
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 280
Top = 112
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 96
Top = 116
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 180
Top = 116
end
end

452
A09财务通用管理/U_HandPayableInPut.pas Normal file
View File

@ -0,0 +1,452 @@
unit U_HandPayableInPut;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter,
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB,
DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit,
cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, dxSkinWXI,
dxScrollbarAnnotations;
type
TfrmHandPayableInPut = class(TForm)
DataSource1: TDataSource;
CDS_Invoice: TClientDataSet;
GPM_1: TcxGridPopupMenu;
ToolBar1: TToolBar;
TSave: TToolButton;
TBClose: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
ADOQueryTmp: TADOQuery;
ADOQueryCmd: TADOQuery;
v1Column3: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
Tv1Column8: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TSaveClick(Sender: TObject);
procedure v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1P_SpecPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure FormDestroy(Sender: TObject);
procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
procedure initGrid();
procedure SaveDate();
{ Private declarations }
public
FFID: string;
fInvoiceFlag, PState: string;
{ Public declarations }
end;
var
frmHandPayableInPut: TfrmHandPayableInPut;
implementation
uses
U_RTFun, U_ZDYHelp, U_CompanySel, U_dataLink, U_ClothInfoSel, U_TradePlanSel;
{$R *.dfm}
procedure TfrmHandPayableInPut.SaveDate();
var
MaxNo: string;
begin
ADOQueryCmd.Connection.BeginTrans;
try
with CDS_Invoice do
begin
first;
while not eof do
begin
if fieldbyname('FFID').AsString = '' then
begin
if GetLSNo(ADOQueryTmp, MaxNo, 'SG', 'Finance_Flow', 4, 1) = False then
raise Exception.Create('取最大号失败！');
end
else
MaxNo := CDS_Invoice.fieldbyname('FFID').AsString;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.add('select * from Finance_Flow where FFID=' + quotedstr(Trim(MaxNo)));
open;
end;
if ADOQueryCmd.IsEmpty then
begin
ADOQueryCmd.append;
ADOQueryCmd.FieldByName('FillId').Value := Trim(DCode);
ADOQueryCmd.FieldByName('Filler').Value := Trim(DName);
ADOQueryCmd.FieldByName('status').Value := '0';
end
else
begin
ADOQueryCmd.edit;
ADOQueryCmd.FieldByName('EditId').Value := Trim(DCode);
ADOQueryCmd.FieldByName('Editer').Value := Trim(DName);
ADOQueryCmd.FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTmp);
end;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Invoice, 'Finance_Flow', 0);
ADOQueryCmd.fieldbyname('FFID').Value := MaxNo;
// ADOQueryCmd.fieldbyname('IVFlag').Value := '进项';
// ADOQueryCmd.fieldbyname('OppCoNo').Value := trim(CDS_Invoice.FieldByName('OppCoNo').AsString);
// ADOQueryCmd.fieldbyname('OppParentCoNo').Value := trim(CDS_Invoice.FieldByName('OppParentCoNo').AsString);
ADOQueryCmd.fieldbyname('OurCoNo').Value := trim(CDS_Invoice.FieldByName('OurCoNo').AsString);
ADOQueryCmd.fieldbyname('FFType').Value := '手工费用登记';
ADOQueryCmd.Post;
next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('保存成功！', '提示');
Modalresult := 1;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmHandPayableInPut.initGrid();
begin
with ADOQueryTmp do
begin
close;
sql.Clear;
if PState = '复制' then
begin
sql.Add('select '''' FFID,* from Finance_Flow where FFID=''' + trim(FFID) + '''');
end
else
begin
sql.Add('select 0 Amount,* from Finance_Flow where FFID=''' + trim(FFID) + '''');
end;
sql.add(' and isnull(status,''0'')=''0''');
// showmessage(sql.text);
open;
end;
SCreateCDS(ADOQueryTmp, CDS_Invoice);
SInitCDSData(ADOQueryTmp, CDS_Invoice);
end;
procedure TfrmHandPayableInPut.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmHandPayableInPut.FormShow(Sender: TObject);
begin
ReadCxGrid(Self.Caption, Tv1, '财务管理');
initGrid();
end;
procedure TfrmHandPayableInPut.TSaveClick(Sender: TObject);
begin
// if CDS_Invoice.Locate('IVNo', null, []) then
// begin
// application.MessageBox('发票号不能为空', '提示');
// exit;
// end;
// if CDS_Invoice.Locate('IVType', null, []) then
// begin
// application.MessageBox('发票类型不能为空', '提示');
// exit;
// end;
// if CDS_Invoice.Locate('OurCoName', null, []) then
// begin
// application.MessageBox('我方单位不能为空', '提示');
// exit;
// end;
// if CDS_Invoice.Locate('OppCoName', null, []) then
// begin
// application.MessageBox('对方单位不能为空', '提示');
// exit;
// end;
SaveDate();
end;
procedure TfrmHandPayableInPut.v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'FFAbstractDL';
flagname := '费用类别';
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('FFAbstractDL').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
// Self.CDS_Invoice.FieldByName('F_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmHandPayableInPut.v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'MPRTCodeName';
flagname := '产品名称';
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('F_Name').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
Self.CDS_Invoice.FieldByName('F_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmHandPayableInPut.v1P_SpecPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'P_Spec';
flagname := '成品规格';
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('P_Spec').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmHandPayableInPut.v1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'QtyUnit';
flagname := '数量单位';
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('QtyUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmHandPayableInPut.FormDestroy(Sender: TObject);
begin
frmHandPayableInPut := nil;
end;
procedure TfrmHandPayableInPut.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmTradePlanSel := TfrmTradePlanSel.Create(Application);
with frmTradePlanSel do
begin
// FMainID := MainID.Text;
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('OrderNo').Value := CDS_1.fieldbyname('OrderNo').value;
Self.CDS_Invoice.FieldByName('OurCoName').Value := Trim(CDS_1.fieldbyname('OurCoName').AsString);
Self.CDS_Invoice.FieldByName('OurCoNo').Value := Trim(CDS_1.fieldbyname('OurCoNo').AsString);
//
end;
end;
finally
frmTradePlanSel.Free;
end;
end;
procedure TfrmHandPayableInPut.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '我司';
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('OurCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Invoice.FieldByName('OurCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmHandPayableInPut.Tv1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
MainType := '手工费用';
flag := 'FFAbstract';
flagname := '摘要';
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('FFAbstract').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmHandPayableInPut.Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '供应商';
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('OppCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Invoice.FieldByName('OppCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
Self.CDS_Invoice.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Invoice.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmHandPayableInPut.Tv1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '供应商';
if ShowModal = 1 then
begin
Self.CDS_Invoice.Edit;
Self.CDS_Invoice.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.CDS_Invoice.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmHandPayableInPut.ToolButton1Click(Sender: TObject);
begin
if CDS_Invoice.IsEmpty = False then
begin
CopyAddRowCDS(CDS_Invoice);
with CDS_Invoice do
begin
Edit;
FieldByName('FFID').Value := null;
post;
end;
end
else
begin
with CDS_Invoice do
begin
Append;
FieldByName('FFTime').Value := now();
// FieldByName('QtyUnit').Value := 'Kg';
FieldByName('Amount').Value := 0;
Post;
end;
end;
// CDS_Invoice.append;
// CDS_Invoice.FieldByName('IVDate').Value := now();
// CDS_Invoice.FieldByName('QtyUnit').Value := 'Kg';
// CDS_Invoice.FieldByName('Amount').Value := 0;
// CDS_Invoice.FieldByName('Qty').Value := 0;
// CDS_Invoice.FieldByName('tax').Value := 0;
// CDS_Invoice.FieldByName('TaxFee').Value := 0;
// CDS_Invoice.FieldByName('taxAmount').Value := 0;
// CDS_Invoice.FieldByName('Price').Value := 0;
// CDS_Invoice.FieldByName('tax').Value := 13;
// CDS_Invoice.FieldByName('Currency').Value := 'CNY';
// CDS_Invoice.Post;
end;
procedure TfrmHandPayableInPut.ToolButton2Click(Sender: TObject);
begin
if CDS_Invoice.IsEmpty then
exit;
if application.MessageBox('确定要删除吗', '提示', 1) = 2 then
exit;
with ADOQueryTmp do
begin
close;
sql.clear;
sql.add('delete from Finance_Flow where FFID=''' + trim(CDS_Invoice.fieldbyname('FFID').asstring) + ''' ');
execsql;
end;
CDS_Invoice.delete;
end;
procedure TfrmHandPayableInPut.ToolButton3Click(Sender: TObject);
begin
WriteCxGrid(Self.Caption, Tv1, '财务管理');
end;
end.

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

@ -596,8 +596,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput
Width = 140
end
object OrderNo: TBtnEditC
Left = 301
Top = 47
Left = 302
Top = 51
Width = 140
Height = 20
Font.Charset = GB2312_CHARSET
@ -625,8 +625,8 @@ object frmOtherPayableInput: TfrmOtherPayableInput
OnBtnDnClick = PayMentBtnDnClick
end
object FFAbstract: TBtnEditC
Left = 513
Top = 47
Left = 514
Top = 52
Width = 140
Height = 20
Hint = 'FFAbstract/'#25688#35201

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

@ -280,7 +280,7 @@ begin
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
MainType := '壇마운';
MainType := '페儉壇마운';
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then

34
A09财务通用管理/U_PayInput.pas
View File

@ -265,23 +265,23 @@ var
fsj: string;
FWZ: Integer;
begin
// fsj := Trim(TEdit(Sender).Hint);
// FWZ := Pos('/', fsj);
// try
// frmZDYHelp := TfrmZDYHelp.Create(Application);
// with frmZDYHelp do
// begin
// MainType := '¸¶¿î';
// flag := Copy(fsj, 1, FWZ - 1);
// flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
// if ShowModal = 1 then
// begin
// TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
// end;
// end;
// finally
// frmZDYHelp.Free;
// end;
fsj := Trim(TEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
MainType := '¸¶¿î';
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmPayInput.FFAbstractDLBtnUpClick(Sender: TObject);

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

@ -282,8 +282,6 @@ inherited frmPayList: TfrmPayList
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitLeft = -64
ExplicitTop = 144
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -509,7 +507,7 @@ inherited frmPayList: TfrmPayList
TabOrder = 3
Properties.CustomButtons.Buttons = <>
Properties.Style = 2
Properties.TabIndex = 0
Properties.TabIndex = 2
Properties.Tabs.Strings = (
#26410#23457#26680
#24050#23457#26680

10
A09财务通用管理/U_PayList.pas
View File

@ -236,11 +236,11 @@ begin
end;
1:
begin
sql.Add(' and isnull(status,''0'')=''9'' ');
sql.Add(' and isnull(status,''0'')=''1'' ');
end;
2:
begin
sql.Add(' and isnull(status,''0'')=''10'' ');
sql.Add(' and isnull(status,''0'')=''9'' ');
end;
end;
if CheckBox1.Checked then
@ -503,9 +503,10 @@ begin
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' exec P_Fin_Flow_SetStatus_1 ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''³·ÏúÉóºË'' ');
Sql.Add(',@SetDate=''' + FormatDateTime('yyyy-MM-dd', Setdate1.DateTime) + ''' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open;
@ -730,9 +731,10 @@ begin
begin
Close;
sql.Clear;
sql.Add(' exec P_Fin_Flow_SetStatus ');
sql.Add(' exec P_Fin_Flow_SetStatus_1 ');
sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
sql.Add(',@Operation=''³·Ïú¸¶¿î'' ');
Sql.Add(',@SetDate=''' + FormatDateTime('yyyy-MM-dd', Setdate2.DateTime) + ''' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open;

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

@ -282,7 +282,7 @@ begin
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
// MainType := '壇마운';
MainType := '壇마운';
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then

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

@ -72,7 +72,6 @@ object frmReceivableInput: TfrmReceivableInput
ParentFont = False
TabOrder = 1
OnClick = ScrollBox1Click
ExplicitLeft = 1
object Label2: TLabel
Left = 245
Top = 20

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

@ -14,7 +14,7 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit;
dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit, dxSkinWXI;
type
TfrmReceivableInput = class(TForm)

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

@ -274,7 +274,6 @@ inherited frmReceivableList: TfrmReceivableList
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 142
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False

524
A09财务通用管理/U_handPayableList.dfm Normal file
View File

@ -0,0 +1,524 @@
inherited frmhandPayableList: TfrmhandPayableList
Left = 308
Top = 202
Caption = #25163#24037#36153#29992#30331#35760
ClientHeight = 626
ClientWidth = 1540
FormStyle = fsMDIChild
Visible = True
ExplicitWidth = 1556
ExplicitHeight = 665
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_Financial.ImageList_new32
Images = DataLink_Financial.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
ExplicitTop = 3
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object ToolButton2: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
OnClick = ToolButton2Click
end
object TADD: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 9
OnClick = TADDClick
end
object TUPDATE: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
OnClick = TUPDATEClick
end
object ToolButton5: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #22797#21046
ImageIndex = 13
OnClick = ToolButton5Click
end
object TBDEL: TToolButton
Left = 355
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TBDELClick
end
object TSel: TToolButton
Left = 426
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 4
OnClick = TSelClick
end
object TCHK: TToolButton
Left = 497
Top = 0
AutoSize = True
Caption = #23457#26680
ImageIndex = 12
OnClick = TCHKClick
end
object TNOCHK: TToolButton
Left = 568
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
ImageIndex = 11
OnClick = TNOCHKClick
end
object ToolButton4: TToolButton
Left = 663
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
Visible = False
OnClick = ToolButton4Click
end
object ToolButton1: TToolButton
Left = 734
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = ToolButton1Click
end
object ToolButton3: TToolButton
Left = 805
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 900
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
object ToolButton6: TToolButton
Left = 971
Top = 0
AutoSize = True
Caption = #23548#20837
ImageIndex = 17
OnClick = ToolButton6Click
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1540
Height = 67
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 32
object Label2: TLabel
Left = 40
Top = 13
Width = 52
Height = 12
Caption = #21457#31080#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 74
Top = 37
Width = 30
Height = 12
Caption = '-----'
end
object Label5: TLabel
Left = 214
Top = 14
Width = 52
Height = 12
Caption = #23545#26041#21333#20301
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label1: TLabel
Left = 210
Top = 40
Width = 52
Height = 12
Caption = #25105#26041#21333#20301
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object begdate: TDateTimePicker
Left = 94
Top = 9
Width = 97
Height = 20
Date = 41256.000000000000000000
Time = 0.918237847232376200
TabOrder = 0
end
object Enddate: TDateTimePicker
Left = 94
Top = 33
Width = 97
Height = 20
Date = 41256.000000000000000000
Time = 0.918237847232376200
TabOrder = 2
end
object FactoryName: TEdit
Tag = 2
Left = 266
Top = 10
Width = 89
Height = 20
TabOrder = 1
Visible = False
OnChange = IVNoChange
end
object SYRName: TEdit
Tag = 2
Left = 266
Top = 36
Width = 89
Height = 20
TabOrder = 3
Visible = False
OnChange = IVNoChange
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 127
Width = 1540
Height = 499
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 3
ExplicitTop = 199
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_Invoice
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column15
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.Footer = DataLink_Financial.Default
Styles.Header = DataLink_Financial.Default
object v1Column3: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Width = 49
end
object Tv1Column2: TcxGridDBColumn
Caption = #27969#27700#21495
DataBinding.FieldName = 'FFID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 68
end
object v1InvoiceDate: TcxGridDBColumn
Caption = #21457#29983#26085#26399
DataBinding.FieldName = 'FFTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object v1Column2: TcxGridDBColumn
Caption = #20844#21496#25260#22836
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_Financial.FontBlue
Width = 83
end
object v1Column12: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'OurOrdNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 57
end
object v1Column13: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 63
end
object v1Column14: TcxGridDBColumn
Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 44
end
object v1Column17: TcxGridDBColumn
Caption = #36153#29992#31867#21035
DataBinding.FieldName = 'FFAbstractDL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 64
end
object v1Column18: TcxGridDBColumn
Caption = #25903#20986#20107#30001
DataBinding.FieldName = 'SubExpend'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
end
object v1Column15: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 54
end
object v1Column19: TcxGridDBColumn
Caption = #35777#26126#20154
DataBinding.FieldName = 'Certifier'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
end
object v1note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 114
end
object Tv1Column1: TcxGridDBColumn
Caption = #32463#25163#20154
DataBinding.FieldName = 'handler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1
end
end
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 105
Width = 1540
Height = 22
Align = alTop
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#23457#26680
#24050#23457#26680
#20840#37096)
OnChange = cxTabControl1Change
ClientRectBottom = 22
ClientRectRight = 1540
ClientRectTop = 19
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 161
Top = 264
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 161
Top = 201
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 351
Top = 187
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 388
Top = 187
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 417
Top = 189
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDB_Main
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 468
Top = 268
ReportData = {}
end
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = ADOQueryTemp
Left = 432
Top = 268
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 440
Top = 324
end
object DS_Invoice: TDataSource
DataSet = CDS_Invoice
Left = 527
Top = 323
end
object CDS_Invoice: TClientDataSet
Aggregates = <>
Params = <>
Left = 488
Top = 324
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 1
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 504
Top = 268
end
object PopupMenu1: TPopupMenu
Left = 388
Top = 324
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
object N3: TMenuItem
Caption = #22797#21046
OnClick = N3Click
end
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 381
Top = 269
end
end

569
A09财务通用管理/U_handPayableList.pas Normal file
View File

@ -0,0 +1,569 @@
unit U_handPayableList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, cxPC, RM_e_Xls, Menus, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, U_BaseList, Vcl.Clipbrd, dxSkinWXI,
dxScrollbarAnnotations;
type
TfrmhandPayableList = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
ToolButton2: TToolButton;
ADOQueryMain: TADOQuery;
ToolButton1: TToolButton;
RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
Label2: TLabel;
Label6: TLabel;
begdate: TDateTimePicker;
Enddate: TDateTimePicker;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_Invoice: TDataSource;
CDS_Invoice: TClientDataSet;
TADD: TToolButton;
TUPDATE: TToolButton;
TBDEL: TToolButton;
v1InvoiceDate: TcxGridDBColumn;
v1note: TcxGridDBColumn;
Label5: TLabel;
FactoryName: TEdit;
TCHK: TToolButton;
TNOCHK: TToolButton;
cxTabControl1: TcxTabControl;
TSel: TToolButton;
v1Column2: TcxGridDBColumn;
RMXLSExport1: TRMXLSExport;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
ToolButton4: TToolButton;
v1Column3: TcxGridDBColumn;
ADOQueryPrint: TADOQuery;
Label1: TLabel;
SYRName: TEdit;
v1Column12: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
ToolButton3: TToolButton;
N3: TMenuItem;
ToolButton5: TToolButton;
Tv1Column1: TcxGridDBColumn;
ToolButton6: TToolButton;
Tv1Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure IVNoChange(Sender: TObject);
procedure TADDClick(Sender: TObject);
procedure TUPDATEClick(Sender: TObject);
procedure TBDELClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure TCHKClick(Sender: TObject);
procedure TNOCHKClick(Sender: TObject);
procedure TSelClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure v1Column14PropertiesEditValueChanged(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
procedure SetStatus();
public
FZKType, canshu1, canshu2: string;
{ Public declarations }
end;
//var
// frmInvoiceXX: TfrmInvoiceXX;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_InvoiceInInPut, U_HandPayableInPut,U_HandPayableImport;
{$R *.dfm}
procedure TfrmhandPayableList.SetStatus();
begin
tchk.Visible := false;
tnochk.Visible := false;
TUPDATE.Visible := false;
tbdel.Visible := false;
if trim(DParameters1) <> '高权限' then
begin
case cxTabControl1.TabIndex of
0:
begin
TUPDATE.Visible := true;
tbdel.Visible := true;
TCHK.Visible := true;
end;
1:
begin
tnochk.Visible := true;
end;
2:
begin
end;
end;
end
else
begin
case cxTabControl1.TabIndex of
0:
begin
tchk.Visible := true;
TUPDATE.Visible := true;
tbdel.Visible := true;
TCHK.Visible := true;
end;
1:
begin
tnochk.Visible := true;
end;
2:
begin
end;
end;
end;
end;
procedure TfrmhandPayableList.InitGrid();
begin
try
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add(' select A.* from Finance_Flow A ');
sql.add(' where A.FFTime>=''' + formatdatetime('yyyy-MM-dd', begdate.datetime) + ''' ');
sql.Add(' and A.FFTime<''' + formatdateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' ');
sql.Add(' and A.FFType=''手工费用登记'' ');
case cxTabControl1.TabIndex of
0:
begin
sql.add(' and isnull(A.Status,''0'')=''0''');
end;
1:
begin
sql.add(' and A.Status=''9''');
end;
end;
Open;
end;
SCreateCDS(ADOQueryMain, CDS_Invoice);
SInitCDSData(ADOQueryMain, CDS_Invoice);
finally
TV1.DataController.Filter.Clear;
end;
end;
procedure TfrmhandPayableList.FormDestroy(Sender: TObject);
begin
inherited;
// frmInvoiceXX := nil;
end;
procedure TfrmhandPayableList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmhandPayableList.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmhandPayableList.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(self.Caption, Tv1, '财务管理');
Enddate.DateTime := SGetServerDate(ADOQueryTemp);
begdate.DateTime := Enddate.DateTime - 30;
SetStatus();
InitGrid();
end;
procedure TfrmhandPayableList.TBRafreshClick(Sender: TObject);
begin
begdate.SetFocus;
InitGrid();
end;
procedure TfrmhandPayableList.ToolButton2Click(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Invoice);
SInitCDSData(ADOQueryMain, CDS_Invoice);
end;
end;
procedure TfrmhandPayableList.ToolButton3Click(Sender: TObject);
begin
WriteCxGrid(self.Caption, Tv1, '财务管理');
end;
procedure TfrmhandPayableList.ToolButton1Click(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel(self.Caption, cxgrid1);
end;
procedure TfrmhandPayableList.IVNoChange(Sender: TObject);
begin
ToolButton2.Click;
end;
procedure TfrmhandPayableList.TADDClick(Sender: TObject);
begin
frmHandPayableInPut := TfrmHandPayableInPut.Create(self);
with frmHandPayableInPut do
begin
FFID := '';
// FZKType := Self.FZKType;
if showmodal = 1 then
begin
initGrid();
end;
free;
end;
end;
procedure TfrmhandPayableList.TUPDATEClick(Sender: TObject);
begin
frmHandPayableInPut := TfrmHandPayableInPut.Create(self);
with frmHandPayableInPut do
begin
// IvNo.Enabled := False;
FFID := trim(Self.CDS_Invoice.fieldbyname('FFID').asstring);
if showmodal = 1 then
begin
Self.initGrid();
end;
free;
end;
end;
procedure TfrmhandPayableList.TBDELClick(Sender: TObject);
begin
if CDS_Invoice.IsEmpty then
exit;
if application.MessageBox('确定要删除吗？', '提示', 1) = 2 then
exit;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.add('delete from Finance_Flow where FFID=''' + trim(CDS_Invoice.fieldbyname('FFID').asstring) + ''' ');
// sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
// sql.Add(' ' + quotedstr(trim(DName)));
// sql.Add(',getdate() ');
// sql.Add(',' + quotedstr(trim(self.Caption)));
// sql.Add(',' + quotedstr(trim('手工删除')));
// sql.Add(',' + quotedstr(trim('发票号：' + trim(CDS_Invoice.FieldByName('ivNo').AsString))));
// sql.Add(',' + quotedstr(trim('成功')));
// sql.Add(')');
execsql;
end;
ADOQueryCmd.Connection.CommitTrans;
CDS_Invoice.Delete;
except
ADOQueryCmd.Connection.RollbackTrans;
end;
end;
procedure TfrmhandPayableList.cxTabControl1Change(Sender: TObject);
begin
SetStatus();
initGrid();
end;
procedure TfrmhandPayableList.TCHKClick(Sender: TObject);
begin
if CDS_Invoice.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.add('update Finance_Flow set Chker=''' + trim(DName) + ''',Chktime=getdate(),status=''9'' ');
sql.add('where FFType=''手工费用登记'' and FFID=''' + trim(CDS_Invoice.fieldbyname('FFID').asstring) + ''' ');
execsql;
end;
application.MessageBox('审核成功', '提示');
CDS_Invoice.delete;
except
;
application.MessageBox('审核失败', '提示');
end;
end;
procedure TfrmhandPayableList.TNOCHKClick(Sender: TObject);
begin
if CDS_Invoice.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.add('update Finance_Flow set Chker=null,Chktime=null,status=''0'' ');
sql.add('where FFType=''手工费用登记'' and FFID=''' + trim(CDS_Invoice.fieldbyname('FFID').asstring) + ''' ');
execsql;
end;
application.MessageBox('撤销成功', '提示');
CDS_Invoice.delete;
except
application.MessageBox('撤销失败', '提示');
end;
end;
procedure TfrmhandPayableList.TSelClick(Sender: TObject);
begin
frmHandPayableInPut := TfrmHandPayableInPut.Create(self);
with frmHandPayableInPut do
begin
TSave.Visible := False;
FFID := trim(Self.CDS_Invoice.fieldbyname('FFID').asstring);
if showmodal = 1 then
begin
end;
end;
end;
procedure TfrmhandPayableList.FormCreate(Sender: TObject);
begin
inherited;
canshu1 := trim(DParameters1);
end;
procedure TfrmhandPayableList.N1Click(Sender: TObject);
begin
SelOKNo(CDS_Invoice, True);
end;
procedure TfrmhandPayableList.N2Click(Sender: TObject);
begin
SelOKNo(CDS_Invoice, false);
end;
procedure TfrmhandPayableList.N3Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_Invoice.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmhandPayableList.ToolButton4Click(Sender: TObject);
var
fPrintFile: string;
Porderno, LBName, SYRName: string;
i, j: Integer;
OrderKg: Double;
begin
if CDS_Invoice.IsEmpty then
Exit;
if CDS_Invoice.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据', '提示', 0);
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete TBSubID where DName=''' + Trim(DCode) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('SELECT * FROM TBSubID where 1=2 ');
open;
end;
CDS_Invoice.DisableControls;
try
ADOQueryCmd.Connection.BeginTrans;
with CDS_Invoice do
begin
First;
while not Eof do
begin
if Fieldbyname('Ssel').AsBoolean then
begin
ADOQueryCmd.append;
ADOQueryCmd.fieldbyname('SubId').Value := Trim(CDS_Invoice.fieldbyname('InvoiceNo').AsString);
ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode);
ADOQueryCmd.post;
end;
Next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
end;
CDS_Invoice.EnableControls;
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.Add('exec P_View_FPTJ ' + quotedstr(Trim(DCode)));
Open;
end;
ExportFtErpFile('进项发票列表.rmf', ADOQueryTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\进项发票列表.rmf';
if FileExists(fPrintFile) then
begin
RM1.LoadFromFile(fPrintFile);
// RMVariables['SYRName']:=Trim(SYRName);
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('没有找Report\进项发票列表.rmf'), '提示', 0);
end;
end;
procedure TfrmhandPayableList.ToolButton5Click(Sender: TObject);
begin
frmHandPayableInPut := TfrmHandPayableInPut.Create(self);
with frmHandPayableInPut do
begin
// IvNo.Enabled := False;
FFID := trim(Self.CDS_Invoice.fieldbyname('FFID').asstring);
PState:='复制';
if showmodal = 1 then
begin
Self.initGrid();
end;
free;
end;
end;
procedure TfrmhandPayableList.ToolButton6Click(Sender: TObject);
begin
try
frmHandPayableImport := TfrmHandPayableImport.Create(Application);
with frmHandPayableImport do
begin
// FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
if ShowModal = 1 then
begin
Self.InitGrid();
end;
end;
finally
frmHandPayableImport.Free;
end;
end;
procedure TfrmhandPayableList.v1Column14PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
FQty, FPrice, FMoney, Ftax, FtaxMoney: double;
begin
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
with CDS_Invoice do
begin
Edit;
FieldByName(FFieldName).Value := Trim(mvalue);
Post;
FQty := FieldbyName('Qty').AsFloat;
FtaxMoney := FieldbyName('taxMoney').AsFloat;
Ftax := FieldbyName('tax').AsFloat;
end;
if FQty <> 0 then
begin
FMoney := strtofloat(format('%.2f', [FtaxMoney / (1 + Ftax / 100)]));
FPrice := strtofloat(format('%.2f', [FMoney / FQty]));
end
else
begin
FPrice := 0;
FMoney := strtofloat(format('%.2f', [FtaxMoney / (1 + Ftax / 100)]));
end;
with CDS_Invoice do
begin
Edit;
FieldByName('Price').Value := FPrice;
FieldByName('Money').Value := FMoney;
FieldByName('TaxFee').Value := FtaxMoney - FMoney;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
end.

BIN
T04贸易明细仓库/TradeClothStk.identcache
View File

Binary file not shown.

BIN
T04贸易明细仓库/testDll.identcache
View File

Binary file not shown.